|
Last change
on this file since 808 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
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.
