- XVIRPOST ;SF/RWF - Post init for virgin install ;03/11/99 13:36
- ;;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 DOMAIN.EXT 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 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.DOMAIN.EXT' 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
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXVIRPOST 1707 printed Feb 18, 2025@23:40:45 Page 2
- XVIRPOST ;SF/RWF - Post init for virgin install ;03/11/99 13:36
- +1 ;;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 DOMAIN.EXT 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 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.DOMAIN.EXT' 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
