Routine: FHMTK4

Package	Total	Call Graph
Dietetics	2	L3^FHMTK21 L1^FHSPED

Package	Total	Caller Graph
Dietetics	2	FHMTK3 FHMTK6

Entry Points

Name	Comments	DBIA/ICR reference
SORT	; Sort Recipe Category in print order
LIS	; List Diet Pattern of Diet Order
LIST	; List Recipe Category of a selected meal
PSE
SO	; List Standing Orders
L1
DECOD	; Decode code string

Name	Field # of Occurrence
L3^FHMTK21	LIS+5
L1^FHSPED	SO+5

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!?33,"Diet Pattern" Line Location: LIS+2
Function Call: WRITE	Prompt: !! Line Location: LIS+3
Function Call: WRITE	Prompt: ?$S(CTR=1:9,CTR=2:35,1:61),$S(CTR=1:"Breakfast",CTR=2:"Noon",1:"Evening") Line Location: LIS+3
Function Call: WRITE	Prompt: ?$S(M1=1:2,M1=2:28,1:54),MM(N1,M1) Line Location: L1+0
Function Call: WRITE	Prompt: !,MM(NO,MEAL) Line Location: LIST+1
Function Call: WRITE	Prompt: !?16,"Standing Orders",! Line Location: SO+1
Function Call: WRITE	Prompt: ! Line Location: SO+5
Function Call: READ	Prompt: "Press RETURN to Continue " Formatting: !! Timeout: DTIME Variable: X Line Location: PSE+0
Function Call: WRITE	Prompt: ! Line Location: PSE+0
Function Call: WRITE	Prompt: !,"Enter a RETURN to Continue." Line Location: PSE+0

Name	Line Occurrences (* Changed, ! Killed)
^FH(114.1 - [#114.1]	DECOD+3, DECOD+7
^FH(118.3 - [#118.3]	SO+6
^FHPT - [#115]	LIS+1, SO+2
^FHPT("ASP"	SO+2
^TMP($J	LIS+7, SORT+3, DECOD+8*

Name	Field # of Occurrence
^(	LIS+7, SORT+3

Name	Field # of Occurrence
>> ADM	LIS+1, SO+2
>> ANS	LIS+1, SO+3, SO+4, PSE
>> CTR	LIS+3*
DTIME	PSE
>> FHDFN	LIS+1, SO+2
>> FHORD	LIS+1
IOST	PSE
>> K	SO+2, SO+4, SO+5, SO+6
>> K1	DECOD+7*, DECOD+8
>> L1	SORT+1*
>> LN	SO+3, SO+5, SO+7*
>> M	SO+2, SO+3, SO+4, SO+5, SO+6
>> M1	LIS+6, LIS+7, L1, DECOD+1*, DECOD+5
>> M2	SO+6
>> M3	SORT+2, SORT+3, DECOD+1, DECOD+8
>> MEAL	LIS+5, LIS+6, LIS+7, LIST+1, SORT+1, SORT+2, SORT+3
MM	LIS+6!, DECOD+1!
MM(	LIS+7, L1, LIST+1, SORT+1!, SORT+3, DECOD+5*
>> MP	LIS+7, SORT+3, DECOD+8
N	SO+2!
N(	SO+2*, SO+4, SO+5, SO+6
>> N1	LIS+6, LIS+7, L1, SORT+2, SORT+3*
>> NAM	DECOD+3*, DECOD+5, DECOD+7
>> NO	LIST+1*
>> NUM	SO+5*, SO+6
>> NX	LIS+7, SORT+2, SORT+3*
P	LIS+6!, DECOD+1!
P(	LIS+7, SORT+3, DECOD+5
>> PAD	LIS+7, SORT+3, DECOD+4*, DECOD+5
>> QTY	LIS+7, SORT+3
>> S1	LIS+7, SORT+3, DECOD+1*, DECOD+2, DECOD+3
>> STR	LIS+1*, LIS+4, DECOD+1
>> X	SO+2, PSE
>> X1	DECOD+3*, DECOD+4, DECOD+5, DECOD+7, DECOD+8
>> X4	DECOD+2*, DECOD+3, DECOD+5
>> Z	SO+4, SO+6, SORT+3