Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: DGJPAR

DGJPAR.m

Go to the documentation of this file.

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  Apr 09, 2024@21:02:53                                                                                                                                                                                                       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