Routine: FHSEL1

Information

FHSEL1 ; HISC/REL/NCA/JH/RTK/FAI - Patient Preferences ;10/20/04 10:19

Call Graph

Call Graph Total: 12

Package	Total	Call Graph
VA FileMan	6	NOW^%DTC ^DIC ^DIE ^DIK EN1^DIP ^DIR
Dietetics	4	TR^FH PID^FHDPA ^FHOMDPA ^FHORX
Kernel	2	^%ZIS KILL^XUSCLEAN

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 6

Package	Total	Caller Graph
Dietetics	6	FHMTK6 FHSEL1 FHSEL2 FHSEL3 FHSEL4 FHSELA1

Entry Points

Name	Comments	DBIA/ICR reference
EN1	; Enter/Edit Preference File entries
TRAN
T1
DIS
ADD	; Add dislikes recipes from another food preference
A
EN2	; List Preference File
EN2OLD
EN2NEW
EN3	; Enter/Edit Patient Preferences
N31
N32
N33
EN4	; Display Patient Preferences
E41	; Display Patient Header and Food Preferences
DISP	; Display Food Preferences
P0
P1
SP	;Build food prefences print array
SP1
KIL

External References

Name	Field # of Occurrence
NOW^%DTC	E41+1
^%ZIS	EN2+3, EN2OLD+2, EN2NEW+2
^DIC	EN1+2, T1
^DIE	EN1+3, EN1+4, DIS, EN3+3
^DIK	EN3+9
EN1^DIP	EN2OLD+1, EN2NEW+1
^DIR	EN2+2
TR^FH	TRAN+2
PID^FHDPA	E41+2
^FHOMDPA	EN3+1, EN4+1
^FHORX	N32, N32+1
KILL^XUSCLEAN	KIL+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: EN1+2
Function Call: WRITE	Prompt: ! Line Location: EN1+2
Function Call: WRITE	Prompt: *7,!," Answer YES or NO" Line Location: TRAN+2
Function Call: WRITE	Prompt: ! Line Location: T1+0
Function Call: WRITE	Prompt: ! Line Location: EN2+1
Function Call: WRITE	Prompt: ! Line Location: EN2OLD+0
Function Call: WRITE	Prompt: ! Line Location: EN2NEW+0
Function Call: WRITE	Prompt: ! Line Location: EN3+1
Function Call: WRITE	Prompt: @IOF,!,PID,?17,$P(Y(0),"^",1),?49,$S(SEX="M":"Male",SEX="F":"Female",1:""),?55,"Age ",AGE Line Location: E41+4
Function Call: WRITE	Prompt: !!?21,"Likes",?54,"DisLikes",! Line Location: DISP+1
Function Call: WRITE	Prompt: ! Line Location: DISP+3
Function Call: WRITE	Prompt: $P(M,"~",2) Line Location: DISP+3
Function Call: WRITE	Prompt: !,"No Food Preferences on file",! Line Location: DISP+6
Function Call: WRITE	Prompt: ?12 Line Location: P0+0
Function Call: WRITE	Prompt: ?46 Line Location: P0+1
Function Call: WRITE	Prompt: ! Line Location: P0+2
Function Call: WRITE	Prompt: X Line Location: P1+0
Function Call: WRITE	Prompt: $E(X,1,KK-2) Line Location: P1+2
Routine Call	DIC Line Location: EN1+2 T1
Routine Call	DIE Line Location: EN1+3 EN1+4 DIS EN3+3
Routine Call	DIR Line Location: EN2+2
Routine Call	%ZIS Line Location: EN2+3 EN2OLD+2 EN2NEW+2

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	E41+2
^FH(115.2 - [#115.2]	EN1+4, EN1+6, T1+2, T1+3, ADD+1, A, A+1, A+2, A+3, A+4 , A+5, A+6, N33+6, SP+3
^FHPT - [#115]	EN3+2, EN3+5, N33+3, N33+4*, DISP+2

Label References

Name	Line Occurrences
A	A+3
ADD	T1+3
DIS	TRAN+3
DISP	EN3+1
E41	EN4+1
EN1	EN1+2, EN1+6, TRAN+1, DIS
EN2NEW	EN2+5
EN2OLD	EN2+4
EN3	EN3+12
EN4	EN4+1
KIL	EN1+2, T1+1, EN2+3, EN2OLD+2, EN2NEW+2, EN3+1, EN4+1
N31	EN3+6
N32	N32+2
N33	N31
P0	DISP+4, P0+2
P1	P0, P0+1
SP	DISP+2
SP1	SP+7, SP+8
T1	T1+1
TRAN	TRAN+2

Naked Globals

Name	Field # of Occurrence
^(	T1+3, EN3+2, EN3+5, DISP+2
^(0	T1+2*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	E41+1
%ZIS	EN2+3!, EN2OLD+2!, EN2NEW+2!
>> AGE	E41+3*, E41+4
>> ANS	TRAN+3*
>> BY	EN2OLD, EN2NEW
>> COM	N31+1, N32, N32+1, N32+2*
DA	EN1+3, EN1+4, EN1+5!, DIS!, EN3+1, EN3+8, EN3+11!
DA(1	EN3+8*, EN3+9
>> DAS	SP+4*, SP1, SP1+1
>> DFN	EN4+1, E41+2
>> DHD	EN2OLD+1, EN2NEW+1
DIC	EN1+2!, T1!, EN2OLD, EN2NEW
DIC("DR"	EN1+2*
DIC("S"	T1*
DIC(0	EN1+2, T1
DIE	EN1+2, EN1+5!, DIS!, EN3+3*!
DIE("NO^"	EN3+3*
DIK	EN3+9*, EN3+11!
>> DILOCKTM	A
DIR	EN2+1!
DIR("A"	EN2+1*
DIR("B"	EN2+2*
DIR(0	EN2+2*
>> DIRUT	EN2+3
>> DIS	T1+3*
DLAYGO	EN1+2*!
>> DOB	E41+2*, E41+3
DR	EN1+3, EN1+4, EN1+5!, DIS!, EN3+3
DT	E41+1*
DTIME	TRAN
>> DTOUT	EN1+2, T1+1
>> EVT	N32, N32+1
>> FHALGMZ	EN1+1, KIL
>> FHALL	EN3+1, EN4+1
>> FHALRC	EN2+4*, EN2+5
>> FHD	T1+1*, T1+3
>> FHDA	EN1+3*, EN1+6, T1+2, DIS, ADD+1, A, A+1, A+2, A+3, A+4 , A+5, A+6
>> FHDFN	EN3+1, EN3+2, EN3+5, EN3+8, N33+3, N33+4, EN4+1, DISP+2
>> FHX1	A+1*, A+4
>> FHX2	A+1*, A+2, A+3, A+5, A+6
>> FLDS	EN2OLD, EN2NEW
>> FLG	EN3+3, EN3+4, EN3+7
>> FR	EN2OLD+1, EN2NEW+1
IOF	E41+4
>> IOP	EN2+3, EN2OLD+2, EN2NEW+2*
>> K	EN3+2, EN3+5, EN3+8, N31, N33, N33+3, N33+6, DISP+2*, SP1+1
>> KK	N31+1, N32, N32+1, N32+2, P1+1, P1+2, SP+4, SP+6, SP1, SP1+1
>> L	EN2OLD, EN2NEW
>> L1	T1+3, ADD+1, A+5, A+6, SP+4, SP+5, SP+6, SP1, SP1+1
>> M	DISP+3, DISP+4, SP+4, SP+7, SP+8, SP+9, SP+10, SP1, SP1+1
>> M1	SP+2*, SP+8, SP+9, SP+10
>> MM	DISP+3*, DISP+4
>> NOD	N33+3*, N33+4
>> NOW	E41+1*, E41+3
P	DISP+2!
P(	DISP+3, DISP+4, SP1, SP1+1
P(""	DISP+6
>> P1	DISP+2, DISP+4, SP1, SP1+1*
>> P2	DISP+4*
>> PID	E41+4
PP	EN3+2!, EN3+6!
PP(	EN3+2, EN3+5, N31, N32, N32+1, N32+2, N33!, N33+6*
>> Q	N33+1, N33+6, SP+6
>> SEX	E41+2*, E41+4
>> STR	EN3+5*, EN3+7, EN3+8
>> TO	EN2OLD+1, EN2NEW+1
U	EN1+2, SP+2, SP+3, SP+5, SP+7
>> X	EN1+2, TRAN, TRAN+1, TRAN+2, TRAN+3, T1+1, EN3+2, EN3+5, DISP+2, P0 , P0+1, P1, P1+1, P1+2*, SP+1, SP+2, SP+3, SP+4, SP+5, SP+6 , SP+7
>> X1	N33, N33+1, N33+2, N33+6, DISP+4, P0, P0+2
>> X2	N33, N33+1, N33+6, DISP+4, P0+1*, P0+2
>> Y	EN1+2, EN1+3, EN1+6, T1+1, EN2+4, EN3+4
>> Y(0	E41+2*, E41+4
>> Z	SP+3*, SP+4
>> Z1	SP+9, SP+10

Customize PDF page

Package: Dietetics