ECXMDELE.m

ECXMDELE ;BIR/DMA-Server to Receive Confirmation from Austin ; 17 Mar 95 / 9:56 AM

 ;;3.0;DSS EXTRACTS;**67**;Dec 22, 1997

 I XMFROM'["POSTMASTER@FOC-AUSTIN" G DUMP

 S ECXQUEUE=$P($G(^ECX(728,1,"QUEUE")),"^",1)

 I $TR(XQSUB,"zxcvbnmasdfghjklqwertyuiop","ZXCVBNMASDFGHJKLQWERTYUIOP")'[ECXQUEUE_" CONFIRMATION" G DUMP

 X XMREC S DA=+$P(XMRG,"#",2) I 'DA G DUMP

 S DA(1)=+$O(^ECX(727,"AB",DA,0)) G DUMP:'DA(1)

DEL S DIK="^ECX(727,"_DA(1)_",1," D ^DIK

DUMP F  X XMREC Q:XMER

 K DIK,DA

 S XMSER="S."_XQSOP,XMZ=XQMSG D REMSBMSG^XMA1C

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ECXMDELE   543     printed  Apr 09, 2024@20:54:43                                                                                                                                                                                                     Page 2

ECXMDELE  ;BIR/DMA-Server to Receive Confirmation from Austin ; 17 Mar 95 / 9:56 AM

 +1       ;;3.0;DSS EXTRACTS;**67**;Dec 22, 1997

 +2        IF XMFROM'["POSTMASTER@FOC-AUSTIN"

               GOTO DUMP

 +3        SET ECXQUEUE=$PIECE($GET(^ECX(728,1,"QUEUE")),"^",1)

 +4        IF $TRANSLATE(XQSUB,"zxcvbnmasdfghjklqwertyuiop","ZXCVBNMASDFGHJKLQWERTYUIOP")'[ECXQUEUE_" CONFIRMATION"

               GOTO DUMP

 +5        XECUTE XMREC

           SET DA=+$PIECE(XMRG,"#",2)

           IF 'DA

               GOTO DUMP

 +6        SET DA(1)=+$ORDER(^ECX(727,"AB",DA,0))

           if 'DA(1)

               GOTO DUMP

DEL        SET DIK="^ECX(727,"_DA(1)_",1,"

           DO ^DIK

DUMP       FOR 

               XECUTE XMREC

               if XMER

                   QUIT 

 +1        KILL DIK,DA

 +2        SET XMSER="S."_XQSOP

           SET XMZ=XQMSG

           DO REMSBMSG^XMA1C

 +3        QUIT