source: WorldVistAEHR/trunk/r/QUASAR-ACKQ/ACKQIPRE.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.1 KB
Line 
1ACKQIPRE ;AUG/JLTP BIR/PTD-QUASAR Version 2.0 Pre-Install Routine ; 02/26/96 14:22
2V ;;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 ;
10MGRP ;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 ;
18OPTN ;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 ;
27TMPL ;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 ;
34KILLDD ;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 ;
47TEXT ;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
Note: See TracBrowser for help on using the repository browser.