Routine: HBHCRP11

Information

HBHCRP11 ; LR VAMC(IRMS)/MJT-HBHC rpt on file 631, All active (admitted but not D/C) cases by date range, sorted by HBHC Team, then by name, includes: patient name, Last Four, admission date, & totals for team & all ; 12/21/05 3:31pm

Source Information

Source file <HBHCRP11.m>

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
Hospital Based Home Care	2	(HDRRANGE,START,TODAY)^HBHCUTL ENDRPT^HBHCUTL1
VA FileMan	2	DD^%DT C^%DTC

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	HBHCRP11

Entry Points

Name	Comments	DBIA/ICR reference
DQ	; De-queue
LOOP	; Loop thru ^HBHC(631) "AD" (admission date) cross-ref to build report
EXIT	; Exit module
PROCESS	; Process record & build ^TMP("HBHC",$J) global
PRTLOOP	; Print loop
HDR	; Print header
PRT	; Print report
TOT	; Print HBHC team total

External References

Name	Field # of Occurrence
DD^%DT	PRT+2
C^%DTC	LOOP+1
^%ZIS	HBHCRP11+4
^%ZISC	EXIT+1
^%ZTLOAD	HBHCRP11+5
HDRRANGE^HBHCUTL	LOOP+3, HDR+2, HDR+3, PRT+1
START^HBHCUTL	HBHCRP11+2
TODAY^HBHCUTL	DQ+4
ENDRPT^HBHCUTL1	LOOP+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"No data found for Date Range selected." Line Location: LOOP+3
Function Call: WRITE	Prompt: !!,HBHCZ,!,"All Team Census Total: ",HBHCFTOT,!,HBHCZ Line Location: LOOP+4
Function Call: WRITE	Prompt: @IOF Line Location: PRT+1
Function Call: WRITE	Prompt: !,HBHCPT,?43,^TMP("HBHC",$J,HBHCNAM,HBHCPT,HBHCDT),?68,Y,!,HBHCY Line Location: PRT+3
Function Call: WRITE	Prompt: !!,"Team: "_HBHCN_" Census Total: ",HBHCTOT Line Location: TOT+1
Routine Call	%ZIS Line Location: HBHCRP11+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	PROCESS+3
^HBHC(631 - [#631]	LOOP+2, PROCESS+2
^HBHC(631.4 - [#631.4]	PROCESS+2
^HBHC(633 - [#633]	PROCESS+2
^TMP("HBHC"	DQ+2!, LOOP+3, LOOP+4, EXIT+2!, PROCESS+4*, PRTLOOP+2, PRT+3

Label References

Name	Line Occurrences
EXIT	HBHCRP11+3, HBHCRP11+4, HBHCRP11+5
HDR	PRTLOOP+2
PROCESS	LOOP+2
PRT	PRTLOOP+2
PRTLOOP	LOOP+4
TOT	PRTLOOP+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	HBHCRP11+4*
HBHCADDT	LOOP+1, LOOP+2, EXIT+2!, PROCESS+4
HBHCBEG1	HBHCRP11+3, LOOP+1, EXIT+2!
HBHCBEG2	EXIT+2!
HBHCCC	HBHCRP11+4, EXIT+2!, HDR+3, PRT+1
HBHCCLM1	EXIT+2!, HDR+1*
HBHCCOLM	DQ+3*, EXIT+2!
HBHCDFN	LOOP+2*, EXIT+2!, PROCESS+2
HBHCDPT0	EXIT+2!, PROCESS+3*, PROCESS+4
HBHCDT	EXIT+2!, PRTLOOP+2*, PRT+2, PRT+3
HBHCEND1	HBHCRP11+3, LOOP+2, EXIT+2!, PROCESS+1
HBHCEND2	EXIT+2!
HBHCFFFL	EXIT+2!, HDR+1, HDR+4*
HBHCFTOT	DQ+3, LOOP+4, EXIT+2!, TOT+2
HBHCHDR	DQ+3*, EXIT+2!
HBHCHEAD	DQ+3*, EXIT+2!
HBHCN	EXIT+2!, HDR+1*, TOT+1
HBHCNAM	LOOP+3!, EXIT+2!, PROCESS+2, PROCESS+4, PRTLOOP+1, PRTLOOP+2*, HDR+1, PRT+3
HBHCNOD0	LOOP+2*, EXIT+2!, PROCESS+1, PROCESS+3
HBHCPAGE	EXIT+2!
HBHCPT	EXIT+2!, PRTLOOP+2*, PRT+3
HBHCTDY	EXIT+2!
HBHCTOT	DQ+3, EXIT+2!, PRTLOOP+2, PRT+2, TOT+1, TOT+2*
HBHCY	DQ+3*, EXIT+2!, PRT+3
HBHCZ	LOOP+4, EXIT+2!
IO	DQ+1, HDR+2, HDR+3
IO("Q"	HBHCRP11+5
IO("S"	HDR+2, HDR+3
IO(0	HDR+2, HDR+3
IOF	HDR+1, PRT+1
IOP	HBHCRP11+4!
IOSL	PRT+1
>> POP	HBHCRP11+4
U	LOOP+2, PROCESS+1, PROCESS+2, PROCESS+3, PROCESS+4
X	LOOP+1, EXIT+2!
X1	LOOP+1*, EXIT+2!
X2	LOOP+1*, EXIT+2!
Y	EXIT+2!, PRT+2*, PRT+3
>> ZTDESC	HBHCRP11+5*
ZTIO	HBHCRP11+4!
>> ZTRTN	HBHCRP11+5*, PRT+1
ZTSAVE	HBHCRP11+4!
ZTSAVE("HBHC*"	HBHCRP11+5*

Customize PDF page

Package: Hospital Based Home Care