source: WorldVistAEHR/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DG702PRE.m@ 648

Last change on this file since 648 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR
File size: 268 bytes
RevLine 
[613]1DG702PRE ;BAY/JAT;
2 ;;5.3;Registration;**702**;Aug 13,1993
3 ;
4 ; This is a pre-init routine for DG*5.3*702
5 ; The purpose is to fix dd for file 46
6 ;
7EN ;
8 D BMES^XPDUTL("Updating data dictionary for file #46")
9 K ^DD(46,"GL",0,"3 ",.03)
10 S ^DD(46,"GL",0,3,.03)=""
11 Q
Note: See TracBrowser for help on using the repository browser.