DGJPAR.m

DGJPAR ;MAF/ALB - PARAMETER SET UP FOR IRT ; JUN 21,1991@8:00

 ;;5.3;Registration;**1015**;Aug 13, 1993;Build 21

 S DIC="^DG(40.8,",DIC(0)="AEMQ" D ^DIC G:Y'>0 QUIT

 S DIE=DIC,DA=+Y,DR="[DGJ IRT PARAMETERS]" D ^DIE

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

DGJPAR    ;MAF/ALB - PARAMETER SET UP FOR IRT ; JUN 21,1991@8:00

 +1       ;;5.3;Registration;**1015**;Aug 13, 1993;Build 21

 +2        SET DIC="^DG(40.8,"

           SET DIC(0)="AEMQ"

           DO ^DIC

           IF Y'>0

               GOTO QUIT

 +3        SET DIE=DIC

           SET DA=+Y

           SET DR="[DGJ IRT PARAMETERS]"

           DO ^DIE

QUIT       KILL DIC,DIE,DA,DR,X,Y

           QUIT