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

Package: Hospital Based Home Care

Routine: HBHCRP12


Information

HBHCRP12 ; LR VAMC(IRMS)/MJT-HBHC file 631 rpt, Episode of Care/Length of Stay, by date range, sorted by patient name, includes: pt name, Last Four, admission date, discharge date, & length of stay, plus pt & day totals; ; 12/21/05 3:40pm

Source Information

Source file <HBHCRP12.m>

Call Graph

Call Graph

Call Graph Total: 6

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

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 HBHCRP12  

Entry Points

Name Comments DBIA/ICR reference
DQ ; De-queue
LOOP ; Loop thru ^HBHC(631) "AD" (admission date) cross-ref to build report
EXIT ; Exit module
PROCESS ; Process record & build ^TMP("HBHC",$J) global
PRTLOOP ; Print loop
PRINT ; Print report

External References

Name Field # of Occurrence
^%DTC PROCESS+4, PROCESS+11
C^%DTC LOOP+1
^%ZIS HBHCRP12+5
^%ZISC EXIT+1
^%ZTLOAD HBHCRP12+6
HDRRANGE^HBHCUTL DQ+5, DQ+6, LOOP+4, PRINT+1
START^HBHCUTL HBHCRP12+3
TODAY^HBHCUTL DQ+5
ENDRPT^HBHCUTL1 LOOP+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: LOOP+4
Function Call: WRITE
  • Prompt: !!,HBHCZ,!,"Complete Episodes of Care Only:",!?2,"Total Patients: ",HBHCCNT1," Total Days: ",$FN(HBHCTOT1,",")," Average Length of Stay: ",$S(((HBHCTOT1>0)&(HBHCCNT1>0)):(HBHCTOT1\HBHCCNT1),1:0)
  • Line Location: LOOP+5
Function Call: WRITE
  • Prompt: !,HBHCZ,!?2,"Total Patients: ",HBHCCNT," Total Days: ",$FN(HBHCTOT,","),!,HBHCZ
  • Line Location: LOOP+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !,HBHCNAME,?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),4),!,HBHCY
  • Line Location: PRINT+3
Routine Call
  • %ZIS
  • Line Location:
    • HBHCRP12+5

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
EXIT HBHCRP12+4, HBHCRP12+5, HBHCRP12+6
PRINT PRTLOOP+1
PROCESS LOOP+2
PRTLOOP LOOP+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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