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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDVBASITE 471 printed Oct 16, 2024@17:43:02 Page 2
DVBASITE ;ALB ISC/THM-SET UP AMIE SITE PARAMETERS; 21 JUL 89@0131
+1 ;;2.7;AMIE;;Apr 10, 1995
+2 SET HD="AMIE SITE PARAMETER EDITING"
+3 DO HOME^%ZIS
+4 IF $DATA(^DVB(396.1,1,0))
SET DIC("B")=$PIECE(^(0),U,1)
EN1 WRITE @IOF,!?(79-$LENGTH(HD)\2),HD,!!
+1 SET DR="[DVBA SITE EDIT]"
SET (DIC,DIE)="^DVB(396.1,"
+2 SET DIC("A")="Enter SITE NAME: "
SET DLAYGO=396.1
SET DIC(0)="AEQLM"
+3 DO ^DIC
if X=""!(X=U)
GOTO EXIT
+4 IF +Y>0
SET DA=+Y
+5 if Y<0
GOTO EXIT
DO ^DIE
+6 KILL DIC,DA,DIE
GOTO EN1
EXIT WRITE @IOF,!!
KILL DIC,DIE,DA,Y,X,DR,HD,DLAYGO
QUIT
