- FSCCLEAN ;SLC/STAFF-NOIS Clean Old NOIS Files and Data ;1/19/98 13:54
- ;;1.1;NOIS;;Sep 06, 1998
- ;
- ENV ; from environment check on install
- N FILE,XPDQUIT
- W !,"Environment Check",!
- I $L($O(^FSC(0))),'$L($O(^FSCD(0))) D BAD Q
- 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
- Q
- ;
- BAD ; stops install
- S XPDQUIT=2 ; don't install but leave in XTMP
- W $C(7),$C(7),!,"Please check that any old versions (<1.0T1) of NOIS have been removed before"
- W !,"installing this version."
- W !!,"If you are installing NOIS but have an old version you should:"
- W !,"Delete all FSC* routines"
- W !,"Delete all FSC* options"
- W !,"Delete all FSC* help frames"
- W !,"Delete all NOIS files (D CLEAN^FSCCLEAN)"
- W !,"Reinstall this build"
- Q
- ;
- CLEAN ; setup use only
- N DIR,DIU,FSCFILE,Y K DIR,DIU
- D
- .W !!,"This routine will DELETE all NOIS files, templates and data from this UCI."
- .S DIR(0)="Y",DIR("A")="Is this what you want to do",DIR("B")="N"
- .D ^DIR Q:Y'=1
- .W $C(7) S DIR(0)="Y",DIR("A")="Are you absoultely SURE",DIR("B")="N"
- .D ^DIR Q:Y'=1
- .S FSCFILE=7100,DIU=7100,DIU(0)="DET" D EN^DIU2
- .F S FSCFILE=$O(^DIC(FSCFILE)) Q:FSCFILE>7109 D
- ..N DIU
- ..S DIU=FSCFILE,DIU(0)="DET" D EN^DIU2
- K DIR,DIU
- Q
- ;
- FRESH ; setup use only
- N DIR,Y K DIR
- D
- .W !!,"This routine will REMOVE ALL NOIS DATA."
- .S DIR(0)="Y",DIR("A")="Is this what you want to do",DIR("B")="N"
- .D ^DIR Q:Y'=1
- .W $C(7) S DIR(0)="Y",DIR("A")="Are you absoultely SURE",DIR("B")="N"
- .D ^DIR Q:Y'=1
- .K ^FSCD("ALERT"),^("CALL"),^("COUNT"),^("EVENTS"),^("LISTS"),^("MRA"),^("MRE"),^("MRU"),^("NOTIFY"),^("RESPONSE"),^("SCHEDULE"),^("SEND"),^("STATUS HIST"),^("STU ALERT"),^("STU MSG"),^("TEXT"),^("WKLD")
- .S ^FSCD("ALERT",0)="NOIS ALERT^7100.3P"
- .S ^FSCD("CALL",0)="NOIS CALL^7100I"
- .S ^FSCD("COUNT",0)="NOIS COUNTER^7100.1D"
- .S ^FSCD("EVENTS",0)="NOIS EVENTS^7103DI"
- .S ^FSCD("LISTS",0)="NOIS LIST^7102P"
- .S ^FSCD("MRA",0)="NOIS MRA^7101.2P"
- .S ^FSCD("MRE",0)="NOIS MRE^7101.1P"
- .S ^FSCD("MRU",0)="NOIS MRU^7101.3P"
- .S ^FSCD("NOTIFY",0)="NOIS NOTIFICATION^7100.2PI"
- .S ^FSCD("RESPONSE",0)="NOIS RESPONSE^7101.4"
- .S ^FSCD("SCHEDULE",0)="NOIS SCHEDULE^7103.1DI"
- .S ^FSCD("SEND",0)="NOIS SEND^7100.4P"
- .S ^FSCD("STATUS HIST",0)="NOIS STATUS HISTORY^7100.5PI"
- .S ^FSCD("STU ALERT",0)="NOIS STU ALERT^7104.3P"
- .S ^FSCD("STU MSG",0)="NOIS STU MESSAGE^7104DI"
- .S ^FSCD("TEXT",0)="NOIS TEXT^7101"
- .S ^FSCD("WKLD",0)="NOIS WORKLOAD^7103.5PI"
- .D TMP,XTMP
- K DIR
- Q
- ;
- XTMP ; clean XTMP nodes
- N NODE
- S NODE="FSC" F S NODE=$O(^XTMP(NODE)) Q:NODE="" Q:NODE]"FSCZ" K ^XTMP(NODE)
- Q
- ;
- TMP ; clean TMP nodes
- N NODE
- S NODE="FSC" F S NODE=$O(^TMP(NODE)) Q:NODE="" Q:NODE]"FSCZ" K ^TMP(NODE)
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFSCCLEAN 2866 printed Jan 18, 2025@03:18:37 Page 2
- FSCCLEAN ;SLC/STAFF-NOIS Clean Old NOIS Files and Data ;1/19/98 13:54
- +1 ;;1.1;NOIS;;Sep 06, 1998
- +2 ;
- ENV ; from environment check on install
- +1 NEW FILE,XPDQUIT
- +2 WRITE !,"Environment Check",!
- +3 IF $LENGTH($ORDER(^FSC(0)))
- IF '$LENGTH($ORDER(^FSCD(0)))
- DO BAD
- QUIT
- +4 FOR FILE="7102.5","7105.2","ACAT","ACT","CCAT","FYQT","LOG","OCAT","PERF","PRIO","PRIOR","ROL","SIMP","SPCAREA","SUP","TIC","TITLE","TK","VAL"
- IF $DATA(^FSC(FILE))
- DO BAD
- QUIT
- +5 QUIT
- +6 ;
- BAD ; stops install
- +1 ; don't install but leave in XTMP
- SET XPDQUIT=2
- +2 WRITE $CHAR(7),$CHAR(7),!,"Please check that any old versions (<1.0T1) of NOIS have been removed before"
- +3 WRITE !,"installing this version."
- +4 WRITE !!,"If you are installing NOIS but have an old version you should:"
- +5 WRITE !,"Delete all FSC* routines"
- +6 WRITE !,"Delete all FSC* options"
- +7 WRITE !,"Delete all FSC* help frames"
- +8 WRITE !,"Delete all NOIS files (D CLEAN^FSCCLEAN)"
- +9 WRITE !,"Reinstall this build"
- +10 QUIT
- +11 ;
- CLEAN ; setup use only
- +1 NEW DIR,DIU,FSCFILE,Y
- KILL DIR,DIU
- +2 Begin DoDot:1
- +3 WRITE !!,"This routine will DELETE all NOIS files, templates and data from this UCI."
- +4 SET DIR(0)="Y"
- SET DIR("A")="Is this what you want to do"
- SET DIR("B")="N"
- +5 DO ^DIR
- if Y'=1
- QUIT
- +6 WRITE $CHAR(7)
- SET DIR(0)="Y"
- SET DIR("A")="Are you absoultely SURE"
- SET DIR("B")="N"
- +7 DO ^DIR
- if Y'=1
- QUIT
- +8 SET FSCFILE=7100
- SET DIU=7100
- SET DIU(0)="DET"
- DO EN^DIU2
- +9 FOR
- SET FSCFILE=$ORDER(^DIC(FSCFILE))
- if FSCFILE>7109
- QUIT
- Begin DoDot:2
- +10 NEW DIU
- +11 SET DIU=FSCFILE
- SET DIU(0)="DET"
- DO EN^DIU2
- End DoDot:2
- End DoDot:1
- +12 KILL DIR,DIU
- +13 QUIT
- +14 ;
- FRESH ; setup use only
- +1 NEW DIR,Y
- KILL DIR
- +2 Begin DoDot:1
- +3 WRITE !!,"This routine will REMOVE ALL NOIS DATA."
- +4 SET DIR(0)="Y"
- SET DIR("A")="Is this what you want to do"
- SET DIR("B")="N"
- +5 DO ^DIR
- if Y'=1
- QUIT
- +6 WRITE $CHAR(7)
- SET DIR(0)="Y"
- SET DIR("A")="Are you absoultely SURE"
- SET DIR("B")="N"
- +7 DO ^DIR
- if Y'=1
- QUIT
- +8 KILL ^FSCD("ALERT"),^("CALL"),^("COUNT"),^("EVENTS"),^("LISTS"),^("MRA"),^("MRE"),^("MRU"),^("NOTIFY"),^("RESPONSE"),^("SCHEDULE"),^("SEND"),^("STATUS HIST"),^("STU ALERT"),^("STU MSG"),^("TEXT"),^("WKLD")
- +9 SET ^FSCD("ALERT",0)="NOIS ALERT^7100.3P"
- +10 SET ^FSCD("CALL",0)="NOIS CALL^7100I"
- +11 SET ^FSCD("COUNT",0)="NOIS COUNTER^7100.1D"
- +12 SET ^FSCD("EVENTS",0)="NOIS EVENTS^7103DI"
- +13 SET ^FSCD("LISTS",0)="NOIS LIST^7102P"
- +14 SET ^FSCD("MRA",0)="NOIS MRA^7101.2P"
- +15 SET ^FSCD("MRE",0)="NOIS MRE^7101.1P"
- +16 SET ^FSCD("MRU",0)="NOIS MRU^7101.3P"
- +17 SET ^FSCD("NOTIFY",0)="NOIS NOTIFICATION^7100.2PI"
- +18 SET ^FSCD("RESPONSE",0)="NOIS RESPONSE^7101.4"
- +19 SET ^FSCD("SCHEDULE",0)="NOIS SCHEDULE^7103.1DI"
- +20 SET ^FSCD("SEND",0)="NOIS SEND^7100.4P"
- +21 SET ^FSCD("STATUS HIST",0)="NOIS STATUS HISTORY^7100.5PI"
- +22 SET ^FSCD("STU ALERT",0)="NOIS STU ALERT^7104.3P"
- +23 SET ^FSCD("STU MSG",0)="NOIS STU MESSAGE^7104DI"
- +24 SET ^FSCD("TEXT",0)="NOIS TEXT^7101"
- +25 SET ^FSCD("WKLD",0)="NOIS WORKLOAD^7103.5PI"
- +26 DO TMP
- DO XTMP
- End DoDot:1
- +27 KILL DIR
- +28 QUIT
- +29 ;
- XTMP ; clean XTMP nodes
- +1 NEW NODE
- +2 SET NODE="FSC"
- FOR
- SET NODE=$ORDER(^XTMP(NODE))
- if NODE=""
- QUIT
- if NODE]"FSCZ"
- QUIT
- KILL ^XTMP(NODE)
- +3 QUIT
- +4 ;
- TMP ; clean TMP nodes
- +1 NEW NODE
- +2 SET NODE="FSC"
- FOR
- SET NODE=$ORDER(^TMP(NODE))
- if NODE=""
- QUIT
- if NODE]"FSCZ"
- QUIT
- KILL ^TMP(NODE)
- +3 QUIT