Routine: ONCLPC3

ONCLPC3 ;Hines OIFO/GWB - 2001 Lung (NSCLC) Cancers PCE Study ;05/04/01

 ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8

 ;Tumor Evaluation

 K DR S DIE="^ONCO(165.5,",DA=ONCONUM,DR=""

 W @IOF D HEAD^ONCLPC0

 W !," TUMOR EVALUATION"

 W !," ----------------"

 S DR(1,165.5,1)="W !,""  7. PULMONARY FUNCTION TESTS:"""

 S DR(1,165.5,2)="1407      FVC (forced vital capacity).."

 S DR(1,165.5,3)="1407.1      FEV (forced expiratory vol).."

 S DR(1,165.5,4)="W !"

 S DR(1,165.5,5)="1408  8. LIVER FUNCTION TESTS.........."

 S DR(1,165.5,6)="W !"

 S DR(1,165.5,7)="W !,""  9. RADIOLOGIC EVALUATION:"""

 S DR(1,165.5,8)="W !"

 ;S DR(1,165.5,8.1)="W !,""     BONE SCAN:"""

 S DR(1,165.5,9)="1409      BONE SCAN...................."

 S DR(1,165.5,10)="I ($G(X)=2)!($G(X)=9) S PIECE=27 D ITEM9^ONCLPC3 S Y=""@1410"""

 ;S DR(1,165.5,11)="I $G(X)=9 S PIECE=27 D ITEM9^ONCLPC3 S Y=""@1410"""

 S DR(1,165.5,12)="1409.1       EMPHYSEMA..................."

 S DR(1,165.5,13)="1409.2       VASCULAR INVASION..........."

 S DR(1,165.5,14)="1409.3       MEDIASTINAL LYMPH NODES....."

 S DR(1,165.5,15)="1409.4       SIZE OF DOMINANT TUMOR (mm)."

 S DR(1,165.5,16)="1409.5       NUMBER OF TUMORS............"

 S DR(1,165.5,17)="1409.6       EVIDENCE OF METASTASIS......"

 S DR(1,165.5,18)="@1410"

 S DR(1,165.5,19)="W !"

 ;S DR(1,165.5,20)="W !,""     CT SCAN OF CHEST:"""

 S DR(1,165.5,21)="1410      CT SCAN OF CHEST............."

 S DR(1,165.5,22)="I $G(X)=2 S PIECE=34 D ITEM9^ONCLPC3 S Y=""@1411"""

 S DR(1,165.5,23)="I $G(X)=9 S PIECE=34 D ITEM9^ONCLPC3 S Y=""@1411"""

 S DR(1,165.5,24)="1410.1       EMPHYSEMA..................."

 S DR(1,165.5,25)="1410.2       VASCULAR INVASION..........."

 S DR(1,165.5,26)="1410.3       MEDIASTINAL LYMPH NODES....."

 S DR(1,165.5,27)="1410.4       SIZE OF DOMINANT TUMOR (mm)."

 S DR(1,165.5,28)="1410.5       NUMBER OF TUMORS............"

 S DR(1,165.5,29)="1410.6       EVIDENCE OF METASTASIS......"

 S DR(1,165.5,30)="@1411"

 S DR(1,165.5,31)="W !"

 ;S DR(1,165.5,32)="W !,""     CT SCAN OF BRAIN:"""

 S DR(1,165.5,33)="1411      CT SCAN OF BRAIN............."

 S DR(1,165.5,34)="I $G(X)=2 S PIECE=41 D ITEM9^ONCLPC3 S Y=""@1412"""

 S DR(1,165.5,35)="I $G(X)=9 S PIECE=41 D ITEM9^ONCLPC3 S Y=""@1412"""

 S DR(1,165.5,36)="1411.1       EMPHYSEMA..................."

 S DR(1,165.5,37)="1411.2       VASCULAR INVASION..........."

 S DR(1,165.5,38)="1411.3       MEDIASTINAL LYMPH NODES....."

 S DR(1,165.5,39)="1411.4       SIZE OF DOMINANT TUMOR (mm)."

 S DR(1,165.5,40)="1411.5       NUMBER OF TUMORS............"

 S DR(1,165.5,41)="1411.6       EVIDENCE OF METASTASIS......"

 S DR(1,165.5,42)="@1412"

 S DR(1,165.5,43)="W !"

 ;S DR(1,165.5,44)="W !,""     MRI SCAN OF CHEST:"""

 S DR(1,165.5,45)="1412      MRI SCAN OF CHEST............"

 S DR(1,165.5,46)="I $G(X)=2 S PIECE=48 D ITEM9^ONCLPC3 S Y=""@1413"""

 S DR(1,165.5,47)="I $G(X)=9 S PIECE=48 D ITEM9^ONCLPC3 S Y=""@1413"""

 S DR(1,165.5,48)="1412.1       EMPHYSEMA..................."

 S DR(1,165.5,49)="1412.2       VASCULAR INVASION..........."

 S DR(1,165.5,50)="1412.3       MEDIASTINAL LYMPH NODES....."

 S DR(1,165.5,51)="1412.4       SIZE OF DOMINANT TUMOR (mm)."

 S DR(1,165.5,52)="1412.5       NUMBER OF TUMORS............"

 S DR(1,165.5,53)="1412.6       EVIDENCE OF METASTASIS......"

 S DR(1,165.5,54)="@1413"

 S DR(1,165.5,55)="W !"

 ;S DR(1,165.5,56)="W !,""     MRI SCAN OF BRAIN:"""

 S DR(1,165.5,57)="1413      MRI SCAN OF BRAIN............"

 S DR(1,165.5,58)="I $G(X)=2 S PIECE=55 D ITEM9^ONCLPC3 S Y=""@1414"""

 S DR(1,165.5,59)="I $G(X)=9 S PIECE=55 D ITEM9^ONCLPC3 S Y=""@1414"""

 S DR(1,165.5,60)="1413.1       EMPHYSEMA..................."

 S DR(1,165.5,61)="1413.2       VASCULAR INVASION..........."

 S DR(1,165.5,62)="1413.3       MEDIASTINAL LYMPH NODES....."

 S DR(1,165.5,63)="1413.4       SIZE OF DOMINANT TUMOR (mm)."

 S DR(1,165.5,64)="1413.5       NUMBER OF TUMORS............"

 S DR(1,165.5,65)="1413.6       EVIDENCE OF METASTASIS......"

 S DR(1,165.5,66)="@1414"

 S DR(1,165.5,67)="W !"

 ;S DR(1,165.5,68)="W !,""     PET SCAN:"""

 S DR(1,165.5,69)="1414      PET SCAN....................."

 S DR(1,165.5,70)="I $G(X)=2 S PIECE=62 D ITEM9^ONCLPC3 S Y=""@1415"""

 S DR(1,165.5,71)="I $G(X)=9 S PIECE=62 D ITEM9^ONCLPC3 S Y=""@1415"""

 S DR(1,165.5,72)="1414.1       EMPHYSEMA..................."

 S DR(1,165.5,73)="1414.2       VASCULAR INVASION..........."

 S DR(1,165.5,74)="1414.3       MEDIASTINAL LYMPH NODES....."

 S DR(1,165.5,75)="1414.4       SIZE OF DOMINANT TUMOR (mm)."

 S DR(1,165.5,76)="1414.5       NUMBER OF TUMORS............"

 S DR(1,165.5,77)="1414.6       EVIDENCE OF METASTASIS......"

 S DR(1,165.5,78)="@1415"

 S DR(1,165.5,79)="W !"

 ;S DR(1,165.5,80)="W !,""     X-RAY OF CHEST:"""

 S DR(1,165.5,81)="1415      X-RAY OF CHEST..............."

 S DR(1,165.5,82)="I $G(X)=2 S PIECE=69 D ITEM9^ONCLPC3 S Y=""@1416"""

 S DR(1,165.5,83)="I $G(X)=9 S PIECE=69 D ITEM9^ONCLPC3 S Y=""@1416"""

 S DR(1,165.5,84)="1415.1       EMPHYSEMA..................."

 S DR(1,165.5,85)="1415.2       VASCULAR INVASION..........."

 S DR(1,165.5,86)="1415.3       MEDIASTINAL LYMPH NODES....."

 S DR(1,165.5,87)="1415.4       SIZE OF DOMINANT TUMOR (mm)."

 S DR(1,165.5,88)="1415.5       NUMBER OF TUMORS............"

 S DR(1,165.5,89)="1415.6       EVIDENCE OF METASTASIS......"

 S DR(1,165.5,90)="@1416"

 S DR(1,165.5,91)="W !"

 S DR(1,165.5,92)="W !,"" 10. PRE-OP LYMPH NODE MAPPING:"""

 S DR(1,165.5,93)="1416      HIGHEST MEDIASTINAL (level 1)"

 S DR(1,165.5,94)="1416.1      UPPER PARATRACHEAL (level 2)."

 S DR(1,165.5,95)="1416.2      PREVASCULAR AND RETROTRACHEAL                                                    (level 3)..................."

 S DR(1,165.5,96)="1416.3      LOWER PARATRACHEAL (level 4)."

 S DR(1,165.5,97)="1416.4      SUBAORTIC (level 5).........."

 S DR(1,165.5,98)="1416.5      PARAORTIC (level 6).........."

 S DR(1,165.5,99)="1416.6      SUBCARINAL (level 7)........."

 S DR(1,165.5,100)="1416.7      PARAESOPHAGEAL (level 8)....."

 S DR(1,165.5,101)="1416.8      PULMONARY LIGAMENT (level 9)."

 D ^DIE

W !

 K DIR S DIR(0)="E" D ^DIR S:$D(DIRUT) OUT="Y"

EXIT K P,PIECE,DIC,DR,DA,DIQ,DIE,DIR,DIROUT,DIRUT,DTOUT,DUOUT,X,Y

ITEM9 ;RADIOLOGIC EVALUATION

 F P=1:1:6 S PIECE=PIECE+1,P(P)=PIECE

 I X=2 D  Q

 .S $P(^ONCO(165.5,D0,"LUN1"),U,P(1))=8

 .S $P(^ONCO(165.5,D0,"LUN1"),U,P(2))=8

 .S $P(^ONCO(165.5,D0,"LUN1"),U,P(3))=8

 .S $P(^ONCO(165.5,D0,"LUN1"),U,P(4))="000"

 .S $P(^ONCO(165.5,D0,"LUN1"),U,P(5))="00"

 .S $P(^ONCO(165.5,D0,"LUN1"),U,P(6))=8

 .W !,"       EMPHYSEMA...................: NA, test not performed"

 .W !,"       VASCULAR INVASION...........: NA, test not performed"

 .W !,"       MEDIASTINAL LYMPH NODES.....: NA, test not performed"

 .W !,"       SIZE OF DOMINANT TUMOR (mm).: Test not performed"

 .W !,"       NUMBER OF TUMORS............: Test not performed"

 .W !,"       EVIDENCE OF METASTASIS......: NA, test not performed"

 I X=9 D  Q

 .S $P(^ONCO(165.5,D0,"LUN1"),U,P(1))=9

 .S $P(^ONCO(165.5,D0,"LUN1"),U,P(2))=9

 .S $P(^ONCO(165.5,D0,"LUN1"),U,P(3))=9

 .S $P(^ONCO(165.5,D0,"LUN1"),U,P(4))="000"

 .S $P(^ONCO(165.5,D0,"LUN1"),U,P(5))="00"

 .S $P(^ONCO(165.5,D0,"LUN1"),U,P(6))=9

 .W !,"       EMPHYSEMA...................: Not documented"

 .W !,"       VASCULAR INVASION...........: Not documented"

 .W !,"       MEDIASTINAL LYMPH NODES.....: Not documented"

 .W !,"       SIZE OF DOMINANT TUMOR (mm).: Test not performed"

 .W !,"       NUMBER OF TUMORS............: Test not performed"

 .W !,"       EVIDENCE OF METASTASIS......: Not documented"

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCLPC3   7669     printed  Mar 13, 2025@21:28:22                                                                                                                                                                                                     Page 2

ONCLPC3   ;Hines OIFO/GWB - 2001 Lung (NSCLC) Cancers PCE Study ;05/04/01

 +1       ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8

 +2       ;Tumor Evaluation

 +3        KILL DR

           SET DIE="^ONCO(165.5,"

           SET DA=ONCONUM

           SET DR=""

 +4        WRITE @IOF

           DO HEAD^ONCLPC0

 +5        WRITE !," TUMOR EVALUATION"

 +6        WRITE !," ----------------"

 +7        SET DR(1,165.5,1)="W !,""  7. PULMONARY FUNCTION TESTS:"""

 +8        SET DR(1,165.5,2)="1407      FVC (forced vital capacity).."

 +9        SET DR(1,165.5,3)="1407.1      FEV (forced expiratory vol).."

 +10       SET DR(1,165.5,4)="W !"

 +11       SET DR(1,165.5,5)="1408  8. LIVER FUNCTION TESTS.........."

 +12       SET DR(1,165.5,6)="W !"

 +13       SET DR(1,165.5,7)="W !,""  9. RADIOLOGIC EVALUATION:"""

 +14       SET DR(1,165.5,8)="W !"

 +15      ;S DR(1,165.5,8.1)="W !,""     BONE SCAN:"""

 +16       SET DR(1,165.5,9)="1409      BONE SCAN...................."

 +17       SET DR(1,165.5,10)="I ($G(X)=2)!($G(X)=9) S PIECE=27 D ITEM9^ONCLPC3 S Y=""@1410"""

 +18      ;S DR(1,165.5,11)="I $G(X)=9 S PIECE=27 D ITEM9^ONCLPC3 S Y=""@1410"""

 +19       SET DR(1,165.5,12)="1409.1       EMPHYSEMA..................."

 +20       SET DR(1,165.5,13)="1409.2       VASCULAR INVASION..........."

 +21       SET DR(1,165.5,14)="1409.3       MEDIASTINAL LYMPH NODES....."

 +22       SET DR(1,165.5,15)="1409.4       SIZE OF DOMINANT TUMOR (mm)."

 +23       SET DR(1,165.5,16)="1409.5       NUMBER OF TUMORS............"

 +24       SET DR(1,165.5,17)="1409.6       EVIDENCE OF METASTASIS......"

 +25       SET DR(1,165.5,18)="@1410"

 +26       SET DR(1,165.5,19)="W !"

 +27      ;S DR(1,165.5,20)="W !,""     CT SCAN OF CHEST:"""

 +28       SET DR(1,165.5,21)="1410      CT SCAN OF CHEST............."

 +29       SET DR(1,165.5,22)="I $G(X)=2 S PIECE=34 D ITEM9^ONCLPC3 S Y=""@1411"""

 +30       SET DR(1,165.5,23)="I $G(X)=9 S PIECE=34 D ITEM9^ONCLPC3 S Y=""@1411"""

 +31       SET DR(1,165.5,24)="1410.1       EMPHYSEMA..................."

 +32       SET DR(1,165.5,25)="1410.2       VASCULAR INVASION..........."

 +33       SET DR(1,165.5,26)="1410.3       MEDIASTINAL LYMPH NODES....."

 +34       SET DR(1,165.5,27)="1410.4       SIZE OF DOMINANT TUMOR (mm)."

 +35       SET DR(1,165.5,28)="1410.5       NUMBER OF TUMORS............"

 +36       SET DR(1,165.5,29)="1410.6       EVIDENCE OF METASTASIS......"

 +37       SET DR(1,165.5,30)="@1411"

 +38       SET DR(1,165.5,31)="W !"

 +39      ;S DR(1,165.5,32)="W !,""     CT SCAN OF BRAIN:"""

 +40       SET DR(1,165.5,33)="1411      CT SCAN OF BRAIN............."

 +41       SET DR(1,165.5,34)="I $G(X)=2 S PIECE=41 D ITEM9^ONCLPC3 S Y=""@1412"""

 +42       SET DR(1,165.5,35)="I $G(X)=9 S PIECE=41 D ITEM9^ONCLPC3 S Y=""@1412"""

 +43       SET DR(1,165.5,36)="1411.1       EMPHYSEMA..................."

 +44       SET DR(1,165.5,37)="1411.2       VASCULAR INVASION..........."

 +45       SET DR(1,165.5,38)="1411.3       MEDIASTINAL LYMPH NODES....."

 +46       SET DR(1,165.5,39)="1411.4       SIZE OF DOMINANT TUMOR (mm)."

 +47       SET DR(1,165.5,40)="1411.5       NUMBER OF TUMORS............"

 +48       SET DR(1,165.5,41)="1411.6       EVIDENCE OF METASTASIS......"

 +49       SET DR(1,165.5,42)="@1412"

 +50       SET DR(1,165.5,43)="W !"

 +51      ;S DR(1,165.5,44)="W !,""     MRI SCAN OF CHEST:"""

 +52       SET DR(1,165.5,45)="1412      MRI SCAN OF CHEST............"

 +53       SET DR(1,165.5,46)="I $G(X)=2 S PIECE=48 D ITEM9^ONCLPC3 S Y=""@1413"""

 +54       SET DR(1,165.5,47)="I $G(X)=9 S PIECE=48 D ITEM9^ONCLPC3 S Y=""@1413"""

 +55       SET DR(1,165.5,48)="1412.1       EMPHYSEMA..................."

 +56       SET DR(1,165.5,49)="1412.2       VASCULAR INVASION..........."

 +57       SET DR(1,165.5,50)="1412.3       MEDIASTINAL LYMPH NODES....."

 +58       SET DR(1,165.5,51)="1412.4       SIZE OF DOMINANT TUMOR (mm)."

 +59       SET DR(1,165.5,52)="1412.5       NUMBER OF TUMORS............"

 +60       SET DR(1,165.5,53)="1412.6       EVIDENCE OF METASTASIS......"

 +61       SET DR(1,165.5,54)="@1413"

 +62       SET DR(1,165.5,55)="W !"

 +63      ;S DR(1,165.5,56)="W !,""     MRI SCAN OF BRAIN:"""

 +64       SET DR(1,165.5,57)="1413      MRI SCAN OF BRAIN............"

 +65       SET DR(1,165.5,58)="I $G(X)=2 S PIECE=55 D ITEM9^ONCLPC3 S Y=""@1414"""

 +66       SET DR(1,165.5,59)="I $G(X)=9 S PIECE=55 D ITEM9^ONCLPC3 S Y=""@1414"""

 +67       SET DR(1,165.5,60)="1413.1       EMPHYSEMA..................."

 +68       SET DR(1,165.5,61)="1413.2       VASCULAR INVASION..........."

 +69       SET DR(1,165.5,62)="1413.3       MEDIASTINAL LYMPH NODES....."

 +70       SET DR(1,165.5,63)="1413.4       SIZE OF DOMINANT TUMOR (mm)."

 +71       SET DR(1,165.5,64)="1413.5       NUMBER OF TUMORS............"

 +72       SET DR(1,165.5,65)="1413.6       EVIDENCE OF METASTASIS......"

 +73       SET DR(1,165.5,66)="@1414"

 +74       SET DR(1,165.5,67)="W !"

 +75      ;S DR(1,165.5,68)="W !,""     PET SCAN:"""

 +76       SET DR(1,165.5,69)="1414      PET SCAN....................."

 +77       SET DR(1,165.5,70)="I $G(X)=2 S PIECE=62 D ITEM9^ONCLPC3 S Y=""@1415"""

 +78       SET DR(1,165.5,71)="I $G(X)=9 S PIECE=62 D ITEM9^ONCLPC3 S Y=""@1415"""

 +79       SET DR(1,165.5,72)="1414.1       EMPHYSEMA..................."

 +80       SET DR(1,165.5,73)="1414.2       VASCULAR INVASION..........."

 +81       SET DR(1,165.5,74)="1414.3       MEDIASTINAL LYMPH NODES....."

 +82       SET DR(1,165.5,75)="1414.4       SIZE OF DOMINANT TUMOR (mm)."

 +83       SET DR(1,165.5,76)="1414.5       NUMBER OF TUMORS............"

 +84       SET DR(1,165.5,77)="1414.6       EVIDENCE OF METASTASIS......"

 +85       SET DR(1,165.5,78)="@1415"

 +86       SET DR(1,165.5,79)="W !"

 +87      ;S DR(1,165.5,80)="W !,""     X-RAY OF CHEST:"""

 +88       SET DR(1,165.5,81)="1415      X-RAY OF CHEST..............."

 +89       SET DR(1,165.5,82)="I $G(X)=2 S PIECE=69 D ITEM9^ONCLPC3 S Y=""@1416"""

 +90       SET DR(1,165.5,83)="I $G(X)=9 S PIECE=69 D ITEM9^ONCLPC3 S Y=""@1416"""

 +91       SET DR(1,165.5,84)="1415.1       EMPHYSEMA..................."

 +92       SET DR(1,165.5,85)="1415.2       VASCULAR INVASION..........."

 +93       SET DR(1,165.5,86)="1415.3       MEDIASTINAL LYMPH NODES....."

 +94       SET DR(1,165.5,87)="1415.4       SIZE OF DOMINANT TUMOR (mm)."

 +95       SET DR(1,165.5,88)="1415.5       NUMBER OF TUMORS............"

 +96       SET DR(1,165.5,89)="1415.6       EVIDENCE OF METASTASIS......"

 +97       SET DR(1,165.5,90)="@1416"

 +98       SET DR(1,165.5,91)="W !"

 +99       SET DR(1,165.5,92)="W !,"" 10. PRE-OP LYMPH NODE MAPPING:"""

 +100      SET DR(1,165.5,93)="1416      HIGHEST MEDIASTINAL (level 1)"

 +101      SET DR(1,165.5,94)="1416.1      UPPER PARATRACHEAL (level 2)."

 +102      SET DR(1,165.5,95)="1416.2      PREVASCULAR AND RETROTRACHEAL                                                    (level 3)..................."

 +103      SET DR(1,165.5,96)="1416.3      LOWER PARATRACHEAL (level 4)."

 +104      SET DR(1,165.5,97)="1416.4      SUBAORTIC (level 5).........."

 +105      SET DR(1,165.5,98)="1416.5      PARAORTIC (level 6).........."

 +106      SET DR(1,165.5,99)="1416.6      SUBCARINAL (level 7)........."

 +107      SET DR(1,165.5,100)="1416.7      PARAESOPHAGEAL (level 8)....."

 +108      SET DR(1,165.5,101)="1416.8      PULMONARY LIGAMENT (level 9)."

 +109      DO ^DIE

 +110      WRITE !

 +111      KILL DIR

           SET DIR(0)="E"

           DO ^DIR

           if $DATA(DIRUT)

               SET OUT="Y"

EXIT       KILL P,PIECE,DIC,DR,DA,DIQ,DIE,DIR,DIROUT,DIRUT,DTOUT,DUOUT,X,Y

 +1        QUIT

ITEM9     ;RADIOLOGIC EVALUATION

 +1        FOR P=1:1:6

               SET PIECE=PIECE+1

               SET P(P)=PIECE

 +2        IF X=2

               Begin DoDot:1

 +3                SET $PIECE(^ONCO(165.5,D0,"LUN1"),U,P(1))=8

 +4                SET $PIECE(^ONCO(165.5,D0,"LUN1"),U,P(2))=8

 +5                SET $PIECE(^ONCO(165.5,D0,"LUN1"),U,P(3))=8

 +6                SET $PIECE(^ONCO(165.5,D0,"LUN1"),U,P(4))="000"

 +7                SET $PIECE(^ONCO(165.5,D0,"LUN1"),U,P(5))="00"

 +8                SET $PIECE(^ONCO(165.5,D0,"LUN1"),U,P(6))=8

 +9                WRITE !,"       EMPHYSEMA...................: NA, test not performed"

 +10               WRITE !,"       VASCULAR INVASION...........: NA, test not performed"

 +11               WRITE !,"       MEDIASTINAL LYMPH NODES.....: NA, test not performed"

 +12               WRITE !,"       SIZE OF DOMINANT TUMOR (mm).: Test not performed"

 +13               WRITE !,"       NUMBER OF TUMORS............: Test not performed"

 +14               WRITE !,"       EVIDENCE OF METASTASIS......: NA, test not performed"

               End DoDot:1

               QUIT

 +15       IF X=9

               Begin DoDot:1

 +16               SET $PIECE(^ONCO(165.5,D0,"LUN1"),U,P(1))=9

 +17               SET $PIECE(^ONCO(165.5,D0,"LUN1"),U,P(2))=9

 +18               SET $PIECE(^ONCO(165.5,D0,"LUN1"),U,P(3))=9

 +19               SET $PIECE(^ONCO(165.5,D0,"LUN1"),U,P(4))="000"

 +20               SET $PIECE(^ONCO(165.5,D0,"LUN1"),U,P(5))="00"

 +21               SET $PIECE(^ONCO(165.5,D0,"LUN1"),U,P(6))=9

 +22               WRITE !,"       EMPHYSEMA...................: Not documented"

 +23               WRITE !,"       VASCULAR INVASION...........: Not documented"

 +24               WRITE !,"       MEDIASTINAL LYMPH NODES.....: Not documented"

 +25               WRITE !,"       SIZE OF DOMINANT TUMOR (mm).: Test not performed"

 +26               WRITE !,"       NUMBER OF TUMORS............: Test not performed"

 +27               WRITE !,"       EVIDENCE OF METASTASIS......: Not documented"

               End DoDot:1

               QUIT

 +28       QUIT

ONCLPC3.m