XVIRPOST.m

XVIRPOST ;SF/RWF - Post init for virgin install ;03/11/99  13:36 [ 04/02/2003   8:29 AM ]

 ;;8.0;KERNEL;**1007**;APR 1, 2003

 ;;8.0;KERNEL - VIRGIN INSTALL;**112**;Apr 14, 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 are adding FORUM.VA.GOV to the domain file."

 S DIC=4.2,DLAYGO=4,X="FORUM.VA.GOV",DIC(0)="LM" D ^DIC

 W !,"Now you need to enter the NETWORK MailMan domain name for this"

 W !,"system to use both on the network and for the name of the"

 W !,"Kernel site parameter entry."

 W !,"Use the format 'xxx.VA.GOV' in the VA."

 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

 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 I $D(^DIC(XV1,0)) S DIK=$G(^DIC(XV1,0,"GL")),X=@(DIK_"0)"),$P(^(0),"^",3)=$P(X,"^",3)\1

 K DIK,DIC,DA,XV1 Q

XVIRPOST  ;SF/RWF - Post init for virgin install ;03/11/99  13:36 [ 04/02/2003   8:29 AM ]

 +1       ;;8.0;KERNEL;**1007**;APR 1, 2003

 +2       ;;8.0;KERNEL - VIRGIN INSTALL;**112**;Apr 14, 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 are adding FORUM.VA.GOV to the domain file."

 +1        SET DIC=4.2

           SET DLAYGO=4

           SET X="FORUM.VA.GOV"

           SET DIC(0)="LM"

           DO ^DIC

 +2        WRITE !,"Now you need to enter the NETWORK MailMan domain name for this"

 +3        WRITE !,"system to use both on the network and for the name of the"

 +4        WRITE !,"Kernel site parameter entry."

 +5        WRITE !,"Use the format 'xxx.VA.GOV' in the VA."

 +6        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

 +7        SET ^XTV(8989.3,1,0)=+Y

           SET ^XMB(1,1,0)=+Y

 +8        SET DIK="^XTV(8989.3,"

           DO IXALL^DIK

           SET DIK="^XMB(1,"

           DO IXALL^DIK

 +9        KILL DIC

           QUIT 

 +10      ;

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        KILL DIK,DIC,XV2

           QUIT 

 +4       ;

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

               IF $DATA(^DIC(XV1,0))

                   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