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, individual patient discharge data, includes all fields ;2/5/07

Source Information

Source file <HBHCRP5.m>

Call Graph

Call Graph

Call Graph Total: 6

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

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Hospital Based Home Care 1 HBHCRP5  

Entry Points

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

External References

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?HBHCCOLM,">>> HBPC ",HBHCHEAD," Report <<<"
  • Line Location: DQ+4
Function Call: WRITE
  • Prompt: !!,"Run Date: ",HBHCTDY,!!,HBHCZ
  • Line Location: DQ+4
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(HBHCHOSP,7),?38,"|",?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+3
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+4
Function Call: WRITE
  • Prompt: !,HBHCY
  • Line Location: PROCESS+6
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+7
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+8
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+9
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+10
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+11
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+12
Function Call: WRITE
  • Prompt: !," 9. Cause of Death:",?38,"|",?46,"Toilet Usage @ Discharge:",?79,$P(HBHCY0,U,54)
  • Line Location: PROCESS+13
Function Call: WRITE
  • Prompt: !?5,$P(HBHCNOD1,U,15),?38,"|"
  • Condition for execution: $P(HBHCNOD1,U,15)]""
  • Line Location: PROCESS+13
Function Call: WRITE
  • Prompt: !,HBHCY
  • Line Location: PROCESS+14
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+15
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+16
Function Call: WRITE
  • Prompt: !?38,"|",?46,"Walking @ Discharge:",?79,$S($P(HBHCNOD1,U,2)]"":$P(HBHCNOD1,U,2),1:""),!,HBHCY
  • Line Location: PROCESS+17
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+18
Function Call: WRITE
  • Prompt: !?38,"|",?46,"Bladder Continence @ Discharge:",?79,$S($P(HBHCNOD1,U,4)]"":$P(HBHCNOD1,U,4),1:""),!,HBHCY
  • Line Location: PROCESS+19
Function Call: WRITE
  • Prompt: !?38,"|",?41,"27. Mobility @ Discharge:",?79,$S($P(HBHCNOD1,U,5)]"":$P(HBHCNOD1,U,5),1:""),!,HBHCY
  • Line Location: PROCESS+20
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+21
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+22
Function Call: WRITE
  • Prompt: !?38,"|",?41,"30. Disorientation @ Discharge:",?79,$S($P(HBHCNOD1,U,8)]"":$P(HBHCNOD1,U,8),1:""),!,HBHCY
  • Line Location: PROCESS+23
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+24
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+25
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+26
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+27
Routine Call
  • DIC
  • Line Location:
    • PROMPT+1
Routine Call
  • %ZIS
  • Line Location:
    • PROMPT+3

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+26
^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+4, EXIT+2!
HBHCDFN PROMPT+3*, PROCESS+1, EXIT+2!
HBHCDPT0 PROCESS+1*, PROCESS+2, PROCESS+15, PROCESS+16, EXIT+2!
HBHCHEAD DQ+2*, DQ+4, EXIT+2!
HBHCHOSP DQ+2*, PROCESS+3, EXIT+2!
HBHCNOD1 PROCESS+1*, PROCESS+5, PROCESS+13, PROCESS+16, PROCESS+17, PROCESS+18, PROCESS+19, PROCESS+20, PROCESS+21, PROCESS+22
, PROCESS+23, PROCESS+24, PROCESS+25, PROCESS+26, PROCESS+27, EXIT+2!
HBHCTDY DQ+4, EXIT+2!
HBHCY DQ+2*, PROCESS+3, PROCESS+6, PROCESS+7, PROCESS+8, PROCESS+9, PROCESS+10, PROCESS+11, PROCESS+12, PROCESS+14
, PROCESS+15, PROCESS+16, PROCESS+17, PROCESS+18, PROCESS+19, PROCESS+20, PROCESS+21, PROCESS+22, PROCESS+23, PROCESS+24
, PROCESS+25, PROCESS+26, PROCESS+27, EXIT+2!
HBHCY0 PROMPT+3*, PROCESS+1, PROCESS+3, PROCESS+4, PROCESS+7, PROCESS+8, PROCESS+9, PROCESS+10, PROCESS+11, PROCESS+12
, PROCESS+13, PROCESS+15, EXIT+2!
HBHCZ DQ+4, PROCESS+2, EXIT+2!
IO DQ+1
IO("Q" PROMPT+4
IOP PROMPT+3!
>> POP PROMPT+3
U DQ+2, PROCESS+2, PROCESS+3, PROCESS+4, PROCESS+5, PROCESS+7, PROCESS+8, PROCESS+9, PROCESS+10, PROCESS+11
, PROCESS+12, PROCESS+13, PROCESS+15, PROCESS+16, PROCESS+17, PROCESS+18, PROCESS+19, PROCESS+20, PROCESS+21, PROCESS+22
, PROCESS+23, PROCESS+24, PROCESS+25, PROCESS+26, PROCESS+27
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