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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA FileMan 4 NOW^%DTC  YN^DICN  EN^DIQ1  ^DIR  

Caller Graph

Caller Graph Total: 43

Package Total Caller Graph
Hospital Based Home Care 43 HBHCADM  HBHCDEM  HBHCDIS  HBHCPS24  HBHCR15B  HBHCR19A  HBHCRP10  HBHCRP11  
HBHCRP12  HBHCRP14  HBHCRP16  HBHCRP17  HBHCRP18  HBHCRP1A  HBHCRP2  HBHCRP20  
HBHCRP21  HBHCRP22  HBHCRP23  HBHCRP24  HBHCRP25  HBHCRP26  HBHCRP27  HBHCRP28  
HBHCRP29  HBHCRP3  HBHCRP30  HBHCRP31  HBHCRP4  HBHCRP5  HBHCRP7  HBHCRP8  
HBHCUTL2  HBHCWORK  HBHCXMA  HBHCXMA1  HBHCXMD  HBHCXMD1  HBHCXMM  HBHCXMT  
HBHCXMV1  HBHXMNT2  HBHXMNT3  

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

External References

Name Field # of Occurrence
NOW^%DTC FORMMSG+21
YN^DICN FORMMSG+14
EN^DIQ1 HOSP+5
^DIR FORMMSG+13

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
Routine Call
  • DIR
  • Line Location:
    • FORMMSG+13

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(40.8 - [#40.8] PARENT+24
^DIC(4 - [#4] PARENT+26
^DPT - [#2] SETNODE+3, BIRTHYR+1, SEXRACE+1
^HBHC( FORMMSG+18, FORMMSG+20, FORMMSG+22!, FORMMSG+23*, FORMMSG+24!*, FORMMSG+25!*, FORMMSG+26, SETNODE+3
^HBHC(631 - [#631] PARENT+9, PARENT+11, PARENT+19
^HBHC(631.9 - [#631.9] FORMMSG+2, FORMMSG+3, FORMMSG+5, HOSP+5
^HBHC(633.2 - [#633.2] PARENT+14
^HBHC(634.4 - [#634.4] SETNODE+2*, SETNODE+16*
^UTILITY("DIQ1" HOSP+4!, HOSP+6, HOSP+8!

Label References

Name Line Occurrences
FORMMSG FORMMSG+14
HOSP SETNODE+13
MASMSG BIRTHYR+2, SEXRACE+2
PARENT SETNODE+9
SETNODE FORMMSG+27

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % FORMMSG+14*, FORMMSG+15, FORMMSG+16, FORMMSG+21
DA HOSP+4!, HOSP+5*, HOSP+6, HOSP+8!
DIC HOSP+4!, HOSP+5*, HOSP+8!
>> DILOCKTM FORMMSG+18, SETNODE+2
DIR FORMMSG+11~
DIR("A" FORMMSG+12*
DIR(0 FORMMSG+12*
DR HOSP+4!, HOSP+5*, HOSP+6, HOSP+8!
DUZ FORMMSG+23
HBHC3XMT FORMMSG+25*, EXIT+1!
HBHC5XMT FORMMSG+24*, EXIT+1!
HBHCADDT EXIT+1!, SETNODE+4*, SETNODE+15
>> HBHCDFN FORMMSG+18, FORMMSG+20, FORMMSG+22, FORMMSG+23, FORMMSG+24, FORMMSG+25, FORMMSG+26, SETNODE+3, PARENT+2, PARENT+9
, PARENT+11, PARENT+19
>> HBHCDPT SETNODE+3, BIRTHYR+1, SEXRACE+1
HBHCDPT0 EXIT+1!, SETNODE+3*, SETNODE+6, SETNODE+15, BIRTHYR+1*, BIRTHYR+2, SEXRACE+1*, SEXRACE+8!
HBHCDSDT EXIT+1!, SETNODE+5*, SETNODE+15
HBHCFILE FORMMSG+17*, FORMMSG+18, FORMMSG+20, FORMMSG+22, FORMMSG+23, FORMMSG+24, FORMMSG+25, FORMMSG+26, EXIT+1!, SETNODE+3
>> HBHCFORM FORMMSG+16, FORMMSG+17, FORMMSG+19, FORMMSG+20, FORMMSG+24, FORMMSG+25, FORMMSG+27
HBHCHOSP EXIT+1!, SETNODE+14, HOSP+6*, HOSP+7*
HBHCHOSPX SETNODE+8~, SETNODE+12, SETNODE+14*, SETNODE+15, PARENT+5*, PARENT+26*, PARENT+27*
HBHCINFO EXIT+1!, SETNODE+3*, SETNODE+4, SETNODE+5
HBHCLNTH EXIT+1!, SETNODE+1*, SETNODE+6
HBHCMFHPAT PARENT+8~, PARENT+9*, PARENT+10, PARENT+18
HBHCMFHX PARENT+8~, PARENT+11*, PARENT+13, PARENT+14
HBHCNAME EXIT+1!, SETNODE+6*, SETNODE+15
HBHCNDX1 EXIT+1!, SETNODE+2*, SETNODE+16
>> HBHCNHSP FORMMSG+3*, FORMMSG+7*
HBHCNODE FORMMSG+17*, FORMMSG+18, FORMMSG+20, FORMMSG+23, FORMMSG+24, FORMMSG+25, FORMMSG+26, EXIT+1!
HBHCNOW FORMMSG+21*, FORMMSG+23, EXIT+1!
HBHCPC1 FORMMSG+17*, FORMMSG+23, EXIT+1!
HBHCPC2 FORMMSG+17*, FORMMSG+23, EXIT+1!
HBHCPC3 FORMMSG+19*, FORMMSG+23, EXIT+1!
>> HBHCPRCT FORMMSG+15*
HBHCPRNT PARENT+3~, PARENT+5*, PARENT+14*, PARENT+19*, PARENT+22, PARENT+24*, PARENT+26
HBHCREC EXIT+1!, SETNODE+15*, SETNODE+16
HBHCS136 EXIT+1!, SETNODE+1*, SETNODE+15
HBHCSEX SEXRACE+1*, SEXRACE+2, SEXRACE+8!
HBHCSP4 EXIT+1!, SETNODE+1*, HOSP+3*, HOSP+7, PARENT+6*, PARENT+27
HBHCSP8 EXIT+1!, SETNODE+1*, SETNODE+4, SETNODE+5
HBHCSTAT FORMMSG+20*, FORMMSG+22, EXIT+1!
HBHCXREF FORMMSG+19*, FORMMSG+22, FORMMSG+23, EXIT+1!
U FORMMSG+2, FORMMSG+3, FORMMSG+20, FORMMSG+23, FORMMSG+24, FORMMSG+25, SETNODE+2, SETNODE+4, SETNODE+5, SETNODE+6
, SETNODE+15, BIRTHYR+2, SEXRACE+1, HOSP+5
Y FORMMSG+16*, HOSP+2~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All