DGYDPT.m

DGYDPT ;ALB/ESD - DG*5.3*9 Post Init Routine ;10/25/93

 ;;5.3;Registration;**9**;Aug 13, 1993

 ; This removes screen.

 S X="DGJ EDIT COMP IRT SUPER",DIC(0)="X",DIC="^ORD(101,"

 D ^DIC

 S DIE=DIC,DA=+Y,DR="24///@"

 D ^DIE K DIE,DIC,DA,DR,X,Y

 ; This runs ONITS.

 D ^DGYDONIT

 ; This loads the list template.

 D ^DGYDL

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DGYDPT   332     printed  Dec 13, 2024@03:00:08                                                                                                                                                                                                       Page 2

DGYDPT    ;ALB/ESD - DG*5.3*9 Post Init Routine ;10/25/93

 +1       ;;5.3;Registration;**9**;Aug 13, 1993

 +2       ; This removes screen.

 +3        SET X="DGJ EDIT COMP IRT SUPER"

           SET DIC(0)="X"

           SET DIC="^ORD(101,"

 +4        DO ^DIC

 +5        SET DIE=DIC

           SET DA=+Y

           SET DR="24///@"

 +6        DO ^DIE

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

 +7       ; This runs ONITS.

 +8        DO ^DGYDONIT

 +9       ; This loads the list template.

 +10       DO ^DGYDL

 +11       QUIT