Changeset 677 for ccr/trunk/p/C0CPROC.m

Timestamp:

Jan 22, 2010, 4:39:27 PM (14 years ago)

Author:

George Lilly

Message:

accomodate system that have CPT codes only in text field

File:

• ccr/trunk/p/C0CPROC.m (modified) (1 diff)

ccr/trunk/p/C0CPROC.m

@@ -95 +95 @@
  ; CPT^CATEGORY^TEXT
  N Z1,Z2,Z3,ZRTN
- I $P(ISTR,U,1)'="" D  ; IF THERE IS A CPT CODE IN THERE
- . S Z1=$P(ISTR,U,1)
+ S Z1=$P(ISTR,U,1) 
+ I Z1="" D  ;
+ . I ISTR["(CPT-4 " S Z1=$P($P(ISTR,"(CPT-4 ",2),")",1)
+ I Z1'="" D  ; IF THERE IS A CPT CODE IN THERE
+ . ;S Z1=$P(ISTR,U,1)
  . S Z2=$P(ISTR,U,2)
  . S Z3=$P(ISTR,U,3)