source: WorldVistAEHR/trunk/r/NOIS-FSC/FSCCLEAN.m@ 701

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

initial load of WorldVistAEHR

File size: 2.7 KB
Line 
1FSCCLEAN ;SLC/STAFF-NOIS Clean Old NOIS Files and Data ;1/19/98 13:54
2 ;;1.1;NOIS;;Sep 06, 1998
3 ;
4ENV ; from environment check on install
5 N FILE,XPDQUIT
6 W !,"Environment Check",!
7 I $L($O(^FSC(0))),'$L($O(^FSCD(0))) D BAD Q
8 F FILE="7102.5","7105.2","ACAT","ACT","CCAT","FYQT","LOG","OCAT","PERF","PRIO","PRIOR","ROL","SIMP","SPCAREA","SUP","TIC","TITLE","TK","VAL" I $D(^FSC(FILE)) D BAD Q
9 Q
10 ;
11BAD ; stops install
12 S XPDQUIT=2 ; don't install but leave in XTMP
13 W $C(7),$C(7),!,"Please check that any old versions (<1.0T1) of NOIS have been removed before"
14 W !,"installing this version."
15 W !!,"If you are installing NOIS but have an old version you should:"
16 W !,"Delete all FSC* routines"
17 W !,"Delete all FSC* options"
18 W !,"Delete all FSC* help frames"
19 W !,"Delete all NOIS files (D CLEAN^FSCCLEAN)"
20 W !,"Reinstall this build"
21 Q
22 ;
23CLEAN ; setup use only
24 N DIR,DIU,FSCFILE,Y K DIR,DIU
25 D
26 .W !!,"This routine will DELETE all NOIS files, templates and data from this UCI."
27 .S DIR(0)="Y",DIR("A")="Is this what you want to do",DIR("B")="N"
28 .D ^DIR Q:Y'=1
29 .W $C(7) S DIR(0)="Y",DIR("A")="Are you absoultely SURE",DIR("B")="N"
30 .D ^DIR Q:Y'=1
31 .S FSCFILE=7100,DIU=7100,DIU(0)="DET" D EN^DIU2
32 .F S FSCFILE=$O(^DIC(FSCFILE)) Q:FSCFILE>7109 D
33 ..N DIU
34 ..S DIU=FSCFILE,DIU(0)="DET" D EN^DIU2
35 K DIR,DIU
36 Q
37 ;
38FRESH ; setup use only
39 N DIR,Y K DIR
40 D
41 .W !!,"This routine will REMOVE ALL NOIS DATA."
42 .S DIR(0)="Y",DIR("A")="Is this what you want to do",DIR("B")="N"
43 .D ^DIR Q:Y'=1
44 .W $C(7) S DIR(0)="Y",DIR("A")="Are you absoultely SURE",DIR("B")="N"
45 .D ^DIR Q:Y'=1
46 .K ^FSCD("ALERT"),^("CALL"),^("COUNT"),^("EVENTS"),^("LISTS"),^("MRA"),^("MRE"),^("MRU"),^("NOTIFY"),^("RESPONSE"),^("SCHEDULE"),^("SEND"),^("STATUS HIST"),^("STU ALERT"),^("STU MSG"),^("TEXT"),^("WKLD")
47 .S ^FSCD("ALERT",0)="NOIS ALERT^7100.3P"
48 .S ^FSCD("CALL",0)="NOIS CALL^7100I"
49 .S ^FSCD("COUNT",0)="NOIS COUNTER^7100.1D"
50 .S ^FSCD("EVENTS",0)="NOIS EVENTS^7103DI"
51 .S ^FSCD("LISTS",0)="NOIS LIST^7102P"
52 .S ^FSCD("MRA",0)="NOIS MRA^7101.2P"
53 .S ^FSCD("MRE",0)="NOIS MRE^7101.1P"
54 .S ^FSCD("MRU",0)="NOIS MRU^7101.3P"
55 .S ^FSCD("NOTIFY",0)="NOIS NOTIFICATION^7100.2PI"
56 .S ^FSCD("RESPONSE",0)="NOIS RESPONSE^7101.4"
57 .S ^FSCD("SCHEDULE",0)="NOIS SCHEDULE^7103.1DI"
58 .S ^FSCD("SEND",0)="NOIS SEND^7100.4P"
59 .S ^FSCD("STATUS HIST",0)="NOIS STATUS HISTORY^7100.5PI"
60 .S ^FSCD("STU ALERT",0)="NOIS STU ALERT^7104.3P"
61 .S ^FSCD("STU MSG",0)="NOIS STU MESSAGE^7104DI"
62 .S ^FSCD("TEXT",0)="NOIS TEXT^7101"
63 .S ^FSCD("WKLD",0)="NOIS WORKLOAD^7103.5PI"
64 .D TMP,XTMP
65 K DIR
66 Q
67 ;
68XTMP ; clean XTMP nodes
69 N NODE
70 S NODE="FSC" F S NODE=$O(^XTMP(NODE)) Q:NODE="" Q:NODE]"FSCZ" K ^XTMP(NODE)
71 Q
72 ;
73TMP ; clean TMP nodes
74 N NODE
75 S NODE="FSC" F S NODE=$O(^TMP(NODE)) Q:NODE="" Q:NODE]"FSCZ" K ^TMP(NODE)
76 Q
Note: See TracBrowser for help on using the repository browser.