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

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

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
Info |  Source |  Entry Points |  Interaction Calls