Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All
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>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 3 HOME^%ZIS  ENDR^%ZISS  H^XUS  
E Claims Management Engine 1 $$IMPOSS^BPSOSUE  
VA FileMan 1 ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 14

Package Total Caller Graph
E Claims Management Engine 14 BPSECA8  BPSECX1  BPSOS  BPSOSCA  BPSOSCC  BPSOSCE  BPSOSCF  BPSOSHF  
BPSOSO  BPSOSO2  BPSOSU  BPSOSU4  BPSOSUD  BPSOSUE  

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 ;

External References

Name Field # of Occurrence
HOME^%ZIS IMPOSS+58
ENDR^%ZISS IMPOSS+61
$$IMPOSS^BPSOSUE TEST+2
^DIR CHOICE+10
H^XUS HALT+1

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
Routine Call
  • %ZIS
  • Line Location:
    • IMPOSS+58
Routine Call
  • DIR
  • Line Location:
    • CHOICE+10

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("ERRTN" LOG2+4
^TMP($J LOGERR+2, LOG2+5*

Label References

Name Line Occurrences
$$CHOICE IMPOSS+86
@( LOG2+4
CH5 CHOICE+3
HALT QD+2
LOG2 LOGERR+3, LOGERR+4, LOGERR+5
LOGERR QD+1
MSG IMPOSS+83
QD IMPOSS+57

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIR CHOICE+2~
DIR("B" CHOICE+10*
DIR(0 CHOICE+4*, CHOICE+9*
DUZ LOGERR+3, LOG2+5
I TEST+1~*
IO IMPOSS+59
IOF IMPOSS+58
IORVOFF IMPOSS+60~, IMPOSS+84
IORVON IMPOSS+60~, IMPOSS+62
MYEXMSG TEST+1~, TEST+2
MYEXMSG( TEST+1*
R MSG+4~*
U LOGERR+3, LOGERR+4, LOG2+5
UECHOICE IMPOSS+57*, IMPOSS+86~*, QD+2, QD+5
UELOC IMPOSS~, IMPOSS+64, IMPOSS+66
UEMSG IMPOSS~, IMPOSS+83
UEMSG2 IMPOSS~, IMPOSS+83
UENOLOG IMPOSS~, LOG2+1
UEOPT IMPOSS~, IMPOSS+56*, IMPOSS+57, CHOICE+1*, CHOICE+3, CHOICE+5, CHOICE+6, CHOICE+7, CHOICE+10
UEROU IMPOSS~, IMPOSS+64, IMPOSS+67
UETYPE IMPOSS~, IMPOSS+69, IMPOSS+70, IMPOSS+71, IMPOSS+73, IMPOSS+75, IMPOSS+77, IMPOSS+79, CHOICE+8
X IMPOSS+61~*, MSG~, MSG+1, MSG+2, MSG+3, CHOICE+2~, CHOICE+3*, CHOICE+4*, CHOICE+5*, CHOICE+6*
, CHOICE+7*, CHOICE+8*, CHOICE+9, CH5, LOGERR+2~*, LOGERR+3, LOGERR+4*, LOGERR+5*, TEST+2~*, TEST+3
Y CHOICE+2~
>> ZTQUEUED IMPOSS+57, LOGERR+6, LOG2+2, LOG2+6

Marked Items

Name Field # of Occurrence
$T( LOGERR+2, LOG2+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All