IBCFP1 ;ALB/ARH - PRINT AUTHORIZED BILLS IN ORDER ;6-DEC-94
Source file <IBCFP1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| QTASK | ; 1st part sorts authorized bills into order requested by bill form type then queues off 1 job for each type to print bills
|
|
| SORT | ;sort authorized bills by form type and requested sort order (notice bill addendums only print for 1500's)
|
|
| QUEUE | ; starts a queued job for each form type that an authorized bill was found for
; no form types without defined device |
|
| GCLEAN | ; Clean up XTMP global for $J of IBCFP and IBMRA entries
|
|
| QBILL | ; 2nd queued part will print all authorized bills for a specific form type
|
|
| QB1 | ; Entrypoint for output logic of formatter
; pass in "^XTMP(IBFTP,IBJ)" sorted array of bills to print ; IBFTP = "IBCFP"_(form type) subscript indicating which part of array to print ; IBPNT = reprint status of bill (1-original, 0-copy, etc) ; IBFT = IFN of bill form type to be printed ; IBJ = $J of starting job (for when multiple print jobs might be queued) ; if a single bill printed and queued, IBJ will be null |
|
| ROUT(IBFT,IBPNT,IBIFN,IBCT,IBF,IBXPOSTWA) | ; sub procedure to protect variables with new
; IBXPOSTWA = 1 if executing FSC post processing workarounds ;WCJ;IB718v22; |
|
| REX | ||
| DATE(X) | ||
| STOP() | ;determine if user has requested the queued report to stop
|
|
| FORMPRE | ; Set up environment for bill message
|
|
| FORMPOST | ; Clean up
|
|
| ENTPRE | ; Run before processing a bill entry
|
|
| ENTPOST | ; Run after processing a bill entry
|
|
| ERRMSG(XMBODY) | ; Send bulletin for error message
|
|
| ALERT(XQAMSG,IBGRP) | ; Send alert message
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
