Routine: HLDIEDBG

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

Package	Total	Caller Graph
Health Level Seven	1	HLDIE

Package

Total

Caller Graph

Health Level Seven

HLDIE

Entry Points

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

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	Timeout: 999 Variable: NEWSTR 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*

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

Customize PDF page

Package: Health Level Seven

Routine: HLDIEDBG

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: