DC PERSON (1071) OE/RR PRINT FIELDS (100.22)

Name	Value
NAME	DC PERSON
EXAMPLE ENTRY	By: BROWN, JOHN (Pharmacist)
VARIABLE	ORXRBY
CODE FOR SETTING VARIABLE	S ORXRBY="" I $G(ORIFN),$L($P($G(^OR(100,ORIFN,6)),"^",2)) S X=$P(^(6),"^",2),ORXRBY="By: "_$P(^VA(200,X,0),"^")_$S($P(^(0),"^",9):" ("_$E($P(^DIC(3.1,$P(^(0),"^",9),0),"^"),1,10)_")",1:"")