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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRGADTPC 550 printed Oct 16, 2024@17:42:18 Page 2
RGADTPC ;BIR/DLR-Continuation of RGADTP routine ;9/19/02
+1 ;;1.0;CLINICAL INFO RESOURCE NETWORK;**26**;30 Apr 99
+2 ;
+3 ;Reference to $$A31^MPIFA31B supported by IA #3765
+4 ;Reference to ^ORD(101 supported by IA #872
+5 ;
MPISYN ;
+1 if $DATA(ZTQUEUED)
SET ZTREQ="@"
+2 SET ERR=$$A31^MPIFA31B(DFN)
+3 KILL DFN,ERR
+4 QUIT
SEND ;
+1 if $DATA(ZTQUEUED)
SET ZTREQ="@"
+2 NEW EID
+3 SET EID=$ORDER(^ORD(101,"B","RG ADT-"_RGEVNT_" 2.4 SERVER",0))
+4 NEW HL,INT,HLP,HLRESLT,ARRAY
+5 SET HL="HL"
SET INT=0
+6 DO INIT^HLFNC2(EID,.HL,INT)
+7 DO GENERATE^HLMA(EID,"LM",1,.HLRESLT,"",.HLP)
+8 KILL DFN,HLA,RGEVNT
+9 QUIT
