VAQREQ08.m

VAQREQ08 ;ALB/JFP - REQUEST PDX RECORD, COMMENT (WP);01MAR93

 ;;1.5;PATIENT DATA EXCHANGE;;NOV 17, 1993

EP ; -- Main entry point

 ;    - called from VAQREQ02

 ;

COMMENT ;TEST ENTERING OF MULTI-LINED COMMENT

 N DIC,DWLW,DWPK,DIWESUB

 K ^TMP("CMNT",$J)

 S:'$D(VAQCMNT) VAQCMNT=""

 S DIC="^TMP(""CMNT"",$J,"

 S DWLW=80,DWPK=1,DIWESUB="CMNT"

 W !!,"Enter PDX "_VAQCMNT_"Comment:"

 D EN^DIWE

 K DIC,DWLW,DWPK,DIWESUB

 Q

END ; -- End of code

 QUIT

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---VAQREQ08   459     printed  Dec 13, 2024@02:26:48                                                                                                                                                                                                     Page 2

VAQREQ08  ;ALB/JFP - REQUEST PDX RECORD, COMMENT (WP);01MAR93

 +1       ;;1.5;PATIENT DATA EXCHANGE;;NOV 17, 1993

EP        ; -- Main entry point

 +1       ;    - called from VAQREQ02

 +2       ;

COMMENT   ;TEST ENTERING OF MULTI-LINED COMMENT

 +1        NEW DIC,DWLW,DWPK,DIWESUB

 +2        KILL ^TMP("CMNT",$JOB)

 +3        if '$DATA(VAQCMNT)

               SET VAQCMNT=""

 +4        SET DIC="^TMP(""CMNT"",$J,"

 +5        SET DWLW=80

           SET DWPK=1

           SET DIWESUB="CMNT"

 +6        WRITE !!,"Enter PDX "_VAQCMNT_"Comment:"

 +7        DO EN^DIWE

 +8        KILL DIC,DWLW,DWPK,DIWESUB

 +9        QUIT 

END       ; -- End of code

 +1        QUIT