|
Last change
on this file since 814 was 623, checked in by George Lilly, 15 years ago |
|
revised back to 6/30/08 version
|
|
File size:
496 bytes
|
| Rev | Line | |
|---|
| [623] | 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.
