Routine: FHOMGP1

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

Call Graph

Kernel

^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT

VA Fileman

^DIC ^DIR

Dietetics

(ENDATE,OUTLOC,PATNAME,STDATE)^FHOMUTL

Package	Total	Caller Graph
Dietetics	1	FHOMGP

Package

Total

Caller Graph

Dietetics

FHOMGP

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

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

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!!?20,"G U E S T M E A L S L I S T" Line Location: FHOMGP1+3
Function Call: WRITE	Prompt: !! Line Location: EN+1
Function Call: WRITE	Prompt: ! Line Location: EN+4
Function Call: WRITE	Prompt: ! Line Location: EN+13
Function Call: WRITE	Prompt: ! Line Location: EN+14
Function Call: WRITE	Prompt: ! Line Location: DEV+1
Function Call: WRITE	Prompt: !!,"THERE ARE CURRENTLY NO GUEST MEALS TO PRINT" Line Location: LIST+16
Function Call: WRITE	Prompt: !,PAD,NUM Line Location: LIST+31
Function Call: WRITE	Prompt: !,$E(FHPTNM,1,22) Line Location: LIST+32
Function Call: WRITE	Prompt: ?22,$E(FHD,1,12) Line Location: LIST+33
Function Call: WRITE	Prompt: !?5,"G U E S T M E A L L I S T" Line Location: HDR+2
Function Call: WRITE	Prompt: !!?5,"LOCATION: ",$P(FHLSRT,"~",2) Line Location: HDR+3
Function Call: WRITE	Prompt: !!,"Name",?22,"Date",?36,"Location",?49,"Room-Bed",?61,"Meal" Line Location: HDR+4
Function Call: WRITE	Prompt: ?67,"Class",?74,"Charge" Line Location: HDR+5
Function Call: WRITE	Prompt: !,"====================",?22,"============" Line Location: HDR+6
Function Call: WRITE	Prompt: ?36,"============ ===========",?61,"====",?67,"=====",?74,"======" Line Location: HDR+7
Routine Call	DIC Line Location: EN+7 EN+11
Routine Call	DIR Line Location: EN+2 PG+2
Routine Call	%ZIS Line Location: DEV+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DG(405.4 - [#405.4]	LIST+25
^FH(119.6 - [#119.6]	LIST+7, LIST+9, LIST+11, LIST+23, LIST+30
^FH(119.73 - [#119.73]	LIST+8
^FHPT - [#115]	LIST+4
^FHPT("GM"	LIST+2, LIST+3
^TMP($J	LIST+1!, LIST+12*, LIST+16, LIST+17, LIST+20, LIST+21, LIST+22

Name	Line Occurrences
DEV	EN+16
EN	EN+16
END	DEV+2, DEV+8
HDR	LIST+19, PG+3
LIST	DEV+2
PG	LIST+18, LIST+36

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	DEV+1!*, DEV+7!
DIC	EN+6!, EN+10!
DIC("A"	EN+6, EN+10
DIC(0	EN+7, EN+11
DIR	EN+1!, END+1!, PG+2!
DIR("A"	EN+1*
DIR(0	EN+2, PG+2
>> DIRUT	EN+3
>> DUOUT	EN+7, EN+11
ENDT	EN+14, EN+15*, LIST+2, END+1!
>> EX	LIST+1, LIST+17, LIST+18, LIST+20, LIST+21, LIST+36, PG+2
FHCH	LIST+27*, LIST+34, END+1!
FHCL	LIST+27, LIST+29, LIST+34, END+1!
>> FHCOMM	LIST+7*, LIST+8
>> FHD	LIST+33*
>> FHDFN	LIST+3, LIST+4, LIST+12, LIST+26, LIST+35
FHGMDT	LIST+2, LIST+3, LIST+4, LIST+12, LIST+20, LIST+21, LIST+22, LIST+33, LIST+35, END+1!
>> FHLBY	EN+3*, EN+4, EN+5, EN+9, LIST+6, LIST+7, LIST+8
>> FHLIST(	LIST+35*
>> FHLOC	EN+4, LIST+6, LIST+7, LIST+9, LIST+11, LIST+22, LIST+23, LIST+30, LIST+34
>> FHLOCNM	LIST+11*, LIST+12
>> FHLOCZN	LIST+23*
>> FHLSRT	LIST+17*, LIST+20, LIST+21, LIST+22, HDR+3
FHML	LIST+27*, LIST+34, END+1!
FHNODE	LIST+22*, LIST+24, LIST+27, LIST+28, END+1!
>> FHPG	LIST+1, LIST+18, LIST+19
FHPRD	LIST+8*, END+2!
>> FHPRORD	LIST+9, LIST+10, LIST+12
>> FHPTN	LIST+21*, LIST+22, LIST+26
>> FHPTNM	LIST+12, LIST+32
>> FHRMBD	LIST+24*, LIST+25
>> FHRMBNM	LIST+24, LIST+25, LIST+34
FHSELOC	EN+4*, LIST+6, END+1!
FHSLCOM	EN+5, EN+7, EN+8, LIST+7, END+1!
FHSLPRO	EN+9, EN+11, EN+12, LIST+8, END+2!
>> FHST	LIST+4*
>> FHSTAT	LIST+28*
FHZN	LIST+4*, LIST+6, LIST+12, END+1!
IO	DEV+2
IO("Q"	DEV+2
IOF	FHOMGP1+3, HDR+1
IOP	DEV+1!, DEV+7!
IOSL	LIST+36
IOST	LIST+18, PG+2
>> NUM	LIST+1, LIST+28, LIST+35
>> POP	DEV+1
STDT	EN+13, LIST+2, END+1!
U	LIST+4, LIST+6, LIST+7, LIST+8, LIST+9, LIST+11, LIST+17, LIST+18, LIST+20, LIST+21 , LIST+22, LIST+24, LIST+25, LIST+27, LIST+28, LIST+30, LIST+36, PG+2
>> Y	EN+3, EN+7, EN+8, EN+11, EN+12, PG+2
>> ZTDESC	DEV+6*
>> ZTRTN	DEV+3*
>> ZTSAVE("ENDT"	DEV+4*
>> ZTSAVE("FHDFN"	DEV+4*
>> ZTSAVE("FHLBY"	DEV+5*
>> ZTSAVE("FHSELOC"	DEV+5*
>> ZTSAVE("FHSLCOM"	DEV+5*
>> ZTSAVE("FHSLPRO"	DEV+5*
>> ZTSAVE("STDT"	DEV+4*

Customize PDF page

Package: Dietetics

Routine: FHOMGP1

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: