Last change
on this file since 1074 was 636, checked in by George Lilly, 15 years ago |
WorldVistAEHR overlayed on FOIAVistA
|
File size:
659 bytes
|
Rev | Line | |
---|
[628] | 1 | LEXDD3 ; ISL Display Defaults - Display List ; 09-23-96
|
---|
[636] | 2 | ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
|
---|
[628] | 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.