source: WorldVistAEHR/trunk/r/LEXICON_UTILITY-LEX-GMPT/LEXDD2.m@ 1006

Last change on this file since 1006 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.4 KB
Line 
1LEXDD2 ; ISL Display Defaults - Build List ; 09-23-96
2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
3 ;
4BUILD ; Display defaults
5 Q:+($G(LEXDUZ))<1 Q:'$D(^VA(200,LEXDUZ,0))
6 I '$D(LEXLC) N LEXLC S LEXLC=0
7 I '$D(LEXC) N LEXC S LEXC=""
8APPS ; Get applications authorizing user defaults
9 K LEXD S LEXD(0)=0 N LEXA,LEXAP
10 D BLANK^LEXDD4,BLANK^LEXDD4,NAME^LEXDD4,BLANK^LEXDD4
11 D SEV^LEXDD4,LOC^LEXDD4
12 S LEXA="" F S LEXA=$O(^LEXT(757.2,"ADEF",LEXA)) Q:LEXA="" D
13 . N LEXAP S LEXAP=0
14 . F S LEXAP=$O(^LEXT(757.2,"ADEF",LEXA,LEXAP)) Q:+LEXAP=0 D
15 . . N LEXOK S LEXOK=$$FLD
16 . . I LEXOK D
17 . . . D BLANK^LEXDD4,APP^LEXDD4,BLANK^LEXDD4
18 . . . S LEXDICS=$G(^LEXT(757.2,LEXAP,200,LEXDUZ,1))
19 . . . S LEXDICS(0)=$G(^LEXT(757.2,LEXAP,200,LEXDUZ,1.5))
20 . . . S LEXSHOW=$G(^LEXT(757.2,LEXAP,200,LEXDUZ,2))
21 . . . S LEXSHOW(0)=$G(^LEXT(757.2,LEXAP,200,LEXDUZ,2.5))
22 . . . S LEXSUB=$G(^LEXT(757.2,LEXAP,200,LEXDUZ,3))
23 . . . S LEXSUB(0)=$G(^LEXT(757.2,LEXAP,200,LEXDUZ,3.5))
24 . . . S LEXCTX=$G(^LEXT(757.2,LEXAP,200,LEXDUZ,4))
25 . . . S LEXCTX(0)=$G(^LEXT(757.2,LEXAP,200,LEXDUZ,4.5))
26 . . . D DEF^LEXDD4
27 D DSPLY^LEXDD3
28 Q
29FLD(X) ; User Defaults
30 N LEX1,LEX2,LEX3,LEX4 S X=0
31 S LEX1=$G(^LEXT(757.2,LEXAP,200,LEXDUZ,1))
32 S LEX2=$G(^LEXT(757.2,LEXAP,200,LEXDUZ,2))
33 S LEX3=$G(^LEXT(757.2,LEXAP,200,LEXDUZ,3))
34 S LEX4=$G(^LEXT(757.2,LEXAP,200,LEXDUZ,4))
35 S:($L(LEX1)+$L(LEX2)+$L(LEX3)+$L(LEX4))>0 X=1
36 Q X
Note: See TracBrowser for help on using the repository browser.