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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HVATREDIT 244 printed Sep 23, 2025@20:39:52 Page 2
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
