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

Package: IHS RPMS CHR System

Routine: BCHRC5


Information

BCHRC5 ; IHS/CMI/LAB - CHR Report 1 ;

Source Information

Source file <BCHRC5.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: 2

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

Entry Points

Name Comments DBIA/ICR reference
BD ;get beginning date
SETBIN ;
CHR1 ;
AGE ;
REG ;
BIN
SET
ERR
INFORM ;
CLOSE
PI ;EP ;age/sex record counts interactive print ?
PROG1 ;enter program
GETAGE ;
ZIS ;CALL TO XBDBQUE
ED ;get ending date
START ;
XIT ;
CHRT ;
RUN ;
LIST ;
GETDATES ;
PROG ;
GC ;

External References

Name Field # of Occurrence
DD^%DT ED+1
C^%DTC ED+4
^DIC PROG1+1, CHR1+2
^DIR BD+1, ED+1, PROG+2, CHRT+2, REG+2, BIN+2, AGE+3, GC+1
^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: !?20,"********** CHR REPORT NO. 5 **********"
  • Line Location: INFORM+2
Function Call: WRITE
  • Prompt: !!?2,"NUMBER OF SERVICES (LINES OF ASSESSMENT) BY HEALTH PROBLEM, AGE AND SEX",!!,"You must enter the time frame and the program for which the report",!,"will be run."
  • Line Location: INFORM+3
Function Call: WRITE
  • Prompt: !!,"You can also define your own age groups, if you so desire.",!
  • Line Location: INFORM+4
Function Call: WRITE
  • Prompt: "If you do, Please LIMIT the # of age groups to 5"
  • Line Location: INFORM+5
Function Call: WRITE
  • Prompt: !!
  • Line Location: PI+1
Function Call: WRITE
  • Prompt: !,"The Age Groups to be used are currently defined as:",!
  • Line Location: BIN+1
Function Call: WRITE
  • Prompt: !
  • Line Location: RUN+1
Function Call: WRITE
  • Prompt: !!,BCHRACNT," Age groups selected so far, no more than 5 are allowed.",!
  • Line Location: AGE+2
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: AGE+8
Function Call: WRITE
  • Prompt: !,"Make sure the age is higher than the beginning age of the previous group.",!
  • Line Location: AGE+8
Function Call: WRITE
  • Prompt: " ??",$C(7)
  • Line Location: GC+5
Function Call: WRITE
  • Prompt: !,$P(X,"-")," - ",$P(X,"-",2)
  • Line Location: LIST+2
Function Call: WRITE
  • Prompt: !
  • Line Location: LIST+3
Routine Call
  • DIC
  • Line Location:
    • PROG1+1
    • CHR1+2
Routine Call
  • DIR
  • Line Location:
    • BD+1
    • ED+1
    • PROG+2
    • CHRT+2
    • REG+2
    • BIN+2
    • AGE+3
    • GC+1

FileMan Files Accessed Via FileMan Db Call

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

Label References

Name Line Occurrences
AGE RUN+1
BD ED+2, PROG+3
BIN RUN+1, RUN+2
CHRT PROG+4, CHR1+3
CLOSE RUN+2, GC+5
GETAGE CHRT+5, REG+3
INFORM START+3
LIST BIN+1, RUN+3
PI GETAGE+2
PROG PROG1+1, CHRT+3, GETAGE+3
RUN AGE+8
SET AGE+7
SETBIN BIN
XIT BD+2, ZIS+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % LIST+1*, LIST+2
A XIT+2!
BCHBD BD+3*, ED+1, ED+4, XIT+1!
BCHBDD XIT+1!
BCHBT XIT+1!
BCHBTH START+2*, XIT+1!
BCHC XIT+1!
>> BCHCHR1 CHR1+4*
BCHDOBS XIT+1!
BCHDT XIT+1!
BCHED ED+3*, XIT+1!
BCHEDD XIT+1!
BCHET XIT+1!
BCHJOB START+2*, XIT+1!
BCHODAT XIT+1!
BCHPG XIT+1!
BCHPRG PROG+1*, PROG+4*, PROG1+2*, XIT+1!
BCHPROB XIT+1!
BCHPROBN XIT+1!
BCHPROG XIT+1!
BCHPROVT CHRT+1!, CHRT+4*, CHRT+5
BCHQUIT GETAGE+1!, GETAGE+3, XIT+1!, BIN+3*, RUN+1!, RUN+2, AGE+4*, GC+2*
BCHR XIT+1!
BCHR0 XIT+1!
BCHR11 XIT+2!
BCHRA XIT+2!, RUN+1*, AGE+2, AGE+7, SET*, GC+4
>> BCHRACNT RUN+1*, AGE+2, SET+2*
BCHRAGE XIT+1!
BCHRBIN XIT+1!, GC+4*, LIST+1, SETBIN+1*
BCHRDOBS XIT+2!
>> BCHREG REG+1*, REG+4*
>> BCHREGN REG+1*, REG+4*
BCHRNN XIT+1!
BCHRPT XIT+1!
BCHRX XIT+1!, RUN+1, AGE+1*, AGE+5*, AGE+7, SET, SET+1, SET+2, GC+3*, GC+4
BCHRY XIT+1!, RUN+1*, AGE+3, SET+1*, SET+2*, CLOSE, GC+4*
BCHRZ XIT+1!
BCHSD ED+4*, XIT+1!
BCHTF XIT+1!
BCHTM XIT+2!
BCHTOTC XIT+1!
BCHX XIT+1!
DA PROG1+1!, CHRT+2!, REG+2!
DD PROG1+1!
DFN XIT+2!
DIC PROG1+1!*, CHR1+1!, CHR1+2*
DIC("A" PROG1+1*, CHR1+2*
DIC(0 PROG1+1*, CHR1+2*
DIR BD+1!, ED+1!, PROG+2!, CHRT+2!, REG+2!, BIN+2!, AGE+3!, GC+1!
DIR("?" PROG+2*
DIR("A" BD+1*, ED+1*, PROG+2*, CHRT+2*, REG+2*, BIN+2*, AGE+3*, GC+1*
DIR("B" ED+1*, PROG+2*, CHRT+2*, REG+2*, BIN+2*
DIR(0 BD+1*, ED+1*, PROG+2*, CHRT+2*, REG+2*, BIN+2*, AGE+3*, GC+1*
>> DIRUT BD+1*, BD+2, ED+1*, ED+2, PROG+3, CHRT+3, REG+3, BIN+3, AGE+3*, GC+1*
DOB XIT+2!
DR PROG1+1!
>> DTOUT AGE+4, GC+2
>> DUOUT BD+1, ED+1, AGE+3, AGE+4, GC+1, GC+2
DUZ(2 START+1
F XIT+2!
I XIT+2!, LIST+2*
IOF INFORM+1
M XIT+2!
SEX XIT+2!
X ED+4, PROG1+1!, LIST+2*
>> X1 ED+4*
>> X2 ED+4*
>> 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, CHRT+4, CHR1+3, CHR1+4, REG+4
, BIN+4, AGE+5, AGE+6, GC+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