- 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 Feb 18, 2025@23:27:03 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