Routine: HBHCRP17

Information

HBHCRP17 ; LR VAMC(IRMS)/MJT-HBHC report on file 632, user selected date range, CPT code(s) (can be range of CPTs), with summary totals, calls: CPT^HBHCUTL3, EN1^HBHCUTL4 & KILL^HBHCUTL4 ; Apr 2000

Source Information

Source file <HBHCRP17.m>

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
Hospital Based Home Care	4	HDRRANGE^HBHCUTL ENDRPT^HBHCUTL1 CPT^HBHCUTL3 (EN1,KILL)^HBHCUTL4
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	HBHCRP17

Entry Points

Name	Comments	DBIA/ICR reference
DQ	; De-queue
LOOP	; Loop thru ^HBHC(632) "C" (visit date) cross-ref to build report
EXIT	; Exit module
PROCESS	; Process record & create ^TMP("HBHC",$J global
SET	; Set TMP node for CPTs
PRTLOOP	; Print loop
PRINT	; Print report

External References

Name	Field # of Occurrence
C^%DTC	LOOP+1
^%ZIS	HBHCRP17+4
^%ZISC	EXIT+1
^%ZTLOAD	HBHCRP17+5
HDRRANGE^HBHCUTL	LOOP+3, LOOP+4, LOOP+7, PRINT+3
ENDRPT^HBHCUTL1	LOOP+9
CPT^HBHCUTL3	PROCESS+2
EN1^HBHCUTL4	HBHCRP17+2
KILL^HBHCUTL4	EXIT+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: LOOP+7
Function Call: WRITE	Prompt: !!,HBHCZ,!,"Total CPT Codes: ",$J(HBHCTOT,6),!,HBHCZ Line Location: LOOP+8
Function Call: WRITE	Prompt: @IOF Line Location: PRINT+3
Function Call: WRITE	Prompt: !,HBHCCPT,?39,$J(HBHCCNT,5) Line Location: PRINT+4
Function Call: WRITE	Prompt: !,HBHCY Line Location: PRINT+5
Routine Call	%ZIS Line Location: HBHCRP17+4

Global Variables Directly Accessed

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

Label References

Name	Line Occurrences
EXIT	HBHCRP17+3, HBHCRP17+4, HBHCRP17+5
PRINT	PRTLOOP+1
PROCESS	LOOP+2
PRTLOOP	LOOP+6
SET	PROCESS+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	HBHCRP17+4*
DIC	EXIT+2!
DTOUT	HBHCRP17+3, EXIT+2!
DUOUT	EXIT+2!
HBHCBEG1	HBHCRP17+3, LOOP+1, EXIT+2!
>> HBHCCC	HBHCRP17+4, DQ+3, LOOP+4*, LOOP+7, PRINT+3
>> HBHCCNT	PRINT+1*, PRINT+2, PRINT+4
>> HBHCCOLM	DQ+3*
>> HBHCCPT	PROCESS+3, SET+1, SET+2, SET+3, SET+4, PRTLOOP+1, PRINT+1, PRINT+4
>> HBHCCPTA(	PROCESS+3
HBHCCPTB	HBHCRP17+3, EXIT+2!, SET+1
HBHCCPTE	HBHCRP17+3, EXIT+2!, SET+1
>> HBHCDATE	LOOP+1, LOOP+2
>> HBHCDFN	LOOP+2*
>> HBHCDIR	SET+1, SET+2
>> HBHCDPT0	PROCESS+1*
HBHCEND1	HBHCRP17+3, LOOP+2, EXIT+2!
>> HBHCHDR	DQ+3*
HBHCHEAD	DQ+3*, EXIT+2!
>> HBHCI	PROCESS+3*
>> HBHCNOD0	LOOP+2*, PROCESS+1
>> HBHCTMP	HBHCRP17+3
>> HBHCTMP(	SET+2
>> HBHCTOT	DQ+4, LOOP+8, PRINT+2
>> HBHCY	DQ+4*, PRINT+5
>> HBHCZ	LOOP+8
IO	DQ+1, LOOP+3, LOOP+4
IO("Q"	HBHCRP17+5
IO("S"	LOOP+3, LOOP+4
IO(0	LOOP+3, LOOP+4
IOF	LOOP+7, PRINT+3
IOP	HBHCRP17+4!
IOSL	LOOP+7, PRINT+3
>> POP	HBHCRP17+4
U	LOOP+2, PROCESS+1
>> X	LOOP+1
>> X1	LOOP+1*
>> X2	LOOP+1*
Y	EXIT+2!
>> ZTDESC	HBHCRP17+5*
ZTIO	HBHCRP17+4!
>> ZTRTN	HBHCRP17+5*, LOOP+7, PRINT+3
ZTSAVE	HBHCRP17+4!
ZTSAVE("HBHC*"	HBHCRP17+5*

Customize PDF page

Package: Hospital Based Home Care