source: WorldVistAEHR/trunk/r/LEXICON_UTILITY-LEX-GMPT/LEXAR2.m@ 1111

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

initial load of WorldVistAEHR

File size: 656 bytes
Line 
1LEXAR2 ; ISL Look-up Response (up arrow/jump/null); 09-23-96
2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
3 ;
4UPA(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
10NULL ; 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
17JMP ; 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.