Changeset 623 for WorldVistAEHR/trunk/r/CLINICAL_REMINDERS-PXRM/PXRM7M1.m

Timestamp:

Dec 4, 2009, 12:11:15 AM (14 years ago)

Author:

George Lilly

Message:

revised back to 6/30/08 version

File:

• WorldVistAEHR/trunk/r/CLINICAL_REMINDERS-PXRM/PXRM7M1.m (modified) (1 diff)

WorldVistAEHR/trunk/r/CLINICAL_REMINDERS-PXRM/PXRM7M1.m

@@ -1 @@
-PXRM7M1 ;SLC/JVS HL7 PUT MESSAGE IN 772 FILE; 06/01/2007  15:26
-        ;;2.0;CLINICAL REMINDERS;**6**;Feb 04, 2005;Build 123
-        ;This routine will use the HL7 Package commands to gather the message
-        ;into the file 772
-        Q
-EN(ID)  ;Entry Point
-        ;
-        S (PROTIEN,PXRM7,PXRM7R,PXRM77,PXRM7ID)=""
-        S PROTIEN=$O(^ORD(101,"B","PXRM7 RECO SERVER",PROTIEN))
-        S HL("EID")=PROTIEN
-        D INIT^HLFNC2(PROTIEN,.PXRM7)
-        S PXRM7("PID")="HI^D"
-        S HLA("HLS",1)=PXRM77
-        D GENERATE^HLMA(HL("EID"),"GM",1,.PXRM7R,.PXRM7ID,)
-        D STORE^PXRM7API
-        S ID=ZMID
-        Q
+PXRM7M1 ;SLC/JVS HL7 PUT MESSAGE IN 772 FILE; 03/21/2002 ;4/11/02  15:26
+ ;;2.0;CLINICAL REMINDERS;;Feb 04, 2005
+ ;This routine will use the HL7 Package commands to gather the message
+ ;into the file 772
+ Q
+EN(ID) ;Entry Point
+ ;
+ S (PROTIEN,PXRM7,PXRM7R,PXRM77,PXRM7ID)=""
+ S PROTIEN=$O(^ORD(101,"B","PXRM7 RECO SERVER",PROTIEN))
+ S HL("EID")=PROTIEN
+ D INIT^HLFNC2(PROTIEN,.PXRM7)
+ S PXRM7("PID")="HI^D"
+ S HLA("HLS",1)=PXRM77
+ D GENERATE^HLMA(HL("EID"),"GM",1,.PXRM7R,.PXRM7ID,)
+ S ID=ZMID
+ Q