| 1 | XUTMTZ1 ;SEA/RDS - TaskMan: Toolkit: Test Utilities (Symbol Table) ;5/20/91 15:40 ;
|
|---|
| 2 | ;;8.0;KERNEL;;Jul 10, 1995
|
|---|
| 3 | ;
|
|---|
| 4 | RECORD ;queuable entry point to record the symbol table at ^TMP("XUTMTZ",
|
|---|
| 5 | S ^TMP("XUTMTZ","VAR",$J,$H)=ZTSK_", VARIABLE DUMP"
|
|---|
| 6 | S X="^TMP(""XUTMTZ"",""VAR"",$J,$H," D DOLRO^%ZOSV
|
|---|
| 7 | H 1 S ^TMP("XUTMTZ","VAR",$J,$H)="-----------------------------------------"
|
|---|
| 8 | Q
|
|---|
| 9 | ;
|
|---|
| 10 | SETUP ;programmer mode entry point to setup a task's symbol table
|
|---|
| 11 | ;
|
|---|
| 12 | REPORT ;entry--report all errors in Error file by count
|
|---|
| 13 | K ^TMP("XUTMTZ"),^("XUTMTZ1")
|
|---|
| 14 | S ZTRANSLT="" F ZTA=0:1:31,127 S ZTRANSLT=ZTRANSLT_$C(ZTA)
|
|---|
| 15 | S ZT1=0 F ZT=0:0 S ZT1=$O(^%ZTER(1,ZT1)),ZT2=0 Q:'ZT1 F ZT=0:0 S ZT2=$O(^%ZTER(1,ZT1,1,ZT2)) Q:'ZT2 I $D(^(ZT2,"ZE"))#2 S ZTE=$E($TR(^("ZE"),ZTRANSLT,""),1,40) I ZTE]"" S X=$S($D(^TMP($J,"XUTMTZ",ZTE))#2:^(ZTE)+1,1:1),^(ZTE)=X W "."
|
|---|
| 16 | S ZT1="" F ZT=0:0 S ZT1=$O(^TMP($J,"XUTMTZ",ZT1)) Q:ZT1="" S ZTX=^(ZT1),^TMP($J,"XUTMTZ1",ZTX,ZT1)="" W "."
|
|---|
| 17 | S ZT1=0 F ZT=0:0 S ZT1=$O(^TMP($J,"XUTMTZ1",ZT1)),ZT2="" Q:'ZT1 F ZT=0:0 S ZT2=$O(^TMP($J,"XUTMTZ1",ZT1,ZT2)) Q:ZT2="" W !,ZT1,?5,ZT2
|
|---|
| 18 | K ^TMP($J,"XUTMTZ"),^("XUTMTZ1"),ZT,ZT1,ZT2,ZTA,ZTE,ZTRANSLT,ZTX
|
|---|
| 19 | Q
|
|---|
| 20 | ;
|
|---|
| 21 | REMOVE ;entry--remove a type of error from the Error file
|
|---|
| 22 | F QUASI=0:0 D READ Q:$D(DIRUT) D DEL
|
|---|
| 23 | K DA,DIK,DIRUT,DTOUT,DUOUT,QUASI,X,ZT,ZTC,ZTE,ZTYPE
|
|---|
| 24 | Q
|
|---|
| 25 | ;
|
|---|
| 26 | READ ;REMOVE--read in type of error to remove
|
|---|
| 27 | K DIRUT,DTOUT,DUOUT,ZTYPE
|
|---|
| 28 | R !,"Error to remove: ",X:$S($D(DTIME)#2:DTIME,1:60)
|
|---|
| 29 | I '$T W $C(7),"**TIMEOUT**" S DTOUT=1,DIRUT=1 Q
|
|---|
| 30 | I X="^" S DUOUT=1,DIRUT=1 Q
|
|---|
| 31 | I X="" S DIRUT=1 Q
|
|---|
| 32 | I X="?" W !!?5,"Answer must be free text.",!?5,"Every error that contains the answer will be purged from the Error file.",! G READ
|
|---|
| 33 | I X?."?" W !!,"Generating frequency report" D REPORT W ! G READ
|
|---|
| 34 | S ZTYPE=X
|
|---|
| 35 | Q
|
|---|
| 36 | ;
|
|---|
| 37 | DEL ;REMOVE--remove type of error from Error file
|
|---|
| 38 | S DA(1)=0,ZTC=0 F ZT=0:0 S DA(1)=$O(^%ZTER(1,DA(1))),DA=0,DIK="^%ZTER(1,DA(1),1," Q:'DA(1) W !,DA(1) F ZT=0:0 S DA=$O(^%ZTER(1,DA(1),1,DA)) Q:'DA W "." I $D(^(DA,"ZE"))#2 S ZTE=^("ZE") I ZTE[ZTYPE D ^DIK W DA S ZTC=ZTC+1
|
|---|
| 39 | W !!,"Number of errors removed: ",ZTC,!
|
|---|
| 40 | Q
|
|---|
| 41 | ;
|
|---|
| 42 | REPORT2 ;entry--report all errors in TaskMan Error file by count
|
|---|
| 43 | K ^TMP("XUTMTZ"),^("XUTMTZ1")
|
|---|
| 44 | S ZTRANSLT="" F ZTA=0:1:31,127 S ZTRANSLT=ZTRANSLT_$C(ZTA)
|
|---|
| 45 | S ZT1=0 F ZT=0:0 S ZT1=$O(^%ZTSCH("ER",ZT1)),ZT2=0 Q:'ZT1 F ZT=0:0 S ZT2=$O(^%ZTSCH("ER",ZT1,ZT2)) Q:'ZT2 I $D(^(ZT2))#2 S ZTE=$E($TR(^(ZT2),ZTRANSLT,""),1,40) I ZTE]"" S X=$S($D(^TMP($J,"XUTMTZ",ZTE))#2:^(ZTE)+1,1:1),^(ZTE)=X W "."
|
|---|
| 46 | S ZT1="" F ZT=0:0 S ZT1=$O(^TMP($J,"XUTMTZ",ZT1)) Q:ZT1="" S ZTX=^(ZT1),^TMP($J,"XUTMTZ1",ZTX,ZT1)="" W "."
|
|---|
| 47 | S ZT1=0 F ZT=0:0 S ZT1=$O(^TMP($J,"XUTMTZ1",ZT1)),ZT2="" Q:'ZT1 F ZT=0:0 S ZT2=$O(^TMP($J,"XUTMTZ1",ZT1,ZT2)) Q:ZT2="" W !,ZT1,?5,ZT2
|
|---|
| 48 | K ^TMP($J,"XUTMTZ"),^("XUTMTZ1"),ZT,ZT1,ZT2,ZTA,ZTE,ZTRANSLT
|
|---|
| 49 | Q
|
|---|
| 50 | ;
|
|---|
