Ignore:
Timestamp:
Dec 4, 2009, 8:26:01 PM (15 years ago)
Author:
George Lilly
Message:

WorldVistAEHR overlayed on FOIAVistA

Location:
FOIAVistA/tag/r
Files:
139 edited
1 copied

Legend:

Unmodified
Added
Removed

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/GMPTSET.m

    r628 r636  
    11GMPTSET ; ISL Setup Appl/User Defaults for Look-up ; 10-25-96
    2  ;;2.0;LEXICON UTILITY;**2**;Aug 15, 1996
     2 ;;2.0;LEXICON UTILITY;**2**;Aug 15, 1996;Build 1
    33 ;
    44 ; Replaces Clinical Lexicon Utility v 1.0 GMPTSET and re-directs

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/GMPTU.m

    r628 r636  
    11GMPTU ; ISL Miscellaneous Lexicon Utilities      ; 10-25-96
    2  ;;2.0;LEXICON UTILITY;**2**;Aug 15, 1996
     2 ;;2.0;LEXICON UTILITY;**2**;Aug 15, 1996;Build 1
    33 ;
    44 ; Replaces Clinical Lexicon Utility v 1.0 GMPTU and re-directs

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEX2040.m

    r628 r636  
    11LEX2040 ; ISL/KER - Environment Check/Pre/Post Install ; 04/06/2006
    2  ;;2.0;LEXICON UTILITY;**40**;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;**40**;Sep 23, 1996;Build 1
    33 ;                     
    44 ; External References

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEX2040P.m

    r628 r636  
    11LEX2040P ; ISL/KER - Pre/Post Install ; 04/06/2006
    2  ;;2.0;LEXICON UTILITY;**40**;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;**40**;Sep 23, 1996;Build 1
    33 ;
    44 ; External References

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEX2042.m

    r628 r636  
    11LEX2042 ; ISL/KER - Environment Check/Pre/Post Install ; 04/06/2006
    2  ;;2.0;LEXICON UTILITY;**42**;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;**42**;Sep 23, 1996;Build 1
    33 ;                     
    44 ; External References

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEX2042P.m

    r628 r636  
    11LEX2042P ; ISL/KER - Pre/Post Install ; 07/01/2006
    2  ;;2.0;LEXICON UTILITY;**42**;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;**42**;Sep 23, 1996;Build 1
    33 ;
    44 ; External References

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEX2045.m

    r628 r636  
    11LEX2045 ; ISL/KER - Environment Check/Pre/Post Install ; 09/13/2006
    2  ;;2.0;LEXICON UTILITY;**45**;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;**45**;Sep 23, 1996;Build 1
    33 ;                     
    44 ; External References

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEX2045P.m

    r628 r636  
    11LEX2045P ; ISL/KER - Pre/Post Install ; 09/13/2006
    2  ;;2.0;LEXICON UTILITY;**45**;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;**45**;Sep 23, 1996;Build 1
    33 ;
    44 ; External References

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXA.m

    r628 r636  
    11LEXA ; ISA/FJF/KER-Look-up (Silent) ; 09/06/2006
    2  ;;2.0;LEXICON UTILITY;**3,4,6,19,25,36,38,43**;Sep 23, 1996;Build 24
     2 ;;2.0;LEXICON UTILITY;**3,4,6,19,25,36,38,43**;Sep 23, 1996;Build 1
    33 ;
    44 ; External References

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXA1.m

    r628 r636  
    11LEXA1 ; ISA/CJE-Lexicon Look-up (Loud) ; 02/02/2006
    2  ;;2.0;LEXICON UTILITY;**3,4,6,11,15,38**;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;**3,4,6,11,15,38**;Sep 23, 1996;Build 1
    33 ; CJE; Force quit when user enters '^' at search prompt.
    44 ; JPK; Display code attached to a selected term

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXA2.m

    r628 r636  
    11LEXA2 ;ISL/KER-Look-up (Loud) Select ; 02/02/2006
    2  ;;2.0;LEXICON UTILITY;**38**;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;**38**;Sep 23, 1996;Build 1
    33 ;
    44SELECT ; Select from List

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXA3.m

    r628 r636  
    11LEXA3 ; ISL Look-up (Loud) Functions             ; 01-13-97
    2  ;;2.0;LEXICON UTILITY;**1,4**;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;**1,4**;Sep 23, 1996;Build 1
    33 ;
    44DH ; Display Help                 LEX("HLP")

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXA4.m

    r628 r636  
    11LEXA4 ;ISA/CJE-Look-up (Loud) Unresolved Narrative ;01-13-00
    2  ;;2.0;LEXICON UTILITY;**3,6,15**;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;**3,6,15**;Sep 23, 1996;Build 1
    33 ; JPK;Added more explanatory help text for display
    44 ;

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXAB.m

    r628 r636  
    11LEXAB ; ISL/KER Look-up Exact Match "B" index ; 05/14/2003
    2  ;;2.0;LEXICON UTILITY;**25**;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;**25**;Sep 23, 1996;Build 1
    33 ;
    44 ; External References

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXABC.m

    r628 r636  
    11LEXABC ; ISL/KER - Look-up by Code ; 02/02/2006
    2  ;;2.0;LEXICON UTILITY;**4,25,26,29,38**;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;**4,25,26,29,38**;Sep 23, 1996;Build 1
    33 ;
    44 ; S X=$$EN^LEXABC(CODE,LEXVDT)

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXABC2.m

    r628 r636  
    11LEXABC2 ; ISL Look-up by Code (part 2)             ; 01-25-97
    2  ;;2.0;LEXICON UTILITY;**4**;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;**4**;Sep 23, 1996;Build 1
    33 ;
    44REO ; Reorder list

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXAFIL.m

    r628 r636  
    11LEXAFIL ; ISL Lookup Filter                        ; 09-23-96
    2  ;;2.0;LEXICON UTILITY;;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
    33 ;
    44 ; S LEXFILR=$$EN^LEXAFIL(LEXFIL,LEXE)

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXAL.m

    r628 r636  
    11LEXAL ; ISL Look-up List (Global)                ; 10-15-97
    2  ;;2.0;LEXICON UTILITY;**6**;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;**6**;Sep 23, 1996;Build 1
    33 ;
    44 ; Add to the list

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXAL2.m

    r628 r636  
    11LEXAL2 ; ISL Look-up List (Array)                 ; 09-23-96
    2  ;;2.0;LEXICON UTILITY;;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
    33 ;
    44 ;  LEXL        Last on List

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXALK.m

    r628 r636  
    11LEXALK ; ISL/KER Look-up by Words ; 05/14/2003
    2  ;;2.0;LEXICON UTILITY;**2,3,6,25**;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;**2,3,6,25**;Sep 23, 1996;Build 1
    33 ;
    44 ; External References

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXAM.m

    r628 r636  
    11LEXAM ; ISL Look-up Misc (Setup/Parse)           ; 09-23-96
    2  ;;2.0;LEXICON UTILITY;;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
    33 ;
    44SETUP(LEXSUB) ; Set up search variables

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXAMD.m

    r628 r636  
    11LEXAMD ; ISL/KER Look-up Modifiers ; 05/14/2003
    2  ;;2.0;LEXICON UTILITY;**6,25**;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;**6,25**;Sep 23, 1996;Build 1
    33 ;
    44 ; LEXX     IEN file 757.01 of an expression w/Modifiers

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXAMD2.m

    r628 r636  
    11LEXAMD2 ; ISL Look-up Check Modifiers              ; 10-15-97
    2  ;;2.0;LEXICON UTILITY;**6**;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;**6**;Sep 23, 1996;Build 1
    33 Q
    44CHKMOD ; Check Modifiers

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXAR.m

    r628 r636  
    11LEXAR ;ISA/FJF/KER-Look-up (Interpret User Response) ; 05/14/2003
    2  ;;2.0;LEXICON UTILITY;**3,19,25**;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;**3,19,25**;Sep 23, 1996;Build 1
    33 ;
    44 ; User Responses

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXAR2.m

    r628 r636  
    11LEXAR2 ; ISL Look-up Response (up arrow/jump/null); 09-23-96
    2  ;;2.0;LEXICON UTILITY;;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
    33 ;
    44UPA(LEXUR) ; Up-Arrow Detected

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXAR3.m

    r628 r636  
    11LEXAR3 ; ISL Look-up Response (Help, Def, MAX)    ; 09-23-96
    2  ;;2.0;LEXICON UTILITY;;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
    33 ;
    44HLP ; Help

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXAR4.m

    r628 r636  
    11LEXAR4 ; ISL/KER Look-up Response (Select Entry) ; 05/14/2003
    2  ;;2.0;LEXICON UTILITY;**4,5,6,25**;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;**4,5,6,25**;Sep 23, 1996;Build 1
    33 ;
    44 ; External References

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXAR5.m

    r628 r636  
    11LEXAR5 ; ISL/KER - Look-up Response (Select Entry) ; 02/02/2006
    2  ;;2.0;LEXICON UTILITY;**14,25,26,38**;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;**14,25,26,38**;Sep 23, 1996;Build 1
    33 ;
    44 ; External References

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXAR6.m

    r628 r636  
    11LEXAR6 ; ISL Look-up Response (Unresolved Narr)   ; 05/25/1998
    2  ;;2.0;LEXICON UTILITY;**3,9,11**;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;**3,9,11**;Sep 23, 1996;Build 1
    33 ;
    44 Q

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXAR7.m

    r628 r636  
    11LEXAR7 ; ISL Look-up Response (MAIL)              ; 05/14/2003
    2  ;;2.0;LEXICON UTILITY;**9,25**;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;**9,25**;Sep 23, 1996;Build 1
    33 ;
    44 Q

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXAS.m

    r628 r636  
    11LEXAS ; ISL Look-up Check Input                  ; 09-23-96
    2  ;;2.0;LEXICON UTILITY;**4**;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;**4**;Sep 23, 1996;Build 1
    33 ;
    44SPL(LEXX) ; Check word

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXAS2.m

    r628 r636  
    11LEXAS2 ; ISL Look-up Check Input (ONE)            ; 09-23-96
    2  ;;2.0;LEXICON UTILITY;;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
    33 ;
    44ONE(LEXX) ; One letter missing/incorrect

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXAS3.m

    r628 r636  
    11LEXAS3 ; ISL Look-up Check Input (SHIFT)          ; 09-23-96
    2  ;;2.0;LEXICON UTILITY;;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
    33 ;
    44SHIFT(LEXX) ; Letters are shifted out of position

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXAS4.m

    r628 r636  
    11LEXAS4 ; ISL Look-up Check Input (DBL,REM)        ; 09-23-96
    2  ;;2.0;LEXICON UTILITY;;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
    33 ;
    44DBL(LEXX) ; Excessive Double Characters

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXAS5.m

    r628 r636  
    11LEXAS5 ; ISL Look-up Check Input (SPLIT)          ; 09-23-96
    2  ;;2.0;LEXICON UTILITY;;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
    33 ;
    44 ;

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

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

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXAS7.m

    r628 r636  
    11LEXAS7 ; ISL Look-up Check Input (LC,TC)          ; 09-23-96
    2  ;;2.0;LEXICON UTILITY;;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
    33 ;
    44LC(LEXX) ; Leading characters

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXASC.m

    r628 r636  
    11LEXASC ; ISL/KER Look-up by Shortcuts ; 05/14/2003
    2  ;;2.0;LEXICON UTILITY;**25**;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;**25**;Sep 23, 1996;Build 1
    33 ;
    44 ; ^TMP("LEXFND",$J)  Entries found

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXASO.m

    r628 r636  
    11LEXASO ; ISL/KER Look-up Display String (Sources) ; 05/14/2003
    2  ;;2.0;LEXICON UTILITY;**25,32**;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;**25,32**;Sep 23, 1996;Build 1
    33 ;
    44 ; Entry S X=$$SO^LEXASO(IEN,SAB,ALL,DATE)

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXCODE.m

    r628 r636  
    11LEXCODE ; ISL/KER Retrieval of IEN^Term based on Code ; 05/14/2003
    2  ;;2.0;LEXICON UTILITY;**25**;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;**25**;Sep 23, 1996;Build 1
    33 ;
    44 ; External References

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXDCC.m

    r628 r636  
    11LEXDCC ; ISL Default Display                      ; 09-23-96
    2  ;;2.0;LEXICON UTILITY;;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
    33 ;
    44 ; Entry:  D EN^LEXDCC             LEXAP is unknown

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXDCCC.m

    r628 r636  
    11LEXDCCC ; ISL Default Display - Create             ; 09-23-96
    2  ;;2.0;LEXICON UTILITY;;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
    33 ;
    44 ; Entry:  S X=$$EN^LEXDCCC

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXDCCS.m

    r628 r636  
    11LEXDCCS ; ISL Default Display - Select             ; 09-23-96
    2  ;;2.0;LEXICON UTILITY;;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
    33 ;
    44 ; Special Look-up in file 757.31 Display formats

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXDCX.m

    r628 r636  
    11LEXDCX ; ISL Default Shortcut Context             ; 09-23-96
    2  ;;2.0;LEXICON UTILITY;;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
    33 ;
    44 ; Entry:  D EN^LEXDCX              LEXAP is unknown

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXDCXS.m

    r628 r636  
    11LEXDCXS ; ISL Default Context - Select             ; 09-23-96
    2  ;;2.0;LEXICON UTILITY;;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
    33 ;
    44 ; Special Look-up in file 757.41 Shortcut Context

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXDD1.m

    r628 r636  
    11LEXDD1 ; ISL Display Defaults                     ; 09-23-96
    2  ;;2.0;LEXICON UTILITY;;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
    33 ;
    44SHOW ; Show user defaults

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXDD2.m

    r628 r636  
    11LEXDD2 ; ISL Display Defaults - Build List        ; 09-23-96
    2  ;;2.0;LEXICON UTILITY;;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
    33 ;
    44BUILD ; Display defaults

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXDD3.m

    r628 r636  
    11LEXDD3 ; ISL Display Defaults - Display List      ; 09-23-96
    2  ;;2.0;LEXICON UTILITY;;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
    33 ;
    44DSPLY ; Display Defaults contained in LEXD(

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXDD4.m

    r628 r636  
    11LEXDD4 ; ISL Display Defaults - List Elements     ; 09-23-96
    2  ;;2.0;LEXICON UTILITY;;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
    33 ;
    44 ; Create the Display for a user

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXDDS.m

    r628 r636  
    11LEXDDS ; ISL Display Defaults - Single User       ; 09-23-96
    2  ;;2.0;LEXICON UTILITY;;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
    33 ;
    44 ; Entry:  D EN^LEXDDS              LEXAP is unknown

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXDDSD.m

    r628 r636  
    11LEXDDSD ; ISL Display Defaults - Single User Disp  ; 09-23-96
    2  ;;2.0;LEXICON UTILITY;;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
    33 ;
    44LEXSHOW ; Translate LEXSHOW

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXDDSP.m

    r628 r636  
    11LEXDDSP ; ISL Display Defaults - Single User Parse ; 09-23-96
    2  ;;2.0;LEXICON UTILITY;;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
    33 ;
    44 ;

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXDDSS.m

    r628 r636  
    11LEXDDSS ; ISL Display Defaults - Single User Save  ; 09-23-96
    2  ;;2.0;LEXICON UTILITY;;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
    33 ;
    44 ; Saves default elements into the local array LEX

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXDDT1.m

    r628 r636  
    11LEXDDT1 ; ISL Display Defaults - Translate String  ; 09-23-96
    2  ;;2.0;LEXICON UTILITY;;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
    33 ;
    44EN ; String Type

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXDDT2.m

    r628 r636  
    11LEXDDT2 ; ISL Display Defaults - Concatenate Text  ; 09-23-96
    2  ;;2.0;LEXICON UTILITY;;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
    33 ;
    44CONCAT ; Concatenation of Data Elements

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXDDTC.m

    r628 r636  
    11LEXDDTC ; ISL Display Defaults - Shortcut Context  ; 09-23-96
    2  ;;2.0;LEXICON UTILITY;;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
    33 ;
    44CON ; Shortcut Context

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXDDTD.m

    r628 r636  
    11LEXDDTD ; ISL Display Defaults - Display           ; 09-23-96
    2  ;;2.0;LEXICON UTILITY;;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
    33 ;
    44DSO ; Display Sources

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXDDTF.m

    r628 r636  
    11LEXDDTF ; ISL Display Defaults - Filter            ; 09-23-96
    2  ;;2.0;LEXICON UTILITY;;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
    33 ;
    44SC ; Filter by Semantic Classifications

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXDDTV.m

    r628 r636  
    11LEXDDTV ; ISL Display Defaults - Vocabulary        ; 09-23-96
    2  ;;2.0;LEXICON UTILITY;;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
    33 ;
    44SUB ; Select between Logical and Physical Subsets

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXDFL.m

    r628 r636  
    11LEXDFL ; ISL Default Filter                       ; 09-23-96
    2  ;;2.0;LEXICON UTILITY;;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
    33 ;
    44 ; Entry:  D EN^LEXDFL             LEXAP is unknown

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXDFLC.m

    r628 r636  
    11LEXDFLC ; ISL Default Filter - Create              ; 09-23-96
    2  ;;2.0;LEXICON UTILITY;;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
    33 ;
    44 ; Entry:  S X=$$EN^LEXDFLC

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXDFLS.m

    r628 r636  
    11LEXDFLS ; ISL Default Filter - Select              ; 09-23-96
    2  ;;2.0;LEXICON UTILITY;;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
    33 ;
    44 ; Special Look-up in file 757.3 Screens

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXDFLT.m

    r628 r636  
    11LEXDFLT ; ISL Default Filter - Filter Type         ; 09-23-96
    2  ;;2.0;LEXICON UTILITY;;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
    33 ;
    44 ; Entry:  S X=$$EN^LEXDFLT

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXDFN.m

    r628 r636  
    11LEXDFN ; ISL Default Names                        ; 10-15-97
    2  ;;2.0;LEXICON UTILITY;**6**;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;**6**;Sep 23, 1996;Build 1
    33 ;
    44APPN(X) ; Application Name

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXDFN2.m

    r628 r636  
    11LEXDFN2 ; ISL Default Names                        ; 09-23-96
    2  ;;2.0;LEXICON UTILITY;;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
    33 ;
    44AP(X) ; Application Pointer

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXDFSB.m

    r628 r636  
    11LEXDFSB ; ISL Default Filter - Include/Exclude     ; 09-23-96
    2  ;;2.0;LEXICON UTILITY;;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
    33 ;
    44 ; Entry:  S X=$$EN^LEXDFSB

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXDFSE.m

    r628 r636  
    11LEXDFSE ; ISL Default Filter - Exclude Semantics   ; 09-23-96
    2  ;;2.0;LEXICON UTILITY;;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
    33 ;
    44 ; Called from LEXDFSI (set the EXCLUDE string)

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXDFSI.m

    r628 r636  
    11LEXDFSI ; ISL Default Filter - Include Semantics   ; 09-23-96
    2  ;;2.0;LEXICON UTILITY;;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
    33 ;
    44 ;

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXDFSO.m

    r628 r636  
    11LEXDFSO ; ISL Default Filter - Sources             ; 09-23-96
    2  ;;2.0;LEXICON UTILITY;;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
    33 ;
    44 ; Entry:  S X=$$EN^LEXDFSO

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXDFSS.m

    r628 r636  
    11LEXDFSS ; ISL Default Filter - Semantics/Sources   ; 09-23-96
    2  ;;2.0;LEXICON UTILITY;;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
    33 ;
    44 ; Entry:  S X=$$EN^LEXDFSS

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXDFST.m

    r628 r636  
    11LEXDFST ; ISL Default Filter - Semantic Types      ; 09-23-96
    2  ;;2.0;LEXICON UTILITY;;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
    33 ;
    44 ; Entry:  S X=$$EN^LEXDFST

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXDM.m

    r628 r636  
    11LEXDM ; ISL Default Misc - Mod/Del Sel/Create    ; 09-23-96
    2  ;;2.0;LEXICON UTILITY;;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
    33 ;
    44 ; Entry:  S X=$$MOD^LEXDM(X)

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXDM2.m

    r628 r636  
    11LEXDM2 ; ISL Default Misc - Ask to delete         ; 09-23-96
    2  ;;2.0;LEXICON UTILITY;;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
    33 ;
    44 ; Entry:  S X=$$EN^LEXDM2(USER,AP,DEF)

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXDM3.m

    r628 r636  
    11LEXDM3 ; ISL Default Misc - Name Default          ; 09-23-96
    2  ;;2.0;LEXICON UTILITY;;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
    33 ;
    44 ; LEXFIL    Flag for Filter v.s. Display

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXDM4.m

    r628 r636  
    11LEXDM4 ; ISL Default Misc - Files/User/Svc/Loc    ; 02-02-96
    2  ;;2.0;LEXICON UTILITY;**4**;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;**4**;Sep 23, 1996;Build 1
    33 ;
    44DFI(LEXX) ; Select one application

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXDMG.m

    r628 r636  
    11LEXDMG ; ISL Defaults - Manager Options           ; 09-23-96
    2  ;;2.0;LEXICON UTILITY;;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
    33 ;
    44 ; LEXDICS     Filter

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXDMGO.m

    r628 r636  
    11LEXDMGO ; ISL Defaults - Manager/Overwrite         ; 09-23-96
    2  ;;2.0;LEXICON UTILITY;;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
    33 ;
    44 ; LEXOVER     Flag - Overwrite user defaults (Y/N)

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXDMGT.m

    r628 r636  
    11LEXDMGT ; ISL Defaults - Manager/Update            ; 09-23-96
    2  ;;2.0;LEXICON UTILITY;;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
    33 Q
    44 ; LEXDICS     Filter

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXDMGU.m

    r628 r636  
    11LEXDMGU ; ISL Defaults - Manager/User Group        ; 09-23-96
    2  ;;2.0;LEXICON UTILITY;;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
    33 ;
    44 ; LEXDICS(0)  Filter name

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXDMGV.m

    r628 r636  
    11LEXDMGV ; ISL Defaults - Manager/Verify            ; 09-23-96
    2  ;;2.0;LEXICON UTILITY;;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
    33 ;
    44 ; LEXDICS     Filter

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXDSV.m

    r628 r636  
    11LEXDSV ; ISL Defaults - Save                      ; 09-23-96
    2  ;;2.0;LEXICON UTILITY;;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
    33 Q
    44 ;

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXDVO.m

    r628 r636  
    11LEXDVO ; ISL Default Vocabulary                   ; 09-23-96
    2  ;;2.0;LEXICON UTILITY;;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
    33 ;
    44 ; Entry:  D EN^LEXDVO              LEXAP is unknown

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXDVOS.m

    r628 r636  
    11LEXDVOS ; ISL Default Vocabulary - Select          ; 09-23-96
    2  ;;2.0;LEXICON UTILITY;;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
    33 ;
    44 ; Special Look-up in file 757.2 Subset Definitions

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXEDF1.m

    r628 r636  
    11LEXEDF1 ; ISL Edit/Display a Definition (Part 1)   ; 05/14/2003
    2  ;;2.0;LEXICON UTILITY;**3,25**;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;**3,25**;Sep 23, 1996;Build 1
    33 ;
    44 N DIC,DIE,DIR,DIROUT,DIRUT,DLAYGO,DR,DTOUT,DUOUT,DA,X,Y

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXEDF2.m

    r628 r636  
    11LEXEDF2 ; ISL Edit/Display a Definition (Part 2)   ; 09-23-96
    2  ;;2.0;LEXICON UTILITY;;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
    33 ;
    44EXP(LEXX) ; Select an expression

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXERF.m

    r628 r636  
    11LEXERF ; ISL Functions for Exc/Rep Words          ; 09-23-96
    2  ;;2.0;LEXICON UTILITY;;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
    33 ;
    44EXIST(X) ; Boolean function returns:

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXERI.m

    r628 r636  
    11LEXERI ; ISL Exc/Rep Word Input Transformations   ; 09-23-96
    2  ;;2.0;LEXICON UTILITY;;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
    33 Q
    44 ;

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXHLP.m

    r628 r636  
    11LEXHLP ; ISL Help/input transformations              ; 05/25/1998
    2  ;;2.0;LEXICON UTILITY;**11**;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;**11**;Sep 23, 1996;Build 1
    33 ;
    44EXC ; Excluded Word Help

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXIENV.m

    r628 r636  
    11LEXIENV ; ISL Environment Check                    ; 09-23-96
    2  ;;2.0;LEXICON UTILITY;;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
    33 ;
    44EN N Y

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXILG.m

    r628 r636  
    11LEXILG ; ISL Env/Post for ^LEX and ^GMP           ; 09-23-96
    2  ;;2.0;LEXICON UTILITY;;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
    33 Q
    44PRE ; Pre-Init

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXILGD.m

    r628 r636  
    11LEXILGD ; ISL Delete Lexicon v 1.0                 ; 09-23-96
    2  ;;2.0;LEXICON UTILITY;;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
    33 Q
    44DD ; Remove Lexicon Version 1.0 Files (DD only)

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXILGO.m

    r628 r636  
    11LEXILGO ; ISL Rename Options                       ; 09-23-96
    2  ;;2.0;LEXICON UTILITY;;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
    33 Q
    44RE ; Entry point to rename GMPT Options to LEX namespace

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXILGP.m

    r628 r636  
    11LEXILGP ; ISL Save/Restore Pointers                ; 09-23-96
    2  ;;2.0;LEXICON UTILITY;;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
    33 Q
    44SP ; Save "Pointed to by"

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXILGU.m

    r628 r636  
    11LEXILGU ; ISL Save/Restore User Defaults           ; 09-23-96
    2  ;;2.0;LEXICON UTILITY;;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
    33 Q
    44SD ; Save User Defaults from ^GMPT

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXILGX.m

    r628 r636  
    11LEXILGX ; ISL Delete GMP from XTLK                 ; 09-23-96
    2  ;;2.0;LEXICON UTILITY;;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
    33 Q
    44EN ; Remove Clinical Lexicon Utility v 1.0 from the XT

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXLGM.m

    r628 r636  
    11LEXLGM ; ISL Lexicon Survey (Post Inst/Oper)     ; 05/14/2003
    2  ;;2.0;LEXICON UTILITY;**25**;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;**25**;Sep 23, 1996;Build 1
    33 ;
    44EN ; Operational Task

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXLGM2.m

    r628 r636  
    11LEXLGM2 ; ISL Lexicon Survey (GBL/DEF/XT/OPT/RTN) ; 09-23-96
    2  ;;2.0;LEXICON UTILITY;;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
    33 ;
    44 Q

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXLGM3.m

    r628 r636  
    11LEXLGM3 ; ISL Lexicon Survey (Terms in PL)        ; 09-23-96
    2  ;;2.0;LEXICON UTILITY;;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
    33 ;
    44 Q

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXLK.m

    r628 r636  
    11LEXLK ; ISL Demo Look Up                         ; 09-23-96
    2  ;;2.0;LEXICON UTILITY;;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
    33 ;
    44EN ; Initialize variables

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXLK2.m

    r628 r636  
    11LEXLK2 ;ISL/FJF-Look Up - Expression Attributes ;09-10-01
    2  ;;2.0;LEXICON UTILITY;**6,19**;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;**6,19**;Sep 23, 1996;Build 1
    33 ;
    44GET(Y) ; Build list in array LEX

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXMTLU.m

    r628 r636  
    11LEXMTLU ; ISL Setup Appl/User Defaults for Look-up ; 05/25/1998
    2  ;;2.0;LEXICON UTILITY;**11**;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;**11**;Sep 23, 1996;Build 1
    33 ;
    44EN ; X not set

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXNDX1.m

    r628 r636  
    11LEXNDX1 ; ISL Set/kill indexes (Part 1)            ; 09-23-96
    2  ;;2.0;LEXICON UTILITY;;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
    33 ;
    44S ; Set Expression file (#757.01) word index node AWRD

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXNDX2.m

    r628 r636  
    11LEXNDX2 ; ISL Set/kill indexes (Part 2)            ; 09-23-96
    2  ;;2.0;LEXICON UTILITY;;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
    33 ;
    44SS ; Get (unique) text for an expression in the Subset file

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXNDX3.m

    r628 r636  
    11LEXNDX3 ; ISL Set/kill indexes (Part 3) Link       ; 09-23-96
    2  ;;2.0;LEXICON UTILITY;;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
    33 ;
    44S ; Set indexes for file 757.05

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXNDX4.m

    r628 r636  
    11LEXNDX4 ; ISL Set/kill indexes (Part 4) Link       ; 09-23-96
    2  ;;2.0;LEXICON UTILITY;;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
    33 ;
    44LINK ; Link a Keyword to an expression

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXNDX5.m

    r628 r636  
    11LEXNDX5 ; ISL Set/kill indexes (Part 5) Link       ; 09-23-96
    2  ;;2.0;LEXICON UTILITY;;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
    33 ;
    44EXCL ; Is a term used with an "Exclusive" meaning?

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXNDX6.m

    r628 r636  
    11LEXNDX6 ; ISL Set/kill indexes (Misc)              ; 09-23-96
    2  ;;2.0;LEXICON UTILITY;;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
    33 ;
    44SRA ; Set Shortcut index

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXNDX8.m

    r628 r636  
    11LEXNDX8 ; ISL/KER/FJF Set/kill indexes 757.02 ; 05/14/2003
    2  ;;2.0;LEXICON UTILITY;**25**;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;**25**;Sep 23, 1996;Build 1
    33 ;                   
    44 ; Set and Kill Activation History

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXPL.m

    r628 r636  
    11LEXPL ; ISL Problem List Survey                 ; 05/14/2003
    2  ;;2.0;LEXICON UTILITY;**25**;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;**25**;Sep 23, 1996;Build 1
    33 ;
    44 ; Entry Points

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXPLEM.m

    r628 r636  
    11LEXPLEM ; ISL Problem List Exact Match URs           ; 09-23-96
    2  ;;2.0;LEXICON UTILITY;;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
    33 ;
    44 ; Fixes unresolved narratives which have an exact match in the

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXPLIA.m

    r628 r636  
    11LEXPLIA ; ISL Problem List In-Active ICD Codes       ; 09-23-96
    2  ;;2.0;LEXICON UTILITY;;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
    33 ;
    44 ; Fixes ICD pointers in the Problem List to In-Active ICD Codes

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXPLUP.m

    r628 r636  
    11LEXPLUP ; ISL Problem List Update 799.9              ; 09-23-96
    2  ;;2.0;LEXICON UTILITY;;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
    33 ;
    44 ; Fixes ICD code 799.9 for Problems which have a Lexicon pointer

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXPRNT.m

    r628 r636  
    11LEXPRNT ; ISL Print Utilities for the Lexicon      ; 09-23-96
    2  ;;2.0;LEXICON UTILITY;;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
    33 ;
    44XTLK ; XTLK  Display format for MTLU

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXSC.m

    r628 r636  
    11LEXSC ; ISL Shortcuts Add/Delete                 ; 09-23-96
    2  ;;2.0;LEXICON UTILITY;;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
    33 ;
    44EN N LEXCX,LEXCXN,LEXDICS,LEXEDIT,LEXRP,LEXE

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXSC2.m

    r628 r636  
    11LEXSC2 ; ISL Shortcuts Add/Delete                 ; 05/25/1998
    2  ;;2.0;LEXICON UTILITY;**11**;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;**11**;Sep 23, 1996;Build 1
    33 ;
    44WRT(LEXSTR) ;

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXSC3.m

    r628 r636  
    11LEXSC3 ; ISL Shortcuts Add/Delete                 ; 09-23-96
    2  ;;2.0;LEXICON UTILITY;;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
    33 ;
    44ADD ; Add a shortcut

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXSET.m

    r628 r636  
    11LEXSET ; ISL/KER Setup Appl/User Defaults for Look-up ; 05/14/2003
    2  ;;2.0;LEXICON UTILITY;**25**;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;**25**;Sep 23, 1996;Build 1
    33 ;
    44 ; External References

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXSET2.m

    r628 r636  
    11LEXSET2 ; ISL Retrieve Appl/Sub/Mode/User Defaults ; 10-15-97
    2  ;;2.0;LEXICON UTILITY;**6**;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;**6**;Sep 23, 1996;Build 1
    33 ;
    44APP(LEXA) ; Application

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXSET3.m

    r628 r636  
    11LEXSET3 ; ISL Overwrite/Merge Appl/User Defaults   ; 10-15-97
    2  ;;2.0;LEXICON UTILITY;**6**;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;**6**;Sep 23, 1996;Build 1
    33 ;
    44OVER ;

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXSET4.m

    r628 r636  
    11LEXSET4 ; ISL Setup Functions                      ; 09-23-96
    2  ;;2.0;LEXICON UTILITY;;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
    33 ;
    44NS(LEX) ; Look-up application namespace

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXSET5.m

    r628 r636  
    11LEXSET5 ; ISL Setup Appl/User Defaults for Look-up ; 05/25/1998
    2  ;;2.0;LEXICON UTILITY;**6,11**;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;**6,11**;Sep 23, 1996;Build 1
    33 ;
    44EN ; Set variables

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXSRC.m

    r628 r636  
    11LEXSRC ; ISL/KER - Classification Code Source ; 02/02/2006
    2  ;;2.0;LEXICON UTILITY;**7,25,26,38**;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;**7,25,26,38**;Sep 23, 1996;Build 1
    33 ;
    44 ; External References

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXSRC2.m

    r628 r636  
    11LEXSRC2 ; ISL/KER/FJF Classification Code Source Util ; 01/01/2004
    2  ;;2.0;LEXICON UTILITY;**25,28**;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;**25,28**;Sep 23, 1996;Build 1
    33 ;
    44 ; External References

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXTOLKN.m

    r628 r636  
    11LEXTOLKN ; ISL Parse term into words                ; 01-31-97
    2  ;;2.0;LEXICON UTILITY;**4**;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;**4**;Sep 23, 1996;Build 1
    33 ;
    44 ; Returns ^TMP("LEXTKN",$J,#,WORD) containing words

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXU.m

    r628 r636  
    11LEXU ; ISA/FJF-Miscellaneous Lexicon Utilities; 06/23/2005
    2  ;;2.0;LEXICON UTILITY;**2,6,9,15,25,36**;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;**2,6,9,15,25,36**;Sep 23, 1996;Build 1
    33 ;
    44 ; External References

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXXFI.m

    r628 r636  
    1 LEXXFI ; ISL/KER - File Info                     ; 04/22/2008
    2  ;;2.0;LEXICON UTILITY;**32,46,49,41**;Sep 23, 1996;Build 34
     1LEXXFI ; ISL/KER - File Info                     ; 02/22/2007
     2 ;;2.0;LEXICON UTILITY;**32,46,49**;Sep 23, 1996;Build 3
    33 Q
    4  ;
     4 ;                   
    55 ; Global Variables
    66 ;   ^LEXM(0
    7  ;   ^TMP("LEX*",$J    SACC 2.3.2.5.1
    8  ;
     7 ;   ^TMP("LEX*",$J    SACC 2.3.2.5.1 
     8 ;             
    99 ; External References
    10  ;   DBIA 10086  HOME^%ZIS
     10 ;   DBIA 10086  HOME^%ZIS           
    1111 ;   DBIA 10089  ^%ZISC
    1212 ;   DBIA 10063  ^%ZTLOAD
    … …  
    1717 ;   DBIA 10070  ^XMD
    1818 ;   DBIA  4409  $$DTIME^XUP
    19  ;
     19 ;             
    2020 ; Newed by Post-Install LEX20nnP
    2121 ;   LEXBUILD  Build
    … …  
    2525 ;   LEXREQP   Required Patches
    2626 ;   LEXSHORT  Flag for Summary Install Message
    27  ;
     27 ;               
    2828 ; XPDA        Newed by KIDS during Install
    2929 ; LEXCOUNT    Flag Checked $D() and not used
    30  ;
     30 ;             
    3131 ; Checksums/Counts
    3232EN ;   For One or More File(s)
    33  N LEXENV,LEXMET,LEXID
    34  S LEXENV=$$ENV
    35  Q:+LEXENV'>0
    36  S LEXMET=$$MT^LEXXFI7
     33 N LEXENV,LEXMET,LEXID S LEXENV=$$ENV Q:+LEXENV'>0  S LEXMET=$$MT^LEXXFI7
    3734 I '$L(LEXMET) W !!," Checksum Files (One or All) not Selected" Q
    3835 I $L($T(@(LEXMET_"^LEXXFI")))>0 W ! D @LEXMET
    … …  
    4643 S LEXLDR=$$LDR^LEXXFI8(LEXFI),LEXMOD=LEXMOD+($$MOD^LEXXFI8(LEXFI))
    4744 S LEXNM=$$FN^LEXXFI8(LEXFI),LEXTT=" "
    48  W !
    49  D ONE^LEXXFI2(LEXFI),ONE^LEXXFI3(LEXFI),ONE^LEXXFI5(LEXFI)
     45 W ! D ONE^LEXXFI2(LEXFI),ONE^LEXXFI3(LEXFI),ONE^LEXXFI5(LEXFI)
    5046 S LEXEND=$$TIC^LEXXFI8,LEXELP=$$ELAP^LEXXFI8(LEXBEG,LEXEND)
    5147 S:LEXELP="" LEXELP="00:00:00"
    … …  
    6965 D KILL
    7066 Q
    71  ;
     67 ;             
    7268POST ; Entry Point for Post-Install Message
    7369 N LEXPOST S LEXPOST=""
    74  ;
     70 ;           
    7571SEND ; Send Message
    7672 N LEXDESC,LEXENV,LEXP,LEXACCT,LEXPRO,LEXPRON,LEXSEND,ZTDESC,ZTDTH,ZTIO,ZTRTN,ZTSAVE,ZTSK,ZTQUEUED,ZTREQ
    77  S LEXP=0,LEXENV=$$ENV
    78  Q:+LEXENV'>0
    79  S LEXSEND="",LEXPRON="LEXICAL SERVICES UPDATE",LEXPRO=$G(^LEXM(0,"PRO"))
    80  S:+LEXPRO>0 LEXPRO=$$FMTE^XLFDT(LEXPRO,"1"),LEXP=1
    81  S LEXACCT=$$U^LEXXFI7 S ZTSAVE("LEXACCT")=""
    82  S ZTRTN="ALL^LEXXFI",ZTSAVE("LEXSEND")="",ZTSAVE("LEXPOST")=""
    83  S:$D(LEXCOUNT) ZTSAVE("LEXCOUNT")=""
    84  I $L($G(LEXPRO)),$L($G(LEXPRON)),+$G(LEXP)>0 S ZTSAVE("LEXPRO")="",ZTSAVE("LEXPRON")=""
    85  S:$D(LEXLREV) ZTSAVE("LEXLREV")=""
    86  S:$D(LEXREQP) ZTSAVE("LEXREQP")=""
    87  S:$D(LEXBUILD) ZTSAVE("LEXBUILD")=""
    88  S:$D(LEXSHORT) ZTSAVE("LEXSHORT")=""
    89  S:$D(LEXIGHF) ZTSAVE("LEXIGHF")=""
    90  S:$D(LEXCRE) ZTSAVE("LEXCRE")=""
    91  S:$D(LEXID) ZTSAVE("LEXID")=""
    92  S:$D(XPDA) ZTSAVE("XPDA")=""
    93  S (LEXDESC,ZTDESC)="Post-Install File Counts "
    94  S:$D(LEXSHORT) (LEXDESC,ZTDESC)="Post-Install Summary"
    95  S ZTDTH=$H
    96  S ZTIO=""
    97  D ^%ZTLOAD
    98  W:+($G(ZTSK))>0 !!,"  ",LEXDESC,!,"  Queued Task #",+($G(ZTSK)) W !
    99  D ^%ZISC
     73 S LEXP=0,LEXENV=$$ENV Q:+LEXENV'>0  S LEXSEND="",LEXPRON="LEXICAL SERVICES UPDATE",LEXPRO=$G(^LEXM(0,"PRO"))
     74 S:+LEXPRO>0 LEXPRO=$$FMTE^XLFDT(LEXPRO,"1"),LEXP=1 S LEXACCT=$$U^LEXXFI7 S ZTSAVE("LEXACCT")=""
     75 S ZTRTN="ALL^LEXXFI",ZTSAVE("LEXSEND")="",ZTSAVE("LEXPOST")="" S:$D(LEXCOUNT) ZTSAVE("LEXCOUNT")=""
     76 S:$L($G(LEXPRO))&($L($G(LEXPRON)))&(+($G(LEXP))>0) ZTSAVE("LEXPRO")="",ZTSAVE("LEXPRON")=""
     77 S:$D(LEXLREV) ZTSAVE("LEXLREV")="" S:$D(LEXREQP) ZTSAVE("LEXREQP")="" S:$D(LEXBUILD) ZTSAVE("LEXBUILD")=""
     78 S:$D(LEXSHORT) ZTSAVE("LEXSHORT")="" S:$D(LEXIGHF) ZTSAVE("LEXIGHF")="" S:$D(LEXCRE) ZTSAVE("LEXCRE")=""
     79 S:$D(LEXID) ZTSAVE("LEXID")="" S:$D(XPDA) ZTSAVE("XPDA")=""
     80 S (LEXDESC,ZTDESC)="Post-Install File Counts " S:$D(LEXSHORT) (LEXDESC,ZTDESC)="Post-Install Summary",ZTDTH=$H
     81 S ZTIO="" D ^%ZTLOAD W:+($G(ZTSK))>0 !!,"  ",LEXDESC,!,"  Queued Task #",+($G(ZTSK)) W ! D ^%ZISC
    10082 Q
    10183MAIL ; Mail global array in message
    10284 N DIFROM,LEXPRI,LEXADR,LEXI,LEXM,LEXSUB,XCNP,XMDUZ,XMSCR,XMSUB,XMTEXT,XMY,XMZ
    103  I '$D(LEXSHORT),+$G(^TMP("LEXCS",$J,0))'>0 G MAILQ
    104  K ^TMP("LEXMSG",$J)
     85 G:'$D(LEXSHORT)&(+($G(^TMP("LEXCS",$J,0)))'>0) MAILQ K ^TMP("LEXMSG",$J)
    10586 S LEXSUB="Lexicon/ICD/CPT Installation"
    10687 S:$L($G(LEXBUILD)) LEXSUB=$G(LEXBUILD)_" Installation"
    107  S LEXPRI=$$ADR^LEXXFI8
    108  G:'$L(LEXPRI) MAILQ
     88 S LEXPRI=$$ADR^LEXXFI8 G:'$L(LEXPRI) MAILQ
    10989 S LEXPRI="G.LEXINS@"_LEXPRI
    110  S LEXADR=$$GET1^DIQ(200,+($G(DUZ)),.01)
    111  G:'$L(LEXADR) MAILQ
     90 S LEXADR=$$GET1^DIQ(200,+($G(DUZ)),.01) G:'$L(LEXADR) MAILQ
    11291 S U="^",XMSUB="LEX/ICD/CPT File Checksums - "_$$FMTE^XLFDT($$NOW^XLFDT)
    11392 S:$D(LEXCOUNT) XMSUB="LEX/ICD/CPT File Checksums/Counts - "_$$FMTE^XLFDT($$NOW^XLFDT)
    11493 S:$L($G(LEXBUILD)) XMSUB=$G(LEXBUILD)_" File Checksums"
    115  I $L($G(LEXBUILD)),$D(LEXCOUNT) S XMSUB=$G(LEXBUILD)_" File Checksums/Counts"
     94 S:$L($G(LEXBUILD))&($D(LEXCOUNT)) XMSUB=$G(LEXBUILD)_" File Checksums/Counts"
    11695 S:$D(LEXPOST) XMSUB=LEXSUB
    11796 S LEXI=0 F  S LEXI=$O(^TMP("LEXKID",$J,LEXI)) Q:+LEXI=0  D
    … …  
    127106 S XMY(LEXPRI)="",XMY(LEXADR)="",XMTEXT="^TMP(""LEXMSG"",$J,",XMDUZ=.5 D ^XMD
    128107MAILQ ; Quit Mail
    129  D KILL K XCNP,XMSCR,XMDUZ,XMY,XMZ,XMSUB,XMY,XMTEXT,XMDUZ
     108 D KILL K %Z,XCNP,XMSCR,XMDUZ,XMY,XMZ,XMSUB,XMY,XMTEXT,XMDUZ
    130109 Q
    131  ;
     110 ;               
    132111 ; Miscellaneous
    133112HDR ;   Header
    … …  
    161140 N LEXNM D HOME^%ZIS S U="^",DT=$$DT^XLFDT
    162141 I +($G(DUZ))'>0 W !!,"    User (DUZ) not defined",! Q 0
    163  S LEXNM=$$GET1^DIQ(200,+($G(DUZ)),.01)
    164  I '$L(LEXNM) W !!,"    Invalid User (DUZ) defined",! Q 0
     142 S LEXNM=$$GET1^DIQ(200,+($G(DUZ)),.01) I '$L(LEXNM) W !!,"    Invalid User (DUZ) defined",! Q 0
    165143 S DTIME=$$DTIME^XUP(+($G(DUZ)))
    166144 Q 1

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXXFI2.m

    r628 r636  
    11LEXXFI2 ; ISL/KER - File Info - Checksums            ; 07/28/2004
    2  ;;2.0;LEXICON UTILITY;**32**;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;**32**;Sep 23, 1996;Build 1
    33 Q
    44 ;           

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXXFI3.m

    r628 r636  
    11LEXXFI3 ; ISL/KER - File Info - Record Count            ; 07/28/2004
    2  ;;2.0;LEXICON UTILITY;**32**;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;**32**;Sep 23, 1996;Build 1
    33 Q
    44 ;           

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXXFI4.m

    r628 r636  
    11LEXXFI4 ; ISL/KER - File Info - Record Counts (2)      ; 07/28/2004
    2  ;;2.0;LEXICON UTILITY;**32**;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;**32**;Sep 23, 1996;Build 1
    33 Q
    44 ;                   

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXXFI5.m

    r628 r636  
    11LEXXFI5 ; ISL/KER - File Info - Versions/Revisions     ; 07/28/2004
    2  ;;2.0;LEXICON UTILITY;**32**;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;**32**;Sep 23, 1996;Build 1
    33 Q
    44 ;                   

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXXFI6.m

    r628 r636  
    11LEXXFI6 ; ISL/KER - File Info - DD Information      ; 07/28/2004
    2  ;;2.0;LEXICON UTILITY;**32**;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;**32**;Sep 23, 1996;Build 1
    33 Q
    44 ;                       

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXXFI8.m

    r628 r636  
    11LEXXFI8 ; ISL/KER - File Info - Miscellaneous      ; 07/28/2004
    2  ;;2.0;LEXICON UTILITY;**32**;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;**32**;Sep 23, 1996;Build 1
    33 Q
    44 ;                   

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXXFQ.m

    r628 r636  
    11LEXXFQ ; ISL/FJF Set Frequencies in 757.001;04/08/03
    2  ;;2.0;LEXICON UTILITY;**4,25**;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;**4,25**;Sep 23, 1996;Build 1
    33 Q
    44EN ; Update term frequencies when not found  (at site)

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXXGI.m

    r628 r636  
    1 LEXXGI ;ISL/KER/FJF - Global Import (Needs ^LEXM) ;04/22/2008
    2  ;;2.0;LEXICON UTILITY;**4,25,26,27,28,29,46,49,50,41**;Sep 23, 1996;Build 34
     1LEXXGI ; ISL/KER - Global Import (Needs ^LEXM) ; 02/22/2007
     2 ;;2.0;LEXICON UTILITY;**4,25,26,27,28,29,46,49**;Sep 23, 1996;Build 3
    33 ;             
    4  ; NEWed by Lexicon Environment Check routine LEX20nn
    5  ;    LEXBUILD
    6  ;    LEXFY
    7  ;    LEXIGHF
    8  ;    LEXLREV
    9  ;    LEXPTYPE
    10  ;    LEXQTR
    11  ;    LEXREQP
     4 ; NEWed or KILLed Elsewhere
    125 ;             
    13  ; NEWed by KIDS during the Install of a patch/build
    14  ;    XPDNM
     6 ;    LEXBUILD, LEXFY, LEXIGHF, LEXLREV, LEXPTYPE
     7 ;    LEXQTR, LEXREQP, LEXSHORT, XPDNM
    158 ;             
    169 ; Global Variables
    … …  
    1811 ;             
    1912 ; External References
    20  ;    DBIA 10086  HOME^%ZIS
    21  ;    DBIA 10016  ^DIM
    22  ;    DBIA  2056  $$GET1^DIQ (file 200)
    23  ;    DBIA 10103  $$DT^XLFDT
    24  ;    DBIA 10103  $$FMTE^XLFDT
    25  ;    DBIA 10141  BMES^XPDUTL
    26  ;    DBIA 10141  MES^XPDUTL
     13 ;    HOME^%ZIS
     14 ;    ^DIM     
     15 ;    $$GET1^DIQ
     16 ;    $$DT^XLFDT
     17 ;    $$FMTE^XLFDT
     18 ;    BMES^XPDUTL
     19 ;    MES^XPDUTL 
    2720 ;             
    2821EN ; Main Entry Point for Installing LEXM in Post-Installs
    … …  
    7063 ;   LEXCRE   - Import Global Creation Date
    7164 ;               
    72  D IMPORT D KALL^LEXXGI2
    73  Q
    74 TASK ; Queue Lexicon Update with Taskman
    75  N Y,ZTRTN,ZTDESC,ZTIO,ZTDTH,ZTSK,ZTSAVE,ZTQUEUED
    76  S:$D(LEXBUILD) ZTSAVE("LEXBUILD")=""
    77  S:$D(LEXMSG) ZTSAVE("LEXMSG")=""
    78  S:$D(LEXSHORT) ZTSAVE("LEXSHORT")=""
    79  S:$D(LEXPTYPE) ZTSAVE("LEXPTYPE")=""
    80  S:$D(LEXLREV) ZTSAVE("LEXLREV")=""
    81  S:$D(LEXREQP) ZTSAVE("LEXREQP")=""
    82  S:$D(LEXIGHF) ZTSAVE("LEXIGHF")=""
    83  S:$D(LEXFY) ZTSAVE("LEXFY")=""
    84  S:$D(LEXQTR) ZTSAVE("LEXQTR")=""
    85  S:$D(LEXCRE) ZTSAVE("LEXCRE")=""
    86  S ZTRTN="EN^LEXXGI",ZTDESC="Importing Updated Lexicon Data"
    87  S ZTIO="",ZTDTH=$H
    88  D ^%ZTLOAD,HOME^%ZIS
     65 D IMPORT,KALL^LEXXGI2
    8966 Q
    9067IMPORT ; Import Data during a Patch Installation
    … …  
    10986 . S:$D(LEXSCHG("C","CPT"))!($D(LEXSCHG("C","ICD"))) LEXSCHG("D","PRO")="",LEXCHG=1,LEXSCHG(0)=1
    11087 . D LOAD,NOTIFY^LEXXGI2 I +($G(DUZ))>0,$L($$GET1^DIQ(200,(+($G(DUZ))_","),.01)) D
    111  . . D HOME^%ZIS N DIFROM,LEXPRO,LEXPRON,LEXLAST S LEXPRON="LEXICAL SERVICES UPDATE",LEXPRO=$G(^LEXM(0,"PRO")) D:$D(LEXMSG) POST^LEXXFI
     88 . . D HOME^%ZIS N DIFROM,LEXPRO,LEXPRON,LEXLAST D:$D(LEXMSG) POST^LEXXFI
    11289 Q
    11390LOAD ; Load Data from ^LEXM into IC*/LEX Files
    … …  
    142119 . N LEXB,LEXFID,LEXNM,LEXVR,LEXRV,LEXDT,LEXL1,LEXL2 S (LEXL1,LEXL2)="",LEXFID=$P(LEXFI,".",1)
    143120 . Q:+LEXFID'>0  Q:$D(LEXHDRS(+LEXFID))  S LEXHDRS(LEXFID)="" S:+LEXFI=81!(+LEXFI=81.3) LEXHDRS(81)="",LEXHDRS(81.3)=""
    144  . S:LEXFID=80 LEXNM="ICD-9-CM" S:LEXFID=81 LEXNM="CPT-4/HCPCS" S:LEXFID=757 LEXNM="Lexicon" S LEXB=$G(^LEXM(LEXFI,0,"BUILD"))
     121 . S:LEXFID=80 LEXNM="ICD-9-CM" S:LEXFID=81 LEXNM="CPT-4/HCPSC" S:LEXFID=757 LEXNM="Lexicon" S LEXB=$G(^LEXM(LEXFI,0,"BUILD"))
    145122 . S LEXVR=$G(^LEXM(LEXFI,0,"VR")),LEXRV=$G(^LEXM(LEXFI,0,"VRRV")),LEXDT=$$MIX^LEXXGI2($$FMTE^XLFDT($P(LEXRV,"^",2))),LEXRV=$P(LEXRV,"^",1)
    146123 . S LEXL1="Updating "_LEXNM S:$L(LEXB) LEXL1=LEXL1_" with patch/build "_LEXB S:$L(LEXVR) LEXL2=" To version "_LEXVR
    … …  
    190167 K ZTDESC,ZTDTH,ZTIO,ZTQUEUED,ZTREQ,ZTRTN,ZTSAVE,ZTSK
    191168 Q
    192 CHECKSUM ; Check ^LEXM Checksum
    193  D CS^LEXXGI2
    194  Q

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXXGI2.m

    r628 r636  
    1 LEXXGI2 ;ISL/KER - Global Import (Update Change File w/^LEXM) ;06/06/2007
    2  ;;2.0;LEXICON UTILITY;**25,26,28,29,46,49,50**;Sep 23, 1996
     1LEXXGI2 ; ISL/KER - Global Import (Update Change File w/^LEXM)  ; 02/22/2007
     2 ;;2.0;LEXICON UTILITY;**25,26,28,29,46,49**;Sep 23, 1996;Build 3
    33 ;             
    4  ; Variables NEWed or KILLed Elsewhere
    5  ;    XPDNM  NEWed by KIDS during Install
    6  ;             
    74 ; Global Variables
    8  ;    ^LEXM
    9  ;    DBIA   872  ^ORD(101
    10  ;    DBIA 10011  ^UTILITY($J
    11  ;             
     5 ;   ^LEXM(
     6 ;   DBIA 10011  ^UTILITY($J
     7 ;             
    128 ; External References
    13  ;    DBIA 10011  ^DIWP
    14  ;    DBIA 10103  $$FMDIFF^XLFDT
    15  ;    DBIA 10103  $$NOW^XLFDT
    16  ;    DBIA 10141  BMES^XPDUTL
    17  ;    DBIA 10141  MES^XPDUTL
    18  ;    DBIA 10101  EN^XQOR
    19  ;              
     9 ;   DBIA 10011  ^DIWP
     10 ;   DBIA 10103  $$NOW^XLFDT
     11 ;   DBIA 10103  $$FMDIFF^XLFDT
     12 ;   DBIA 10141  BMES^XPDUTL
     13 ;   DBIA 10141  MES^XPDUTL
     14 ;             
     15 ; XPDNM   Newed by KIDS during Install
    2016 Q
    2117NOTIFY ; Notify by Protocol - LEXICAL SERVICES UPDATE
    2218 ;     Uses LEXSCHG() from the Post-Install
    2319 ;     Sets ^LEXM(0,"PRO")=$$NOW^XLFDT
     20 W !!,"NOTIFY^LEXXGI1",!
    2421 N X,LEXU,LEXT,LEXF,LEXI,LEXL,LEX1,LEX2,LEX3,LEXN,LEXP,LEXUP D:$O(LEXSCHG(0))'>0 SCHG
    2522 S LEXUP="" S:$D(LEXSCHG("C","ICD"))!($D(LEXSCHG(80)))!($D(LEXSCHG(80.1))) LEXUP=$G(LEXUP)_"ICD"
    … …  
    5249 Q
    5350UPCHG ;
    54  Q:+($G(LEXFI))'>0  N LEXID S LEXID=$S($P(LEXFI,".",1)="757":"LEX",$P(LEXFI,".",1)="80":"ICD",$P(LEXFI,".",1)="81":"CPT",1:"UNK")
     51 Q:+LEXFI'>0  N LEXID S LEXID=$S($P(LEXFI,".",1)="757":"LEX",$P(LEXFI,".",1)="80":"ICD",$P(LEXFI,".",1)="81":"CPT",1:"UNK")
    5552 I $D(LEXSCHG) S LEXSCHG(LEXFI,0)="",LEXSCHG("B",LEXFI)="",LEXSCHG("C",LEXID,LEXFI)=""
    5653 Q
    … …  
    7976 S (LEXSCHG("757.1",0),LEXSCHG("B","757.1"),LEXSCHG("C","LEX","757.1"))=""
    8077 Q
    81 CS ;   Checksum for import global
    82  N LEXCHK,LEXNDS,LEXVER S LEXCHK=+($G(^LEXM(0,"CHECKSUM")))
    83  W !,"   Running checksum routine on the ^LEXM import global, please wait"
    84  S LEXNDS=+($G(^LEXM(0,"NODES"))),LEXVER=+($$VC(LEXCHK,LEXNDS)) W !
    85  W:LEXVER>0 !,"     Checksum is ok",! Q:LEXVER>0
    86  I LEXVER=0 W !!,"   Import global ^LEXM is missing.  Please obtain a copy of ^LEXM before",!,"   continuing." Q
    87  I LEXVER<0 D  Q
    88  . I LEXVER'=-3 W !,"   Unable to verify checksum for import global ^LEXM (possibly corrupt)"
    89  . I LEXVER=-3 W !,"   Import global ^LEXM failed checksum"
    90  . W !!,"     Please KILL the existing import global ^LEXM from your system and"
    91  . W !,"     obtain a new copy of ^LEXM before continuing with the installation."
    92  Q
    93 VC(X,Y) ;   Verify Checksum for import global
    94  Q:'$D(^LEXM)!('$D(^LEXM(0)))!($O(^LEXM(0))'>0) 0  N LEXCHK,LEXNDS,LEXCNT,LEXLC,LEXL,LEXS,LEXNC,LEXD,LEXN,LEXC,LEXGCS,LEXP,LEXT
    95  S LEXCHK=+($G(X)),LEXNDS=+($G(Y)) Q:LEXCHK'>0!(LEXNDS'>0) -2  S LEXL=64,(LEXCNT,LEXLC)=0,LEXS=(+(LEXNDS\LEXL))
    96  S:LEXS=0 LEXS=1 W:+($O(^LEXM(0)))>0 ! S (LEXC,LEXN)="^LEXM",(LEXNC,LEXGCS)=0 W "   "
    97  F  S LEXN=$Q(@LEXN) Q:LEXN=""!(LEXN'[LEXC)  D
    98  . Q:LEXN="^LEXM(0,""CHECKSUM"")"  Q:LEXN="^LEXM(0,""NODES"")"  S LEXCNT=LEXCNT+1
    99  . I LEXCNT'<LEXS S LEXLC=LEXLC+1 W:LEXLC'>LEXL "." S LEXCNT=0
    100  . S LEXNC=LEXNC+1,LEXD=@LEXN,LEXT=LEXN_"="_LEXD F LEXP=1:1:$L(LEXT) S LEXGCS=$A(LEXT,LEXP)*LEXP+LEXGCS
    101  Q:LEXNC'=LEXNDS -3  Q:LEXGCS'=LEXCHK -3
    102  Q 1
    10378 ; Miscellaneous
    10479NF ;   Import Global Not Found
    … …  
    157132 K ^UTILITY($J,"W")
    158133 Q
    159 CLR ;   Clear
    160  K %,%DT,C,CT,D,D0,D1,D2,DA,DG,DIC,DICR,DILOCKTM,DIW,DIWF,DIWI,DIWL,DIWR,DIWT,DIWTC,DIWX,DN,DTOUT
    161  K DUOUT,END,FI,I,ID,IREC,J,L,LENGTH,LEX,LEX1,LEX2,LEX3,LEXB,LEXBUILD,LEXC,LEXCD,LEXCHG,LEXCHK,LEXCNT
    162  K LEXD,LEXE,LEXF,LEXFI,LEXFY,LEXGCS,LEXI,LEXID,LEXIGHF,LEXL,LEXLAST,LEXLC,LEXLREV,LEXN,LEXNC,LEXNDS,LEXP
    163  K LEXPTYPE,LEXQTR,LEXREQP,LEXS,LEXSCHG,LEXSTR,LEXT,LEXU,LEXUP,LEXVER,LEXX,TI,X,X1,X2,XMDUN,XMZ,Y,Z,ZTSK
    164  Q
    165134TRIM(X) ;   Trim Spaces
    166135 S X=$G(X) Q:X="" X F  Q:$E(X,1)'=" "  S X=$E(X,2,$L(X))

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXXII.m

    r628 r636  
    1 LEXXII ;ISL/KER - Lexicon Status (Install Info) ;06/06/2007
    2  ;;2.0;LEXICON UTILITY;**32,46,49,50,41**;Sep 23, 1996;Build 34
    3  ;             
    4  ; Variables NEWed or KILLed Elsewhere
    5  ;   LEXACCT  NEWed by LEXXFI sending message
    6  ;   LEXID    NEWed by LEXXFI sending message
    7  ;   LEXCRE   NEWed by LEXXGI loading data
    8  ;   LEXIGHF  NEWed by Post Install routine LEX20nnP
    9  ;   XPDA     NEWed by KIDS during Install
    10  ;             
     1LEXXII ; ISL/KER - Lexicon Status (Install Info) ; 01/01/2007
     2 ;;2.0;LEXICON UTILITY;**32,46,49**;Sep 23, 1996;Build 3
     3 ;             
    114 ; Global Variables
    125 ;   DBIA 10096  ^%ZOSF("PROD"
    … …  
    147 ;   DBIA 10060  ^VA(200
    158 ;   ^LEXM(0
    16  ;   ^TMP("LEX*",$J    SACC 2.3.2.5.1
    17  ;              
     9 ;   ^TMP("LEX*",$J    SACC 2.3.2.5.1 
     10 ;             
    1811 ; External References
    1912 ;   DBIA 10103  $$FMTE^XLFDT
    … …  
    2316 ;   DBIA  2051  FIND^DIC
    2417 ;   DBIA  2056  GETS^DIQ
    25  ;             
     18 ;             
     19 ; LEXCRE   Newed in LEXXGI
     20 ; LEXID    Newed in LEXXFI
     21 ; LEXIGHF  Newed in Post-Install LEX20nnP
     22 ;           
    2623EN ; Main Entry
    2724 N LEXSUB S LEXSUB=$G(LEXID) S:LEXSUB="" LEXSUB="LEXXII" K ^TMP(LEXSUB,$J) D II
    … …  
    2926 ;                               
    3027II ; Install Information
    31  N LEXT,LEXA,LEXACT,LEXB,LEXD,LEXE,LEXL,LEXU,LEXN,LEXP,LEXPROF,LEXDA H 2
    32  S LEXA="",LEXACT=$G(LEXACCT),LEXPRO=$G(LEXPRO),LEXPRON=$G(LEXPRON)
    33  S:'$L(LEXPRON) LEXPRON="LEXICAL SERVICES UPDATE" S:'$L(LEXPRO) LEXPRO=$G(^LEXM(0,"PRO")) S:+LEXPRO>0 LEXPRO=$$ED(LEXPRO)
     28 N LEXT,LEXA,LEXACT,LEXB,LEXD,LEXE,LEXL,LEXU,LEXN,LEXP,LEXPRO,LEXPRON,LEXPROF,LEXDA H 2
     29 S LEXA="",LEXACT=$G(LEXACCT),LEXPRON="LEXICAL SERVICES UPDATE",LEXPRO=$G(^LEXM(0,"PRO")) S:+LEXPRO>0 LEXPRO=$$ED(LEXPRO),LEXPROF=1
    3430 S LEXT="Lexicon/ICD/CPT Installation" D TL(LEXT)
    3531 S LEXT="============================" D TL(LEXT),BL
    … …  
    5248 S:'$L(LEXT)&($L($G(LEXCRE)))&($P($G(LEXCRE),".",1)?7N) LEXT="  Created:     "_$$ED($G(LEXCRE))
    5349 D:$L(LEXT) TL(LEXT)
    54  S LEXT="" I $L($G(LEXPRO))&($L($G(LEXPRON))) D
     50 S LEXT="" I $L($G(LEXPRO))&($L($G(LEXPRON)))&(+($G(LEXPROF))>0) D
    5551 . S LEXT="  Protocol:    "_LEXPRON D BL,TL(LEXT)
    5652 . S LEXT="  Invoked:     "_LEXPRO D TL(LEXT)
    57  . K LEXPRO,LEXPRON,^LEXM(0,"PRO")
    5853 S LEXB=$$SS($G(LEXBUILD)),LEXE=$P(LEXB,"^",2),LEXL=$P(LEXB,"^",3),LEXB=$P(LEXB,"^",1)
    5954 I $P(LEXB,".",1)?7N!($P(LEXB,".",2)?7N)!($P(LEXB,".",3)[":") D
    … …  
    8782 . D GETS^DIQ(9.7,LEXIENS,"11;17","I","LEXOUT")
    8883 . S LEXL=0,LEXB=$G(LEXOUT(9.7,LEXIENS,11,"I"))
    89  . S LEXE=$$NOW^XLFDT
     84 . S LEXE=$G(LEXOUT(9.7,LEXIENS,17,"I"))
     85 . S:+LEXE'>0 LEXE=$$NOW^XLFDT
    9086 . S:+LEXB>0&(+LEXE>0) LEXL=$$EP(LEXB,LEXE)
    9187 . S LEX=LEXB_"^"_LEXE S:$L(LEXL) $P(LEX,"^",3)=LEXL
    … …  
    9389 . S LEX="" S LEXDA=+($G(LEXD)) Q:+LEXDA'>0
    9490 . S LEXL="",LEXB=$P($G(LEXD),"^",2) Q:$P(LEXB,".",1)'?7N
    95  . S LEXE=$$NOW^XLFDT
     91 . S LEXE=$P($G(LEXD),"^",3) Q:$P(LEXE,".",1)'?7N
    9692 . S:+LEXB>0&(+LEXE>0) LEXL=$$EP(LEXB,LEXE)
    9793 . S LEX=LEXB_"^"_LEXE S:$L(LEXL) $P(LEX,"^",3)=LEXL

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXXST2.m

    r628 r636  
    11LEXXST2 ; ISL Lexicon Status (Routine Count)       ; 12-08-97
    2  ;;2.0;LEXICON UTILITY;**4,5,8**;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;**4,5,8**;Sep 23, 1996;Build 1
    33 Q
    44RTT ; Total Routines

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXXST3.m

    r628 r636  
    11LEXXST3 ; ISL Lexicon Status (KIDS/Routines Patch) ; 05/14/2003
    2  ;;2.0;LEXICON UTILITY;**4,5,8,25**;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;**4,5,8,25**;Sep 23, 1996;Build 1
    33 Q
    44KIDS ; KIDS entries

  • FOIAVistA/tag/r/LEXICON_UTILITY-LEX-GMPT/LEXXST4.m

    r628 r636  
    11LEXXST4 ; ISL Lexicon Status (Dates)               ; 05-17-97
    2  ;;2.0;LEXICON UTILITY;**4,5**;Sep 23, 1996
     2 ;;2.0;LEXICON UTILITY;**4,5**;Sep 23, 1996;Build 1
    33 Q
    44DTS(LEXX) ; Date to sequential
Note: See TracChangeset for help on using the changeset viewer.