Changeset 677


Ignore:
Timestamp:
Jan 22, 2010, 4:39:27 PM (15 years ago)
Author:
George Lilly
Message:

accomodate system that have CPT codes only in text field

Location:
ccr/trunk/p
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • ccr/trunk/p/C0CCPT.m

    r675 r677  
    8989GETNOTE(IEN)    ;GET THE TEXT THAT GOES WITH VISIT
    9090        ;EXTRACT NOTE TEXT FROM ^TIU(8925,IEN,"TEXT"
    91         Q:'$D(VISIT(IEN,"CPT"))
     91        ;Q:'$D(VISIT(IEN,"CPT"))
    9292        S TXTCNT=0
    9393        F  S TXTCNT=TXTCNT+1 Q:'$D(^TIU(8925,IEN,"TEXT",TXTCNT,0))  D
  • ccr/trunk/p/C0CPROC.m

    r676 r677  
    9595 ; CPT^CATEGORY^TEXT
    9696 N Z1,Z2,Z3,ZRTN
    97  I $P(ISTR,U,1)'="" D  ; IF THERE IS A CPT CODE IN THERE
    98  . S Z1=$P(ISTR,U,1)
     97 S Z1=$P(ISTR,U,1)
     98 I Z1="" D  ;
     99 . I ISTR["(CPT-4 " S Z1=$P($P(ISTR,"(CPT-4 ",2),")",1)
     100 I Z1'="" D  ; IF THERE IS A CPT CODE IN THERE
     101 . ;S Z1=$P(ISTR,U,1)
    99102 . S Z2=$P(ISTR,U,2)
    100103 . S Z3=$P(ISTR,U,3)
Note: See TracChangeset for help on using the changeset viewer.