Changeset 636 for FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXAS6.m

Timestamp:

Dec 4, 2009, 8:26:01 PM (14 years ago)

Author:

George Lilly

Message:

WorldVistAEHR overlayed on FOIAVistA

Location:

FOIAVistA/tag/r

Files:

• . (copied) (copied from FOIAVistA/trunk/r )
• LEXICON_UTILITY-LEX-GMPT/LEXAS6.m (modified) (2 diffs)

FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXAS6.m

@@ -1 @@
-LEXAS6 ; ISL/FJF Look-up Check Input (TRIM,EXP,TP,SCH); 12/07/2006
- ;;2.0;LEXICON UTILITY;**41**;Sep 23, 1996;Build 34
+LEXAS6 ; ISL Look-up Check Input (TRIM,EXP,TP,SCH); 09-23-96
+ ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
  ;
 TRIM(LEXX) ; Trim string
@@ -47 +47 @@
  . F  S LEXCK=$O(^LEX(757.01,"ASL",LEXCK)) Q:LEXCK=""!('LEXOKL)  D
  . . I $E(LEXCK,LEXI)'="",$E(LEXCK,LEXI)'=LEXLTR S LEXOKL=0 Q
- . . I LEXCK'[LEXC,$E(LEXCK,LEXI)'=LEXLTR S LEXCK="~~~~~~~~~~~" Q
+ . . I LEXCK'[LEXC,$E(LEXCK,LEXI)'=LEXLTR S LEXCK="ZZZZ" Q
  . S:LEXOKL LEXF=LEXF_LEXLTR S:'LEXOKL LEXOK=1
  . S:$D(^LEX(757.01,"AWRD",LEXF)) LEXOK=1