Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

Entry Points

Name Comments DBIA/ICR reference
FILEIEN ; Input FILE,IEN to find debug data to display...
SF ; Show files...
; GBL -- req
SI(FILE) ; Show IENs for file...
; GBL -- req
SEARCH ; Search of global data to find & display...
S1
API ; Select RTN & SUBRTN to find & show debug data...
R1
SHOWONE(NUM) ; REquires ^TMP($J,"R",NUM)
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")...
EADTHD(CT,FILE,IEN,LDT,JOB,RTN,NUM,LOC) ;
SHOWDTHD ;
SHOW ;
COLLECT ; Collect data into ^TMP($J,"D")...
COLL1(FILE,IEN,DATE,JOB,RTN,LOC) ; Called by COLLECT...
ONLYASC(TXT) ; Return ASCII only. No CTRL characters...
EOR ;HLDIEDBO - Direct 772 & 773 Sets DEBUG CODE ; 11/18/2003 11:17

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
  • Formatting: !!
  • Prompt: "Enter FILE#: "
  • Variable: FILE
  • Timeout: 99
  • Line Location: FILEIEN+14
Function Call: READ
  • Formatting: !!
  • Prompt: "Enter IEN: "
  • Variable: IEN
  • Timeout: 99
  • 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
  • Formatting: !!
  • Prompt: "Enter #: "
  • Variable: GCT
  • Timeout: 99
  • 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
  • Formatting: !!
  • Prompt: "Search string: "
  • Variable: SRCH
  • Timeout: 999
  • 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
  • Variable: X
  • Timeout: 99
  • 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
  • Formatting: !!
  • Prompt: "File: "
  • Variable: FILE
  • Timeout: 99
  • Line Location: R1+0
Function Call: WRITE
  • Prompt: " no data..."
  • Line Location: R1+2
Function Call: READ
  • Formatting: !
  • Prompt: "Rtn: "
  • Variable: RTN
  • Timeout: 99
  • Line Location: R1+4
Function Call: READ
  • Formatting: !
  • Prompt: "Subrtn: "
  • Variable: SUB
  • Timeout: 99
  • Line Location: R1+5
Function Call: READ
  • Formatting: !
  • Prompt: "Max#: 20// "
  • Variable: MAX
  • Timeout: 99
  • Line Location: R1+8
Function Call: READ
  • Formatting: !!
  • Prompt: "Enter Date/time (FM): "
  • Variable: DATE
  • Timeout: 99
  • 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
  • Formatting: !!
  • Prompt: "Enter # to display: "
  • Variable: NUM
  • Timeout: 99
  • 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
Info |  Source |  Entry Points |  Interaction Calls