Routine: FHOMDPA

Package	Total	Call Graph
VA FileMan	4	^DIC FILE^DICN ^DIE ^DIR
Dietetics	2	ENOM^FHDPA (PATNAME,TYPE)^FHOMUTL
Kernel	1	$$FMTE^XLFDT

Package	Total	Caller Graph
Dietetics	54	FHASM1 FHASMR FHASP1 FHASXR FHCTF1 FHCTF3 FHCTF4 FHDCR1 FHDMP FHDPA FHMMBRPT FHMMNADM FHMMNREP FHMNADM FHMNBRPT FHMNINQ FHMNREP FHMTK1 FHMTK6 FHNO5 FHNO7 FHNO8 FHOMDMP FHOMGR1 FHOMIP FHOMPP FHOMRO1 FHOMSR1 FHOMUTL FHOMWOR FHORD11 FHORD13 FHORD6 FHORD7 FHORX2 FHSEL1 FHSP FHSPED FHWADM FHWDIS FHWDISD FHWGMR FHWHEA FHWMAS FHWOR FHWOR7 FHWOR71 FHWOR8 FHWORA FHWORR FHWTRN FHXDB2 FHXIN FHXWRD

Entry Points

Name	Comments	DBIA/ICR reference
F1	; ; FHALL=1 - Lookup INPATIENTS or OUTPATIENTS ; FHALL=0 - Lookup OUTPATIENTS only (to lookup INPATS only, use FHDPA) ; FHDFN=IEN in file #115, FHZ115=.01 in file #115 (ie P27 or N1866) ; DFN=IEN in file #2 (or NULL), IEN200=IEN in file #200 (or NULL)
FX1
FF11	;
VER	;
ADD	; ADD ENTRY IF NOT ALREADY IN FILE 115
CHECK	; CHECK IF ALREADY IN FILE 115
MSG	;
NOP	;
DEAD	;PATIENT IS DEAD

Name	Line Occurrences
Function Call: READ	Formatting: !! Prompt: "Select Patient (Name or SSN): " Variable: X Timeout: DTIME Line Location: F1+7
Function Call: WRITE	Prompt: FHPTNM Line Location: F1+9
Function Call: WRITE	Prompt: !!,"LOOKING IN THE NEW PERSON FILE, FILE # 200.",!! Line Location: FF11+1
Function Call: WRITE	Prompt: !!,"NOT FOUND IN 2 OR 200" Line Location: FF11+5
Function Call: WRITE	Prompt: ! Line Location: VER+1
Function Call: WRITE	Prompt: !!,"Currently admitted as an Inpatient." Line Location: MSG+1
Function Call: WRITE	Prompt: !!?5,"This patient, ",PTNAME,", died on ",PTDOD,"." Line Location: DEAD+9
Function Call: WRITE	Prompt: !?5,FHMSGML," cannot be ordered for this patient." Line Location: DEAD+16
Function Call: WRITE	Prompt: ! Line Location: DEAD+17
Routine Call	DIC Line Location: F1+10 FF11+2
Routine Call	DIE Line Location: ADD+7 ADD+9
Routine Call	DIR Line Location: VER+1

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

Name	Line Occurrences (* Changed, ! Killed)
^DISV(	F1+9, ADD+4, CHECK+4
^DPT - [#2]	FX1, FX1+1, DEAD+3, DEAD+5, DEAD+7
^FHPT("B"	ADD+3, CHECK+2, CHECK+3

Name	Field # of Occurrence
>> DA	ADD+7, ADD+9
DD	ADD+2!
>> DFN	F1+9, F1+11, FX1, FX1+1, FX1+4, FX1+6, CHECK+5, CHECK+6, NOP+1, DEAD+3 , DEAD+5, DEAD+7
DIC	F1+10!, FF11+2!, ADD+2*
DIC(0	F1+10, FF11+2, ADD+2*
DIE	ADD+7!, ADD+9!
>> DIR("A"	VER+1*
>> DIR("B"	VER+1*
>> DIR(0	VER+1*
DO	ADD+2!
>> DR	ADD+7, ADD+9
DTIME	F1+7
DUZ	F1+9, ADD+4, CHECK+4
FHALL	F1+6*, F1+9!, FX1!, FX1+1!, FX1+6!, FF11+4!, FF11+5!, FF11+7!, NOP+1!
>> FHDFN	F1+6, F1+9, FX1+3, ADD+3, ADD+4, ADD+7, ADD+9, CHECK+1, CHECK+3, CHECK+4 , NOP+1*
>> FHMSG1	F1+6*, DEAD+11
>> FHMSGML	DEAD+16
>> FHPTNM	F1+9
>> FHPTR	ADD+5*
>> FHPTTYP	ADD+5*, ADD+6, ADD+8
>> FHYIEN	F1+11, FF11+3
>> FHZ115	F1+6, FX1+6, FF11+6*, ADD+2, ADD+3, ADD+5, CHECK+2, CHECK+3, CHECK+5, CHECK+6
>> FLAG	ADD+1, CHECK+1, CHECK+3
>> IEN200	F1+6, FF11+3, FF11+4, FF11+5, FF11+6, CHECK+5, CHECK+6
PTDOD	DEAD+5*, DEAD+9, DEAD+18!
PTNAME	DEAD+7*, DEAD+9, DEAD+18!
U	F1+7, F1+10, FF11+2, DEAD+3, DEAD+5, DEAD+7
>> X	F1+7, F1+8, F1+10, FF11+2, ADD+2*
>> XRESP	F1+8*, F1+9, FX1+5, FF11+2
>> Y	F1+9, F1+11, FX1+4, FX1+5, FX1+6, FF11+3, FF11+4, NOP+1