DGYNPRE ;ALB/ABR - pre-init for DG*5.3*36;10-04-94
 ;;5.3;Registration;**36**;Aug 13, 1993
 ;
 ; 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