| 1 | XVIRPOST ;SF/RWF - Post init for virgin install ;07/07/95 13:36
|
---|
| 2 | ;;8.0;KERNEL - VIRGIN INSTALL;;Jul 10, 1995
|
---|
| 3 | A W !,"Post init for virgin install"
|
---|
| 4 | S DUZ=0,DUZ(0)="@" D NOW^%DTC S DT=X
|
---|
| 5 | I $D(^VA(200,.5,0))[0 D POST
|
---|
| 6 | I $O(^VA(200,.9))'>0 D F200
|
---|
| 7 | I $O(^DIC(4.2,0))'>0 D DOMAIN
|
---|
| 8 | I $O(^DIC(4,0))'>0 D INST
|
---|
| 9 | I $O(^DIC(49,0))'>0 D SERV
|
---|
| 10 | Q
|
---|
| 11 | DOMAIN W !,"We have added FORUM to the domain file."
|
---|
| 12 | S DIC=4.2,DLAYGO=4,X="FORUM.VA.GOV",DIC(0)="LM" D ^DIC
|
---|
| 13 | W !,"Now you need to enter the NETWORK MailMan domain name that will be use",!,"on the network and for the name of the Kernel site parameter entry."
|
---|
| 14 | W !,"Use the format 'xxx.VA.GOV'"
|
---|
| 15 | S DIC=4.2,DLAYGO=4,DIC(0)="AEMQL" D ^DIC I '$P(Y,U,3) W !,"You must enter the name of your local network mail node ",!,"so you may enter your KERNEL SITE PARAMITERS." G DOMAIN
|
---|
| 16 | S ^XTV(8989.3,1,0)=+Y,^XMB(1,1,0)=+Y
|
---|
| 17 | S DIK="^XTV(8989.3," D IXALL^DIK S DIK="^XMB(1," D IXALL^DIK
|
---|
| 18 | K DIC Q
|
---|
| 19 | ;
|
---|
| 20 | INST W !!,"Now lets add your Institution."
|
---|
| 21 | S DIC=4,DLAYGO=4,DIC(0)="AEMQL" D ^DIC I Y'>0 W !,"You will need an entry in this file." G INST
|
---|
| 22 | K DIC Q
|
---|
| 23 | ;
|
---|
| 24 | SERV W !!,"Now to add 'IRM' to the service/section file."
|
---|
| 25 | S DIC=49,DLAYGO=49,DIC(0)="MQL",X="IRM" D ^DIC
|
---|
| 26 | K DIC Q
|
---|
| 27 | ;
|
---|
| 28 | F200 W !!,"Now to add yourself to the NEW PERSON file."
|
---|
| 29 | F XV1=200 S DIK=$G(^DIC(XV1,0,"GL")),X=@(DIK_"0)"),$P(^(0),"^",3)=$P(X,"^",3)\1
|
---|
| 30 | S DIC=200,DIC(0)="AEMQL",DLAYGO=200 D ^DIC
|
---|
| 31 | F XV2=200 S DIK=^DIC(XV2,0,"GL"),DIK(1)=".01" D ENALL^DIK K DIK
|
---|
| 32 | K DIK,DIC,XV2 Q
|
---|
| 33 | ;
|
---|
| 34 | POST ;Add postmaster
|
---|
| 35 | S ^VA(200,.5,0)="POSTMASTER"
|
---|
| 36 | F XV1=200 S DA=.5,DIK=$G(^DIC(XV1,0,"GL")),DIK(1)=.01 D EN1^DIK
|
---|
| 37 | F XV1=200 S DIK=$G(^DIC(XV1,0,"GL")),X=@(DIK_"0)"),$P(^(0),"^",3)=$P(X,"^",3)\1
|
---|
| 38 | K DIK,DIC,DA,XV1 Q
|
---|