| 1 | VATRAN ;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=""
|
|---|
| 16 | Q K VATN,VATR,V,W Q
|
|---|
| 17 | ERR S V=$P($T(@VATERR),";;",2) W !,V,*7 K VAT G Q
|
|---|
| 18 | 1 ;;No such Transmission Router Name in TRANSMISSION ROUTERS File
|
|---|
| 19 | 2 ;;Transmission is turned OFF for receiving domains in TRANSMISSION ROUTERS file
|
|---|
| 20 | 3 ;;You do not hold the key to transmit to the domain (obsolete error)
|
|---|
| 21 | 4 ;;Can not transmit to 2 different QUEUEs in Austin, correct the Transmission file
|
|---|
