Routine: HBHXMNT2

Information

HBHXMNT2 ; VAMC(IRMS)/MJT-HBHC maintenance routine, locates & prints report of records in ^HBHC(631, ^HBHC(632 files with pseudo SSNs, includes: patient name & SSN for pseudo SSN records, calls ^HBHXMNT3 ;9403

Source Information

Source file <HBHXMNT2.m>

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
Hospital Based Home Care	3	(HDRPAGE,TODAY)^HBHCUTL ENDRPT^HBHCUTL1 ^HBHXMNT3
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA FileMan	1	FILE^DICN

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	HBHXMNT1

Entry Points

Name	Comments	DBIA/ICR reference
DQ	; De-queue
EXIT	; Exit module
PRINT	; Print report

External References

Name	Field # of Occurrence
^%ZIS	HBHXMNT2+2
^%ZISC	DQ+9
^%ZTLOAD	HBHXMNT2+3
FILE^DICN	DQ+8
HDRPAGE^HBHCUTL	DQ+6, DQ+7, PRINT+1, PRINT+2
TODAY^HBHCUTL	DQ+5
ENDRPT^HBHCUTL1	DQ+9, DQ+10
^HBHXMNT3	DQ+12

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: *7,!!,"Another user has the pseudo SSN file locked.",!! Line Location: DQ+2
Function Call: WRITE	Prompt: @IOF Line Location: DQ+7
Function Call: WRITE	Prompt: *7,!!,"No patients found with pseudo SSNs. No resolution required!!" Line Location: DQ+9
Function Call: WRITE	Prompt: @IOF Line Location: PRINT+1
Function Call: WRITE	Prompt: @IOF Line Location: PRINT+2
Function Call: WRITE	Prompt: !,$P(HBHCDPT0,U),?40,$E($P(HBHCDPT0,U,9),1,3)_"-"_$E($P(HBHCDPT0,U,9),4,5)_"-"_$E($P(HBHCDPT0,U,9),6,10) Line Location: PRINT+3
Routine Call	%ZIS Line Location: HBHXMNT2+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^HBHC(634.5 - [#634.5]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	DQ+8, PRINT+3
^HBHC(	DQ+8
^HBHC(634.5 - [#634.5]	DQ+2, DQ+3!*, DQ+9, EXIT+1, PRINT+3

Label References

Name	Line Occurrences
EXIT	HBHXMNT2+2, HBHXMNT2+3, DQ+2, DQ+9
PRINT	DQ+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	HBHXMNT2+2*
DD	DQ+8!, DQ+11!, EXIT+2!
DIC	DQ+8*, DQ+11!, EXIT+2!
DIC(0	DQ+8*
DINUM	DQ+8*, DQ+11!, EXIT+2!
DO	DQ+8!, DQ+11!, EXIT+2!
HBHCCC	HBHXMNT2+2, DQ+7, DQ+11!, EXIT+2!, PRINT+1
HBHCCOLM	DQ+5*, DQ+11!, EXIT+2!
HBHCDFN	DQ+8, DQ+11!, EXIT+2!, PRINT+3
HBHCDPT	DQ+8*, DQ+11!, EXIT+2!
HBHCDPT0	DQ+11!, EXIT+2!, PRINT+3*
HBHCFILE	DQ+8*, DQ+11!, EXIT+2!
HBHCHDR	DQ+5*, DQ+11!, EXIT+2!
HBHCHEAD	DQ+5*, DQ+11!, EXIT+2!
HBHCPAGE	DQ+5*, DQ+11!, EXIT+2!
HBHCTDY	DQ+11!, EXIT+2!
HBHCY	DQ+5*, DQ+11!, EXIT+2!
HBHCZ	DQ+11!, EXIT+2!
IO	DQ+1, DQ+6, DQ+7
IO("Q"	HBHXMNT2+3
IO("S"	DQ+6, DQ+7
IO(0	DQ+6, DQ+7
IOF	DQ+7, PRINT+1, PRINT+2
IOP	HBHXMNT2+2!
IOSL	PRINT+1, PRINT+2
>> POP	HBHXMNT2+2
U	DQ+8, PRINT+3
X	DQ+8*, DQ+11!, EXIT+2!
>> ZTDESC	HBHXMNT2+3*
ZTIO	HBHXMNT2+2!
>> ZTRTN	HBHXMNT2+3*, PRINT+1
ZTSAVE	HBHXMNT2+2!
ZTSAVE("HBHC*"	HBHXMNT2+3*

Customize PDF page

Package: Hospital Based Home Care