DGYNPRE.m

DGYNPRE ;ALB/ABR - pre-init for DG*5.3*36;10-04-94

 ;;5.3;Registration;**36,1015**;Aug 13, 1993;Build 21

 ;

 ; delete field TSR ORDER to remove NO-DELETION message prior to init.

EN ;entry point for pre-init

 S DIK="^DD(40.806,",DA(1)=40.806,DA=.04

 D ^DIK

 Q

DGYNPRE   ;ALB/ABR - pre-init for DG*5.3*36;10-04-94

 +1       ;;5.3;Registration;**36,1015**;Aug 13, 1993;Build 21

 +2       ;

 +3       ; delete field TSR ORDER to remove NO-DELETION message prior to init.

EN        ;entry point for pre-init

 +1        SET DIK="^DD(40.806,"

           SET DA(1)=40.806

           SET DA=.04

 +2        DO ^DIK

 +3        QUIT