source: WorldVistAEHR/trunk/r/LEXICON_UTILITY-LEX-GMPT/LEXDDT1.m@ 623

Last change on this file since 623 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.9 KB
Line 
1LEXDDT1 ; ISL Display Defaults - Translate String ; 09-23-96
2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
3 ;
4EN ; 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
11DICS ; 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
19SUB ; Sub-Set String LEXSUB
20 K LEX S LEX=LEXSUB D ^LEXDDTV
21 Q
22SHOW ; Display Codes String LEXSHOW
23 K LEX S LEX=LEXSHOW D ^LEXDDTD
24 Q
25CON ; Shortcut Context LEXCTX
26 K LEX S LEX=LEXCTX D ^LEXDDTC
27 Q
28 ; Values
29VV ; 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
33FV ; 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
39DV ; 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
45CV ; 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
49CONV ; 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
56EXIT ; Kill all but the array LEX and the Default Variable
57 K LEXSTLN
58 Q
Note: See TracBrowser for help on using the repository browser.