Global: ^BGPGUIB

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

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

1)= S ^BGPGUIB("AC",$E(X,1,30),DA)=""

2)= K ^BGPGUIB("AC",$E(X,1,30),DA)

1)= S ^BGPGUIB("AUSR",$S($P($G(^BGPGUIB(DA,0)),"^",2):$P(^BGPGUIB(DA,0),"^",2),1:1),(9999999.9999-X),DA)=""

2)= K ^BGPGUIB("AUSR",$S($P($G(^BGPGUIB(DA,0)),"^",2):$P(^BGPGUIB(DA,0),"^",2),1:1),(9999999.9999-X),DA)