RGADTPC ;BIR/DLR-Continuation of RGADTP routine ;9/19/02
 ;;1.0;CLINICAL INFO RESOURCE NETWORK;**26**;30 Apr 99
 ;
 ;Reference to $$A31^MPIFA31B supported by IA #3765
 ;Reference to ^ORD(101 supported by IA #872
 ;
MPISYN ;
 S:$D(ZTQUEUED) ZTREQ="@"
 S ERR=$$A31^MPIFA31B(DFN)
 K DFN,ERR
 Q
SEND ;
 S:$D(ZTQUEUED) ZTREQ="@"
 N EID
 S EID=$O(^ORD(101,"B","RG ADT-"_RGEVNT_" 2.4 SERVER",0))
 N HL,INT,HLP,HLRESLT,ARRAY
 S HL="HL",INT=0
 D INIT^HLFNC2(EID,.HL,INT)
 D GENERATE^HLMA(EID,"LM",1,.HLRESLT,"",.HLP)
 K DFN,HLA,RGEVNT
 Q