| 1 | ONCPST22 ;HIRMFO/GWB - Post-init for Patch ONC*2.11*22
|
|---|
| 2 | ;;2.11;ONCOLOGY;**22**; Mar 07, 1995
|
|---|
| 3 | ;(1) Re-index STATUS (160,15) "AS" cross-reference
|
|---|
| 4 | ;(2) Remove TYPE OF REPORTING SOURCE (165.5,1.2) codes 2 and 9
|
|---|
| 5 | ;(3) Convert EXTRANODAL SITE W/C-D SURGERY (165.5,855) values of 888 to
|
|---|
| 6 | ; C888
|
|---|
| 7 | ;(4) Convert SEER EOD-88 3rd edition PROSTATE EXTENSION (165.5,30) codes
|
|---|
| 8 | ; '99' to '90'
|
|---|
| 9 | AS ;Reindex STATUS (160,15) field (1)
|
|---|
| 10 | K ^ONCO(160,"AS")
|
|---|
| 11 | S DIK="^ONCO(160,",DIK(1)="15" D ENALL^DIK
|
|---|
| 12 | K DIK
|
|---|
| 13 | S CT=0 F IEN=0:0 S IEN=$O(^ONCO(165.5,IEN)) Q:IEN'>0 D
|
|---|
| 14 | .S CT=CT+1 I CT#100=0 W "."
|
|---|
| 15 | .I ($P(^ONCO(165.5,IEN,0),U,10)=2)!($P(^ONCO(165.5,IEN,0),U,10)=9) S $P(^ONCO(165.5,IEN,0),U,10)="" ;(2)
|
|---|
| 16 | .I $D(^ONCO(165.5,IEN,3)),$P(^ONCO(165.5,IEN,3),U,33)=0 S $P(^ONCO(165.5,IEN,3),U,33)=1
|
|---|
| 17 | .I $D(^ONCO(165.5,IEN,"NHL2")),$P(^ONCO(165.5,IEN,"NHL2"),U,10)=888 S $P(^ONCO(165.5,IEN,"NHL2"),U,10)="C888" ;(3)
|
|---|
| 18 | .I '$D(^ONCO(165.5,IEN,2)) Q ;(4)
|
|---|
| 19 | .S TOP=$P($G(^ONCO(165.5,IEN,2)),U,1) ;Topography
|
|---|
| 20 | .S ED=$$EDITION^ONCOU55(IEN) ;Edition of SEER
|
|---|
| 21 | .S EXT=$P($G(^ONCO(165.5,IEN,2)),U,10) ;Extension
|
|---|
| 22 | .I (TOP'=67619)!(ED'=3)!(EXT'=99) Q
|
|---|
| 23 | .S $P(^ONCO(165.5,IEN,2),U,10)=90
|
|---|
| 24 | EXIT K CT,EXT,IEN,TOP,ED Q
|
|---|
