XUTMKE1 ;SEA/RDS - Taskman: Option, XUTME SCREEN*, Part 1 ;04/17/98 13:18
;;8.0;KERNEL;**63,79**;Jul 10, 1995
;
SCLIST ;List Current Error Screens
;N % S %=$$LST(2) D:% MORE Q
ALL ;Show all error screens
N % S %=$$LST(1),%=%+$$LST(2) D:% MORE Q
;
LST(IX) ;List a type a error screen
N X,Y,ZT,ZTE
S ZT="CURRENT "_$S(IX=1:"Don't show",1:"Don't record")_" ERROR SCREENS"
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
W !!?6,ZT
W !?5,"Screen",?40,"Count?"
W !?5,"-------------",?40,"------"
S ZTE="" F ZT=0:0 S ZTE=$O(^%ZTER(2,"AC",IX,ZTE)) Q:ZTE="" D
. S X=^%ZTER(2,ZTE,0),Y=$E($G(^(2)),1,50)
. W !?5,$P(X,U) W ?40,$S($P(X,U,4):"yes: "_$G(^(3)),1:"no") W:$L(Y) !,?5,">>",^(2)
W ! Q 1
;
MORE N DIR,DIRUT,DTOUT,DUOUT
S DIR(0)="E",DIR("A")=" End of listing. Press RETURN to continue"
S DIR("?")=" Press RETURN to continue."
D ^DIR K DIR
I $D(DTOUT) W $C(7)
Q
;
SCREM ;Remove An Error Screen
N DIE,DR,DA,DIR,DIRUT,DTOUT,DUOUT,%ZT,ZTX,ZTY
S ZTY=$$SCSEL^XUTMKE2(0,"Enter Error Screen to remove") Q:ZTY'>0
REM ;S DA=+ZTY,DR=$S(+$P(ZTY,U,5):"",1:".01;")_".03;.04",DIE="^%ZTER(2," D ^DIE
D FORM^XUTMKE2(+ZTY)
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXUTMKE1 1267 printed Dec 13, 2024@02:13:21 Page 2
XUTMKE1 ;SEA/RDS - Taskman: Option, XUTME SCREEN*, Part 1 ;04/17/98 13:18
+1 ;;8.0;KERNEL;**63,79**;Jul 10, 1995
+2 ;
SCLIST ;List Current Error Screens
+1 ;N % S %=$$LST(2) D:% MORE Q
ALL ;Show all error screens
+1 NEW %
SET %=$$LST(1)
SET %=%+$$LST(2)
if %
DO MORE
QUIT
+2 ;
LST(IX) ;List a type a error screen
+1 NEW X,Y,ZT,ZTE
+2 SET ZT="CURRENT "_$SELECT(IX=1:"Don't show",1:"Don't record")_" ERROR SCREENS"
+3 IF $ORDER(^%ZTER(2,"AC",IX,0))=""
WRITE !!?5,"No '",ZT,"' error screens have been established"
if IX=2
WRITE !,?10,"--all errors are currently logged."
QUIT 0
+4 WRITE !!?6,ZT
+5 WRITE !?5,"Screen",?40,"Count?"
+6 WRITE !?5,"-------------",?40,"------"
+7 SET ZTE=""
FOR ZT=0:0
SET ZTE=$ORDER(^%ZTER(2,"AC",IX,ZTE))
if ZTE=""
QUIT
Begin DoDot:1
+8 SET X=^%ZTER(2,ZTE,0)
SET Y=$EXTRACT($GET(^(2)),1,50)
+9 WRITE !?5,$PIECE(X,U)
WRITE ?40,$SELECT($PIECE(X,U,4):"yes: "_$GET(^(3)),1:"no")
if $LENGTH(Y)
WRITE !,?5,">>",^(2)
End DoDot:1
+10 WRITE !
QUIT 1
+11 ;
MORE NEW DIR,DIRUT,DTOUT,DUOUT
+1 SET DIR(0)="E"
SET DIR("A")=" End of listing. Press RETURN to continue"
+2 SET DIR("?")=" Press RETURN to continue."
+3 DO ^DIR
KILL DIR
+4 IF $DATA(DTOUT)
WRITE $CHAR(7)
+5 QUIT
+6 ;
SCREM ;Remove An Error Screen
+1 NEW DIE,DR,DA,DIR,DIRUT,DTOUT,DUOUT,%ZT,ZTX,ZTY
+2 SET ZTY=$$SCSEL^XUTMKE2(0,"Enter Error Screen to remove")
if ZTY'>0
QUIT
REM ;S DA=+ZTY,DR=$S(+$P(ZTY,U,5):"",1:".01;")_".03;.04",DIE="^%ZTER(2," D ^DIE
+1 DO FORM^XUTMKE2(+ZTY)
+2 QUIT
+3 ;
