Global: ^ACR1099V

1)= S ^ACR1099V("B",$E(X,1,30),DA)=""

2)= K ^ACR1099V("B",$E(X,1,30),DA)

If the Vendor has a non-USA address, this field needs to be flagged as FOREIGN and left blank if it is not.

The input transform replaces any entry that isn't 'Yes" with the null character.

9.2 = S Y(9002198.2,2,1)=$S($D(^ACR1099V(D0,0)):^(0),1:"") S X=$P(Y(9002198.2,2,1),U,3)]"",Y(9002198.2,2,2)=X S X=$P(Y(9002198.2,2,1),U,3),Y(9002198.2,2,3)=X S X=1

9.3 = X ^DD(9002198.2,2,9.2) S Y(9002198.2,2,4)=X S X=$S('$D(^AUTTVNDR(+$P(Y(9002198.2,2,1),U,1),0)):"",1:$P(^(0),U,1))

Used to print either the IRS NAME if it exists or the VENDOR NAME if no IRS NAME exists.