| 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
|