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, Entry points: ENDRPT, END132, FORMMSG, BIRTHYR, SEXRACE, HOSP ;2/5/98 15:19

Source Information

Source file <HBHCUTL1.m>

Call Graph

Call Graph Total: 3

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

Caller Graph

Caller Graph Total: 39

Package Total Caller Graph
Hospital Based Home Care 39 HBHCADM  HBHCDEM  HBHCDIS  HBHCPS24  HBHCR15B  HBHCR19A  HBHCRP10  HBHCRP11  
HBHCRP12  HBHCRP14  HBHCRP16  HBHCRP17  HBHCRP18  HBHCRP1A  HBHCRP20  HBHCRP21  
HBHCRP22  HBHCRP23  HBHCRP24  HBHCRP25  HBHCRP26  HBHCRP27  HBHCRP28  HBHCRP29  
HBHCRP3  HBHCRP30  HBHCRP31  HBHCRP4  HBHCRP7  HBHCRP8  HBHCUTL2  HBHCWORK  
HBHCXMA1  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

External References

Name Field # of Occurrence
NOW^%DTC FORMMSG+11
YN^DICN FORMMSG+4
EN^DIQ1 HOSP+5

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: !!,"Do you wish to reset the Flag"
  • Line Location: FORMMSG+4
Function Call: WRITE
  • Prompt: !
  • Line Location: FORMMSG+4
Function Call: WRITE
  • Prompt: !
  • Line Location: FORMMSG+4
Function Call: WRITE
  • Prompt: !,"*** Record locked by another user. Please try again later. ***",!
  • Line Location: FORMMSG+8
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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] SETNODE+3, BIRTHYR+1, SEXRACE+1
^HBHC( FORMMSG+8, FORMMSG+10, FORMMSG+12!, FORMMSG+13*, FORMMSG+14!*, FORMMSG+15!*, FORMMSG+16, SETNODE+3
^HBHC(631.9 - [#631.9] FORMMSG+2, FORMMSG+3, HOSP+5
^HBHC(634.4 - [#634.4] SETNODE+2*, SETNODE+9*
^UTILITY("DIQ1" HOSP+4!, HOSP+6, HOSP+8!

Label References

Name Line Occurrences
FORMMSG FORMMSG+4
HOSP SETNODE+7
MASMSG BIRTHYR+2, SEXRACE+2
SETNODE FORMMSG+17

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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