XUTMKE2.m

XUTMKE2 ;SEA/RDS - Taskman: Option, ZTME SCREEN*, Part 2 ;04/17/98  13:19 [ 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

 ;

SCRAD ;Add Error Screens

 N DIE,DR,DA,DDSFILE,ZTX,ZTY

AD S ZTY=$$SCSEL(1,"Enter Error Screen to Add/Apply") Q:ZTY'>0

 ;S DA=+ZTY,DIE="^%ZTER(2,",DR=".02//L;.03;.04;2" D ^DIE

 D FORM(+ZTY) G AD

 ;

SCSEL(%,%ZT) ;Select Error Screen

 N ZT,ZTE,DIC,DA,DIR

 W ! I $G(%ZT)="" S %ZT="Select ERROR SCREEN"

 G SEL1:$G(%)

 ;

SEL0 S DIR(0)="PO^3.076:AEMQ"

 S DIR("A")=%ZT

 S DIR("?")="^D SCSELH^XUTMKE2"

 S DIR("??")="^D SCLIST^XUTMKE1"

 D ^DIR

 Q Y

 ;

SEL1 S DIC=3.076,DIC(0)="AEMQL"

 S DIC("A")=%ZT_": ",DIC("DR")=".02//L"

 D ^DIC

 Q Y

 ;

FORM(DA) ;Call the form.

 N DDSFILE,DR

 S DDSFILE="^%ZTER(2,",DR="[XUTMKE ADD]" D ^DDS

 Q

SCSELH ;SCSEL--Text For ? Help

 W !!?5,"A screen is a string of characters."

 W !?5,"Taskman and %ZTER do not log errors whose error messages contain a screen."

 W !!?5,"For example, if a DSM-11 site routinely logs many disconnect errors each"

 W !?5,"day that cannot be prevented, the site manager could enter the screen"

 W !?5,"""DSCON"" to prevent these errors from being logged."

 W !!?5,"Enter ?? to see the screens that are currently in place."

 Q

 ;

SCRED ;Edit Error Screen

 N DIR,DIRUT,DTOUT,DUOUT,ZTX,ZTY

ED S ZTY=$$SCSEL(0,"Enter Error Screen to edit") Q:ZTY'>0

 ;S DA=+ZTY,DR=".03;.04;2",DIE="^%ZTER(2," D ^DIE

 D FORM(+ZTY)

 ;

 W !

 S DIR(0)="Y",DIR("A")="Do you want to reset the counter to zero"

 S DIR("B")="NO",DIR("?")="     Answer YES to erase the current count and start over."

 D ^DIR S ZTZ=X K DIR

 I $D(DIRUT) W !!?5,"Count NOT changed!" Q

 ;

ED3 I Y=1 S ^%ZTER(2,+ZTY,3)=0 W !?5,"Counter reset!"

 G ED

 ;

NAME ;Called from FORM XUTMKE field 1.

 N XUTM1,XUTM2 S XUTM1=^%ZTER(2,DA,0)

 D UNED^DDSUTL(1,"","",$P(XUTM1,U,5)) ;If national can't edit name

 D UNED^DDSUTL(6,"","",$P(XUTM1,U,5)) ;If national can't have alternative text.

 I $P(XUTM1,U,5) S XUTM2(1)="This is a Nationally released entry.",XUTM2(2)="Can't be deleted, name changed, have alternative text." D HLP^DDSUTL(.XUTM2)

 Q

XUTMKE2   ;SEA/RDS - Taskman: Option, ZTME SCREEN*, Part 2 ;04/17/98  13:19 [ 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       ;

SCRAD     ;Add Error Screens

 +1        NEW DIE,DR,DA,DDSFILE,ZTX,ZTY

AD         SET ZTY=$$SCSEL(1,"Enter Error Screen to Add/Apply")

           IF ZTY'>0

               QUIT 

 +1       ;S DA=+ZTY,DIE="^%ZTER(2,",DR=".02//L;.03;.04;2" D ^DIE

 +2        DO FORM(+ZTY)

           GOTO AD

 +3       ;

SCSEL(%,%ZT) ;Select Error Screen

 +1        NEW ZT,ZTE,DIC,DA,DIR

 +2        WRITE !

           IF $GET(%ZT)=""

               SET %ZT="Select ERROR SCREEN"

 +3        IF $GET(%)

               GOTO SEL1

 +4       ;

SEL0       SET DIR(0)="PO^3.076:AEMQ"

 +1        SET DIR("A")=%ZT

 +2        SET DIR("?")="^D SCSELH^XUTMKE2"

 +3        SET DIR("??")="^D SCLIST^XUTMKE1"

 +4        DO ^DIR

 +5        QUIT Y

 +6       ;

SEL1       SET DIC=3.076

           SET DIC(0)="AEMQL"

 +1        SET DIC("A")=%ZT_": "

           SET DIC("DR")=".02//L"

 +2        DO ^DIC

 +3        QUIT Y

 +4       ;

FORM(DA)  ;Call the form.

 +1        NEW DDSFILE,DR

 +2        SET DDSFILE="^%ZTER(2,"

           SET DR="[XUTMKE ADD]"

           DO ^DDS

 +3        QUIT 

SCSELH    ;SCSEL--Text For ? Help

 +1        WRITE !!?5,"A screen is a string of characters."

 +2        WRITE !?5,"Taskman and %ZTER do not log errors whose error messages contain a screen."

 +3        WRITE !!?5,"For example, if a DSM-11 site routinely logs many disconnect errors each"

 +4        WRITE !?5,"day that cannot be prevented, the site manager could enter the screen"

 +5        WRITE !?5,"""DSCON"" to prevent these errors from being logged."

 +6        WRITE !!?5,"Enter ?? to see the screens that are currently in place."

 +7        QUIT 

 +8       ;

SCRED     ;Edit Error Screen

 +1        NEW DIR,DIRUT,DTOUT,DUOUT,ZTX,ZTY

ED         SET ZTY=$$SCSEL(0,"Enter Error Screen to edit")

           IF ZTY'>0

               QUIT 

 +1       ;S DA=+ZTY,DR=".03;.04;2",DIE="^%ZTER(2," D ^DIE

 +2        DO FORM(+ZTY)

 +3       ;

 +4        WRITE !

 +5        SET DIR(0)="Y"

           SET DIR("A")="Do you want to reset the counter to zero"

 +6        SET DIR("B")="NO"

           SET DIR("?")="     Answer YES to erase the current count and start over."

 +7        DO ^DIR

           SET ZTZ=X

           KILL DIR

 +8        IF $DATA(DIRUT)

               WRITE !!?5,"Count NOT changed!"

               QUIT 

 +9       ;

ED3        IF Y=1

               SET ^%ZTER(2,+ZTY,3)=0

               WRITE !?5,"Counter reset!"

 +1        GOTO ED

 +2       ;

NAME      ;Called from FORM XUTMKE field 1.

 +1        NEW XUTM1,XUTM2

           SET XUTM1=^%ZTER(2,DA,0)

 +2       ;If national can't edit name

           DO UNED^DDSUTL(1,"","",$PIECE(XUTM1,U,5))

 +3       ;If national can't have alternative text.

           DO UNED^DDSUTL(6,"","",$PIECE(XUTM1,U,5))

 +4        IF $PIECE(XUTM1,U,5)

               SET XUTM2(1)="This is a Nationally released entry."

               SET XUTM2(2)="Can't be deleted, name changed, have alternative text."

               DO HLP^DDSUTL(.XUTM2)

 +5        QUIT