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
