SCRPW72 ;BP-CIOFO/KEITH,ESW - Clinic appointment availability extract (cont.) ; 5/23/03 12:16pm
Source file <SCRPW72.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| START | ;Gather data for printed report
 | 
|
| ORD | ;Build list to order clinic output
 | 
|
| OE(SDBDT,SDEDT,MAX,SDEX) | ;Count clinic workload
 | 
|
| ARRSET(SDCP,SC,SDI) | ;Set daily counts into array
 | 
|
| DIV(SDIV) | ;Evaluate division
 | 
|
| CA(SORT) | ;Evaluate list of clinics for selected patient
 | 
|
| CL | ;Evaluate list of clinics
 | 
|
| CP | ;Evaluate list of credit pairs
 | 
|
| CNAME(SC) | ;Massage clinic name
 | 
|
| SORT(SDSORT) | ;Gather sort values for detailed report
 | 
|
| SCL | ;Select clinics for detail
 | 
|
| SCP | ;Get credit pairs for detail
 | 
|
| VCP(Y) | ;Validate credit pair
 | 
|
| STOP | ;Check for stop task request
 | 
|
| ADDL(SDZ) | ;Format additional data
 | 
|
| EXTRACT | ;Gather data for extract
 | 
|
| TIME(SDBEG,SDEND) | ;Calculate length of run time
 | 
| Name | Line Occurrences | 
|---|---|
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| FileNo | Call Tags | 
|---|---|
| ^SC - [#44] | Classic Fileman Calls |