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

KMPSPRE.m

Go to the documentation of this file. 
  1. KMPSPRE ;SF/KAK - SAGG Pre Install ;05 MAR 98 6:51 pm
  1.  ;;1.8;SAGG PROJECT;;Apr 27, 1998
  1.  ;
  1. EN ;
  1.  D PACK,MAIL,TASK
  1.  K KMPSTSK
  1.  Q
  1.  ;
  1. PACK ; Change PREFIX of SAGG PROJECT package to KMPS
  1.  ;
  1.  D BMES^XPDUTL("   Changing PREFIX of SAGG PROJECT package to KMPS ...")
  1.  N DA,DIE,DR
  1.  S DA=+$O(^DIC(9.4,"B","SAGG PROJECT",0)) Q:'DA
  1.  S DIE="^DIC(9.4,",DR="1///KMPS" D ^DIE
  1.  K DA,DIE,DR
  1.  Q
  1.  ;        
  1. MAIL ; Change mail-group A1B5-SAGG to KMPS-SAGG
  1.  ;
  1.  D BMES^XPDUTL("   Changing mail-group A1B5-SAGG to KMPS-SAGG ...")
  1.  N DA,DIE,DR
  1.  S DA=+$O(^XMB(3.8,"B","A1B5-SAGG",0)) Q:'DA
  1.  S DIE="^XMB(3.8,",DR=".01///KMPS-SAGG" D ^DIE
  1.  K DA,DIE,DR
  1.  Q
  1.  ;
  1. TASK ; Change option A1B5 SAGG REPORT to KMPS SAGG REPORT
  1.  ;
  1.  D BMES^XPDUTL("   Changing option A1B5 SAGG REPORT to KMPS SAGG REPORT ...")
  1.  N DA,DIE,DR
  1.  S DA=$O(^DIC(19,"B","A1B5 SAGG REPORT",0)) Q:'DA
  1.  S DIE="^DIC(19,",DR=".01///KMPS SAGG REPORT" D ^DIE
  1.  K DA,DIE,DR
  1.  Q
  1.  ;