TIURVBC ;ISL/JER - Visible Black Character Line Count Report ;05/20/10 12:43
Source file <TIURVBC.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| MAIN | ; Main subroutine
 | 
|
| DEVICE | ; Device handling
 ; Call with: ZTRTN  | 
|
| NOQUE | ; Call report directly
 | 
|
| QUE | ; Queue output
 | 
|
| TRNSEL(TIUY) | ; Select Transcriptionists
 | 
|
| ENTRY | ; Build & Print Report
 | 
|
| DFLTDT(EORL) | ; Compute default early or late date
 | 
|
| LDOM(MON,YR) | ; Calculate last day of month MON
 | 
|
| GATHER(TIUDI,TIUA,TIUEDT,TIULDT,TIUTR) | ; Gather records that satisfy criteria
 | 
|
| INITIALS(TIUX) | ; Get Person's initials from file 200
 | 
|
| REPORT(TIUA,TIUEDT,TIULDT,TIUSONLY) | ; Generate report
 | 
|
| CONTINUE(TIUDIV,TIURTM,TIUEDT,TIULDT,TIUPG) | ; Evaluate relative page position
 | 
|
| CONTX | ||
| HEADER(DIVISION,TIURTM,TIUEDT,TIULDT,TIUPG) | ; Write Report Header
 | 
| Name | Line Occurrences | 
|---|---|
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| FileNo | Call Tags | 
|---|---|
| ^DPT - [#2] | GET1^DIQ | 
| ^VA(200 - [#200] | GET1^DIQ | 
| ^TIU(8925 - [#8925] | EXTERNAL^DILFD |