| 1 | XUTMKE2 ;SEA/RDS - Taskman: Option, ZTME SCREEN*, Part 2 ;04/17/98 13:19
|
|---|
| 2 | ;;8.0;KERNEL;**63,79**;Jul 10, 1995
|
|---|
| 3 | ;
|
|---|
| 4 | SCRAD ;Add Error Screens
|
|---|
| 5 | N DIE,DR,DA,DDSFILE,ZTX,ZTY
|
|---|
| 6 | AD S ZTY=$$SCSEL(1,"Enter Error Screen to Add/Apply") Q:ZTY'>0
|
|---|
| 7 | ;S DA=+ZTY,DIE="^%ZTER(2,",DR=".02//L;.03;.04;2" D ^DIE
|
|---|
| 8 | D FORM(+ZTY) G AD
|
|---|
| 9 | ;
|
|---|
| 10 | SCSEL(%,%ZT) ;Select Error Screen
|
|---|
| 11 | N ZT,ZTE,DIC,DA,DIR
|
|---|
| 12 | W ! I $G(%ZT)="" S %ZT="Select ERROR SCREEN"
|
|---|
| 13 | G SEL1:$G(%)
|
|---|
| 14 | ;
|
|---|
| 15 | SEL0 S DIR(0)="PO^3.076:AEMQ"
|
|---|
| 16 | S DIR("A")=%ZT
|
|---|
| 17 | S DIR("?")="^D SCSELH^XUTMKE2"
|
|---|
| 18 | S DIR("??")="^D SCLIST^XUTMKE1"
|
|---|
| 19 | D ^DIR
|
|---|
| 20 | Q Y
|
|---|
| 21 | ;
|
|---|
| 22 | SEL1 S DIC=3.076,DIC(0)="AEMQL"
|
|---|
| 23 | S DIC("A")=%ZT_": ",DIC("DR")=".02//L"
|
|---|
| 24 | D ^DIC
|
|---|
| 25 | Q Y
|
|---|
| 26 | ;
|
|---|
| 27 | FORM(DA) ;Call the form.
|
|---|
| 28 | N DDSFILE,DR
|
|---|
| 29 | S DDSFILE="^%ZTER(2,",DR="[XUTMKE ADD]" D ^DDS
|
|---|
| 30 | Q
|
|---|
| 31 | SCSELH ;SCSEL--Text For ? Help
|
|---|
| 32 | W !!?5,"A screen is a string of characters."
|
|---|
| 33 | W !?5,"Taskman and %ZTER do not log errors whose error messages contain a screen."
|
|---|
| 34 | W !!?5,"For example, if a DSM-11 site routinely logs many disconnect errors each"
|
|---|
| 35 | W !?5,"day that cannot be prevented, the site manager could enter the screen"
|
|---|
| 36 | W !?5,"""DSCON"" to prevent these errors from being logged."
|
|---|
| 37 | W !!?5,"Enter ?? to see the screens that are currently in place."
|
|---|
| 38 | Q
|
|---|
| 39 | ;
|
|---|
| 40 | SCRED ;Edit Error Screen
|
|---|
| 41 | N DIR,DIRUT,DTOUT,DUOUT,ZTX,ZTY
|
|---|
| 42 | ED S ZTY=$$SCSEL(0,"Enter Error Screen to edit") Q:ZTY'>0
|
|---|
| 43 | ;S DA=+ZTY,DR=".03;.04;2",DIE="^%ZTER(2," D ^DIE
|
|---|
| 44 | D FORM(+ZTY)
|
|---|
| 45 | ;
|
|---|
| 46 | W !
|
|---|
| 47 | S DIR(0)="Y",DIR("A")="Do you want to reset the counter to zero"
|
|---|
| 48 | S DIR("B")="NO",DIR("?")=" Answer YES to erase the current count and start over."
|
|---|
| 49 | D ^DIR S ZTZ=X K DIR
|
|---|
| 50 | I $D(DIRUT) W !!?5,"Count NOT changed!" Q
|
|---|
| 51 | ;
|
|---|
| 52 | ED3 I Y=1 S ^%ZTER(2,+ZTY,3)=0 W !?5,"Counter reset!"
|
|---|
| 53 | G ED
|
|---|
| 54 | ;
|
|---|
| 55 | NAME ;Called from FORM XUTMKE field 1.
|
|---|
| 56 | N XUTM1,XUTM2 S XUTM1=^%ZTER(2,DA,0)
|
|---|
| 57 | D UNED^DDSUTL(1,"","",$P(XUTM1,U,5)) ;If national can't edit name
|
|---|
| 58 | D UNED^DDSUTL(6,"","",$P(XUTM1,U,5)) ;If national can't have alternative text.
|
|---|
| 59 | 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)
|
|---|
| 60 | Q
|
|---|
