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

Package: Hospital Based Home Care

Routine: HBHCRP2


Information

HBHCRP2 ;LR VAMC(IRMS)/MJT - HBHC report on file 631; May 22, 2021@14:49

Source Information

Source file <HBHCRP2.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)
  • Line Location: PROCESS+4
Function Call: WRITE
  • Prompt: ?38,"|",?41,"20. Primary Diagnosis @ Adm:",?72,$J($S($P(HBHCY0,U,19)]"":$$CODEC^ICDEX(80,$P(HBHCY0,U,19)),1:""),8),!,HBHCY
  • Line Location: PROCESS+5
Function Call: WRITE
  • Prompt: !," 2. Date:",?28,$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),$P(HBHCY0,U,2)]"":$E($P(HBHCY0,U,2),4,5)_"-"_$E($P(HBHCY0,U,2),6,7)_"-"_$E($P(HBHCY0,U,2),2,3),1:"")
  • Line Location: PROCESS+6
Function Call: WRITE
  • Prompt: ?38,"|",?41,"21. Secondary Diagnoses @ Adm:"
  • Line Location: PROCESS+7
Function Call: WRITE
  • Prompt: !?38,"|",?46,$P(HBHCNOD1,U,14)
  • Condition for execution: $P(HBHCNOD1,U,14)]""
  • Line Location: PROCESS+7
Function Call: WRITE
  • Prompt: !,HBHCY
  • Line Location: PROCESS+8
Function Call: WRITE
  • Prompt: !," 3. State Code:",?34,$S($P(HBHCY0,U,3)]"":$P(^DIC(5,(+^HBHC(631.8,($P(HBHCY0,U,3)),0)),0),U,3),1:""),?38,"|",?41,"22. Vision @ Admission:",?79,$P(HBHCY0,U,20),!,HBHCY
  • Line Location: PROCESS+9
Function Call: WRITE
  • Prompt: !," 4. County Code:",?33,HBHCCNTY,?38,"|",?46,"Hearing @ Admission:",?79,$P(HBHCY0,U,21),!,HBHCY
  • Line Location: PROCESS+11
Function Call: WRITE
  • Prompt: !," 5. ZIP Code:",?26,$J($E($P(HBHCY0,U,5),1,5)_$S($E($P(HBHCY0,U,5),6,9)]"":"-"_$E($P(HBHCY0,U,5),6,9),1:""),10),?38,"|",?41,"23. Expressive Communication @ Adm:",?79,$P(HBHCY0,U,22),!,HBHCY
  • Line Location: PROCESS+12
Function Call: WRITE
  • Prompt: !," 6. Eligibility @ Evaluation:",?34,$P(HBHCY0,U,6),?38,"|",?41,"24. Receptive Communication @ Adm:",?79,$P(HBHCY0,U,23),!,HBHCY
  • Line Location: PROCESS+13
Function Call: WRITE
  • Prompt: !," 7. Birth Year:",?32,$S($P(HBHCDPT0,U,3):1700+$E($P(HBHCDPT0,U,3),1,3),1:""),?38,"|",?41,"25. Bathing @ Admission:",?79,$P(HBHCY0,U,24),!,HBHCY
  • Line Location: PROCESS+14
Function Call: WRITE
  • Prompt: !," 8. Period of Service:",?34,$S($P(HBHCY0,U,8)]"":$P($G(^HBHC(631.7,$P(HBHCY0,U,8),0)),U),1:""),?38,"|",?46,"Dressing @ Admission:",?79,$P(HBHCY0,U,25),!,HBHCY
  • Line Location: PROCESS+15
Function Call: WRITE
  • Prompt: !," 9. Sex:",?35,$S($P(HBHCDPT0,U,2)="M":1,1:2),?38,"|",?46,"Toilet Usage @ Admission:",?79,$P(HBHCY0,U,26),!,HBHCY
  • Line Location: PROCESS+16
Function Call: WRITE
  • Prompt: !,"10. Race: Obsolete Field Jan 2003",?38,"|",?46,"Transferring @ Admission:",?79,$P(HBHCY0,U,27),!,HBHCY
  • Line Location: PROCESS+21
Function Call: WRITE
  • Prompt: !,"11. Marital Status @ Evaluation:",?35,$P(HBHCY0,U,11),?38,"|",?46,"Eating @ Admission:",?79,$P(HBHCY0,U,28),!,HBHCY
  • Line Location: PROCESS+22
Function Call: WRITE
  • Prompt: !,"12. Living Arrangements @ Eval:",?35,$P(HBHCY0,U,12),?38,"|",?46,"Walking @ Admission:",?79,$P(HBHCY0,U,29),!,HBHCY
  • Line Location: PROCESS+23
Function Call: WRITE
  • Prompt: !,"13. Last Agency Providing Care:",?35,$P(HBHCY0,U,13),?38,"|",?41,"26. Bowel Continence @ Admission:",?79,$P(HBHCY0,U,30),!,HBHCY
  • Line Location: PROCESS+24
Function Call: WRITE
  • Prompt: !,"14. Type of Last Care Agency:",?35,$P(HBHCY0,U,14),?38,"|",?46,"Bladder Continence @ Admission:",?79,$P(HBHCY0,U,31),!,HBHCY
  • Line Location: PROCESS+25
Function Call: WRITE
  • Prompt: !,"15. Referred While Inpatient:",?35,$P(HBHCNOD1,U,29),?38,"|",?41,"27. Mobility @ Admission:",?79,$P(HBHCY0,U,32),!,HBHCY
  • Line Location: PROCESS+26
Function Call: WRITE
  • Prompt: !,"16. Admit/Reject Action:",?35,$P(HBHCY0,U,15),?38,"|",?41,"28. Adaptive Tasks @ Admission:",?79,$P(HBHCY0,U,33),!,HBHCY
  • Line Location: PROCESS+27
Function Call: WRITE
  • Prompt: !,"17. Reject/Withdraw Reason:",?34,$S($P(HBHCY0,U,16)]"":$P(^HBHC(631.1,$P(HBHCY0,U,16),0),U),1:""),?38,"|",?41,"29. Behavior Problems @ Admission:",?79,$P(HBHCY0,U,34),!,HBHCY
  • Line Location: PROCESS+28
Function Call: WRITE
  • Prompt: !,"18. Reject/Withdraw Disposition:",?35,$P(HBHCY0,U,17),?38,"|",?41,"30. Disorientation @ Admission:",?79,$P(HBHCY0,U,35),!,HBHCY
  • Line Location: PROCESS+29
Function Call: WRITE
  • Prompt: !,"19. Last Four:",?25,$E($P(HBHCDPT0,U,9),6,9),?38,"|",?41,"31. Mood Disturbance @ Admission:",?79,$P(HBHCY0,U,36),!,HBHCY
  • Line Location: PROCESS+30
Function Call: WRITE
  • Prompt: !?38,"|",?41,"32. Caregiver Limitations @ Adm:",?79,$P(HBHCY0,U,37),!,HBHCY
  • Line Location: PROCESS+31
Function Call: WRITE
  • Prompt: !?38,"|",?41,"33. Person Completing Eval/Adm:",?76,$J($S($P(HBHCY0,U,38)]"":$P(^HBHC(631.4,$P(HBHCY0,U,38),0),U),1:""),4),!,HBHCY
  • Line Location: PROCESS+32
Function Call: WRITE
  • Prompt: !?38,"|",?46,"Date Eval/Adm Completed:",?72,$S($P(HBHCY0,U,39)]"":$E($P(HBHCY0,U,39),4,5)_"-"_$E($P(HBHCY0,U,39),6,7)_"-"_$E($P(HBHCY0,U,39),2,3),1:""),!,HBHCY
  • Line Location: PROCESS+33
Function Call: WRITE
  • Prompt: !?38,"|",?46,"Case Manager:",?76,$J($S($P(HBHCNOD1,U,13)]"":$P(^HBHC(631.4,$P(HBHCNOD1,U,13),0),U),1:""),4),!,HBHCY
  • Line Location: PROCESS+34

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