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 |