Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: BPSOSU8

Package: E Claims Management Engine

Routine: BPSOSU8


Information

BPSOSU8 ;BHAM ISC/FCS/DRS/FLS - utilities ;06/01/2004

Source Information

Source file <BPSOSU8.m>

Entry Points

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"

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?($S($G(IOM):IOM,1:80)-12),"-- More --"
  • Line Location: EOPQ+20
Function Call: WRITE
  • Prompt: !," <escape>"
  • Line Location: ENDRPT+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: DEVICE+16
Function Call: WRITE
  • Prompt: " try again later"
  • Line Location: DEVICE+22
Function Call: WRITE
  • Prompt: !,$S($D(ZTQUEUED):"Request queued!",1:"Request cancelled!")
  • Line Location: DEVICE+30
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADER+21
Function Call: WRITE
  • Prompt: !,"RUN DATE: ",RUNTIME
  • Line Location: HEADER+24
Function Call: WRITE
  • Prompt: ?(IOM-10),"PAGE: ",$J(PAGE,3,0)
  • Line Location: HEADER+25
Function Call: WRITE
  • Prompt: !,"PGM: ",PROGRAM
  • Line Location: HEADER+26
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+34
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HEADER+35
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+36
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: FMPAGE+3
Function Call: WRITE
  • Prompt: #
  • Line Location: PAGE0+2
Function Call: WRITE
  • Prompt: #
  • Line Location: PAGE0+3
Function Call: WRITE
  • Prompt: a
  • Line Location: STANDBY+0
Info |  Source |  Entry Points |  Interaction Calls