- 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 Feb 19, 2025@00:06:05 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
