VistA Analysis » VistA Reference » RPCs » ORWNSS QOSCH

ORWNSS QOSCH

Properties

Property Value
Label QOSCH
MUMPS Implementation ORWNSS
Return Type SINGLE VALUE

MUMPS Method Description

Property Value
Method QOSCH^ORWNSS
Method Comment Validate IM QO schedule
Input Parameters QOID
First Comment
QOID: Inpt Pharmacy QO
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

CPRS

File Type Description
Pascal File Orders/rOrders.pas


Document generated on August 31st 2022, 2:55:43 pm