Routine: HBHCRP23

Information

HBHCRP23 ; LR VAMC(IRMS)/MJT-HBHC report on file 631, Patient Days by date range, sorted by patient name, includes: IEN, patient name, Last Four, admission date, D/C date, & pt days w/totals, calls: MFHS^HBHCUTL3 & MFH^HBHCUTL3 ; 12/21/05 3:31pm

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
Hospital Based Home Care	3	(HDRRANGE,START,TODAY)^HBHCUTL ENDRPT^HBHCUTL1 (MFH,MFHS)^HBHCUTL3
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA FileMan	1	(,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	HBHCRP23

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 ; Quit if Medical Foster Home (MFH) Report, but not MFH patient; HBHCMFHR variable set in MFH^HBHCUTL3
PRTLOOP	; Print loop
PRINT	; Print report

Name	Field # of Occurrence
^%DTC	PROCESS+12
C^%DTC	PROCESS+6
^%ZIS	HBHCRP23+7
^%ZISC	EXIT+1
^%ZTLOAD	HBHCRP23+8
HDRRANGE^HBHCUTL	DQ+10, DQ+11, LOOP+3, PRINT+1
START^HBHCUTL	HBHCRP23+3
TODAY^HBHCUTL	DQ+10
ENDRPT^HBHCUTL1	LOOP+8
MFH^HBHCUTL3	HBHCRP23+5
MFHS^HBHCUTL3	HBHCRP23+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: HBHCRP23+5
Function Call: WRITE	Prompt: @IOF Line Location: LOOP+3
Function Call: WRITE	Prompt: !!,HBHCZ,!?14,">>> Date Range: ",HBHCBEG2," to ",HBHCEND2," <<<" Line Location: LOOP+4
Function Call: WRITE	Prompt: !,HBHCZ,!,"Total Active Patients: ",$J($FN((HBHCCNT-HBHCCNT1),","),6) Line Location: LOOP+5
Function Call: WRITE	Prompt: !,HBHCZ,!,"Complete Episodes of Care Only:",!?4,"Total Patients: ",$J($FN(HBHCCNT1,","),6)," Total Patient Days in Date Range: ",$J($FN(HBHCTOT1,","),10) Line Location: LOOP+6
Function Call: WRITE	Prompt: !,HBHCZ,!?4,"Total Patients: ",$J($FN(HBHCCNT,","),6)," Total Patient Days in Date Range: ",$J($FN(HBHCTOT,","),10),!,HBHCZ Line Location: LOOP+7
Function Call: WRITE	Prompt: @IOF Line Location: PRINT+1
Function Call: WRITE	Prompt: !,$J("`"_$P(HBHCTMP,U,4),5)_" "_$E(HBHCNAME,1,24),?34,$P(HBHCTMP,U),?50,$E(HBHCADDT,4,5)_"-"_$E(HBHCADDT,6,7)_"-"_$E(HBHCADDT,2,3),?63,$P(HBHCTMP,U,2),?76,$J($P(HBHCTMP,U,3),5),!,HBHCY Line Location: PRINT+3
Function Call: WRITE	Prompt: !,$J("`"_$P(HBHCTMP,U,4),5)_" "_$E(HBHCNAME,1,24),?34,$P(HBHCTMP,U),?42,$E(HBHCADDT,4,5)_"-"_$E(HBHCADDT,6,7)_"-"_$E(HBHCADDT,2,3),?54,$P(HBHCTMP,U,2),?69,$J($P(HBHCTMP,U,3),4),?77,$P(HBHCTMP,U,5),!,HBHCY Line Location: PRINT+4
Routine Call	%ZIS Line Location: HBHCRP23+7

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	PROCESS+9
^HBHC(631 - [#631]	LOOP+1, PROCESS+2, PROCESS+3
^TMP("HBHC"	DQ+2!, EXIT+3!, PROCESS+19, PROCESS+20, PRTLOOP+1, PRINT+2

Name	Line Occurrences
EXIT	HBHCRP23+4, HBHCRP23+6, HBHCRP23+7, HBHCRP23+8
PRINT	PRTLOOP+1
PROCESS	LOOP+1
PRTLOOP	LOOP+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	HBHCRP23+7*
DIR	EXIT+2!
>> DIRUT	HBHCRP23+6
HBHCADDT	LOOP+1, EXIT+2!, PROCESS+10, PROCESS+19, PROCESS+20, PRTLOOP+1, PRINT+2, PRINT+3, PRINT+4
HBHCBEG1	HBHCRP23+4, EXIT+2!, PROCESS+8, PROCESS+10
HBHCBEG2	LOOP+4, EXIT+2!
HBHCCC	HBHCRP23+7, DQ+11, LOOP+3, EXIT+2!, PRINT+1
HBHCCNT	DQ+3, LOOP+5, LOOP+7, EXIT+2!, PROCESS+9
HBHCCNT1	DQ+3, LOOP+5, LOOP+6, EXIT+2!, PROCESS+17
HBHCCOLM	DQ+9*, EXIT+2!
>> HBHCDAT	PROCESS+10*, PROCESS+11
HBHCDATE	EXIT+2!, PROCESS+6, PROCESS+8, PROCESS+11
HBHCDFN	LOOP+1*, EXIT+2!, PROCESS+2, PROCESS+3, PROCESS+19, PROCESS+20
HBHCDPT0	EXIT+2!, PROCESS+9*, PROCESS+19, PROCESS+20
HBHCDSDT	EXIT+2!, PROCESS+4, PROCESS+8, PROCESS+17, PROCESS+18, PROCESS+19, PROCESS+20
HBHCEND1	HBHCRP23+4, LOOP+1, EXIT+2!, PROCESS+6, PROCESS+8, PROCESS+17
HBHCEND2	LOOP+4, EXIT+2!
HBHCHDR	DQ+5, DQ+6, EXIT+2!
HBHCHEAD	DQ+3, DQ+8, DQ+9, EXIT+2!
HBHCLOS	EXIT+2!, PROCESS+9, PROCESS+12, PROCESS+14*, PROCESS+15, PROCESS+17, PROCESS+19, PROCESS+20
HBHCMFH	EXIT+2!, PROCESS+3*, PROCESS+20
HBHCMFHR	DQ+8, EXIT+2!, PROCESS+2
HBHCMFHS	HBHCRP23+5, DQ+5, DQ+6, EXIT+2!, PROCESS+3, PROCESS+19, PROCESS+20, PRINT+3, PRINT+4
HBHCNAME	EXIT+2!, PRTLOOP+1*, PRINT+2, PRINT+3, PRINT+4
HBHCNOD0	LOOP+1*, EXIT+2!, PROCESS+4, PROCESS+9
HBHCPAGE	EXIT+2!
HBHCTDY	EXIT+2!
HBHCTMP	EXIT+2!, PRINT+2*, PRINT+3, PRINT+4
HBHCTOT	DQ+3, LOOP+7, EXIT+2!, PROCESS+15
HBHCTOT1	DQ+3, LOOP+6, EXIT+2!, PROCESS+17
HBHCY	DQ+3*, EXIT+2!, PRINT+3, PRINT+4
HBHCZ	LOOP+4, LOOP+5, LOOP+6, LOOP+7, EXIT+3!
IO	DQ+1, DQ+10, DQ+11
IO("Q"	HBHCRP23+8
IO("S"	DQ+10, DQ+11
IO(0	DQ+10, DQ+11
IOF	LOOP+3, PRINT+1
IOP	HBHCRP23+7!
IOSL	LOOP+3, PRINT+1
>> POP	HBHCRP23+7
U	LOOP+1, PROCESS+4, PROCESS+9, PROCESS+19, PROCESS+20, PRINT+3, PRINT+4
X	EXIT+3!, PROCESS+6, PROCESS+12
X1	EXIT+3!, PROCESS+6, PROCESS+11
X2	EXIT+3!, PROCESS+6, PROCESS+11
Y	EXIT+3!
>> ZTDESC	HBHCRP23+8*
ZTIO	HBHCRP23+7!
>> ZTRTN	HBHCRP23+8*, LOOP+3, PRINT+1
ZTSAVE	HBHCRP23+7!
ZTSAVE("HBHC*"	HBHCRP23+8*

Customize PDF page

Package: Hospital Based Home Care