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