Routine: ORCDFH1

Information

ORCDFH1 ;SLC/MKB,DKM - Utility functions for FH dialogs cont ;8/24/01 10:22

Source Information

Source file <ORCDFH1.m>

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
Kernel	2	$$NOW^XLFDT $$UP^XLFSTR
Order Entry Results Reporting	2	$$DUP^ORCD ($$FIND,$$SPACE,DIC)^ORCDLG2
VA Fileman	1	^DIR

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Order Entry Results Reporting	1	ORWDXM2

Entry Points

Name	Comments	DBIA/ICR reference
CNV	; -- Convert meal abbreviation to time in X [Input Xform] ; Expects X,PROMPT [also called from Entry Action, DO^ORWDXM2]
OK()	; -- Verify multiple diet mod selection
PTR(X)	; -- Return ptr to Order Dialog file #101.41 for prompt X
INACTIVE()	;Check for inactive/duplicate diets in single or multiple modifications ;**95
MORE(XX,YY)	; -- Returns 1 or 0, if more matches exist
LKQ
VALID()	; -- Returns 1 or 0, if selected diet modification is valid
EXP	; -- Expand old order into instances
PREV	; -- Ck if previous diet being reordered
LKUP	; -- special lookup routine for diet modifications
RECENT	; -- get 5 most recent diet orders

Name	Field # of Occurrence
^DIR	OK+3
$$DUP^ORCD	INACTIVE+5
$$FIND^ORCDLG2	LKUP+3
$$SPACE^ORCDLG2	LKUP+2
DIC^ORCDLG2	LKQ
$$NOW^XLFDT	RECENT+1, RECENT+7, MORE+2, INACTIVE+4
$$UP^XLFSTR	CNV+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!,OI_" may not be ordered with other diets!" Line Location: VALID+12
Function Call: WRITE	Prompt: $C(7),"This diet has already been selected!" Line Location: VALID+13
Function Call: WRITE	Prompt: $C(7),!,"This diet is not orderable with those already selected!",! Line Location: VALID+17
Function Call: WRITE	Prompt: !,"The ",$P(^ORD(101.43,ORDIALOG(PROMPT,I),0),U)," diet is INACTIVE." Line Location: INACTIVE+4
Function Call: WRITE	Prompt: !,"The ",$P(^ORD(101.43,ORDIALOG(PROMPT,(I+ORI)),0),U)," diet has already been selected." Line Location: INACTIVE+5
Routine Call	DIR Line Location: OK+3

Name	Line Occurrences (* Changed, ! Killed)
^OR(100 - [#100]	RECENT+2, RECENT+3, RECENT+5, RECENT+6
^ORD(101.41 - [#101.41]	PTR+1
^ORD(101.43 - [#101.43]	RECENT+7, VALID+8, VALID+14, VALID+16, MORE+3, MORE+4, MORE+5, INACTIVE+4, INACTIVE+5

Name	Line Occurrences
$$INACTIVE	VALID+4, VALID+6
$$MORE	LKUP+4
$$OK	LKUP+4
EXP	VALID+3
LKQ	LKUP+1

Name	Field # of Occurrence
^(	RECENT+5, RECENT+6, MORE+5, INACTIVE+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A1	CNV+2~, CNV+3, CNV+6, CNV+7
CNT	RECENT+1~, RECENT+2, RECENT+3, RECENT+11, RECENT+13, MORE+2~, MORE+3, MORE+6, MORE+7
D	EXP+1~, EXP+3*
>> DATATYPE	CNV+4*
DIR	OK+1~
DIR("?"	OK+2*
DIR("A"	OK+1*
DIR("B"	OK+1*
DIR(0	OK+1*
>> DOMAIN	LKUP+2
>> DTOUT	OK+3
>> DUOUT	OK+3
I	RECENT+1~, RECENT+6, EXP+1~, EXP+2, EXP+3, VALID+1~, VALID+4, VALID+15, VALID+16, PREV+1~ , PREV+2, INACTIVE+1~, INACTIVE+3, INACTIVE+4, INACTIVE+5*
IFN	PREV+1~, PREV+3, PREV+4, MORE+4~, MORE+5
INDT	RECENT+1~, RECENT+7*
>> MAX	VALID+5, VALID+10, VALID+11*
NOW	MORE+2~*, MORE+5
NUM	VALID+1~, VALID+14*, VALID+16
OI	VALID+1~, VALID+2, VALID+4, VALID+8, VALID+9, VALID+12, PREV+1~, PREV+2, PREV+3, INACTIVE+5
ORCURR	RECENT+1~, RECENT+4!, RECENT+5*, RECENT+10
>> ORDG	RECENT+2, RECENT+3
>> ORDIALOG(	RECENT+9, RECENT+10, RECENT+11, RECENT+12, RECENT+13, EXP+1, EXP+2, EXP+3, VALID+2, VALID+4! , VALID+5, VALID+10, VALID+11, VALID+14, VALID+15, VALID+16, PREV+2, PREV+3, LKUP+1, LKUP+2 , INACTIVE+3, INACTIVE+4, INACTIVE+5
>> ORDIALOG("PREV"	PREV+4*!
ORDT	RECENT+1~, RECENT+2, RECENT+3
>> ORESET	VALID+10, VALID+11
>> ORI	EXP+1, EXP+2, VALID+2, VALID+4, VALID+14, VALID+16, INACTIVE+5
ORIFN	RECENT+1~, RECENT+2, RECENT+3, RECENT+5, RECENT+6, RECENT+9
ORIT	RECENT+1~, RECENT+4, RECENT+7, RECENT+8, RECENT+9, RECENT+11, RECENT+12
OROOT	LKUP+1~, LKUP+2*, LKUP+3
>> ORPARAM(2	CNV+5
ORTXT	RECENT+1~, RECENT+4, RECENT+7, RECENT+8, RECENT+10, RECENT+11, RECENT+12
>> ORTYPE	CNV+4
>> ORVP	RECENT+2, RECENT+3
P	EXP+1~, EXP+3*
>> PROMPT	RECENT+9, RECENT+10, RECENT+11, RECENT+12, RECENT+13, EXP+1, EXP+2, EXP+3, VALID+2, VALID+4 , VALID+5, VALID+10, VALID+11, VALID+14, VALID+15, VALID+16, PREV+2, PREV+3, LKUP+1, LKUP+2 , INACTIVE+3, INACTIVE+4, INACTIVE+5
TIMES	CNV+5~*, CNV+6
TOTAL	VALID+1~, VALID+5*, VALID+10, VALID+11
U	RECENT+5, RECENT+7, RECENT+11, VALID+8, VALID+14, VALID+16, CNV+5, CNV+6, MORE+1, INACTIVE+4 , INACTIVE+5
X	RECENT+1~, RECENT+6, RECENT+7, PTR~, PTR+1, EXP+1~, EXP+2, EXP+3, CNV+2, CNV+4 , CNV+7, LKUP+2*, LKUP+3, LKUP+4, OK+1~
XP	MORE+2~, MORE+3, MORE+4
XX	MORE~, MORE+2, MORE+3
Y	VALID+1~, VALID+2, VALID+3, VALID+4, VALID+5, VALID+9, VALID+12, VALID+15, VALID+17, VALID+18 , CNV+4, LKUP+3, LKUP+4, OK+1~, OK+3, OK+4, INACTIVE+1~, INACTIVE+2, INACTIVE+4, INACTIVE+5 , INACTIVE+6
YY	MORE~, MORE+1, MORE+4
Z	LKUP+1~, LKUP+4*

Customize PDF page

Package: Order Entry Results Reporting

Routine: ORCDFH1

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: