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

Package: Hospital Based Home Care

Routine: HBHCRP25


Information

HBHCRP25 ; LR VAMC(IRMS)/MJT-HBHC report on file 631, All active (admitted but not D/C) cases by date range, sorted by patient name, includes: patient name, last 4, date, address, city, ZIP code, phone, case manager & total ; Sep 03

Source Information

Source file <HBHCRP25.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
Hospital Based Home Care 2 (HDR132,START,TODAY)^HBHCUTL  END132^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 HBHCRP25  

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
C^%DTC LOOP+1
^%ZIS HBHCRP25+4
^%ZISC EXIT+1
^%ZTLOAD HBHCRP25+5
HDR132^HBHCUTL DQ+5, DQ+6, PRINT+1
START^HBHCUTL HBHCRP25+2
TODAY^HBHCUTL DQ+5
END132^HBHCUTL1 LOOP+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,HBHCZ,!,"Program Census Total: ",HBHCTOT,!,HBHCZ
  • Line Location: LOOP+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !,$E(HBHCNAME,1,17),?20,$P(HBHCTMP,U),?29,HBHCADDT,?41,$P(HBHCTMP,U,2),?74,$P(HBHCTMP,U,5),?94,$P(HBHCTMP,U,6),?108,$P(HBHCTMP,U,7),?124,$S(($L($P($P(HBHCTMP,U,8),","))>8):$E($P(HBHCTMP,U,8),1,8),1:$P($P(HBHCTMP,U,8),","))
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !,HBHCY
  • Line Location: PRINT+6
Routine Call
  • %ZIS
  • Line Location:
    • HBHCRP25+4

Global Variables Directly Accessed

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

Label References

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS HBHCRP25+4*
HBHCADDT LOOP+1*, LOOP+2*, EXIT+2!, PROCESS+10, PRTLOOP+1*, PRINT+2, PRINT+3
HBHCBEG1 HBHCRP25+3, LOOP+1, EXIT+2!
HBHCBEG2 EXIT+2!
HBHCCASE EXIT+2!, PROCESS+2*, PROCESS+10
HBHCCC HBHCRP25+4*, DQ+6*, EXIT+2!, PRINT+1
HBHCCOLM DQ+3*, EXIT+2!
HBHCDAT EXIT+2!
HBHCDATE EXIT+2!
HBHCDFN LOOP+2*, EXIT+2!, PROCESS+2
HBHCDISC EXIT+2!
HBHCDPT EXIT+2!, PROCESS+3*
HBHCDPT0 EXIT+2!, PROCESS+3*, PROCESS+10
HBHCDPTA EXIT+2!, PROCESS+3*, PROCESS+4, PROCESS+10
HBHCEND1 HBHCRP25+3, LOOP+2, EXIT+2!, PROCESS+1
HBHCEND2 EXIT+2!
HBHCHDR DQ+4*, EXIT+2!
HBHCHEAD DQ+3*, EXIT+2!
HBHCI EXIT+2!
HBHCNAME EXIT+2!, PRTLOOP+1*, PRINT+2, PRINT+3
HBHCNOD0 LOOP+2*, EXIT+2!, PROCESS+1, PROCESS+3, PROCESS+5
HBHCNOD1 EXIT+2!, PROCESS+2*
HBHCPAGE EXIT+2!
HBHCPHON EXIT+2!, PROCESS+5*, PROCESS+7*, PROCESS+8*, PROCESS+9*, PROCESS+10
HBHCSTOP EXIT+2!
HBHCTDY EXIT+2!
HBHCTMP EXIT+2!, PRINT+2*, PRINT+3, PRINT+4, PRINT+5
HBHCTOT DQ+3*, LOOP+4, EXIT+3!, PRINT+7*
HBHCY DQ+3*, EXIT+3!, PRINT+6
HBHCZ DQ+3*, LOOP+4, EXIT+3!
HBHCZIP EXIT+3!, PROCESS+4*, PROCESS+10
IO DQ+1, DQ+5, DQ+6
>> IO("Q" HBHCRP25+5
>> IO("S" DQ+5, DQ+6
>> IO(0 DQ+5, DQ+6
IOF PRINT+1
IOP HBHCRP25+4!
IOSL PRINT+1
>> POP HBHCRP25+4
U LOOP+2, PROCESS+1, PROCESS+2, PROCESS+3, PROCESS+4, PROCESS+5, PROCESS+10, PRINT+3, PRINT+4, PRINT+5
X LOOP+1, EXIT+3!
X1 LOOP+1*, EXIT+3!
X2 LOOP+1*, EXIT+3!
Y EXIT+3!
>> ZTDESC HBHCRP25+5*
ZTIO HBHCRP25+4!
>> ZTRTN HBHCRP25+5*, PRINT+1
ZTSAVE HBHCRP25+4!
ZTSAVE("HBHC*" HBHCRP25+5*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All