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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: HBHCRP23

Package: Hospital Based Home Care

Routine: HBHCRP23


Information

HBHCRP23 ; LR VAMC(IRMS)/MJT-HBHC report on file 631, Patient Days by date range, sorted by patient name, includes: IEN, patient name, Last Four, admission date, D/C date, & pt days w/totals, calls: MFHS^HBHCUTL3 & MFH^HBHCUTL3 ; 12/21/05 3:31pm

Source Information

Source file <HBHCRP23.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Hospital Based Home Care 3 (HDRRANGE,START,TODAY)^HBHCUTL  ENDRPT^HBHCUTL1  (MFH,MFHS)^HBHCUTL3  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 1 (,C)^%DTC  

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 HBHCRP23  

Entry Points

Name Comments DBIA/ICR reference
PROCESS ; Process record & build ^TMP("HBHC",$J) global
; Quit if Medical Foster Home (MFH) Report, but not MFH patient; HBHCMFHR variable set in MFH^HBHCUTL3
PRTLOOP ; Print loop
EXIT ; Exit module
PRINT ; Print report
LOOP ; Loop thru ^HBHC(631) "AD" (admission date) cross-ref to build report
DQ ; De-queue

External References

Name Field # of Occurrence
^%DTC PROCESS+12
C^%DTC PROCESS+6
^%ZIS HBHCRP23+7
^%ZISC EXIT+1
^%ZTLOAD HBHCRP23+8
HDRRANGE^HBHCUTL DQ+10, DQ+11, LOOP+3, PRINT+1
START^HBHCUTL HBHCRP23+3
TODAY^HBHCUTL DQ+10
ENDRPT^HBHCUTL1 LOOP+8
MFH^HBHCUTL3 HBHCRP23+5
MFHS^HBHCUTL3 HBHCRP23+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: HBHCRP23+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: LOOP+3
Function Call: WRITE
  • Prompt: !!,HBHCZ,!?14,">>> Date Range: ",HBHCBEG2," to ",HBHCEND2," <<<"
  • Line Location: LOOP+4
Function Call: WRITE
  • Prompt: !,HBHCZ,!,"Total Active Patients: ",$J($FN((HBHCCNT-HBHCCNT1),","),6)
  • Line Location: LOOP+5
Function Call: WRITE
  • Prompt: !,HBHCZ,!,"Complete Episodes of Care Only:",!?4,"Total Patients: ",$J($FN(HBHCCNT1,","),6)," Total Patient Days in Date Range: ",$J($FN(HBHCTOT1,","),10)
  • Line Location: LOOP+6
Function Call: WRITE
  • Prompt: !,HBHCZ,!?4,"Total Patients: ",$J($FN(HBHCCNT,","),6)," Total Patient Days in Date Range: ",$J($FN(HBHCTOT,","),10),!,HBHCZ
  • Line Location: LOOP+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !,$J("`"_$P(HBHCTMP,U,4),5)_" "_$E(HBHCNAME,1,24),?34,$P(HBHCTMP,U),?50,$E(HBHCADDT,4,5)_"-"_$E(HBHCADDT,6,7)_"-"_$E(HBHCADDT,2,3),?63,$P(HBHCTMP,U,2),?76,$J($P(HBHCTMP,U,3),5),!,HBHCY
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !,$J("`"_$P(HBHCTMP,U,4),5)_" "_$E(HBHCNAME,1,24),?34,$P(HBHCTMP,U),?42,$E(HBHCADDT,4,5)_"-"_$E(HBHCADDT,6,7)_"-"_$E(HBHCADDT,2,3),?54,$P(HBHCTMP,U,2),?69,$J($P(HBHCTMP,U,3),4),?77,$P(HBHCTMP,U,5),!,HBHCY
  • Line Location: PRINT+4
Routine Call
  • %ZIS
  • Line Location:
    • HBHCRP23+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] PROCESS+9
^HBHC(631 - [#631] LOOP+1, PROCESS+2, PROCESS+3
^TMP("HBHC" DQ+2!, EXIT+3!, PROCESS+19*, PROCESS+20*, PRTLOOP+1, PRINT+2

Label References

Name Line Occurrences
EXIT HBHCRP23+4, HBHCRP23+6, HBHCRP23+7, HBHCRP23+8
PRINT PRTLOOP+1
PROCESS LOOP+1
PRTLOOP LOOP+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS HBHCRP23+7*
DIR EXIT+2!
>> DIRUT HBHCRP23+6
HBHCADDT LOOP+1*, EXIT+2!, PROCESS+10, PROCESS+19, PROCESS+20, PRTLOOP+1*, PRINT+2, PRINT+3, PRINT+4
HBHCBEG1 HBHCRP23+4, EXIT+2!, PROCESS+8, PROCESS+10
HBHCBEG2 LOOP+4, EXIT+2!
HBHCCC HBHCRP23+7*, DQ+11*, LOOP+3, EXIT+2!, PRINT+1
HBHCCNT DQ+3*, LOOP+5, LOOP+7, EXIT+2!, PROCESS+9*
HBHCCNT1 DQ+3*, LOOP+5, LOOP+6, EXIT+2!, PROCESS+17*
HBHCCOLM DQ+9*, EXIT+2!
>> HBHCDAT PROCESS+10*, PROCESS+11
HBHCDATE EXIT+2!, PROCESS+6*, PROCESS+8*, PROCESS+11
HBHCDFN LOOP+1*, EXIT+2!, PROCESS+2, PROCESS+3, PROCESS+19, PROCESS+20
HBHCDPT0 EXIT+2!, PROCESS+9*, PROCESS+19, PROCESS+20
HBHCDSDT EXIT+2!, PROCESS+4*, PROCESS+8, PROCESS+17, PROCESS+18*, PROCESS+19, PROCESS+20
HBHCEND1 HBHCRP23+4, LOOP+1, EXIT+2!, PROCESS+6, PROCESS+8, PROCESS+17
HBHCEND2 LOOP+4, EXIT+2!
HBHCHDR DQ+5*, DQ+6*, EXIT+2!
HBHCHEAD DQ+3*, DQ+8*, DQ+9, EXIT+2!
HBHCLOS EXIT+2!, PROCESS+9*, PROCESS+12*, PROCESS+14*, PROCESS+15, PROCESS+17, PROCESS+19, PROCESS+20
HBHCMFH EXIT+2!, PROCESS+3*, PROCESS+20
HBHCMFHR DQ+8, EXIT+2!, PROCESS+2
HBHCMFHS HBHCRP23+5, DQ+5, DQ+6, EXIT+2!, PROCESS+3, PROCESS+19, PROCESS+20, PRINT+3, PRINT+4
HBHCNAME EXIT+2!, PRTLOOP+1*, PRINT+2, PRINT+3, PRINT+4
HBHCNOD0 LOOP+1*, EXIT+2!, PROCESS+4, PROCESS+9
HBHCPAGE EXIT+2!
HBHCTDY EXIT+2!
HBHCTMP EXIT+2!, PRINT+2*, PRINT+3, PRINT+4
HBHCTOT DQ+3*, LOOP+7, EXIT+2!, PROCESS+15*
HBHCTOT1 DQ+3*, LOOP+6, EXIT+2!, PROCESS+17*
HBHCY DQ+3*, EXIT+2!, PRINT+3, PRINT+4
HBHCZ LOOP+4, LOOP+5, LOOP+6, LOOP+7, EXIT+3!
IO DQ+1, DQ+10, DQ+11
IO("Q" HBHCRP23+8
IO("S" DQ+10, DQ+11
IO(0 DQ+10, DQ+11
IOF LOOP+3, PRINT+1
IOP HBHCRP23+7!
IOSL LOOP+3, PRINT+1
>> POP HBHCRP23+7
U LOOP+1, PROCESS+4, PROCESS+9, PROCESS+19, PROCESS+20, PRINT+3, PRINT+4
X EXIT+3!, PROCESS+6, PROCESS+12
X1 EXIT+3!, PROCESS+6*, PROCESS+11*
X2 EXIT+3!, PROCESS+6*, PROCESS+11*
Y EXIT+3!
>> ZTDESC HBHCRP23+8*
ZTIO HBHCRP23+7!
>> ZTRTN HBHCRP23+8*, LOOP+3, PRINT+1
ZTSAVE HBHCRP23+7!
ZTSAVE("HBHC*" HBHCRP23+8*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All