Routine: FHOMSP1

Package	Total	Call Graph
Dietetics	4	(SITE,TR)^FH ALG^FHCLN LIST^FHOMSS1 PATNAME^FHOMUTL
Kernel	4	^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT
VA Fileman	2	NOW^%DTC ^DIR

Package

Total

Call Graph

Dietetics

(SITE,TR)^FH ALG^FHCLN LIST^FHOMSS1 PATNAME^FHOMUTL

Kernel

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

VA Fileman

NOW^%DTC ^DIR

Package	Total	Caller Graph
Dietetics	2	FHOMSP FHOMSR1

Package

Total

Caller Graph

Dietetics

FHOMSP FHOMSR1

Name	Comments	DBIA/ICR reference
PRINT	;
END	;
DEV	;get device and set up queue
PR2	;

Name	Field # of Occurrence
NOW^%DTC	PR2+27
^%ZIS	DEV+1
^%ZISC	DEV+2, DEV+7
^%ZTLOAD	DEV+6
^DIR	FHOMSP1+5, FHOMSP1+7
SITE^FH	PR2+27
TR^FH	PR2+5
ALG^FHCLN	PR2+3
LIST^FHOMSS1	FHOMSP1+3
PATNAME^FHOMUTL	PR2+1
$$FMTE^XLFDT	PR2+5, PR2+27

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: FHOMSP1+3
Function Call: WRITE	Prompt: !,"NO AUTHORIZED OR PENDING SPECIAL MEALS TO PRINT" Line Location: FHOMSP1+4
Function Call: WRITE	Prompt: ! Line Location: FHOMSP1+7
Function Call: WRITE	Prompt: ! Line Location: DEV+1
Function Call: WRITE	Prompt: !!!!,LNS,!?4," A U T H O R I Z E D O U T P A T I E N T M E A L V O U C H E R",!,LNS Line Location: PR2+16
Function Call: WRITE	Prompt: !!!,"Name of Pt: ",$E(FHPTNM,1,20)," (",$E(FHPTNM,1,1),FHBID,")" Line Location: PR2+17
Function Call: WRITE	Prompt: ?44,"Req Loc : ",$E(FHLOC,1,24) Line Location: PR2+18
Function Call: WRITE	Prompt: !,"Start Date: ",FHD,?44,"Room-Bed : ",FHRMBNM Line Location: PR2+19
Function Call: WRITE	Prompt: !,"Stop Date : ",FHD,?44,"Requestor: ",$E(FHRQR,1,24),!,ALG Line Location: PR2+20
Function Call: WRITE	Prompt: !!?44,"Signature: ",$S(FHSTAT="A":"/es/"_FHAZR,1:$E(UNLNS,1,23)) Line Location: PR2+21
Function Call: WRITE	Prompt: !!?44," Title: ",$S(FHSTAT="A":FHTTL,1:$E(UNLNS,1,23)) Line Location: PR2+22
Function Call: WRITE	Prompt: !!?44," Date: ",$S(FHSTAT="A":FHD,1:$E(UNLNS,1,23)) Line Location: PR2+23
Function Call: WRITE	Prompt: !!!!,"Pt Authorized a: ",FHDIET," Meal for ",FHMEAL," meal time" Line Location: PR2+24
Function Call: WRITE	Prompt: !!!!!!!!!!!!,"ALTERING OR COPYING THIS MEAL VOUCHER IS PROHIBITED." Line Location: PR2+25
Function Call: WRITE	Prompt: !!!!!!!!!!!!!!!!!!,LNS,!,"In lieu of VA FORM 10-2817",! Line Location: PR2+26
Function Call: WRITE	Prompt: !,"Facility: " Line Location: PR2+27
Function Call: WRITE	Prompt: SITE Line Location: PR2+27
Function Call: WRITE	Prompt: SITE Line Location: PR2+27
Function Call: WRITE	Prompt: !,LNS Line Location: PR2+28
Routine Call	DIR Line Location: FHOMSP1+5 FHOMSP1+7
Routine Call	%ZIS Line Location: DEV+1

Name	Line Occurrences (* Changed, ! Killed)
^DG(405.4 - [#405.4]	PR2+13
^DIC(3.1 - [#3.1]	PR2+9
^FH(111 - [#111]	PR2+14
^FH(119.6 - [#119.6]	PR2+11
^FHPT - [#115]	PR2+2
^VA(200 - [#200]	PR2+7, PR2+8, PR2+9

Name	Line Occurrences
DEV	FHOMSP1+9
END	FHOMSP1+8, DEV+2, DEV+8
PR2	PRINT+1, PRINT+2
PRINT	DEV+2

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	PR2+27
%ZIS	DEV+1!*, DEV+7!
>> A	PRINT+2*
>> ALG	PR2+3*, PR2+20
DIR	FHOMSP1+5!, FHOMSP1+7!
DIR("A"	FHOMSP1+5, FHOMSP1+7
DIR("B"	FHOMSP1+7*
DIR(0	FHOMSP1+5, FHOMSP1+7
>> DIRUT	FHOMSP1+6, FHOMSP1+8
DT	FHOMSP1+3
>> FHA	PR2+4*
FHAZR	PR2+8*, PR2+21, END+1!
>> FHBID	PR2+17
>> FHC	PRINT+2*
>> FHCDT	PRINT+2*, PR2+1, PR2+2, PR2+5
>> FHCLST	FHOMSP1+6*, PRINT+2
>> FHD	PR2+2, PR2+5, PR2+19, PR2+20, PR2+23
>> FHDFN	PR2+1*, PR2+2
FHDIET	PR2+14*, PR2+24, END+1!
FHDPT	PR2+14*, END+1!
>> FHLIST(	PRINT+2
FHLOC	PR2+11*, PR2+18, END+1!
FHLPT	PR2+11*, END+1!
>> FHM	PR2+6*, PR2+10
FHMEAL	PR2+10*, PR2+24, END+1!
>> FHNODE	PR2+2*, PR2+6, PR2+7, PR2+8, PR2+9, PR2+11, PR2+12, PR2+14
>> FHPTNM	PR2+17
>> FHREQPR	PRINT+1
>> FHRMBD	PR2+12*, PR2+13
>> FHRMBNM	PR2+12, PR2+13, PR2+19
FHRQR	PR2+7*, PR2+20, END+1!
>> FHS	FHOMSP1+3*
FHSTAT	PR2+6*, PR2+21, PR2+22, PR2+23, END+1!
FHTITL	END+1!
>> FHTTL	PR2+9*, PR2+22
IO	DEV+2
IO("Q"	DEV+2
IOF	PR2+15
IOP	DEV+1!, DEV+7!
>> LNS	PR2+4*, PR2+16, PR2+26, PR2+28
>> NUM	FHOMSP1+4, FHOMSP1+5, PRINT+2
>> POP	DEV+1
>> SITE	PR2+27
>> STDT	FHOMSP1+3*
U	PR2+1, PR2+2, PR2+5, PR2+6, PR2+7, PR2+8, PR2+9, PR2+11, PR2+12, PR2+13 , PR2+14
>> UNLNS	PR2+4*, PR2+21, PR2+22, PR2+23
>> X	PR2+5*
>> Y	FHOMSP1+6, FHOMSP1+8
>> ZTDESC	DEV+6*
>> ZTRTN	DEV+3*
>> ZTSAVE("FHCDT"	DEV+4*
>> ZTSAVE("FHCLST"	DEV+5*
>> ZTSAVE("FHDFN"	DEV+3*
>> ZTSAVE("FHLIST("	DEV+5*
>> ZTSAVE("FHREQPR"	DEV+4*
>> ZTSAVE("FHS"	DEV+4*
>> ZTSAVE("NUM"	DEV+5*
>> ZTSAVE("STDT"	DEV+3*

Customize PDF page

Package: Dietetics

Routine: FHOMSP1

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: