Routine: HBHCRP28

Information

HBHCRP28 ; LR VAMC(IRMS)/MJT-HBHC MFH Rate Paid rpt; user selects: pt or MFH; active only, indiv, or all pts or MFHs; current rate paid only or entire rate paid history, calls ^HBHCUTL5 @ entry points: EN, EXIT, MFH, PT, PRTPT, PRTMFH;Sep 2007

Source Information

Source file <HBHCRP28.m>

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
Hospital Based Home Care	3	(HDRXPAGE,TODAY)^HBHCUTL ENDRPT^HBHCUTL1 (EN,EXIT,MFH,PRTMFH,PRTPT,PT)^HBHCUTL5
Kernel	2	^%ZIS ^%ZTLOAD

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

Package	Total	Caller Graph
Hospital Based Home Care	2	HBHCRP28 HBHCUTL5

Entry Points

Name	Comments	DBIA/ICR reference
DQ	; De-queue
EXIT	; Exit module
PRINTPT	; Print Patient Loop
PRINTMFH	; Print MFH Loop
TOT	; Update low value, high value, count, & total

External References

Name	Field # of Occurrence
^%ZIS	HBHCRP28+4
^%ZTLOAD	HBHCRP28+5
HDRXPAGE^HBHCUTL	DQ+11, PRINTPT+1, PRINTMFH+1
TODAY^HBHCUTL	DQ+2
ENDRPT^HBHCUTL1	DQ+16
EN^HBHCUTL5	HBHCRP28+3
EXIT^HBHCUTL5	EXIT+1
MFH^HBHCUTL5	DQ+13
PRTMFH^HBHCUTL5	DQ+14
PRTPT^HBHCUTL5	DQ+14
PT^HBHCUTL5	DQ+12

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,HBHCY,!!,HBHCZ,"Lowest Rate: ",$J(HBHCLOW,7,2),?28,"Highest Rate: ",$J(HBHCHI,7,2),?57,"Average Rate: ",$J((HBHCTOT/HBHCCNT),8,2),!,HBHCZ Line Location: DQ+15
Function Call: WRITE	Prompt: @IOF Line Location: PRINTPT+1
Function Call: WRITE	Prompt: !,HBHCM,?33,$P(HBHCINFO,U,2),?40,$J($P(HBHCINFO,U),7,2),?50,$E(HBHCJ,4,5)_"-"_$E(HBHCJ,6,7)_"-"_$E(HBHCJ,2,3),?61,$E($P(^HBHC(633.2,$P(HBHCINFO,U,3),0),U),1,19) Line Location: PRINTPT+2
Function Call: WRITE	Prompt: @IOF Line Location: PRINTMFH+1
Function Call: WRITE	Prompt: !,HBHCL,?33,$E(HBHCM,1,19),?55,$P(HBHCINFO,U,2),?62,$J($P(HBHCINFO,U),7,2),?72,$E(HBHCJ,4,5)_"-"_$E(HBHCJ,6,7)_"-"_$E(HBHCJ,2,3) Line Location: PRINTMFH+2
Routine Call	%ZIS Line Location: HBHCRP28+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^HBHC(633.2 - [#633.2]	PRINTPT+2
^TMP("HBHC"	DQ+14, DQ+15

Label References

Name	Line Occurrences
EXIT	HBHCRP28+4, HBHCRP28+5
TOT	PRINTPT+3, PRINTMFH+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	HBHCRP28+4*
>> HBHC	DQ+5
>> HBHC1	DQ+4*
>> HBHC2	DQ+5*
>> HBHC3	DQ+6, DQ+7
>> HBHCCC	HBHCRP28+4, DQ+11, PRINTPT+1, PRINTMFH+1
>> HBHCCNT	DQ+14, DQ+15, TOT+1, TOT+4
>> HBHCCOLM	DQ+3*
>> HBHCDIR	DQ+4
>> HBHCHDR	DQ+9, DQ+10
>> HBHCHDRX	DQ+8*
>> HBHCHEAD	DQ+3*
>> HBHCHI	DQ+15, TOT+1, TOT+3
>> HBHCINFO	PRINTPT+2, PRINTMFH+2, TOT+1, TOT+2, TOT+3, TOT+5
>> HBHCJ	PRINTPT+2, PRINTMFH+2
>> HBHCL	PRINTMFH+2
>> HBHCLOW	DQ+15, TOT+1, TOT+2
>> HBHCM	PRINTPT+2, PRINTMFH+2
>> HBHCPAGE	DQ+3*
>> HBHCTOT	DQ+14, DQ+15, TOT+5
>> HBHCXREF	DQ+6, DQ+7, DQ+9, DQ+10, DQ+12, DQ+13, DQ+14
>> HBHCY	DQ+14*, DQ+15
>> HBHCYN	DQ+7
>> HBHCZ	DQ+15
IO	DQ+1, DQ+11
IO("Q"	HBHCRP28+5
IO("S"	DQ+11
IO(0	DQ+11
IOF	PRINTPT+1, PRINTMFH+1
IOP	HBHCRP28+4!
IOSL	PRINTPT+1, PRINTMFH+1
>> POP	HBHCRP28+4
U	PRINTPT+2, PRINTMFH+2, TOT+1, TOT+2, TOT+3, TOT+5
>> ZTDESC	HBHCRP28+5*
ZTIO	HBHCRP28+4!
>> ZTRTN	HBHCRP28+5*, PRINTPT+1, PRINTMFH+1
ZTSAVE	HBHCRP28+4!
ZTSAVE("HBHC*"	HBHCRP28+5*

Customize PDF page

Package: Hospital Based Home Care