source: FOIAVistA/tag/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XUTMKE2.m@ 1621

Last change on this file since 1621 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 2.0 KB
Line 
1XUTMKE2 ;SEA/RDS - Taskman: Option, ZTME SCREEN*, Part 2 ;04/17/98 13:19
2 ;;8.0;KERNEL;**63,79**;Jul 10, 1995
3 ;
4SCRAD ;Add Error Screens
5 N DIE,DR,DA,DDSFILE,ZTX,ZTY
6AD 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 ;
10SCSEL(%,%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 ;
15SEL0 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 ;
22SEL1 S DIC=3.076,DIC(0)="AEMQL"
23 S DIC("A")=%ZT_": ",DIC("DR")=".02//L"
24 D ^DIC
25 Q Y
26 ;
27FORM(DA) ;Call the form.
28 N DDSFILE,DR
29 S DDSFILE="^%ZTER(2,",DR="[XUTMKE ADD]" D ^DDS
30 Q
31SCSELH ;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 ;
40SCRED ;Edit Error Screen
41 N DIR,DIRUT,DTOUT,DUOUT,ZTX,ZTY
42ED 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 ;
52ED3 I Y=1 S ^%ZTER(2,+ZTY,3)=0 W !?5,"Counter reset!"
53 G ED
54 ;
55NAME ;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
Note: See TracBrowser for help on using the repository browser.