Last change
on this file since 1606 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
754 bytes
|
Line | |
---|
1 | IBDFN8 ;ALB/CJM - ENCOUNTER FORM - PCE GDI INPUT TRANSFORMS;AUG 10, 1995
|
---|
2 | ;;3.0;AUTOMATED INFO COLLECTION SYS;**25,38,51**;APR 24, 1997
|
---|
3 | ;
|
---|
4 | INPUTCPT(X) ;changes X,a CPT code, into its ien
|
---|
5 | ;
|
---|
6 | ; --input: cpt code
|
---|
7 | ;
|
---|
8 | ; --output: ien of cpt code (file #81)
|
---|
9 | ;
|
---|
10 | S X=$$UPP(X)
|
---|
11 | ;;S X=+$$CPT^ICPTCOD(X)
|
---|
12 | S X=$$CPT^ICPTCOD(X)
|
---|
13 | I +X=-1 K X Q
|
---|
14 | I $P(X,U,7)'=1 K X ;(CSV) status 0-inactive 1-active
|
---|
15 | Q
|
---|
16 | ;
|
---|
17 | INPUTICD(ICD) ;changes X, an ICD9 code, into its ien
|
---|
18 | ;
|
---|
19 | S ICD=$$UPP(ICD)
|
---|
20 | S X=$O(^ICD9("BA",ICD_" ",0)) I 'X K X Q
|
---|
21 | ;;K:'X X
|
---|
22 | ;
|
---|
23 | ;(CSV) status 0-inactive 1-active
|
---|
24 | I $P($$ICDDX^ICDCODE(X),U,10)'=1 K X
|
---|
25 | Q
|
---|
26 | ;
|
---|
27 | UPP(X) ; -- convert lower case to upper case (especially when in codes above)
|
---|
28 | Q $TR(X,"zxcvbnmlkjhgfdsaqwertyuiop","ZXCVBNMLKJHGFDSAQWERTYUIOP")
|
---|
Note:
See
TracBrowser
for help on using the repository browser.