Last change
on this file since 1578 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
659 bytes
|
Line | |
---|
1 | LEXDD3 ; ISL Display Defaults - Display List ; 09-23-96
|
---|
2 | ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
|
---|
3 | ;
|
---|
4 | DSPLY ; Display Defaults contained in LEXD(
|
---|
5 | Q:'$D(LEXD(0))
|
---|
6 | Q:$G(LEXC)[U
|
---|
7 | N LEXI F LEXI=1:1:LEXD(0) D Q:$G(LEXC)[U
|
---|
8 | . W !,LEXD(LEXI) D LF Q:$G(LEXC)[U
|
---|
9 | K LEXD,LEXI Q
|
---|
10 | LF ; Line Feed
|
---|
11 | Q:LEXI=LEXD(0) S LEXLC=LEXLC+1
|
---|
12 | I IOST["P-",LEXLC>(IOSL-7) D CONT,HDR
|
---|
13 | I IOST'["P-",LEXLC>(IOSL-4) D CONT
|
---|
14 | Q
|
---|
15 | CONT ; Page/Form Feed
|
---|
16 | S LEXLC=0 I IOST["P-" W @IOF Q
|
---|
17 | W ! S DIR("?")=" Additional information is available"
|
---|
18 | S LEXC="" N X,Y S DIR(0)="E" D ^DIR
|
---|
19 | S:$D(DTOUT)!(X[U) LEXC=U
|
---|
20 | K DIR,DTOUT,DUOUT,DIRUT,DIROUT W ! Q
|
---|
21 | HDR ; Page Title
|
---|
22 | W !,LEXITLE,!! S LEXLC=3 Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.