DVBASITE ;ALB ISC/THM-SET UP AMIE SITE PARAMETERS; 21 JUL 89@0131
 ;;2.7;AMIE;;Apr 10, 1995
 S HD="AMIE SITE PARAMETER EDITING"
 D HOME^%ZIS
 I $D(^DVB(396.1,1,0)) S DIC("B")=$P(^(0),U,1)
EN1 W @IOF,!?(79-$L(HD)\2),HD,!!
 S DR="[DVBA SITE EDIT]",(DIC,DIE)="^DVB(396.1,"
 S DIC("A")="Enter SITE NAME: ",DLAYGO=396.1,DIC(0)="AEQLM"
 D ^DIC G:X=""!(X=U) EXIT
 I +Y>0 S DA=+Y
 G:Y<0 EXIT D ^DIE
 K DIC,DA,DIE G EN1
EXIT W @IOF,!! K DIC,DIE,DA,Y,X,DR,HD,DLAYGO Q