Routine: HBHCRP31

Information

HBHCRP31 ; LR VAMC(IRMS)/MJT-HBHC report on file 634.7 Form 7 Error(s)), sorted by Medical Foster Home (MFH) Name, & includes MFH file IEN, MFH Name, & Opened Date ; Mar 2008

Source Information

Source file <HBHCRP31.m>

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
Hospital Based Home Care	2	(HDRPAGE,TODAY)^HBHCUTL ENDRPT^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: 2

Package	Total	Caller Graph
Hospital Based Home Care	2	HBHCRP1A HBHCRP31

Entry Points

Name	Comments	DBIA/ICR reference
DQ	; De-queue
LOOP	; Loop thru file 634.7 "B" cross-ref
EXIT	; Exit module
PRINT	; Print record

External References

Name	Field # of Occurrence
^%ZIS	HBHCRP31+3
^%ZISC	EXIT+1
^%ZTLOAD	HBHCRP31+4
HDRPAGE^HBHCUTL	DQ+6, DQ+7, PRINT+1
TODAY^HBHCUTL	DQ+5
ENDRPT^HBHCUTL1	LOOP+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!,"File Update in progress. Please try again later." Line Location: HBHCRP31+2
Function Call: WRITE	Prompt: !,$J(HBHC,6),?17,$P(HBHCNOD0,U) Line Location: PRINT+3
Function Call: WRITE	Prompt: !,HBHCY Line Location: PRINT+5
Routine Call	%ZIS Line Location: HBHCRP31+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^HBHC(631.9 - [#631.9]	HBHCRP31+2
^HBHC(633.2 - [#633.2]	PRINT+2
^HBHC(634.7 - [#634.7]	LOOP+1

Label References

Name	Line Occurrences
EXIT	HBHCRP31+4
PRINT	LOOP+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	HBHCRP31+3*
HBHC	EXIT+2!, PRINT+2*, PRINT+3
HBHCCC	HBHCRP31+3, DQ+7, EXIT+2!, PRINT+1
HBHCCOLM	DQ+5*, EXIT+2!
HBHCHDR	DQ+4*, EXIT+2!
HBHCHEAD	DQ+3*, DQ+5, EXIT+2!
HBHCIEN	LOOP+1*, EXIT+2!
HBHCMFHP	LOOP+1*, EXIT+2!, PRINT+2
HBHCNOD0	EXIT+2!, PRINT+2*, PRINT+3, PRINT+4
HBHCPAGE	DQ+3*, EXIT+2!, PRINT+1
HBHCTDY	EXIT+2!
HBHCY	DQ+3*, EXIT+2!, PRINT+5
HBHCZ	EXIT+2!
IO	DQ+1, DQ+6, DQ+7
IO("Q"	HBHCRP31+4
IO("S"	DQ+6, DQ+7
IO(0	DQ+6, DQ+7
IOF	PRINT+1
IOP	HBHCRP31+3!
IOSL	PRINT+1
>> POP	HBHCRP31+3
U	HBHCRP31+2, PRINT+3, PRINT+4
X	EXIT+2!
Y	EXIT+2!
>> ZTDESC	HBHCRP31+4*
ZTIO	HBHCRP31+3!
>> ZTRTN	HBHCRP31+4*, PRINT+1
ZTSAVE	HBHCRP31+3!
ZTSAVE("HBHC*"	HBHCRP31+4*

Customize PDF page

Package: Hospital Based Home Care