source: WorldVistAEHR/trunk/r/OPERATIONS_WITH_DESERT_STORM-A1B2/A1B2T4.m@ 699

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

initial load of WorldVistAEHR

File size: 1.1 KB
Line 
1A1B2T4 ;ALB/EG - XM UTILITY ;FEB 7 1991
2 ;;Version 1.55 (local for MAS v5 sites);;
3 ;;V1.0
4 ;XMTEXT array must have closed form, i.e. XMTEXT="AX" or "AX(1)"
5 ;"AX(2," is not allowed. Local or global are allowed.
6 ;XMDUZ must be valid DUZ or POSTMASTER. Returned variables
7 ;Y > 0:Message filed, Y < 0:Message not filed
8 ;XMZ defined:Message delivered, XMZ not defined:No delivery.
9 ;A1B2XMY array contains network recipients which must be resolved.
10 ;
11EN1 Q:(XMSUB="")!(XMDUZ="")!(XMTEXT="")!('$D(XMY))
12 S XMN=0,AJ="" F I=0:0 S AJ=$O(A1B2XMY(AJ)) Q:AJ="" S X=AJ D WHO^XMA21
13 K XMZ S U="^",DIC="^XMB(3.9,",DIC(0)="L",DLAYGO=3.9,X=XMSUB D FILE^DICN K DIC G:Y<0 END
14EN2 S DA=$P(Y,U,1),K=0 L ^XMB(3.9,DA):1 G:'$T EN2 F I=1:1 S K=$O(@XMTEXT@(K)) Q:K="" S ^XMB(3.9,DA,2,I,0)=$S($D(@XMTEXT@(K))=10:@XMTEXT@(K,0),1:@XMTEXT@(K))
15 S ^XMB(3.9,DA,2,0)="^3.91^"_I_U_I
16 D NOW^%DTC S DIE="^XMB(3.9,",DR="1////"_XMDUZ_";1.4////"_% D ^DIE K DIE,DR,DLAYGO
17 S XMCHAN=1,XMDUN=$S($D(^DIC(3,XMDUZ,0)):$P(^(0),U,1),1:"POSTMASTER"),XMZ=DA K XMTEXT D ENT1^XMD
18 L D END
19 Q
20END ;
21 K %,A1B2XMY,DA,I,K,X,XMCHAN,XMDUN,XMDUZ,XMN,XMSUB,XMTEXT,XMY
22 Q
Note: See TracBrowser for help on using the repository browser.