Global: ^BGPGUI

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

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

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

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

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

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