| 1 | XUTMKE1 ;SEA/RDS - Taskman: Option, XUTME SCREEN*, Part 1 ;04/17/98 13:18
|
|---|
| 2 | ;;8.0;KERNEL;**63,79**;Jul 10, 1995
|
|---|
| 3 | ;
|
|---|
| 4 | SCLIST ;List Current Error Screens
|
|---|
| 5 | ;N % S %=$$LST(2) D:% MORE Q
|
|---|
| 6 | ALL ;Show all error screens
|
|---|
| 7 | N % S %=$$LST(1),%=%+$$LST(2) D:% MORE Q
|
|---|
| 8 | ;
|
|---|
| 9 | LST(IX) ;List a type a error screen
|
|---|
| 10 | N X,Y,ZT,ZTE
|
|---|
| 11 | S ZT="CURRENT "_$S(IX=1:"Don't show",1:"Don't record")_" ERROR SCREENS"
|
|---|
| 12 | I $O(^%ZTER(2,"AC",IX,0))="" W !!?5,"No '",ZT,"' error screens have been established" W:IX=2 !,?10,"--all errors are currently logged." Q 0
|
|---|
| 13 | W !!?6,ZT
|
|---|
| 14 | W !?5,"Screen",?40,"Count?"
|
|---|
| 15 | W !?5,"-------------",?40,"------"
|
|---|
| 16 | S ZTE="" F ZT=0:0 S ZTE=$O(^%ZTER(2,"AC",IX,ZTE)) Q:ZTE="" D
|
|---|
| 17 | . S X=^%ZTER(2,ZTE,0),Y=$E($G(^(2)),1,50)
|
|---|
| 18 | . W !?5,$P(X,U) W ?40,$S($P(X,U,4):"yes: "_$G(^(3)),1:"no") W:$L(Y) !,?5,">>",^(2)
|
|---|
| 19 | W ! Q 1
|
|---|
| 20 | ;
|
|---|
| 21 | MORE N DIR,DIRUT,DTOUT,DUOUT
|
|---|
| 22 | S DIR(0)="E",DIR("A")=" End of listing. Press RETURN to continue"
|
|---|
| 23 | S DIR("?")=" Press RETURN to continue."
|
|---|
| 24 | D ^DIR K DIR
|
|---|
| 25 | I $D(DTOUT) W $C(7)
|
|---|
| 26 | Q
|
|---|
| 27 | ;
|
|---|
| 28 | SCREM ;Remove An Error Screen
|
|---|
| 29 | N DIE,DR,DA,DIR,DIRUT,DTOUT,DUOUT,%ZT,ZTX,ZTY
|
|---|
| 30 | S ZTY=$$SCSEL^XUTMKE2(0,"Enter Error Screen to remove") Q:ZTY'>0
|
|---|
| 31 | REM ;S DA=+ZTY,DR=$S(+$P(ZTY,U,5):"",1:".01;")_".03;.04",DIE="^%ZTER(2," D ^DIE
|
|---|
| 32 | D FORM^XUTMKE2(+ZTY)
|
|---|
| 33 | Q
|
|---|
| 34 | ;
|
|---|
