HLDIEDBG ;CIOFO-O/LJA - Direct 772 & 773 Sets DEBUG CODE ;12/29/03 10:39
Source file <HLDIEDBG.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
MENU | ; Additional documentation available in INIT^HLDIEDB1...
|
|
SETDEBUG | ; Set or "unset" the DEBUG string...
|
|
SET1 | ;
; Get current DEBUG value... |
|
DEBUG(RTN,LOC,STORE,XEC) | ; Store debug data... (Don't call unless all
; checks have been made and debug data IS to be stored!) |
|
ERRESUME | ; If $$STORESCR code errors, there has to be a place for
; error trapping to GOTO. This is that place... |
|
ONLYASC(REF) | ; Convert control characters to {ASCII}...
|
|
STOREMSG(FILE,IEN,RTN,DEBUGNO,LOC,INCRNO) | ; Store message data in ^XTMP...
; DEBUGNOW -- req |
|
NODE(GBL,NODE) | ; Collect message data...
; RTN,DEBUGNO -- req |
|
KILLALL | ; Don't call here unless it's OK to remove ALL-ALL debug data...
|
|
LOG(SUBSV,KEEP,STOP) | ; Log local vars into ^XTMP("HLDIE "_DT)...
|
|
EOR | ;HLDIEDBG - Direct 772 & 773 Sets DEBUG CODE ; 11/18/2003 11:17
|
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: READ |
|
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 |
|