- 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 Dec 13, 2024@02:32:17 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