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

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

initial load of FOIAVistA 6/30/08 version

File size: 1.6 KB
Line 
1XVIRPOST ;SF/RWF - Post init for virgin install ;03/11/99 13:36
2 ;;8.0;KERNEL - VIRGIN INSTALL;**112**;Apr 14, 1995
3A 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
11DOMAIN W !,"We are adding FORUM.VA.GOV 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 for this"
14 W !,"system to use both on the network and for the name of the"
15 W !,"Kernel site parameter entry."
16 W !,"Use the format 'xxx.VA.GOV' in the VA."
17 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
18 S ^XTV(8989.3,1,0)=+Y,^XMB(1,1,0)=+Y
19 S DIK="^XTV(8989.3," D IXALL^DIK S DIK="^XMB(1," D IXALL^DIK
20 K DIC Q
21 ;
22INST W !!,"Now lets add your Institution."
23 S DIC=4,DLAYGO=4,DIC(0)="AEMQL" D ^DIC I Y'>0 W !,"You will need an entry in this file." G INST
24 K DIC Q
25 ;
26SERV W !!,"Now to add 'IRM' to the service/section file."
27 S DIC=49,DLAYGO=49,DIC(0)="MQL",X="IRM" D ^DIC
28 K DIC Q
29 ;
30F200 W !!,"Now to add yourself to the NEW PERSON file."
31 F XV1=200 S DIK=$G(^DIC(XV1,0,"GL")),X=@(DIK_"0)"),$P(^(0),"^",3)=$P(X,"^",3)\1
32 S DIC=200,DIC(0)="AEMQL",DLAYGO=200 D ^DIC
33 K DIK,DIC,XV2 Q
34 ;
35POST ;Add postmaster
36 S ^VA(200,.5,0)="POSTMASTER"
37 F XV1=200 S DA=.5,DIK=$G(^DIC(XV1,0,"GL")),DIK(1)=.01 D EN1^DIK
38 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
39 K DIK,DIC,DA,XV1 Q
Note: See TracBrowser for help on using the repository browser.