PXRM7M1.m

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; 06/01/2007  15:26

 +1       ;;2.0;CLINICAL REMINDERS;**6**;Feb 04, 2005;Build 123

 +2       ;This routine will use the HL7 Package commands to gather the message

 +3       ;into the file 772

 +4        QUIT 

EN(ID)    ;Entry Point

 +1       ;

 +2        SET (PROTIEN,PXRM7,PXRM7R,PXRM77,PXRM7ID)=""

 +3        SET PROTIEN=$ORDER(^ORD(101,"B","PXRM7 RECO SERVER",PROTIEN))

 +4        SET HL("EID")=PROTIEN

 +5        DO INIT^HLFNC2(PROTIEN,.PXRM7)

 +6        SET PXRM7("PID")="HI^D"

 +7        SET HLA("HLS",1)=PXRM77

 +8        DO GENERATE^HLMA(HL("EID"),"GM",1,.PXRM7R,.PXRM7ID,)

 +9        DO STORE^PXRM7API

 +10       SET ID=ZMID

 +11       QUIT