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
Print Page as PDF
Routine: HBHCUTL1

Package: Hospital Based Home Care

Routine: HBHCUTL1


Information

HBHCUTL1 ; LR VAMC(IRMS)/MJT-HBHC Utility Module; May 05, 2021@16:27

Source Information

Source file <HBHCUTL1.m>

Entry Points

Name Comments DBIA/ICR reference
ENDRPT ; Print end of report message
END132 ; Print end of report message for 132 column report
FORMMSG ; Process Form 3/4/5/7 Transmit Status fields
EXIT ; Exit FORMMSG module
SETNODE ; Set node in ^HBHC(634.4) (Form 6 Corrections file)
BIRTHYR ; Birth year field display during Evaluation/Admission Data Entry
SEXRACE ; Sex & Race fields display during Evaluation/Admission Data Entry
MASMSG ; MAS message for BIRTHYR & SEX modules
HOSP ; Obtain Hospital Number from ^DIC(4 (Institution file); set HBHCHOSP variable
; Newing Y to prevent undef in calling routines since DIQ1 call is apparently killing Y
PARENT ;retrieve patient's parent site

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?28,"==== End of Report ===="
  • Line Location: ENDRPT+1
Function Call: WRITE
  • Prompt: !!?54,"==== End of Report ===="
  • Line Location: END132+1
Function Call: WRITE
  • Prompt: $C(7),!!,"Transmit Status Flag must be reset before editing this record is allowed."
  • Line Location: FORMMSG+1
Function Call: WRITE
  • Prompt: !!,"*** NOTICE: Hospital Number is missing from System Parameter file (#631.9).",!,"Due to automatic Form 6 Correction Record generation, Transmit Status Flag"
  • Line Location: FORMMSG+2
Function Call: WRITE
  • Prompt: !,"CANNOT be reset without this information. Contact IRM to enter this",!,"information using FileMan.",!
  • Line Location: FORMMSG+3
Function Call: WRITE
  • Prompt: !!,"No parent sites are defined at this facility."
  • Line Location: FORMMSG+8
Function Call: WRITE
  • Prompt: !,"Contact your HBPC Program Manager to define at least one"
  • Line Location: FORMMSG+9
Function Call: WRITE
  • Prompt: !,"parent site in option ""System Parameters Edit"".",!
  • Line Location: FORMMSG+10
Function Call: WRITE
  • Prompt: !!,"Do you wish to reset the Flag"
  • Line Location: FORMMSG+14
Function Call: WRITE
  • Prompt: !
  • Line Location: FORMMSG+14
Function Call: WRITE
  • Prompt: !
  • Line Location: FORMMSG+14
Function Call: WRITE
  • Prompt: !,"*** Record locked by another user. Please try again later. ***",!
  • Line Location: FORMMSG+18
Function Call: WRITE
  • Prompt: !!,"BIRTH YEAR: ",$S($P(HBHCDPT0,U,3):1700+$E($P(HBHCDPT0,U,3),1,3),1:"0000"),$C(7)
  • Line Location: BIRTHYR+2
Function Call: WRITE
  • Prompt: !!,"SEX: ",$S(HBHCSEX="M":"Male (1)",1:"Female (2)"),$C(7)
  • Line Location: SEXRACE+2
Function Call: WRITE
  • Prompt: !,"RACE: Obsolete Field Jan 2003",!
  • Line Location: SEXRACE+7
Function Call: WRITE
  • Prompt: !?18,"*** Contact MAS if value is incorrect. ***",!
  • Line Location: MASMSG+1
Info |  Source |  Entry Points |  Interaction Calls