AQACVNDR.m

AQACVNDR ;IHS/ASU/RPL ;ADD/EDIT VENDOR FILE ; 11/20/89  12:54 PM

 ;;2.04

START S DIC="^AUTTVNDR(",DIC(0)="AEMQL",DIC("DR")=".01;1103;1109;1301;1302;1303;1304"

 D ^DIC I $P(Y,"^",3)=1!(Y=-1) G QUIT

 S DIE="^AUTTVNDR(",DA=+Y,DR=".01;1103;1109;1301;1302;1303;1304"

 D ^DIE

QUIT K DIC,DIE,DR Q

AQACVNDR  ;IHS/ASU/RPL ;ADD/EDIT VENDOR FILE ; 11/20/89  12:54 PM

 +1       ;;2.04

START      SET DIC="^AUTTVNDR("

           SET DIC(0)="AEMQL"

           SET DIC("DR")=".01;1103;1109;1301;1302;1303;1304"

 +1        DO ^DIC

           IF $PIECE(Y,"^",3)=1!(Y=-1)

               GOTO QUIT

 +2        SET DIE="^AUTTVNDR("

           SET DA=+Y

           SET DR=".01;1103;1109;1301;1302;1303;1304"

 +3        DO ^DIE

QUIT       KILL DIC,DIE,DR

           QUIT