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 |