Code |
S ORY="" N QOSCH,SCHID,SCHVAL,RST S SCHID=$O(^ORD(101.41,"B","OR GTX SCHEDULE",0)) S (QOSCH,SCHVAL)="",RST=1 I '$D(^ORD(101.41,+QOID,6,"D",SCHID)) S ORY="schedule is not defined." Q S QOSCH=$O(^ORD(101.41,+QOID,6,"D",SCHID,0)) I 'QOSCH S ORY="schedule is not defined." Q N IDX S IDX=0 F S IDX=$O(^ORD(101.41,+QOID,6,QOSCH,IDX)) Q:'IDX!('RST) D . S SCHVAL=^ORD(101.41,+QOID,6,QOSCH,IDX) . I $$UP^XLFSTR(SCHVAL)="OTHER" S ORY="OTHER" Q . D VALSCH^ORWDPS33(.RST,SCHVAL,"I") . I RST=0 S ORY="This quick order contains a non-standard administration schedule." Q
|