- LEXDD3 ;ISL/KER - Display Defaults - Display List ;04/21/2014
- ;;2.0;LEXICON UTILITY;**80**;Sep 23, 1996;Build 1
- ;
- ; 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
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLEXDD3 836 printed Jan 18, 2025@03:08:19 Page 2
- LEXDD3 ;ISL/KER - Display Defaults - Display List ;04/21/2014
- +1 ;;2.0;LEXICON UTILITY;**80**;Sep 23, 1996;Build 1
- +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