27 lines
1.1 KiB
Mathematica
27 lines
1.1 KiB
Mathematica
ONCLPC4 ;Hines OIFO/GWB - 2001 Lung (NSCLC) Cancers PCE Study ;05/04/01
|
|
;;2.11;ONCOLOGY;**29**;Mar 07, 1995
|
|
;Pathology
|
|
K DR S DIE="^ONCO(165.5,",DA=ONCONUM,DR=""
|
|
W @IOF D HEAD^ONCLPC0
|
|
W !," PATHOLOGY"
|
|
W !," ---------"
|
|
S DR(1,165.5,1)="1402 11. DATE OF FIRST TISSUE DIAGNOSIS"
|
|
S DR(1,165.5,2)="W !"
|
|
S DR(1,165.5,3)="W !,"" 12. DISTANCE IN MILLIMETERS TO CLOSEST MARGIN:"""
|
|
S DR(1,165.5,4)="1429 PROXIMAL MARGIN.............."
|
|
S DR(1,165.5,5)="1429.1 DISTAL MARGIN................"
|
|
S DR(1,165.5,6)="W !"
|
|
S DR(1,165.5,7)="1417 13. FROZEN SECTION................"
|
|
S DR(1,165.5,8)="W !"
|
|
S DR(1,165.5,9)="W !,"" 14. INVASION:"""
|
|
S DR(1,165.5,10)="1418 VASCULAR....................."
|
|
S DR(1,165.5,11)="1418.1 LYMPHATICS..................."
|
|
S DR(1,165.5,12)="1418.2 PLEURA......................."
|
|
S DR(1,165.5,13)="1418.3 CHEST WALL..................."
|
|
S DR(1,165.5,14)="1418.4 OTHER........................"
|
|
D ^DIE
|
|
W !
|
|
K DIR S DIR(0)="E" D ^DIR S:$D(DIRUT) OUT="Y"
|
|
EXIT K DIC,DR,DA,DIQ,DIE,DIR,DIROUT,DIRUT,DTOUT,DUOUT,X,Y
|
|
Q
|