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 |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^HBHC(631 - [#631] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call