| [613] | 1 | LEXDDT1 ; ISL Display Defaults - Translate String ; 09-23-96
|
|---|
| 2 | ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
|
|---|
| 3 | ;
|
|---|
| 4 | EN ; String Type
|
|---|
| 5 | K LEX,LEXTSTR I '$D(LEXSTLN) S LEXSTLN=56
|
|---|
| 6 | I $L($G(LEXDICS)),'$L($G(LEXSHOW)),'$L($G(LEXSUB)) D DICS G EXIT
|
|---|
| 7 | I '$L($G(LEXDICS)),'$L($G(LEXSUB)),$L($G(LEXSHOW)) D SHOW G EXIT
|
|---|
| 8 | I $L($G(LEXSUB)),'$L($G(LEXSHOW)) D SUB
|
|---|
| 9 | G EXIT
|
|---|
| 10 | Q
|
|---|
| 11 | DICS ; Filter String LEXDICS
|
|---|
| 12 | N LEXTRTN S LEXTRTN=""
|
|---|
| 13 | I LEXDICS="I 1" S LEX(0)=1,LEX=LEXDICS,LEX(1)="Unfiltered" Q
|
|---|
| 14 | S:LEXDICS["$$SC^" LEXTRTN="SC^LEXDDTF"
|
|---|
| 15 | S:LEXDICS["$$SO^" LEXTRTN="SO^LEXDDTF"
|
|---|
| 16 | Q:$G(LEXTRTN)=""
|
|---|
| 17 | D @LEXTRTN
|
|---|
| 18 | Q
|
|---|
| 19 | SUB ; Sub-Set String LEXSUB
|
|---|
| 20 | K LEX S LEX=LEXSUB D ^LEXDDTV
|
|---|
| 21 | Q
|
|---|
| 22 | SHOW ; Display Codes String LEXSHOW
|
|---|
| 23 | K LEX S LEX=LEXSHOW D ^LEXDDTD
|
|---|
| 24 | Q
|
|---|
| 25 | CON ; Shortcut Context LEXCTX
|
|---|
| 26 | K LEX S LEX=LEXCTX D ^LEXDDTC
|
|---|
| 27 | Q
|
|---|
| 28 | ; Values
|
|---|
| 29 | VV ; Vocabulary Value
|
|---|
| 30 | Q:'$L($G(LEXSUB)) K LEX S:'$D(LEXSTLN) LEXSTLN=56
|
|---|
| 31 | S LEX(0)=1,LEX(1)="Value: "_LEXSUB
|
|---|
| 32 | Q
|
|---|
| 33 | FV ; Filter Value
|
|---|
| 34 | Q:'$L($G(LEXDICS)) K LEX S:'$D(LEXSTLN) LEXSTLN=56
|
|---|
| 35 | N LEXTSTR,LEXTCTR S LEXTCTR=0,LEXTSTR="Value: "_LEXDICS
|
|---|
| 36 | F Q:$L(LEXTSTR)'>LEXSTLN D CONV
|
|---|
| 37 | I $L(LEXTSTR) S LEXTCTR=LEXTCTR+1 S LEX(LEXTCTR)=LEXTSTR,LEX(0)=LEXTCTR
|
|---|
| 38 | Q
|
|---|
| 39 | DV ; Display Value
|
|---|
| 40 | Q:'$L($G(LEXSHOW)) K LEX S:'$D(LEXSTLN) LEXSTLN=56
|
|---|
| 41 | N LEXTSTR,LEXTCTR S LEXTCTR=0,LEXTSTR="Value: "_LEXSHOW
|
|---|
| 42 | F Q:$L(LEXTSTR)'>LEXSTLN D CONV
|
|---|
| 43 | I $L(LEXTSTR) S LEXTCTR=LEXTCTR+1 S LEX(LEXTCTR)=LEXTSTR,LEX(0)=LEXTCTR
|
|---|
| 44 | Q
|
|---|
| 45 | CV ; Vocabulary Value
|
|---|
| 46 | Q:'$L($G(LEXCTX)) K LEX S:'$D(LEXSTLN) LEXSTLN=56
|
|---|
| 47 | S LEX(0)=1,LEX(1)="Value: "_LEXCTX
|
|---|
| 48 | Q
|
|---|
| 49 | CONV ; Concatenate VALUE
|
|---|
| 50 | N LEXTPSN S LEXTPSN=LEXSTLN
|
|---|
| 51 | F LEXTPSN=LEXSTLN:-1:1 Q:$E(LEXTSTR,LEXTPSN)="/"!($E(LEXTSTR,LEXTPSN)=";")
|
|---|
| 52 | I $E(LEXTSTR,LEXTPSN)="/" D
|
|---|
| 53 | . S LEXTCTR=LEXTCTR+1 S LEX(LEXTCTR)=$E(LEXTSTR,1,LEXTPSN),LEX(0)=LEXTCTR
|
|---|
| 54 | . S LEXTSTR=$E(LEXTSTR,(LEXTPSN+1),$L(LEXTSTR))
|
|---|
| 55 | Q
|
|---|
| 56 | EXIT ; Kill all but the array LEX and the Default Variable
|
|---|
| 57 | K LEXSTLN
|
|---|
| 58 | Q
|
|---|
