XUTMKE2 ;SEA/RDS - Taskman: Option, ZTME SCREEN*, Part 2 ;04/17/98 13:19
;;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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXUTMKE2 2104 printed Nov 22, 2024@17:23:30 Page 2
XUTMKE2 ;SEA/RDS - Taskman: Option, ZTME SCREEN*, Part 2 ;04/17/98 13:19
+1 ;;8.0;KERNEL;**63,79**;Jul 10, 1995
+2 ;
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
