Changeset 1597


Ignore:
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:
1 added
1 deleted
5 edited

Legend:

Unmodified
Added
Removed
  • lang-file4mu1and2/DILAI001.m

    r1594 r1597  
    1 DILAI001 ; ; 02-NOV-2012
     1DILAI001 ; ; 02-NOV-2012 ; 11/14/12 11:06am
    22 ;;22.2;LANGUAGE FILE INITS;;NOV 02, 2012
    33 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
     
    6565 ;;^DIC(.85,"%D",27,0)
    6666 ;;=mistakes resulting from languages that have similar spelling.
     67 ;;^DIC(.85,"%MSC")
     68 ;;=3121114.111954
    6769 ;;^DD(.85,0)
    6870 ;;=FIELD^^10^20
  • lang-file4mu1and2/DILAI002.m

    r1594 r1597  
    1 DILAI002 ; ; 02-NOV-2012
     1DILAI002 ; ; 02-NOV-2012 ; 11/9/12 11:29am
    22 ;;22.2;LANGUAGE FILE INITS;;NOV 02, 2012
    33 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
     
    398398 ;;=1^F^.85^.03^30^1^F
    399399 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",0)
    400  ;;=.85^E^(Pseudo-)Mneumonic index for the Alternate three letter code^MU^^F^IR^I^.85^^^^^LS
     400 ;;=.85^E^(Pseudo-)Mnemonic index for the Alternate three letter code^MU^^F^IR^I^.85^^^^^LS
    401401 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,0)
    402402 ;;=^^6^6^3121031^
    403403 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,1,0)
    404  ;;=This will add entries to the C index for the three letter code a la the
     404 ;;=This will add entries to the D index for the three letter code a la the
    405405 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,2,0)
    406406 ;;=mnemonic style.
     
    410410 ;;=If you need re-cross-reference this field, you need to kill of the
    411411 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,5,0)
    412  ;;=entries in the regular C index, set the C index, and then set this index
     412 ;;=entries in the regular D index, set the D index, and then set this index
    413413 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,6,0)
    414  ;;=to update the C with the mnemonic xrefs.
     414 ;;=to update the D with the mnemonic xrefs.
    415415 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",1)
    416416 ;;=S ^DI(.85,"D",X,DA)=1
  • lang-file4mu1and2/DINIT.m

    r1594 r1597  
    1 DINIT ;SFISC/GFT,XAK-INITIALIZE VA FILEMAN ;1:06 PM  30 Mar 1999 ; 11/2/12 8:39am
     1DINIT ;SFISC/GFT,XAK-INITIALIZE VA FILEMAN ;1:06 PM  30 Mar 1999 ; 11/14/12 11:18am
    22V ;;22.0;VA FileMan;**MODIFIED FOR WV 4 LANG FILE**;
    33 D KL^DINIT6
     
    6868 . Q
    6969 ;
    70  K ^UTILITY(U,$J),^UTILITY("DIK",$J) W !!,"Now loading DIALOG and LANGUAGE Files"
    71  K ^DIC(.85),^DD(.85),^DD(.8501),^DD(.8502),^DI(.85) ; VEN/SMH - Kill the language file old DD, DIC and data. (22.2)
     70 K ^UTILITY(U,$J),^UTILITY("DIK",$J),^UTILITY("KX",$J) W !!,"Now loading DIALOG and LANGUAGE Files"
     71 K:$G(^DIC(.85,"%MSC"))'=3121114.111954 ^DI(.85) ; VEN/SMH If lang file dd isn't the latest one, kill data off.
     72 K ^DIC(.85),^DD(.85),^DD(.8501),^DD(.8502) ; VEN/SMH - Kill the language file old DD, DIC and data. (22.2)
    7273 S DN="^DINIT" F R=1:1:39 D @(DN_$$B36(R)) W "."
    7374 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

    r1594 r1597  
    1 DINIT011 ; SFISC/TKW,VEN/SMH -DIALOG & LANGUAGE FILE INITS ; 3121101 ; 11/2/12 8:40am
     1DINIT011 ; SFISC/TKW,VEN/SMH -DIALOG & LANGUAGE FILE INITS ; 3121101 ; 11/14/12 11:07am
    22 ;;22.0;VA FileMan;**MODIFIED FOR WV 4 LANG FILE**;
    33 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
     
    6565 ;;^DIC(.85,"%D",27,0)
    6666 ;;=mistakes resulting from languages that have similar spelling.
     67 ;;^DIC(.85,"%MSC")
     68 ;;=3121114.111954
    6769 ;;^DD(.85,0)
    6870 ;;=FIELD^^10^20
  • lang-file4mu1and2/DINIT012.m

    r1594 r1597  
    1 DINIT012 ; SFISC/TKW,VEN/SMH - DIALOG & LANGUAGE FILE INITS; 3121101 ; 11/2/12 8:40am
     1DINIT012 ; SFISC/TKW,VEN/SMH - DIALOG & LANGUAGE FILE INITS; 3121101 ; 11/9/12 11:03am
    22 ;;22.0;VA FileMan;**MODIFIED FOR WV 4 LANG FILE**;
    33 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
     
    398398 ;;=1^F^.85^.03^30^1^F
    399399 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",0)
    400  ;;=.85^E^(Pseudo-)Mneumonic index for the Alternate three letter code^MU^^F^IR^I^.85^^^^^LS
     400 ;;=.85^E^(Pseudo-)Mnemonic index for the Alternate three letter code^MU^^F^IR^I^.85^^^^^LS
    401401 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,0)
    402402 ;;=^^6^6^3121031^
    403403 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,1,0)
    404  ;;=This will add entries to the C index for the three letter code a la the
     404 ;;=This will add entries to the D index for the three letter code a la the
    405405 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,2,0)
    406406 ;;=mnemonic style.
     
    410410 ;;=If you need re-cross-reference this field, you need to kill of the
    411411 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,5,0)
    412  ;;=entries in the regular C index, set the C index, and then set this index
     412 ;;=entries in the regular D index, set the D index, and then set this index
    413413 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,6,0)
    414  ;;=to update the C with the mnemonic xrefs.
     414 ;;=to update the D with the mnemonic xrefs.
    415415 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",1)
    416  ;;=S ^DI(.85,"C",X,DA)=1
     416 ;;=S ^DI(.85,"D",X,DA)=1
    417417 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",2)
    418  ;;=K ^DI(.85,"C",X,DA)
     418 ;;=K ^DI(.85,"D",X,DA)
    419419 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",11.1,0)
    420420 ;;=^.114IA^1^1
    421421 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",11.1,1,0)
    422422 ;;=1^F^.85^.05^^1^F
    423  ;;^UTILITY("KX",$J,"IX",.85,.85,"E",11.1,1,3)
    424  ;;=
    425423 ;;^UTILITY("KX",$J,"KEY",.85,.85,"A",0)
    426424 ;;=.85^A^P^1046
     
    430428 ;;=.01^.85^1
    431429 ;;^UTILITY("KX",$J,"KEY",.85,.85,"B",0)
    432  ;;=.85^B^S^1047
     430 ;;=.85^B^S^1048
    433431 ;;^UTILITY("KX",$J,"KEY",.85,.85,"B",2,0)
    434432 ;;=^.312IA^1^1
    435433 ;;^UTILITY("KX",$J,"KEY",.85,.85,"B",2,1,0)
    436  ;;=.02^.85^1
     434 ;;=.03^.85^1
    437435 ;;^UTILITY("KX",$J,"KEYPTR",.85,.85,"A")
    438436 ;;=.85^B
    439437 ;;^UTILITY("KX",$J,"KEYPTR",.85,.85,"B")
    440  ;;=.85^C
     438 ;;=.85^D
Note: See TracChangeset for help on using the changeset viewer.