BPSOSU8 ;BHAM ISC/FCS/DRS/FLS - utilities ;06/01/2004
Source file <BPSOSU8.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| 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 |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD("DD" | HEADER+23 |
| Name | Line Occurrences |
|---|---|
| $$PAUSE | EOPQ+22 |
| DEVQ | DEVICE+22, DEVICE+24 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | EOPQ+14~, HEADER+23 |
| %ZIS | DEVICE+15~, DEVICE+18* |
| %ZIS("A" | DEVICE+19* |
| %ZIS("B" | DEVICE+20* |
| >> DCOPIES | DEVQ+3*, DEVQ+8*, DEVQ+9*, DEVQ+10 |
| DEV | DEVICE~, DEVICE+20 |
| DIR | EOPQ+14~, PAUSE+4!, ENDRPT+3~, DEVQ+4!, DEVQ+7! |
| DIR("A" | ENDRPT+5*, DEVQ+5* |
| DIR("B" | DEVQ+6* |
| DIR(0 | PAUSE+5*, ENDRPT+4*, DEVQ+5* |
| EOPXCODE | EOPQ~, EOPQ+23 |
| >> FLGSTOP | ENDRPT+2 |
| I | DEVICE+15~, HEADER+35* |
| IO | DEVICE+24, DEVICE+33, DEVQ, PAGE0+1, PAGE0+3, STANDBY+1 |
| IO("Q" | DEVICE+24 |
| IOF | ENDRPT+1, HEADER+21, FMPAGE+3 |
| IOM | EOPQ+20, HEADER+25, HEADER+35 |
| ION | DEVICE+26 |
| IOSL | EOPQ+16, EOPQ+18 |
| IOST | HEADER+21, FMPAGE+3 |
| LINESBOT | EOPQ~, EOPQ+17*, EOPQ+18 |
| MULTI | DEVICE~, DEVQ |
| N | HEADER+19~, HEADER+31*, HEADER+32* |
| NOFF | HEADER~, HEADER+21 |
| PAGE | DEVICE+15~, DEVICE+23*, HEADER+20*, HEADER+21, HEADER+22*, HEADER+25 |
| PARAM | EOPQ~, EOPQ+20 |
| POP | DEVICE+15~, DEVICE+22 |
| PROGRAM | HEADER~, HEADER+26 |
| RTN | DEVICE~, DEVICE+18, DEVICE+25 |
| RUNTIME | HEADER~, HEADER+23*, HEADER+24 |
| TITLE | DEVICE~, DEVICE+27 |
| TITLE1 | HEADER~, HEADER+28 |
| TITLE1( | HEADER+32 |
| TITLE2 | HEADER~, HEADER+27, HEADER+29, HEADER+30 |
| UL | HEADER~, HEADER+33 |
| X | EOPQ+14~, ENDRPT+3~, HEADER+19~ |
| Y | EOPQ+14~, PAUSE+6, ENDRPT+3~, ENDRPT+7, DEVICE+15~, DEVICE+22*, DEVICE+24*, DEVICE+31*, DEVQ+2~, DEVQ+8 , DEVQ+9, DEVQ+10*, DEVQ+11, HEADER+23* |
| ZTDESC | DEVICE+15~, DEVICE+27* |
| ZTIO | DEVICE+15~, DEVICE+26* |
| ZTQUEUED | DEVICE+15~, DEVICE+30, DEVICE+31 |
| ZTRTN | DEVICE+15~, DEVICE+25* |
| ZTSAVE | DEVICE+15~ |
| ZTSAVE("*" | DEVICE+28* |
| ZTSAVE("PAGE" | DEVICE+17* |
