source: WorldVistAEHR/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XUINEND.m@ 619

Last change on this file since 619 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR
File size: 4.3 KB
Line 
1XUINEND ;SF-ISC/STAFF - Post Install for KERNEL V8.0 ;04/24/95 10:36
2 ;;8.0;KERNEL;;Jul 10, 1995
3 ;setup checkpoints for KIDS
4 N %
5 S %=$$NEWCP^XPDUTL("POST1","SITE^XUINEND"),%=$$NEWCP^XPDUTL("POST2","ALERT^XUINEND")
6 S %=$$NEWCP^XPDUTL("POST3","ALPHA^XUINEND"),%=$$NEWCP^XPDUTL("POST4","SCHED^XUINEND")
7 S %=$$NEWCP^XPDUTL("POST5","XUF^XUINEND"),%=$$NEWCP^XPDUTL("POST6","PARAM^XUINEND")
8 S %=$$NEWCP^XPDUTL("POST7","NPF^XUINEND"),%=$$NEWCP^XPDUTL("POST8","HELP^XUINEND")
9 Q
10SITE N %,DA,DIC,DIK,XUNEW
11 ;See that postmaster has an entry in file 200.
12 I '$D(^VA(200,.5,0)) D
13 . S ^DIC(3,.5,0)="POSTMASTER^^^^^^^^^^^^^^^.5",^DIC(16,.5,0)="POSTMASTER",^("A3")=.5
14 . S ^VA(200,.5,0)="POSTMASTER",DIK="^VA(200,",DA=.5
15 . D IX1^DIK
16 . Q
17 D MES^XPDUTL(" Move KERNEL site parameters.")
18 I $D(^XTV(8989.3,1,0)),$G(^XTV(8989.3,1,4,0))'[8989 K ^XTV(8989.3,1)
19 Q:$D(^XTV(8989.3,1))
20 ;S XUNEW="+?1," D TRNMRG^DIT("OX",4.3,8989.3,"1,",.XUNEW)
21 ;Merge and set count
22 M ^XTV(8989.3,1)=^XMB(1,1) S $P(^XTV(8989.3,0),U,3,4)="1^1"
23 ;kill the Mailman Purge date information
24 K ^XTV(8989.3,1,.1)
25 S I=0 F S I=$O(^XTV(8989.3,1,I)) Q:I="" D:$D(^(I,0))
26 .S J=+$O(^DD(8989.3,"GL",I,0,0))
27 .Q:'$D(^DD(8989.3,J,0)) S K=$P(^(0),U,2)
28 .I K,$D(^DD(+K,.01,0)),$P(^(0),U,2)'["W" S $P(^XTV(8989.3,1,I,0),U,2)=K
29 S $P(%,U,17)=$P($G(^XMB(1,1,"XUS")),U,17),^XMB(1,1,"XUS")=% ;delete all but default inst.
30 K ^XMB(1,1,"INTRO") ;Remove Intro text
31 Q
32 ;
33ALERT N I,X,Y
34 D MES^XPDUTL(" Moving ALERTS from file 200 to file 8992 ...")
35 F I=0:0 S I=$O(^VA(200,I)) Q:I'>0 D
36 . I $O(^VA(200,I,"XQA",0))>0 D
37 . . I '$D(^XTV(8992,I)) S X="`"_I D
38 . . . N I,DIC,DLAYGO
39 . . . S DIC="^XTV(8992,",DIC(0)="L",DLAYGO=8992 D ^DIC
40 . . M ^XTV(8992,I,"XQA")=^VA(200,I,"XQA")
41 . K ^VA(200,I,"XQA")
42 M ^XTV(8992,"AXQA")=^VA(200,"AXQA") K ^VA(200,"AXQA")
43 M ^XTV(8992,"AXQAN")=^VA(200,"AXQAN") K ^VA(200,"AXQAN")
44 S I="" F S I=$O(^XTV(8992,"AXQA",I)) Q:I'>0 K ^(I,0,0)
45 Q
46 ;
47ALPHA N DA,DIK
48 D MES^XPDUTL(" Delete CPU field from alpha/beta test sites")
49 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.
50 Q
51 ;
52SCHED D MES^XPDUTL(" Option Scheduling conversion."),^XUINTSK
53 Q
54OPT N D0,DIK
55 D MES^XPDUTL(" Reindex Entry/Exit Actions in Option file.")
56 F D0=0:0 S D0=$O(^DIC(19,D0)) Q:D0'>0 I '$D(^(D0,0)) K ^DIC(19,D0)
57 S DIK="^DIC(19,",DIK(1)="15^1" D ENALL^DIK
58 K DIK S DIK="^DIC(19,",DIK(1)="20^1" D ENALL^DIK
59 Q
60 ;
61XUF N DIU,DIK,XU1
62 D MES^XPDUTL(" Check and clean out XUFILE if not running FOF.")
63 I '$D(^VA(200,"AFOF")) D DISABLE^XUFILE3
64 Q
65 ;
66PARAM N IX
67 D MES^XPDUTL(" Load PARAM file")
68 F IX="XUEDIT CHARACTERISTICS","XUNEW USER","XUSER COMPUTER ACCOUNT","XUREACT USER","XUEXISTING USER" I $$GET^XUPARAM(IX,"V")="" D SET^XUPARAM(IX,"")
69MES D MES^XPDUTL($C(7)_"TO PROTECT THE SECURITY OF DHCP SYSTEMS, DISTRIBUTION OF THIS")
70 D MES^XPDUTL("SOFTWARE FOR USE ON ANY OTHER COMPUTER SYSTEM IS PROHIBITED.")
71 D MES^XPDUTL("ALL REQUESTS FOR COPIES OF THE KERNEL FOR NON-DHCP USE SHOULD")
72 D MES^XPDUTL("BE REFERRED TO YOUR LOCAL ISC.")
73 Q
74 ;
75NPF ;Re-build the Nickname D X-ref.
76 N DA,DIK K ^VA(200,"D")
77 S DIK="^VA(200,",DIK(1)="13^1" D ENALL^DIK
78 Q
79REMOXY ;Remove OLD XYCRT FIELD FROM TERMINAL TYPE FILE.
80 N DA,DIK
81 D MES^XPDUTL("Removing trigger from XY CRT field(#5.2) of the TERMINAL TYPE FILE(#3.2)"_$C(7,7))
82 S DIK="^DD(3.2,5.2,1,",DA=1,DA(1)=5.2,DA(2)=3.2 D ^DIK
83 K DA,DIK
84 D MES^XPDUTL("Removing data from the *OLD XY CRT field(#5) of the TERMINAL TYPE file(#3.2)"_$C(7,7))
85 F DA=0:0 S DA=$O(^%ZIS(2,DA)) Q:DA'>0 I $D(^(DA,1))#2 S $P(^(1),"^",5)=""
86 K DA
87 D MES^XPDUTL("Removing the *OLD XY CRT field(#5) from the TERMINAL TYPE file(#3.2)"_$C(7,7))
88 S DIK="^DD(3.2,",DA=5,DA(1)=3.2 D ^DIK
89 Q
90HELP ;re-index help frame file
91 N DA,DIK,XPDI S XPDI=0
92 F S XPDI=$O(^DIC(9.2,XPDI)) Q:'XPDI D
93 .S DA(1)=XPDI,DIK="^DIC(9.2,"_XPDI_",2,",DIK(1)="1^1"
94 .D ENALL^DIK
95 Q
96 ;
97A27 ;D MES^XPDUTL("At A27, Calling XUINEACH") D ^XUINEACH ;EACH CPU CODE.
98 ;
99 ;
100A23 D MES^XPDUTL($C(7,7)_"Now to edit the Kernel Site Parameters."_$C(7))
101 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
102 S DIE="^XTV(8989.3,1,",DA=1,DR="[XU KSP INIT]" D ^DIE
103A25 W !,"Now to EDIT selectable terminal types for sign-on"
104 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
105 Q
Note: See TracBrowser for help on using the repository browser.