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

Package: Hospital Based Home Care

Routine: HBHCRP5


Information

HBHCRP5 ;LR VAMC(IRMS)/MJT - HBHC report on file 631 (Discharge); May 22, 2021@15:09

Source Information

Source file <HBHCRP5.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
Hospital Based Home Care 2 TODAY^HBHCUTL  PARENT^HBHCUTL1  
DRG Grouper 1 $$CODEC^ICDEX  
VA FileMan 1 ^DIC  

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 HBHCRP5  

Entry Points

Name Comments DBIA/ICR reference
PROMPT ; Prompt user for patient name
DQ ; De-queue
PROCESS ; Process record
EXIT ; Exit module

External References

Name Field # of Occurrence
^%ZIS PROMPT+3
^%ZISC EXIT+1
^%ZTLOAD PROMPT+4
^DIC PROMPT+1
TODAY^HBHCUTL DQ+12
PARENT^HBHCUTL1 DQ+6
$$CODEC^ICDEX PROCESS+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?HBHCCOLM,">>> HBPC ",HBHCHEAD," Report <<<"
  • Line Location: DQ+13
Function Call: WRITE
  • Prompt: !!,"Run Date: ",HBHCTDY,!!,HBHCZ
  • Line Location: DQ+13
Function Call: WRITE
  • Prompt: !,"Patient Name: ",$P(HBHCDPT0,U),?46,"Last Four:",?58,$E($P(HBHCDPT0,U,9),6,9),!,HBHCZ
  • Line Location: PROCESS+2
Function Call: WRITE
  • Prompt: !," 1. Hospital Number:",?29,$J(HBHCHOSPX,7),?38,"|"
  • Line Location: PROCESS+4
Function Call: WRITE
  • Prompt: ?41,"20. Primary Diagnosis @ D/C:",?72,$J($S($P(HBHCY0,U,47)]"":$$CODEC^ICDEX(80,$P(HBHCY0,U,47)),1:""),8),!,HBHCY
  • Line Location: PROCESS+5
Function Call: WRITE
  • Prompt: !," 2. Discharge Date:",?28,$S($P(HBHCY0,U,40)]"":$E($P(HBHCY0,U,40),4,5)_"-"_$E($P(HBHCY0,U,40),6,7)_"-"_$E($P(HBHCY0,U,40),2,3),1:""),?38,"|",?41,"21. Secondary Diagnoses @ D/C:"
  • Line Location: PROCESS+6
Function Call: WRITE
  • Prompt: !,HBHCY
  • Line Location: PROCESS+8
Function Call: WRITE
  • Prompt: !," 3. Eligibility @ Discharge:",?34,$P(HBHCY0,U,41),?38,"|",?41,"22. Vision @ Discharge:",?79,$P(HBHCY0,U,48),!,HBHCY
  • Line Location: PROCESS+9
Function Call: WRITE
  • Prompt: !," 4. Marital Status @ Discharge:",?35,$P(HBHCY0,U,42),?38,"|",?46,"Hearing @ Discharge:",?79,$P(HBHCY0,U,49),!,HBHCY
  • Line Location: PROCESS+10
Function Call: WRITE
  • Prompt: !," 5. Living Arrangements @ D/C:",?35,$P(HBHCY0,U,43),?38,"|",?41,"23. Expressive Communication @ D/C:",?79,$P(HBHCY0,U,50),!,HBHCY
  • Line Location: PROCESS+11
Function Call: WRITE
  • Prompt: !," 6. Discharge Status:",?35,$P(HBHCY0,U,44),?38,"|",?41,"24. Receptive Communication @ D/C:",?79,$P(HBHCY0,U,51),!,HBHCY
  • Line Location: PROCESS+12
Function Call: WRITE
  • Prompt: !," 7. Transfer Destination:",?35,$P(HBHCY0,U,45),?38,"|",?41,"25. Bathing @ Discharge:",?79,$P(HBHCY0,U,52),!,HBHCY
  • Line Location: PROCESS+13
Function Call: WRITE
  • Prompt: !," 8. Type of Destination Agency:",?35,$P(HBHCY0,U,46),?38,"|",?46,"Dressing @ Discharge:",?79,$P(HBHCY0,U,53),!,HBHCY
  • Line Location: PROCESS+14
Function Call: WRITE
  • Prompt: !," 9. Cause of Death:",?38,"|",?46,"Toilet Usage @ Discharge:",?79,$P(HBHCY0,U,54)
  • Line Location: PROCESS+15
Function Call: WRITE
  • Prompt: !?5,$P(HBHCNOD1,U,15),?38,"|"
  • Condition for execution: $P(HBHCNOD1,U,15)]""
  • Line Location: PROCESS+15
Function Call: WRITE
  • Prompt: !,HBHCY
  • Line Location: PROCESS+16
Function Call: WRITE
  • Prompt: !?5,"Name:",?25,$S($P(HBHCY0,U,18)]"":$E($P(HBHCY0,U,18),4,5)_$E($P(HBHCY0,U,18),6,7)_$E($P(HBHCY0,U,18),2,3),1:"")_$E($P(HBHCDPT0,U),1,5),?38,"|",?46,"Transferring @ Discharge:",?79,$P(HBHCY0,U,55),!,HBHCY
  • Line Location: PROCESS+17
Function Call: WRITE
  • Prompt: !?5,"Last Four:",?25,$E($P(HBHCDPT0,U,9),6,9),?38,"|",?46,"Eating @ Discharge:",?79,$S($P(HBHCNOD1,U)]"":$P(HBHCNOD1,U),1:""),!,HBHCY
  • Line Location: PROCESS+18
Function Call: WRITE
  • Prompt: !?38,"|",?46,"Walking @ Discharge:",?79,$S($P(HBHCNOD1,U,2)]"":$P(HBHCNOD1,U,2),1:""),!,HBHCY
  • Line Location: PROCESS+19
Function Call: WRITE
  • Prompt: !?38,"|",?41,"26. Bowel Continence @ Discharge:",?79,$S($P(HBHCNOD1,U,3)]"":$P(HBHCNOD1,U,3),1:""),!,HBHCY
  • Line Location: PROCESS+20
Function Call: WRITE
  • Prompt: !?38,"|",?46,"Bladder Continence @ Discharge:",?79,$S($P(HBHCNOD1,U,4)]"":$P(HBHCNOD1,U,4),1:""),!,HBHCY
  • Line Location: PROCESS+21
Function Call: WRITE
  • Prompt: !?38,"|",?41,"27. Mobility @ Discharge:",?79,$S($P(HBHCNOD1,U,5)]"":$P(HBHCNOD1,U,5),1:""),!,HBHCY
  • Line Location: PROCESS+22
Function Call: WRITE
  • Prompt: !?38,"|",?41,"28. Adaptive Tasks @ Discharge:",?79,$S($P(HBHCNOD1,U,6)]"":$P(HBHCNOD1,U,6),1:""),!,HBHCY
  • Line Location: PROCESS+23
Function Call: WRITE
  • Prompt: !?38,"|",?41,"29. Behavior Problems @ Discharge:",?79,$S($P(HBHCNOD1,U,7)]"":$P(HBHCNOD1,U,7),1:""),!,HBHCY
  • Line Location: PROCESS+24
Function Call: WRITE
  • Prompt: !?38,"|",?41,"30. Disorientation @ Discharge:",?79,$S($P(HBHCNOD1,U,8)]"":$P(HBHCNOD1,U,8),1:""),!,HBHCY
  • Line Location: PROCESS+25
Function Call: WRITE
  • Prompt: !?38,"|",?41,"31. Mood Disturbance @ Discharge:",?79,$S($P(HBHCNOD1,U,9)]"":$P(HBHCNOD1,U,9),1:""),!,HBHCY
  • Line Location: PROCESS+26
Function Call: WRITE
  • Prompt: !?38,"|",?41,"32. Caregiver Limitations @ D/C:",?79,$S($P(HBHCNOD1,U,10)]"":$P(HBHCNOD1,U,10),1:""),!,HBHCY
  • Line Location: PROCESS+27
Function Call: WRITE
  • Prompt: !?38,"|",?41,"33. Person Completing Discharge:",?76,$J($S($P(HBHCNOD1,U,11)]"":$P(^HBHC(631.4,$P(HBHCNOD1,U,11),0),U),1:""),4),!,HBHCY
  • Line Location: PROCESS+28
Function Call: WRITE
  • Prompt: !?38,"|",?46,"Date Discharge Completed:",?72,$S($P(HBHCNOD1,U,12)]"":$E($P(HBHCNOD1,U,12),4,5)_"-"_$E($P(HBHCNOD1,U,12),6,7)_"-"_$E($P(HBHCNOD1,U,12),2,3),1:""),!,HBHCY
  • Line Location: PROCESS+29
Routine Call
  • %ZIS
  • Line Location:
    • PROMPT+3
Routine Call
  • DIC
  • Line Location:
    • PROMPT+1

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)
^DIC(4 - [#4] DQ+2
^DPT - [#2] PROCESS+1
^HBHC(631 - [#631] PROCESS+1
^HBHC(631.4 - [#631.4] PROCESS+28
^HBHC(631.9 - [#631.9] DQ+2

Label References

Name Line Occurrences
EXIT PROMPT+2, PROMPT+3, PROMPT+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS PROMPT+3*
DIC PROMPT+1!*, EXIT+2!
DIC(0 PROMPT+1*
HBHCCOLM DQ+2*, DQ+13, EXIT+2!
HBHCDFN PROMPT+3*, PROCESS+1, EXIT+2!
HBHCDPT0 PROCESS+1*, PROCESS+2, PROCESS+17, PROCESS+18, EXIT+2!
HBHCHEAD DQ+2*, DQ+13, EXIT+2!
HBHCHOSP DQ+2*, DQ+11, EXIT+2!
HBHCHOSPX DQ+3~, DQ+4*, DQ+8*, DQ+11*, PROCESS+4
HBHCNOD1 PROCESS+1*, PROCESS+7, PROCESS+15, PROCESS+18, PROCESS+19, PROCESS+20, PROCESS+21, PROCESS+22, PROCESS+23, PROCESS+24
, PROCESS+25, PROCESS+26, PROCESS+27, PROCESS+28, PROCESS+29, EXIT+2!
HBHCTDY DQ+13, EXIT+2!
HBHCY DQ+2*, PROCESS+5, PROCESS+8, PROCESS+9, PROCESS+10, PROCESS+11, PROCESS+12, PROCESS+13, PROCESS+14, PROCESS+16
, PROCESS+17, PROCESS+18, PROCESS+19, PROCESS+20, PROCESS+21, PROCESS+22, PROCESS+23, PROCESS+24, PROCESS+25, PROCESS+26
, PROCESS+27, PROCESS+28, PROCESS+29, EXIT+2!
HBHCY0 PROMPT+3*, PROCESS+1, PROCESS+5, PROCESS+6, PROCESS+9, PROCESS+10, PROCESS+11, PROCESS+12, PROCESS+13, PROCESS+14
, PROCESS+15, PROCESS+17, EXIT+2!
HBHCZ DQ+13, PROCESS+2, EXIT+2!
IO DQ+1
IO("Q" PROMPT+4
IOP PROMPT+3!
>> POP PROMPT+3
U DQ+2, PROCESS+2, PROCESS+5, PROCESS+6, PROCESS+7, PROCESS+9, PROCESS+10, PROCESS+11, PROCESS+12, PROCESS+13
, PROCESS+14, PROCESS+15, PROCESS+17, PROCESS+18, PROCESS+19, PROCESS+20, PROCESS+21, PROCESS+22, PROCESS+23, PROCESS+24
, PROCESS+25, PROCESS+26, PROCESS+27, PROCESS+28, PROCESS+29
Y PROMPT+2, PROMPT+3, EXIT+2!
Y(0 PROMPT+3
>> ZTDESC PROMPT+4*
ZTIO PROMPT+3!
>> ZTRTN PROMPT+4*
ZTSAVE PROMPT+3!
ZTSAVE("HBHC*" PROMPT+4*
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