Last change
on this file since 952 was 636, checked in by George Lilly, 15 years ago |
WorldVistAEHR overlayed on FOIAVistA
|
File size:
496 bytes
|
Line | |
---|
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
|
---|
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.