Global: ^BGPGUIA

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

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

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

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

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

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