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

Package: Hospital Based Home Care

Routine: HBHCUTL2


Information

HBHCUTL2 ; LR VAMC(IRMS)/MJT-HBHC Utility module, Entry points: PROV, EN, EN2, TOT, & FTOT (see line labels for called by routines) ; Aug 2000

Source Information

Source file <HBHCUTL2.m>

Call Graph

Call Graph

Call Graph Total: 8

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

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

Package Total Caller Graph
Hospital Based Home Care 4 HBHCRP22  HBHCRP4  HBHCRP6  HBHCRP9  

Entry Points

Name Comments DBIA/ICR reference
PROV ; Provider variable setup, called by ^HBHCRP4, ^HBHCRP9, ^HBHCRP22
EN ; Entry point called by ^HBHCRP4, ^HBHCRP6, ^HBHCRP9, & ^HBHCRP22
ENPRV ; Enter provider prompt
EN2 ; Entry point 2 called by ^HBHCRP6 & ^HBHCRP9
DQ ; De-queue
LOOP ; Loop thru ^HBHC(631) "AD" (Admission Date) cross-ref to build report for case manager report or thru ^HBHC(632) "C" (Visit Date) for provider report
EXIT ; Exit module
PROCESS ; Process record & create ^TMP("HBHC",$J global
PRTLOOP ; Print loop
HDR ; Report header setup
PRT ; Print report
TOT ; Print case manager/provider total, called by ^HBHCRP4 & ^HBHCRP22
FTOT ; Print report final total, called by ^HBHCRP4 & ^HBHCRP22

External References

Name Field # of Occurrence
C^%DTC LOOP+1
^%ZIS EN2+3
^%ZISC EXIT+1
^%ZTLOAD EN2+4
^DIC ENPRV+1
YN^DICN EN+2
HDR132^HBHCUTL LOOP+3, HDR+2, PRT+1, FTOT+3
HDRRANGE^HBHCUTL FTOT+5
START^HBHCUTL EN2+1
TODAY^HBHCUTL DQ+5
END132^HBHCUTL1 LOOP+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Do you wish to include ALL ",HBHCWHOS," on the report"
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !!,"A 'Yes' response will include ALL "_HBHCWHOS_". A 'No' response will",!,"prompt for an individual "_HBHCWHO_" name."
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !!,"No data found for "_HBHCWHOC_" by Date Range selected."
  • Line Location: LOOP+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRT+1
Function Call: WRITE
  • Prompt: !,HBHCNM,?28,$P(HBHCTMP,U),?41,$P(HBHCTMP,U,2),?51,$P(HBHCTMP,U,3),?83,$P(HBHCTMP,U,6),?100,$P(HBHCTMP,U,7),?112,$P(HBHCTMP,U,8)
  • Line Location: PRT+3
Function Call: WRITE
  • Prompt: !,HBHCY
  • Line Location: PRT+6
Function Call: WRITE
  • Prompt: !!,HBHCZ,!,HBHCWHOC_": "_HBHCNAM_" "_HBHCTXT_" Total: ",HBHCTOT,!,HBHCZ
  • Line Location: TOT+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: FTOT+1
Function Call: WRITE
  • Prompt: !!,HBHCTXT_" Total: ",HBHCFTOT,!!,HBHCZ
  • Line Location: FTOT+6
Routine Call
  • DIC
  • Line Location:
    • ENPRV+1
Routine Call
  • %ZIS
  • Line Location:
    • EN2+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^HBHC(631.4 - [#631.4] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] PROCESS+10, PROCESS+13
^HBHC( LOOP+2, PROCESS+1
^HBHC(631 - [#631] PROCESS+6, PROCESS+7, PROCESS+8
^HBHC(631.4 - [#631.4] PROCESS+9
^TMP("HBHC" DQ+2!, LOOP+3, LOOP+4, EXIT+3!, PROCESS+14*, PRTLOOP+1, PRT+2
^VA(200 - [#200] PROCESS+9

Label References

Name Line Occurrences
EN EN+4
ENPRV ENPRV+1
EXIT EN2+2, EN2+3, EN2+4
FTOT LOOP+4
HDR PRTLOOP+1
PROCESS LOOP+2
PRT PRTLOOP+1
PRTLOOP LOOP+4
TOT PRTLOOP+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EN+2*, EN+4, EN+5, ENPRV+1, EXIT+3!
>> %ZIS EN2+3*
DIC EN+5!*, EXIT+2!
DIC("A" EN+5*
DIC("S" EN+5*
DIC(0 EN+5*
DTOUT EXIT+2!
DUOUT EXIT+2!
HBHCADDT EXIT+2!, PROCESS+4*, PROCESS+8*, PROCESS+14
HBHCBEG1 EN2+2, LOOP+1, EXIT+2!
HBHCBEG2 EXIT+2!
HBHCC EXIT+2!, HDR+1
HBHCCC EN+1*, EXIT+2!, PRT+1
HBHCCLM1 EXIT+2!, HDR+1*
HBHCCOLM DQ+4*, EXIT+2!
HBHCDATE LOOP+1*, LOOP+2*, EXIT+2!, PROCESS+4
HBHCDFN LOOP+2*, EXIT+2!, PROCESS+1
HBHCDPT0 EXIT+2!, PROCESS+10*, PROCESS+11
HBHCDPTA EXIT+2!, PROCESS+10*, PROCESS+12, PROCESS+14
HBHCEND1 EN2+2, LOOP+2, EXIT+2!, PROCESS+4, PROCESS+7
HBHCEND2 EXIT+2!
HBHCFILE LOOP+2, EXIT+2!, PROCESS+1, PROCESS+3, PROCESS+4, PROCESS+5, PROCESS+6, PROCESS+7, PROCESS+8, PROCESS+9
HBHCFTOT DQ+4*, EXIT+2!, TOT+2*, FTOT+6
HBHCHDR DQ+3*, EXIT+2!, FTOT+1!
HBHCHEAD DQ+3*, DQ+4, EXIT+2!
HBHCLST4 EXIT+2!, PROCESS+11*, PROCESS+14
HBHCNAM LOOP+3!, EXIT+2!, PROCESS+9*, PROCESS+14, HDR+1*, TOT+1, FTOT+1!
HBHCNBR EXIT+2!, PROCESS+6*
HBHCNDX EXIT+2!, PROCESS+6*, PROCESS+7, PROCESS+8
HBHCNM EXIT+2!, PROCESS+11*, PROCESS+14, PRTLOOP+1*, PRT+2, PRT+3
HBHCNOD0 EXIT+2!, PROCESS+1*, PROCESS+4, PROCESS+5, PROCESS+6, PROCESS+8, PROCESS+9, PROCESS+10, PROCESS+13
HBHCNOD1 EXIT+2!, PROCESS+1*, PROCESS+3, PROCESS+4, PROCESS+9
HBHCPAGE EXIT+3!, HDR+1*, FTOT+1*
HBHCPHON EXIT+3!, PROCESS+13*, PROCESS+14
HBHCPRV EXIT+3!, PRTLOOP+1*, HDR+1, PRT+2
HBHCPRVL LOOP+4, EXIT+3!, PROCESS+3, PROCESS+5
HBHCPRVL( ENPRV+1*, PROCESS+3, PROCESS+5
HBHCTDY EXIT+3!
HBHCTMP EXIT+3!, PRT+2*, PRT+3, PRT+4, PRT+5
HBHCTOT DQ+4*, EXIT+3!, PRTLOOP+1, PRT+2*, TOT+1, TOT+2*
HBHCTXT DQ+3*, EXIT+3!, TOT+1, FTOT+6
HBHCWHO PROV+1*, EN+4, EXIT+3!
HBHCWHOC PROV+1*, EN+5, EN2+4, DQ+3, LOOP+3, EXIT+3!, TOT+1
HBHCWHOS PROV+1*, EN+2, EN+4, EXIT+3!
HBHCXREF LOOP+2, EXIT+3!
HBHCY DQ+3*, EXIT+3!, PRT+6
HBHCZ DQ+3*, EXIT+3!, TOT+1, FTOT+3, FTOT+5, FTOT+6
HBHCZIP EXIT+3!, PROCESS+12*, PROCESS+14
IO DQ+1
IO("Q" EN2+4
IOF HDR+2, PRT+1, FTOT+1
IOP EN2+3!
IOSL PRT+1
>> POP EN2+3
U PROCESS+3, PROCESS+4, PROCESS+5, PROCESS+7, PROCESS+8, PROCESS+9, PROCESS+10, PROCESS+11, PROCESS+12, PROCESS+13
, PROCESS+14, PRT+3, PRT+4, PRT+5
X LOOP+1, EXIT+3!
>> X1 LOOP+1*
>> X2 LOOP+1*
Y ENPRV+1, EXIT+3!
>> ZTDESC EN2+4*
ZTIO EN2+3!
>> ZTRTN EN2+4*, PRT+1
ZTSAVE EN2+3!
ZTSAVE("HBHC*" EN2+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