source: WorldVistAEHR/trunk/r/CLINICAL_REMINDERS-PXRM/PXRM7M1.m@ 701

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

revised back to 6/30/08 version

File size: 496 bytes
Line 
1PXRM7M1 ;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
6EN(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.