HLDIEDB3 ;CIOFO-O/LJA - Debug Data Display Code ;12/29/03 10:39
;;1.6;HEALTH LEVEL SEVEN;**109**;Oct 13,1995
;
JOB ; Display information by job#...
N JOBNO
;
KILL ^TMP($J)
;
J1 D SHOWJOB
;
J2 R !!,"Enter job#: ",JOBNO:99 Q:JOBNO']""!(JOBNO[U) ;->
I '$D(^TMP($J,"HLJOB",JOBNO)) D G J2 ;->
. W " invalid job#..."
;
D JOBSHOW(JOBNO)
;
G J1 ;->
;
SHOWJOB ;
N C2,CT,CALL,CT,DATA,DATE,JOB,HLDIE,LOOP,NO
;
S HLDIE="HLDIE-DEBUG-",LOOP=HLDIE,CT=0
F S LOOP=$O(^XTMP(LOOP)) Q:LOOP'[HLDIE D
. S JOB=0,DATE=$P(LOOP,"-",3)
. F S JOB=$O(^XTMP(LOOP,JOB)) Q:'JOB D
. . S CALL=""
. . F S CALL=$O(^XTMP(LOOP,JOB,CALL)) Q:CALL']"" D
. . . S NO=0
. . . F S NO=$O(^XTMP(LOOP,JOB,CALL,NO)) Q:'NO D
. . . . S DATA=^XTMP(LOOP,JOB,CALL,NO),LOC=+DATA
. . . . S CT=CT+1,^TMP($J,"HLJOB",JOB,CT)=CALL_"~"_DATA
. . . . S ^TMP($J,"HLJOBX",JOB,CALL,NO)=DATA
;
S C2=20
;
W !!,"Job",?C2,"Calls"
W !,$$REPEAT^XLFSTR("=",IOM)
;
S JOB=0,CT=0
F S JOB=$O(^TMP($J,"HLJOBX",JOB)) Q:'JOB D
. S CT=CT+1
. W:CT>1 !
. W !,JOB,?C2
. S CALL=""
. F S CALL=$O(^TMP($J,"HLJOBX",JOB,CALL)) Q:CALL']"" D
. . W:($X+$L(CALL)+3)>IOM ! W:$X<C2 ?C2
. . W:$X>C2 ", "
. . W CALL
;
Q
;
JOBSHOW(JOBNO) ;
N ABORT,CONT,CT,GBL,LOC,NO
;
S GBL="^TMP("_$J_",""HLJOB"","_JOBNO_")"
;
D SHOWDTHD^HLDIEDB0
;
S NO=0,ABORT=0,CT=0,CONT=0
F S NO=$O(@GBL@(NO)) Q:'NO!(ABORT) D
. D LOADIT(NO)
. D EADTHD^HLDIEDB0(NO,FILE,IEN,LDT,JOBNO,RTN,NO,LOC)
. S CT=CT+1
. I 'CONT,'(CT#22) R X:60 S:X=" " CONT=1 S:X[U ABORT=1
;
F D QUIT:'NO
. R !,"Enter #: ",NO:99 Q:NO']""!(NO[U) ;->
. D LOADIT(NO)
. D INDIV^HLDIEDB0(LDT\1,JOBNO,RTN,LOC)
;
Q
;
LOADIT(NO) ;
; GBL -- req
S DATA=@GBL@(NO),RTN=$P(DATA,"~",1,2),DATA=$P(DATA,"~",3,999)
S FILE=$P(DATA,U,3),IEN=$P(DATA,U,4),LDT=$P(DATA,U,2)
S LOC=$P(DATA,U)
Q
;
EOR ;HLDIEDB3 - Direct 772 & 773 Sets DEBUG CODE ; 11/18/2003 11:17
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HHLDIEDB3 2002 printed Dec 13, 2024@01:57:20 Page 2
HLDIEDB3 ;CIOFO-O/LJA - Debug Data Display Code ;12/29/03 10:39
+1 ;;1.6;HEALTH LEVEL SEVEN;**109**;Oct 13,1995
+2 ;
JOB ; Display information by job#...
+1 NEW JOBNO
+2 ;
+3 KILL ^TMP($JOB)
+4 ;
J1 DO SHOWJOB
+1 ;
J2 ;->
READ !!,"Enter job#: ",JOBNO:99
if JOBNO']""!(JOBNO[U)
QUIT
+1 ;->
IF '$DATA(^TMP($JOB,"HLJOB",JOBNO))
Begin DoDot:1
+2 WRITE " invalid job#..."
End DoDot:1
GOTO J2
+3 ;
+4 DO JOBSHOW(JOBNO)
+5 ;
+6 ;->
GOTO J1
+7 ;
SHOWJOB ;
+1 NEW C2,CT,CALL,CT,DATA,DATE,JOB,HLDIE,LOOP,NO
+2 ;
+3 SET HLDIE="HLDIE-DEBUG-"
SET LOOP=HLDIE
SET CT=0
+4 FOR
SET LOOP=$ORDER(^XTMP(LOOP))
if LOOP'[HLDIE
QUIT
Begin DoDot:1
+5 SET JOB=0
SET DATE=$PIECE(LOOP,"-",3)
+6 FOR
SET JOB=$ORDER(^XTMP(LOOP,JOB))
if 'JOB
QUIT
Begin DoDot:2
+7 SET CALL=""
+8 FOR
SET CALL=$ORDER(^XTMP(LOOP,JOB,CALL))
if CALL']""
QUIT
Begin DoDot:3
+9 SET NO=0
+10 FOR
SET NO=$ORDER(^XTMP(LOOP,JOB,CALL,NO))
if 'NO
QUIT
Begin DoDot:4
+11 SET DATA=^XTMP(LOOP,JOB,CALL,NO)
SET LOC=+DATA
+12 SET CT=CT+1
SET ^TMP($JOB,"HLJOB",JOB,CT)=CALL_"~"_DATA
+13 SET ^TMP($JOB,"HLJOBX",JOB,CALL,NO)=DATA
End DoDot:4
End DoDot:3
End DoDot:2
End DoDot:1
+14 ;
+15 SET C2=20
+16 ;
+17 WRITE !!,"Job",?C2,"Calls"
+18 WRITE !,$$REPEAT^XLFSTR("=",IOM)
+19 ;
+20 SET JOB=0
SET CT=0
+21 FOR
SET JOB=$ORDER(^TMP($JOB,"HLJOBX",JOB))
if 'JOB
QUIT
Begin DoDot:1
+22 SET CT=CT+1
+23 if CT>1
WRITE !
+24 WRITE !,JOB,?C2
+25 SET CALL=""
+26 FOR
SET CALL=$ORDER(^TMP($JOB,"HLJOBX",JOB,CALL))
if CALL']""
QUIT
Begin DoDot:2
+27 if ($X+$LENGTH(CALL)+3)>IOM
WRITE !
if $X<C2
WRITE ?C2
+28 if $X>C2
WRITE ", "
+29 WRITE CALL
End DoDot:2
End DoDot:1
+30 ;
+31 QUIT
+32 ;
JOBSHOW(JOBNO) ;
+1 NEW ABORT,CONT,CT,GBL,LOC,NO
+2 ;
+3 SET GBL="^TMP("_$JOB_",""HLJOB"","_JOBNO_")"
+4 ;
+5 DO SHOWDTHD^HLDIEDB0
+6 ;
+7 SET NO=0
SET ABORT=0
SET CT=0
SET CONT=0
+8 FOR
SET NO=$ORDER(@GBL@(NO))
if 'NO!(ABORT)
QUIT
Begin DoDot:1
+9 DO LOADIT(NO)
+10 DO EADTHD^HLDIEDB0(NO,FILE,IEN,LDT,JOBNO,RTN,NO,LOC)
+11 SET CT=CT+1
+12 IF 'CONT
IF '(CT#22)
READ X:60
if X=" "
SET CONT=1
if X[U
SET ABORT=1
End DoDot:1
+13 ;
+14 FOR
Begin DoDot:1
+15 ;->
READ !,"Enter #: ",NO:99
if NO']""!(NO[U)
QUIT
+16 DO LOADIT(NO)
+17 DO INDIV^HLDIEDB0(LDT\1,JOBNO,RTN,LOC)
End DoDot:1
if 'NO
QUIT
+18 ;
+19 QUIT
+20 ;
LOADIT(NO) ;
+1 ; GBL -- req
+2 SET DATA=@GBL@(NO)
SET RTN=$PIECE(DATA,"~",1,2)
SET DATA=$PIECE(DATA,"~",3,999)
+3 SET FILE=$PIECE(DATA,U,3)
SET IEN=$PIECE(DATA,U,4)
SET LDT=$PIECE(DATA,U,2)
+4 SET LOC=$PIECE(DATA,U)
+5 QUIT
+6 ;
EOR ;HLDIEDB3 - Direct 772 & 773 Sets DEBUG CODE ; 11/18/2003 11:17
