XVIRPOST ;SF/RWF - Post init for virgin install ;07/07/95 13:36
;;8.0;KERNEL - VIRGIN INSTALL;;Jul 10, 1995
A W !,"Post init for virgin install"
S DUZ=0,DUZ(0)="@" D NOW^%DTC S DT=X
I $D(^VA(200,.5,0))[0 D POST
I $O(^VA(200,.9))'>0 D F200
I $O(^DIC(4.2,0))'>0 D DOMAIN
I $O(^DIC(4,0))'>0 D INST
I $O(^DIC(49,0))'>0 D SERV
Q
DOMAIN W !,"We have added FORUM to the domain file."
S DIC=4.2,DLAYGO=4,X="DOMAIN.EXT",DIC(0)="LM" D ^DIC
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."
W !,"Use the format 'xxx.DOMAIN.EXT'"
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
S ^XTV(8989.3,1,0)=+Y,^XMB(1,1,0)=+Y
S DIK="^XTV(8989.3," D IXALL^DIK S DIK="^XMB(1," D IXALL^DIK
K DIC Q
;
INST W !!,"Now lets add your Institution."
S DIC=4,DLAYGO=4,DIC(0)="AEMQL" D ^DIC I Y'>0 W !,"You will need an entry in this file." G INST
K DIC Q
;
SERV W !!,"Now to add 'IRM' to the service/section file."
S DIC=49,DLAYGO=49,DIC(0)="MQL",X="IRM" D ^DIC
K DIC Q
;
F200 W !!,"Now to add yourself to the NEW PERSON file."
F XV1=200 S DIK=$G(^DIC(XV1,0,"GL")),X=@(DIK_"0)"),$P(^(0),"^",3)=$P(X,"^",3)\1
S DIC=200,DIC(0)="AEMQL",DLAYGO=200 D ^DIC
F XV2=200 S DIK=^DIC(XV2,0,"GL"),DIK(1)=".01" D ENALL^DIK K DIK
K DIK,DIC,XV2 Q
;
POST ;Add postmaster
S ^VA(200,.5,0)="POSTMASTER"
F XV1=200 S DA=.5,DIK=$G(^DIC(XV1,0,"GL")),DIK(1)=.01 D EN1^DIK
F XV1=200 S DIK=$G(^DIC(XV1,0,"GL")),X=@(DIK_"0)"),$P(^(0),"^",3)=$P(X,"^",3)\1
K DIK,DIC,DA,XV1 Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXVIRPST 1709 printed Dec 13, 2024@02:14:19 Page 2
XVIRPOST ;SF/RWF - Post init for virgin install ;07/07/95 13:36
+1 ;;8.0;KERNEL - VIRGIN INSTALL;;Jul 10, 1995
A WRITE !,"Post init for virgin install"
+1 SET DUZ=0
SET DUZ(0)="@"
DO NOW^%DTC
SET DT=X
+2 IF $DATA(^VA(200,.5,0))[0
DO POST
+3 IF $ORDER(^VA(200,.9))'>0
DO F200
+4 IF $ORDER(^DIC(4.2,0))'>0
DO DOMAIN
+5 IF $ORDER(^DIC(4,0))'>0
DO INST
+6 IF $ORDER(^DIC(49,0))'>0
DO SERV
+7 QUIT
DOMAIN WRITE !,"We have added FORUM to the domain file."
+1 SET DIC=4.2
SET DLAYGO=4
SET X="DOMAIN.EXT"
SET DIC(0)="LM"
DO ^DIC
+2 WRITE !,"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."
+3 WRITE !,"Use the format 'xxx.DOMAIN.EXT'"
+4 SET DIC=4.2
SET DLAYGO=4
SET DIC(0)="AEMQL"
DO ^DIC
IF '$PIECE(Y,U,3)
WRITE !,"You must enter the name of your local network mail node ",!,"so you may enter your KERNEL SITE PARAMITERS."
GOTO DOMAIN
+5 SET ^XTV(8989.3,1,0)=+Y
SET ^XMB(1,1,0)=+Y
+6 SET DIK="^XTV(8989.3,"
DO IXALL^DIK
SET DIK="^XMB(1,"
DO IXALL^DIK
+7 KILL DIC
QUIT
+8 ;
INST WRITE !!,"Now lets add your Institution."
+1 SET DIC=4
SET DLAYGO=4
SET DIC(0)="AEMQL"
DO ^DIC
IF Y'>0
WRITE !,"You will need an entry in this file."
GOTO INST
+2 KILL DIC
QUIT
+3 ;
SERV WRITE !!,"Now to add 'IRM' to the service/section file."
+1 SET DIC=49
SET DLAYGO=49
SET DIC(0)="MQL"
SET X="IRM"
DO ^DIC
+2 KILL DIC
QUIT
+3 ;
F200 WRITE !!,"Now to add yourself to the NEW PERSON file."
+1 FOR XV1=200
SET DIK=$GET(^DIC(XV1,0,"GL"))
SET X=@(DIK_"0)")
SET $PIECE(^(0),"^",3)=$PIECE(X,"^",3)\1
+2 SET DIC=200
SET DIC(0)="AEMQL"
SET DLAYGO=200
DO ^DIC
+3 FOR XV2=200
SET DIK=^DIC(XV2,0,"GL")
SET DIK(1)=".01"
DO ENALL^DIK
KILL DIK
+4 KILL DIK,DIC,XV2
QUIT
+5 ;
POST ;Add postmaster
+1 SET ^VA(200,.5,0)="POSTMASTER"
+2 FOR XV1=200
SET DA=.5
SET DIK=$GET(^DIC(XV1,0,"GL"))
SET DIK(1)=.01
DO EN1^DIK
+3 FOR XV1=200
SET DIK=$GET(^DIC(XV1,0,"GL"))
SET X=@(DIK_"0)")
SET $PIECE(^(0),"^",3)=$PIECE(X,"^",3)\1
+4 KILL DIK,DIC,DA,XV1
QUIT
