source: FOIAVistA/trunk/r/ONCOLOGY-ONC/ONCMPH.m@ 1068

Last change on this file since 1068 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 955 bytes
Line 
1ONCMPH ;Hines OIFO/GWB - Multiple primary stuffing logic; 01/26/07
2 ;;2.11;ONCOLOGY;**47**;Mar 07, 1995;Build 19
3 ;
4UNKPRIM ;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
13MTRAOP ;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
Note: See TracBrowser for help on using the repository browser.