Routine: ORCDLR

Package	Total	Call Graph
Order Entry Results Reporting	5	($$MORE,$$VAL,LIST)^ORCD P^ORCDLGH ($$IMMCOLL,$$LABCOLL)^ORCDLR1 ($$VALUE,AM,NEXT)^ORCSAVE2 SCHEDULE^ORCSEND1
VA Fileman	3	^%DT $$GET1^DIQ ^DIR
Lab Service	1	(SCOM,TEST)^LR7OR3
Pharmacy Data Management	1	(AP,ZERO)^PSS51P1
Toolkit	1	$$GET^XPAR

Package	Total	Caller Graph
Order Entry Results Reporting	1	ORCDLR1

Entry Points

Name	Comments	DBIA/ICR reference
SPECHELP	; -- Xecutable help for Specimen prompt
ENSAMP	; -- Get list of samples to pick from
SECTION()	; -- Returns Lab section of Orderable Item
CKQ
ASKSAMP()	; -- Ask for Collection Sample?
RQ
SPECIMEN()	; -- Get default specimen from Sample for INST
DATE(X)	; Free text input to FM time
XHELP(PTR)	; -- Xecutable help
SHOWMAX	; -- Setup max days allowed for cont orders
WAIT	; -- Wait for user
ASKURG()	; -- Ask urgency prompt?
CHANGED(FLD)	; -- Kill dependent values when FLD changes
CKTYP	; -- ck type of test [Exit Action]
URGENCY	; -- Get list of urgencies to pick from
SAMPLE()	; -- Get default sample from Test for INST
MULT(ORIFN,CTYPE,CDATE)	;check multiple orders from VALID^ORCDLR1
SAMPQ
LB(ORDER)	; -- Returns 1 or 0, if "LB #" is already in text
CKMAX(X)	; -- Ck duration X against max allowed
TEST	; -- Setup ORTEST() array of ordering parameters
XSCH	; -- xecutable help for schedule prompt
SHOWCOMM(SAMP)	; -- Show comments for sample
REQDCOMM()	; -- Process required comments

External References

Name	Field # of Occurrence
^%DT	DATE+2, MULT+6
$$GET1^DIQ	ENSAMP+3
^DIR	ASKSAMP+9
SCOM^LR7OR3	SHOWCOMM+2
TEST^LR7OR3	TEST+3
$$MORE^ORCD	SPECHELP+5
$$VAL^ORCD	SPECIMEN+2, REQDCOMM+3
LIST^ORCD	ASKSAMP+10, XHELP+1
P^ORCDLGH	SPECHELP+1, XHELP+2
$$IMMCOLL^ORCDLR1	MULT+10
$$LABCOLL^ORCDLR1	MULT+9
$$VALUE^ORCSAVE2	MULT+2, MULT+4
AM^ORCSAVE2	MULT+5
NEXT^ORCSAVE2	MULT+5
SCHEDULE^ORCSEND1	MULT+7
AP^PSS51P1	XSCH+3
ZERO^PSS51P1	SHOWMAX+2
$$GET^XPAR	ASKURG+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: TEST+4
Function Call: WRITE	Prompt: !,ORTEST(WRD,I,0) Line Location: TEST+5
Function Call: WRITE	Prompt: $C(7),!,"This test may not be ordered anymore. Please select another test." Line Location: CKTYP+3
Function Call: WRITE	Prompt: !,"Press <return> to continue ..." Line Location: WAIT+1
Function Call: WRITE	Prompt: !!,"Maximum number of days for continuous orders is "_ORSMAX_"; enter a duration",!,"as either a number of days (3) or Xnumber of times (X3).",! Line Location: SHOWMAX+9
Function Call: WRITE	Prompt: !!,"Lab will collect "_$P(SAMP0,U)_" "_$P(SAMP0,U,3)_".",! Line Location: ASKSAMP+4
Function Call: WRITE	Prompt: !,ORCOMM(I,0) Line Location: SHOWCOMM+3
Function Call: WRITE	Prompt: !,"Choose from: " Line Location: SPECHELP+2
Function Call: WRITE	Prompt: !," "_$P($G(^LAB(61,I,0)),U) Line Location: SPECHELP+6
Function Call: WRITE	Prompt: !!,"Choose from:" Line Location: XSCH+4
Function Call: READ	Timeout: DTIME Variable: Z Line Location: XSCH+10
Function Call: WRITE	Prompt: ! Line Location: XSCH+11
Routine Call	DIR Line Location: ASKSAMP+9

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^LAB(61 - [#61]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(60 - [#60]	REQDCOMM+4, REQDCOMM+5, REQDCOMM+6
^LAB(61 - [#61]	SPECHELP+1, SPECHELP+4, SPECHELP+6
^LAB(62 - [#62]	ASKSAMP+2, SPECIMEN+2
^LAB(62.05 - [#62.05]	URGENCY+5
^LAB(62.07 - [#62.07]	REQDCOMM+7, REQDCOMM+8
^OR(100 - [#100]	LB+2
^ORD(100.98 - [#100.98]	TEST+7
^ORD(101.41 - [#101.41]	SECTION+2, CHANGED+4
^ORD(101.43 - [#101.43]	TEST+3, TEST+6, CKTYP+2, SECTION+3
^TMP("ORWORD"	REQDCOMM+1, REQDCOMM+12*
^TMP($J	SHOWMAX+1!, SHOWMAX+3, SHOWMAX+5, SHOWMAX+10!, XSCH+2!, XSCH+5, XSCH+7, XSCH+12!

Label References

Name	Line Occurrences
$$CKMAX	SHOWMAX+8
$$SECTION	ENSAMP+6
CKQ	CKMAX+2, CKMAX+3, CKMAX+4, CKMAX+5
SAMPQ	SAMPLE+2, SAMPLE+3
WAIT	CKTYP+3

Naked Globals

Name	Field # of Occurrence
^(	SPECHELP+4, REQDCOMM+8, LB+2
^(0	SHOWMAX+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	DATE+1~, MULT+1~, MULT+6*
CDATE	MULT~, MULT+4*, MULT+5, MULT+6
CNT	ENSAMP+1~, ENSAMP+4, ENSAMP+6, SPECHELP+3~, SPECHELP+5, REQDCOMM+2~, REQDCOMM+9, REQDCOMM+10, REQDCOMM+11, REQDCOMM+12 , XSCH+1~, XSCH+4, XSCH+9*
CTYPE	MULT~, MULT+2*, MULT+3, MULT+9
DA	REQDCOMM+2~, REQDCOMM+4*, REQDCOMM+5
DEFSAMP	ASKSAMP+1~, ASKSAMP+2*, ASKSAMP+3, ASKSAMP+5, ASKSAMP+6
DG	TEST+1~, TEST+6, TEST+7
DIR	ASKSAMP+1~
DIR("A"	ASKSAMP+8*
DIR("B"	ASKSAMP+8*
DIR(0	ASKSAMP+8*
DONE	SPECHELP+3~, SPECHELP+5, XSCH+1~, XSCH+5, XSCH+7, XSCH+10*
DT	REQDCOMM+12
DTIME	WAIT+1, XSCH+10
>> DTOUT	ASKSAMP+9
>> DUOUT	ASKSAMP+9
>> FIRST	SHOWMAX+8, ASKSAMP+6, ASKURG+2
FLD	CHANGED~, CHANGED+3
I	TEST+1~, TEST+5, ENSAMP+1~, ENSAMP+2, SHOWCOMM+1~, SHOWCOMM+3, SPECHELP+3~, SPECHELP+4, SPECHELP+6, URGENCY+1~ , URGENCY+4, URGENCY+5, REQDCOMM+2~, REQDCOMM+9, REQDCOMM+10, LB+1~, LB+2
IFN	XSCH+1~, XSCH+5, XSCH+7
>> INST	TEST+2, CKTYP+1, SHOWMAX+3, SHOWMAX+8, ASKSAMP+2, REQDCOMM+1, REQDCOMM+12
IOSL	SPECHELP+5, XSCH+9
J	URGENCY+1~, URGENCY+4, URGENCY+6, URGENCY+7
KID	MULT+1~, MULT+8*, MULT+9, MULT+10
LRCCOM	REQDCOMM+2~, REQDCOMM+11
>> LRFSAMP	SAMPLE+1
>> LRFSPEC	SPECIMEN+1
LRSAMP	REQDCOMM+2~, REQDCOMM+3*, REQDCOMM+4
LRSPEC	REQDCOMM+2~, REQDCOMM+3*
LRTCOM	REQDCOMM+2~
LRTCOM(	REQDCOMM+10
LRTEST	REQDCOMM+2~
LRTEST(1	REQDCOMM+4*, REQDCOMM+5, REQDCOMM+6, REQDCOMM+10
LRTSTN	REQDCOMM+2~, REQDCOMM+4*
NAME	CHANGED+1~, CHANGED+4*
OI	TEST+1~, TEST+2*, TEST+3, TEST+6
OK	SHOWMAX+5~, SHOWMAX+8, MULT+1~, MULT+8, MULT+9, MULT+10, MULT+11
ORCOLLCT	SAMPLE+2, ASKSAMP+4, URGENCY+5, CHANGED+1!
ORCOMM	SHOWCOMM+1~, SHOWCOMM+2
ORCOMM(	SHOWCOMM+3
ORDER	LB~, LB+2
>> ORDG	TEST+7*
>> ORDIALOG(	TEST+2, CKTYP+1, SHOWMAX+3!, SHOWMAX+8!, ENSAMP+1, ENSAMP+4, ENSAMP+5, ENSAMP+6, ASKSAMP+2, ASKSAMP+7 , SECTION+3, URGENCY+1, URGENCY+2, URGENCY+3, URGENCY+6, URGENCY+7, ASKURG+3, REQDCOMM+12, XHELP+1, CHANGED+4!
OREVENT	MULT+1~
>> ORI	CHANGED+4
ORIFN	MULT~, MULT+2, MULT+4, MULT+7
>> ORL	ASKURG+2
>> ORMAX	SHOWMAX+7
>> ORQUIT	CKTYP+3, ASKSAMP+9
>> ORSCH	SHOWMAX+2, SHOWMAX+3, SHOWMAX+5
>> ORSMAX	SHOWMAX+5, SHOWMAX+7, SHOWMAX+9, CKMAX+2, CKMAX+5
>> ORSTMS	SHOWMAX+5, SHOWMAX+7, CKMAX+4, CKMAX+5
ORSTRT	MULT+1~, MULT+7
ORSTRT(	MULT+8
>> ORTEST	TEST+3*, SHOWCOMM+1, SHOWCOMM+2, REQDCOMM+4
>> ORTEST(	TEST+4, TEST+5
>> ORTEST("CollSamp"	SAMPQ, ENSAMP+2
>> ORTEST("Defau	lt CollSamp" , SAMPLE+4, lt Urgency" , URGENCY+2, ASKURG+1
>> ORTEST("Lab C	ollSamp" , SAMPLE+2, ASKSAMP+4
>> ORTEST("Uniqu	e CollSamp" , SAMPLE+3, ASKSAMP+5
>> ORTEST("Urgencies"	URGENCY+3, URGENCY+4, URGENCY+5
>> ORTYPE	SHOWMAX+7, SHOWMAX+8, ASKSAMP+3, REQDCOMM+7
P	CHANGED+1~, CHANGED+4*
>> PROMPT	TEST+2, CKTYP+1, SHOWMAX+3, SHOWMAX+8, ENSAMP+1, ENSAMP+4, ENSAMP+5, ENSAMP+6, ASKSAMP+2, ASKSAMP+7 , URGENCY+1, URGENCY+2, URGENCY+3, URGENCY+6, URGENCY+7, ASKURG+3, REQDCOMM+1, REQDCOMM+12
PROMPTS	CHANGED+1~, CHANGED+2, CHANGED+3, CHANGED+4
PTR	SECTION+1~, SECTION+2, SECTION+3, XHELP~, XHELP+1, CHANGED+1~, CHANGED+4
REQDCOMM	REQDCOMM+2~, REQDCOMM+5, REQDCOMM+6, REQDCOMM+7, REQDCOMM+8, REQDCOMM+9!, REQDCOMM+12
REQDCOMM(	REQDCOMM+10, REQDCOMM+11
REQDCOMM(0	REQDCOMM+12*
SAMP	SHOWCOMM~, SHOWCOMM+1, SHOWCOMM+2
SAMP0	ASKSAMP+1~, ASKSAMP+2*, ASKSAMP+4, ASKSAMP+8
SP	SPECHELP+3~, SPECHELP+4
TST	TEST+1~, TEST+3*
U	TEST+3, TEST+6, CKTYP+2, SHOWMAX+3, SHOWMAX+5, ENSAMP+3, ENSAMP+5, ASKSAMP+4, ASKSAMP+8, SECTION+3 , SPECIMEN+2, SPECHELP+6, URGENCY+5, URGENCY+6, REQDCOMM+5, REQDCOMM+6, REQDCOMM+7, REQDCOMM+12, XHELP+1, CHANGED+4
WRD	TEST+1~, TEST+4*, TEST+5
X	CKTYP+1~, CKTYP+2, WAIT+1~, CKMAX~, CKMAX+2, CKMAX+3, CKMAX+4, CKMAX+5, SAMPLE+1~, SAMPLE+2* , SAMPLE+3, SAMPLE+4, SAMPQ, ENSAMP+1~, ENSAMP+2, ENSAMP+3, ENSAMP+5, ASKSAMP+1~, SECTION+1~, SECTION+3 , SECTION+4, SPECIMEN+1~, SPECIMEN+2, URGENCY+1~, URGENCY+5, URGENCY+6, XHELP+1, DATE~, XSCH+1~, XSCH+5* , XSCH+7, XSCH+9, MULT+1~, MULT+6*
Y	CKTYP+1~, CKTYP+2, CKTYP+3, SHOWMAX+5~, SHOWMAX+8, CKMAX+1~, CKMAX+2, CKMAX+3, CKMAX+4, CKMAX+5* , CKMAX+6, CKQ, SAMPLE+1~, SAMPQ, SAMPQ+1, ENSAMP+1~, ENSAMP+3, ENSAMP+4, ASKSAMP+1~, ASKSAMP+10 , ASKSAMP+11, SPECIMEN+1~, SPECIMEN+2, SPECIMEN+3, LB+1~, LB+2*, LB+3, DATE+1~, DATE+3, MULT+1~ , MULT+6, MULT+7
Z	XSCH+1~, XSCH+10*

Customize PDF page

Package: Order Entry Results Reporting

Routine: ORCDLR

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: