source: WorldVistAEHR/trunk/r/LEXICON_UTILITY-LEX-GMPT/LEXDDTD.m@ 1261

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

initial load of WorldVistAEHR

File size: 960 bytes
Line 
1LEXDDTD ; ISL Display Defaults - Display ; 09-23-96
2 ;;2.0;LEXICON UTILITY;;Sep 23, 1996;Build 1
3 ;
4DSO ; 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
10SHOW ; 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
24NONE ; 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
Note: See TracBrowser for help on using the repository browser.