Routine: HBHCRP18

Information

HBHCRP18 ;LR VAMC(IRMS)/MJT - HBHC rpt, file 631, All active (admitted but not D/C) cases by date range, sorted by patient name, includes: name, Last Four, adm date, primary diagnosis @ adm (code & text), & total ;12/21/05 3:31pm

Source Information

Source file <HBHCRP18.m>

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
Hospital Based Home Care	3	(HDR132,START,TODAY)^HBHCUTL END132^HBHCUTL1 $$ICDTEXT^HBHCUTL3
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA FileMan	2	DD^%DT C^%DTC
DRG Grouper	1	($$CODEC,$$VSTD)^ICDEX

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	HBHCRP18

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
PRINT	; Print report

External References

Name	Field # of Occurrence
DD^%DT	PRINT+2
C^%DTC	LOOP+1
^%ZIS	HBHCRP18+19
^%ZISC	EXIT+1
^%ZTLOAD	HBHCRP18+20
HDR132^HBHCUTL	DQ+6, DQ+7, PRINT+1
START^HBHCUTL	HBHCRP18+17
TODAY^HBHCUTL	DQ+6
END132^HBHCUTL1	LOOP+5
$$ICDTEXT^HBHCUTL3	DQ+4
$$CODEC^ICDEX	PROCESS+5
$$VSTD^ICDEX	PROCESS+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: DQ+7
Function Call: WRITE	Prompt: !!,HBHCZ,!,"Active Census Total: ",HBHCTOT,!,HBHCZ Line Location: LOOP+4
Function Call: WRITE	Prompt: @IOF Line Location: PRINT+1
Function Call: WRITE	Prompt: !,HBHCNAME,?40,$P(HBHCTMP,U),?61,Y,?82,$P(HBHCTMP,U,2),?102,$P(HBHCTMP,U,3),!,HBHCY Line Location: PRINT+4
Routine Call	%ZIS Line Location: HBHCRP18+19

Global Variables Directly Accessed

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

Label References

Name	Line Occurrences
EXIT	HBHCRP18+18, HBHCRP18+19, HBHCRP18+20
PRINT	PRTLOOP+1
PROCESS	LOOP+2
PRTLOOP	LOOP+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	HBHCRP18+19*
HBHCADDT	LOOP+1, LOOP+2, EXIT+2!, PROCESS+7, PRTLOOP+1*, PRINT+2, PRINT+3
HBHCBEG1	HBHCRP18+18, DQ+4, LOOP+1, EXIT+2!
HBHCBEG2	EXIT+2!
HBHCCC	HBHCRP18+19, DQ+7, EXIT+2!, PRINT+1
HBHCCOLM	DQ+5*, EXIT+2!
HBHCDFN	LOOP+2*, EXIT+2!
HBHCDPT0	EXIT+2!, PROCESS+3*, PROCESS+7
HBHCDXCODE	PROCESS+2~, PROCESS+5*, PROCESS+7
HBHCDXDESC	PROCESS+2~, PROCESS+6*, PROCESS+7
HBHCEND1	HBHCRP18+18, DQ+4, LOOP+2, EXIT+2!, PROCESS+1
HBHCEND2	EXIT+2!
HBHCHDR	DQ+4*, EXIT+2!
HBHCHEAD	DQ+3*, DQ+5, EXIT+2!
HBHCICDP	EXIT+2!, PROCESS+3*, PROCESS+4, PROCESS+5, PROCESS+6
HBHCNAME	EXIT+2!, PRTLOOP+1*, PRINT+3, PRINT+4
HBHCNOD0	LOOP+2*, EXIT+2!, PROCESS+1, PROCESS+3
HBHCPAGE	EXIT+2!
HBHCTDY	EXIT+2!
HBHCTMP	EXIT+2!, PRINT+3*, PRINT+4
HBHCTOT	DQ+3, LOOP+4, EXIT+2!, PRINT+5
HBHCY	DQ+3*, EXIT+2!, PRINT+4
HBHCZ	DQ+3*, LOOP+4, EXIT+2!
IO	DQ+1, DQ+6, DQ+7
IO("Q"	HBHCRP18+20
IO("S"	DQ+6, DQ+7
IO(0	DQ+6, DQ+7
IOF	DQ+7, PRINT+1
IOP	HBHCRP18+19!
IOSL	PRINT+1
>> POP	HBHCRP18+19
U	LOOP+2, PROCESS+1, PROCESS+3, PROCESS+7, PRINT+4
X	LOOP+1, EXIT+2!
X1	LOOP+1*, EXIT+2!
X2	LOOP+1*, EXIT+2!
Y	EXIT+2!, PRINT+2*, PRINT+4
>> ZTDESC	HBHCRP18+20*
ZTIO	HBHCRP18+19!
>> ZTRTN	HBHCRP18+20*, PRINT+1
ZTSAVE	HBHCRP18+19!
ZTSAVE("HBHC*"	HBHCRP18+20*

Customize PDF page

Package: Hospital Based Home Care