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

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

initial load of WorldVistAEHR

File size: 415 bytes
RevLine 
[613]1DG53727P ;ALB/DHH - post-install for DG*5.3*727 ; 8/14/2006
2 ;;5.3;Registration;**727**;Aug 13, 1993
3EN ;
4 ;recompile input templates
5 N X,Y,DMAX,MESS
6 S X="DGX5F"
7 S Y=$$FIND1^DIC(.402,"","MX","DG501F")
8 I Y<0 S MESS="Error in re-compiling DG501F input template." D MESS Q
9 S DMAX=8000
10 D EN^DIEZ
11 S MESS="DG501F input template has been re-compiled."
12 D MESS
13 Q
14 ;
15MESS ;
16 D MES^XPDUTL("")
17 D BMES^XPDUTL(MESS)
18 Q
Note: See TracBrowser for help on using the repository browser.