| 1 | HLDIEDB3 ;CIOFO-O/LJA - Debug Data Display Code ;12/29/03 10:39
|
|---|
| 2 | ;;1.6;HEALTH LEVEL SEVEN;**109**;Oct 13,1995
|
|---|
| 3 | ;
|
|---|
| 4 | JOB ; Display information by job#...
|
|---|
| 5 | N JOBNO
|
|---|
| 6 | ;
|
|---|
| 7 | KILL ^TMP($J)
|
|---|
| 8 | ;
|
|---|
| 9 | J1 D SHOWJOB
|
|---|
| 10 | ;
|
|---|
| 11 | J2 R !!,"Enter job#: ",JOBNO:99 Q:JOBNO']""!(JOBNO[U) ;->
|
|---|
| 12 | I '$D(^TMP($J,"HLJOB",JOBNO)) D G J2 ;->
|
|---|
| 13 | . W " invalid job#..."
|
|---|
| 14 | ;
|
|---|
| 15 | D JOBSHOW(JOBNO)
|
|---|
| 16 | ;
|
|---|
| 17 | G J1 ;->
|
|---|
| 18 | ;
|
|---|
| 19 | SHOWJOB ;
|
|---|
| 20 | N C2,CT,CALL,CT,DATA,DATE,JOB,HLDIE,LOOP,NO
|
|---|
| 21 | ;
|
|---|
| 22 | S HLDIE="HLDIE-DEBUG-",LOOP=HLDIE,CT=0
|
|---|
| 23 | F S LOOP=$O(^XTMP(LOOP)) Q:LOOP'[HLDIE D
|
|---|
| 24 | . S JOB=0,DATE=$P(LOOP,"-",3)
|
|---|
| 25 | . F S JOB=$O(^XTMP(LOOP,JOB)) Q:'JOB D
|
|---|
| 26 | . . S CALL=""
|
|---|
| 27 | . . F S CALL=$O(^XTMP(LOOP,JOB,CALL)) Q:CALL']"" D
|
|---|
| 28 | . . . S NO=0
|
|---|
| 29 | . . . F S NO=$O(^XTMP(LOOP,JOB,CALL,NO)) Q:'NO D
|
|---|
| 30 | . . . . S DATA=^XTMP(LOOP,JOB,CALL,NO),LOC=+DATA
|
|---|
| 31 | . . . . S CT=CT+1,^TMP($J,"HLJOB",JOB,CT)=CALL_"~"_DATA
|
|---|
| 32 | . . . . S ^TMP($J,"HLJOBX",JOB,CALL,NO)=DATA
|
|---|
| 33 | ;
|
|---|
| 34 | S C2=20
|
|---|
| 35 | ;
|
|---|
| 36 | W !!,"Job",?C2,"Calls"
|
|---|
| 37 | W !,$$REPEAT^XLFSTR("=",IOM)
|
|---|
| 38 | ;
|
|---|
| 39 | S JOB=0,CT=0
|
|---|
| 40 | F S JOB=$O(^TMP($J,"HLJOBX",JOB)) Q:'JOB D
|
|---|
| 41 | . S CT=CT+1
|
|---|
| 42 | . W:CT>1 !
|
|---|
| 43 | . W !,JOB,?C2
|
|---|
| 44 | . S CALL=""
|
|---|
| 45 | . F S CALL=$O(^TMP($J,"HLJOBX",JOB,CALL)) Q:CALL']"" D
|
|---|
| 46 | . . W:($X+$L(CALL)+3)>IOM ! W:$X<C2 ?C2
|
|---|
| 47 | . . W:$X>C2 ", "
|
|---|
| 48 | . . W CALL
|
|---|
| 49 | ;
|
|---|
| 50 | Q
|
|---|
| 51 | ;
|
|---|
| 52 | JOBSHOW(JOBNO) ;
|
|---|
| 53 | N ABORT,CONT,CT,GBL,LOC,NO
|
|---|
| 54 | ;
|
|---|
| 55 | S GBL="^TMP("_$J_",""HLJOB"","_JOBNO_")"
|
|---|
| 56 | ;
|
|---|
| 57 | D SHOWDTHD^HLDIEDB0
|
|---|
| 58 | ;
|
|---|
| 59 | S NO=0,ABORT=0,CT=0,CONT=0
|
|---|
| 60 | F S NO=$O(@GBL@(NO)) Q:'NO!(ABORT) D
|
|---|
| 61 | . D LOADIT(NO)
|
|---|
| 62 | . D EADTHD^HLDIEDB0(NO,FILE,IEN,LDT,JOBNO,RTN,NO,LOC)
|
|---|
| 63 | . S CT=CT+1
|
|---|
| 64 | . I 'CONT,'(CT#22) R X:60 S:X=" " CONT=1 S:X[U ABORT=1
|
|---|
| 65 | ;
|
|---|
| 66 | F D QUIT:'NO
|
|---|
| 67 | . R !,"Enter #: ",NO:99 Q:NO']""!(NO[U) ;->
|
|---|
| 68 | . D LOADIT(NO)
|
|---|
| 69 | . D INDIV^HLDIEDB0(LDT\1,JOBNO,RTN,LOC)
|
|---|
| 70 | ;
|
|---|
| 71 | Q
|
|---|
| 72 | ;
|
|---|
| 73 | LOADIT(NO) ;
|
|---|
| 74 | ; GBL -- req
|
|---|
| 75 | S DATA=@GBL@(NO),RTN=$P(DATA,"~",1,2),DATA=$P(DATA,"~",3,999)
|
|---|
| 76 | S FILE=$P(DATA,U,3),IEN=$P(DATA,U,4),LDT=$P(DATA,U,2)
|
|---|
| 77 | S LOC=$P(DATA,U)
|
|---|
| 78 | Q
|
|---|
| 79 | ;
|
|---|
| 80 | EOR ;HLDIEDB3 - Direct 772 & 773 Sets DEBUG CODE ; 11/18/2003 11:17
|
|---|
