Last change
on this file since 752 was 636, checked in by George Lilly, 15 years ago |
WorldVistAEHR overlayed on FOIAVistA
|
File size:
496 bytes
|
Rev | Line | |
---|
[636] | 1 | PXRM7M1 ;SLC/JVS HL7 PUT MESSAGE IN 772 FILE; 03/21/2002 ;4/11/02 15:26
|
---|
| 2 | ;;2.0;CLINICAL REMINDERS;;Feb 04, 2005
|
---|
[628] | 3 | ;This routine will use the HL7 Package commands to gather the message
|
---|
| 4 | ;into the file 772
|
---|
| 5 | Q
|
---|
| 6 | EN(ID) ;Entry Point
|
---|
| 7 | ;
|
---|
| 8 | S (PROTIEN,PXRM7,PXRM7R,PXRM77,PXRM7ID)=""
|
---|
| 9 | S PROTIEN=$O(^ORD(101,"B","PXRM7 RECO SERVER",PROTIEN))
|
---|
| 10 | S HL("EID")=PROTIEN
|
---|
| 11 | D INIT^HLFNC2(PROTIEN,.PXRM7)
|
---|
| 12 | S PXRM7("PID")="HI^D"
|
---|
| 13 | S HLA("HLS",1)=PXRM77
|
---|
| 14 | D GENERATE^HLMA(HL("EID"),"GM",1,.PXRM7R,.PXRM7ID,)
|
---|
| 15 | S ID=ZMID
|
---|
| 16 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.