XUTMKE1.m

XUTMKE1 ;SEA/RDS - Taskman: Option, XUTME SCREEN*, Part 1 ;04/17/98  13:18 [ 04/02/2003   8:29 AM ]

 ;;8.0;KERNEL;**1002,1003,1004,1005,1007**;APR 1, 2003

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

 ;

XUTMKE1   ;SEA/RDS - Taskman: Option, XUTME SCREEN*, Part 1 ;04/17/98  13:18 [ 04/02/2003   8:29 AM ]

 +1       ;;8.0;KERNEL;**1002,1003,1004,1005,1007**;APR 1, 2003

 +2       ;;8.0;KERNEL;**63,79**;Jul 10, 1995

 +3       ;

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       ;