source: WorldVistAEHR/trunk/r/LEXICON_UTILITY-LEX-GMPT/LEXDDTC.m@ 1789

Last change on this file since 1789 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 853 bytes
Line 
1LEXDDTC ; ISL Display Defaults - Shortcut Context ; 09-23-96
2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
3 ;
4CON ; 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
12INT ; 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
Note: See TracBrowser for help on using the repository browser.