Routine: ORCDLR1

Package	Total	Call Graph
Order Entry Results Reporting	6	XX^ORCACT4 ($$INPT,$$PTR,$$RECALL,$$VAL,LIST,SETLST1)^ORCD ($$MULT,CHANGED)^ORCDLR $$VALUE^ORCSAVE2 ($$DIV,$$LOC)^OREVNTX TEXT^ORQ12
Kernel	2	($$DOW,$$FMADD,$$NOW)^XLFDT $$UP^XLFSTR
Lab Service	1	($$DEFTIME,$$ON,$$VALID,SHOW)^LR7OV4
Toolkit	1	($$GET,GETLST)^XPAR
VA FileMan	1	^%DT

Package	Total	Caller Graph
Order Entry Results Reporting	10	ITEMS ORCDLR ORCDLR2 ORCDVBEC ORCSAVE2 ORCSEND1 ORCSEND2 ORWDXM2 ORWDXM4 ^ORD(101.41

Entry Points

Name	Comments	DBIA/ICR reference
EN	; -- Entry Action for LR OTHER LAB TESTS order dialog
EX	; -- Exit Action for order dialog
GETIMES	; -- Set list of routine collections into ORTIME($H)=FMtime
DEFTIME()	; -- Returns default collection time
IMMDEF()	; -- Returns immediate collect default
COLLTIME	; -- Get list of common collection times
CTMQ
NEXTCOLL(START)	; -- Returns the next day that routine lab collects are done
TIME(X)	; -- Returns 00:00AM from 0000 FileMan time
LISTCOLL	; -- Lists the routine collection times for ??-help
IMMTIMES	; -- Show the valid date/times for immediate collect
CKDATE(X)	; -- Valid coll time for SP or WC?
IMMCOLL(X)	; -- Valid immediate collection date/time?
LABCOLL(ORXTIM)	; -- Valid lab collection date/time? ; Returns valid flag of 1 or 0^message
LC1	; -- check date
LABSAMP()	; -- Lab Collect sample?
COLLTYPE()	; -- Returns default collection type
CTQ
CKTYPE	; -- Valid type for time, sample?
HELPTYPE	; -- Xecutable help for Coll Type
VALID(ORDER)	;check collection time on release
MULT	; -- ck child orders

External References

Name	Field # of Occurrence
^%DT	NEXTCOLL+5, CKDATE+4, IMMCOLL+2, LABCOLL+5
$$DEFTIME^LR7OV4	IMMDEF+1
$$ON^LR7OV4	GETIMES+11, HELPTYPE+4
$$VALID^LR7OV4	IMMCOLL+3
SHOW^LR7OV4	GETIMES+11, COLLTIME+1
XX^ORCACT4	VALID+14
$$INPT^ORCD	COLLTYPE+6
$$PTR^ORCD	GETIMES+3, GETIMES+12, CKTYPE+4
$$RECALL^ORCD	DEFTIME+4, COLLTYPE+4
$$VAL^ORCD	LABSAMP+1
LIST^ORCD	DEFTIME+8
SETLST1^ORCD	HELPTYPE+5
$$MULT^ORCDLR	MULT+1
CHANGED^ORCDLR	CKTYPE+4
$$VALUE^ORCSAVE2	VALID+3, VALID+4, VALID+15
$$DIV^OREVNTX	GETIMES+6
$$LOC^OREVNTX	GETIMES+6
TEXT^ORQ12	VALID+10
$$DOW^XLFDT	NEXTCOLL+7, LC1+7
$$FMADD^XLFDT	CKDATE+7, LC1+5
$$NOW^XLFDT	CKDATE+6, LC1+2, LC1+5
$$UP^XLFSTR	NEXTCOLL+7, CKDATE+1, LC1+7
$$GET^XPAR	EN+2, NEXTCOLL+6, NEXTCOLL+8, NEXTCOLL+9, LC1+4, LC1+6, LC1+8, LC1+9, COLLTYPE+5
GETLST^XPAR	GETIMES+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No routine lab collection times defined." Line Location: LISTCOLL+1
Function Call: WRITE	Prompt: !,"Routine collection times are "_X_"." Line Location: LISTCOLL+4
Function Call: WRITE	Prompt: !,"You may also enter AM for the morning collection, or NEXT for the next",!,"routine collection time." Line Location: LISTCOLL+5
Function Call: WRITE	Prompt: !,ORIMTIME(I) Line Location: IMMTIMES+2
Function Call: WRITE	Prompt: $C(7),!,"There are no lab collection times defined!" Line Location: CKTYPE+1
Function Call: WRITE	Prompt: $C(7),!,"There are no immediate collection times defined!" Line Location: CKTYPE+2
Function Call: WRITE	Prompt: $C(7),!,"There is no lab collection sample defined for this test!",! Line Location: CKTYPE+3
Function Call: WRITE	Prompt: !!,"SEND TO LAB - Means the patient is ambulatory and will be sent to the",!,"Laboratory draw room to have blood drawn." Line Location: HELPTYPE+1
Function Call: WRITE	Prompt: !,"WARD COLLECT - Means that either the physician or a nurse will be collecting",!,"the sample on the ward." Line Location: HELPTYPE+2
Function Call: WRITE	Prompt: !,"LAB BLOOD TEAM - Means the phlebotomist from Lab will draw the blood on the",!,"ward. This method is limited to laboratory defined collection times." Line Location: HELPTYPE+3
Function Call: WRITE	Prompt: !,"IMMEDIATE COLLECT BY BLOOD TEAM - Means the phlebotomist from Lab is on",!,"call to draw blood on the ward. This method is available during times",!,"defined by Laboratory." Condition for execution: $$ON^LR7OV4(ORDIV) Line Location: HELPTYPE+4
Function Call: WRITE	Prompt: ! Line Location: HELPTYPE+4
Function Call: WRITE	Prompt: !!,$C(7),$P(OK,U,2) Line Location: VALID+9
Function Call: WRITE	Prompt: !,$G(ORTXT(1)) Line Location: VALID+10
Function Call: WRITE	Prompt: !,"must be edited before signing/release." Line Location: VALID+11
Function Call: WRITE	Prompt: !!,$P(CHGD,U,2) Line Location: MULT+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^HOLIDAY - [#40.5]	NEXTCOLL+9, LC1+9
^LAB(62 - [#62]	LABSAMP+1
^OR(100 - [#100]	VALID+5, VALID+13
^SC - [#44]	GETIMES+5
^TMP("ORECALL"	DEFTIME+3, COLLTYPE+3
^XTV(8989.51 - [#8989.51]	LC1+4

Label References

Name	Line Occurrences
$$CKDATE	DEFTIME+5, VALID+7
$$IMMCOLL	DEFTIME+5, VALID+7
$$IMMDEF	DEFTIME+10
$$LABCOLL	DEFTIME+5, VALID+7
$$NEXTCOLL	COLLTIME+5, COLLTIME+12
$$TIME	COLLTIME+7, COLLTIME+10, COLLTIME+13, COLLTIME+14, LISTCOLL+3
CTMQ	COLLTIME+9
CTQ	COLLTYPE+1, COLLTYPE+2, COLLTYPE+3
GETIMES	EN+1, VALID+2
HELPTYPE	CTQ+3
IMMTIMES	DEFTIME+9
MULT	VALID+6, VALID+8, VALID+15

Naked Globals

Name	Field # of Occurrence
^(0	VALID+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	NEXTCOLL+1~, NEXTCOLL+4, CKDATE+3~, CKDATE+4, IMMCOLL+2~, LABCOLL+2~, LABCOLL+5
CHGD	MULT+1~*, MULT+2
CNT	GETIMES+1~, GETIMES+8, GETIMES+9, COLLTIME+4~, COLLTIME+7, COLLTIME+10, COLLTIME+13, COLLTIME+14*, CTMQ
COLLDT	VALID+1~, VALID+3*, VALID+6, VALID+7, VALID+15, MULT+1
COLLTYPE	VALID+1~, VALID+4*, VALID+7, MULT+1
D	CKDATE+3~, CKDATE+5*, CKDATE+7
DAY	COLLTIME+4~, COLLTIME+5, COLLTIME+6, COLLTIME+7, COLLTIME+10, COLLTIME+12, COLLTIME+13, COLLTIME+14
DOMAIN	HELPTYPE+5~*
DONE	CKTYPE+1!, CKTYPE+2!, CKTYPE+3!
DT	CKDATE+5, CKDATE+7, LC1+1, LC1+3
DUZ(2	GETIMES+5
>> EDITONLY	DEFTIME+1, DEFTIME+6, COLLTYPE+2, COLLTYPE+4, CTQ+3
>> FIRST	CTQ+3
HOUR	TIME+1~, TIME+2, TIME+3, TIME+4*, TIME+5
I	GETIMES+1~, GETIMES+3, GETIMES+4, GETIMES+8, GETIMES+9, GETIMES+10, GETIMES+12, COLLTIME+4~, COLLTIME+10, COLLTIME+12* , COLLTIME+14, LISTCOLL+2~, LISTCOLL+3, IMMTIMES+1~, IMMTIMES+2*, LABCOLL+2~
>> LRFDATE	DEFTIME+1
>> LRFZX	COLLTYPE+2
MIN	TIME+1~, TIME+2*, TIME+5
NEXT	COLLTIME+4~, COLLTIME+5, COLLTIME+6, COLLTIME+7, COLLTIME+10, COLLTIME+11, COLLTIME+14
NOW	COLLTIME+4~*, COLLTIME+5
OFFSET	NEXTCOLL+1~, NEXTCOLL+2, NEXTCOLL+3, NEXTCOLL+4
OK	VALID+1~, VALID+7*, VALID+8, VALID+9
ON	GETIMES+1~, GETIMES+11*, GETIMES+12
ORACT	VALID+1~, VALID+14*
ORCAT	EX+1!
ORCOLLCT	EX+1!, DEFTIME+2, DEFTIME+5, DEFTIME+8, DEFTIME+9, DEFTIME+10, COLLTIME+1, COLLTIME+2
ORD	LABCOLL+2~, LABCOLL+7*, LC1+1, LC1+3, LC1+7, LC1+9
ORDAYS	NEXTCOLL+1~, NEXTCOLL+3*
ORDER	VALID~, VALID+3, VALID+4, VALID+10, VALID+13, VALID+15, MULT+1
>> ORDIALOG	DEFTIME+3, COLLTYPE+3
>> ORDIALOG(	GETIMES+3, GETIMES+4, GETIMES+12, DEFTIME+8, COLLTIME+2!, COLLTIME+3, COLLTIME+7, COLLTIME+8, COLLTIME+10, COLLTIME+13 , COLLTIME+14, CTMQ, CKTYPE+4!, HELPTYPE+5
ORDIV	EX+1!, GETIMES+5, GETIMES+6, GETIMES+7, GETIMES+11, IMMDEF+1, COLLTIME+1, IMMCOLL+3, LC1+4, HELPTYPE+4 , VALID+1~, VALID+12~
ORDY	LABCOLL+2~, LC1+4*, LC1+5
>> ORESET	CKTYPE+4
OREVENT	GETIMES+6, CKDATE+6, LC1+2, LC1+3, VALID+1~, VALID+5*, VALID+6, VALID+8, VALID+15
>> ORIFN	VALID+5
ORIMTIME	EX+1!, GETIMES+11, COLLTIME+1, VALID+1~, VALID+12~
ORIMTIME(	IMMTIMES+2
ORIMTIME(0	DEFTIME+9, CTQ, CKTYPE+2
>> ORL	EN+2, EX+2, GETIMES+5, GETIMES+6, NEXTCOLL+6, LC1+4, LC1+6, COLLTYPE+5
ORMAX	EN+1, EN+2, EX+1!
ORNP	VALID+12~, VALID+13*
ORPTLK	VALID+1~
ORSCH	EX+1!
ORSMAX	EX+1!
ORSTMS	EX+1!
ORT	LABCOLL+2~, LABCOLL+7, LABCOLL+8, LABCOLL+9, LC1+3
ORTEST	EX+1!
ORTEST("Lab C	ollSamp" , CTQ, CTQ+1, CKTYPE+3
ORTIME	EX+1!, GETIMES+1!, GETIMES+7, GETIMES+9*, COLLTIME+9, VALID+1~, VALID+12~
ORTIME(	GETIMES+8*, GETIMES+9, GETIMES+10, COLLTIME+5, COLLTIME+7, COLLTIME+10, COLLTIME+14, LISTCOLL+3
ORTIME("AM"	GETIMES+9*, COLLTIME+13, LABCOLL+8
ORTIME("B"	GETIMES+8*, LABCOLL+9, LC1+3
ORTIME("NEXT"	GETIMES+10*
ORTIME(0	GETIMES+9, COLLTIME+3, COLLTIME+6, COLLTIME+11, COLLTIME+12, NEXTCOLL+1, LISTCOLL+1, LABCOLL+3, CTQ+1, CKTYPE+1
ORTXT	VALID+1~, VALID+10!
ORTXT(1	VALID+10
>> ORTYPE	CKDATE+6, LC1+3, LC1+8, LC1+9, COLLTYPE+1, COLLTYPE+6
ORXL	EX+2!, GETIMES+6*
ORXTIM	LABCOLL~, LABCOLL+4, LABCOLL+5*, LABCOLL+7, LC1+2, LC1+5
PARAM	NEXTCOLL+1~, NEXTCOLL+7, NEXTCOLL+8, LABCOLL+2~, LC1+7, LC1+8
>> PROMPT	DEFTIME+3, DEFTIME+4, DEFTIME+8, COLLTIME+2, COLLTIME+3, COLLTIME+7, COLLTIME+8, COLLTIME+10, COLLTIME+13, COLLTIME+14 , CTMQ, COLLTYPE+3, COLLTYPE+4, HELPTYPE+5
START	NEXTCOLL~, NEXTCOLL+2*, NEXTCOLL+4
U	GETIMES+3, GETIMES+4, GETIMES+5, GETIMES+8, GETIMES+12, IMMDEF+2, LABSAMP+1, HELPTYPE+5, VALID+5, VALID+9 , VALID+13, MULT+2
VALIDT	GETIMES+2, GETIMES+12, VALID+1~, VALID+2*, VALID+11!
X	GETIMES+1~, GETIMES+3, GETIMES+4, GETIMES+8, GETIMES+12, IMMDEF+1~, IMMDEF+2, COLLTIME+4~, COLLTIME+10, COLLTIME+13* , COLLTIME+14, NEXTCOLL+1~, NEXTCOLL+3, NEXTCOLL+4, NEXTCOLL+5!, NEXTCOLL+8!, NEXTCOLL+9!, NEXTCOLL+10, TIME~, TIME+2 , LISTCOLL+2~, LISTCOLL+3, LISTCOLL+4, CKDATE~, CKDATE+1, CKDATE+2, CKDATE+4, CKDATE+5, CKDATE+6, IMMCOLL~ , IMMCOLL+1, IMMCOLL+2, IMMCOLL+3, LABCOLL+2~, LABCOLL+5, LABSAMP+1~*
XM	TIME+1~, TIME+2, TIME+3, TIME+5
Y	DEFTIME+3~, DEFTIME+4, DEFTIME+5, IMMDEF+1~, IMMDEF+2, IMMDEF+3, NEXTCOLL+1~, NEXTCOLL+5, NEXTCOLL+7, NEXTCOLL+9 , NEXTCOLL+10, NEXTCOLL+11, TIME+1~, TIME+5, TIME+6, CKDATE+3~, CKDATE+4, IMMCOLL+2~, LABCOLL+2~, LABCOLL+5 , LABSAMP+1~, LABSAMP+2, COLLTYPE+1~, COLLTYPE+2, COLLTYPE+4, COLLTYPE+5, COLLTYPE+6, CTQ, CTQ+1, CTQ+4 , CKTYPE+1, CKTYPE+2, CKTYPE+3, CKTYPE+4

Customize PDF page

Package: Order Entry Results Reporting

Routine: ORCDLR1

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 10

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: