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

DG702PRE.m

Go to the documentation of this file.

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)=""

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDG702PRE   279     printed  Apr 09, 2024@21:48:41                                                                                                                                                                                                     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