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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGJPAR 245 printed Dec 13, 2024@02:00:41 Page 2
DGJPAR ;MAF/ALB - PARAMETER SET UP FOR IRT ; JUN 21,1991@8:00
+1 ;;1.0;Incomplete Records Tracking;;Jun 25, 2001
+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
