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

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

initial load of FOIAVistA 6/30/08 version

File size: 463 bytes
Line 
1DG53721P ;ALB/MHG - post-install for DG*5.3*721
2 ;;5.3;Registration;**721**;Aug 13, 1993;Build 3
3EN ;
4 ;recompile input templates
5 N X,Y,DMAX,MESS
6 S X="DGPMX6"
7 S Y=$$FIND1^DIC(.402,"","MX","DGPM SPECIALTY TRANSFER")
8 I Y<0 S MESS="Error in re-compiling DGPM SPECIALTY TRANSFER input template." D MESS Q
9 S DMAX=8000
10 D EN^DIEZ
11 S MESS="DGPM SPECIALTY TRANSFER 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.