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 |