Last change
on this file since 1569 was 636, checked in by George Lilly, 15 years ago |
WorldVistAEHR overlayed on FOIAVistA
|
File size:
656 bytes
|
Line | |
---|
1 | LEXAR2 ; ISL Look-up Response (up arrow/jump/null); 09-23-96
|
---|
2 | ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
|
---|
3 | ;
|
---|
4 | UPA(LEXUR) ; Up-Arrow Detected
|
---|
5 | I LEXUR="^^" S X=LEXUR D EDA^LEXAR Q
|
---|
6 | N LEXR S LEXR=$P(LEXUR,"^",2,299)
|
---|
7 | I +LEXR>0,+LEXR'>LEX D JMP Q
|
---|
8 | S LEXUR=$E(LEXUR,1) I LEXUR="^",+LEXR=0 S X=LEXUR D EDU^LEXAR Q
|
---|
9 | Q
|
---|
10 | NULL ; Null response
|
---|
11 | N LEXEOA,LEXN S LEXEOA=+($P($G(LEX("LIST",0)),"^",1))
|
---|
12 | I LEXEOA=0 D EDA^LEXAR Q
|
---|
13 | S LEX=+($G(^TMP("LEXSCH",$J,"NUM",0))) I LEX=0 D EDA^LEXAR Q
|
---|
14 | I LEXEOA=LEX!(LEXEOA>LEX) D EDU^LEXAR Q
|
---|
15 | I LEXEOA'=LEX,LEXEOA<LEX D LIST^LEXAL2("PGDN")
|
---|
16 | Q
|
---|
17 | JMP ; Jump to # on list
|
---|
18 | S LEXR=+($G(LEXR)) Q:LEXR'>0!(LEXR>LEX)
|
---|
19 | D LIST^LEXAL2(LEXR)
|
---|
20 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.