Routine: HBHCRP8

Information

HBHCRP8 ; LR VAMC(IRMS)/MJT-HBHC report on ^HBHC(631.4, HBHC Provider file, sorted by provider & includes: provider name, provider number, degree, grade/step, HBHC FTEE, HBHC Team, & Inactive Provider Number ;9205

Source Information

Source file <HBHCRP8.m>

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
Hospital Based Home Care	2	(HDR132NR,TODAY)^HBHCUTL END132^HBHCUTL1

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	HBHCRP8

Entry Points

Name	Comments	DBIA/ICR reference
DQ	; De-queue
LOOP	; Loop thru ^HBHC(631.4 to build report
EXIT	; Exit module
TEAM	; Set team name
PRTLOOP	; Print loop
PRINT	; Print report

External References

Name	Field # of Occurrence
^%ZIS	HBHCRP8+2
^%ZISC	EXIT+1
^%ZTLOAD	HBHCRP8+3
HDR132NR^HBHCUTL	PRTLOOP+1, PRTLOOP+2, PRINT+2
TODAY^HBHCUTL	DQ+5
END132^HBHCUTL1	LOOP+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: PRINT+2
Function Call: WRITE	Prompt: !,HBHCNAME,?40,HBHCPRV,?49,$P(HBHCINFO,U),?69,$P(HBHCINFO,U,2),?80,$J($P(HBHCINFO,U,3),3,1),?89,$P(HBHCINFO,U,4),?124,$S($P(HBHCINFO,U,5)]"":"Inactive",1:""),!,HBHCY Line Location: PRINT+3
Routine Call	%ZIS Line Location: HBHCRP8+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^HBHC(631.4 - [#631.4]	LOOP+2
^HBHC(633 - [#633]	TEAM+1
^TMP("HBHC"	DQ+2!, LOOP+2*, EXIT+2!, PRTLOOP+3, PRINT+1
^VA(200 - [#200]	LOOP+2

Label References

Name	Line Occurrences
EXIT	HBHCRP8+3
PRINT	PRTLOOP+3
PRTLOOP	LOOP+3
TEAM	LOOP+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	HBHCRP8+2*
HBHCCC	HBHCRP8+2, EXIT+2!, PRTLOOP+2, PRINT+2
HBHCCOLM	DQ+5*, EXIT+2!
HBHCHDR	DQ+4*, EXIT+2!
HBHCHEAD	DQ+3*, DQ+5, EXIT+2!
HBHCIEN	LOOP+1, LOOP+2, EXIT+2!
HBHCINFO	LOOP+2, EXIT+2!, TEAM+1, PRINT+1, PRINT+3
HBHCNAME	EXIT+2!, PRTLOOP+3*, PRINT+1, PRINT+3
HBHCPAGE	DQ+3*, EXIT+2!
HBHCPRV	EXIT+2!, PRTLOOP+3*, PRINT+1, PRINT+3
HBHCTDY	EXIT+2!
HBHCTEAM	LOOP+2, EXIT+2!, TEAM+1*
HBHCY	DQ+3*, EXIT+2!, PRINT+3
HBHCZ	DQ+3*, EXIT+2!
IO	DQ+1, PRTLOOP+1, PRTLOOP+2
IO("Q"	HBHCRP8+3
IO("S"	PRTLOOP+1, PRTLOOP+2
IO(0	PRTLOOP+1, PRTLOOP+2
IOF	PRINT+2
IOP	HBHCRP8+2!
IOSL	PRINT+2
>> POP	HBHCRP8+2
U	LOOP+2, TEAM+1, PRINT+3
Y	EXIT+2!
>> ZTDESC	HBHCRP8+3*
ZTIO	HBHCRP8+2!
>> ZTRTN	HBHCRP8+3*, PRINT+2
ZTSAVE	HBHCRP8+2!
ZTSAVE("HBHC*"	HBHCRP8+3*

Customize PDF page

Package: Hospital Based Home Care