Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: VATREDIT

VATREDIT.m

Go to the documentation of this file.

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  Apr 09, 2024@21:55:15                                                                                                                                                                                                     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