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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: BCHRC8

Package: IHS RPMS CHR System

Routine: BCHRC8


Information

BCHRC8 ; IHS/CMI/LAB - CHR Report 2 ;

Source Information

Source file <BCHRC8.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA Fileman 4 (,DD)^%DT  C^%DTC  ^DIC  ^DIR  
IHS RPMS CHR System 1 XTMP^BCHUTIL  
IHS VA Utilities 1 ^XBDBQUE  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
IHS RPMS CHR System 2 BCH P CHR REPORT 8  BCH P CHRIS II REPORT 8  

Entry Points

Name Comments DBIA/ICR reference
BD ;get beginning date
PROG1 ;enter program
ZIS ;CALL TO XBDBQUE
ERR
PROCESS ;
ED ;get ending date
PR ;
INFORM ;
PROC ;EP - PROCESS REFERRAL REPORT
GETDATES ;
XIT ;
PG ;
EOJ ;
PROG ;IHS/CMI/LAB - added program screen
D1 ;
TYPE ;
REG ;
D ; Run by date of service

External References

Name Field # of Occurrence
^%DT PROCESS+12
DD^%DT ED+1, PROCESS+12
C^%DTC ED+4, D+1
XTMP^BCHUTIL PROC+1
^DIC PROG1+1
^DIR BD+1, ED+1, TYPE+2, PROG+2, REG+2
^XBDBQUE ZIS+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),$C(7),!!,"SITE NOT SET IN DUZ(2) - NOTIFY SITE MANAGER!!",!!
  • Line Location: BCHRC8+4
Function Call: WRITE
  • Prompt: !
  • Line Location: BD+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ED+1
Function Call: WRITE
  • Prompt: $C(7),$C(7),!,"Must be a valid date and be Today or earlier. Time not allowed!"
  • Line Location: ERR+0
Function Call: WRITE
  • Prompt: !?20,"********** CHR REPORT NO. 8 **********"
  • Line Location: INFORM+2
Function Call: WRITE
  • Prompt: !!?20,"HOURS (SERVICE+TRAVEL) BY MONTH",!!,"You must enter the time frame and the program for which the report",!,"will be run.",!!
  • Line Location: INFORM+3
Routine Call
  • DIC
  • Line Location:
    • PROG1+1
Routine Call
  • DIR
  • Line Location:
    • BD+1
    • ED+1
    • TYPE+2
    • PROG+2
    • REG+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^BCHTPROG - [#90002.51] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BCHR - [#90002] D1+1, PROCESS+2
^BCHR("B" D+2, D1+1
^DPT - [#2] PROCESS+7
^XTMP("BCHRC8" PROCESS+14, PROCESS+15*, PROCESS+16*, PROCESS+17, PROCESS+18*, PROCESS+19*

Label References

Name Line Occurrences
@( TYPE+5
BD ED+2
D PROC+3
D1 D+2
EOJ PROC+3
GETDATES TYPE+3
INFORM BCHRC8+6
PROCESS D1+1
PROG PROG1+1, REG+3
REG PROG+4
TYPE PROG+3
XIT BD+2, ZIS+3

Naked Globals

Name Field # of Occurrence
^( PROCESS+14*
^("TOTAL" PROCESS+17*
^(0 D1+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT PROCESS+12*
BCHBD BD+3*, ED+1, ED+4, XIT+1!, D+1
BCHBDD XIT+1!
BCHBRK XIT+1!
BCHBT XIT+1!, PROC+2*, PROCESS+14, PROCESS+15, PROCESS+16, PROCESS+17, PROCESS+18, PROCESS+19
BCHBTH BCHRC8+5*, XIT+1!, PROC+2*
BCHCH XIT+1!, PG+1*, PR+1*
>> BCHDATE PROCESS+12*
BCHDT XIT+1!
BCHED ED+3*, XIT+1!, D+2
BCHEDD XIT+1!
BCHEOJ XIT+1!
BCHET XIT+1!, EOJ+1*
BCHF XIT+1!
BCHFT XIT+1!
BCHIDAT XIT+1!, PROCESS+12*, PROCESS+14, PROCESS+15, PROCESS+16
BCHITEM XIT+1!, PROCESS+10*, PROCESS+11*, PROCESS+14, PROCESS+15, PROCESS+16, PROCESS+17, PROCESS+18, PROCESS+19
BCHJOB BCHRC8+5*, XIT+1!, PROC+2*, PROCESS+14, PROCESS+15, PROCESS+16, PROCESS+17, PROCESS+18, PROCESS+19
BCHMON XIT+1!, PROCESS+12*, PROCESS+14, PROCESS+15, PROCESS+16
BCHNAME XIT+1!
BCHNONE XIT+1!
>> BCHNRPAT PROCESS+2*, PROCESS+5, PROCESS+6*
BCHODAT XIT+1!, D+2*, D1+1
>> BCHPAT PROCESS+1*, PROCESS+4, PROCESS+6, PROCESS+7
BCHPG XIT+1!
BCHPRG PROG+1*, PROG+4*, PROG1+2*, XIT+1!, PROCESS+9
BCHPROG XIT+1!, PROCESS+8*, PROCESS+9, PROCESS+11
BCHQUIT XIT+1!
BCHR XIT+1!, D1+1*, PROCESS+2
BCHR0 XIT+1!, D1+1*, PROCESS+1, PROCESS+8, PROCESS+10, PROCESS+12, PROCESS+13
>> BCHRCNT D1+1*
BCHREF XIT+1!
>> BCHREG REG+1*, REG+4*, PROCESS+4, PROCESS+5
>> BCHREGN REG+1*, REG+4*
BCHRN XIT+1!, PG+1*, PR+1*
BCHRPT TYPE+1*, TYPE+4*, XIT+1!, PROCESS+10, PROCESS+11
>> BCHS PROCESS+13*, PROCESS+15, PROCESS+18
BCHSD ED+4*, XIT+1!, D+1*, D+2
BCHT XIT+1!, PROCESS+13*, PROCESS+16, PROCESS+19
BCHTOT XIT+1!, PROCESS+13*, PROCESS+14, PROCESS+17
BCHX XIT+1!
DA TYPE+2!, PROG1+1!, REG+2!
DD PROG1+1!
DIC PROG1+1!*
DIC("A" PROG1+1*
DIC(0 PROG1+1*
DIR BD+1!, ED+1!, TYPE+2!, PROG+2!, REG+2!
DIR("?" PROG+2*
DIR("A" BD+1*, ED+1*, TYPE+2*, PROG+2*, REG+2*
DIR("B" ED+1*, TYPE+2*, PROG+2*, REG+2*
DIR(0 BD+1*, ED+1*, TYPE+2*, PROG+2*, REG+2*
>> DIRUT BD+1*, BD+2, ED+1*, ED+2, TYPE+3, PROG+3, REG+3
DR PROG1+1!
>> DUOUT BD+1, ED+1
DUZ(2 BCHRC8+4
I XIT+2!
IOF INFORM+1
M XIT+2!
R XIT+2!
U D1+1, PROCESS+1, PROCESS+2, PROCESS+8, PROCESS+10, PROCESS+12, PROCESS+13, PROCESS+14, PROCESS+15, PROCESS+16
, PROCESS+17, PROCESS+18, PROCESS+19
V XIT+2!
X ED+4, PROG1+1!, XIT+2!, XIT+3!, D+1, PROCESS+12*
>> X1 ED+4*, D+1*
>> X2 ED+4*, D+1*
>> XBNS ZIS+1*
>> XBRC ZIS+1*
>> XBRP ZIS+1*
>> XBRX ZIS+1*
Y BD+3, ED+1*, ED+3, TYPE+4, TYPE+5, PROG+4, PROG1+1!, PROG1+2, REG+4, XIT+2!
, XIT+3!, PROCESS+12*
Y(0 REG+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 |  Naked Globals |  Local Variables |  All