VistA Analysis » VistA Reference » RPCs » ORWDLR32 MAXDAYS

ORWDLR32 MAXDAYS

Returns the maximum number of days for a continuous lab order.

Properties

Property Value
Label MAXDAYS
MUMPS Implementation ORWDLR33
Return Type SINGLE VALUE

MUMPS Method Description

Property Value
Method MAXDAYS^ORWDLR33
Method Comment Return max number of days for a continuing order
Input Parameters LOC, SCHED
Code 
 N TMP1,TMP2
 K ^TMP($J,"ORWDLR33 MAXDAYS")
 S TMP1=$$GET^XPAR("ALL^LOC.`"_+LOC,"LR MAX DAYS CONTINUOUS",1,"Q")
 I +TMP1=0 S Y="-1" Q
 I +$G(SCHED)>0 D ZERO^PSS51P1(SCHED,,,,"ORWDLR33 MAXDAYS") S TMP2=$G(^TMP($J,"ORWDLR33 MAXDAYS",SCHED,2.5)) K ^TMP($J,"ORWDLR33 MAXDAYS")
 E  S TMP2=0
 I +TMP1=0,+TMP2>0 S Y=TMP2 Q
 I +TMP2=0,+TMP1>0 S Y=TMP1 Q
 S Y=$S(+TMP1>+TMP2:+TMP2,+TMP2>+TMP1:+TMP1,+TMP1=+TMP2:+TMP1,1:0)
 K ^TMP($J,"ORWDLR33 MAXDAYS")

CPRS

File Type Description
Pascal File Orders/rODLab.pas


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