|
Last change
on this file since 1024 was 628, checked in by George Lilly, 16 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
520 bytes
|
| Line | |
|---|
| 1 | PXRM7M1 ;SLC/JVS HL7 PUT MESSAGE IN 772 FILE; 06/01/2007 15:26
|
|---|
| 2 | ;;2.0;CLINICAL REMINDERS;**6**;Feb 04, 2005;Build 123
|
|---|
| 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 | D STORE^PXRM7API
|
|---|
| 16 | S ID=ZMID
|
|---|
| 17 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
