AUKDIC.m

AUKDIC ;KILLS DICTIONARIES AND THEIR DATA [ 04/07/88  3:15 PM ]

 ;OKLA AREA OFF - LMD

L W !!,"ENTER THE DICTIONARY NUMBER: " S DIC="^DIC(",DIC(0)="QEM" R X:60 D ^DIC Q:Y="^"!(X="")  G L:Y<1 S AGDIC=+Y

L1 K ^DD(AGDIC,0,"PT"),^DD(AGDIC,"TRB") S ^DISV(+$I,"^DIC(")=AGDIC D P^DI G L

AUKDIC    ;KILLS DICTIONARIES AND THEIR DATA [ 04/07/88  3:15 PM ]

 +1       ;OKLA AREA OFF - LMD

L          WRITE !!,"ENTER THE DICTIONARY NUMBER: "

           SET DIC="^DIC("

           SET DIC(0)="QEM"

           READ X:60

           DO ^DIC

           IF Y="^"!(X="")

               QUIT 

           IF Y<1

               GOTO L

           SET AGDIC=+Y

L1         KILL ^DD(AGDIC,0,"PT"),^DD(AGDIC,"TRB")

           SET ^DISV(+$IO,"^DIC(")=AGDIC

           DO P^DI

           GOTO L