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

Package: Hospital Based Home Care

Routine: HBHCRP2


Information

HBHCRP2 ;LR VAMC(IRMS)/MJT - HBHC report on file 631, individual patient evaluation/admission data, includes all fields, plus Case Manager ;2/5/98 15:18

Source Information

Source file <HBHCRP2.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

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 HBHCRP2  

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+3
$$CODEC^ICDEX PROCESS+4

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($S($P(^HBHC(631.9,1,0),U,5)]"":$E($P($G(^DIC(4,$P(^HBHC(631.9,1,0),U,5),99)),U),1,7),1:""),7)
  • Line Location: PROCESS+3
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+4
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+5
Function Call: WRITE
  • Prompt: ?38,"|",?41,"21. Secondary Diagnoses @ Adm:"
  • Line Location: PROCESS+6
Function Call: WRITE
  • Prompt: !?38,"|",?46,$P(HBHCNOD1,U,14)
  • Condition for execution: $P(HBHCNOD1,U,14)]""
  • Line Location: PROCESS+6
Function Call: WRITE
  • Prompt: !,HBHCY
  • Line Location: PROCESS+7
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+8
Function Call: WRITE
  • Prompt: !," 4. County Code:",?33,HBHCCNTY,?38,"|",?46,"Hearing @ Admission:",?79,$P(HBHCY0,U,21),!,HBHCY
  • Line Location: PROCESS+10
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+11
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+12
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+13
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+14
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+15
Function Call: WRITE
  • Prompt: !,"10. Race: Obsolete Field Jan 2003",?38,"|",?46,"Transferring @ Admission:",?79,$P(HBHCY0,U,27),!,HBHCY
  • Line Location: PROCESS+20
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+21
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+22
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+23
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+24
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+25
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+26
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+27
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+28
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+29
Function Call: WRITE
  • Prompt: !?38,"|",?41,"32. Caregiver Limitations @ Adm:",?79,$P(HBHCY0,U,37),!,HBHCY
  • Line Location: PROCESS+30
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+31
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+32
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+33
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] PROCESS+3
^DIC(5 - [#5] PROCESS+8, PROCESS+9
^DPT - [#2] PROCESS+1
^HBHC(631 - [#631] PROCESS+1
^HBHC(631.1 - [#631.1] PROCESS+27
^HBHC(631.4 - [#631.4] PROCESS+31, PROCESS+33
^HBHC(631.7 - [#631.7] PROCESS+14
^HBHC(631.8 - [#631.8] PROCESS+8, PROCESS+9
^HBHC(631.9 - [#631.9] PROCESS+3

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*
HBHCCNTY PROCESS+9*, PROCESS+10, EXIT+2!
HBHCCOLM DQ+2*, DQ+4, EXIT+2!
HBHCDFN PROMPT+3*, PROCESS+1, EXIT+2!
HBHCDPT0 PROCESS+1*, PROCESS+2, PROCESS+13, PROCESS+15, PROCESS+29, EXIT+2!
HBHCHEAD DQ+2*, DQ+4, EXIT+2!
HBHCNOD1 PROCESS+1*, PROCESS+6, PROCESS+25, PROCESS+33, EXIT+2!
HBHCRC EXIT+2!
HBHCTDY DQ+4, EXIT+2!
HBHCY DQ+2*, PROCESS+4, PROCESS+7, PROCESS+8, PROCESS+10, PROCESS+11, PROCESS+12, PROCESS+13, PROCESS+14, PROCESS+15
, PROCESS+20, PROCESS+21, PROCESS+22, PROCESS+23, PROCESS+24, PROCESS+25, PROCESS+26, PROCESS+27, PROCESS+28, PROCESS+29
, PROCESS+30, PROCESS+31, PROCESS+32, PROCESS+33, EXIT+2!
HBHCY0 PROMPT+3*, PROCESS+1, PROCESS+4, PROCESS+5, PROCESS+8, PROCESS+9, PROCESS+10, PROCESS+11, PROCESS+12, PROCESS+13
, PROCESS+14, PROCESS+15, PROCESS+20, PROCESS+21, PROCESS+22, PROCESS+23, PROCESS+24, PROCESS+25, PROCESS+26, PROCESS+27
, PROCESS+28, PROCESS+29, PROCESS+30, PROCESS+31, PROCESS+32, EXIT+2!
HBHCZ DQ+4, PROCESS+2, EXIT+2!
IO DQ+1
IO("Q" PROMPT+4
IOP PROMPT+3!
>> POP PROMPT+3
U PROCESS+2, PROCESS+3, PROCESS+4, PROCESS+5, PROCESS+6, PROCESS+8, PROCESS+9, PROCESS+10, PROCESS+11, PROCESS+12
, PROCESS+13, PROCESS+14, PROCESS+15, PROCESS+20, PROCESS+21, PROCESS+22, PROCESS+23, PROCESS+24, PROCESS+25, PROCESS+26
, PROCESS+27, PROCESS+28, PROCESS+29, PROCESS+30, PROCESS+31, PROCESS+32, PROCESS+33
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