source: WorldVistAEHR/trunk/r/PATIENT_DATA_EXCHANGE-VAQ/VAQREQ08.m@ 861

Last change on this file since 861 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 442 bytes
RevLine 
[613]1VAQREQ08 ;ALB/JFP - REQUEST PDX RECORD, COMMENT (WP);01MAR93
2 ;;1.5;PATIENT DATA EXCHANGE;;NOV 17, 1993
3EP ; -- Main entry point
4 ; - called from VAQREQ02
5 ;
6COMMENT ;TEST ENTERING OF MULTI-LINED COMMENT
7 N DIC,DWLW,DWPK,DIWESUB
8 K ^TMP("CMNT",$J)
9 S:'$D(VAQCMNT) VAQCMNT=""
10 S DIC="^TMP(""CMNT"",$J,"
11 S DWLW=80,DWPK=1,DIWESUB="CMNT"
12 W !!,"Enter PDX "_VAQCMNT_"Comment:"
13 D EN^DIWE
14 K DIC,DWLW,DWPK,DIWESUB
15 Q
16END ; -- End of code
17 QUIT
Note: See TracBrowser for help on using the repository browser.