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  | All
Print Page as PDF
Routine: HLDIEDBG

Package: Health Level Seven

Routine: HLDIEDBG


Information

HLDIEDBG ;CIOFO-O/LJA - Direct 772 & 773 Sets DEBUG CODE ;12/29/03 10:39

Source Information

Source file <HLDIEDBG.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Health Level Seven 4 $$YN^HLCSRPT4  $$ONLYASC^HLDIEDB0  INIT^HLDIEDB1  $$STORESCR^HLDIEDB2  
Kernel 4 ENDR^%ZISS  DOLRO^%ZOSV  ($$FMADD,$$NOW)^XLFDT  ($$CJ,$$REPEAT)^XLFSTR  

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

Package Total Caller Graph
Health Level Seven 1 HLDIE  

Entry Points

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

External References

Name Field # of Occurrence
ENDR^%ZISS SETDEBUG+5
DOLRO^%ZOSV ERRESUME+32, LOG+30
$$YN^HLCSRPT4 KILLALL+7
$$ONLYASC^HLDIEDB0 ONLYASC+5
INIT^HLDIEDB1 MENU+1
$$STORESCR^HLDIEDB2 DEBUG+38
$$FMADD^XLFDT SET1+31, ERRESUME+10, ERRESUME+14, ERRESUME+15, LOG+15
$$NOW^XLFDT SET1+31, DEBUG+20, ERRESUME+14, LOG+7, LOG+15, LOG+31
$$CJ^XLFSTR SETDEBUG+2
$$REPEAT^XLFSTR SETDEBUG+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,$$CJ^XLFSTR("HLDIE Debug String Set/Unset Utility",IOM)
  • Line Location: SETDEBUG+2
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("=",IOM)
  • Line Location: SETDEBUG+3
Function Call: WRITE
  • Prompt: !!,"When asked for a new debug string, you may take one of the following actions:"
  • Line Location: SETDEBUG+8
Function Call: WRITE
  • Prompt: !!," * Enter RETURN or '^' to exit."
  • Line Location: SETDEBUG+9
Function Call: WRITE
  • Prompt: !," * Enter a debug string. (E.g., '1' or '1^2' or '1^1^1'.)"
  • Line Location: SETDEBUG+10
Function Call: WRITE
  • Prompt: !," * Enter '@' to delete the debug string, (If a debug string exists)."
  • Line Location: SETDEBUG+11
Function Call: WRITE
  • Prompt: !!!!,"Current DEBUG string = ",IOINHI,STRING,IOINORM
  • Line Location: SET1+5
Function Call: WRITE
  • Prompt: !!,"Enter DEBUG string, ",$S(STRING]"":"'@', ",1:""),"or RETURN to exit: "
  • Line Location: SET1+8
Function Call: READ
  • Variable: NEWSTR
  • Timeout: 999
  • Line Location: SET1+9
Function Call: WRITE
  • Prompt: " no changes made. Exiting... "
  • Line Location: SET1+14
Function Call: WRITE
  • Prompt: !!,"No changes made. (If you want to stop debugging, enter '"
  • Line Location: SET1+16
Function Call: WRITE
  • Prompt: IOINHI,"@",IOINORM,"'.) Exiting..."
  • Line Location: SET1+17
Function Call: WRITE
  • Prompt: " no changes made... "
  • Line Location: SET1+23
Function Call: WRITE
  • Prompt: " stopped all debugging!"
  • Line Location: SET1+28
Function Call: WRITE
  • Prompt: " debugging set..."
  • Line Location: SET1+33
Function Call: WRITE
  • Prompt: !!,"No debug data exists..."
  • Line Location: KILLALL+4
Function Call: WRITE
  • Prompt: !
  • Line Location: KILLALL+6
Function Call: WRITE
  • Prompt: " no data will be killed..."
  • Line Location: KILLALL+8
Function Call: WRITE
  • Prompt: !!,"KILLing all debug data..."
  • Line Location: KILLALL+10

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^XTMP( ERRESUME+10*, ERRESUME+14*, ERRESUME+15*, KILLALL+12, KILLALL+13!, LOG+15*, LOG+20, LOG+24, LOG+31*, LOG+33*
, LOG+36!
^XTMP("HLDIE-DEBUG" SET1+2, SET1+27!, SET1+31*, SET1+32*, KILLALL+3
^XTMP("HLDIE-DEBUG-" DEBUG+30, DEBUG+34, ERRESUME+21*, ERRESUME+26*, NODE+9*, NODE+15*, NODE+18*
^XTMP("HLDIE-DEBUGN" ERRESUME+18, STOREMSG+6*
^XTMP("HLDIE-DEBUGX" STOREMSG+5*

Label References

Name Line Occurrences
NODE STOREMSG+12
ONLYASC ERRESUME+34
SET1 SET1+23, SET1+26
STOREMSG ERRESUME+22

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CT DEBUG+18~, DEBUG+33*, DEBUG+35*, ERRESUME+4
DATA ONLYASC+1~, ONLYASC+5*, ONLYASC+6*, ONLYASC+7
DEBUGNO DEBUG+18~, DEBUG+30*, ERRESUME+21, ERRESUME+22, ERRESUME+26, ERRESUME+31, STOREMSG~, STOREMSG+5, STOREMSG+6, NODE+9
, NODE+15, NODE+18
DEBUGNOW DEBUG+18~, DEBUG+20*, ERRESUME+10, ERRESUME+21, STOREMSG+5, STOREMSG+6
DT SET1+31, DEBUG+20*, DEBUG+30, DEBUG+34, ERRESUME+9, ERRESUME+10, ERRESUME+14, ERRESUME+15, ERRESUME+21, ERRESUME+26
, ERRESUME+31, NODE+9, NODE+15, NODE+18, LOG+14
FILE DEBUG+23*, DEBUG+24, DEBUG+25, STOREMSG~, STOREMSG+5, STOREMSG+6, STOREMSG+9, STOREMSG+12
GBL STOREMSG+2~, STOREMSG+9*, STOREMSG+12, NODE~, NODE+7, NODE+8, NODE+13, NODE+14, NODE+18
>> HLEDITOR ERRESUME+21, STOREMSG+5, STOREMSG+6
HLFILE DEBUG+18~, DEBUG+24*, DEBUG+26*, DEBUG+27*, ERRESUME+21, ERRESUME+22
HLIEN DEBUG+18~, DEBUG+24*, DEBUG+26*, DEBUG+27*, ERRESUME+21, ERRESUME+22
IEN DEBUG+23*, DEBUG+24, DEBUG+25, STOREMSG~, STOREMSG+5, STOREMSG+6, STOREMSG+9
INCRNO DEBUG+18~, ERRESUME+18*, ERRESUME+22, STOREMSG~, STOREMSG+6
IOBOFF SETDEBUG+1~
IOBON SETDEBUG+1~
IOF SETDEBUG+2
IOINHI SETDEBUG+1~, SET1+5, SET1+17
IOINORM SETDEBUG+1~, SET1+5, SET1+17
IOM SETDEBUG+2, SETDEBUG+3
KEEP LOG~, LOG+7*, LOG+11*, LOG+27, LOG+36
KILL KILLALL+1~, KILLALL+7*, KILLALL+8
LAST NODE+2~, NODE+12~, NODE+13*, NODE+15
LNO NODE+2~, NODE+5~, NODE+6*, NODE+7*, NODE+8, NODE+9
LOC DEBUG~, DEBUG+38, ERRESUME+21, ERRESUME+22, ERRESUME+25, STOREMSG~, STOREMSG+5, STOREMSG+6
LP ONLYASC+1~, ONLYASC+3*, ONLYASC+4*, ONLYASC+5, ONLYASC+7
NEWSTR SETDEBUG+1~, SET1+9*, SET1+12, SET1+20*, SET1+23, SET1+26, SET1+32
NO DEBUG+18~, DEBUG+33*, DEBUG+34*, LOG+4~, LOG+19*, LOG+20*, LOG+24*, LOG+30, LOG+31, LOG+33
, LOG+36*
NODE STOREMSG+2~, STOREMSG+12*, NODE~, NODE+4, NODE+11, NODE+18
NOW LOG+4~, LOG+7*, LOG+15
NOXTMP LOG+4~, LOG+7*, LOG+19*, LOG+21*, LOG+27
OFF KILLALL+1~
REF ONLYASC~, ONLYASC+3, ONLYASC+4
>> ROOT DEBUG+27, ERRESUME+25, ERRESUME+26
RTN DEBUG~, DEBUG+30, DEBUG+34, DEBUG+38, ERRESUME+21, ERRESUME+22, ERRESUME+26, ERRESUME+31, STOREMSG~, STOREMSG+5
, STOREMSG+6, NODE+9, NODE+15, NODE+18
STOP LOG~, LOG+7*, LOG+18, LOG+27
STORE DEBUG~, DEBUG+38*, ERRESUME+25, ERRESUME+28
STRING SETDEBUG+1~, SET1+2*, SET1+5, SET1+8, SET1+13, SET1+23
SUBSV LOG~, LOG+7*, LOG+8*, LOG+20, LOG+24, LOG+30, LOG+31, LOG+33, LOG+36
TXT NODE+2~, NODE+5~, NODE+8*, NODE+9, NODE+12~, NODE+14*, NODE+15
U SET1+12, SET1+31, ERRESUME+10, ERRESUME+14, ERRESUME+15, ERRESUME+21, STOREMSG+5, STOREMSG+6, LOG+15
X SETDEBUG+1~, SETDEBUG+5*, DEBUG+18~, ERRESUME+31*, ERRESUME+34, NODE+2~, NODE+18*, LOG+4~, LOG+30*
XEC DEBUG~, DEBUG+38
>> XQY0 ERRESUME+21
XTMP DEBUG+18~, ERRESUME+9*, ERRESUME+10, ERRESUME+13*, ERRESUME+14, ERRESUME+15, KILLALL+1~, KILLALL+11*, KILLALL+12*, KILLALL+13
, LOG+4~, LOG+14*, LOG+15, LOG+20, LOG+24, LOG+30, LOG+31, LOG+33, LOG+36
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All