Routine: HBHCRP14

Information

HBHCRP14 ; VAMC(IRMS)/MJT-HBHC report locates records in ^HBHC(631, ^HBHC(632 files with pseudo SSNs, populates ^HBHC(634.5 (pseudo SSN error(s)) file, report includes: patient name & SSN for pseudo SSN records ;9403

Source Information

Source file <HBHCRP14.m>

Call Graph

Call Graph Total: 6

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

Entry Points

Name	Comments	DBIA/ICR reference
DQ	; De-queue
EXIT	; Exit module
FILE	; File entry ; Quit if cancelled appointment
PRINT	; Print report

External References

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

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: @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: HBHCRP14+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, FILE+2
^HBHC(634.5 - [#634.5]	DQ+2, DQ+3!*, EXIT+1, PRINT+3

Label References

Name	Line Occurrences
EXIT	HBHCRP14+2, HBHCRP14+3, DQ+2
FILE	DQ+8
PRINT	DQ+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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

Customize PDF page

Package: Hospital Based Home Care