DGJPAR ;MAF/ALB - PARAMETER SET UP FOR IRT ; JUN 21,1991@8:00
 ;;1.0;Incomplete Records Tracking;;Jun 25, 2001
 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