Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ACKQIPRE

ACKQIPRE.m

Go to the documentation of this file.
  1. ACKQIPRE ;AUG/JLTP BIR/PTD-QUASAR Version 2.0 Pre-Install Routine ; 02/26/96 14:22
  1. V ;;2.0;QUASAR;;JUN 5,1996
  1. ;Setup checkpoints for KIDS.
  1. N %
  1. S %=$$NEWCP^XPDUTL("CHKPT1","MGRP^ACKQIPRE"),%=$$NEWCP^XPDUTL("CHKPT2","OPTN^ACKQIPRE")
  1. S %=$$NEWCP^XPDUTL("CHKPT3","TMPL^ACKQIPRE"),%=$$NEWCP^XPDUTL("CHKPT4","KILLDD^ACKQIPRE")
  1. ;Return to KIDS, and let KIDS run the checkpoints.
  1. Q
  1. ;
  1. MGRP ;Delete obsolete mail group.
  1. Q:'$D(XPDQUES("PRE1")) Q:'XPDQUES("PRE1")
  1. I '$O(^XMB(3.8,"B","ACKQ WORKLOAD",0)) D BMES^XPDUTL("Workload mail group already deleted.") Q
  1. S DA=$O(^XMB(3.8,"B","ACKQ WORKLOAD",0)),DIK="^XMB(3.8," D ^DIK K DA,DIK
  1. D BMES^XPDUTL("Obsolete mail group, ACKQ WORKLOAD, deleted.")
  1. K DA,DIK
  1. Q
  1. ;
  1. OPTN ;Delete obsolete QUASAR options.
  1. Q:'$D(XPDQUES("PRE2")) Q:'XPDQUES("PRE2")
  1. S DIK="^DIC(19," F JJ=1:1 S ACKOPTN=$P($T(TEXT+JJ),";;",2) Q:ACKOPTN="" D
  1. .I '$O(^DIC(19,"B",ACKOPTN,0)) D BMES^XPDUTL("Option, "_ACKOPTN_", not found on this system.") Q
  1. .S DA=$O(^DIC(19,"B",ACKOPTN,0)) D ^DIK
  1. .D BMES^XPDUTL("Obsolete option, "_ACKOPTN_", deleted.")
  1. K ACKOPTN,DA,DIK,JJ
  1. Q
  1. ;
  1. TMPL ;Remove obsolete input template.
  1. Q:'$O(^DIE("B","ACKQ CANDP ENTRY",0))
  1. S DA=$O(^DIE("B","ACKQ CANDP ENTRY",0)),DIK="^DIE(" D ^DIK K DA,DIK
  1. D BMES^XPDUTL("Obsolete input template, ACKQ CANDP ENTRY, deleted.")
  1. K DA,DIK
  1. Q
  1. ;
  1. KILLDD ;Delete DDs for all QUASAR files and DATA for 509850.
  1. F ACKFILE=509850,509850.1,509850.2,509850.3,509850.4,509850.6,509850.7,509850.8 I $D(^DD(ACKFILE,0,"NM")) D
  1. .S ACKNM=$O(^DD(ACKFILE,0,"NM",""))
  1. .I (ACKFILE=509850.1),($$VERSION^XPDUTL("QUASAR")<2) D
  1. ..S DIE="^ACK(ACKFILE,8771,1,",DA=4,DA(1)=8771,DR=".01///@" D ^DIE K DA,DIE,DR
  1. ..S DIE="^ACK(ACKFILE,9778,1,",DA=3,DA(1)=9778,DR=".01///@" D ^DIE K DA,DIE,DR
  1. .S DIU="^ACK("_ACKFILE_",",DIU(0)=""
  1. .I ACKFILE=509850 S DIU(0)="D"
  1. .D EN^DIU2 K DIU
  1. .D MES^XPDUTL(" ...DD deletion completed for "_ACKNM_"."),MES^XPDUTL(" ")
  1. K ACKFILE,ACKNM,DA,DIE,DIU,DR
  1. Q
  1. ;
  1. TEXT ;List of obsolete QUASAR options.
  1. ;;ACKQAS CDR ACCOUNT EDIT
  1. ;;ACKQAS CP ENTRY
  1. ;;ACKQAS MOD EDIT
  1. ;;ACKQAS STAFF ENTRY
  1. ;;ACKQAS SUPER MASTER
  1. ;;ACKQAS WKLD GEN TASKMAN
  1. ;;ACKQAS WKLD MENU