| 1 | LEXMTLU ; ISL Setup Appl/User Defaults for Look-up ; 05/25/1998
|
|---|
| 2 | ;;2.0;LEXICON UTILITY;**11**;Sep 23, 1996;Build 1
|
|---|
| 3 | ;
|
|---|
| 4 | EN ; X not set
|
|---|
| 5 | D MTLU^LEXSET5 S X=$$TERM Q:X=""!(X["^")
|
|---|
| 6 | I $D(X),$G(X)'[U,$G(X)'="",$G(X)'=" " D XTLK
|
|---|
| 7 | Q
|
|---|
| 8 | XTLK ;
|
|---|
| 9 | N LEXQ S LEXQ=0 D MTLU^LEXSET5
|
|---|
| 10 | I '$D(X)!($G(X)[U)!($G(X)="")!($G(X)=" ") S X=$$TERM
|
|---|
| 11 | Q:X=""!(X["^") S XTLKX=X D ^XTLKKWL
|
|---|
| 12 | K DIC,LEXAP,LEXLL,LEXSHOW,LEXSUB,LEXUN
|
|---|
| 13 | K XTLKKSCH,XTLKSAY,XTLKWD2,XTLKX,XTLKHLP S:+Y'>0 X=""
|
|---|
| 14 | Q
|
|---|
| 15 | TERM(X) ; Get expression
|
|---|
| 16 | N DIR,Y S DIR("A")="Enter an expression: "
|
|---|
| 17 | S DIR("?")=" "_$$SQ^LEXHLP ; PCH 11
|
|---|
| 18 | S DIR("??")="^D TERMHLP^LEXMTLU" N Y S DIR(0)="FAO^2:245" D ^DIR
|
|---|
| 19 | S DIC="^LEX(757.01," S:X[U&(X'["^^") X=U S:X["^^" X="^^" Q:X[U "^"
|
|---|
| 20 | I X=" ",+($G(^DISV(DUZ,DIC)))>0 S X=@(DIC_+($G(^DISV(DUZ,DIC)))_",0)") W " ",X
|
|---|
| 21 | F Q:$E(X,1)'=" " S X=$E(X,2,$L(X))
|
|---|
| 22 | W:$D(DTOUT) !,"Try later.",! S:$D(DTOUT) X=""
|
|---|
| 23 | S:X[U DUOUT=1 K DIR,DIRUT,DIROUT Q X
|
|---|
| 24 | TERMHLP ; Look-up help PCH 11
|
|---|
| 25 | N X S X="" S:$L($G(DIR("?"))) X=$G(DIR("?")) S:'$L(X) X=" "_$$SQ^LEXHLP
|
|---|
| 26 | W:$L(X) !!,X,!
|
|---|
| 27 | W !," Best results occur using one to three full or partial words without"
|
|---|
| 28 | W !," a suffix (i.e., ""DIABETES"",""DIAB MELL"",""DIAB MELL INSUL"") or"
|
|---|
| 29 | W !," a classification code (ICD, CPT, HCPCS, etc)"
|
|---|
| 30 | Q
|
|---|
| 31 | DD ; Display Defaults in ^TMP("LEXSCH",$J)
|
|---|
| 32 | N LEXNODE S LEXNODE="^TMP(""LEXSCH"","_$J_")"
|
|---|
| 33 | N LEXOK S LEXOK=1 F S LEXNODE=$Q(@LEXNODE) Q:'LEXOK D Q:'LEXOK
|
|---|
| 34 | . I LEXNODE'["LEXSCH" S LEXOK=0 Q
|
|---|
| 35 | . I LEXNODE'[$J S LEXOK=0 Q
|
|---|
| 36 | . W !,LEXNODE,"=",@LEXNODE
|
|---|
| 37 | Q
|
|---|
