DVBASITE.m

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 ---DVBASITE   471     printed  Apr 09, 2024@20:56:23                                                                                                                                                                                                     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