| 1 | ACKQIPRE ;AUG/JLTP BIR/PTD-QUASAR Version 2.0 Pre-Install Routine ; 02/26/96 14:22
|
|---|
| 2 | V ;;2.0;QUASAR;;JUN 5,1996
|
|---|
| 3 | ;Setup checkpoints for KIDS.
|
|---|
| 4 | N %
|
|---|
| 5 | S %=$$NEWCP^XPDUTL("CHKPT1","MGRP^ACKQIPRE"),%=$$NEWCP^XPDUTL("CHKPT2","OPTN^ACKQIPRE")
|
|---|
| 6 | S %=$$NEWCP^XPDUTL("CHKPT3","TMPL^ACKQIPRE"),%=$$NEWCP^XPDUTL("CHKPT4","KILLDD^ACKQIPRE")
|
|---|
| 7 | ;Return to KIDS, and let KIDS run the checkpoints.
|
|---|
| 8 | Q
|
|---|
| 9 | ;
|
|---|
| 10 | MGRP ;Delete obsolete mail group.
|
|---|
| 11 | Q:'$D(XPDQUES("PRE1")) Q:'XPDQUES("PRE1")
|
|---|
| 12 | I '$O(^XMB(3.8,"B","ACKQ WORKLOAD",0)) D BMES^XPDUTL("Workload mail group already deleted.") Q
|
|---|
| 13 | S DA=$O(^XMB(3.8,"B","ACKQ WORKLOAD",0)),DIK="^XMB(3.8," D ^DIK K DA,DIK
|
|---|
| 14 | D BMES^XPDUTL("Obsolete mail group, ACKQ WORKLOAD, deleted.")
|
|---|
| 15 | K DA,DIK
|
|---|
| 16 | Q
|
|---|
| 17 | ;
|
|---|
| 18 | OPTN ;Delete obsolete QUASAR options.
|
|---|
| 19 | Q:'$D(XPDQUES("PRE2")) Q:'XPDQUES("PRE2")
|
|---|
| 20 | S DIK="^DIC(19," F JJ=1:1 S ACKOPTN=$P($T(TEXT+JJ),";;",2) Q:ACKOPTN="" D
|
|---|
| 21 | .I '$O(^DIC(19,"B",ACKOPTN,0)) D BMES^XPDUTL("Option, "_ACKOPTN_", not found on this system.") Q
|
|---|
| 22 | .S DA=$O(^DIC(19,"B",ACKOPTN,0)) D ^DIK
|
|---|
| 23 | .D BMES^XPDUTL("Obsolete option, "_ACKOPTN_", deleted.")
|
|---|
| 24 | K ACKOPTN,DA,DIK,JJ
|
|---|
| 25 | Q
|
|---|
| 26 | ;
|
|---|
| 27 | TMPL ;Remove obsolete input template.
|
|---|
| 28 | Q:'$O(^DIE("B","ACKQ CANDP ENTRY",0))
|
|---|
| 29 | S DA=$O(^DIE("B","ACKQ CANDP ENTRY",0)),DIK="^DIE(" D ^DIK K DA,DIK
|
|---|
| 30 | D BMES^XPDUTL("Obsolete input template, ACKQ CANDP ENTRY, deleted.")
|
|---|
| 31 | K DA,DIK
|
|---|
| 32 | Q
|
|---|
| 33 | ;
|
|---|
| 34 | KILLDD ;Delete DDs for all QUASAR files and DATA for 509850.
|
|---|
| 35 | F ACKFILE=509850,509850.1,509850.2,509850.3,509850.4,509850.6,509850.7,509850.8 I $D(^DD(ACKFILE,0,"NM")) D
|
|---|
| 36 | .S ACKNM=$O(^DD(ACKFILE,0,"NM",""))
|
|---|
| 37 | .I (ACKFILE=509850.1),($$VERSION^XPDUTL("QUASAR")<2) D
|
|---|
| 38 | ..S DIE="^ACK(ACKFILE,8771,1,",DA=4,DA(1)=8771,DR=".01///@" D ^DIE K DA,DIE,DR
|
|---|
| 39 | ..S DIE="^ACK(ACKFILE,9778,1,",DA=3,DA(1)=9778,DR=".01///@" D ^DIE K DA,DIE,DR
|
|---|
| 40 | .S DIU="^ACK("_ACKFILE_",",DIU(0)=""
|
|---|
| 41 | .I ACKFILE=509850 S DIU(0)="D"
|
|---|
| 42 | .D EN^DIU2 K DIU
|
|---|
| 43 | .D MES^XPDUTL(" ...DD deletion completed for "_ACKNM_"."),MES^XPDUTL(" ")
|
|---|
| 44 | K ACKFILE,ACKNM,DA,DIE,DIU,DR
|
|---|
| 45 | Q
|
|---|
| 46 | ;
|
|---|
| 47 | TEXT ;List of obsolete QUASAR options.
|
|---|
| 48 | ;;ACKQAS CDR ACCOUNT EDIT
|
|---|
| 49 | ;;ACKQAS CP ENTRY
|
|---|
| 50 | ;;ACKQAS MOD EDIT
|
|---|
| 51 | ;;ACKQAS STAFF ENTRY
|
|---|
| 52 | ;;ACKQAS SUPER MASTER
|
|---|
| 53 | ;;ACKQAS WKLD GEN TASKMAN
|
|---|
| 54 | ;;ACKQAS WKLD MENU
|
|---|
