Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: LEXDD3

LEXDD3.m

Go to the documentation of this file.
  1. LEXDD3 ;ISL/KER - Display Defaults - Display List ;04/21/2014
  1. ;;2.0;LEXICON UTILITY;**80**;Sep 23, 1996;Build 1
  1. ;
  1. ; Global Variables
  1. ; None
  1. ;
  1. ; External References
  1. ; ^DIR ICR 10026
  1. ;
  1. DSPLY ; Display Defaults contained in LEXD(
  1. Q:'$D(LEXD(0))
  1. Q:$G(LEXC)[U
  1. N LEXI F LEXI=1:1:LEXD(0) D Q:$G(LEXC)[U
  1. . W !,LEXD(LEXI) D LF Q:$G(LEXC)[U
  1. K LEXD,LEXI Q
  1. LF ; Line Feed
  1. Q:LEXI=LEXD(0) S LEXLC=LEXLC+1
  1. I IOST["P-",LEXLC>(IOSL-7) D CONT,HDR
  1. I IOST'["P-",LEXLC>(IOSL-4) D CONT
  1. Q
  1. CONT ; Page/Form Feed
  1. S LEXLC=0 I IOST["P-" W @IOF Q
  1. W ! S DIR("?")=" Additional information is available"
  1. S LEXC="" N X,Y S DIR(0)="E" D ^DIR
  1. S:$D(DTOUT)!(X[U) LEXC=U
  1. K DIR,DTOUT,DUOUT,DIRUT,DIROUT W ! Q
  1. HDR ; Page Title
  1. W !,LEXITLE,!! S LEXLC=3 Q