ACKQIPRE ;AUG/JLTP BIR/PTD-QUASAR Version 2.0 Pre-Install Routine ; 02/26/96 14:22
V ;;2.0;QUASAR;;JUN 5,1996
;Setup checkpoints for KIDS.
N %
S %=$$NEWCP^XPDUTL("CHKPT1","MGRP^ACKQIPRE"),%=$$NEWCP^XPDUTL("CHKPT2","OPTN^ACKQIPRE")
S %=$$NEWCP^XPDUTL("CHKPT3","TMPL^ACKQIPRE"),%=$$NEWCP^XPDUTL("CHKPT4","KILLDD^ACKQIPRE")
;Return to KIDS, and let KIDS run the checkpoints.
Q
;
MGRP ;Delete obsolete mail group.
Q:'$D(XPDQUES("PRE1")) Q:'XPDQUES("PRE1")
I '$O(^XMB(3.8,"B","ACKQ WORKLOAD",0)) D BMES^XPDUTL("Workload mail group already deleted.") Q
S DA=$O(^XMB(3.8,"B","ACKQ WORKLOAD",0)),DIK="^XMB(3.8," D ^DIK K DA,DIK
D BMES^XPDUTL("Obsolete mail group, ACKQ WORKLOAD, deleted.")
K DA,DIK
Q
;
OPTN ;Delete obsolete QUASAR options.
Q:'$D(XPDQUES("PRE2")) Q:'XPDQUES("PRE2")
S DIK="^DIC(19," F JJ=1:1 S ACKOPTN=$P($T(TEXT+JJ),";;",2) Q:ACKOPTN="" D
.I '$O(^DIC(19,"B",ACKOPTN,0)) D BMES^XPDUTL("Option, "_ACKOPTN_", not found on this system.") Q
.S DA=$O(^DIC(19,"B",ACKOPTN,0)) D ^DIK
.D BMES^XPDUTL("Obsolete option, "_ACKOPTN_", deleted.")
K ACKOPTN,DA,DIK,JJ
Q
;
TMPL ;Remove obsolete input template.
Q:'$O(^DIE("B","ACKQ CANDP ENTRY",0))
S DA=$O(^DIE("B","ACKQ CANDP ENTRY",0)),DIK="^DIE(" D ^DIK K DA,DIK
D BMES^XPDUTL("Obsolete input template, ACKQ CANDP ENTRY, deleted.")
K DA,DIK
Q
;
KILLDD ;Delete DDs for all QUASAR files and DATA for 509850.
F ACKFILE=509850,509850.1,509850.2,509850.3,509850.4,509850.6,509850.7,509850.8 I $D(^DD(ACKFILE,0,"NM")) D
.S ACKNM=$O(^DD(ACKFILE,0,"NM",""))
.I (ACKFILE=509850.1),($$VERSION^XPDUTL("QUASAR")<2) D
..S DIE="^ACK(ACKFILE,8771,1,",DA=4,DA(1)=8771,DR=".01///@" D ^DIE K DA,DIE,DR
..S DIE="^ACK(ACKFILE,9778,1,",DA=3,DA(1)=9778,DR=".01///@" D ^DIE K DA,DIE,DR
.S DIU="^ACK("_ACKFILE_",",DIU(0)=""
.I ACKFILE=509850 S DIU(0)="D"
.D EN^DIU2 K DIU
.D MES^XPDUTL(" ...DD deletion completed for "_ACKNM_"."),MES^XPDUTL(" ")
K ACKFILE,ACKNM,DA,DIE,DIU,DR
Q
;
TEXT ;List of obsolete QUASAR options.
;;ACKQAS CDR ACCOUNT EDIT
;;ACKQAS CP ENTRY
;;ACKQAS MOD EDIT
;;ACKQAS STAFF ENTRY
;;ACKQAS SUPER MASTER
;;ACKQAS WKLD GEN TASKMAN
;;ACKQAS WKLD MENU
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HACKQIPRE 2199 printed Apr 09, 2024@21:34:22 Page 2
ACKQIPRE ;AUG/JLTP BIR/PTD-QUASAR Version 2.0 Pre-Install Routine ; 02/26/96 14:22
V ;;2.0;QUASAR;;JUN 5,1996
+1 ;Setup checkpoints for KIDS.
+2 NEW %
+3 SET %=$$NEWCP^XPDUTL("CHKPT1","MGRP^ACKQIPRE")
SET %=$$NEWCP^XPDUTL("CHKPT2","OPTN^ACKQIPRE")
+4 SET %=$$NEWCP^XPDUTL("CHKPT3","TMPL^ACKQIPRE")
SET %=$$NEWCP^XPDUTL("CHKPT4","KILLDD^ACKQIPRE")
+5 ;Return to KIDS, and let KIDS run the checkpoints.
+6 QUIT
+7 ;
MGRP ;Delete obsolete mail group.
+1 if '$DATA(XPDQUES("PRE1"))
QUIT
if 'XPDQUES("PRE1")
QUIT
+2 IF '$ORDER(^XMB(3.8,"B","ACKQ WORKLOAD",0))
DO BMES^XPDUTL("Workload mail group already deleted.")
QUIT
+3 SET DA=$ORDER(^XMB(3.8,"B","ACKQ WORKLOAD",0))
SET DIK="^XMB(3.8,"
DO ^DIK
KILL DA,DIK
+4 DO BMES^XPDUTL("Obsolete mail group, ACKQ WORKLOAD, deleted.")
+5 KILL DA,DIK
+6 QUIT
+7 ;
OPTN ;Delete obsolete QUASAR options.
+1 if '$DATA(XPDQUES("PRE2"))
QUIT
if 'XPDQUES("PRE2")
QUIT
+2 SET DIK="^DIC(19,"
FOR JJ=1:1
SET ACKOPTN=$PIECE($TEXT(TEXT+JJ),";;",2)
if ACKOPTN=""
QUIT
Begin DoDot:1
+3 IF '$ORDER(^DIC(19,"B",ACKOPTN,0))
DO BMES^XPDUTL("Option, "_ACKOPTN_", not found on this system.")
QUIT
+4 SET DA=$ORDER(^DIC(19,"B",ACKOPTN,0))
DO ^DIK
+5 DO BMES^XPDUTL("Obsolete option, "_ACKOPTN_", deleted.")
End DoDot:1
+6 KILL ACKOPTN,DA,DIK,JJ
+7 QUIT
+8 ;
TMPL ;Remove obsolete input template.
+1 if '$ORDER(^DIE("B","ACKQ CANDP ENTRY",0))
QUIT
+2 SET DA=$ORDER(^DIE("B","ACKQ CANDP ENTRY",0))
SET DIK="^DIE("
DO ^DIK
KILL DA,DIK
+3 DO BMES^XPDUTL("Obsolete input template, ACKQ CANDP ENTRY, deleted.")
+4 KILL DA,DIK
+5 QUIT
+6 ;
KILLDD ;Delete DDs for all QUASAR files and DATA for 509850.
+1 FOR ACKFILE=509850,509850.1,509850.2,509850.3,509850.4,509850.6,509850.7,509850.8
IF $DATA(^DD(ACKFILE,0,"NM"))
Begin DoDot:1
+2 SET ACKNM=$ORDER(^DD(ACKFILE,0,"NM",""))
+3 IF (ACKFILE=509850.1)
IF ($$VERSION^XPDUTL("QUASAR")<2)
Begin DoDot:2
+4 SET DIE="^ACK(ACKFILE,8771,1,"
SET DA=4
SET DA(1)=8771
SET DR=".01///@"
DO ^DIE
KILL DA,DIE,DR
+5 SET DIE="^ACK(ACKFILE,9778,1,"
SET DA=3
SET DA(1)=9778
SET DR=".01///@"
DO ^DIE
KILL DA,DIE,DR
End DoDot:2
+6 SET DIU="^ACK("_ACKFILE_","
SET DIU(0)=""
+7 IF ACKFILE=509850
SET DIU(0)="D"
+8 DO EN^DIU2
KILL DIU
+9 DO MES^XPDUTL(" ...DD deletion completed for "_ACKNM_".")
DO MES^XPDUTL(" ")
End DoDot:1
+10 KILL ACKFILE,ACKNM,DA,DIE,DIU,DR
+11 QUIT
+12 ;
TEXT ;List of obsolete QUASAR options.
+1 ;;ACKQAS CDR ACCOUNT EDIT
+2 ;;ACKQAS CP ENTRY
+3 ;;ACKQAS MOD EDIT
+4 ;;ACKQAS STAFF ENTRY
+5 ;;ACKQAS SUPER MASTER
+6 ;;ACKQAS WKLD GEN TASKMAN
+7 ;;ACKQAS WKLD MENU
