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 |  Label References |  Local Variables |  All
Print Page as PDF
Routine: BCHRP3

Package: IHS RPMS CHR System

Routine: BCHRP3


Information

BCHRP3 ; IHS/CMI/LAB - All visit report driver ;

Source Information

Source file <BCHRP3.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 4 DD^%DT  C^%DTC  ^DIC  ^DIR  
IHS VA Utilities 1 ^XBDBQUE  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS RPMS CHR System 1 BCH P ACT RPT GARS 2  

Entry Points

Name Comments DBIA/ICR reference
BD ;get beginning date
PROG1 ;enter program
ZIS ;CALL TO XBDBQUE
ERR
INFORM ;
ED ;get ending date
START ;
GETDATES ;
XIT ;
PROG ;IHS/CMI/LAB - added program screen
REG ;

External References

Name Field # of Occurrence
DD^%DT ED+1
C^%DTC ED+4
^DIC PROG1+1
^DIR BD+1, ED+1, 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: START+1
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: !,"****** ACTIVITY BY HEALTH PROBLEM REPORT ******",!
  • Line Location: INFORM+2
Function Call: WRITE
  • Prompt: !,"This report will tally problems by Program, activity location, CHR,",!,"and activity. ",!
  • Line Location: INFORM+3
Routine Call
  • DIC
  • Line Location:
    • PROG1+1
Routine Call
  • DIR
  • Line Location:
    • BD+1
    • ED+1
    • PROG+2
    • REG+2

FileMan Files Accessed Via FileMan Db Call

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

Label References

Name Line Occurrences
BD ED+2, PROG+3
INFORM START+3
PROG PROG1+1, REG+3
REG PROG+4
XIT BD+2, ZIS+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BCHACT XIT+1!
BCHACTN XIT+2!
BCHACTOT XIT+2!
BCHAREA XIT+1!
BCHAT XIT+1!
BCHATOT XIT+1!, XIT+2!
BCHBD BD+3*, ED+1, ED+4, XIT+1!
BCHBDD XIT+1!
BCHBT XIT+1!
BCHBTH START+2*, XIT+1!
BCHDISC XIT+1!
BCHDT XIT+1!
BCHED ED+3*, XIT+1!
BCHEDD XIT+1!
BCHET XIT+1!
BCHFTOT XIT+1!
BCHJOB START+2*, XIT+1!
BCHLENG XIT+1!
BCHLOC XIT+1!
BCHLOCN XIT+2!
BCHLTOT XIT+1!
BCHODAT XIT+1!
BCHPAT XIT+1!
BCHPG XIT+1!
BCHPNAME XIT+1!
>> BCHPRG PROG+1*, PROG+4*, PROG1+2*
BCHPROB XIT+2!
BCHPROG XIT+1!
BCHPROV XIT+1!
BCHPTOT XIT+1!
BCHQUIT XIT+1!
BCHR XIT+1!
BCHR0 XIT+1!
BCHRCNT XIT+1!
BCHREC XIT+1!
>> BCHREG REG+1*, REG+4*
>> BCHREGN REG+1*, REG+4*
BCHSD ED+4*, XIT+1!
BCHSITE START+1!, XIT+1!
BCHSTOT XIT+1!
BCHSU XIT+2!
BCHX XIT+2!
DA PROG1+1!, REG+2!
DD PROG1+1!
DIC PROG1+1!*
DIC("A" PROG1+1*
DIC(0 PROG1+1*
DIR BD+1!, ED+1!, PROG+2!, REG+2!, XIT+3!
DIR("?" PROG+2*
DIR("A" BD+1*, ED+1*, PROG+2*, REG+2*
DIR("B" ED+1*, PROG+2*, REG+2*
DIR(0 BD+1*, ED+1*, PROG+2*, REG+2*
DIRUT BD+1*, BD+2, ED+1*, ED+2, PROG+3, REG+3, XIT+3!
DR PROG1+1!
DTOUT XIT+3!
DUOUT BD+1, ED+1, XIT+3!
DUZ(2 START+1
IOF INFORM+1
X ED+4, PROG1+1!, XIT+3!
X1 ED+4*, XIT+3!
X2 ED+4*, XIT+3!
>> XBNS ZIS+1*
>> XBRC ZIS+1*
>> XBRP ZIS+1*
>> XBRX ZIS+1*
Y BD+3, ED+1*, ED+3, PROG+4, PROG1+1!, PROG1+2, REG+4, XIT+3!
Y(0 REG+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables |  All