source: WorldVistAEHR/trunk/r/TOOLKIT-AWCM-XD-XIN-XPAR-XQAB-XT-XUC-XUR-ZIN-ZTED/XDRMSG.m@ 1259

Last change on this file since 1259 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.2 KB
Line 
1XDRMSG ;IHS/OHPRD/JCM - SENDS VARIOUS DUPLICATE MESSAGES; [ 08/13/92 09:50 AM ]
2 ;;7.3;TOOLKIT;;Apr 25, 1995
3START ;
4 K XMB,XMY,XMTEXT
5 D:$D(XDRMSG) @XDRMSG
6END D EOJ
7 Q
8 ;
9VERIFY ;
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
18VERIFYX Q
19 ;
20MERGED ;
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
30MERGEDX Q
31 ;
32SEND ;
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 ;
38EOJ ;
39 K XMB,XMTEXT,XDRMERR,XMDUZ,XDRMSG
40 Q
Note: See TracBrowser for help on using the repository browser.