| 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:"") |