Routine: HBHCDEM

Information

HBHCDEM ; LR VAMC(IRMS)/MJT-HBHC Medical Foster Home (MFH) demographic data entry ; May 20, 2021@13:31

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
VA FileMan	3	^DIC ^DIE ^DIR
Hospital Based Home Care	1	FORMMSG^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	HBHC MFH DEMOGRAPHIC INPUT

Entry Points

Name	Comments	DBIA/ICR reference
START	; Initialization
PROMPT	; Prompt user for Medical Foster Home (MFH) name
EXIT	; Exit module

External References

Name	Field # of Occurrence
^DIC	PROMPT+1
^DIE	PROMPT+8, PROMPT+23
^DIR	START+8, PROMPT+36
FORMMSG^HBHCUTL1	PROMPT+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"No parent sites are defined at this facility." Line Location: START+3
Function Call: WRITE	Prompt: !,"Contact your HBPC Program Manager to define at least one" Line Location: START+4
Function Call: WRITE	Prompt: !,"parent site in option ""System Parameters Edit"".",! Line Location: START+5
Function Call: WRITE	Prompt: !! Line Location: PROMPT+7
Function Call: WRITE	Prompt: !!,"A Parent Site is required for each Medical Foster Home." Line Location: PROMPT+12
Function Call: WRITE	Prompt: !,"If you exit without entering a Parent Site, this entry" Line Location: PROMPT+13
Function Call: WRITE	Prompt: !,"will not be transmitted to Austin until a Parent Site" Line Location: PROMPT+14
Function Call: WRITE	Prompt: !,"is defined. An HBHC Medical Foster Home Error will be" Line Location: PROMPT+15
Function Call: WRITE	Prompt: !,"generated by the transmission record verification process.",! Line Location: PROMPT+16
Function Call: WRITE	Prompt: !!,"This Medical Foster Home has had an AITC transaction built with" Line Location: PROMPT+27
Function Call: WRITE	Prompt: !,"the former Parent Site. All patients in this Medical Foster Home" Line Location: PROMPT+28
Function Call: WRITE	Prompt: !,"need to be reviewed using Option Evaluation/Admission Data Entry." Line Location: PROMPT+29
Function Call: WRITE	Prompt: !!,"If the following message appears, answer ""YES"":" Line Location: PROMPT+30
Function Call: WRITE	Prompt: !!,"Transmit Status Flag must be reset before editing this record is allowed" Line Location: PROMPT+31
Function Call: WRITE	Prompt: !,"Do you wish to reset the Flag?" Line Location: PROMPT+32
Function Call: WRITE	Prompt: !!,"If the message does not display, no further action is needed for this patient.",! Line Location: PROMPT+33
Function Call: WRITE	Prompt: $C(7),!!,"Another user is editing this entry.",!! Line Location: PROMPT+37
Routine Call	DIC Line Location: PROMPT+1
Routine Call	DIE Line Location: PROMPT+8 PROMPT+23
Routine Call	DIR Line Location: START+8 PROMPT+36

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

Name	Line Occurrences (* Changed, ! Killed)
^DG(40.8 - [#40.8]	PROMPT+20
^HBHC(631.9 - [#631.9]	START+2, PROMPT+19
^HBHC(633.2 - [#633.2]	PROMPT+3, PROMPT+5*, PROMPT+7, PROMPT+18, PROMPT+26

Label References

Name	Line Occurrences
EXIT	PROMPT+2, PROMPT+4
PROMPT	PROMPT+4, PROMPT+7, PROMPT+37

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	PROMPT+6, PROMPT+22, EXIT+1!
DIC	PROMPT+1!*, EXIT+1!
DIC(0	PROMPT+1*
DIE	PROMPT+6!, PROMPT+22, EXIT+1!
DIR	START+6~, PROMPT+34~
DIR("A"	START+7, PROMPT+35
DIR(0	START+7, PROMPT+35
DR	PROMPT+6, PROMPT+21, EXIT+1!
HBHCDFN	PROMPT+3*, PROMPT+5, PROMPT+6, PROMPT+7, PROMPT+18, PROMPT+22, PROMPT+26, EXIT+1!
HBHCFORM	START+9*, EXIT+1!
HBHCNHSP	PROMPT+4, EXIT+1!
HBHCPARN	PROMPT+17~, PROMPT+19, PROMPT+20
HBHCPRCT	PROMPT+1!, PROMPT+4, PROMPT+25, EXIT+1!
HBHCPREV	PROMPT+17~, PROMPT+18*, PROMPT+26
HBHCXMT7	PROMPT+3*, PROMPT+4, EXIT+1!
U	PROMPT+3, PROMPT+5
X	EXIT+1!
Y	PROMPT+2, PROMPT+3, PROMPT+5, EXIT+1!

Customize PDF page

Package: Hospital Based Home Care