Last change
on this file since 1726 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
671 bytes
|
Rev | Line | |
---|
[613] | 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.