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: HBHCADM

Package: Hospital Based Home Care

Routine: HBHCADM


Information

HBHCADM ;LR VAMC(IRMS)/MJT - HBHC eval/admit data entry; Apr 29, 2021@07:55

Source Information

Source file <HBHCADM.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA FileMan 4 ^DIC  ^DIE  ^DIK  ^DIR  
Hospital Based Home Care 2 FORMMSG^HBHCUTL1  MFHS^HBHCUTL3  
DRG Grouper 1 $$SINFO^ICDEX  
Registration 1 ELIG^VADPT  

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 HBHCADM  

Entry Points

Name Comments DBIA/ICR reference
START ; Initialization
PROMPT ; Prompt user for patient name
MFH ;HBH*1.0*32: first determine if an MFH patient
MFHNO ;Either the site does not have medical foster homes,
CONT ;end of MFH logic - continue with prompts, etc.
EXIT ; Exit module
CHECK ; Check previous episode(s) of care for 'Reject' in Admit/Reject Action or Discharge Date to ensure completed episode of care before allowing another episode of care to be created
DEMO ; Obtain patient demographic info

External References

Name Field # of Occurrence
^DIC PROMPT+3
^DIE MFH+8, MFHNO+15, CONT+17, CONT+27
^DIK CHECK+3
^DIR START+8
FORMMSG^HBHCUTL1 PROMPT+9
MFHS^HBHCUTL3 START+12
$$SINFO^ICDEX CONT+21
ELIG^VADPT DEMO+3

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: !!,"Patient has 'pseudo' social security number (SSN) on file. If patient was",!,"not chosen in error, contact MAS to correct the invalid SSN. Patient must",!,"have a valid SSN to be selected.",!
  • Line Location: PROMPT+6
Function Call: WRITE
  • Prompt: $C(7),!!!,"*** Record contains Discharge data indicating a Complete Episode of Care ***",!!
  • Line Location: PROMPT+8
Function Call: WRITE
  • Prompt: $C(7),!!,"Another user is editing this entry.",!!
  • Line Location: CONT+29
Function Call: WRITE
  • Prompt: $C(7),!!,"Patient must be discharged from last episode of care before new episode",!,"can be entered. Current episode not created.",!
  • Line Location: CHECK+2
Routine Call
  • DIC
  • Line Location:
    • PROMPT+3
Routine Call
  • DIE
  • Line Location:
    • MFH+8
    • MFHNO+15
    • CONT+17
    • CONT+27
Routine Call
  • DIR
  • Line Location:
    • START+8

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(40.8 - [#40.8] MFHNO+12
^DPT - [#2] PROMPT+5, DEMO+2, DEMO+3, DEMO+4, DEMO+5
^HBHC(631 - [#631] PROMPT+7, PROMPT+8, PROMPT+10*, MFH+8, MFHNO+3, MFHNO+15, CONT+7, CONT+10, CONT+17, CONT+20
, CONT+28, CHECK+1, DEMO+6*, DEMO+7*, DEMO+8*, DEMO+9*, DEMO+10*
^HBHC(631.8 - [#631.8] DEMO+2, DEMO+6
^HBHC(631.9 - [#631.9] START+2, PROMPT+2, MFHNO+11

Label References

Name Line Occurrences
CHECK PROMPT+10
DEMO CONT+12
EXIT PROMPT+4, PROMPT+9
PROMPT PROMPT+6, PROMPT+9, PROMPT+11, CONT+18, CONT+28, CONT+29

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA MFH+3~, MFH+6*, MFHNO+14*, CONT+13*, CONT+20, EXIT+1!, CHECK+3*
DFN DEMO+3*!
DIC PROMPT+3!*, EXIT+1!
DIC(0 PROMPT+3*
DIE MFH+3~, MFH+6*, MFHNO+14*, CONT+13!*, EXIT+1!
DIE("NO^" CONT+13*
DIK EXIT+1!, CHECK+3!*
DIR START+6~
DIR("A" START+7*
DIR(0 START+7*
DR MFH+3~, MFH+7*, MFHNO+13*, CONT+16*, CONT+24*, CONT+26*, EXIT+1!
DR(2 MFH+7*
HBHCAFLG EXIT+1!
HBHCBXRF PROMPT+10*, EXIT+1!, CHECK+1
HBHCCNTY EXIT+1!, DEMO+1*, DEMO+2*, DEMO+6
HBHCDFN PROMPT+5*, PROMPT+7, PROMPT+8, PROMPT+10, MFH+6, MFH+8, MFHNO+3, MFHNO+14, MFHNO+15, CONT+7
, CONT+10, CONT+13, CONT+17, CONT+28, EXIT+1!, CHECK+3, DEMO+6, DEMO+7, DEMO+8, DEMO+9
, DEMO+10
HBHCDPT PROMPT+5*, PROMPT+10, EXIT+1!, DEMO+2, DEMO+3, DEMO+4, DEMO+5
HBHCDPT0 PROMPT+5*, PROMPT+6, EXIT+1!
HBHCEL EXIT+1!, DEMO+1*, DEMO+3*
HBHCELGE EXIT+1!, DEMO+1*, DEMO+3*, DEMO+8
HBHCFLG PROMPT+3!, PROMPT+11, EXIT+1!, CHECK+4*
HBHCFORM START+9*, EXIT+1!
HBHCHOSP PROMPT+1~, PROMPT+2*
HBHCI EXIT+1!
HBHCIEN EXIT+1!, DEMO+2*
HBHCINFO EXIT+1!, DEMO+2*, DEMO+4*, DEMO+5*
HBHCJ EXIT+1!
HBHCMARE EXIT+1!, DEMO+1*, DEMO+5*, DEMO+10
HBHCMFHS MFH+2, CONT+10, CONT+23, CONT+25, EXIT+1!
HBHCMFHSTR MFH+3~
HBHCMFHX MFH+3~
HBHCMS EXIT+1!, DEMO+1*, DEMO+5*
HBHCNHSP PROMPT+9, EXIT+1!
HBHCNOD0 PROMPT+5*, EXIT+1!, DEMO+6, DEMO+7, DEMO+8, DEMO+9, DEMO+10
HBHCPARN MFHNO+8~, MFHNO+11*, MFHNO+12*
HBHCPRCT PROMPT+3!, PROMPT+9, EXIT+1!
HBHCPS EXIT+1!, DEMO+1*, DEMO+4*
HBHCPSRV EXIT+1!, DEMO+1*, DEMO+4*, DEMO+9
HBHCQ EXIT+1!
HBHCQUIT CONT+4~, CONT+5*, CONT+7*, CONT+10*, CONT+11
HBHCRFLG EXIT+1!
HBHCSAVY MFH+3~, MFH+5*, MFH+9, MFHNO+8~, MFHNO+10*, MFHNO+16
HBHCST EXIT+1!, DEMO+1*, DEMO+2*, DEMO+6
HBHCWRD1 EXIT+2!
HBHCWRD2 EXIT+2!
HBHCWRD3 EXIT+2!
HBHCXMT3 PROMPT+7*, PROMPT+9, EXIT+2!
HBHCY0 EXIT+2!
HBHCZIP EXIT+2!, DEMO+1*, DEMO+2*, DEMO+7
ICDFMT CONT+22*, CONT+28!
ICDSYS CONT+21*, CONT+22, CONT+24, CONT+26, CONT+28!
ICDVDT CONT+20*, CONT+21, CONT+28!
U PROMPT+2, PROMPT+5, PROMPT+6, PROMPT+7, PROMPT+8, PROMPT+10, CONT+20, CHECK+1, DEMO+2, DEMO+4
, DEMO+5, DEMO+6, DEMO+7, DEMO+8, DEMO+9, DEMO+10
VAEL EXIT+2!
VAEL(1 DEMO+3
X EXIT+2!
Y PROMPT+4, PROMPT+5, PROMPT+10, MFH+5, MFH+9*, MFHNO+10, MFHNO+16*, CONT+18, EXIT+2!
Y(0 PROMPT+5
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