ORWDLR32 LAB COLL TIME

Is the given time a routine lab collection time for the given location?

Properties

Property Value
Label LABCOLTM
MUMPS Implementation ORWDLR33
Return Type SINGLE VALUE

Input Parameters

Name Type Maximum Data Length Required Description
Collection Time LITERAL 16 true Valid FileMan data/time string to check whether it is a valid labcollect time.
Location LITERAL 16 true Pointer to Hospital Location

MUMPS Method Description

Property Value
Method LABCOLTM^ORWDLR33
Method Comment Is this a routine lab collect time for this location?
Input Parameters ORDATE, ORLOC
Code
`` N ORDA,ORTI,ORDOW,ORCTM,I,X,Y S ORYN=0 Q:'\$G(ORDATE)!(\$G(ORDATE)<0)!('\$G(ORLOC)) S ORDA=\$P(ORDATE,".",1),ORTI=\$P(ORDATE,".",2) S I=0 F  S I=\$L(ORTI) Q:I>3  S ORTI=ORTI_"0" S X=ORDA D DW^%DTC S ORDOW=X D GETLST^XPAR(.ORCTM,"ALL","LR PHLEBOTOMY COLLECTION","Q") S I=0 F  S I=\$O(ORCTM(I)) Q:'I  D . S:\$P(ORCTM(I),U,2)=ORTI ORYN=1 Q:ORYN=0 I \$G(ORLOC),\$\$GET^XPAR(ORLOC_";SC(","LR EXCEPTED LOCATIONS",1,"Q") S ORYN=1 Q I '\$\$GET^XPAR("ALL","LR IGNORE HOLIDAYS",1,"Q"),\$D(^HOLIDAY(ORDA,0)) S ORYN=0 Q I \$\$GET^XPAR("ALL","LR COLLECT "_ORDOW,1,"Q") S ORYN=1 Q S ORYN=0``

CPRS

File Type Description
Pascal File Orders/rODLab.pas

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