source: WorldVistAEHR/trunk/r/ONCOLOGY-ONC/ONCLPC4.m@ 1800

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

initial load of WorldVistAEHR

File size: 1.1 KB
RevLine 
[613]1ONCLPC4 ;Hines OIFO/GWB - 2001 Lung (NSCLC) Cancers PCE Study ;05/04/01
2 ;;2.11;ONCOLOGY;**29**;Mar 07, 1995
3 ;Pathology
4 K DR S DIE="^ONCO(165.5,",DA=ONCONUM,DR=""
5 W @IOF D HEAD^ONCLPC0
6 W !," PATHOLOGY"
7 W !," ---------"
8 S DR(1,165.5,1)="1402 11. DATE OF FIRST TISSUE DIAGNOSIS"
9 S DR(1,165.5,2)="W !"
10 S DR(1,165.5,3)="W !,"" 12. DISTANCE IN MILLIMETERS TO CLOSEST MARGIN:"""
11 S DR(1,165.5,4)="1429 PROXIMAL MARGIN.............."
12 S DR(1,165.5,5)="1429.1 DISTAL MARGIN................"
13 S DR(1,165.5,6)="W !"
14 S DR(1,165.5,7)="1417 13. FROZEN SECTION................"
15 S DR(1,165.5,8)="W !"
16 S DR(1,165.5,9)="W !,"" 14. INVASION:"""
17 S DR(1,165.5,10)="1418 VASCULAR....................."
18 S DR(1,165.5,11)="1418.1 LYMPHATICS..................."
19 S DR(1,165.5,12)="1418.2 PLEURA......................."
20 S DR(1,165.5,13)="1418.3 CHEST WALL..................."
21 S DR(1,165.5,14)="1418.4 OTHER........................"
22 D ^DIE
23 W !
24 K DIR S DIR(0)="E" D ^DIR S:$D(DIRUT) OUT="Y"
25EXIT K DIC,DR,DA,DIQ,DIE,DIR,DIROUT,DIRUT,DTOUT,DUOUT,X,Y
26 Q
Note: See TracBrowser for help on using the repository browser.