| 1 | ONCMPH ;Hines OIFO/GWB - Multiple primary stuffing logic; 01/26/07
|
---|
| 2 | ;;2.11;ONCOLOGY;**47**;Mar 07, 1995;Build 19
|
---|
| 3 | ;
|
---|
| 4 | UNKPRIM ;UNKNOWN PRIMARY (C80.9) stuffing
|
---|
| 5 | S $P(^ONCO(165.5,DA,24),U,14)=11
|
---|
| 6 | W !,"MULT TUM RPT AS ONE PRIM: NA"
|
---|
| 7 | S $P(^ONCO(165.5,DA,24),U,15)=8888888
|
---|
| 8 | W !,"DATE OF MULTIPLE TUMORS: 88/88/8888"
|
---|
| 9 | S $P(^ONCO(165.5,DA,24),U,16)=88
|
---|
| 10 | W !,"MULTIPLICITY COUNTER: 88"
|
---|
| 11 | S Y=28
|
---|
| 12 | Q
|
---|
| 13 | MTRAOP ;MULT TUM RPT AS ONE PRIM (165.5,194)
|
---|
| 14 | I X=1 D S Y=28 Q
|
---|
| 15 | .S $P(^ONCO(165.5,DA,24),U,15)="0000000"
|
---|
| 16 | .W !,"DATE OF MULTIPLE TUMORS: 00/00/0000"
|
---|
| 17 | .S $P(^ONCO(165.5,DA,24),U,16)="01"
|
---|
| 18 | .W !,"MULTIPLICITY COUNTER: 01"
|
---|
| 19 | I X=11 D S Y=28 Q
|
---|
| 20 | .S $P(^ONCO(165.5,DA,24),U,15)=8888888
|
---|
| 21 | .W !,"DATE OF MULTIPLE TUMORS: 88/88/8888"
|
---|
| 22 | .S $P(^ONCO(165.5,DA,24),U,16)=88
|
---|
| 23 | .W !,"MULTIPLICITY COUNTER: 88"
|
---|
| 24 | I X=12 D S Y=28 Q
|
---|
| 25 | .S $P(^ONCO(165.5,DA,24),U,15)=9999999
|
---|
| 26 | .W !,"DATE OF MULTIPLE TUMORS: 99/99/9999"
|
---|
| 27 | .S $P(^ONCO(165.5,DA,24),U,16)=99
|
---|
| 28 | .W !,"MULTIPLICITY COUNTER: 99"
|
---|
| 29 | Q
|
---|