Global: ^BGPNPLW

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

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

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

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

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

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

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

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

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

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

WRITE AUTHORITY:  @