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

Package: Hospital Based Home Care

Routine: HBHCRP17


Information

HBHCRP17 ; LR VAMC(IRMS)/MJT-HBHC report on file 632, user selected date range, CPT code(s) (can be range of CPTs), with summary totals, calls: CPT^HBHCUTL3, EN1^HBHCUTL4 & KILL^HBHCUTL4 ; Apr 2000

Source Information

Source file <HBHCRP17.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Hospital Based Home Care 4 HDRRANGE^HBHCUTL  ENDRPT^HBHCUTL1  CPT^HBHCUTL3  (EN1,KILL)^HBHCUTL4  
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 HBHCRP17  

Entry Points

Name Comments DBIA/ICR reference
SET ; Set TMP node for CPTs
PROCESS ; Process record & create ^TMP("HBHC",$J global
PRTLOOP ; Print loop
EXIT ; Exit module
PRINT ; Print report
LOOP ; Loop thru ^HBHC(632) "C" (visit date) cross-ref to build report
DQ ; De-queue

External References

Name Field # of Occurrence
C^%DTC LOOP+1
^%ZIS HBHCRP17+4
^%ZISC EXIT+1
^%ZTLOAD HBHCRP17+5
HDRRANGE^HBHCUTL LOOP+3, LOOP+4, LOOP+7, PRINT+3
ENDRPT^HBHCUTL1 LOOP+9
CPT^HBHCUTL3 PROCESS+2
EN1^HBHCUTL4 HBHCRP17+2
KILL^HBHCUTL4 EXIT+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: LOOP+7
Function Call: WRITE
  • Prompt: !!,HBHCZ,!,"Total CPT Codes: ",$J(HBHCTOT,6),!,HBHCZ
  • Line Location: LOOP+8
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !,HBHCCPT,?39,$J(HBHCCNT,5)
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !,HBHCY
  • Line Location: PRINT+5
Routine Call
  • %ZIS
  • Line Location:
    • HBHCRP17+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] PROCESS+1
^HBHC(632 - [#632] LOOP+2
^TMP("HBHC" DQ+2!, LOOP+5, LOOP+6, SET+3*, SET+4*, PRTLOOP+1, PRINT+1

Label References

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS HBHCRP17+4*
DIC EXIT+2!
DTOUT HBHCRP17+3, EXIT+2!
DUOUT EXIT+2!
HBHCBEG1 HBHCRP17+3, LOOP+1, EXIT+2!
>> HBHCCC HBHCRP17+4*, DQ+3*, LOOP+4*, LOOP+7, PRINT+3
>> HBHCCNT PRINT+1*, PRINT+2, PRINT+4
>> HBHCCOLM DQ+3*
>> HBHCCPT PROCESS+3*, SET+1, SET+2, SET+3, SET+4, PRTLOOP+1*, PRINT+1, PRINT+4
>> HBHCCPTA( PROCESS+3
HBHCCPTB HBHCRP17+3, EXIT+2!, SET+1
HBHCCPTE HBHCRP17+3, EXIT+2!, SET+1
>> HBHCDATE LOOP+1*, LOOP+2*
>> HBHCDFN LOOP+2*
>> HBHCDIR SET+1, SET+2
>> HBHCDPT0 PROCESS+1*
HBHCEND1 HBHCRP17+3, LOOP+2, EXIT+2!
>> HBHCHDR DQ+3*
HBHCHEAD DQ+3*, EXIT+2!
>> HBHCI PROCESS+3*
>> HBHCNOD0 LOOP+2*, PROCESS+1
>> HBHCTMP HBHCRP17+3
>> HBHCTMP( SET+2
>> HBHCTOT DQ+4*, LOOP+8, PRINT+2*
>> HBHCY DQ+4*, PRINT+5
>> HBHCZ LOOP+8
IO DQ+1, LOOP+3, LOOP+4
IO("Q" HBHCRP17+5
IO("S" LOOP+3, LOOP+4
IO(0 LOOP+3, LOOP+4
IOF LOOP+7, PRINT+3
IOP HBHCRP17+4!
IOSL LOOP+7, PRINT+3
>> POP HBHCRP17+4
U LOOP+2, PROCESS+1
>> X LOOP+1
>> X1 LOOP+1*
>> X2 LOOP+1*
Y EXIT+2!
>> ZTDESC HBHCRP17+5*
ZTIO HBHCRP17+4!
>> ZTRTN HBHCRP17+5*, LOOP+7, PRINT+3
ZTSAVE HBHCRP17+4!
ZTSAVE("HBHC*" HBHCRP17+5*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All