source: FOIAVistA/tag/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/VATRAN.m@ 1796

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

initial load of FOIAVistA 6/30/08 version

File size: 1.5 KB
Line 
1VATRAN ;ALB/MTC - Establish VADATS Transmission Variables ; 5/25/88 @ 12
2 ;;5.3;Registration;;Aug 13, 1993
3 ;Pass in VATNAME=name (.01 field) as in File 407.7
4 ;Returns VATERR=null if no error
5 ; VATERR=1 or 2 or 3 can't process (see error messages ERR^VATRAN)
6 ; if VATERR=null, then VAT array is returned as follows:
7 ; VAT(1),VAT(2),...=Receiving User(s),format: 'receiving user"@"domain mail router'
8 ; VAT("F")=MailMan Message Length - Fixed record
9 ; VAT("V")=MailMan Message Length - Variable record
10 K VAT,VATR S VATERR=1 G ERR:'$D(VATNAME) S VATN=$S('$D(^VAT(407.7,"B",VATNAME)):0,1:$O(^VAT(407.7,"B",VATNAME,0))) G ERR:'VATN S W=$S($D(^VAT(407.7,+VATN,0)):^(0),1:0) G ERR:W']"" S VAT("F")=$P(W,U,2),VAT("V")=$P(W,U,3),VATERR=2
11 I $D(^VAT(407.7,VATN,"R")) F V=0:0 S V=$O(^VAT(407.7,VATN,"R",V)) Q:'V I $P(^(V,0),"^",3) S W=^(0),VATR(V)=$P(W,"^")_"^"_$P(W,"^",2)
12 G ERR:'$D(VATR) S Q=0
13 F V=0:0 S V=$O(VATR(V)) Q:'V S W=$S($D(^DIC(4.2,+$P(VATR(V),U,2),0)):^(0),1:"") I W]"" S VAT(V)=$P(VATR(V),U)_"@"_$P(W,U) I $P(W,U)["Q-" S Q=Q+1
14 I Q>1 S VATERR=4 G ERR
15 S VATERR=""
16Q K VATN,VATR,V,W Q
17ERR S V=$P($T(@VATERR),";;",2) W !,V,*7 K VAT G Q
181 ;;No such Transmission Router Name in TRANSMISSION ROUTERS File
192 ;;Transmission is turned OFF for receiving domains in TRANSMISSION ROUTERS file
203 ;;You do not hold the key to transmit to the domain (obsolete error)
214 ;;Can not transmit to 2 different QUEUEs in Austin, correct the Transmission file
Note: See TracBrowser for help on using the repository browser.