Routine: HLDIEDB0

Package	Total	Call Graph
Kernel	1	($$CJ,$$REPEAT,$$UP)^XLFSTR

Package	Total	Caller Graph
Health Level Seven	2	HLDIEDB3 HLDIEDBG

Name	Comments	DBIA/ICR reference
FILEIEN	; Input FILE,IEN to find debug data to display...
SEARCH	; Search of global data to find & display...
EOR	;HLDIEDBO - Direct 772 & 773 Sets DEBUG CODE ; 11/18/2003 11:17
R1
EADTHD(CT,FILE,IEN,LDT,JOB,RTN,NUM,LOC)	;
SHOW	;
S1
ONLYASC(TXT)	; Return ASCII only. No CTRL characters...
COLL1(FILE,IEN,DATE,JOB,RTN,LOC)	; Called by COLLECT...
COLLECT	; Collect data into ^TMP($J,"D")...
API	; Select RTN & SUBRTN to find & show debug data...
INDIV(DATE,JOB,RTN,LOC)	; Display entry's data from ^XTMP global...
SDATA(POSX,DATA)	; Show data...
SHOWDT(FILE,DATE,RTN,MAX)	; Show entries and create ^TMP($J,"R")...
SHOWONE(NUM)	; REquires ^TMP($J,"R",NUM)
SHOWDTHD	;
SF	; Show files... ; GBL -- req
SI(FILE)	; Show IENs for file... ; GBL -- req

Name	Field # of Occurrence
$$CJ^XLFSTR	FILEIEN+3, SF+3, SI+3, SEARCH+3, API+3
$$REPEAT^XLFSTR	FILEIEN+4, FILEIEN+19, FILEIEN+36, SF+8, SI+12, SEARCH+4, API+4, SHOWDTHD+3, SHOW+4
$$UP^XLFSTR	S1+3, S1+13

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,$$CJ^XLFSTR("Debug Data Display by FILE,IEN",IOM) Line Location: FILEIEN+3
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("=",IOM) Line Location: FILEIEN+4
Function Call: WRITE	Prompt: !!,"No debug data exists..." Line Location: FILEIEN+7
Function Call: READ	Prompt: "Enter FILE#: " Formatting: !! Timeout: 99 Variable: FILE Line Location: FILEIEN+14
Function Call: READ	Prompt: "Enter IEN: " Formatting: !! Timeout: 99 Variable: IEN Line Location: FILEIEN+17
Function Call: WRITE	Prompt: !!,?2,"#",?5,"File & IEN",?20,"Date",?35,"Job#",?50,"Rtn",?68,"Debug#" Line Location: FILEIEN+18
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("=",IOM) Line Location: FILEIEN+19
Function Call: WRITE	Prompt: !,$J(GCT,3),?5,FILE,"[#",IEN,"]",?20,DATE,?35,JOB,?50,RTN,?68,LOC Line Location: FILEIEN+31
Function Call: READ	Prompt: "Enter #: " Formatting: !! Timeout: 99 Variable: GCT Line Location: FILEIEN+33
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",IOM) Line Location: FILEIEN+36
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR(" Files w/Debug Data ",IOM,"=") Line Location: SF+3
Function Call: WRITE	Prompt: FILE Line Location: SF+7
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",IOM) Line Location: SF+8
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR(" IENs w/Debug Data for File# "_FILE_" ",IOM,"=") Line Location: SI+3
Function Call: WRITE	Prompt: IEN Line Location: SI+8
Function Call: WRITE	Prompt: !!,"Some IENs not displayed (because there were too many)..." Line Location: SI+10
Function Call: WRITE	Prompt: !,"(The LAST IEN is ",$O(@GBL@(FILE,":"),-1),".)" Line Location: SI+11
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",IOM) Line Location: SI+12
Function Call: WRITE	Prompt: @IOF,$$CJ^XLFSTR("Debug Data Display by Global Search",IOM) Line Location: SEARCH+3
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("=",IOM) Line Location: SEARCH+4
Function Call: WRITE	Prompt: !!,"No debug data exists..." Line Location: SEARCH+7
Function Call: READ	Prompt: "Search string: " Formatting: !! Timeout: 999 Variable: SRCH Line Location: S1+2
Function Call: WRITE	Prompt: !!,"Searching..." Line Location: S1+7
Function Call: WRITE	Prompt: !,LP,"=" Line Location: S1+18
Function Call: WRITE	Prompt: $E(ORIG,1,IOM-POSX) Line Location: S1+23
Function Call: READ	Timeout: 99 Variable: X Line Location: S1+27
Function Call: WRITE	Prompt: !!,"... aborting ..." Line Location: S1+29
Function Call: WRITE	Prompt: @IOF,$$CJ^XLFSTR("Debug Data Display by API Call",IOM) Line Location: API+3
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("=",IOM) Line Location: API+4
Function Call: WRITE	Prompt: !!,"No debug data exists..." Line Location: API+7
Function Call: WRITE	Prompt: ! Line Location: API+10
Function Call: READ	Prompt: "File: " Formatting: !! Timeout: 99 Variable: FILE Line Location: R1+0
Function Call: WRITE	Prompt: " no data..." Line Location: R1+2
Function Call: READ	Prompt: "Rtn: " Formatting: ! Timeout: 99 Variable: RTN Line Location: R1+4
Function Call: READ	Prompt: "Subrtn: " Formatting: ! Timeout: 99 Variable: SUB Line Location: R1+5
Function Call: READ	Prompt: "Max#: 20// " Formatting: ! Timeout: 99 Variable: MAX Line Location: R1+8
Function Call: READ	Prompt: "Enter Date/time (FM): " Formatting: !! Timeout: 99 Variable: DATE Line Location: R1+13
Function Call: WRITE	Prompt: " invalid format..." Line Location: R1+14
Function Call: WRITE	Prompt: ! Line Location: R1+16
Function Call: READ	Prompt: "Enter # to display: " Formatting: !! Timeout: 99 Variable: NUM Line Location: R1+21
Function Call: WRITE	Prompt: " entry not found..." Line Location: R1+23
Function Call: WRITE	Prompt: !!,"...",$P(LP,"^XTMP(""HLDIE-DEBUG-"_DATE,2),"=" Line Location: INDIV+6
Function Call: WRITE	Prompt: !,"...",REF Line Location: INDIV+11
Function Call: WRITE	Prompt: ! Line Location: INDIV+14
Function Call: WRITE	Prompt: $E(DATA,1,IOM-POSX) Line Location: SDATA+5
Function Call: WRITE	Prompt: ! Line Location: SHOWDT+19
Function Call: WRITE	Prompt: !,$J(CT,3),?5,FILE,?15,+IEN,?25,"@",$P(LDT,".",2) Line Location: EADTHD+1
Function Call: WRITE	Prompt: ?35,JOB,?50,RTN,?70,LOC,$S(LOC=1:"<-Beg",1:"") Line Location: EADTHD+2
Function Call: WRITE	Prompt: !!,"#",?5,"File",?15,"IEN",?25,"Time",?35,"Job#",?50,"Location" Line Location: SHOWDTHD+1
Function Call: WRITE	Prompt: ?70,"Call#" Line Location: SHOWDTHD+2
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("=",IOM) Line Location: SHOWDTHD+3
Function Call: WRITE	Prompt: !!,"File",?17,"Date",?40,"API" Line Location: SHOW+3
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("=",IOM) Line Location: SHOW+4
Function Call: WRITE	Prompt: !,FILE," [#",^TMP($J,"D",FILE),"]" Line Location: SHOW+8
Function Call: WRITE	Prompt: DATE," [#",^TMP($J,"D",FILE,DATE),"]" Line Location: SHOW+12
Function Call: WRITE	Prompt: RTN," [#",^TMP($J,"D",FILE,DATE,RTN),"]" Line Location: SHOW+16

Name	Line Occurrences (* Changed, ! Killed)
^TMP($J	FILEIEN+20!, FILEIEN+30, FILEIEN+34, FILEIEN+38!, R1+12!, R1+18, R1+22, SHOWONE+3, SHOWDT+18, SHOW+7 , SHOW+8, SHOW+10, SHOW+12, SHOW+14, SHOW+16, COLLECT+3!, COLL1+2, COLL1+3, COLL1+4*
^XTMP("HLDIE-DEBUG-"	COLLECT+12
^XTMP("HLDIE-DEBUGX"	FILEIEN+6, SEARCH+6, API+6, R1+1, COLLECT+6, COLLECT+8, COLLECT+10, COLLECT+14, COLLECT+16, COLLECT+18

Name	Line Occurrences
COLL1	COLLECT+19
COLLECT	API+11
EADTHD	SHOWDT+20
INDIV	FILEIEN+35, SHOWONE+8
R1	R1+1, R1+4, R1+5, R1+30
S1	S1+31
SDATA	INDIV+7, INDIV+12
SF	FILEIEN+13
SHOW	API+12, R1+28
SHOWDT	R1+17
SHOWDTHD	SHOWDT+5
SHOWONE	R1+24
SI	FILEIEN+16

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ABORT	FILEIEN+1~, FILEIEN+21, FILEIEN+22, FILEIEN+24, FILEIEN+26, FILEIEN+28, SEARCH+1~, S1+9, S1+12, S1+27* , S1+29, SHOWDT+1~, SHOWDT+7*
ASCII	ONLYASC+1~, ONLYASC+4*, ONLYASC+5
CHAR	ONLYASC+1~, ONLYASC+4, ONLYASC+5, ONLYASC+6
CONT	SEARCH+1~, S1+9, S1+25, S1+27
CT	FILEIEN+1~, SF+2~, SF+4, SF+6, SI+2~, SI+4, SI+5, SI+6, SI+9, SEARCH+1~ , S1+9, S1+26, SHOWDT+1~, SHOWDT+7, SHOWDT+8, SHOWDT+16, SHOWDT+18, SHOWDT+20, EADTHD~, EADTHD+1 , SHOW+1~
DATA	SEARCH+1~, S1+13, S1+15, SHOWONE+1~, SHOWONE+3, SHOWONE+5, SHOWONE+6, SDATA~, SDATA+2, SDATA+3 , SDATA+5, SDATA+6, SHOWDT+1~, SHOWDT+17, SHOWDT+20
DATE	FILEIEN+1~, FILEIEN+21, FILEIEN+22, FILEIEN+24, FILEIEN+26, FILEIEN+28, FILEIEN+30, FILEIEN+31, FILEIEN+34, FILEIEN+35 , API+1~, R1+11, R1+13, R1+14, R1+17, SHOWONE+1~, SHOWONE+5, SHOWONE+8, INDIV~, INDIV+3 , INDIV+6, INDIV+10, SHOWDT~, SHOWDT+9, SHOW+1~, SHOW+9, SHOW+10, SHOW+12, SHOW+14, SHOW+16 , COLLECT+1~, COLLECT+9, COLLECT+10*, COLLECT+12, COLLECT+14, COLLECT+16, COLLECT+18, COLLECT+19, COLL1~, COLL1+3 , COLL1+4
FILE	FILEIEN+1~, FILEIEN+12, FILEIEN+14, FILEIEN+16, FILEIEN+22, FILEIEN+24, FILEIEN+26, FILEIEN+28, FILEIEN+31, SF+2~ , SF+4, SF+5, SF+7, SI~, SI+3, SI+5, SI+11, API+1~, R1, R1+1 , R1+17, SHOWONE+1~, SHOWONE+5, SHOWDT~, SHOWDT+3, SHOWDT+18, SHOWDT+20, EADTHD~, EADTHD+1, SHOW+1~ , SHOW+6, SHOW+7, SHOW+8, SHOW+10, SHOW+12, SHOW+14, SHOW+16, COLLECT+1~, COLLECT+5, COLLECT+6* , COLLECT+8, COLLECT+10, COLLECT+14, COLLECT+16, COLLECT+18, COLLECT+19, COLL1~, COLL1+2, COLL1+3, COLL1+4
FIND	SEARCH+1~, S1+13, S1+14, S1+16, S1+17
GBL	FILEIEN+1~, FILEIEN+10, FILEIEN+22, FILEIEN+24, FILEIEN+26, FILEIEN+28, SF+5, SI+5, SI+11, SHOWDT+1~ , SHOWDT+3, SHOWDT+8, SHOWDT+10, SHOWDT+12, SHOWDT+13, SHOWDT+15, SHOWDT+17
GCT	FILEIEN+1~, FILEIEN+21, FILEIEN+29, FILEIEN+30, FILEIEN+31, FILEIEN+32, FILEIEN+33*, FILEIEN+34
IEN	FILEIEN+1~, FILEIEN+15, FILEIEN+17, FILEIEN+22, FILEIEN+24, FILEIEN+26, FILEIEN+28, FILEIEN+31, SI+2~, SI+4 , SI+5, SI+8, SHOWONE+1~, SHOWONE+5, SHOWDT+1~, SHOWDT+7, SHOWDT+8, SHOWDT+10, SHOWDT+12, SHOWDT+13 , SHOWDT+15, SHOWDT+17, SHOWDT+18, SHOWDT+20, EADTHD~, EADTHD+1, COLLECT+1~, COLLECT+7, COLLECT+8, COLLECT+10 , COLLECT+14, COLLECT+16, COLLECT+18, COLLECT+19, COLL1~
IOF	FILEIEN+3, SEARCH+3, API+3
IOM	FILEIEN+3, FILEIEN+4, FILEIEN+19, FILEIEN+36, SF+3, SF+8, SI+3, SI+12, SEARCH+3, SEARCH+4 , S1+23, S1+24, API+3, API+4, SDATA+5, SDATA+6, SHOWDTHD+3, SHOW+4
JOB	FILEIEN+1~, FILEIEN+23, FILEIEN+24, FILEIEN+26, FILEIEN+28, FILEIEN+30, FILEIEN+31, FILEIEN+34, FILEIEN+35, SHOWONE+1~ , SHOWONE+6, SHOWONE+8, INDIV~, INDIV+3, SHOWDT+1~, SHOWDT+11, SHOWDT+12, SHOWDT+13, SHOWDT+15, SHOWDT+17 , SHOWDT+18, SHOWDT+20, SHOWDT+21, EADTHD~, EADTHD+2, COLLECT+1~, COLLECT+13, COLLECT+14, COLLECT+16, COLLECT+18 , COLLECT+19, COLL1~
JOBLAST	SHOWDT+1~, SHOWDT+7, SHOWDT+19, SHOWDT+21*
LDT	SHOWDT+1~, SHOWDT+9, SHOWDT+10, SHOWDT+12, SHOWDT+13, SHOWDT+15, SHOWDT+17, SHOWDT+18, SHOWDT+20, EADTHD~ , EADTHD+1
LOC	FILEIEN+1~, FILEIEN+27, FILEIEN+28, FILEIEN+30, FILEIEN+31, FILEIEN+34, FILEIEN+35, SHOWONE+1~, SHOWONE+6, SHOWONE+8 , INDIV~, INDIV+3, EADTHD~, EADTHD+2, COLLECT+1~, COLLECT+17, COLLECT+18, COLLECT+19, COLL1~
LP	SEARCH+1~, S1+11, S1+12, S1+13, S1+15, S1+18, INDIV+1~, INDIV+3, INDIV+4, INDIV+6 , INDIV+7, INDIV+9*, INDIV+10, INDIV+12
MAX	API+1~, R1+8, R1+9, R1+17, SHOWDT~, SHOWDT+8
NO	SHOWDT+1~, SHOWDT+13*
NTXT	ONLYASC+1~, ONLYASC+2, ONLYASC+6, ONLYASC+7
NUM	API+1~, R1+20, R1+21, R1+22, R1+24, SHOWONE~, SHOWONE+3, SHOWDT+1~, SHOWDT+14, SHOWDT+15* , SHOWDT+17, SHOWDT+18, SHOWDT+20, EADTHD~
ORIG	SEARCH+1~, S1+13, S1+21, S1+23, S1+24
POS	ONLYASC+1~, ONLYASC+3*, ONLYASC+4
POSX	SEARCH+1~, S1+20*, S1+22, S1+23, S1+24, SDATA~, SDATA+4, SDATA+5, SDATA+6
REF	INDIV+1~, INDIV+10*, INDIV+11
RTN	FILEIEN+1~, FILEIEN+25, FILEIEN+26, FILEIEN+28, FILEIEN+30, FILEIEN+31, FILEIEN+34, FILEIEN+35, API+1~, R1+4 , R1+6, R1+17, SHOWONE+1~, SHOWONE+6, SHOWONE+8, INDIV~, INDIV+3, SHOWDT~, SHOWDT+13, SHOWDT+15 , SHOWDT+17, SHOWDT+18, SHOWDT+20, EADTHD~, EADTHD+2, SHOW+1~, SHOW+13, SHOW+14, SHOW+16, COLLECT+1~ , COLLECT+15, COLLECT+16, COLLECT+18, COLLECT+19, COLL1~, COLL1+4
SRCH	SEARCH+1~, S1!, S1+2, S1+3, S1+13, S1+14*, S1+15
SRCH(	S1+3*, S1+14
SRCH(""	S1+5
ST	SEARCH+1~, S1+11, S1+12, INDIV+1~, INDIV+4, INDIV+9
SUB	API+1~, R1+5*, R1+6
TXT	ONLYASC~, ONLYASC+3, ONLYASC+4
U	FILEIEN+14, FILEIEN+30, FILEIEN+34, S1+2, R1+20, R1+21, SHOWONE+5, SHOWONE+6, SHOWDT+18
X	FILEIEN+1~, FILEIEN+34, SEARCH+1~, S1+27

Customize PDF page

Package: Health Level Seven

Routine: HLDIEDB0

Information

Source Information

Call Graph

Call Graph Total: 1

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: