DG702PRE.m

DG702PRE ;BAY/JAT;

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

 ;

 ; This is a pre-init routine for DG*5.3*702

 ; The purpose is to fix dd for file 46

 ;

EN ;

 D BMES^XPDUTL("Updating data dictionary for file #46")

 K ^DD(46,"GL",0,"3 ",.03)

 S ^DD(46,"GL",0,3,.03)=""

 Q

DG702PRE  ;BAY/JAT;

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

 +2       ;

 +3       ; This is a pre-init routine for DG*5.3*702

 +4       ; The purpose is to fix dd for file 46

 +5       ;

EN        ;

 +1        DO BMES^XPDUTL("Updating data dictionary for file #46")

 +2        KILL ^DD(46,"GL",0,"3 ",.03)

 +3        SET ^DD(46,"GL",0,3,.03)=""

 +4        QUIT