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
Q
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"
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCLPC3 7669 printed Dec 13, 2024@02:23:35 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
