29 lines
754 B
Mathematica
29 lines
754 B
Mathematica
|
IBDFN8 ;ALB/CJM - ENCOUNTER FORM - PCE GDI INPUT TRANSFORMS;AUG 10, 1995
|
||
|
|
;;3.0;AUTOMATED INFO COLLECTION SYS;**25,38,51**;APR 24, 1997
|
||
|
|
;
|
||
|
|
INPUTCPT(X) ;changes X,a CPT code, into its ien
|
||
|
|
;
|
||
|
|
; --input: cpt code
|
||
|
|
;
|
||
|
|
; --output: ien of cpt code (file #81)
|
||
|
|
;
|
||
|
|
S X=$$UPP(X)
|
||
|
|
;;S X=+$$CPT^ICPTCOD(X)
|
||
|
|
S X=$$CPT^ICPTCOD(X)
|
||
|
|
I +X=-1 K X Q
|
||
|
|
I $P(X,U,7)'=1 K X ;(CSV) status 0-inactive 1-active
|
||
|
|
Q
|
||
|
|
;
|
||
|
|
INPUTICD(ICD) ;changes X, an ICD9 code, into its ien
|
||
|
|
;
|
||
|
|
S ICD=$$UPP(ICD)
|
||
|
|
S X=$O(^ICD9("BA",ICD_" ",0)) I 'X K X Q
|
||
|
|
;;K:'X X
|
||
|
|
;
|
||
|
|
;(CSV) status 0-inactive 1-active
|
||
|
|
I $P($$ICDDX^ICDCODE(X),U,10)'=1 K X
|
||
|
|
Q
|
||
|
|
;
|
||
|
|
UPP(X) ; -- convert lower case to upper case (especially when in codes above)
|
||
|
|
Q $TR(X,"zxcvbnmlkjhgfdsaqwertyuiop","ZXCVBNMLKJHGFDSAQWERTYUIOP")
|