LEXDFLT ;ISL-KER - Default Filter - Filter Type ;04/21/2014
;;2.0;LEXICON UTILITY;**80**;Sep 23, 1996;Build 1
;
; Global Variables
; None
;
; External References
; ^DIR ICR 10026
;
; Entry: S X=$$EN^LEXDFLT
;
; Function returns
;
; "^" Up-arrow
; "^^" Double up-arrow
; 0 None
; 1 Filter by Semantic Types
; 2 Filter by Classification Codes
; 3 Filter by Semantic Types and Classification Codes
;
EN(LEXX) ;
;
N DIR,X,Y,DIRUT,DTOUT,DUOUT,DIROUT
S DIR("A",1)="Filter based on:"
S DIR("A",3)=" 1. Semantic Types"
S DIR("A",4)=" 2. Classification Coding Systems"
S DIR("A",5)=" 3. Semantic Types and Classification Codes"
S (DIR("A",2),DIR("A",6))=" "
S DIR(0)="SAO^1:Filter on Semantic Types;2:Filter on Classification Codes;3:Filter on both Semantic Types and Classification Codes"
S DIR("A")="Select: "
D ^DIR S LEXX=+X S:Y["^" LEXX=Y Q LEXX
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLEXDFLT 1036 printed Dec 13, 2024@02:07:38 Page 2
LEXDFLT ;ISL-KER - Default Filter - Filter Type ;04/21/2014
+1 ;;2.0;LEXICON UTILITY;**80**;Sep 23, 1996;Build 1
+2 ;
+3 ; Global Variables
+4 ; None
+5 ;
+6 ; External References
+7 ; ^DIR ICR 10026
+8 ;
+9 ; Entry: S X=$$EN^LEXDFLT
+10 ;
+11 ; Function returns
+12 ;
+13 ; "^" Up-arrow
+14 ; "^^" Double up-arrow
+15 ; 0 None
+16 ; 1 Filter by Semantic Types
+17 ; 2 Filter by Classification Codes
+18 ; 3 Filter by Semantic Types and Classification Codes
+19 ;
EN(LEXX) ;
+1 ;
+2 NEW DIR,X,Y,DIRUT,DTOUT,DUOUT,DIROUT
+3 SET DIR("A",1)="Filter based on:"
+4 SET DIR("A",3)=" 1. Semantic Types"
+5 SET DIR("A",4)=" 2. Classification Coding Systems"
+6 SET DIR("A",5)=" 3. Semantic Types and Classification Codes"
+7 SET (DIR("A",2),DIR("A",6))=" "
+8 SET DIR(0)="SAO^1:Filter on Semantic Types;2:Filter on Classification Codes;3:Filter on both Semantic Types and Classification Codes"
+9 SET DIR("A")="Select: "
+10 DO ^DIR
SET LEXX=+X
if Y["^"
SET LEXX=Y
QUIT LEXX
