XDRMSG ;IHS/OHPRD/JCM - SENDS VARIOUS DUPLICATE MESSAGES; [ 08/13/92 09:50 AM ]
;;7.3;TOOLKIT;;Apr 25, 1995
START ;
K XMB,XMY,XMTEXT
D:$D(XDRMSG) @XDRMSG
END D EOJ
Q
;
VERIFY ;
I $D(XDRM("VERIFY-MSG")) D @XDRM("VERIFY-MSG") G VERIFYX
I '$D(XDRM("VMAILGRP")) G VERIFYX
F XDRI=0:0 S XDRI=$O(XDRD("VMAILGRP",XDRI)) Q:'XDRI S XMY(XDRI)=""
K XDRI
S XMB="XDR VERIFIED",XMB(2)=XDRMAIN("FR"),XMB(3)=XDRMAIN("TO")
I $D(@(XDRGL_XDRMAIN("FR")_",0)")) S XMB(4)=$P(@(XDRGL_XDRMAIN("FR")_",0)"),U,1)
I $D(@(XDRGL_XDRMAIN("TO")_",0)")) S XMB(5)=$P(@(XDRGL_XDRMAIN("TO")_",0)"),U,1)
D SEND
VERIFYX Q
;
MERGED ;
I $D(XDRM("MERGE-MSG")) D @XDRM("MERGE-MSG") G MERGEDX
I '$D(XDRM("MMAILGRP")) G MERGEDX
F XDRI=0:0 S XDRI=$O(XDRM("MMAILGRP",XDRI)) Q:'XDRI S XMY(XDRI)=""
K XDRI
S XMB="XDR MERGED",XMB(2)=XDRMAIN("FR"),XMB(3)=XDRMAIN("TO")
I $D(XDRMERR)>9 S XMTEXT="XDRMERR("
I $D(@(XDRGL_XDRMAIN("FR")_",0)")) S XMB(4)=$P(@(XDRGL_XDRMAIN("FR")_",0)"),U,1)
I $D(@(XDRGL_XDRMAIN("TO")_",0)")) S XMB(5)=$P(@(XDRGL_XDRMAIN("TO")_",0)"),U,1)
D SEND
MERGEDX Q
;
SEND ;
I $D(@(XDRGL_XDRMAIN("FR")_",0)"))
S XMDUZ=.5,XMB(1)=$P(^DIC(XDRFL,0),U,1)
D ^XMB
Q
;
EOJ ;
K XMB,XMTEXT,XDRMERR,XMDUZ,XDRMSG
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXDRMSG 1247 printed Dec 13, 2024@02:39:37 Page 2
XDRMSG ;IHS/OHPRD/JCM - SENDS VARIOUS DUPLICATE MESSAGES; [ 08/13/92 09:50 AM ]
+1 ;;7.3;TOOLKIT;;Apr 25, 1995
START ;
+1 KILL XMB,XMY,XMTEXT
+2 if $DATA(XDRMSG)
DO @XDRMSG
END DO EOJ
+1 QUIT
+2 ;
VERIFY ;
+1 IF $DATA(XDRM("VERIFY-MSG"))
DO @XDRM("VERIFY-MSG")
GOTO VERIFYX
+2 IF '$DATA(XDRM("VMAILGRP"))
GOTO VERIFYX
+3 FOR XDRI=0:0
SET XDRI=$ORDER(XDRD("VMAILGRP",XDRI))
if 'XDRI
QUIT
SET XMY(XDRI)=""
+4 KILL XDRI
+5 SET XMB="XDR VERIFIED"
SET XMB(2)=XDRMAIN("FR")
SET XMB(3)=XDRMAIN("TO")
+6 IF $DATA(@(XDRGL_XDRMAIN("FR")_",0)"))
SET XMB(4)=$PIECE(@(XDRGL_XDRMAIN("FR")_",0)"),U,1)
+7 IF $DATA(@(XDRGL_XDRMAIN("TO")_",0)"))
SET XMB(5)=$PIECE(@(XDRGL_XDRMAIN("TO")_",0)"),U,1)
+8 DO SEND
VERIFYX QUIT
+1 ;
MERGED ;
+1 IF $DATA(XDRM("MERGE-MSG"))
DO @XDRM("MERGE-MSG")
GOTO MERGEDX
+2 IF '$DATA(XDRM("MMAILGRP"))
GOTO MERGEDX
+3 FOR XDRI=0:0
SET XDRI=$ORDER(XDRM("MMAILGRP",XDRI))
if 'XDRI
QUIT
SET XMY(XDRI)=""
+4 KILL XDRI
+5 SET XMB="XDR MERGED"
SET XMB(2)=XDRMAIN("FR")
SET XMB(3)=XDRMAIN("TO")
+6 IF $DATA(XDRMERR)>9
SET XMTEXT="XDRMERR("
+7 IF $DATA(@(XDRGL_XDRMAIN("FR")_",0)"))
SET XMB(4)=$PIECE(@(XDRGL_XDRMAIN("FR")_",0)"),U,1)
+8 IF $DATA(@(XDRGL_XDRMAIN("TO")_",0)"))
SET XMB(5)=$PIECE(@(XDRGL_XDRMAIN("TO")_",0)"),U,1)
+9 DO SEND
MERGEDX QUIT
+1 ;
SEND ;
+1 IF $DATA(@(XDRGL_XDRMAIN("FR")_",0)"))
+2 SET XMDUZ=.5
SET XMB(1)=$PIECE(^DIC(XDRFL,0),U,1)
+3 DO ^XMB
+4 QUIT
+5 ;
EOJ ;
+1 KILL XMB,XMTEXT,XDRMERR,XMDUZ,XDRMSG
+2 QUIT
