| 1 | LEXDDTC ; ISL Display Defaults - Shortcut Context ; 09-23-96
|
|---|
| 2 | ;;2.0;LEXICON UTILITY;;Sep 23, 1996
|
|---|
| 3 | ;
|
|---|
| 4 | CON ; Shortcut Context
|
|---|
| 5 | ; Required LEXCTX
|
|---|
| 6 | N LEXTCTR,LEXTD,LEXTI,LEXTIC,LEXTL,LEXTN,LEXTSTR,LEXT,LEXTV
|
|---|
| 7 | K LEX Q:'$L($G(LEXCTX)) S LEXCTX=+LEXCTX
|
|---|
| 8 | Q:LEXCTX'>0 Q:'$D(^LEX(757.41,LEXCTX))
|
|---|
| 9 | S LEX=LEXCTX S:'$D(LEXSTLN) LEXSTLN=56
|
|---|
| 10 | S LEXTI=0,(LEXTIC,LEXTN,LEXTV,LEXTD)="" D INT
|
|---|
| 11 | K:LEXSTLN=56 LEXSTLN Q
|
|---|
| 12 | INT ; Interpret string
|
|---|
| 13 | ; LEXCTX
|
|---|
| 14 | S LEXTIC=1
|
|---|
| 15 | S LEXTN=LEXTN_$P($G(^LEX(757.41,+LEXCTX,0)),"^",1)
|
|---|
| 16 | S LEXTN=LEXTN_" shortcut set"
|
|---|
| 17 | ; Build temporary phrase
|
|---|
| 18 | S LEX("V",1)="Use the "_LEXTN
|
|---|
| 19 | ; Process phrase
|
|---|
| 20 | S LEX("V",0)=1,LEXT="V",LEXTCTR=0,LEXTSTR=""
|
|---|
| 21 | D CONCAT^LEXDDT2 K LEX("V")
|
|---|
| 22 | I $E(LEXTSTR,$L(LEXTSTR))?1P S LEXTSTR=$E(LEXTSTR,1,($L(LEXTSTR)-1))
|
|---|
| 23 | I $E(LEXTSTR,$L(LEXTSTR))?1P S LEXTSTR=$E(LEXTSTR,1,($L(LEXTSTR)-1))
|
|---|
| 24 | D EOC^LEXDDT2
|
|---|
| 25 | Q
|
|---|
