| 1 | ONCOPRE ;HIRMFO/GWB-PRE-INSTALL ROUTINE FOR PATCH ONC*2.11*5 04/29/96
|
|---|
| 2 | ;;2.11;ONCOLOGY;**1,5**;Mar 07, 1995
|
|---|
| 3 | ;
|
|---|
| 4 | ;Delete CANCER-DIRECTED SURGERY (165.5,58.2) to remove ALGORITHM code
|
|---|
| 5 | S DIK="^DD(165.5,",DA=58.2,DA(1)=165.5 D ^DIK
|
|---|
| 6 | K DIK,DA
|
|---|
| 7 | ;Delete BLADDER PHYSICIAN SPECIALTY (#166.12) entries
|
|---|
| 8 | S DIK="^ONCO(166.12," F DA=1:1:11 D ^DIK
|
|---|
| 9 | K DIK,DA
|
|---|
| 10 | ;Delete BLADDER REGIONAL TREATMENT MODALITY (#166.13) entries
|
|---|
| 11 | S DIK="^ONCO(166.13," F DA=1:1:19 D ^DIK
|
|---|
| 12 | K DIK,DA
|
|---|
| 13 | ;Edit THAI entry in RACE CODE FOR ONCOLOGY (#164.46) file to change
|
|---|
| 14 | ;to lowercase
|
|---|
| 15 | S DIE="^ONCO(164.46,",DA=14,DR=".01///Thai" D ^DIE
|
|---|
| 16 | K DIE,DA
|
|---|
| 17 | SEX ;Edit SEX CODE FOR ONCOLOGY (#164.47) entries to change to lowercase
|
|---|
| 18 | S DIE="^ONCO(164.47,",DA=1,DR=".01///Male" D ^DIE
|
|---|
| 19 | S DIE="^ONCO(164.47,",DA=2,DR=".01///Female" D ^DIE
|
|---|
| 20 | S DIE="^ONCO(164.47,",DA=3,DR=".01///Other (hermaphrodite)" D ^DIE
|
|---|
| 21 | S DIE="^ONCO(164.47,",DA=4,DR=".01///Transsexual" D ^DIE
|
|---|
| 22 | S DIE="^ONCO(164.47,",DA=9,DR=".01///Not stated" D ^DIE
|
|---|
