|
Last change
on this file since 634 was 628, checked in by George Lilly, 15 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
534 bytes
|
| Line | |
|---|
| 1 | ONCOAIT ;Hines OIFO/GWB - Topography function; 7/20/93
|
|---|
| 2 | ;;2.11;ONCOLOGY;**15,19,36**;Mar 07, 1995
|
|---|
| 3 | TOP() ;Called by ONCO ABSTRACT-I input template
|
|---|
| 4 | N ONCOFLD
|
|---|
| 5 | N ONCOED S ONCOED=$$TNMED^ONCOU55(D0)
|
|---|
| 6 | N TOP3 S TOP3=$E(TOP,3,5)
|
|---|
| 7 | I ONCOED<5,(TOP3=700)!($E(TOP3,1,2)=71) S ONCOFLD=21.5 ;INFRA/SUPRA for 4th edition brain cases
|
|---|
| 8 | E I TOP3=694 S ONCOFLD=21.51 ;IRIS/CILIARY BODY for Malignant Melanoma of the Uvea
|
|---|
| 9 | E I ONCOED<5,TOP3=529 S ONCOFLD=21.52 ;UPPER/LOWER for vagina cases
|
|---|
| 10 | E S ONCOFLD=100 ;proceed to TEXT-PRIMARY SITE
|
|---|
| 11 | Q ONCOFLD
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
