VistA Analysis » VistA Reference » RPCs » ORWDPS1 DFLTSPLY

ORWDPS1 DFLTSPLY

Properties

Property Value
Label DFLTSPLY
MUMPS Implementation ORWDPS1
Return Type SINGLE VALUE

MUMPS Method Description

Property Value
Method DFLTSPLY^ORWDPS1
Method Comment return days supply given quantity
Input Parameters UPD, SCH, PAT, DRG, OI
First Comment 
 VAL: default days supply
Code 
 N ORWX,I,PSOI,TPKG
 S ORWX("PATIENT")=PAT
 I DRG S ORWX("DRUG")=DRG
 I $D(OI) D
 . S TPKG=$P($G(^ORD(101.43,+$G(OI),0)),U,2) Q:TPKG'["PS"
 . S PSOI=+TPKG Q:PSOI'>0
 . S ORWX("OI")=PSOI
 F I=1:1:$L(UPD,U)-1 D
 . S ORWX("DOSE ORDERED",I)=$P(UPD,U,I)
 . S ORWX("SCHEDULE",I)=$P(SCH,U,I)
 D DSUP^PSOSIGDS(.ORWX)
 S VAL=$G(ORWX("DAYS SUPPLY"))

CPRS

File Type Description
Pascal File Orders/rODMeds.pas


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