DavidWhitten at 02:16, 24 February 2023

2023-02-24T02:16:11Z

@@ Line 23: / Line 23: @@
 ==== Commentary ====
   The subroutine call $$YEAR^XlFDT( -- , -- ) does NOR exist.
   The arguments generated seem to be the arguments to $$FMTE^XLFDT,
@@ Line 29: / Line 30: @@
   WRITE $$FMTE^XLFDT($$NOW^XLFDT,"5Z")
 /23/2023@21:06:34

DavidWhitten: Created page with "ChatGPT == by David Whitten on Feb 22, 2023 at 10:00 AM == Write an ANSI MUMPS program that asks the user for a discharge date conforming to the VistA Standards and C..."

2023-02-24T02:10:00Z

Created page with "ChatGPT == by David Whitten on Feb 22, 2023 at 10:00 AM == Write an ANSI MUMPS program that asks the user for a discharge date conforming to the VistA Standards and C..."

New page

[[ChatGPT]]
== by [[David Whitten]] on Feb 22, 2023 at 10:00 AM ==
Write an ANSI MUMPS program that asks the user for a discharge date conforming to the VistA Standards and Conventions. Use the FileMan ^DIR routine to ask the user. Use the FileMan YEAR function to calculate the year of the discharge date and print it out
=== Results ===
Here's an ANSI MUMPS program that asks the user for a discharge date using the FileMan ^DIR routine, calculates the year of the discharge date using the FileMan YEAR function, and prints it out according to the VistA Standards and Conventions:

;This is a MUMPS program that asks the user for a discharge date and calculates the year using the FileMan YEAR function

;Use the FileMan ^DIR routine to ask for the discharge date
SET DIR(0)="DA^::EX"
SET DIR("A")="Enter the discharge date: "
D ^DIR
SET DISCHARGE=Y

;Calculate the year of the discharge date using the FileMan YEAR function
SET YEAR=$$YEAR^XLFDT(DISCHARGE,"5Z")

;Print out the year of the discharge date
WRITE !,"The year of the discharge date (",$$FMTE^XLFDT(DISCHARGE,"D")," ) is ",YEAR,"."
QUIT

This program uses the FileMan ^DIR routine to ask the user for the discharge date. It then uses the YEAR^XLFDT function from the FileMan library to calculate the year of the discharge date. Finally, it prints out the year of the discharge date using the WRITE command, along with the formatted discharge date using the FMTE^XLFDT function.

==== Commentary ====
The subroutine call $$YEAR^XlFDT( -- , -- ) does NOR exist.
The arguments generated seem to be the arguments to $$FMTE^XLFDT,

As an example of the use of this subroutine:
WRITE $$FMTE^XLFDT($$NOW^XLFDT,"5Z")
02/23/2023@21:06:34

ChatGPT/20230223 - Revision history

DavidWhitten at 02:16, 24 February 2023

DavidWhitten: Created page with "ChatGPT == by David Whitten on Feb 22, 2023 at 10:00 AM == Write an ANSI MUMPS program that asks the user for a discharge date conforming to the VistA Standards and C..."