Routine: FHSELA1

Package	Total	Call Graph
Dietetics	5	ALG^FHCLN GETZN^FHOMUTL TRAN^FHSEL1 ^FHSELA2 UPDFP1^FHWGMR
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	3	FILE^DICN ^DIE ^DIR

Package	Total	Caller Graph
Dietetics	3	FHSELA FHSELF FHSELU

Entry Points

Name	Comments	DBIA/ICR reference
LIST	;
MAP	; Map allergies by setting pointers in 115.2 to correct entries in 120.82
LISTAL	; List all the GMR Allergies and the Food Pref to map to
CRLIST	;
CREATE	; Check for any missing Allergy-type FP's or one's not renamed in 115.2 ; and allow user to create the FP on the fly
MISSING	; List all Food Pref's with no pointers to 120.82
LISTFP	; List all the Allergy-type Food Pref's and corresponding GMR Allergies
LISTMAP	; List Map by Allergies or by Food Preferences
DEV	;get device and set up queue
UPDATE	;Update Food Preferences for all Patient's based on Allergies
DISPMAP	;
ADD	;
LOOKUP	; Look-up the Allergy in 120.82 and set the pointer
PG	;
EXIT	;
CHECK	; Check for any missing Allergy-type FP's or one's not renamed in 115.2

External References

Name	Field # of Occurrence
^%ZIS	DEV+1
^%ZISC	DEV+2, DEV+5
^%ZTLOAD	DEV+4
FILE^DICN	ADD+3, LOOKUP+6
^DIE	ADD+6
^DIR	CREATE+10, PG+3, DISPMAP+4, LIST+10
ALG^FHCLN	UPDATE+6
GETZN^FHOMUTL	UPDATE+5
TRAN^FHSEL1	ADD+7
^FHSELA2	CREATE+2, MAP+1, LISTFP+1, LISTAL+1, MISSING+1, CHECK+1, UPDATE+1
UPDFP1^FHWGMR	UPDATE+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!,"The following Allergy Food Preference titles are not on file." Line Location: CREATE+3
Function Call: WRITE	Prompt: !,"You may use this option to create these Food Preference entries:" Line Location: CREATE+4
Function Call: WRITE	Prompt: !,"No Food Preferences need to be mapped." Line Location: CREATE+5
Function Call: WRITE	Prompt: !,FHAFPNM," " Line Location: CREATE+9
Function Call: WRITE	Prompt: !!," ...done. ",FHAFPNM," Food Preference has been added!" Line Location: CREATE+14
Function Call: WRITE	Prompt: !!?5,"MISSING FOOD PREFERENCE LIST" Line Location: CRLIST+1
Function Call: WRITE	Prompt: !?5,"============================" Line Location: CRLIST+2
Function Call: WRITE	Prompt: !,PAD,NUM Line Location: CRLIST+8
Function Call: WRITE	Prompt: ! Line Location: PG+1
Function Call: WRITE	Prompt: !!,"Select from 1 to ",NUM Line Location: PG+7
Function Call: WRITE	Prompt: !!,"This option can be used to display the Standard GMR Allergy" Line Location: DISPMAP+1
Function Call: WRITE	Prompt: !,"entries and the Food Preferences they map to.",!! Line Location: DISPMAP+2
Function Call: WRITE	Prompt: ! Line Location: DEV+1
Function Call: WRITE	Prompt: !!,"ALLERGY TYPE FOOD PREFERENCE MAP" Line Location: LISTFP+2
Function Call: WRITE	Prompt: !!,"NFS Food Preference Title",?40,"GMR Standard Allergy(s)" Line Location: LISTFP+3
Function Call: WRITE	Prompt: !,"===================================" Line Location: LISTFP+4
Function Call: WRITE	Prompt: ?40,"===================================" Line Location: LISTFP+5
Function Call: WRITE	Prompt: ?40," NONE " Line Location: LISTFP+9
Function Call: WRITE	Prompt: !?40 Condition for execution: N>40 Line Location: LISTFP+11
Function Call: WRITE	Prompt: FHANAM Line Location: LISTFP+11
Function Call: WRITE	Prompt: !!,"GMR STANDARD FOOD ALLERGY MAP" Line Location: LISTAL+2
Function Call: WRITE	Prompt: !!,"GMR Allergy Name",?25,"Corresponding NFS Food Preference" Line Location: LISTAL+3
Function Call: WRITE	Prompt: !,"=======================",?25,"====================================" Line Location: LISTAL+4
Function Call: WRITE	Prompt: !,"The following Food Preferences titles were not found in file #115.2:" Line Location: CHECK+3
Function Call: WRITE	Prompt: !,FHZ1 Line Location: CHECK+7
Function Call: WRITE	Prompt: !,"ALL FOOD PREFERENCES HAVE BEEN RENAMED!" Line Location: CHECK+8
Function Call: WRITE	Prompt: !!,"...Updating Patient Food Preferences based on Food-Type Allergies" Line Location: UPDATE+2
Function Call: WRITE	Prompt: "." Line Location: UPDATE+4
Function Call: WRITE	Prompt: !!,"The following entries need to be mapped in order to automatically" Line Location: LIST+2
Function Call: WRITE	Prompt: !,"update the Patient Food Preferences:",! Line Location: LIST+3
Function Call: WRITE	Prompt: ! Line Location: LIST+10
Function Call: WRITE	Prompt: ! Line Location: LIST+10
Routine Call	DIE Line Location: ADD+6
Routine Call	DIR Line Location: CREATE+10 PG+3 DISPMAP+4 LIST+10
Routine Call	%ZIS Line Location: DEV+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^FH(115.2 - [#115.2]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(115.2	LOOKUP+5
^FH(115.2 - [#115.2]	CRLIST+7, MAP+6, MAP+7, LOOKUP+3, CHECK+7
^FHPT - [#115]	UPDATE+3
^GMRD(120.82 - [#120.82]	LOOKUP+2
^TMP($J	CRLIST+4, CRLIST+5, CRLIST+11, MAP+3, MAP+4, LISTFP+6, LISTFP+7, LISTAL+5, LISTAL+6, LISTAL+9* , LISTAL+11, LISTAL+12, MISSING+3, MISSING+4, CHECK+4, CHECK+5, UPDATE+6, UPDATE+7, UPDATE+8!, UPDATE+10! , LIST+1, LIST+4, LIST+6, LIST+7, EXIT+2!

Label References

Name	Line Occurrences
ADD	CREATE+13
CREATE	CREATE+12, CREATE+15
CRLIST	CREATE+5
DEV	DISPMAP+7
EXIT	CREATE+5, CREATE+6, CREATE+7, CREATE+11, CREATE+16, DISPMAP+5, DEV+2, DEV+6, LISTFP+12, LISTAL+13 , MISSING+7, CHECK+9
LIST	UPDATE+9
LISTAL	LISTMAP+1
LISTFP	LISTMAP+2
LISTMAP	DEV+2
LOOKUP	MAP+10
MAP	EXIT+1
PG	CRLIST+11, CRLIST+13, PG+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	DEV+1!*, DEV+5!
DA	ADD+5*, ADD+6!
DA(1	LOOKUP+4*
>> DFN	UPDATE+6*
DIC	ADD+2!, ADD+3, LOOKUP+4!
DIC("P"	LOOKUP+5*
DIC(0	ADD+3, LOOKUP+5
DIE	ADD+3*, ADD+6!
DIR	CREATE+10!, PG+1!, DISPMAP+2!, LIST+10!
DIR("A"	CREATE+10, PG+2, DISPMAP+3*
DIR("B"	PG+3*
DIR(0	CREATE+10, PG+3, DISPMAP+4, LIST+10
>> DIRUT	CREATE+11, PG+3, DISPMAP+5
DO	ADD+2!, LOOKUP+4!
DR	ADD+5*, ADD+6!
FHAFPNM	CREATE+8*, CREATE+9, CREATE+14, ADD+2, EXIT+4!
FHALGMZ	ADD+1*, EXIT+4!
FHALMP	MAP+8, MAP+9, LISTFP+9, LISTFP+10, LISTAL+7*, LISTAL+8, EXIT+4!
FHANAM	MAP+9, LOOKUP+1, LISTFP+10, LISTFP+11, LISTAL+8*, LISTAL+9, EXIT+3!
FHANAMZ	LISTAL+10, LISTAL+11, LISTAL+12, EXIT+3!
FHCOUNT	UPDATE+1, UPDATE+4, UPDATE+8!, UPDATE+10!, LIST+3, LIST+5, LIST+9, LIST+10
>> FHDA	ADD+5*
>> FHDFN	UPDATE+3*
FHFPIEN	MAP+7*, LOOKUP+3, LOOKUP+4, EXIT+3!
FHFPS	CRLIST+5, CRLIST+6, CRLIST+10, MAP+4, MAP+5, MAP+8, LISTFP+7, LISTFP+9, LISTAL+6, LISTAL+7 , MISSING+4, MISSING+5, CHECK+5, CHECK+6, EXIT+3!
FHGMRN	UPDATE+7*, UPDATE+8!, UPDATE+10!
FHK	CRLIST+3, CRLIST+4, CRLIST+5, CRLIST+11, MAP+2, MAP+3, MAP+4, LISTFP+2, LISTFP+6, LISTFP+7 , LISTAL+2, LISTAL+5, LISTAL+6, MISSING+2, MISSING+3, MISSING+4, CHECK+2, CHECK+4, CHECK+5, EXIT+3!
FHLIST	EXIT+4!
FHLIST(	CREATE+8, CRLIST+10*
FHMISS	UPDATE+3!
FHMSAL	UPDATE+8!, UPDATE+10!, LIST+7*, LIST+8
FHMSFP	UPDATE+8!, UPDATE+10!, LIST+4*, LIST+5, LIST+6, LIST+7
FHMSPT	UPDATE+8!, UPDATE+10!, LIST+6*, LIST+7, LIST+8
FHPST8	UPDATE+8!, UPDATE+10!
FHQT	UPDATE+1, UPDATE+10!, LIST+3, LIST+4, LIST+10*
FHQUIT	CREATE+2, CREATE+6, CRLIST+4, CRLIST+13, PG+3, EXIT+4!
FHRESP	CREATE+7, CREATE+8, PG+1, PG+4, PG+5, PG+6, EXIT+4!
FHSEL	CRLIST+3, CRLIST+4, CRLIST+13, PG+6, DISPMAP+6*, LISTMAP+1, LISTMAP+2, EXIT+4!
FHVAL	LOOKUP+2*, LOOKUP+3, LOOKUP+4, EXIT+3!
FHX	LOOKUP+1*, LOOKUP+2, EXIT+3!
FHZ	MAP+9, LISTFP+10, LISTFP+11, LISTAL+8*, EXIT+3!
FHZ1	CRLIST+6, CRLIST+7, CRLIST+9, CRLIST+10, MAP+5, MAP+6, MAP+7, LISTFP+7, LISTFP+8, LISTAL+6 , LISTAL+9, MISSING+4, MISSING+6, CHECK+6, CHECK+7, EXIT+3!
>> FILE	UPDATE+5
>> FLG	CHECK+2, CHECK+7, CHECK+8
>> IEN	UPDATE+6
IO	DEV+2
IO("Q"	DEV+2
IOP	DEV+1!, DEV+5!
N	LISTFP+10, LISTFP+11, LISTAL+8*, EXIT+3!
NUM	CREATE+2, CREATE+5, CRLIST+8, CRLIST+10, CRLIST+11, CRLIST+13, PG+6, PG+7, EXIT+4!
PAD	CRLIST+8*, EXIT+4!
>> POP	DEV+1
U	LOOKUP+5, LIST+7
>> X	ADD+2, LOOKUP+5, LIST+10
>> Y	CREATE+12, ADD+5, PG+4, LOOKUP+4*, LOOKUP+5, DISPMAP+6
>> ZTDESC	DEV+4*
>> ZTRTN	DEV+3*
>> ZTSAVE("FHSEL"	DEV+3*

Customize PDF page

Package: Dietetics

Routine: FHSELA1

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: