| 1 | LEXDDTD ; ISL Display Defaults - Display ; 09-23-96
|
|---|
| 2 | ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
|
|---|
| 3 | ;
|
|---|
| 4 | DSO ; Display Sources
|
|---|
| 5 | ; Required LEXSHOW
|
|---|
| 6 | K LEX N LEXTCTR,LEXTI,LEXTIC,LEXTSTR,LEXT
|
|---|
| 7 | S:'$D(LEXSTLN) LEXSTLN=56
|
|---|
| 8 | D:'$L($G(LEXSHOW)) NONE D:$L($G(LEXSHOW)) SHOW
|
|---|
| 9 | Q
|
|---|
| 10 | SHOW ; Show Classification Codes (sources)
|
|---|
| 11 | S LEX=LEXSHOW,LEXTCTR=0,LEX("L")=LEX
|
|---|
| 12 | S LEX("L","H")="Display codes from"
|
|---|
| 13 | S LEX("L","T")="coding system",LEXTCTR=0
|
|---|
| 14 | F LEXTI=1:1:$L(LEX("L"),"/") D
|
|---|
| 15 | . N LEXTIC S LEXTIC=$P(LEX("L"),"/",LEXTI) Q:LEXTIC="UND"
|
|---|
| 16 | . S LEXTCTR=LEXTCTR+1,LEX("L",LEXTCTR)=$$CN^LEXDDTF(LEXTIC)
|
|---|
| 17 | S:LEXTCTR>1 LEX("L","T")=LEX("L","T")_"s"
|
|---|
| 18 | S LEX("L","T")=LEX("L","T")_"."
|
|---|
| 19 | S LEX("L",0)=LEXTCTR
|
|---|
| 20 | S LEXTCTR=0,LEXTSTR="",LEXT="L"
|
|---|
| 21 | D:$G(LEX("L",0)) LNK^LEXDDTF
|
|---|
| 22 | D EOC^LEXDDT2
|
|---|
| 23 | Q
|
|---|
| 24 | NONE ; LEXSHOW is Null (nothing to show)
|
|---|
| 25 | S LEX=LEXSHOW,LEX("L")=LEX,LEXTCTR=0,LEXTSTR="",LEXT="L"
|
|---|
| 26 | S LEX("L","H")="Do not display Classification Codes",LEX("L",0)=0
|
|---|
| 27 | D LNK^LEXDDTF,EOC^LEXDDT2
|
|---|
| 28 | Q
|
|---|
