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

Package: Pharmacy Point of Sale

Routine: ABSPOSUE


Information

ABSPOSUE ; IHS/FCS/DRS - impossible errors ;

Source Information

Source file <ABSPOSUE.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 3 HOME^%ZIS  ENDR^%ZISS  H^XUS  
Pharmacy Point of Sale 1 $$IMPOSS^ABSPOSUE  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 90

Package Total Caller Graph
Pharmacy Point of Sale 90 ABSPECA1  ABSPECA5  ABSPECA8  ABSPECA9  ABSPECP0  ABSPECP1  ABSPECP3  ABSPECX1  
ABSPECZ2  ABSPECZ3  ABSPOS  ABSPOS25  ABSPOS26  ABSPOS57  ABSPOS6H  ABSPOS6I  
ABSPOS9  ABSPOSAB  ABSPOSAE  ABSPOSAM  ABSPOSAP  ABSPOSAR  ABSPOSB0  ABSPOSB3  
ABSPOSBA  ABSPOSBC  ABSPOSBL  ABSPOSBM  ABSPOSBV  ABSPOSBW  ABSPOSBX  ABSPOSC1  
ABSPOSC2  ABSPOSC3  ABSPOSC4  ABSPOSCA  ABSPOSCB  ABSPOSCC  ABSPOSCE  ABSPOSCF  
ABSPOSD2  ABSPOSD3  ABSPOSFC  ABSPOSH5  ABSPOSHF  ABSPOSI  ABSPOSI1  ABSPOSI2  
ABSPOSI8  ABSPOSIF  ABSPOSII  ABSPOSIV  ABSPOSIY  ABSPOSIZ  ABSPOSK  ABSPOSK1  
ABSPOSL  ABSPOSM1  ABSPOSMD  ABSPOSN1  ABSPOSNC  ABSPOSO  ABSPOSO2  ABSPOSP  
ABSPOSP1  ABSPOSPW  ABSPOSPX  ABSPOSQ  ABSPOSQ2  ABSPOSQ3  ABSPOSQA  ABSPOSQB  
ABSPOSQG  ABSPOSQJ  ABSPOSQL  ABSPOSQP  ABSPOSR1  ABSPOSR3  ABSPOSRB  ABSPOSRX  
ABSPOSS2  ABSPOSS5  ABSPOSS8  ABSPOSU  ABSPOSU4  ABSPOSUA  ABSPOSUB  ABSPOSUD  
ABSPOSUE  ABSPOSUT  

Entry Points

Name Comments DBIA/ICR reference
LOG2 ;
HALT ; halt
LOGERR ; log an error
; ^TMP($T(+0),$J)=DUZ^$H last time we did this
TEST ;
IMPOSS(UETYPE,UEOPT,UEMSG,UEMSG2,UELOC,UEROU,UENOLOG) ;EP - deal with impossible errors - called from many places
; $$IMPOSS^ABSPOSUE(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

External References

Name Field # of Occurrence
HOME^%ZIS IMPOSS+60
ENDR^%ZISS IMPOSS+64
$$IMPOSS^ABSPOSUE TEST+2
^DIR CHOICE+10
H^XUS HALT+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,IORVON
  • Line Location: IMPOSS+65
Function Call: WRITE
  • Prompt: "An unexpected problem has been detected; notify programmer!"
  • Line Location: IMPOSS+66
Function Call: WRITE
  • Prompt: !?5,"The problem occurred "
  • Line Location: IMPOSS+68
Function Call: WRITE
  • Prompt: "at location ",UELOC," "
  • Line Location: IMPOSS+69
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>60
  • Line Location: IMPOSS+69
Function Call: WRITE
  • Prompt: "in routine ",UEROU
  • Line Location: IMPOSS+70
Function Call: WRITE
  • Prompt: ".",!
  • Line Location: IMPOSS+71
Function Call: WRITE
  • Prompt: !?5,"The likely source"
  • Line Location: IMPOSS+72
Function Call: WRITE
  • Prompt: "s"
  • Condition for execution: UETYPE[","
  • Line Location: IMPOSS+72
Function Call: WRITE
  • Prompt: " of such a problem "
  • Line Location: IMPOSS+73
Function Call: WRITE
  • Prompt: $S(UETYPE[",":"are",1:"is"),":",!!?5
  • Line Location: IMPOSS+73
Function Call: WRITE
  • Prompt: "Fileman has reported an error to the program.",!?5
  • Line Location: IMPOSS+75
Function Call: WRITE
  • Prompt: "An interlock could not be obtained.",!?5
  • Line Location: IMPOSS+77
Function Call: WRITE
  • Prompt: "An inconsistency in the database was detected.",!?5
  • Line Location: IMPOSS+79
Function Call: WRITE
  • Prompt: "An error condition trying to open a device or a file.",!?5
  • Line Location: IMPOSS+81
Function Call: WRITE
  • Prompt: "A condition the program was unprepared to handle",!?5
  • Line Location: IMPOSS+83
Function Call: WRITE
  • Prompt: "or perhaps an error in the program logic.",!?5
  • Line Location: IMPOSS+84
Function Call: WRITE
  • Prompt: !,"A programmer should be notified of this unfortunate event.",!
  • Line Location: IMPOSS+85
Function Call: WRITE
  • Prompt: IORVOFF,!!
  • Line Location: IMPOSS+87
Function Call: WRITE
  • Prompt: "X is undefined",!
  • Line Location: MSG+1
Function Call: WRITE
  • Prompt: X,!
  • Line Location: MSG+2
Function Call: READ
  • Timeout: R=""
  • Variable: S R="X" F S R=$Q(@R) Q
  • 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+60
Routine Call
  • DIR
  • Line Location:
    • CHOICE+10

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
$$CHOICE IMPOSS+89
@( LOG2+4
CH5 CHOICE+3
HALT QD+2
LOG2 LOGERR+3, LOGERR+4, LOGERR+5
LOGERR QD+1
MSG IMPOSS+86
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+62
IORVOFF IMPOSS+63~, IMPOSS+87
IORVON IMPOSS+63~, IMPOSS+65
MYEXMSG TEST+1~, TEST+2
MYEXMSG( TEST+1*
R MSG+4~*
U LOGERR+3, LOGERR+4, LOG2+5
UECHOICE IMPOSS+57*, IMPOSS+89~*, QD+2, QD+4
UELOC IMPOSS~, IMPOSS+67, IMPOSS+69
UEMSG IMPOSS~, IMPOSS+86
UEMSG2 IMPOSS~, IMPOSS+86
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+67, IMPOSS+70
UETYPE IMPOSS~, IMPOSS+72, IMPOSS+73, IMPOSS+74, IMPOSS+76, IMPOSS+78, IMPOSS+80, IMPOSS+82, CHOICE+8
X IMPOSS+64~*, 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