19 lines
463 B
Mathematica
19 lines
463 B
Mathematica
|
DG53721P ;ALB/MHG - post-install for DG*5.3*721
|
||
|
|
;;5.3;Registration;**721**;Aug 13, 1993;Build 3
|
||
|
|
EN ;
|
||
|
|
;recompile input templates
|
||
|
|
N X,Y,DMAX,MESS
|
||
|
|
S X="DGPMX6"
|
||
|
|
S Y=$$FIND1^DIC(.402,"","MX","DGPM SPECIALTY TRANSFER")
|
||
|
|
I Y<0 S MESS="Error in re-compiling DGPM SPECIALTY TRANSFER input template." D MESS Q
|
||
|
|
S DMAX=8000
|
||
|
|
D EN^DIEZ
|
||
|
|
S MESS="DGPM SPECIALTY TRANSFER input template has been re-compiled."
|
||
|
|
D MESS
|
||
|
|
Q
|
||
|
|
;
|
||
|
|
MESS ;
|
||
|
|
D MES^XPDUTL("")
|
||
|
|
D BMES^XPDUTL(MESS)
|
||
|
|
Q
|