DC REASON (1070) OE/RR PRINT FIELDS (100.22)

Name	Value
NAME	DC REASON
EXAMPLE ENTRY	DC'ed >Duplicate
VARIABLE	ORXREAS
CODE FOR SETTING VARIABLE	S ORXREAS="" I $G(ORIFN) S ORXREAS=$G(^OR(100,ORIFN,6)),ORXREAS=$S($L($P(ORXREAS,"^",5)):$P(ORXREAS,"^",5),$P(ORXREAS,"^",4):$P(^ORD(100.03,$P(ORXREAS,"^",4),0),"^"),+ORXREAS:$P(^ORD(100.02,+ORXREAS,0),"^"),1:"")