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