source: FOIAVistA/trunk/r/ONCOLOGY-ONC/ONCOAIT.m@ 1607

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

initial load of FOIAVistA 6/30/08 version

File size: 534 bytes
Line 
1ONCOAIT ;Hines OIFO/GWB - Topography function; 7/20/93
2 ;;2.11;ONCOLOGY;**15,19,36**;Mar 07, 1995
3TOP() ;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.