Routine: HLDIEDB1

Information

HLDIEDB1 ;CIOFO-O/LJA - DEBUG Menu ;1/8/04 @ 01:28

Name	Comments	DBIA/ICR reference
INIT	;
CTRL	;
BT	;
HEADER	;
CD(TXT)	; debug information ; IOINORM,IOINHI -- req
M
ASK	; ; NOMENU -- req
XEC	;
REALTIME	; real-time monitoring...
REALHDR	; Header for real-time display... ; Cn -- req
REALSHOW	; Show information...
REALONE(DNO)	; Show one entry... ; Cn -- req
TIME(FMTIME)	; Return HH:MM:SS
DOC
ERR	; If error occurs during screening... ; The SENDUZ(DUZ)="" array MUST already be defined...
MAILADD(T)
EOR	;HLDIEDB1 - DEBUG Menu ;1/8/04 @ 01:28

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: BT+2
Function Call: WRITE	Prompt: @IOF,$$CJ^XLFSTR("HLDIE Debug Utility",IOM) Line Location: HEADER+2
Function Call: WRITE	Prompt: !,?17,DEBUG Line Location: HEADER+7
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("=",80) Line Location: HEADER+8
Function Call: WRITE	Prompt: !,$J(I,2),". ",$P(T,"~") Line Location: M+0
Function Call: WRITE	Prompt: ! Line Location: ASK+3
Function Call: READ	Variable: X Timeout: 60 Line Location: REALTIME+13
Function Call: WRITE	Prompt: !!,"#",?C2,"NOW",?C3,"File [#IEN]",?C4,"DataTM",?C5,"$J" Line Location: REALHDR+2
Function Call: WRITE	Prompt: ?C6,"Rtn",?C7,"LOC",?C8,"Edtor" Line Location: REALHDR+3
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("=",IOM) Line Location: REALHDR+4
Function Call: WRITE	Prompt: !,?C2,NOW,?C3,"Collecting data..." Line Location: REALSHOW+7
Function Call: WRITE	Prompt: ?C2,NOW,?C3,"[No change]" Line Location: REALSHOW+11
Function Call: WRITE	Prompt: !,$J(DNO,5),?C2,NOW,?C3,FILE," [#",IEN,"]",?C4,TIME,?C5,JOB Line Location: REALONE+10
Function Call: WRITE	Prompt: ?C6,RTN,?C7,SNO,?C8,$S(EDITOR["HLDIE":"HL",1:"FM") Line Location: REALONE+11
Function Call: WRITE	Prompt: !,T Line Location: DOC+3