source: WorldVistAEHR/trunk/r/LEXICON_UTILITY-LEX-GMPT/LEXA2.m@ 1006

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

initial load of WorldVistAEHR

File size: 671 bytes
Line 
1LEXA2 ;ISL/KER-Look-up (Loud) Select ; 02/02/2006
2 ;;2.0;LEXICON UTILITY;**38**;Sep 23, 1996;Build 1
3 ;
4SELECT ; 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
16ASK ; 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.