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