| [613] | 1 | XDRMSG ;IHS/OHPRD/JCM - SENDS VARIOUS DUPLICATE MESSAGES; [ 08/13/92 09:50 AM ]
|
|---|
| 2 | ;;7.3;TOOLKIT;;Apr 25, 1995
|
|---|
| 3 | START ;
|
|---|
| 4 | K XMB,XMY,XMTEXT
|
|---|
| 5 | D:$D(XDRMSG) @XDRMSG
|
|---|
| 6 | END D EOJ
|
|---|
| 7 | Q
|
|---|
| 8 | ;
|
|---|
| 9 | VERIFY ;
|
|---|
| 10 | I $D(XDRM("VERIFY-MSG")) D @XDRM("VERIFY-MSG") G VERIFYX
|
|---|
| 11 | I '$D(XDRM("VMAILGRP")) G VERIFYX
|
|---|
| 12 | F XDRI=0:0 S XDRI=$O(XDRD("VMAILGRP",XDRI)) Q:'XDRI S XMY(XDRI)=""
|
|---|
| 13 | K XDRI
|
|---|
| 14 | S XMB="XDR VERIFIED",XMB(2)=XDRMAIN("FR"),XMB(3)=XDRMAIN("TO")
|
|---|
| 15 | I $D(@(XDRGL_XDRMAIN("FR")_",0)")) S XMB(4)=$P(@(XDRGL_XDRMAIN("FR")_",0)"),U,1)
|
|---|
| 16 | I $D(@(XDRGL_XDRMAIN("TO")_",0)")) S XMB(5)=$P(@(XDRGL_XDRMAIN("TO")_",0)"),U,1)
|
|---|
| 17 | D SEND
|
|---|
| 18 | VERIFYX Q
|
|---|
| 19 | ;
|
|---|
| 20 | MERGED ;
|
|---|
| 21 | I $D(XDRM("MERGE-MSG")) D @XDRM("MERGE-MSG") G MERGEDX
|
|---|
| 22 | I '$D(XDRM("MMAILGRP")) G MERGEDX
|
|---|
| 23 | F XDRI=0:0 S XDRI=$O(XDRM("MMAILGRP",XDRI)) Q:'XDRI S XMY(XDRI)=""
|
|---|
| 24 | K XDRI
|
|---|
| 25 | S XMB="XDR MERGED",XMB(2)=XDRMAIN("FR"),XMB(3)=XDRMAIN("TO")
|
|---|
| 26 | I $D(XDRMERR)>9 S XMTEXT="XDRMERR("
|
|---|
| 27 | I $D(@(XDRGL_XDRMAIN("FR")_",0)")) S XMB(4)=$P(@(XDRGL_XDRMAIN("FR")_",0)"),U,1)
|
|---|
| 28 | I $D(@(XDRGL_XDRMAIN("TO")_",0)")) S XMB(5)=$P(@(XDRGL_XDRMAIN("TO")_",0)"),U,1)
|
|---|
| 29 | D SEND
|
|---|
| 30 | MERGEDX Q
|
|---|
| 31 | ;
|
|---|
| 32 | SEND ;
|
|---|
| 33 | I $D(@(XDRGL_XDRMAIN("FR")_",0)"))
|
|---|
| 34 | S XMDUZ=.5,XMB(1)=$P(^DIC(XDRFL,0),U,1)
|
|---|
| 35 | D ^XMB
|
|---|
| 36 | Q
|
|---|
| 37 | ;
|
|---|
| 38 | EOJ ;
|
|---|
| 39 | K XMB,XMTEXT,XDRMERR,XMDUZ,XDRMSG
|
|---|
| 40 | Q
|
|---|
