Global: ^BGPELIIN

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

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

9.2 = S DIT(80)=$S($D(D0):D0,1:""),DIT(1)=$S($D(^BGPELIIN(D0,0)):^(0),1:""),D0=$P(DIT(1),U,1) S:'$D(^BGPIND(+D0,0)) D0=-1

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

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

WRITE AUTHORITY:  @

WRITE AUTHORITY:  @

1)= S ^BGPELIIN("ABC",$P(X,".",1,2),$TR(X,".",""),DA)=""

2)= K ^BGPELIIN("ABC",$P(X,".",1,2),$TR(X,".",""),DA)

1)= S ^BGPELIIN("AB",$P(X,".",1,2),X,DA)=""

2)= K ^BGPELIIN("AB",$P(X,".",1,2),X,DA)

1)= S ^BGPELIIN("OR",$E(X,1,30),DA)=""

2)= K ^BGPELIIN("OR",$E(X,1,30),DA)

1)= S ^BGPELIIN("AP",$P(X,".",1,2),DA)=""

2)= K ^BGPELIIN("AP",$P(X,".",1,2),DA)

1)= S ^BGPELIIN("AE",$P(X,"."),$P(X,".",2),$P(X,".",3),DA)=""

2)= Q