Global: ^AMHRPA

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

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

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

2)= Q

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

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

UNEDITABLE

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

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