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