ONCLPC4 ;Hines OIFO/GWB - 2001 Lung (NSCLC) Cancers PCE Study ;05/04/01
;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
;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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCLPC4 1110 printed Dec 13, 2024@02:23:36 Page 2
ONCLPC4 ;Hines OIFO/GWB - 2001 Lung (NSCLC) Cancers PCE Study ;05/04/01
+1 ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
+2 ;Pathology
+3 KILL DR
SET DIE="^ONCO(165.5,"
SET DA=ONCONUM
SET DR=""
+4 WRITE @IOF
DO HEAD^ONCLPC0
+5 WRITE !," PATHOLOGY"
+6 WRITE !," ---------"
+7 SET DR(1,165.5,1)="1402 11. DATE OF FIRST TISSUE DIAGNOSIS"
+8 SET DR(1,165.5,2)="W !"
+9 SET DR(1,165.5,3)="W !,"" 12. DISTANCE IN MILLIMETERS TO CLOSEST MARGIN:"""
+10 SET DR(1,165.5,4)="1429 PROXIMAL MARGIN.............."
+11 SET DR(1,165.5,5)="1429.1 DISTAL MARGIN................"
+12 SET DR(1,165.5,6)="W !"
+13 SET DR(1,165.5,7)="1417 13. FROZEN SECTION................"
+14 SET DR(1,165.5,8)="W !"
+15 SET DR(1,165.5,9)="W !,"" 14. INVASION:"""
+16 SET DR(1,165.5,10)="1418 VASCULAR....................."
+17 SET DR(1,165.5,11)="1418.1 LYMPHATICS..................."
+18 SET DR(1,165.5,12)="1418.2 PLEURA......................."
+19 SET DR(1,165.5,13)="1418.3 CHEST WALL..................."
+20 SET DR(1,165.5,14)="1418.4 OTHER........................"
+21 DO ^DIE
+22 WRITE !
+23 KILL DIR
SET DIR(0)="E"
DO ^DIR
if $DATA(DIRUT)
SET OUT="Y"
EXIT KILL DIC,DR,DA,DIQ,DIE,DIR,DIROUT,DIRUT,DTOUT,DUOUT,X,Y
+1 QUIT