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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: BSDCCR1

Package: IHS Changes To Scheduling

Routine: BSDCCR1


Information

BSDCCR1 ; IHS/ANMC/LJF - CLINIC CAPACITY REPORT CONTINUED ;

Source Information

Source file <BSDCCR1.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Kernel 1 $$DOW^XLFDT  
Registration 1 $$SITE^VASITE  
VA Fileman 1 (C,H)^%DTC  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
IHS Changes To Scheduling 2 BSDCCR2  BSDCCR5  

Entry Points

Name Comments DBIA/ICR reference
ARRSET(SDCP,SC,SDI,SDSL,SDCAP) ;Set daily counts into array
DIV(SC0) ;Get facility division name and number
W1
H
CLINIC(SC,SDFMT,SDSTRTDT,MAXDT,MAX,SDPAST) ;Evaluate a clinic
CPAIR(SC0,SDCP) ;Validate primary stop code, get credit pair
ACTC(SC,SDSTRTDT,MAXDT) ;Determine if clinic is active during date range
L
EN1
INIT ;Initialize array for counting patterns
PCT(SDPATT) ;Pattern count
CCNT(SC,MAX,SDCP,SDFMT,SDSTRTDT,SDIV,SDPAST) ;Count clinic availability and capacity
W
SPAT(SC,SDSTRTDT,ENDATE,SDS) ;Set patterns into ^TMP (modified clone of OVR^SDAUT1)
PCNT(X) ;Count open slots in a pattern
X1
WM
ACTIVE(X,SDIN,SDRE) ;Determine if the clinic is active on a given date
ARRINI(SDCP,SC,MAX,SDPAST) ;Initialize array for counts

External References

Name Field # of Occurrence
C^%DTC CLINIC+12, X1+1, L, CCNT+21, CCNT+23
H^%DTC CCNT+32
$$SITE^VASITE DIV+3, DIV+4
$$DOW^XLFDT EN1+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(40.7 - [#40.7] CPAIR+4, CPAIR+6, CPAIR+8
^HOLIDAY - [#40.5] W+2
^SC - [#44] CLINIC+9, CLINIC+12, ACTC+6, SPAT+10, SPAT+12, SPAT+13, EN1, EN1+2, EN1+4, EN1+5
, W+1, W+2, W+3, CCNT+31, CCNT+32, CCNT+33
^TMP( SPAT+8!, EN1+5*, W+1*, W+3*, H*
^TMP("SD" CCNT+17, CCNT+19, CCNT+36*, CCNT+37*, CCNT+38*, CCNT+39*, CCNT+41*, CCNT+42*, ARRINI+8*, ARRINI+9*
, ARRINI+10*, ARRINI+13*, ARRSET+8, ARRSET+12*
^TMP("SDTMP" CCNT+18, CCNT+25

Label References

Name Line Occurrences
$$ACTC CLINIC+13
$$ACTIVE X1+1
$$CCNT CLINIC+16
$$CPAIR CLINIC+11
$$DIV CLINIC+14
$$PCT CCNT+27, CCNT+31, CCNT+33
ARRINI CCNT+19
ARRSET CCNT+35
H W+2
L W+2
SPAT CLINIC+15
W L
W1 W+1, H
WM EN1+1, W1
X1 X1+1, L

Naked Globals

Name Field # of Occurrence
^( H

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%H CLINIC+8~, ACTC+5~, CCNT+29~
%T CCNT+29~
%Y CCNT+29~, CCNT+32
CT PCNT+3~, PCNT+4*, PCNT+6*, PCNT+7
D SPAT+9~, EN1+1*, EN1+4*, EN1+5, W+2, L*
DAY SPAT+9~, SPAT+11*, W+3
DT CLINIC+12
ENDATE SPAT~, EN1+4, X1, L
I SPAT+9~, EN1+1*, INIT+3*, PCT+3~, PCT+5*, PCNT+3~, PCNT+6*
J SPAT+9~, EN1+2!, EN1+3
J( EN1+2*, W+2
MAX CLINIC~, CLINIC+16, CCNT~, CCNT+19, CCNT+22, ARRINI~, ARRINI+10, ARRINI+11
MAXDT CLINIC~, CLINIC+12*, CLINIC+13, CLINIC+15, ACTC~, ACTC+8
SC CLINIC~, CLINIC+9, CLINIC+12, CLINIC+13, CLINIC+15, CLINIC+16, ACTC~, ACTC+6, SPAT~, SPAT+10
, SPAT+12, SPAT+13, EN1, EN1+2, EN1+4, EN1+5, W+1, W+2, W+3, H
, CCNT~, CCNT+17, CCNT+19, CCNT+25, CCNT+31, CCNT+32, CCNT+33, CCNT+35, CCNT+38, CCNT+39
, CCNT+42, ARRINI~, ARRINI+9, ARRINI+10, ARRINI+13, ARRSET~, ARRSET+8, ARRSET+12
SC0 CLINIC+8~, CLINIC+9*, CLINIC+10, CLINIC+11, CLINIC+14, DIV~, DIV+2, CPAIR~, CPAIR+4, CPAIR+6
, CPAIR+8
SD INIT+1!, INIT+2*, INIT+3
SD( INIT+3*, PCT+5, PCNT+6
SDCAP CCNT+20~, CCNT+23*, CCNT+30*, CCNT+31*, CCNT+33*, CCNT+35, ARRSET~, ARRSET+10
SDCP CLINIC+8~, CLINIC+11, CLINIC+16, CPAIR~, CPAIR+4*, CPAIR+6*, CPAIR+7, CPAIR+8*, CCNT~, CCNT+17
, CCNT+19, CCNT+35, CCNT+36, CCNT+37, CCNT+38, CCNT+39, CCNT+41, CCNT+42, ARRINI~, ARRINI+8
, ARRINI+9, ARRINI+10, ARRINI+13, ARRSET~, ARRSET+8, ARRSET+12
SDDAY CCNT+20~, CCNT+23*, CCNT+25, CCNT+31, CCNT+32
SDDW CCNT+29~, CCNT+32*, CCNT+33
SDFMT CLINIC~, CLINIC+16, CCNT~, CCNT+35, ARRINI+9
SDI INIT+1~, CCNT+20~, CCNT+22*, CCNT+23, CCNT+35, ARRINI+5~, ARRINI+7*, ARRINI+10*, ARRINI+11*, ARRINI+12
, ARRSET~, ARRSET+7
SDIN ACTC+5~, ACTC+6*, ACTC+7, SPAT+9~, SPAT+10*, SPAT+14*, X1+1, ACTIVE~, ACTIVE+5
SDIV CLINIC+8~, CLINIC+14*, CLINIC+16, DIV+2~*, DIV+3, CCNT~, CCNT+17, CCNT+19, CCNT+36, CCNT+37
, CCNT+38, CCNT+39, CCNT+41, CCNT+42, ARRINI+8, ARRINI+9, ARRINI+10, ARRINI+13, ARRSET+8, ARRSET+12
SDMPDT CCNT+29~, CCNT+32*, CCNT+33
SDP ARRINI+5~, ARRINI+12*, ARRINI+13, ARRSET+6~, ARRSET+7*, ARRSET+8, ARRSET+12
SDPAST CLINIC~, CLINIC+16, CCNT~, CCNT+19, CCNT+40, ARRINI~, ARRINI+6, ARRINI+7, ARRSET+11
SDPATT CCNT+20~, CCNT+25*, CCNT+26, CCNT+27, CCNT+31*, CCNT+33*, PCT~, PCT+2, PCT+4*, PCT+5
SDRE ACTC+5~, ACTC+6*, ACTC+8, SPAT+9~, SPAT+10*, X1+1, ACTIVE~, ACTIVE+5
SDS SPAT~, SPAT+8*, EN1+5, W+1, W+3, H, ARRINI+5~, ARRINI+12*, ARRINI+13, ARRSET+6~
, ARRSET+7*, ARRSET+8, ARRSET+12
SDSL CCNT+20~, CCNT+23*, CCNT+27*, CCNT+35, ARRSET~, ARRSET+9
SDSOH SPAT+9~, SPAT+13*, W+2
SDSSC CPAIR+5~, CPAIR+8*
SDSTRTDT CLINIC~, CLINIC+13, CLINIC+15, CLINIC+16, ACTC~, ACTC+7, SPAT~, SPAT+14, EN1+4, CCNT~
, CCNT+21
SDTCAP CCNT+20~, CCNT+22*, CCNT+31*, CCNT+33*, CCNT+37, CCNT+39, CCNT+43
SDTOE CCNT+16~, CCNT+17*, CCNT+18, CCNT+43
SDTSL CCNT+20~, CCNT+22*, CCNT+27*, CCNT+36, CCNT+38, CCNT+43
SDX ARRINI+5~, ARRINI+7*, ARRINI+8, ARRINI+9, ARRSET+6~, ARRSET+8*, ARRSET+9*, ARRSET+10*, ARRSET+11*, ARRSET+12
SDY CCNT+20~, CCNT+21*, CCNT+23, ARRINI+5~, ARRINI+6*, ARRINI+13
SI SPAT+9~, SPAT+12*, W+3
SM SPAT+9~, EN1+1*, W1, WM*
SS SPAT+9~, W+2*, W+3
U CLINIC+9, CLINIC+10, CLINIC+12, CLINIC+16, DIV+2, DIV+3, DIV+4, CPAIR+4, CPAIR+6, CPAIR+8
, ACTC+6, SPAT+10, SPAT+12, W+3, H, CCNT+17, CCNT+36, CCNT+37, CCNT+38, CCNT+39
, CCNT+41, CCNT+42, CCNT+43, ARRINI+7, ARRINI+13, ARRSET+8, ARRSET+12
X CLINIC+8~, CLINIC+12, ACTC+5~, SPAT+9~, SPAT+14*, EN1*, EN1+1, EN1+5*, X1, X1+1
, W*, W+1, W+2, W+3, W1, L*, H, WM, ACTIVE~, ACTIVE+5
, CCNT+21, CCNT+23, CCNT+29~, CCNT+32*, PCT+3~*, PCT+5*, PCT+6, PCNT~, PCNT+4, PCNT+5*
, PCNT+6
X1 CLINIC+8~, CLINIC+12*, ACTC+5~, SPAT+9~, X1*, X1+1*, L, CCNT+21*, CCNT+23*
X2 CLINIC+8~, CLINIC+12*, ACTC+5~, SPAT+9~, X1+1*, L*, CCNT+21*, CCNT+23*
Y SPAT+9~, EN1+1*, EN1+2*, W+2*, W+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All