Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: A1B2T4

A1B2T4.m

Go to the documentation of this file.
  1. A1B2T4 ;ALB/EG - XM UTILITY ;FEB 7 1991
  1. ;;Version 1.55 (local for MAS v5 sites);;
  1. ;;V1.0
  1. ;XMTEXT array must have closed form, i.e. XMTEXT="AX" or "AX(1)"
  1. ;"AX(2," is not allowed. Local or global are allowed.
  1. ;XMDUZ must be valid DUZ or POSTMASTER. Returned variables
  1. ;Y > 0:Message filed, Y < 0:Message not filed
  1. ;XMZ defined:Message delivered, XMZ not defined:No delivery.
  1. ;A1B2XMY array contains network recipients which must be resolved.
  1. ;
  1. EN1 Q:(XMSUB="")!(XMDUZ="")!(XMTEXT="")!('$D(XMY))
  1. S XMN=0,AJ="" F I=0:0 S AJ=$O(A1B2XMY(AJ)) Q:AJ="" S X=AJ D WHO^XMA21
  1. 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
  1. EN2 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))
  1. S ^XMB(3.9,DA,2,0)="^3.91^"_I_U_I
  1. D NOW^%DTC S DIE="^XMB(3.9,",DR="1////"_XMDUZ_";1.4////"_% D ^DIE K DIE,DR,DLAYGO
  1. S XMCHAN=1,XMDUN=$S($D(^DIC(3,XMDUZ,0)):$P(^(0),U,1),1:"POSTMASTER"),XMZ=DA K XMTEXT D ENT1^XMD
  1. L D END
  1. Q
  1. END ;
  1. K %,A1B2XMY,DA,I,K,X,XMCHAN,XMDUN,XMDUZ,XMN,XMSUB,XMTEXT,XMY
  1. Q