source: WorldVistAEHR/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XUTMKE1.m@ 975

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

initial load of WorldVistAEHR

File size: 1.2 KB
Line 
1XUTMKE1 ;SEA/RDS - Taskman: Option, XUTME SCREEN*, Part 1 ;04/17/98 13:18
2 ;;8.0;KERNEL;**63,79**;Jul 10, 1995
3 ;
4SCLIST ;List Current Error Screens
5 ;N % S %=$$LST(2) D:% MORE Q
6ALL ;Show all error screens
7 N % S %=$$LST(1),%=%+$$LST(2) D:% MORE Q
8 ;
9LST(IX) ;List a type a error screen
10 N X,Y,ZT,ZTE
11 S ZT="CURRENT "_$S(IX=1:"Don't show",1:"Don't record")_" ERROR SCREENS"
12 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
13 W !!?6,ZT
14 W !?5,"Screen",?40,"Count?"
15 W !?5,"-------------",?40,"------"
16 S ZTE="" F ZT=0:0 S ZTE=$O(^%ZTER(2,"AC",IX,ZTE)) Q:ZTE="" D
17 . S X=^%ZTER(2,ZTE,0),Y=$E($G(^(2)),1,50)
18 . W !?5,$P(X,U) W ?40,$S($P(X,U,4):"yes: "_$G(^(3)),1:"no") W:$L(Y) !,?5,">>",^(2)
19 W ! Q 1
20 ;
21MORE N DIR,DIRUT,DTOUT,DUOUT
22 S DIR(0)="E",DIR("A")=" End of listing. Press RETURN to continue"
23 S DIR("?")=" Press RETURN to continue."
24 D ^DIR K DIR
25 I $D(DTOUT) W $C(7)
26 Q
27 ;
28SCREM ;Remove An Error Screen
29 N DIE,DR,DA,DIR,DIRUT,DTOUT,DUOUT,%ZT,ZTX,ZTY
30 S ZTY=$$SCSEL^XUTMKE2(0,"Enter Error Screen to remove") Q:ZTY'>0
31REM ;S DA=+ZTY,DR=$S(+$P(ZTY,U,5):"",1:".01;")_".03;.04",DIE="^%ZTER(2," D ^DIE
32 D FORM^XUTMKE2(+ZTY)
33 Q
34 ;
Note: See TracBrowser for help on using the repository browser.