Global: ^BGPNPLR

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

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

1)= S ^BGPNPLR("C",$E(X,1,30),DA)=""

2)= K ^BGPNPLR("C",$E(X,1,30),DA)

1)= S ^BGPNPLR("AR",+^BGPNPLR(DA,0),X,DA)=""

2)= K ^BGPNPLR("AR",+^BGPNPLR(DA,0),X,DA)

1)= S ^BGPNPLR("AN",+^BGPNPLR(DA,0),X,DA)=""

2)= K ^BGPNPLR("AN",+^BGPNPLR(DA,0),X,DA)

1)= S ^BGPNPLR("AON",+^BGPNPLR(DA,0),X,DA)=""

2)= K ^BGPNPLR("AON",+^BGPNPLR(DA,0),X,DA)

WRITE AUTHORITY:  @