Routine: ORCDFH

Call Graph

Call Graph Total: 12

Package	Total	Call Graph
Order Entry Results Reporting	6	($$DUP,$$INPT,$$PTR,$$VAL,GETDLG)^ORCD EN^ORCDLG1 EN^ORCSAVE $$LOC^OREVNTX TEXT^ORQ12 $$VALUE^ORX8
Dietetics	2	CUR^FHORD7 (EN,EN1,EN2)^FHWOR8
Kernel	2	($$FMTE,$$NOW)^XLFDT $$UP^XLFSTR
VA Fileman	2	^%DT ^DIR

Package	Total	Caller Graph
Order Entry Results Reporting	7	ORCDFHO ORCDFHTF ORCSIGN ORMBLDFH ORMFH ORWDFH ORWDXM2
Dietetics	2	FHWOR2 FHWOR5

Package

Total

Caller Graph

Order Entry Results Reporting

ORCDFHO ORCDFHTF ORCSIGN ORMBLDFH ORMFH ORWDFH ORWDXM2

Dietetics

FHWOR2 FHWOR5

Entry Points

Name	Comments	DBIA/ICR reference
LTRAY	; -- enter here w/ORDATE,ORSTRT,ORNP [reinstated diet after dc'ing NPO]
CONT()	; -- Ok to continue?
VALID()	; -- Returns 1 or 0, if selected diet modification is valid
ORDTRAY(M)	; -- Want to order tray for meal M?
LT1
EN2	; -- Reformat ORPARAM() into ORTIME(<tray>,<meal>,1-3)=ext^ext
MEALS	; -- Sets meal times into ORDIALOG(PROMPT,"LIST")
NOTIMES(MEAL,TIME)	; -- If no tray times defined, write msg and reask
EN	; -- entry action
CKFUTURE	; -- Ck for future diet orders
CURRENT(DG)	; -- Returns order number of currently active DG order
ASKSTOP()	; -- Ck OI's for parameter
LATETRAY	; -- Order a late tray with diet ORIFN? [from VALID^ORCSIGN]
CANCEL(ORIFN)	; -- Return 1 or 0, if future trays should be cancelled
DELIVERY	; -- Set available delivery/service types by location
EX	; -- exit action
DIET(DFN)	; -- Returns patient DFN's current diet order
RESUME(ORDER)	; -- Returns 1 or 0, if tray service should be resumed
FUTURE(FLD)	; -- Returns 1 or 0, if date from FLD is future
SCHEDOK(X)	; -- Validates days of the week
NTQ
FMTIME(X)	; -- Returns FM format of time
CKTIME	; -- Validate meal time

External References

Name	Field # of Occurrence
^%DT	FMTIME+1, FUTURE+2, LATETRAY+4
^DIR	CONT+3, ORDTRAY+3
CUR^FHORD7	DIET+2
EN^FHWOR8	LTRAY+2
EN1^FHWOR8	EN+7
EN2^FHWOR8	EN+4, EN+5
$$DUP^ORCD	VALID+9
$$INPT^ORCD	EN+1
$$PTR^ORCD	LT1+3, LT1+4, LT1+5, ASKSTOP+1
$$VAL^ORCD	FUTURE+2
GETDLG^ORCD	LT1+3
EN^ORCDLG1	LT1+6
EN^ORCSAVE	LT1+8
$$LOC^OREVNTX	EN+6
TEXT^ORQ12	CKFUTURE+6
$$VALUE^ORX8	LATETRAY+1
$$FMTE^XLFDT	CKFUTURE+6
$$NOW^XLFDT	CKFUTURE+2, CURRENT+2, NOTIMES+3, CKTIME+1, LT1+2
$$UP^XLFSTR	SCHEDOK+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,"This patient is not an inpatient!" Line Location: EN+3
Function Call: WRITE	Prompt: $C(7),!!,"Dietetics v5.5 must be installed to place outpatient diet orders!" Line Location: EN+4
Function Call: WRITE	Prompt: $C(7),!!,"There are no existing recurring meals with which to associate this type of",!,"order!" Line Location: EN+5
Function Call: WRITE	Prompt: !,"Future Diet Orders: ",! Line Location: CKFUTURE+5
Function Call: WRITE	Prompt: !,$$FMTE^XLFDT(ORDT,2)_" "_$G(ORTX(1)) Line Location: CKFUTURE+6
Function Call: WRITE	Prompt: !!,"A new order with no expiration date will CANCEL these diets." Line Location: CKFUTURE+7
Function Call: WRITE	Prompt: !!,"Diet Order for this Patient is UNCHANGED -- No order entered!" Line Location: CKFUTURE+9
Function Call: WRITE	Prompt: $C(7),!,OI_" may not be ordered with other diets!" Line Location: VALID+7
Function Call: WRITE	Prompt: $C(7),"This diet has already been selected!" Line Location: VALID+9
Function Call: WRITE	Prompt: $C(7),!,"This diet is not orderable with those already selected!",! Line Location: VALID+13
Function Call: WRITE	Prompt: $C(7),!,"There are no "_$P($G(^ORD(101.43,TIME,0)),U)_" times defined for the "_$S(MEAL="B":"breakfast ",MEAL="N":"noon ",MEAL="E":"evening ",1:"")_"meal at this location!",! Line Location: NOTIMES+2
Function Call: WRITE	Prompt: $C(7),!,"All "_$P($G(^ORD(101.43,TIME,0)),U)_" times have passed for the "_$S(MEAL="B":"breakfast ",MEAL="N":"noon ",MEAL="E":"evening ",1:"")_"meal at this location!",! Line Location: NOTIMES+5
Function Call: WRITE	Prompt: $C(7),!,"This time has already passed!",! Line Location: CKTIME+3
Function Call: WRITE	Prompt: $C(7),!!,"No late tray ordered!",! Line Location: LT1+7
Function Call: WRITE	Prompt: !?10,"... order placed.",! Line Location: LT1+9
Routine Call	DIR Line Location: CONT+3 ORDTRAY+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	DIET+2
^OR(100 - [#100]	CKFUTURE+3, CKFUTURE+4, CURRENT+3, CANCEL+1, CANCEL+2, RESUME+1, RESUME+2, LATETRAY+3, LATETRAY+6
^ORD(100.98 - [#100.98]	EN+3, CKFUTURE+2, CURRENT+2
^ORD(101.41 - [#101.41]	LT1+1, LT1+6
^ORD(101.43 - [#101.43]	EN2+3, VALID+3, VALID+10, VALID+12, NOTIMES+2, NOTIMES+5, LTRAY+5, ASKSTOP+2

Name	Line Occurrences
$$CONT	CKFUTURE+8
$$FMTIME	NOTIMES+4, CKTIME+2, LTRAY+6
$$ORDTRAY	LTRAY+7
EN2	LTRAY+2
NTQ	NOTIMES+1, NOTIMES+2, NOTIMES+3

Name	Field # of Occurrence
^(	CURRENT+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	DIET+1~
%DT	FMTIME+1~, FUTURE+1~, FUTURE+2, LATETRAY+2~, LATETRAY+4*
A1	DIET+1~
ADM	DIET+1~, DIET+2*
CNT	EN2+1~, EN2+4, EN2+5, EN2+6
D3	DIET+1~
DA	CANCEL+1~, CANCEL+2, LT1~, LT1+6
DFN	DIET~, DIET+2
DG	CKFUTURE+1~, CKFUTURE+2*, CKFUTURE+3, CKFUTURE+4, CURRENT~, CURRENT+2
DIR	CONT+1~, ORDTRAY+1~
DIR("A"	CONT+2, ORDTRAY+2
DIR("B"	CONT+2, ORDTRAY+2
DIR(0	CONT+2, ORDTRAY+2
DONE	NOTIMES+2!, NOTIMES+5!, CKTIME+3!
DT	FUTURE+2, NOTIMES+3, CKTIME+1, LATETRAY+4
DUZ	LT1+2
EARLY	EN2+1~, EN2+4
FHDU	DIET+1~
FHLD	DIET+1~
FHOR	DIET+1~
FHORD	DIET+1~
FIRST	LT1~, LT1+2*
FLD	FUTURE~, FUTURE+2
I	EN2+1~, EN2+3, EN2+5, VALID+1~, VALID+11, VALID+12, SCHEDOK+1~, SCHEDOK+2, NOTIMES+1~, NOTIMES+4* , DELIVERY+3~, DELIVERY+4, RESUME+1~, RESUME+2, LTRAY+1~, LTRAY+3, LTRAY+6, ASKSTOP+1~, ASKSTOP+2*
>> INST	DELIVERY+1
LATE	EN2+1~, EN2+4
M	EN2+1~, EN2+4*, EN2+5, EN2+6, ORDTRAY~, ORDTRAY+2
>> MAX	VALID+5, VALID+6, VALID+8*
MEAL	NOTIMES~, NOTIMES+1, NOTIMES+2, NOTIMES+4, NOTIMES+5
NOW	NOTIMES+3, NOTIMES+4, CKTIME+1~, CKTIME+3
NUM	VALID+1~, VALID+10*, VALID+12
OFFSET	EN2+1~, EN2+2, EN2+5, EN2+6
OI	VALID+1~, VALID+3, VALID+4, VALID+7, ASKSTOP+1~, ASKSTOP+2
>> OK	LTRAY+6*, LTRAY+7
ORCAT	EN+1*, EN+2, EX+1!
ORCHECK	LT1~
ORDATE	NOTIMES+3, CKTIME+1, LATETRAY+2~, LATETRAY+5*, LT1+5
ORDER	RESUME~, RESUME+1, RESUME+2
ORDG	EN+3, LT1~
ORDIALOG	LT1~, LT1+1*, LT1+3, LT1+6
ORDIALOG(	VALID+2, VALID+3, VALID+5, VALID+6, VALID+8, VALID+10, VALID+11, VALID+12, MEALS+1!, MEALS+2 , CKTIME+2, DELIVERY+1!, DELIVERY+2, DELIVERY+5, DELIVERY+6, LT1+3, LT1+4, LT1+5*, ASKSTOP+2
ORDT	EN+5, CKFUTURE+1~, CKFUTURE+2, CKFUTURE+3, CKFUTURE+4, CKFUTURE+5, CKFUTURE+6, EX+1!
ORDT(0	EN+5
ORDUZ	LT1~, LT1+2*
>> ORES(	LT1+8*
>> ORESET	VALID+5, VALID+6
>> OREVENT	EN+6
>> ORI	VALID+3, VALID+9, VALID+10, VALID+12, CKTIME+2
ORIFN	CKFUTURE+1~, CKFUTURE+3, CKFUTURE+4, CURRENT+1~, CURRENT+3*!, CURRENT+4, CANCEL~, CANCEL+1, CANCEL+2, LATETRAY+1 , LATETRAY+3, LATETRAY+6, LT1~, LT1+8
>> ORL	EN+6
ORLOG	LT1~, LT1+2*
ORMEAL	MEALS+1, MEALS+2, LTRAY+1~, LTRAY+3, LTRAY+4, LTRAY+5, LTRAY+6, LTRAY+7, LT1+3
ORNP	LATETRAY+2~, LATETRAY+6*
ORNPO	EX+1!, DELIVERY+1
ORPARAM	EN+7, EX+1!, LTRAY+1~, LTRAY+2
ORPARAM(1	EN2+2
ORPARAM(2	LTRAY+2, LTRAY+3
ORPARAM(3	EN+8*, DELIVERY+3
ORQUIT	EN+2, EN+3, EN+4, EN+5, CKFUTURE+8, LT1~, LT1+6, LT1+7
ORSTRT	CKFUTURE+1~, CKFUTURE+5, LATETRAY+2~, LATETRAY+5*, LTRAY+3, LTRAY+6
ORSTRT(	CKFUTURE+4*, CKFUTURE+6
ORTIME	EX+1!, LTRAY+1~
ORTIME(	EN2+5, EN2+6, MEALS+2, NOTIMES+2, NOTIMES+4, LTRAY+6
ORTRAIL	EX+1!
ORTRAY	MEALS+1, MEALS+2, LTRAY+1~, LTRAY+5*, LTRAY+6, LT1+4
ORTX	CKFUTURE+1~, CKFUTURE+6
ORTX(1	CKFUTURE+6
ORTYPE	EN+1, LT1~, LT1+2*
>> ORVP	EN+5, CKFUTURE+3, CKFUTURE+4, CURRENT+3, LTRAY+2
PAST	NOTIMES+1~, NOTIMES+3, NOTIMES+4, NOTIMES+5
>> PROMPT	VALID+2, VALID+3, VALID+5, VALID+6, VALID+8, VALID+9, VALID+10, VALID+11, VALID+12, MEALS+1 , MEALS+2, CKTIME+2, DELIVERY+1, DELIVERY+2, DELIVERY+5, DELIVERY+6
SEQ	LT1~, LT1+6*
START	CURRENT+1~, CURRENT+2, CURRENT+3
T	EN2+1~, EN2+4*, EN2+5, EN2+6
TIME	NOTIMES~, NOTIMES+1, NOTIMES+2, NOTIMES+4, NOTIMES+5
TIMES	EN2+1~, EN2+2*, EN2+5
TOTAL	VALID+1~, VALID+2*, VALID+5, VALID+6
TYPE	CURRENT+1~, CURRENT+2*, CURRENT+3
U	EN+3, CKFUTURE+4, EN2+5, VALID+3, VALID+10, VALID+12, CURRENT+3, SCHEDOK+2, NOTIMES+2, NOTIMES+4 , NOTIMES+5, DELIVERY+5, LATETRAY+6, LTRAY+3, LTRAY+4, LTRAY+6, ASKSTOP+2
X	EN+6~, EN+7, CONT+1~, EN2+1~, EN2+5, FMTIME~, DIET+1~, FUTURE+1~, FUTURE+2, SCHEDOK~ , SCHEDOK+1, SCHEDOK+2, NOTIMES+4, CKTIME+1~, CKTIME+2, CKTIME+3, DELIVERY+3~, DELIVERY+4, DELIVERY+6, RESUME+1~ , RESUME+2, RESUME+3, LATETRAY+2~, LATETRAY+3, LATETRAY+4, ORDTRAY+1~
X1	DIET+1~
Y	CONT+1~, CONT+4, FMTIME+1~, FMTIME+2, DIET+1~, DIET+2, DIET+3, VALID+1~, VALID+2, VALID+4 , VALID+7, VALID+11, VALID+13, VALID+14, FUTURE+1~, FUTURE+2, SCHEDOK+1~, SCHEDOK+2, SCHEDOK+3, NOTIMES+1~* , NOTIMES+2, NOTIMES+5, NTQ, DELIVERY+3~, DELIVERY+4, CANCEL+1~, CANCEL+2, CANCEL+3, LATETRAY+2~, LATETRAY+4 , LATETRAY+5, ORDTRAY+1~, ORDTRAY+4, ASKSTOP+1~, ASKSTOP+2*, ASKSTOP+3
Z	FUTURE+1~, FUTURE+2, FUTURE+3, DELIVERY+3~, DELIVERY+4, DELIVERY+5, LTRAY+6*

Customize PDF page

Package: Order Entry Results Reporting

Routine: ORCDFH

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 9

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items