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