Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: HBHCUPD

Package: Hospital Based Home Care

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

Source Information

Source file <HBHCUPD.m>

Call Graph

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:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All