Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^HBHC(631 - [#631] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call