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: BPSOSUE

Package: E Claims Management Engine

Routine: BPSOSUE


Information

BPSOSUE ;BHAM ISC/FCS/DRS/FLS - impossible errors ;03/07/08 10:42

Source Information

Source file <BPSOSUE.m>

Entry Points

Name Comments DBIA/ICR reference
IMPOSS(UETYPE,UEOPT,UEMSG,UEMSG2,UELOC,UEROU,UENOLOG) ;EP - deal with impossible errors - called from many places
; $$IMPOSS^BPSOSUE(UETYPE,UEOPT,UEMSG,UELOC,UEROU)
; UETYPE = kinds of problems which may have occured
; ["FM" a Fileman call has returned an error
; ["L" a LOCK with ample time has failed
; ["DB" a database error (some missing/incorrect field)
; ["P" a programming error / some unexpected condition
; ["DEV" some kind of device or file error
; UEOPT = options available; first one listed is the default
; Defaults to "TRI"
; ["R" retry - retry the operation; log err
; ["I" ignore - continue as though operation had succeeded; log err
; ["T" abort - log err and terminate
; UEMSG = optionally, an additional message to output
; can be .MSG, and we'll walk the array for you.
; UEMSG2 = even more message, like UEMSG. In a Fileman call failure,
; you'd probably send .FDA,.MSG
; UELOC = location, any number or name unique to the calling routine
; UEROU = the name of the calling routine
; UENOLOG = true if you do not want error log entry to be made
QD ;
MSG(X) ; display message, directly or in array
CHOICE() ; given UEOPT[letters, UETYPE too
CH5
LOGERR ; log an error
; ^TMP($J,$T(+0),$J)=DUZ^$H last time we did this
LOG2 ;
HALT ; halt
TEST ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,IORVON
  • Line Location: IMPOSS+62
Function Call: WRITE
  • Prompt: "An unexpected problem has been detected; notify programmer!"
  • Line Location: IMPOSS+63
Function Call: WRITE
  • Prompt: !?5,"The problem occurred "
  • Line Location: IMPOSS+65
Function Call: WRITE
  • Prompt: "at location ",UELOC," "
  • Line Location: IMPOSS+66
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>60
  • Line Location: IMPOSS+66
Function Call: WRITE
  • Prompt: "in routine ",UEROU
  • Line Location: IMPOSS+67
Function Call: WRITE
  • Prompt: ".",!
  • Line Location: IMPOSS+68
Function Call: WRITE
  • Prompt: !?5,"The likely source"
  • Line Location: IMPOSS+69
Function Call: WRITE
  • Prompt: "s"
  • Condition for execution: UETYPE[","
  • Line Location: IMPOSS+69
Function Call: WRITE
  • Prompt: " of such a problem "
  • Line Location: IMPOSS+70
Function Call: WRITE
  • Prompt: $S(UETYPE[",":"are",1:"is"),":",!!?5
  • Line Location: IMPOSS+70
Function Call: WRITE
  • Prompt: "Fileman has reported an error to the program.",!?5
  • Line Location: IMPOSS+72
Function Call: WRITE
  • Prompt: "An interlock could not be obtained.",!?5
  • Line Location: IMPOSS+74
Function Call: WRITE
  • Prompt: "An inconsistency in the database was detected.",!?5
  • Line Location: IMPOSS+76
Function Call: WRITE
  • Prompt: "An error condition trying to open a device or a file.",!?5
  • Line Location: IMPOSS+78
Function Call: WRITE
  • Prompt: "A condition the program was unprepared to handle",!?5
  • Line Location: IMPOSS+80
Function Call: WRITE
  • Prompt: "or perhaps an error in the program logic.",!?5
  • Line Location: IMPOSS+81
Function Call: WRITE
  • Prompt: !,"A programmer should be notified of this unfortunate event.",!
  • Line Location: IMPOSS+82
Function Call: WRITE
  • Prompt: IORVOFF,!!
  • Line Location: IMPOSS+84
Function Call: WRITE
  • Prompt: "X is undefined",!
  • Line Location: MSG+1
Function Call: WRITE
  • Prompt: X,!
  • Line Location: MSG+2
Function Call: READ
  • Variable: S R="X" F S R=$Q(@R) Q
  • Timeout: R=""
  • Line Location: MSG+4
Function Call: WRITE
  • Prompt: @R,!
  • Line Location: MSG+4
Function Call: WRITE
  • Prompt: !
  • Line Location: MSG+5
Function Call: WRITE
  • Prompt: !,"No additional error log entry will be made at this time.",!
  • Line Location: LOGERR+7
Function Call: WRITE
  • Prompt: !,"Now recording some error log information to help the programmer...",!
  • Line Location: LOG2+3
Function Call: WRITE
  • Prompt: ?10,"..."
  • Line Location: LOG2+7
Function Call: WRITE
  • Prompt: "done.",!
  • Line Location: LOG2+7
Function Call: WRITE
  • Prompt: !,"returned value = ",X,!
  • Line Location: TEST+3
Info |  Source |  Entry Points |  Interaction Calls