Changeset 1597 for lang-file4mu1and2

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.

Location:

lang-file4mu1and2

Files:

• DILAI001.m (modified) (2 diffs)
• DILAI002.m (modified) (3 diffs)
• DINIT.m (modified) (2 diffs)
• DINIT011.m (modified) (2 diffs)
• DINIT012.m (modified) (4 diffs)
• VW-LanguageFiles-DILAINITs-DINIT-2012-11-14.ro (added)
• langFilemods4wv.ro (deleted)

lang-file4mu1and2/DILAI001.m

@@ -1 @@
-DILAI001 ; ; 02-NOV-2012
+DILAI001 ; ; 02-NOV-2012 ; 11/14/12 11:06am
  ;;22.2;LANGUAGE FILE INITS;;NOV 02, 2012
  Q:'DIFQ(.85)  F I=1:2 S X=$T(Q+I) Q:X=""  S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,999) S:$A(Y)=61 Y=$E(Y,2,999) X NO E  S @X=Y
@@ -65 +65 @@
  ;;^DIC(.85,"%D",27,0)
  ;;=mistakes resulting from languages that have similar spelling.
+ ;;^DIC(.85,"%MSC")
+ ;;=3121114.111954
  ;;^DD(.85,0)
  ;;=FIELD^^10^20

lang-file4mu1and2/DILAI002.m

@@ -1 @@
-DILAI002 ; ; 02-NOV-2012
+DILAI002 ; ; 02-NOV-2012 ; 11/9/12 11:29am
  ;;22.2;LANGUAGE FILE INITS;;NOV 02, 2012
  Q:'DIFQ(.85)  F I=1:2 S X=$T(Q+I) Q:X=""  S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,999) S:$A(Y)=61 Y=$E(Y,2,999) X NO E  S @X=Y
@@ -398 +398 @@
  ;;=1^F^.85^.03^30^1^F
  ;;^UTILITY("KX",$J,"IX",.85,.85,"E",0)
- ;;=.85^E^(Pseudo-)Mneumonic index for the Alternate three letter code^MU^^F^IR^I^.85^^^^^LS
+ ;;=.85^E^(Pseudo-)Mnemonic index for the Alternate three letter code^MU^^F^IR^I^.85^^^^^LS
  ;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,0)
  ;;=^^6^6^3121031^
  ;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,1,0)
- ;;=This will add entries to the C index for the three letter code a la the 
+ ;;=This will add entries to the D index for the three letter code a la the 
  ;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,2,0)
  ;;=mnemonic style.
@@ -410 +410 @@
  ;;=If you need re-cross-reference this field, you need to kill of the 
  ;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,5,0)
- ;;=entries in the regular C index, set the C index, and then set this index 
+ ;;=entries in the regular D index, set the D index, and then set this index 
  ;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,6,0)
- ;;=to update the C with the mnemonic xrefs.
+ ;;=to update the D with the mnemonic xrefs.
  ;;^UTILITY("KX",$J,"IX",.85,.85,"E",1)
  ;;=S ^DI(.85,"D",X,DA)=1

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

lang-file4mu1and2/DINIT011.m

@@ -1 @@
-DINIT011 ; SFISC/TKW,VEN/SMH -DIALOG & LANGUAGE FILE INITS ; 3121101 ; 11/2/12 8:40am
+DINIT011 ; SFISC/TKW,VEN/SMH -DIALOG & LANGUAGE FILE INITS ; 3121101 ; 11/14/12 11:07am
  ;;22.0;VA FileMan;**MODIFIED FOR WV 4 LANG FILE**;
  F I=1:2 S X=$T(Q+I) Q:X=""  S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,99) S:$A(Y)=61 Y=$E(Y,2,999) S @X=Y
@@ -65 +65 @@
  ;;^DIC(.85,"%D",27,0)
  ;;=mistakes resulting from languages that have similar spelling.
+ ;;^DIC(.85,"%MSC")
+ ;;=3121114.111954
  ;;^DD(.85,0)
  ;;=FIELD^^10^20

lang-file4mu1and2/DINIT012.m

@@ -1 @@
-DINIT012 ; SFISC/TKW,VEN/SMH - DIALOG & LANGUAGE FILE INITS; 3121101 ; 11/2/12 8:40am
+DINIT012 ; SFISC/TKW,VEN/SMH - DIALOG & LANGUAGE FILE INITS; 3121101 ; 11/9/12 11:03am
  ;;22.0;VA FileMan;**MODIFIED FOR WV 4 LANG FILE**;
  F I=1:2 S X=$T(Q+I) Q:X=""  S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,99) S:$A(Y)=61 Y=$E(Y,2,999) S @X=Y
@@ -398 +398 @@
  ;;=1^F^.85^.03^30^1^F
  ;;^UTILITY("KX",$J,"IX",.85,.85,"E",0)
- ;;=.85^E^(Pseudo-)Mneumonic index for the Alternate three letter code^MU^^F^IR^I^.85^^^^^LS
+ ;;=.85^E^(Pseudo-)Mnemonic index for the Alternate three letter code^MU^^F^IR^I^.85^^^^^LS
  ;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,0)
  ;;=^^6^6^3121031^
  ;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,1,0)
- ;;=This will add entries to the C index for the three letter code a la the 
+ ;;=This will add entries to the D index for the three letter code a la the 
  ;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,2,0)
  ;;=mnemonic style.
@@ -410 +410 @@
  ;;=If you need re-cross-reference this field, you need to kill of the 
  ;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,5,0)
- ;;=entries in the regular C index, set the C index, and then set this index 
+ ;;=entries in the regular D index, set the D index, and then set this index 
  ;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,6,0)
- ;;=to update the C with the mnemonic xrefs.
+ ;;=to update the D with the mnemonic xrefs.
  ;;^UTILITY("KX",$J,"IX",.85,.85,"E",1)
- ;;=S ^DI(.85,"C",X,DA)=1
+ ;;=S ^DI(.85,"D",X,DA)=1
  ;;^UTILITY("KX",$J,"IX",.85,.85,"E",2)
- ;;=K ^DI(.85,"C",X,DA)
+ ;;=K ^DI(.85,"D",X,DA)
  ;;^UTILITY("KX",$J,"IX",.85,.85,"E",11.1,0)
  ;;=^.114IA^1^1
  ;;^UTILITY("KX",$J,"IX",.85,.85,"E",11.1,1,0)
  ;;=1^F^.85^.05^^1^F
- ;;^UTILITY("KX",$J,"IX",.85,.85,"E",11.1,1,3)
- ;;=
  ;;^UTILITY("KX",$J,"KEY",.85,.85,"A",0)
  ;;=.85^A^P^1046
@@ -430 +428 @@
  ;;=.01^.85^1
  ;;^UTILITY("KX",$J,"KEY",.85,.85,"B",0)
- ;;=.85^B^S^1047
+ ;;=.85^B^S^1048
  ;;^UTILITY("KX",$J,"KEY",.85,.85,"B",2,0)
  ;;=^.312IA^1^1
  ;;^UTILITY("KX",$J,"KEY",.85,.85,"B",2,1,0)
- ;;=.02^.85^1
+ ;;=.03^.85^1
  ;;^UTILITY("KX",$J,"KEYPTR",.85,.85,"A")
  ;;=.85^B
  ;;^UTILITY("KX",$J,"KEYPTR",.85,.85,"B")
- ;;=.85^C
+ ;;=.85^D