Changeset 1597 for lang-file4mu1and2/DILAI002.m
- Timestamp:
- Nov 14, 2012, 2:24:22 PM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
lang-file4mu1and2/DILAI002.m
r1594 r1597 1 DILAI002 ; ; 02-NOV-2012 1 DILAI002 ; ; 02-NOV-2012 ; 11/9/12 11:29am 2 2 ;;22.2;LANGUAGE FILE INITS;;NOV 02, 2012 3 3 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 399 399 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",0) 400 ;;=.85^E^(Pseudo-)Mne umonic index for the Alternate three letter code^MU^^F^IR^I^.85^^^^^LS400 ;;=.85^E^(Pseudo-)Mnemonic index for the Alternate three letter code^MU^^F^IR^I^.85^^^^^LS 401 401 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,0) 402 402 ;;=^^6^6^3121031^ 403 403 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,1,0) 404 ;;=This will add entries to the Cindex for the three letter code a la the404 ;;=This will add entries to the D index for the three letter code a la the 405 405 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,2,0) 406 406 ;;=mnemonic style. … … 410 410 ;;=If you need re-cross-reference this field, you need to kill of the 411 411 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,5,0) 412 ;;=entries in the regular C index, set the Cindex, and then set this index412 ;;=entries in the regular D index, set the D index, and then set this index 413 413 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",.1,6,0) 414 ;;=to update the Cwith the mnemonic xrefs.414 ;;=to update the D with the mnemonic xrefs. 415 415 ;;^UTILITY("KX",$J,"IX",.85,.85,"E",1) 416 416 ;;=S ^DI(.85,"D",X,DA)=1
Note:
See TracChangeset
for help on using the changeset viewer.