Routine: HBHCUPD

Information

HBHCUPD ;LR VAMC(IRMS)/MJT - HBHC update missing data in ^HBHC(631) using ^HBHC(634.1) & ^HBHC(634.3) as input for which records/fields to update, HBHC(634.2 errors must be corrected using PCE, 634.2 data killed @ end of processing ;3/18/14

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
VA FileMan	3	^DIC ^DIE ^DIK
Hospital Based Home Care	2	$$ICD^HBHCUPD (PCEMSG,PSEUDO)^HBHCUTL3
DRG Grouper	1	$$SINFO^ICDEX

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	HBHCUPD

Entry Points

Name	Comments	DBIA/ICR reference
PROMPT	; Prompt user for patient name
PSEUDO	; Process pseudo SSN message
EXIT	; Exit module ; HBHC(634.2 visit errors must be corrected using PCE software, 634.2 killed here so validity processing can occur again
PROCESS	; Process errors via DIE
SET	; Set DR string(s) for Discharge data
ICD()	; ; Set ICDVDT based on whether process Admission or Discharge
DXCHKA1(DA)	; Admissions - Check for DX codes and adjust DR as needed for first ^DIE call
DXCHKA2(DA)	; Admissions - adjust DR as needed for second ^DIE call
DXCHKD1(DA,HBHCIEN)	; Discharges - Check for DX codes as adjust as needed for first ^DIE call ; DA = #631 IEN ; HBHCIEN = #634.3 IEN ; Loop through DR looking for DISCHARGE DATE #39 & PRI DX @ DISCHARGE (#46). ; Fields are stored in numerical sequence so if DISCHARGE DATE (#39) is defined, it will be processed first
DXCHKD2(DA)	; Discharges - Load fields in HBHCDRD into DR for second ^DIE call ; Determine Date of Interest based on current value in #39
FNDIT(HBHCFLD,HBHCCNT,HBHCDATA)	; ; Find target HBHCFLD in string HBHBDATA ; Return either HBHC39 or HBHC46 = Line^Piece
GETDT(DA)	;

External References

Name	Field # of Occurrence
^DIC	PROMPT+1
^DIE	PROCESS+23, PROCESS+29, PROCESS+36, PROCESS+42
^DIK	PROCESS+43
$$ICD^HBHCUPD	PROCESS+39
PCEMSG^HBHCUTL3	HBHCUPD+8, PSEUDO+1
PSEUDO^HBHCUTL3	PSEUDO+2
$$SINFO^ICDEX	ICD+3, GETDT+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: PROMPT+1
Function Call: WRITE	Prompt: $C(7),!!,"This patient has no records containing errors on file.",! Line Location: PROMPT+4
Function Call: WRITE	Prompt: $C(7),!!,"Another user is editing this "_HBHCTXT_" entry.",! Line Location: PROCESS+4
Function Call: WRITE	Prompt: !!!?HBHCCOLM,"=== Editing "_$S(HBHCDATE]"":HBHCDATE_" "_HBHCTXT,1:HBHCTXT)_" data ===",! Line Location: PROCESS+22
Routine Call	DIC Line Location: PROMPT+1
Routine Call	DIE Line Location: PROCESS+23 PROCESS+29 PROCESS+36 PROCESS+42

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls
^HBHC(631 - [#631]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^HBHC(	PROMPT+5, PROCESS+3, PROCESS+7, PROCESS+18, SET+1, SET+2
^HBHC(631 - [#631]	PROCESS+4, PROCESS+21, PROCESS+43, ICD+2, GETDT+1
^HBHC(631.9 - [#631.9]	HBHCUPD+7
^HBHC(634.1 - [#634.1]	HBHCUPD+8, PROMPT+4
^HBHC(634.2 - [#634.2]	HBHCUPD+8, PROMPT+4, PSEUDO+1, EXIT+2!*
^HBHC(634.3 - [#634.3]	HBHCUPD+8, PROMPT+4, DXCHKD1+7, DXCHKD1+8, DXCHKD1+23, DXCHKD1+27, DXCHKD1+29, DXCHKD1+31, DXCHKD1+32, DXCHKD1+34!
^HBHC(634.5 - [#634.5]	HBHCUPD+8, PROMPT+4, PSEUDO+2!*
^HBHC(634.7 - [#634.7]	HBHCUPD+7!*

Label References

Name	Line Occurrences
$$FNDIT	DXCHKD1+9, DXCHKD1+12
DXCHKA1	PROCESS+8
DXCHKA2	PROCESS+27
DXCHKD1	PROCESS+15
DXCHKD2	PROCESS+34
GETDT	DXCHKA1+5, DXCHKA2+3, DXCHKD1+19, DXCHKD2+2
PROCESS	PROMPT+5
PROMPT	PROMPT+4, PROMPT+6
PSEUDO	HBHCUPD+8, PROMPT+2
SET	PROCESS+18

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	EXIT+3!, PROCESS+3, PROCESS+4, PROCESS+8, PROCESS+15, PROCESS+21, PROCESS+27, PROCESS+34, PROCESS+42, PROCESS+43 , ICD+2, DXCHKA1~, DXCHKA1+5, DXCHKA1+9, DXCHKA2~, DXCHKA2+3, DXCHKA2+9, DXCHKD1~, DXCHKD1+19, DXCHKD2~ , DXCHKD2+2, GETDT~, GETDT+1
DIC	PROMPT+1!*, EXIT+3!
DIC(0	PROMPT+1*
DIE	EXIT+3!, PROCESS+19!, PROCESS+28!, PROCESS+35!*
DIE("NO^"	PROCESS+19, PROCESS+28, PROCESS+35*
DIK	EXIT+3!, PROCESS+43!*
DR	PROMPT+5!, EXIT+3!, PROCESS+7, PROCESS+8, PROCESS+23!, PROCESS+30!, PROCESS+37!, PROCESS+39, PROCESS+41, PROCESS+42 , SET+1, SET+2, DXCHKA1+4, DXCHKA1+7, DXCHKA1+8, DXCHKA1+9, DXCHKA1+11, DXCHKA1+12, DXCHKA2+5, DXCHKA2+9 , DXCHKD2+9, DXCHKD2+10*
DR(1	SET+1, DXCHKD2+9
HBHC	EXIT+3!, PROCESS+20*, PROCESS+43
HBHC12	EXIT+3!
HBHC359	EXIT+3!
HBHC39	PROCESS+1~, DXCHKD1+6, DXCHKD1+7, DXCHKD1+9, DXCHKD1+14, DXCHKD1+16, DXCHKD1+18, FNDIT+8
HBHC46	PROCESS+1~, DXCHKD1+6, DXCHKD1+7, DXCHKD1+12, DXCHKD1+14, DXCHKD1+16, DXCHKD1+18, DXCHKD1+23, DXCHKD1+27, DXCHKD1+29 , DXCHKD1+31, DXCHKD2+5, DXCHKD2+8, FNDIT+8
HBHCAFLG	EXIT+3!
HBHCCNT	PROMPT+5, EXIT+3!, SET+1, DXCHKD1+5~, DXCHKD1+6, DXCHKD1+7, DXCHKD1+8, DXCHKD1+9, DXCHKD1+12, FNDIT~ , FNDIT+7
HBHCCOLM	EXIT+3!, PROCESS+20*, PROCESS+22
HBHCDATA	DXCHKD1+5~, DXCHKD1+8*, DXCHKD1+9, DXCHKD1+12, FNDIT~, FNDIT+5, FNDIT+6
HBHCDATE	EXIT+3!, PROCESS+21*, PROCESS+22
HBHCDFLG	EXIT+3!
HBHCDFN	EXIT+3!, PROCESS+23!, PROCESS+30!, PROCESS+42, DXCHKA1+9, DXCHKA2+9*
HBHCDIED	EXIT+3!
HBHCDPT	PROMPT+3*, PROMPT+4, PROMPT+5, EXIT+3!
HBHCDR	EXIT+3!, PROCESS+7, PROCESS+39, PROCESS+41, SET+2, ICD+2
HBHCDRA	PROCESS+1~, PROCESS+2, PROCESS+25, DXCHKA1+11, DXCHKA2+5, DXCHKA2+7, DXCHKA2+8, DXCHKA2+9*
HBHCDRD	PROCESS+1~, PROCESS+32
HBHCDRD(1	DXCHKD1+27, DXCHKD1+32, DXCHKD2+5*, DXCHKD2+8, DXCHKD2+9, DXCHKD2+10
HBHCDT	EXIT+3!, PROCESS+21*
HBHCFILE	PROMPT+5*, EXIT+3!, PROCESS+3, PROCESS+7, PROCESS+18, SET+1, SET+2
HBHCFLAG	HBHCUPD+8*, PSEUDO+1, EXIT+3!
HBHCFLD	FNDIT~, FNDIT+6, FNDIT+7, FNDIT+8
HBHCFLG	EXIT+3!
HBHCFND	DXCHKA1+1~, DXCHKA1+2, DXCHKA1+7, DXCHKA1+9, DXCHKA2+1~, DXCHKA2+7, DXCHKA2+9, FNDIT+3~, FNDIT+4, FNDIT+5 , FNDIT+7*
HBHCFORM	PROMPT+5*, EXIT+3!, PROCESS+3, PROCESS+6, PROCESS+10, PROCESS+20, PROCESS+25, PROCESS+32
HBHCI	EXIT+3!, FNDIT+3~, FNDIT+5*, FNDIT+6, FNDIT+7
HBHCIDX	DXCHKA1+1~, DXCHKA1+7, DXCHKA1+8, DXCHKA1+9, DXCHKA2+1~, DXCHKA2+7, DXCHKA2+8, DXCHKA2+9, DXCHKD1+31*, DXCHKD1+32 , DXCHKD1+34
HBHCIDX1	DXCHKD1+5~, DXCHKD2+8*, DXCHKD2+9, DXCHKD2+10
HBHCIDX2	DXCHKD1+5~, DXCHKD2+7, DXCHKD2+9
HBHCIEN	PROMPT+5*, EXIT+3!, PROCESS+3, PROCESS+7, PROCESS+15, PROCESS+18, PROCESS+20, SET+1, SET+2, DXCHKD1~ , DXCHKD1+7, DXCHKD1+8, DXCHKD1+23, DXCHKD1+27, DXCHKD1+29, DXCHKD1+31, DXCHKD1+32, DXCHKD1+34
HBHCJ	EXIT+3!
HBHCKEEP	EXIT+3!, PROCESS+43!
HBHCL	EXIT+3!
HBHCM	EXIT+3!
HBHCMSG	EXIT+3!
HBHCNOD1	EXIT+3!
HBHCPC	EXIT+3!, PROCESS+20*, PROCESS+21
HBHCQ	EXIT+3!
HBHCQ1	EXIT+4!
HBHCRFLG	EXIT+4!
HBHCSUB	EXIT+4!, PROCESS+16, PROCESS+18, SET+1, SET+2
HBHCTFLG	EXIT+4!
HBHCTXT	EXIT+4!, PROCESS+3*, PROCESS+4, PROCESS+22
HBHCUPD	EXIT+4!, PROCESS+42*!
HBHCWRD1	EXIT+4!
HBHCWRD2	EXIT+4!
HBHCWRD3	EXIT+4!
HBHCY0	EXIT+4!
ICDFMT	PROCESS+23!, PROCESS+30!, PROCESS+37!, ICD+4, GETDT+3
ICDSYS	PROCESS+23!, PROCESS+30!, PROCESS+37!, ICD+3, ICD+4, ICD+5, DXCHKA1+6, DXCHKA2+5, DXCHKD1+21, DXCHKD2+5 , GETDT+2, GETDT+3
ICDVDT	PROCESS+23!, PROCESS+30!, PROCESS+37!, ICD+2, ICD+3, GETDT+1, GETDT+2
U	HBHCUPD+7, PROCESS+3, PROCESS+21, ICD+2, DXCHKD1+23, DXCHKD1+27, DXCHKD1+29, DXCHKD1+31, DXCHKD2+5, DXCHKD2+8 , FNDIT+7, GETDT+1
Y	PROMPT+2, PROMPT+3, EXIT+4!, PROCESS+42, PROCESS+43

Customize PDF page

Package: Hospital Based Home Care