VATREDIT.m

VATREDIT ;ALB/AS - Enter/Edit TRANSMISSION ROUTERS File ; Jun 24 88 @1200

 ;;5.3;Registration;;Aug 13, 1993

 ;

 S DIC(0)="AEQM",DIC="^VAT(407.7," D ^DIC G Q:Y'>0 S DA=+Y,DIE=DIC,DR=1,DR(2,407.71)=".01:3" K DIC D ^DIE

Q K DIC,DIE,DA,DR,Y Q

VATREDIT  ;ALB/AS - Enter/Edit TRANSMISSION ROUTERS File ; Jun 24 88 @1200

 +1       ;;5.3;Registration;;Aug 13, 1993

 +2       ;

 +3        SET DIC(0)="AEQM"

           SET DIC="^VAT(407.7,"

           DO ^DIC

           IF Y'>0

               GOTO Q

           SET DA=+Y

           SET DIE=DIC

           SET DR=1

           SET DR(2,407.71)=".01:3"

           KILL DIC

           DO ^DIE

Q          KILL DIC,DIE,DA,DR,Y

           QUIT