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

DGYNPRE.m

Go to the documentation of this file.

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGYNPRE   254     printed  Apr 09, 2024@21:41:32                                                                                                                                                                                                      Page 2

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

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

 +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