Routine: HBHCRP26

Information

HBHCRP26 ; LR VAMC(IRMS)/MJT-HBHC report on Medical Foster Home file 633.2, sorted by name, includes: MFH Name, Opened Date, Prim Caregiver, Max Pts, Bedbound Max, Closure Date, & Voluntary Closure ; Mar 2007

Source Information

Source file <HBHCRP26.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	HBHCRP26

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	HBHCRP26+2
^%ZISC	EXIT+1
^%ZTLOAD	HBHCRP26+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,?35,$S($P(HBHCTMP,U)]"":$E($P(HBHCTMP,U),4,5)_"-"_$E($P(HBHCTMP,U),6,7)_"-"_$E($P(HBHCTMP,U),2,3),1:""),?48,$P(HBHCTMP,U,2),?87,$P(HBHCTMP,U,3),?99,$P(HBHCTMP,U,4) Line Location: PRINT+3
Function Call: WRITE	Prompt: ?111,$S($P(HBHCTMP,U,5)]"":$E($P(HBHCTMP,U,5),4,5)_"-"_$E($P(HBHCTMP,U,5),6,7)_"-"_$E($P(HBHCTMP,U,5),2,3),1:""),?123,$S(($P(HBHCTMP,U,6)="Y"):"Yes",($P(HBHCTMP,U,6)="N"):"No",1:""),!,HBHCY Line Location: PRINT+4
Function Call: WRITE	Prompt: @IOF Line Location: PRTTOT+1
Function Call: WRITE	Prompt: !!,HBHCZ,!,"Maximum Patients Total: ",?34,$J(HBHCTOT1,5),!,"Bedbound Maximum Total: ",?34,$J(HBHCTOT2,5),!!,"Medical Foster Home (MFH) Total: ",?34,$J(HBHCTOT,5),!,HBHCZ Line Location: PRTTOT+2
Routine Call	%ZIS Line Location: HBHCRP26+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+2*, PRTLOOP+2, PRINT+2

Label References

Name	Line Occurrences
EXIT	HBHCRP26+2, HBHCRP26+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	HBHCRP26+2*
HBHCCC	HBHCRP26+2, DQ+6, EXIT+2!, PRINT+1, PRTTOT+1
HBHCCOLM	DQ+4*, EXIT+2!
HBHCDFN	LOOP+1, EXIT+2!, PROCESS+1, PROCESS+2, 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+2
HBHCPAGE	DQ+2*, EXIT+2!
HBHCTDY	EXIT+2!
HBHCTMP	EXIT+2!, PRINT+2*, PRINT+3, PRINT+4
HBHCTOT	EXIT+2!, PRTLOOP+1, PRINT+2, PRTTOT+2
HBHCTOT1	EXIT+2!, PRTLOOP+1, PRINT+2, PRTTOT+2
HBHCTOT2	EXIT+2!, PRTLOOP+1, PRINT+2, PRTTOT+2
HBHCY	DQ+2*, EXIT+2!, PRINT+4
HBHCZ	DQ+2*, EXIT+2!, PRTTOT+2
IO	DQ+1, DQ+5, DQ+6
IO("Q"	HBHCRP26+3
IO("S"	DQ+5, DQ+6
IO(0	DQ+5, DQ+6
IOF	PRINT+1, PRTTOT+1
IOP	HBHCRP26+2!
IOSL	PRINT+1, PRTTOT+1
>> POP	HBHCRP26+2
U	PROCESS+2, PRINT+2, PRINT+3, PRINT+4
X	EXIT+2!
Y	EXIT+2!
>> ZTDESC	HBHCRP26+3*
ZTIO	HBHCRP26+2!
>> ZTRTN	HBHCRP26+3*, PRINT+1, PRTTOT+1
ZTSAVE	HBHCRP26+2!
ZTSAVE("HBHC*"	HBHCRP26+3*

Customize PDF page

Package: Hospital Based Home Care