Routine: HBHCRP30

Information

HBHCRP30 ; LR VAMC(IRMS)/MJT-HBHC report on Medical Foster Home file 633.2 data, sorted by name, includes: MFH Name, Opened Date, Primary Caregiver Name, Date of Birth, & Age, includes # OF MFHs & Average Age @ end of rpt ; Feb 2008

Source Information

Source file <HBHCRP30.m>

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
Hospital Based Home Care	2	(HDR132NR,TODAY)^HBHCUTL END132^HBHCUTL1

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: 1

Package	Total	Caller Graph
Hospital Based Home Care	1	HBHCRP30

Entry Points

Name	Comments	DBIA/ICR reference
DQ	; De-queue
LOOP	; Loop thru ^HBHC(633.2,"B") MFH Name cross-ref to build report
EXIT	; Exit module
PROCESS	; Process record & build ^TMP("HBHC",$J) global
PRTLOOP	; Print loop
PRINT	; Print report
PRTTOT	; Print report totals

External References

Name	Field # of Occurrence
^%ZIS	HBHCRP30+2
^%ZISC	EXIT+1
^%ZTLOAD	HBHCRP30+3
HDR132NR^HBHCUTL	DQ+5, DQ+6, PRINT+1, PRTTOT+1
TODAY^HBHCUTL	DQ+5
END132^HBHCUTL1	LOOP+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: PRINT+1
Function Call: WRITE	Prompt: !,HBHCNAME,?40,$P(HBHCTMP,U),?58,$P(HBHCTMP,U,2),?103,$P(HBHCTMP,U,3),?121,$P(HBHCTMP,U,4),!,HBHCY Line Location: PRINT+3
Function Call: WRITE	Prompt: @IOF Line Location: PRTTOT+1
Function Call: WRITE	Prompt: !!,HBHCZ,!,"Medical Foster Home (MFH) Total: ",?34,$J(HBHCTOT,5),!,"Average Caregiver Age: ",?34,$J(HBHCTOT1/HBHCTOT,5),!,HBHCZ Line Location: PRTTOT+2
Routine Call	%ZIS Line Location: HBHCRP30+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^HBHC(633.2 - [#633.2]	LOOP+1, PROCESS+1
^TMP("HBHC"	LOOP+2, EXIT+2!, PROCESS+9*, PRTLOOP+2, PRINT+2

Label References

Name	Line Occurrences
EXIT	HBHCRP30+2, HBHCRP30+3
PRINT	PRTLOOP+2
PROCESS	LOOP+1
PRTLOOP	LOOP+2
PRTTOT	LOOP+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	HBHCRP30+2*
DT	PROCESS+7, PROCESS+8
HBHCAGE	EXIT+2!, PROCESS+7, PROCESS+8, PROCESS+9
HBHCCC	HBHCRP30+2, DQ+6, EXIT+2!, PRINT+1, PRTTOT+1
HBHCCDOB	EXIT+2!, PROCESS+4*, PROCESS+6, PROCESS+7, PROCESS+8
HBHCCOLM	DQ+4*, EXIT+2!
HBHCDFN	LOOP+1, EXIT+2!, PROCESS+1, PROCESS+9, PRTLOOP+2, PRINT+2
HBHCHDR	DQ+3*, EXIT+2!
HBHCHEAD	DQ+2*, DQ+4, EXIT+2!
HBHCNAME	EXIT+2!, PRTLOOP+2*, PRINT+2, PRINT+3
HBHCNOD0	EXIT+2!, PROCESS+1*, PROCESS+3, PROCESS+4, PROCESS+9
HBHCPAGE	DQ+2*, EXIT+2!
HBHCTDY	EXIT+2!
HBHCTMP	EXIT+2!, PRINT+2*, PRINT+3
HBHCTOT	EXIT+2!, PRTLOOP+1, PRINT+2, PRTTOT+2
HBHCTOT1	EXIT+2!, PRTLOOP+1, PRINT+2, PRTTOT+2
HBHCY	DQ+2*, EXIT+2!, PRINT+3
HBHCZ	DQ+2*, EXIT+2!, PRTTOT+2
IO	DQ+1, DQ+5, DQ+6
IO("Q"	HBHCRP30+3
IO("S"	DQ+5, DQ+6
IO(0	DQ+5, DQ+6
IOF	PRINT+1, PRTTOT+1
IOP	HBHCRP30+2!
IOSL	PRINT+1, PRTTOT+1
>> POP	HBHCRP30+2
U	PROCESS+3, PROCESS+4, PROCESS+9, PRINT+2, PRINT+3
X	EXIT+2!
Y	EXIT+2!
>> ZTDESC	HBHCRP30+3*
ZTIO	HBHCRP30+2!
>> ZTRTN	HBHCRP30+3*, PRINT+1, PRTTOT+1
ZTSAVE	HBHCRP30+2!
ZTSAVE("HBHC*"	HBHCRP30+3*

Customize PDF page

Package: Hospital Based Home Care