IBCEM4 ;ALB/TMP - IB ELECTRONIC MESSAGE SCREEN TEXT MAINT ;19-APR-2001
Source file <IBCEM4.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ; entry point for maintenance
|
|
HDR | ; Header code
|
|
INIT | ; Build list of text entries
|
|
EXIT | ; -- Clean up list
|
|
SET(Z,Z0) | ; Set data into display global
|
|
EDIT | ; Add/edit message text
|
|
CKREVU(IBTEXT,IBNR,IBSKIP,IBREV) | ; Check IBTEXT contains 'no review
; needed' text ; IBNR = returned if passed by reference - 'no review needed' text found ; IBSKIP = 1 if no check needed for 'always review' ; IBREV = returned if passed by reference and 'review always needed' ; text found |
|
REPORT | ; Produce a report of messages filed without review by user-selected
; date range for date received and sort by either bill# or message text |
|
R1 | ||
R2 | ||
ENRPT | ; Queued job entrypoint
|
|
ENSTOP | ||
RHDR(IBSB,IBSTOP) | ; Report header
; IBSB'="" if sub header should print |
|
RHDRQ | ||
STOP(IBSTOP,IBREQ) | ; Check for job being stopped
|
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 |
|
FileNo | Call Tags |
---|---|
^IBE(361.3 - [#361.3] | Classic Fileman Calls |