RGADTPC.m

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 ---RGADTPC   550     printed  Mar 13, 2025@20:46:06                                                                                                                                                                                                      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