SCRPW71 ;BP-CIOFO/KEITH - Clinic appointment availability extract (cont.) ; 14 May 99 9:19 PM
Source file <SCRPW71.m>
Package | Total | Call Graph |
---|---|---|
Kernel | 1 | $$DOW^XLFDT |
Registration | 1 | $$SITE^VASITE |
VA Fileman | 1 | (C,H)^%DTC |
Package | Total | Caller Graph |
---|---|---|
Scheduling | 4 | SCRPW63 SCRPW72 SCRPW77 SDM0 |
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
|
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 |
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 |
Name | Field # of Occurrence |
---|---|
^( | H |
>> | 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 |