Changeset 1597 for lang-file4mu1and2/DINIT.m

Timestamp:

Nov 14, 2012, 2:24:22 PM (12 years ago)

Author:

Sam Habiel

Message:

updated lang files; now doesn't delete old lang file data if same version.

File:

• lang-file4mu1and2/DINIT.m (modified) (2 diffs)

lang-file4mu1and2/DINIT.m

@@ -1 @@
-DINIT ;SFISC/GFT,XAK-INITIALIZE VA FILEMAN ;1:06 PM  30 Mar 1999 ; 11/2/12 8:39am
+DINIT ;SFISC/GFT,XAK-INITIALIZE VA FILEMAN ;1:06 PM  30 Mar 1999 ; 11/14/12 11:18am
 V ;;22.0;VA FileMan;**MODIFIED FOR WV 4 LANG FILE**;
  D KL^DINIT6
@@ -68 +68 @@
  . Q
  ;
- K ^UTILITY(U,$J),^UTILITY("DIK",$J) W !!,"Now loading DIALOG and LANGUAGE Files"
- K ^DIC(.85),^DD(.85),^DD(.8501),^DD(.8502),^DI(.85) ; VEN/SMH - Kill the language file old DD, DIC and data. (22.2)
+ K ^UTILITY(U,$J),^UTILITY("DIK",$J),^UTILITY("KX",$J) W !!,"Now loading DIALOG and LANGUAGE Files"
+ K:$G(^DIC(.85,"%MSC"))'=3121114.111954 ^DI(.85) ; VEN/SMH If lang file dd isn't the latest one, kill data off.
+ K ^DIC(.85),^DD(.85),^DD(.8501),^DD(.8502) ; VEN/SMH - Kill the language file old DD, DIC and data. (22.2)
  S DN="^DINIT" F R=1:1:39 D @(DN_$$B36(R)) W "."
  S $P(^DIC(.84,0),U,1,2)="DIALOG^.84",$P(^DI(.84,0),U,1,2)="DIALOG^.84I" I $D(^DIC(.84,0,"GL")) D A1^DINIT3