Routine: HBHCUPDM

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Information

HBHCUPDM ; LR VAMC(IRMS)/MJT-HBHC update missing data in ^HBHC(633.2) using ^HBHC(634.7) as input for which records/fields to update, HBHC(634.7 errors must be corrected using this MFH option, 634.7 data killed @ end of processing;9804

Source Information

Source file <HBHCUPDM.m>

Call Graph

Call Graph Total: 2

Package	Total	Call Graph
VA FileMan	2	^DIC ^DIE

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	HBHCUPDM

Entry Points

Name	Comments	DBIA/ICR reference
PROMPT	; Prompt user for Medical Foster Home (MFH) name
EXIT	; Exit module ; HBHC(634.7 MFH errors must be corrected using this MFH option, 634.7 killed here so validity processing can occur again
PROCESS	; Process errors via DIE

External References

Name	Field # of Occurrence
^DIC	PROMPT+1
^DIE	PROCESS+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: PROMPT+1
Function Call: WRITE	Prompt: $C(7),!!,"This Medical Foster Home (MFH) has no records containing errors on file.",! Line Location: PROMPT+4
Function Call: WRITE	Prompt: $C(7),!!,"Another user is editing this Medical Foster Home (MFH) entry.",! Line Location: PROCESS+1
Function Call: WRITE	Prompt: !!!?10,"=== Editing Medical Foster Home (MFH) Demographic data ===",! Line Location: PROCESS+4
Routine Call	DIC Line Location: PROMPT+1
Routine Call	DIE Line Location: PROCESS+5

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^HBHC(633.2 - [#633.2]	PROCESS+1
^HBHC(634.7 - [#634.7]	PROMPT+4, PROMPT+5, EXIT+2!*, PROCESS+2

Label References

Name	Line Occurrences
EXIT	PROMPT+2
PROCESS	PROMPT+5
PROMPT	PROMPT+4, PROMPT+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DA	PROMPT+3*, PROCESS+1
DIC	PROMPT+1!*, EXIT+3!
DIC(0	PROMPT+1*
DIE	EXIT+3!, PROCESS+3!*
DIE("NO^"	PROCESS+3*
DR	EXIT+3!, PROCESS+2!*, PROCESS+5!
>> HBHCIEN	PROMPT+5*, PROCESS+2
>> HBHCMFHN	PROMPT+3*, PROMPT+4, PROMPT+5
HBHCMFHP	EXIT+3!
U	PROMPT+3
Y	PROMPT+2, PROMPT+3, EXIT+3!