VistA Analysis » VistA Reference » RPCs » ORWDPS2 MAXREF

ORWDPS2 MAXREF

Properties

Property Value
Label MAXREF
MUMPS Implementation ORWDPS2
Return Type SINGLE VALUE

MUMPS Method Description

Property Value
Method MAXREF^ORWDPS2
Method Comment return the maximum number of refills
Input Parameters PAT, DRG, SUP, OI, OUT
First Comment 
 PAT=Patient DFN, DRG=ptr50, SUP=days supply, OI=orderable item
 VAL: maximum refills allowed
Code 
 N ORWX
 S ORWX("PATIENT")=PAT
 I $G(DRG) S ORWX("DRUG")=+DRG
 I $G(SUP) S ORWX("DAYS SUPPLY")=SUP
 I $G(OI)  S ORWX("ITEM")=+$P(^ORD(101.43,+OI,0),U,2)
 I $G(OUT) S ORWX("DISCHARGE")=1
 D MAX^PSOSIGDS(.ORWX)
 S VAL=$G(ORWX("MAX"))

CPRS

File Type Description
Pascal File Orders/rODMeds.pas


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