| 1 | LEXDD2 ; ISL Display Defaults - Build List ; 09-23-96
|
|---|
| 2 | ;;2.0;LEXICON UTILITY;;Sep 23, 1996
|
|---|
| 3 | ;
|
|---|
| 4 | BUILD ; 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=""
|
|---|
| 8 | APPS ; 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
|
|---|
| 29 | FLD(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
|
|---|
