- 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 ---[H[J[2J[HDG702PRE 279 printed Feb 19, 2025@00:06:40 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