Changeset 1597 for lang-file4mu1and2/DINIT012.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/DINIT012.m (modified) (4 diffs)

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