Global: ^AMHRPROV

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

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

1)= S:$D(AMHLOOK) DIC("DR")=""

2)= Q

9.2 = S Y(9002011.02,.019,80)=$S($D(D0):D0,1:""),Y(9002011.02,.019,1)=$S($D(^AMHRPROV(D0,0)):^(0),1:"")

9.3 = X ^DD(9002011.02,.019,9.2) S D0=$P(Y(9002011.02,.019,1),U,1) S:'$D(^VA(200,+D0,0)) D0=-1 S Y(9002011.02,.019,101)=$S($D(^VA(200,D0,"PS")):^("PS"),1:"")

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

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

UNEDITABLE

1)= S ^AMHRPROV("AD",$E(X,1,30),DA)=""

2)= K ^AMHRPROV("AD",$E(X,1,30),DA)