DG702PRE.m

DG702PRE ;BAY/JAT;

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

 ;

 ; 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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DG702PRE   279     printed  Dec 13, 2024@02:40:37                                                                                                                                                                                                     Page 2

DG702PRE  ;BAY/JAT;

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

 +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