LEXDD3.m

LEXDD3 ;ISL/KER - Display Defaults - Display List ;04/21/2014

 ;;2.0;LEXICON UTILITY;**80**;Sep 23, 1996;Build 10

 ;               

 ; Global Variables

 ;    None

 ;               

 ; External References

 ;    ^DIR                ICR  10026

 ;               

DSPLY ; Display Defaults contained in LEXD(

 Q:'$D(LEXD(0))

 Q:$G(LEXC)[U

 N LEXI F LEXI=1:1:LEXD(0) D  Q:$G(LEXC)[U

 . W !,LEXD(LEXI) D LF Q:$G(LEXC)[U

 K LEXD,LEXI Q

LF ; Line Feed

 Q:LEXI=LEXD(0)  S LEXLC=LEXLC+1

 I IOST["P-",LEXLC>(IOSL-7) D CONT,HDR

 I IOST'["P-",LEXLC>(IOSL-4) D CONT

 Q

CONT ; Page/Form Feed

 S LEXLC=0 I IOST["P-" W @IOF Q

 W ! S DIR("?")="  Additional information is available"

 S LEXC="" N X,Y S DIR(0)="E" D ^DIR

 S:$D(DTOUT)!(X[U) LEXC=U

 K DIR,DTOUT,DUOUT,DIRUT,DIROUT W ! Q

HDR ; Page Title

 W !,LEXITLE,!! S LEXLC=3 Q

LEXDD3    ;ISL/KER - Display Defaults - Display List ;04/21/2014

 +1       ;;2.0;LEXICON UTILITY;**80**;Sep 23, 1996;Build 10

 +2       ;               

 +3       ; Global Variables

 +4       ;    None

 +5       ;               

 +6       ; External References

 +7       ;    ^DIR                ICR  10026

 +8       ;               

DSPLY     ; Display Defaults contained in LEXD(

 +1        IF '$DATA(LEXD(0))

               QUIT 

 +2        IF $GET(LEXC)[U

               QUIT 

 +3        NEW LEXI

           FOR LEXI=1:1:LEXD(0)

               Begin DoDot:1

 +4                WRITE !,LEXD(LEXI)

                   DO LF

                   IF $GET(LEXC)[U

                       QUIT 

               End DoDot:1

               IF $GET(LEXC)[U

                   QUIT 

 +5        KILL LEXD,LEXI

           QUIT 

LF        ; Line Feed

 +1        IF LEXI=LEXD(0)

               QUIT 

           SET LEXLC=LEXLC+1

 +2        IF IOST["P-"

               IF LEXLC>(IOSL-7)

                   DO CONT

                   DO HDR

 +3        IF IOST'["P-"

               IF LEXLC>(IOSL-4)

                   DO CONT

 +4        QUIT 

CONT      ; Page/Form Feed

 +1        SET LEXLC=0

           IF IOST["P-"

               WRITE @IOF

               QUIT 

 +2        WRITE !

           SET DIR("?")="  Additional information is available"

 +3        SET LEXC=""

           NEW X,Y

           SET DIR(0)="E"

           DO ^DIR

 +4        IF $DATA(DTOUT)!(X[U)

               SET LEXC=U

 +5        KILL DIR,DTOUT,DUOUT,DIRUT,DIROUT

           WRITE !

           QUIT 

HDR       ; Page Title

 +1        WRITE !,LEXITLE,!!

           SET LEXLC=3

           QUIT