Global: ^BOP(90355.2

DELETE AUTHORITY: #

WRITE AUTHORITY:  #

READ AUTHORITY:   #

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

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

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

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

1)= I X?1"S".E N BOPNOD,BOPDFN,BOPDRG S BOPNOD=^BOP(90355.2,DA,0),BOPDFN=$P(BOPNOD,U,2),BOPDRG=+BOPNOD I BOPDRG,BOPDFN S ^BOP(90355.2,"AT",BOPDFN,BOPDRG,DA)=""

2)= N BOPNOD,BOPDFN,BOPDRG S BOPNOD=^BOP(90355.2,DA,0),BOPDRG=+BOPNOD,BOPDFN=$P(BOPNOD,U,2) I BOPDRG,BOPDFN K ^BOP(90355.2,"AT",BOPDFN,BOPDRG,DA)