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

XUINEND.m

Go to the documentation of this file. 
  1. XUINEND ;SF-ISC/STAFF - Post Install for KERNEL V8.0 ;04/24/95  10:36 [ 04/02/2003   8:29 AM ]
  1.  ;;8.0;KERNEL;**1002,1003,1004,1005,1007**;APR 1, 2003
  1.  ;;8.0;KERNEL;;Jul 10, 1995
  1.  ;setup checkpoints for KIDS
  1.  W !,"I'm in the Pre-init***************XTMP does " W:'$D(^XTMP("XPDI")) "NOT" W " exist" D ^XQDATE W !,%Y
  1.  N %
  1.  S %=$$NEWCP^XPDUTL("POST1","SITE^XUINEND"),%=$$NEWCP^XPDUTL("POST2","ALERT^XUINEND")
  1.  S %=$$NEWCP^XPDUTL("POST3","ALPHA^XUINEND"),%=$$NEWCP^XPDUTL("POST4","SCHED^XUINEND")
  1.  S %=$$NEWCP^XPDUTL("POST5","XUF^XUINEND"),%=$$NEWCP^XPDUTL("POST6","PARAM^XUINEND")
  1.  S %=$$NEWCP^XPDUTL("POST7","NPF^XUINEND"),%=$$NEWCP^XPDUTL("POST8","HELP^XUINEND")
  1.  Q
  1. SITE N %,DA,DIC,DIK,XUNEW
  1.  ;See that postmaster has an entry in file 200.
  1.  I '$D(^VA(200,.5,0)) D
  1.  . S ^DIC(3,.5,0)="POSTMASTER^^^^^^^^^^^^^^^.5",^DIC(16,.5,0)="POSTMASTER",^("A3")=.5
  1.  . S ^VA(200,.5,0)="POSTMASTER",DIK="^VA(200,",DA=.5
  1.  . D IX1^DIK
  1.  . Q
  1.  D MES^XPDUTL(" Move KERNEL site parameters.")
  1.  I $D(^XTV(8989.3,1,0)),$G(^XTV(8989.3,1,4,0))'[8989 K ^XTV(8989.3,1)
  1.  Q:$D(^XTV(8989.3,1))
  1.  ;S XUNEW="+?1," D TRNMRG^DIT("OX",4.3,8989.3,"1,",.XUNEW)
  1.  ;Merge and set count
  1.  M ^XTV(8989.3,1)=^XMB(1,1) S $P(^XTV(8989.3,0),U,3,4)="1^1"
  1.  ;kill the Mailman Purge date information
  1.  K ^XTV(8989.3,1,.1)
  1.  S I=0 F  S I=$O(^XTV(8989.3,1,I)) Q:I=""  D:$D(^(I,0))
  1.  .S J=+$O(^DD(8989.3,"GL",I,0,0))
  1.  .Q:'$D(^DD(8989.3,J,0))  S K=$P(^(0),U,2)
  1.  .I K,$D(^DD(+K,.01,0)),$P(^(0),U,2)'["W" S $P(^XTV(8989.3,1,I,0),U,2)=K
  1.  S $P(%,U,17)=$P($G(^XMB(1,1,"XUS")),U,17),^XMB(1,1,"XUS")=% ;delete all but default inst.
  1.  K ^XMB(1,1,"INTRO") ;Remove Intro text
  1.  Q
  1.  ;
  1. ALERT N I,X,Y
  1.  D MES^XPDUTL("  Moving ALERTS from file 200 to file 8992 ...")
  1.  F I=0:0 S I=$O(^VA(200,I)) Q:I'>0  D
  1.  . I $O(^VA(200,I,"XQA",0))>0 D
  1.  . . I '$D(^XTV(8992,I)) S X="`"_I D
  1.  . . . N I,DIC,DLAYGO
  1.  . . . S DIC="^XTV(8992,",DIC(0)="L",DLAYGO=8992 D ^DIC
  1.  . . M ^XTV(8992,I,"XQA")=^VA(200,I,"XQA")
  1.  . K ^VA(200,I,"XQA")
  1.  M ^XTV(8992,"AXQA")=^VA(200,"AXQA") K ^VA(200,"AXQA")
  1.  M ^XTV(8992,"AXQAN")=^VA(200,"AXQAN") K ^VA(200,"AXQAN")
  1.  S I="" F  S I=$O(^XTV(8992,"AXQA",I)) Q:I'>0  K ^(I,0,0)
  1.  Q
  1.  ;
  1. ALPHA N DA,DIK
  1.  D MES^XPDUTL(" Delete CPU field from alpha/beta test sites")
  1.  I $P($G(^DD(3.5,1.92,0)),"^")="CPU" S DIK="^DD(3.5,",DA=1.92,DA(1)=3.5 D ^DIK ;Delete CPU field from alpha/beta test sites.
  1.  Q
  1.  ;
  1. SCHED D MES^XPDUTL(" Option Scheduling conversion."),^XUINTSK
  1.  Q
  1. OPT N D0,DIK
  1.  D MES^XPDUTL(" Reindex Entry/Exit Actions in Option file.")
  1.  F D0=0:0 S D0=$O(^DIC(19,D0)) Q:D0'>0  I '$D(^(D0,0)) K ^DIC(19,D0)
  1.  S DIK="^DIC(19,",DIK(1)="15^1" D ENALL^DIK
  1.  K DIK S DIK="^DIC(19,",DIK(1)="20^1" D ENALL^DIK
  1.  Q
  1.  ;
  1. XUF N DIU,DIK,XU1
  1.  D MES^XPDUTL(" Check and clean out XUFILE if not running FOF.")
  1.  I '$D(^VA(200,"AFOF")) D DISABLE^XUFILE3
  1.  Q
  1.  ;
  1. PARAM N IX
  1.  D MES^XPDUTL(" Load PARAM file")
  1.  F IX="XUEDIT CHARACTERISTICS","XUNEW USER","XUSER COMPUTER ACCOUNT","XUREACT USER","XUEXISTING USER" I $$GET^XUPARAM(IX,"V")="" D SET^XUPARAM(IX,"")
  1. MES D MES^XPDUTL($C(7)_"TO PROTECT THE SECURITY OF DHCP SYSTEMS, DISTRIBUTION OF THIS")
  1.  D MES^XPDUTL("SOFTWARE FOR USE ON ANY OTHER COMPUTER SYSTEM IS PROHIBITED.")
  1.  D MES^XPDUTL("ALL REQUESTS FOR COPIES OF THE KERNEL FOR NON-DHCP USE SHOULD")
  1.  D MES^XPDUTL("BE REFERRED TO YOUR LOCAL ISC.")
  1.  Q
  1.  ;
  1. NPF ;Re-build the Nickname D X-ref.
  1.  N DA,DIK K ^VA(200,"D")
  1.  S DIK="^VA(200,",DIK(1)="13^1" D ENALL^DIK
  1.  Q
  1. REMOXY ;Remove OLD XYCRT FIELD FROM TERMINAL TYPE FILE.
  1.  N DA,DIK
  1.  D MES^XPDUTL("Removing trigger from XY CRT field(#5.2) of the TERMINAL TYPE FILE(#3.2)"_$C(7,7))
  1.  S DIK="^DD(3.2,5.2,1,",DA=1,DA(1)=5.2,DA(2)=3.2 D ^DIK
  1.  K DA,DIK
  1.  D MES^XPDUTL("Removing data from the *OLD XY CRT field(#5) of the TERMINAL TYPE file(#3.2)"_$C(7,7))
  1.  F DA=0:0 S DA=$O(^%ZIS(2,DA)) Q:DA'>0  I $D(^(DA,1))#2 S $P(^(1),"^",5)=""
  1.  K DA
  1.  D MES^XPDUTL("Removing the *OLD XY CRT field(#5) from the TERMINAL TYPE file(#3.2)"_$C(7,7))
  1.  S DIK="^DD(3.2,",DA=5,DA(1)=3.2 D ^DIK
  1.  Q
  1. HELP ;re-index help frame file
  1.  N DA,DIK,XPDI S XPDI=0
  1.  F  S XPDI=$O(^DIC(9.2,XPDI)) Q:'XPDI  D
  1.  .S DA(1)=XPDI,DIK="^DIC(9.2,"_XPDI_",2,",DIK(1)="1^1"
  1.  .D ENALL^DIK
  1.  Q
  1.  ;
  1. A27 ;D MES^XPDUTL("At A27, Calling XUINEACH") D ^XUINEACH ;EACH CPU CODE.
  1.  ;
  1.  ;
  1. A23 D MES^XPDUTL($C(7,7)_"Now to edit the Kernel Site Parameters."_$C(7))
  1.  I '$D(^XTV(8989.3,1,1,0)) W !,"Please select a name for this site" S DIC="^XTV(8989.3,1,",DIC(0)="AEMQL" D ^DIC I Y<1 W *7,"YOU MUST SELECT ONE" G A23
  1.  S DIE="^XTV(8989.3,1,",DA=1,DR="[XU KSP INIT]" D ^DIE
  1. A25 W !,"Now to EDIT selectable terminal types for sign-on"
  1.  F IX=0:0 S DIC="^%ZIS(2,",DIC(0)="AEMQ" D ^DIC Q:Y'>0  S DIE=DIC,DA=+Y,DR=.02 D ^DIE
  1.  Q