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

LEXDD2.m

Go to the documentation of this file.
  1. LEXDD2 ;ISL/KER - Display Defaults - Build 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. ; $$GET1^DIQ ICR 2056
  1. ;
  1. BUILD ; Display defaults
  1. Q:+($G(LEXDUZ))<1 Q:'$L($$GET1^DIQ(200,+($G(LEXDUZ)),.01))
  1. I '$D(LEXLC) N LEXLC S LEXLC=0
  1. I '$D(LEXC) N LEXC S LEXC=""
  1. APPS ; Get applications authorizing user defaults
  1. K LEXD S LEXD(0)=0 N LEXA,LEXAP
  1. D BLANK^LEXDD4,BLANK^LEXDD4,NAME^LEXDD4,BLANK^LEXDD4
  1. D SEV^LEXDD4
  1. S LEXA="" F S LEXA=$O(^LEXT(757.2,"ADEF",LEXA)) Q:LEXA="" D
  1. . N LEXAP S LEXAP=0
  1. . F S LEXAP=$O(^LEXT(757.2,"ADEF",LEXA,LEXAP)) Q:+LEXAP=0 D
  1. . . N LEXOK S LEXOK=$$FLD
  1. . . I LEXOK D
  1. . . . D BLANK^LEXDD4,APP^LEXDD4,BLANK^LEXDD4
  1. . . . S LEXDICS=$G(^LEXT(757.2,LEXAP,200,LEXDUZ,1))
  1. . . . S LEXDICS(0)=$G(^LEXT(757.2,LEXAP,200,LEXDUZ,1.5))
  1. . . . S LEXSHOW=$G(^LEXT(757.2,LEXAP,200,LEXDUZ,2))
  1. . . . S LEXSHOW(0)=$G(^LEXT(757.2,LEXAP,200,LEXDUZ,2.5))
  1. . . . S LEXSUB=$G(^LEXT(757.2,LEXAP,200,LEXDUZ,3))
  1. . . . S LEXSUB(0)=$G(^LEXT(757.2,LEXAP,200,LEXDUZ,3.5))
  1. . . . S LEXCTX=$G(^LEXT(757.2,LEXAP,200,LEXDUZ,4))
  1. . . . S LEXCTX(0)=$G(^LEXT(757.2,LEXAP,200,LEXDUZ,4.5))
  1. . . . D DEF^LEXDD4
  1. D DSPLY^LEXDD3
  1. Q
  1. FLD(X) ; User Defaults
  1. N LEX1,LEX2,LEX3,LEX4 S X=0
  1. S LEX1=$G(^LEXT(757.2,LEXAP,200,LEXDUZ,1))
  1. S LEX2=$G(^LEXT(757.2,LEXAP,200,LEXDUZ,2))
  1. S LEX3=$G(^LEXT(757.2,LEXAP,200,LEXDUZ,3))
  1. S LEX4=$G(^LEXT(757.2,LEXAP,200,LEXDUZ,4))
  1. S:($L(LEX1)+$L(LEX2)+$L(LEX3)+$L(LEX4))>0 X=1
  1. Q X