N Z,ADDR,OK,PCE F Z=1,2 S ADDR=$G(IBXSAVE("OTH_PAY_ADDR",Z)) I ADDR'="" S OK=1 X "F PCE=1,4,5,6 I $P(ADDR,U,PCE)="""" S OK=0 Q" I 'OK K IBXSAVE("OTH_PAY_ADDR",Z)
FORMAT CODE DESCRIPTION
If the other payer address is missing any component among address line 1,
city, state, or zip, then blank out the entire address. We can't send
partial addresses.