| 1 | LEXXFI6 ; ISL/KER - File Info - DD Information ; 07/28/2004
|
|---|
| 2 | ;;2.0;LEXICON UTILITY;**32**;Sep 23, 1996;Build 1
|
|---|
| 3 | Q
|
|---|
| 4 | ;
|
|---|
| 5 | ; Global Variables
|
|---|
| 6 | ; ^TMP("LEXI",$J SACC 2.3.2.5.1
|
|---|
| 7 | ;
|
|---|
| 8 | ; External References
|
|---|
| 9 | ; DBIA 10022 %XY^%RCR
|
|---|
| 10 | ;
|
|---|
| 11 | DDI(X,LEX) ; Data Dictionary Information
|
|---|
| 12 | N %X,%Y,LEXFI,LEXFLD,LEXLOC,LEXND,LEXNDD,LEXNM,LEXSF
|
|---|
| 13 | K ^TMP("LEXI",$J) S LEXFI=+($G(X)) Q:+LEXFI'>0
|
|---|
| 14 | S %X="^DD("_LEXFI_",",%Y="^TMP(""LEXI"",$J,"_LEXFI_"," D %XY^%RCR
|
|---|
| 15 | S LEX("DD",LEXFI,0)=$G(^TMP("LEXI",$J,LEXFI,0))
|
|---|
| 16 | S LEXNM=$O(^TMP("LEXI",$J,LEXFI,0,"NM",""))
|
|---|
| 17 | S:$L(LEXNM) LEX("DD",LEXFI,0,"NM",LEXNM)=""
|
|---|
| 18 | S LEXFLD=0 F S LEXFLD=$O(^TMP("LEXI",$J,LEXFI,LEXFLD)) Q:+LEXFLD=0 D
|
|---|
| 19 | . S LEXLOC=$G(^TMP("LEXI",$J,LEXFI,LEXFLD,0))
|
|---|
| 20 | . Q:+($P($P(LEXLOC,"^",4),";",2))>0
|
|---|
| 21 | . S LEX("DD",LEXFI,LEXFLD,0)=$G(^TMP("LEXI",$J,LEXFI,LEXFLD,0))
|
|---|
| 22 | S LEXND="" F S LEXND=$O(^TMP("LEXI",$J,LEXFI,"GL",LEXND)) Q:LEXND="" D
|
|---|
| 23 | . S LEXLOC="" F S LEXLOC=$O(^TMP("LEXI",$J,LEXFI,"GL",LEXND,LEXLOC)) Q:LEXLOC="" D
|
|---|
| 24 | . . Q:+LEXLOC>0 S LEXFLD=0
|
|---|
| 25 | . . F S LEXFLD=$O(^TMP("LEXI",$J,LEXFI,"GL",LEXND,LEXLOC,LEXFLD)) Q:+LEXFLD=0 D
|
|---|
| 26 | . . . S LEXNDD=$G(^TMP("LEXI",$J,LEXFI,LEXFLD,0))
|
|---|
| 27 | . . . S LEXSF=+($P(LEXNDD,"^",2)) Q:+LEXSF=0
|
|---|
| 28 | . . . S LEX("DD",LEXFI,"GL",LEXND,LEXLOC,LEXFLD)=""
|
|---|
| 29 | . . . S:+LEXSF>0 LEX("DD",LEXFI,"GL",LEXND,LEXLOC,LEXFLD)=+LEXSF
|
|---|
| 30 | S LEXSF=0 F S LEXSF=$O(^TMP("LEXI",$J,LEXFI,"SB",LEXSF)) Q:+LEXSF=0 D
|
|---|
| 31 | . S LEXFLD=0 F S LEXFLD=$O(^TMP("LEXI",$J,LEXFI,"SB",LEXSF,LEXFLD)) Q:+LEXFLD=0 D
|
|---|
| 32 | . . S LEX("DD",LEXFI,"SB",LEXSF,LEXFLD)=""
|
|---|
| 33 | I $L($G(^TMP("LEXI",$J,LEXFI,0,"UP"))) D
|
|---|
| 34 | . S LEX("DD",LEXFI,0,"UP")=$G(^TMP("LEXI",$J,LEXFI,0,"UP"))
|
|---|
| 35 | K ^TMP("LEXI",$J,LEXFI)
|
|---|
| 36 | S %X="^DIC("_LEXFI_",",%Y="^TMP(""LEXI"",$J,"_LEXFI_"," D %XY^%RCR
|
|---|
| 37 | I $D(^TMP("LEXI",$J,LEXFI,0)) D
|
|---|
| 38 | . S LEX("DIC",LEXFI,0)=$G(^TMP("LEXI",$J,LEXFI,0))
|
|---|
| 39 | I $D(^TMP("LEXI",$J,LEXFI,0,"GL")) D
|
|---|
| 40 | . S LEX("DIC",LEXFI,0,"GL")=$G(^TMP("LEXI",$J,LEXFI,0,"GL"))
|
|---|
| 41 | K ^TMP("LEXI",$J,LEXFI)
|
|---|
| 42 | S LEXSF=0 F S LEXSF=$O(LEX("DD",LEXFI,"SB",LEXSF)) Q:+LEXSF'>0 D DDI2
|
|---|
| 43 | I $D(LEX("DD",LEXFI,0,"UP")) D DDI3
|
|---|
| 44 | Q
|
|---|
| 45 | DDI2 ; Sub-Files
|
|---|
| 46 | Q:+($G(LEXSF))'>0 Q:$D(LEX("DD",LEXSF))
|
|---|
| 47 | N LEXTSF,LEXTFI S LEXTSF=LEXSF,LEXTFI=LEXFI
|
|---|
| 48 | N LEXFI S LEXFI=+LEXTSF K ^TMP("LEXI",$J,LEXTFI)
|
|---|
| 49 | D DDI(LEXFI,.LEX)
|
|---|
| 50 | Q
|
|---|
| 51 | DDI3 ; Parent Files
|
|---|
| 52 | Q:'$D(LEX("DD",LEXFI,0,"UP"))
|
|---|
| 53 | N LEXUP,LEXTFI
|
|---|
| 54 | S LEXUP=+($G(LEX("DD",LEXFI,0,"UP"))) Q:$D(LEX("DD",LEXUP))
|
|---|
| 55 | S LEXTFI=LEXFI N LEXFI S LEXFI=+LEXUP
|
|---|
| 56 | D DDI(LEXFI,.LEX)
|
|---|
| 57 | Q
|
|---|
