22 lines
529 B
Mathematica
22 lines
529 B
Mathematica
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
|