|
Last change
on this file since 808 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
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.
