Last change
on this file since 1569 was 636, checked in by George Lilly, 15 years ago |
WorldVistAEHR overlayed on FOIAVistA
|
File size:
671 bytes
|
Line | |
---|
1 | LEXA2 ;ISL/KER-Look-up (Loud) Select ; 02/02/2006
|
---|
2 | ;;2.0;LEXICON UTILITY;**38**;Sep 23, 1996;Build 1
|
---|
3 | ;
|
---|
4 | SELECT ; Select from List
|
---|
5 | ; Display Help DH^LEXA3
|
---|
6 | D DH^LEXA3
|
---|
7 | ; Display List DL^LEXA3
|
---|
8 | D DL^LEXA3
|
---|
9 | ; Display Prompt DP^LEXA3
|
---|
10 | D DP^LEXA3
|
---|
11 | ; Ask user for selection ASK^LEXA2
|
---|
12 | D ASK
|
---|
13 | ; Interpret user response EN^LEXAR(user response)
|
---|
14 | D EN^LEXAR(LEXUR,$G(LEXVDT))
|
---|
15 | Q
|
---|
16 | ASK ; Get users response
|
---|
17 | R LEXUR:300 I '$T S LEXUR="^"
|
---|
18 | I $L($G(DIC("B"))),LEXUR="" D
|
---|
19 | . S LEXUR=DIC("B") W " ",LEXUR
|
---|
20 | . I +($G(LEX))=1,$D(LEX("LIST",1)) D
|
---|
21 | . . W " ",$P(LEX("LIST",1),"^",2) S LEXUR=1
|
---|
22 | . I +LEXUR K DIC("B")
|
---|
23 | . K DIC("B")
|
---|
24 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.