BPSOSU8 ;BHAM ISC/FCS/DRS/FLS - utilities ;06/01/2004
Source file <BPSOSU8.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EOPQ(LINESBOT,PARAM,EOPXCODE) | ;EP -
; IN: LINESBOT = (optional) # of LINES from bottom (IOSL) before ; determining what to do next. I this is a CRT, we ; will ask user whether to continue; for printers, just ; continue. DEFAULT=6 ; PARAM = List of parameter codes (each may occur): ; "M" - Will display "-- More --" at bottom. ; EOPXCODE = xecutable code that will occur if this is the ; end of the page (like, D HEADER^ROU). |
|
PAUSE() | ;3/31/93
|
|
ENDRPT() | ;EP - end of report. Pause until user presses return (or timeout)
|
|
DEVICE(DEV,RTN,TITLE,MULTI) | ;EP
|
|
DEVQ | ||
HEADER(PROGRAM,TITLE1,TITLE2,RUNTIME,NOFF,UL) | ;
; This PROCEDURE accepts the routine name and titles and prints out a ; standard header with the run date and time,page and increments ; the page counter by 1. Page is initialized in function DEVICE. ; W @IOF if (to SCREEN) OR (to PRINTER after page 1) ; TITLE variable has special uses. I the calling routine ; send-in the TITLE-array (by setting TITLE(1)="LINE 1", TITLE(n)= ; "LINE n of title", and then D HEADER^WSHUTL("ROUTINE",.TITLE),"."), ; then the entire array of TITLE will be used (and TITLE2 will be ; ignored). You must send-in TITLE2="." ; RUNTIME has been added so that all pages of the report can ; have the same date.time. The calling report must send it in. ; NOFF (optional) - if it exists, then do NOT issue a FormFeed. ; This is necessary for reports that are controlled as a FileMan ; template... since FM issues its own FF, this routine should not. ; UL (opt) - is flag to print a 1-IOSL dashes after the header. ; DEFAULT is no-underline. S UL to 1 to print the underline. |
|
FMPAGE | ;at end of page
|
|
PAGE0 | ; This checks the IO device and issues a pagefeed if $Y>0
|
|
STANDBY | ; W a message to screen to "Please Wait"
|
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 |
|