Routine: FHSEL1

Information

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

Source file <FHSEL1.m>

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

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

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