Routine: FHOMSS2

Package	Total	Call Graph
Kernel	4	^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT
VA Fileman	2	^DIC ^DIR
Dietetics	1	(ENDATE,OUTLOC,PATNAME,STDATE)^FHOMUTL

Package	Total	Caller Graph
Dietetics	1	FHOMSS

Entry Points

Name	Comments	DBIA/ICR reference
END	;
HDR	;
LIST	; First build data in ^TMP global
DEV	;get device and set up queue
START
PG	;

External References

Name	Field # of Occurrence
^%ZIS	DEV+1
^%ZISC	DEV+2, DEV+6
^%ZTLOAD	DEV+5
^DIC	START+7, START+11
^DIR	START+2, PG+1
ENDATE^FHOMUTL	START+14
OUTLOC^FHOMUTL	START+4
PATNAME^FHOMUTL	LIST+4, LIST+26
STDATE^FHOMUTL	START+13
$$FMTE^XLFDT	LIST+28

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!!?20,"S P E C I A L M E A L S S T A T U S L I S T" Line Location: FHOMSS2+3
Function Call: WRITE	Prompt: !! Line Location: START+1
Function Call: WRITE	Prompt: ! Line Location: START+4
Function Call: WRITE	Prompt: ! Line Location: START+13
Function Call: WRITE	Prompt: ! Line Location: START+14
Function Call: WRITE	Prompt: ! Line Location: DEV+1
Function Call: WRITE	Prompt: !!,"NO SPECIAL MEALS TO PRINT FOR GIVEN DATE RANGE" Line Location: LIST+17
Function Call: WRITE	Prompt: !,$E(FHPTNM,1,20) Line Location: LIST+26
Function Call: WRITE	Prompt: ?22,$E(FHD,1,12) Line Location: LIST+28
Function Call: WRITE	Prompt: ?69,FHMEAL,?73,FHSTAT Line Location: LIST+35
Function Call: WRITE	Prompt: !?6,"Denied by: " Line Location: LIST+37
Function Call: WRITE	Prompt: $P($G(^VA(200,FHDENY,0)),U,1) Line Location: LIST+38
Function Call: WRITE	Prompt: !?6,"Comment: ",FHCMNT Line Location: LIST+39
Function Call: WRITE	Prompt: !?5,"S P E C I A L M E A L S S T A T U S R E P O R T" Line Location: HDR+2
Function Call: WRITE	Prompt: !!?5,"LOCATION: ",$P(FHLSRT,"~",2) Line Location: HDR+3
Function Call: WRITE	Prompt: !!!,"Patient Name",?22,"Date",?36,"Room-Bed" Line Location: HDR+4
Function Call: WRITE	Prompt: ?52,"Diet Ordered",?68,"Meal",?73,"Status" Line Location: HDR+5
Function Call: WRITE	Prompt: !,"====================",?22,"============",?36,"==============" Line Location: HDR+6
Function Call: WRITE	Prompt: ?52,"===============",?68,"====",?73,"=======" Line Location: HDR+7
Routine Call	DIC Line Location: START+7 START+11
Routine Call	DIR Line Location: START+2 PG+1
Routine Call	%ZIS Line Location: DEV+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DG(405.4 - [#405.4]	LIST+31
^FH(111 - [#111]	LIST+33
^FH(119.6 - [#119.6]	LIST+8, LIST+10, LIST+12, LIST+24, LIST+29
^FH(119.73 - [#119.73]	LIST+9
^FHPT - [#115]	LIST+5, LIST+40, LIST+41
^FHPT("SM"	LIST+2, LIST+4
^TMP($J	LIST+1!, LIST+14*, LIST+17, LIST+18, LIST+21, LIST+22, LIST+23
^VA(200 - [#200]	LIST+38

Label References

Name	Line Occurrences
DEV	START+15
END	DEV+2, DEV+7
HDR	LIST+20, PG+2
LIST	DEV+2
PG	LIST+19, LIST+47
START	START+15

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	DEV+1!*, DEV+6!
DIC	START+6!, START+10!
DIC("A"	START+6, START+10
DIC(0	START+7, START+11
DIR	START+1!, PG+1!
DIR("A"	START+1*
DIR(0	START+2, PG+1
>> DIRUT	START+3
>> DUOUT	START+7, START+11
ENDT	START+14, LIST+1*, LIST+2, END+1!
EX	LIST+1, LIST+2, LIST+18, LIST+19, LIST+21, LIST+22, LIST+47, PG+1, END+1!
>> FHCMNT	LIST+39*
>> FHCOMM	LIST+8*, LIST+9
>> FHD	LIST+28*
>> FHDENY	LIST+37*, LIST+38
>> FHDFN	LIST+4, LIST+5, LIST+14, LIST+24, LIST+40, LIST+41
>> FHDIET	LIST+33*, LIST+34
>> FHDPT	LIST+33*
>> FHEL	LIST+41*, LIST+42, LIST+43
>> FHLBY	START+3*, START+4, START+5, START+9, LIST+7, LIST+8, LIST+9
>> FHLOC	START+4, LIST+7, LIST+8, LIST+10, LIST+12, LIST+23, LIST+24, LIST+29
>> FHLOCNM	LIST+12*, LIST+14
>> FHLOCZN	LIST+24*
>> FHLPT	LIST+29*
>> FHLSRT	LIST+18*, LIST+21, LIST+22, LIST+23, HDR+3
>> FHMEAL	LIST+35*
>> FHML	LIST+12, LIST+13, LIST+14
FHNODE	LIST+5, LIST+7, LIST+12, LIST+14, LIST+23, LIST+25, LIST+27, LIST+29, LIST+30, LIST+33 , LIST+35, LIST+37, LIST+39, END+1!
>> FHPG	LIST+1, LIST+19, LIST+20
FHPRD	LIST+9*, END+1!
>> FHPRORD	LIST+10, LIST+11, LIST+14
>> FHPTN	LIST+22*, LIST+23, LIST+24
>> FHPTNM	LIST+14, LIST+26
>> FHRMBD	LIST+30*, LIST+31
>> FHRMBNM	LIST+30, LIST+31, LIST+32
FHSELOC	START, START+4, LIST+7, END+1!
FHSLCOM	START, START+5, START+7, START+8*, LIST+8, END+1!
FHSLPRO	START, START+9, START+11, START+12*, LIST+9, END+1!
>> FHSMDT	LIST+2, LIST+3, LIST+4, LIST+5, LIST+21, LIST+22, LIST+23
>> FHSMDTX	LIST+3, LIST+14, LIST+27, LIST+28, LIST+40, LIST+41
FHSTAT	LIST+5, LIST+6, LIST+25, LIST+35, LIST+36, END+1!
IO	DEV+2
IO("Q"	DEV+2
IOF	FHOMSS2+3, HDR+1
IOP	DEV+1!, DEV+6!
IOSL	LIST+47
IOST	LIST+19, PG+1
>> NUM	LIST+1, LIST+26
>> POP	DEV+1
STDT	START+13, LIST+2, END+1!
U	LIST+2, LIST+5, LIST+7, LIST+8, LIST+9, LIST+10, LIST+12, LIST+18, LIST+19, LIST+21 , LIST+22, LIST+23, LIST+25, LIST+27, LIST+29, LIST+30, LIST+31, LIST+33, LIST+35, LIST+37 , LIST+38, LIST+39, LIST+42, LIST+43, LIST+47, PG+1
>> Y	START+3, START+7, START+8, START+11, START+12, PG+1
>> ZTDESC	DEV+5*
>> ZTRTN	DEV+5*
>> ZTSAVE("ENDT"	DEV+3*
>> ZTSAVE("FHLBY"	DEV+3*
>> ZTSAVE("FHSELOC"	DEV+4*
>> ZTSAVE("FHSLCOM"	DEV+4*
>> ZTSAVE("FHSLPRO"	DEV+4*
>> ZTSAVE("STDT"	DEV+3*

Customize PDF page

Package: Dietetics

Routine: FHOMSS2

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: