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

Package: Health Level Seven

Routine: HLDIEDB0


Information

HLDIEDB0 ;CIOFO-O/LJA - Debug Data Display Code ;12/29/03 10:39

Source Information

Source file <HLDIEDB0.m>

Call Graph

Call Graph

Call Graph Total: 1

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

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Health Level Seven 2 HLDIEDB3  HLDIEDBG  

Entry Points

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

External References

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

Global Variables Directly Accessed

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

Label References

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*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All