| [613] | 1 | SROAX ;BIR/ADM - EXCLUSION UTILITY ;02/01/07
|
|---|
| 2 | ;;3.0; Surgery ;**160**;24 Jun 93;Build 7
|
|---|
| 3 | Q
|
|---|
| 4 | XL(SRCASE) ; compare CPT codes with exclusion list, return cpt code ien not excluded
|
|---|
| 5 | N SRCODE,SRCPT,SRDATE,SROTH,SRQ,SRXCLD,Y
|
|---|
| 6 | S (SRQ,SRXCLD)=0,SRCODE="",SRDATE=$P($G(^SRF(SRCASE,0)),"^",9)
|
|---|
| 7 | I $G(^SRO(136,SRCASE,0)) S SRCPT=$P($G(^SRO(136,SRCASE,0)),"^",2) I SRCPT'="" D COMP I SRQ G END
|
|---|
| 8 | S SROTH=0 F S SROTH=$O(^SRO(136,SRCASE,3,SROTH)) Q:'SROTH D Q:SRQ
|
|---|
| 9 | .S SRXCLD=0,SRCPT=$P($G(^SRO(136,SRCASE,3,SROTH,0)),"^") I SRCPT'="" D COMP
|
|---|
| 10 | END Q SRCODE
|
|---|
| 11 | COMP I $G(^SRO(137,SRCPT,0)) S SRXCLD=1 Q
|
|---|
| 12 | I 'SRXCLD S SRQ=1,Y=$$CPT^ICPTCOD(SRCPT,SRDATE),SRCODE=$P(Y,"^") ; SRCODE=ien in file 81
|
|---|
| 13 | Q
|
|---|
