source: WorldVistAEHR/trunk/r/LEXICON_UTILITY-LEX-GMPT/LEXDD3.m@ 701

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

initial load of WorldVistAEHR

File size: 659 bytes
Line 
1LEXDD3 ; ISL Display Defaults - Display List ; 09-23-96
2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
3 ;
4DSPLY ; 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
10LF ; 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
15CONT ; 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
21HDR ; Page Title
22 W !,LEXITLE,!! S LEXLC=3 Q
Note: See TracBrowser for help on using the repository browser.