source: FOIAVistA/trunk/r/AUTOMATED_INFO_COLLECTION_SYS-IBD/IBDFN8.m@ 1607

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

initial load of FOIAVistA 6/30/08 version

File size: 754 bytes
Line 
1IBDFN8 ;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 ;
4INPUTCPT(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 ;
17INPUTICD(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 ;
27UPP(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.