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 Dec 13, 2024@02:07:24 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
