ONCOPA1A ;HINES OIFO/GWB - PRINT COMPLETE ABSTRACT continued ;10/05/11
;;2.2;ONCOLOGY;**1,6,10,12,13**;Jul 31, 2013;Build 7
;
I (COC=10)!(COC=11)!(COC=12)!(COC=13)!(COC=14),$E(TOP,3,4)=34 D
.W !," Blood in Sputum Per Pt: ",ONCAB(165.5,IEN,174.1)," ",ONCAB(165.5,IEN,174) D P Q:EX=U
.W !," Dyspnea: ",ONCAB(165.5,IEN,186.1)," ",ONCAB(165.5,IEN,186) D P Q:EX=U
.W !," Increased Cough: ",ONCAB(165.5,IEN,187.1)," ",ONCAB(165.5,IEN,187) D P Q:EX=U
.W !," Fever: ",ONCAB(165.5,IEN,188.1)," ",ONCAB(165.5,IEN,188) D P Q:EX=U
.W !," Night Sweats: ",ONCAB(165.5,IEN,189.1)," ",ONCAB(165.5,IEN,189) D P Q:EX=U
.W !," Weight Loss Per Pt: ",ONCAB(165.5,IEN,190) D P Q:EX=U
.W !," Chest X-ray: ",ONCAB(165.5,IEN,175.1)," ",ONCAB(165.5,IEN,175) D P Q:EX=U
.W !," CT Scan: ",ONCAB(165.5,IEN,176.1)," ",ONCAB(165.5,IEN,176) D P Q:EX=U
.W !," Bronchoscopy: ",ONCAB(165.5,IEN,177.1)," ",ONCAB(165.5,IEN,177) D P Q:EX=U
.W !," Mediastinoscopy: ",ONCAB(165.5,IEN,178.1)," ",ONCAB(165.5,IEN,178) D P Q:EX=U
.W !," PET Scan: ",ONCAB(165.5,IEN,179.1)," ",ONCAB(165.5,IEN,179) D P Q:EX=U
I (COC=10)!(COC=11)!(COC=12)!(COC=13)!(COC=14),($E(TOP,3,4)=18)!(TOP=67199)!(TOP=67209) D
.W !," Ulcerative Colitis (UC): ",ONCAB(165.5,IEN,191) D P Q:EX=U
.W !,"Familial Adenomatous Polyps: ",ONCAB(165.5,IEN,711) D P Q:EX=U
.W !," HNPCC: ",ONCAB(165.5,IEN,712) D P Q:EX=U
.W !," Crohn's Disease: ",ONCAB(165.5,IEN,809) D P Q:EX=U
.W !," Inflammatory Bowel Disease: ",ONCAB(165.5,IEN,713) D P Q:EX=U
.W !," Sporadic Polyps: ",ONCAB(165.5,IEN,192) D P Q:EX=U
.W !," Change Bowel Habits Per Pt: ",ONCAB(165.5,IEN,180.1)," ",ONCAB(165.5,IEN,180) D P Q:EX=U
.W !," Fecal Occult Blood Test: ",ONCAB(165.5,IEN,181.1)," ",ONCAB(165.5,IEN,181) D P Q:EX=U
.W !," Barium Enema: ",ONCAB(165.5,IEN,182.1)," ",ONCAB(165.5,IEN,182) D P Q:EX=U
.W !," Sigmoidoscopy: ",ONCAB(165.5,IEN,183.1)," ",ONCAB(165.5,IEN,183) D P Q:EX=U
.W !," Colonoscopy: ",ONCAB(165.5,IEN,185.1)," ",ONCAB(165.5,IEN,185) D P Q:EX=U
.W !," CT of Abdomen/Pelvis: ",ONCAB(165.5,IEN,184.1)," ",ONCAB(165.5,IEN,184) D P Q:EX=U
.W !," PET Scan: ",ONCAB(165.5,IEN,179.1)," ",ONCAB(165.5,IEN,179) D P Q:EX=U
;
S NAME="EXTENT OF DISEASE AT DIAGNOSIS" D FORMAT^ONCOPA1
W !!,TITLE
W !," Clinical Stage Discussion: ",ONCAB(165.5,IEN,280,"E") D P Q:EX=U
;
I DATEDX<3180101 D
.W !!," TNM Clinical: ",ONCAB(165.5,IEN,37),?67,"TNM Pathologic: ",ONCAB(165.5,IEN,89.1) D P Q:EX=U
.W !," Clinical T: ",$E(ONCAB(165.5,IEN,37.1),1,48),?67,"Pathologic T: ",$E(ONCAB(165.5,IEN,85),1,48) D P Q:EX=U
.W !," Clinical N: ",$E(ONCAB(165.5,IEN,37.2),1,48),?67,"Pathologic N: ",$E(ONCAB(165.5,IEN,86),1,48) D P Q:EX=U
.W !," Clinical M: ",$E(ONCAB(165.5,IEN,37.3),1,48),?67,"Pathologic M: ",$E(ONCAB(165.5,IEN,87),1,48) D P Q:EX=U
.W !," Stage Group Clinical: ",ONCAB(165.5,IEN,38),$P(ONCAB(165.5,IEN,241,"E"),"(",1),?67,"Stage Group Pathologic: ",ONCAB(165.5,IEN,88),$P(ONCAB(165.5,IEN,242,"E"),"(",1) D P Q:EX=U
I DATEDX>3171231 D
.W !," Extent of Disease (EOD) Data",!," ----------------------------"
.W !?1,"Primary Tumor: ",$P($G(^ONCO(165.5,IEN,"EOD")),"^",1),?22,"Regional Nodes: ",$P($G(^ONCO(165.5,IEN,"EOD")),"^",2),?44,"METS: ",$P($G(^ONCO(165.5,IEN,"EOD")),"^",3),!
.W !," Clinical Staging",?22,"TNM edition: ",$$TNMED^ONCOU55(IEN),?41,"Pathologic Staging"
.W !," ----------------" I $P($G(^ONCO(165.5,IEN,0)),"^",16)>3171231 W ?22,"AJCC ID: ",$P($G(^ONCO(165.5,IEN,"AJCC8")),"^",1)
.W ?41,"------------------"
.W !," TNM........: " S STGIND="C" D TNMDSP^ONCSGA8U W ?41,"TNM........: " S STGIND="P" D TNMDSP^ONCSGA8U
.W !," Stage Group: ",$P($G(^ONCO(165.5,IEN,"AJCC8")),"^",5),?41,"Stage Group: ",$P($G(^ONCO(165.5,IEN,"AJCC8")),"^",9)
.W !!," Post-Therapy Staging (yc)",?41,"Post-Therapy Staging (yp)"
.W !," --------------------------",?41,"--------------------------"
.W !," TNM........: " S STGIND="Y" D TNMDSP^ONCSGA8U W ?41,"TNM........: " S STGIND="T" D TNMDSP^ONCSGA8U
.W !?41,"Stage Group: ",$P($G(^ONCO(165.5,IEN,"AJCC8")),"^",13),!
I DATEDX<3180000 W !," Staged By (Clin): ",ONCAB(165.5,IEN,19),?67,"Staged By (Path): ",ONCAB(165.5,IEN,89) D P Q:EX=U
W !," Lymph-Vascular Invasion (L): ",ONCAB(165.5,IEN,149) D P Q:EX=U
;W !," Venous Invasion (V): ",ONCAB(165.5,IEN,151) D P Q:EX=U
W !," Other Staging System: ",ONCAB(165.5,IEN,39) D P Q:EX=U
W !," Physician's Stage: ",ONCAB(165.5,IEN,65),?67,"Physician Staging: ",ONCAB(165.5,IEN,66) D P Q:EX=U
W !," TNM Form Assigned: ",ONCAB(165.5,IEN,25,"E"),?67,"TNM Form Completed: ",ONCAB(165.5,IEN,44,"E") D P Q:EX=U
W !!," Performance Status at Dx: ",ONCAB(165.5,IEN,227,"E") D P Q:EX=U
I $P($G(^ONCO(165.5,IEN,0)),U,16)<3160000 W !," Tumor Size: ",ONCAB(165.5,IEN,29) D P Q:EX=U
I $P($G(^ONCO(165.5,IEN,0)),U,16)>3151231 D
.W !," Tumor Size Clin: " D
..I ($P($G(^ONCO(165.5,IEN,2.1)),"^",21)="000")!($P($G(^ONCO(165.5,IEN,2.1)),"^",21)>988) W $P($G(^ONCO(165.5,IEN,2.1)),"^",21),"-"
..W ONCAB(165.5,IEN,29.4) D P Q:EX=U
.W !," Tumor Size Path: " D
..I ($P($G(^ONCO(165.5,IEN,2.1)),"^",22)="000")!($P($G(^ONCO(165.5,IEN,2.1)),"^",22)>988) W $P($G(^ONCO(165.5,IEN,2.1)),"^",21),"-"
..W ONCAB(165.5,IEN,29.5) D P Q:EX=U
.W !," Tumor Size Summ: " D
..I ($P($G(^ONCO(165.5,IEN,2.1)),"^",20)="000")!($P($G(^ONCO(165.5,IEN,2.1)),"^",20)>988) W $P($G(^ONCO(165.5,IEN,2.1)),"^",21),"-"
..W ONCAB(165.5,IEN,29.3) D P Q:EX=U
.Q
I $P($G(^ONCO(165.5,IEN,0)),U,16)<3180000 W !," Extension: ",ONCAB(165.5,IEN,30) D P Q:EX=U
I $P($G(^ONCO(165.5,IEN,0)),U,16)>2971231 D
.S TPX=$P($G(^ONCO(165.5,IEN,2)),U,1) I TPX'=67619 Q
.W !," Pathologic Extension: ",ONCAB(165.5,IEN,30.1) D P Q:EX=U
I $P($G(^ONCO(165.5,IEN,0)),U,16)<3180000 W !," Lymph Nodes: ",ONCAB(165.5,IEN,31) I DATEDX<3160000 W ?67,"Metastasis 1: ",ONCAB(165.5,IEN,34) D P Q:EX=U
W !," Regional Nodes Examined: ",$E(ONCAB(165.5,IEN,33),1,34) W:DATEDX<3160000 ?67,"Metastasis 2: ",ONCAB(165.5,IEN,34.1) D P Q:EX=U
W !," Regional Nodes Positive: ",$E(ONCAB(165.5,IEN,32),1,34) W:DATEDX<3160000 ?67,"Metastasis 3: ",ONCAB(165.5,IEN,34.2) D P Q:EX=U
W !," Date Regional LN Disx: ",ONCAB(165.5,IEN,7013,"E") D P Q:EX=U
W !,"Date Regional LN Disx Flag: ",ONCAB(165.5,IEN,7014,"E") D P Q:EX=U
I $P($G(^ONCO(165.5,IEN,0)),U,16)<3180000 W !," General Summary Stage: ",ONCAB(165.5,IEN,35) D P Q:EX=U
I $P($G(^ONCO(165.5,IEN,0)),U,16)>3171231 W !," Summary Stage 2018: ",ONCAB(165.5,IEN,1764) D P Q:EX=U
;W !," Peripheral Blood Involvement: ",ONCAB(165.5,IEN,30.5) D P Q:EX=U
;W !," Associated With HIV: ",ONCAB(165.5,IEN,41) D P Q:EX=U
I (DATEDX>3171231)&(($P($G(^ONCO(165.5,IEN,"SSD1")),U,1)="00480")!($$MELANOMA^ONCOU55(IEN))) D D P Q:EX=U
.W !!," Date of Sentinel LN Biopsy: ",ONCAB(165.5,IEN,7017,"E") D P Q:EX=U
.W !," Date of Sentinel LN Biopsy Flag: ",ONCAB(165.5,IEN,7018,"E") D P Q:EX=U
.W !," Sentinel Lymph Nodes Examined: ",ONCAB(165.5,IEN,7016,"E") D P Q:EX=U
.W !," Sentinel Lymph Nodes Positive: ",ONCAB(165.5,IEN,7015,"E"),! D P Q:EX=U
I DATEDX>3151231 W !," Mets at DX-Bone: ",ONCAB(165.5,IEN,34.31) D P Q:EX=U
I DATEDX>3151231 W !," Mets at DX-Brain: ",ONCAB(165.5,IEN,34.32) D P Q:EX=U
I DATEDX>3151231 W !," Mets at DX-Liver: ",ONCAB(165.5,IEN,34.33) D P Q:EX=U
I DATEDX>3151231 W !," Mets at DX-Lung: ",ONCAB(165.5,IEN,34.34) D P Q:EX=U
I DATEDX>3151231 W !," Mets at DX-Distant LN: ",ONCAB(165.5,IEN,34.35) D P Q:EX=U
I DATEDX>3151231 W !," Mets at DX-Other: ",ONCAB(165.5,IEN,34.36) D P Q:EX=U
;
I $P($G(^ONCO(165.5,IEN,0)),U,16)>3171231 S NAME="SITE SPECIFIC DATA ITEMS" D FORMAT^ONCOPA1 W !!,TITLE D SSDI^ONCOPA4
I ($P($G(^ONCO(165.5,IEN,0)),U,16)<3040000)!($P($G(^ONCO(165.5,IEN,0)),U,16)>3171231) G FCT
S NAME="COLLABORATIVE STAGING" D FORMAT^ONCOPA1
W !!,TITLE
I $L(ONCAB(165.5,IEN,32,"I"))=1 S ONCAB(165.5,IEN,32,"I")="0"_ONCAB(165.5,IEN,32,"I") D P Q:EX=U
I $L(ONCAB(165.5,IEN,33,"I"))=1 S ONCAB(165.5,IEN,33,"I")="0"_ONCAB(165.5,IEN,33,"I") D P Q:EX=U
W !," Tumor Size (CS): ",ONCAB(165.5,IEN,29.2,"I"),?35,"Derived AJJC-6 T: ",ONCAB(165.5,IEN,160,"E") D P Q:EX=U
W !," Extension (CS): ",ONCAB(165.5,IEN,30.2,"I"),?35,"Derived AJCC-6 T Descriptor: ",ONCAB(165.5,IEN,161,"E") D P Q:EX=U
W !," Tumor Size/Ext Eval (CS): ",ONCAB(165.5,IEN,29.1,"I"),?35,"Derived AJCC-6 N: ",ONCAB(165.5,IEN,162,"E") D P Q:EX=U
W !," Lymph Nodes (CS): ",ONCAB(165.5,IEN,31.1,"I"),?35,"Derived AJCC-6 N Descriptor: ",ONCAB(165.5,IEN,163,"E") D P Q:EX=U
W !," Lymph Nodes Eval (CS): ",ONCAB(165.5,IEN,32.1,"I"),?35,"Derived AJCC-6 M: ",ONCAB(165.5,IEN,164,"E") D P Q:EX=U
W !," Regional Nodes Examined: ",ONCAB(165.5,IEN,33,"I"),?35,"Derived AJCC-6 M Descriptor: ",ONCAB(165.5,IEN,165,"E") D P Q:EX=U
W !," Regional Nodes Positive: ",ONCAB(165.5,IEN,32,"I"),?35,"Derived AJCC-6 Stage Group: ",ONCAB(165.5,IEN,166,"E") D P Q:EX=U
W !," Mets at DX (CS): ",ONCAB(165.5,IEN,34.3,"I"),?35,"Derived AJJC-7 T: ",ONCAB(165.5,IEN,160.7,"E") D P Q:EX=U
W !," Mets at DX-Bone: ",ONCAB(165.5,IEN,34.31,"E"),?35,"Derived AJCC-7 T Descriptor: ",ONCAB(165.5,IEN,161.7,"E") D P Q:EX=U
W !," Mets at DX-Brain: ",ONCAB(165.5,IEN,34.32,"E"),?35,"Derived AJCC-7 N: ",ONCAB(165.5,IEN,162.7,"E") D P Q:EX=U
W !," Mets at DX-Liver: ",ONCAB(165.5,IEN,34.33,"E"),?35,"Derived AJCC-7 N Descriptor: ",ONCAB(165.5,IEN,163.7,"E") D P Q:EX=U
W !," Mets at DX-Lung: ",ONCAB(165.5,IEN,34.34,"E"),?35,"Derived AJCC-7 M: ",ONCAB(165.5,IEN,164.7,"E") D P Q:EX=U
W !," Mets at DX-Distant LN: ",ONCAB(165.5,IEN,34.35,"E"),?35,"Derived AJCC-7 M Descriptor: ",ONCAB(165.5,IEN,165.7,"E") D P Q:EX=U
W !," Mets at DX-Other: ",ONCAB(165.5,IEN,34.36,"E"),?35,"Derived AJCC-7 Stage Group: ",ONCAB(165.5,IEN,166.7,"E") D P Q:EX=U
W !," Mets Eval (CS): ",ONCAB(165.5,IEN,34.4,"I"),?35,"Derived SS1977: ",ONCAB(165.5,IEN,167,"E") D P Q:EX=U
W !," Site-Specific Factor 1: ",ONCAB(165.5,IEN,44.1,"I"),?35,"Derived SS2000: ",ONCAB(165.5,IEN,168,"E") D P Q:EX=U
W !," Site-Specific Factor 2: ",ONCAB(165.5,IEN,44.2,"I")
W !," Site-Specific Factor 3: ",ONCAB(165.5,IEN,44.3,"I")
W !," Site-Specific Factor 4: ",ONCAB(165.5,IEN,44.4,"I") D P Q:EX=U
W !," Site-Specific Factor 5: ",ONCAB(165.5,IEN,44.5,"I") D P Q:EX=U
W !," Site-Specific Factor 6: ",ONCAB(165.5,IEN,44.6,"I") D P Q:EX=U
W !," Site-Specific Factor 7: ",ONCAB(165.5,IEN,44.7,"I") D P Q:EX=U
W !," Site-Specific Factor 8: ",ONCAB(165.5,IEN,44.8,"I") D P Q:EX=U
W !," Site-Specific Factor 9: ",ONCAB(165.5,IEN,44.9,"I") D P Q:EX=U
W !," Site-Specific Factor 10: ",ONCAB(165.5,IEN,44.101,"I") D P Q:EX=U
W !," Site-Specific Factor 11: ",ONCAB(165.5,IEN,44.11,"I") D P Q:EX=U
W !," Site-Specific Factor 12: ",ONCAB(165.5,IEN,44.12,"I") D P Q:EX=U
W !," Site-Specific Factor 13: ",ONCAB(165.5,IEN,44.13,"I") D P Q:EX=U
W !," Site-Specific Factor 14: ",ONCAB(165.5,IEN,44.14,"I") D P Q:EX=U
W !," Site-Specific Factor 15: ",ONCAB(165.5,IEN,44.15,"I") D P Q:EX=U
W !," Site-Specific Factor 16: ",ONCAB(165.5,IEN,44.16,"I") D P Q:EX=U
W !," Site-Specific Factor 17: ",ONCAB(165.5,IEN,44.17,"I") D P Q:EX=U
W !," Site-Specific Factor 18: ",ONCAB(165.5,IEN,44.18,"I") D P Q:EX=U
W !," Site-Specific Factor 19: ",ONCAB(165.5,IEN,44.19,"I") D P Q:EX=U
W !," Site-Specific Factor 20: ",ONCAB(165.5,IEN,44.201,"I") D P Q:EX=U
W !," Site-Specific Factor 21: ",ONCAB(165.5,IEN,44.21,"I") D P Q:EX=U
W !," Site-Specific Factor 22: ",ONCAB(165.5,IEN,44.22,"I") D P Q:EX=U
W !," Site-Specific Factor 23: ",ONCAB(165.5,IEN,44.23,"I") D P Q:EX=U
W !," Site-Specific Factor 24: ",ONCAB(165.5,IEN,44.24,"I") D P Q:EX=U
W !," Site-Specific Factor 25: ",ONCAB(165.5,IEN,44.25,"I") D P Q:EX=U
;
FCT I $E(IOST,1,2)="C-" W ! K DIR S DIR(0)="E",DIR("A")="Enter RETURN to continue with this abstract" D ^DIR Q:'Y D HDR G PA2
D P Q:EX=U
PA2 D ^ONCOPA2
; WILL CALL ONCOPA2 ROUTINE FROM HERE TO CONTINUE...
;
Q
P ;
I ($Y'<(LINE-1)) D Q:EX=U W !
.I $E(IOST,1,2)="C-" W ! K DIR S DIR(0)="E",DIR("A")="Enter RETURN to continue with this abstract" D ^DIR I 'Y S EX=U Q
.D HDR Q
Q
HDR ; Header
W @IOF S PG=PG+1
W CRA,!
W ?5," Patient Name: ",PATNAME,?84,"SSN: ",SSAN,!
Q
;
CLEANUP ;Cleanup
K COC,CRA,EX,IEN,LINE,NAME,ONCAB,PATNAME,PG,SSAN,TITLE,TOP,TPX,Y
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCOPA1A 12942 printed Apr 09, 2024@21:31:15 Page 2
ONCOPA1A ;HINES OIFO/GWB - PRINT COMPLETE ABSTRACT continued ;10/05/11
+1 ;;2.2;ONCOLOGY;**1,6,10,12,13**;Jul 31, 2013;Build 7
+2 ;
+3 IF (COC=10)!(COC=11)!(COC=12)!(COC=13)!(COC=14)
IF $EXTRACT(TOP,3,4)=34
Begin DoDot:1
+4 WRITE !," Blood in Sputum Per Pt: ",ONCAB(165.5,IEN,174.1)," ",ONCAB(165.5,IEN,174)
DO P
if EX=U
QUIT
+5 WRITE !," Dyspnea: ",ONCAB(165.5,IEN,186.1)," ",ONCAB(165.5,IEN,186)
DO P
if EX=U
QUIT
+6 WRITE !," Increased Cough: ",ONCAB(165.5,IEN,187.1)," ",ONCAB(165.5,IEN,187)
DO P
if EX=U
QUIT
+7 WRITE !," Fever: ",ONCAB(165.5,IEN,188.1)," ",ONCAB(165.5,IEN,188)
DO P
if EX=U
QUIT
+8 WRITE !," Night Sweats: ",ONCAB(165.5,IEN,189.1)," ",ONCAB(165.5,IEN,189)
DO P
if EX=U
QUIT
+9 WRITE !," Weight Loss Per Pt: ",ONCAB(165.5,IEN,190)
DO P
if EX=U
QUIT
+10 WRITE !," Chest X-ray: ",ONCAB(165.5,IEN,175.1)," ",ONCAB(165.5,IEN,175)
DO P
if EX=U
QUIT
+11 WRITE !," CT Scan: ",ONCAB(165.5,IEN,176.1)," ",ONCAB(165.5,IEN,176)
DO P
if EX=U
QUIT
+12 WRITE !," Bronchoscopy: ",ONCAB(165.5,IEN,177.1)," ",ONCAB(165.5,IEN,177)
DO P
if EX=U
QUIT
+13 WRITE !," Mediastinoscopy: ",ONCAB(165.5,IEN,178.1)," ",ONCAB(165.5,IEN,178)
DO P
if EX=U
QUIT
+14 WRITE !," PET Scan: ",ONCAB(165.5,IEN,179.1)," ",ONCAB(165.5,IEN,179)
DO P
if EX=U
QUIT
End DoDot:1
+15 IF (COC=10)!(COC=11)!(COC=12)!(COC=13)!(COC=14)
IF ($EXTRACT(TOP,3,4)=18)!(TOP=67199)!(TOP=67209)
Begin DoDot:1
+16 WRITE !," Ulcerative Colitis (UC): ",ONCAB(165.5,IEN,191)
DO P
if EX=U
QUIT
+17 WRITE !,"Familial Adenomatous Polyps: ",ONCAB(165.5,IEN,711)
DO P
if EX=U
QUIT
+18 WRITE !," HNPCC: ",ONCAB(165.5,IEN,712)
DO P
if EX=U
QUIT
+19 WRITE !," Crohn's Disease: ",ONCAB(165.5,IEN,809)
DO P
if EX=U
QUIT
+20 WRITE !," Inflammatory Bowel Disease: ",ONCAB(165.5,IEN,713)
DO P
if EX=U
QUIT
+21 WRITE !," Sporadic Polyps: ",ONCAB(165.5,IEN,192)
DO P
if EX=U
QUIT
+22 WRITE !," Change Bowel Habits Per Pt: ",ONCAB(165.5,IEN,180.1)," ",ONCAB(165.5,IEN,180)
DO P
if EX=U
QUIT
+23 WRITE !," Fecal Occult Blood Test: ",ONCAB(165.5,IEN,181.1)," ",ONCAB(165.5,IEN,181)
DO P
if EX=U
QUIT
+24 WRITE !," Barium Enema: ",ONCAB(165.5,IEN,182.1)," ",ONCAB(165.5,IEN,182)
DO P
if EX=U
QUIT
+25 WRITE !," Sigmoidoscopy: ",ONCAB(165.5,IEN,183.1)," ",ONCAB(165.5,IEN,183)
DO P
if EX=U
QUIT
+26 WRITE !," Colonoscopy: ",ONCAB(165.5,IEN,185.1)," ",ONCAB(165.5,IEN,185)
DO P
if EX=U
QUIT
+27 WRITE !," CT of Abdomen/Pelvis: ",ONCAB(165.5,IEN,184.1)," ",ONCAB(165.5,IEN,184)
DO P
if EX=U
QUIT
+28 WRITE !," PET Scan: ",ONCAB(165.5,IEN,179.1)," ",ONCAB(165.5,IEN,179)
DO P
if EX=U
QUIT
End DoDot:1
+29 ;
+30 SET NAME="EXTENT OF DISEASE AT DIAGNOSIS"
DO FORMAT^ONCOPA1
+31 WRITE !!,TITLE
+32 WRITE !," Clinical Stage Discussion: ",ONCAB(165.5,IEN,280,"E")
DO P
if EX=U
QUIT
+33 ;
+34 IF DATEDX<3180101
Begin DoDot:1
+35 WRITE !!," TNM Clinical: ",ONCAB(165.5,IEN,37),?67,"TNM Pathologic: ",ONCAB(165.5,IEN,89.1)
DO P
if EX=U
QUIT
+36 WRITE !," Clinical T: ",$EXTRACT(ONCAB(165.5,IEN,37.1),1,48),?67,"Pathologic T: ",$EXTRACT(ONCAB(165.5,IEN,85),1,48)
DO P
if EX=U
QUIT
+37 WRITE !," Clinical N: ",$EXTRACT(ONCAB(165.5,IEN,37.2),1,48),?67,"Pathologic N: ",$EXTRACT(ONCAB(165.5,IEN,86),1,48)
DO P
if EX=U
QUIT
+38 WRITE !," Clinical M: ",$EXTRACT(ONCAB(165.5,IEN,37.3),1,48),?67,"Pathologic M: ",$EXTRACT(ONCAB(165.5,IEN,87),1,48)
DO P
if EX=U
QUIT
+39 WRITE !," Stage Group Clinical: ",ONCAB(165.5,IEN,38),$PIECE(ONCAB(165.5,IEN,241,"E"),"(",1),?67,"Stage Group Pathologic: ",ONCAB(165.5,IEN,88),$PIECE(ONCAB(165.5,IEN,242,"E"),"(",1)
DO P
if EX=U
QUIT
End DoDot:1
+40 IF DATEDX>3171231
Begin DoDot:1
+41 WRITE !," Extent of Disease (EOD) Data",!," ----------------------------"
+42 WRITE !?1,"Primary Tumor: ",$PIECE($GET(^ONCO(165.5,IEN,"EOD")),"^",1),?22,"Regional Nodes: ",$PIECE($GET(^ONCO(165.5,IEN,"EOD")),"^",2),?44,"METS: ",$PIECE($GET(^ONCO(165.5,IEN,"EOD")),"^",3),!
+43 WRITE !," Clinical Staging",?22,"TNM edition: ",$$TNMED^ONCOU55(IEN),?41,"Pathologic Staging"
+44 WRITE !," ----------------"
IF $PIECE($GET(^ONCO(165.5,IEN,0)),"^",16)>3171231
WRITE ?22,"AJCC ID: ",$PIECE($GET(^ONCO(165.5,IEN,"AJCC8")),"^",1)
+45 WRITE ?41,"------------------"
+46 WRITE !," TNM........: "
SET STGIND="C"
DO TNMDSP^ONCSGA8U
WRITE ?41,"TNM........: "
SET STGIND="P"
DO TNMDSP^ONCSGA8U
+47 WRITE !," Stage Group: ",$PIECE($GET(^ONCO(165.5,IEN,"AJCC8")),"^",5),?41,"Stage Group: ",$PIECE($GET(^ONCO(165.5,IEN,"AJCC8")),"^",9)
+48 WRITE !!," Post-Therapy Staging (yc)",?41,"Post-Therapy Staging (yp)"
+49 WRITE !," --------------------------",?41,"--------------------------"
+50 WRITE !," TNM........: "
SET STGIND="Y"
DO TNMDSP^ONCSGA8U
WRITE ?41,"TNM........: "
SET STGIND="T"
DO TNMDSP^ONCSGA8U
+51 WRITE !?41,"Stage Group: ",$PIECE($GET(^ONCO(165.5,IEN,"AJCC8")),"^",13),!
End DoDot:1
+52 IF DATEDX<3180000
WRITE !," Staged By (Clin): ",ONCAB(165.5,IEN,19),?67,"Staged By (Path): ",ONCAB(165.5,IEN,89)
DO P
if EX=U
QUIT
+53 WRITE !," Lymph-Vascular Invasion (L): ",ONCAB(165.5,IEN,149)
DO P
if EX=U
QUIT
+54 ;W !," Venous Invasion (V): ",ONCAB(165.5,IEN,151) D P Q:EX=U
+55 WRITE !," Other Staging System: ",ONCAB(165.5,IEN,39)
DO P
if EX=U
QUIT
+56 WRITE !," Physician's Stage: ",ONCAB(165.5,IEN,65),?67,"Physician Staging: ",ONCAB(165.5,IEN,66)
DO P
if EX=U
QUIT
+57 WRITE !," TNM Form Assigned: ",ONCAB(165.5,IEN,25,"E"),?67,"TNM Form Completed: ",ONCAB(165.5,IEN,44,"E")
DO P
if EX=U
QUIT
+58 WRITE !!," Performance Status at Dx: ",ONCAB(165.5,IEN,227,"E")
DO P
if EX=U
QUIT
+59 IF $PIECE($GET(^ONCO(165.5,IEN,0)),U,16)<3160000
WRITE !," Tumor Size: ",ONCAB(165.5,IEN,29)
DO P
if EX=U
QUIT
+60 IF $PIECE($GET(^ONCO(165.5,IEN,0)),U,16)>3151231
Begin DoDot:1
+61 WRITE !," Tumor Size Clin: "
Begin DoDot:2
+62 IF ($PIECE($GET(^ONCO(165.5,IEN,2.1)),"^",21)="000")!($PIECE($GET(^ONCO(165.5,IEN,2.1)),"^",21)>988)
WRITE $PIECE($GET(^ONCO(165.5,IEN,2.1)),"^",21),"-"
+63 WRITE ONCAB(165.5,IEN,29.4)
DO P
if EX=U
QUIT
End DoDot:2
+64 WRITE !," Tumor Size Path: "
Begin DoDot:2
+65 IF ($PIECE($GET(^ONCO(165.5,IEN,2.1)),"^",22)="000")!($PIECE($GET(^ONCO(165.5,IEN,2.1)),"^",22)>988)
WRITE $PIECE($GET(^ONCO(165.5,IEN,2.1)),"^",21),"-"
+66 WRITE ONCAB(165.5,IEN,29.5)
DO P
if EX=U
QUIT
End DoDot:2
+67 WRITE !," Tumor Size Summ: "
Begin DoDot:2
+68 IF ($PIECE($GET(^ONCO(165.5,IEN,2.1)),"^",20)="000")!($PIECE($GET(^ONCO(165.5,IEN,2.1)),"^",20)>988)
WRITE $PIECE($GET(^ONCO(165.5,IEN,2.1)),"^",21),"-"
+69 WRITE ONCAB(165.5,IEN,29.3)
DO P
if EX=U
QUIT
End DoDot:2
+70 QUIT
End DoDot:1
+71 IF $PIECE($GET(^ONCO(165.5,IEN,0)),U,16)<3180000
WRITE !," Extension: ",ONCAB(165.5,IEN,30)
DO P
if EX=U
QUIT
+72 IF $PIECE($GET(^ONCO(165.5,IEN,0)),U,16)>2971231
Begin DoDot:1
+73 SET TPX=$PIECE($GET(^ONCO(165.5,IEN,2)),U,1)
IF TPX'=67619
QUIT
+74 WRITE !," Pathologic Extension: ",ONCAB(165.5,IEN,30.1)
DO P
if EX=U
QUIT
End DoDot:1
+75 IF $PIECE($GET(^ONCO(165.5,IEN,0)),U,16)<3180000
WRITE !," Lymph Nodes: ",ONCAB(165.5,IEN,31)
IF DATEDX<3160000
WRITE ?67,"Metastasis 1: ",ONCAB(165.5,IEN,34)
DO P
if EX=U
QUIT
+76 WRITE !," Regional Nodes Examined: ",$EXTRACT(ONCAB(165.5,IEN,33),1,34)
if DATEDX<3160000
WRITE ?67,"Metastasis 2: ",ONCAB(165.5,IEN,34.1)
DO P
if EX=U
QUIT
+77 WRITE !," Regional Nodes Positive: ",$EXTRACT(ONCAB(165.5,IEN,32),1,34)
if DATEDX<3160000
WRITE ?67,"Metastasis 3: ",ONCAB(165.5,IEN,34.2)
DO P
if EX=U
QUIT
+78 WRITE !," Date Regional LN Disx: ",ONCAB(165.5,IEN,7013,"E")
DO P
if EX=U
QUIT
+79 WRITE !,"Date Regional LN Disx Flag: ",ONCAB(165.5,IEN,7014,"E")
DO P
if EX=U
QUIT
+80 IF $PIECE($GET(^ONCO(165.5,IEN,0)),U,16)<3180000
WRITE !," General Summary Stage: ",ONCAB(165.5,IEN,35)
DO P
if EX=U
QUIT
+81 IF $PIECE($GET(^ONCO(165.5,IEN,0)),U,16)>3171231
WRITE !," Summary Stage 2018: ",ONCAB(165.5,IEN,1764)
DO P
if EX=U
QUIT
+82 ;W !," Peripheral Blood Involvement: ",ONCAB(165.5,IEN,30.5) D P Q:EX=U
+83 ;W !," Associated With HIV: ",ONCAB(165.5,IEN,41) D P Q:EX=U
+84 IF (DATEDX>3171231)&(($PIECE($GET(^ONCO(165.5,IEN,"SSD1")),U,1)="00480")!($$MELANOMA^ONCOU55(IEN)))
Begin DoDot:1
+85 WRITE !!," Date of Sentinel LN Biopsy: ",ONCAB(165.5,IEN,7017,"E")
DO P
if EX=U
QUIT
+86 WRITE !," Date of Sentinel LN Biopsy Flag: ",ONCAB(165.5,IEN,7018,"E")
DO P
if EX=U
QUIT
+87 WRITE !," Sentinel Lymph Nodes Examined: ",ONCAB(165.5,IEN,7016,"E")
DO P
if EX=U
QUIT
+88 WRITE !," Sentinel Lymph Nodes Positive: ",ONCAB(165.5,IEN,7015,"E"),!
DO P
if EX=U
QUIT
End DoDot:1
DO P
if EX=U
QUIT
+89 IF DATEDX>3151231
WRITE !," Mets at DX-Bone: ",ONCAB(165.5,IEN,34.31)
DO P
if EX=U
QUIT
+90 IF DATEDX>3151231
WRITE !," Mets at DX-Brain: ",ONCAB(165.5,IEN,34.32)
DO P
if EX=U
QUIT
+91 IF DATEDX>3151231
WRITE !," Mets at DX-Liver: ",ONCAB(165.5,IEN,34.33)
DO P
if EX=U
QUIT
+92 IF DATEDX>3151231
WRITE !," Mets at DX-Lung: ",ONCAB(165.5,IEN,34.34)
DO P
if EX=U
QUIT
+93 IF DATEDX>3151231
WRITE !," Mets at DX-Distant LN: ",ONCAB(165.5,IEN,34.35)
DO P
if EX=U
QUIT
+94 IF DATEDX>3151231
WRITE !," Mets at DX-Other: ",ONCAB(165.5,IEN,34.36)
DO P
if EX=U
QUIT
+95 ;
+96 IF $PIECE($GET(^ONCO(165.5,IEN,0)),U,16)>3171231
SET NAME="SITE SPECIFIC DATA ITEMS"
DO FORMAT^ONCOPA1
WRITE !!,TITLE
DO SSDI^ONCOPA4
+97 IF ($PIECE($GET(^ONCO(165.5,IEN,0)),U,16)<3040000)!($PIECE($GET(^ONCO(165.5,IEN,0)),U,16)>3171231)
GOTO FCT
+98 SET NAME="COLLABORATIVE STAGING"
DO FORMAT^ONCOPA1
+99 WRITE !!,TITLE
+100 IF $LENGTH(ONCAB(165.5,IEN,32,"I"))=1
SET ONCAB(165.5,IEN,32,"I")="0"_ONCAB(165.5,IEN,32,"I")
DO P
if EX=U
QUIT
+101 IF $LENGTH(ONCAB(165.5,IEN,33,"I"))=1
SET ONCAB(165.5,IEN,33,"I")="0"_ONCAB(165.5,IEN,33,"I")
DO P
if EX=U
QUIT
+102 WRITE !," Tumor Size (CS): ",ONCAB(165.5,IEN,29.2,"I"),?35,"Derived AJJC-6 T: ",ONCAB(165.5,IEN,160,"E")
DO P
if EX=U
QUIT
+103 WRITE !," Extension (CS): ",ONCAB(165.5,IEN,30.2,"I"),?35,"Derived AJCC-6 T Descriptor: ",ONCAB(165.5,IEN,161,"E")
DO P
if EX=U
QUIT
+104 WRITE !," Tumor Size/Ext Eval (CS): ",ONCAB(165.5,IEN,29.1,"I"),?35,"Derived AJCC-6 N: ",ONCAB(165.5,IEN,162,"E")
DO P
if EX=U
QUIT
+105 WRITE !," Lymph Nodes (CS): ",ONCAB(165.5,IEN,31.1,"I"),?35,"Derived AJCC-6 N Descriptor: ",ONCAB(165.5,IEN,163,"E")
DO P
if EX=U
QUIT
+106 WRITE !," Lymph Nodes Eval (CS): ",ONCAB(165.5,IEN,32.1,"I"),?35,"Derived AJCC-6 M: ",ONCAB(165.5,IEN,164,"E")
DO P
if EX=U
QUIT
+107 WRITE !," Regional Nodes Examined: ",ONCAB(165.5,IEN,33,"I"),?35,"Derived AJCC-6 M Descriptor: ",ONCAB(165.5,IEN,165,"E")
DO P
if EX=U
QUIT
+108 WRITE !," Regional Nodes Positive: ",ONCAB(165.5,IEN,32,"I"),?35,"Derived AJCC-6 Stage Group: ",ONCAB(165.5,IEN,166,"E")
DO P
if EX=U
QUIT
+109 WRITE !," Mets at DX (CS): ",ONCAB(165.5,IEN,34.3,"I"),?35,"Derived AJJC-7 T: ",ONCAB(165.5,IEN,160.7,"E")
DO P
if EX=U
QUIT
+110 WRITE !," Mets at DX-Bone: ",ONCAB(165.5,IEN,34.31,"E"),?35,"Derived AJCC-7 T Descriptor: ",ONCAB(165.5,IEN,161.7,"E")
DO P
if EX=U
QUIT
+111 WRITE !," Mets at DX-Brain: ",ONCAB(165.5,IEN,34.32,"E"),?35,"Derived AJCC-7 N: ",ONCAB(165.5,IEN,162.7,"E")
DO P
if EX=U
QUIT
+112 WRITE !," Mets at DX-Liver: ",ONCAB(165.5,IEN,34.33,"E"),?35,"Derived AJCC-7 N Descriptor: ",ONCAB(165.5,IEN,163.7,"E")
DO P
if EX=U
QUIT
+113 WRITE !," Mets at DX-Lung: ",ONCAB(165.5,IEN,34.34,"E"),?35,"Derived AJCC-7 M: ",ONCAB(165.5,IEN,164.7,"E")
DO P
if EX=U
QUIT
+114 WRITE !," Mets at DX-Distant LN: ",ONCAB(165.5,IEN,34.35,"E"),?35,"Derived AJCC-7 M Descriptor: ",ONCAB(165.5,IEN,165.7,"E")
DO P
if EX=U
QUIT
+115 WRITE !," Mets at DX-Other: ",ONCAB(165.5,IEN,34.36,"E"),?35,"Derived AJCC-7 Stage Group: ",ONCAB(165.5,IEN,166.7,"E")
DO P
if EX=U
QUIT
+116 WRITE !," Mets Eval (CS): ",ONCAB(165.5,IEN,34.4,"I"),?35,"Derived SS1977: ",ONCAB(165.5,IEN,167,"E")
DO P
if EX=U
QUIT
+117 WRITE !," Site-Specific Factor 1: ",ONCAB(165.5,IEN,44.1,"I"),?35,"Derived SS2000: ",ONCAB(165.5,IEN,168,"E")
DO P
if EX=U
QUIT
+118 WRITE !," Site-Specific Factor 2: ",ONCAB(165.5,IEN,44.2,"I")
+119 WRITE !," Site-Specific Factor 3: ",ONCAB(165.5,IEN,44.3,"I")
+120 WRITE !," Site-Specific Factor 4: ",ONCAB(165.5,IEN,44.4,"I")
DO P
if EX=U
QUIT
+121 WRITE !," Site-Specific Factor 5: ",ONCAB(165.5,IEN,44.5,"I")
DO P
if EX=U
QUIT
+122 WRITE !," Site-Specific Factor 6: ",ONCAB(165.5,IEN,44.6,"I")
DO P
if EX=U
QUIT
+123 WRITE !," Site-Specific Factor 7: ",ONCAB(165.5,IEN,44.7,"I")
DO P
if EX=U
QUIT
+124 WRITE !," Site-Specific Factor 8: ",ONCAB(165.5,IEN,44.8,"I")
DO P
if EX=U
QUIT
+125 WRITE !," Site-Specific Factor 9: ",ONCAB(165.5,IEN,44.9,"I")
DO P
if EX=U
QUIT
+126 WRITE !," Site-Specific Factor 10: ",ONCAB(165.5,IEN,44.101,"I")
DO P
if EX=U
QUIT
+127 WRITE !," Site-Specific Factor 11: ",ONCAB(165.5,IEN,44.11,"I")
DO P
if EX=U
QUIT
+128 WRITE !," Site-Specific Factor 12: ",ONCAB(165.5,IEN,44.12,"I")
DO P
if EX=U
QUIT
+129 WRITE !," Site-Specific Factor 13: ",ONCAB(165.5,IEN,44.13,"I")
DO P
if EX=U
QUIT
+130 WRITE !," Site-Specific Factor 14: ",ONCAB(165.5,IEN,44.14,"I")
DO P
if EX=U
QUIT
+131 WRITE !," Site-Specific Factor 15: ",ONCAB(165.5,IEN,44.15,"I")
DO P
if EX=U
QUIT
+132 WRITE !," Site-Specific Factor 16: ",ONCAB(165.5,IEN,44.16,"I")
DO P
if EX=U
QUIT
+133 WRITE !," Site-Specific Factor 17: ",ONCAB(165.5,IEN,44.17,"I")
DO P
if EX=U
QUIT
+134 WRITE !," Site-Specific Factor 18: ",ONCAB(165.5,IEN,44.18,"I")
DO P
if EX=U
QUIT
+135 WRITE !," Site-Specific Factor 19: ",ONCAB(165.5,IEN,44.19,"I")
DO P
if EX=U
QUIT
+136 WRITE !," Site-Specific Factor 20: ",ONCAB(165.5,IEN,44.201,"I")
DO P
if EX=U
QUIT
+137 WRITE !," Site-Specific Factor 21: ",ONCAB(165.5,IEN,44.21,"I")
DO P
if EX=U
QUIT
+138 WRITE !," Site-Specific Factor 22: ",ONCAB(165.5,IEN,44.22,"I")
DO P
if EX=U
QUIT
+139 WRITE !," Site-Specific Factor 23: ",ONCAB(165.5,IEN,44.23,"I")
DO P
if EX=U
QUIT
+140 WRITE !," Site-Specific Factor 24: ",ONCAB(165.5,IEN,44.24,"I")
DO P
if EX=U
QUIT
+141 WRITE !," Site-Specific Factor 25: ",ONCAB(165.5,IEN,44.25,"I")
DO P
if EX=U
QUIT
+142 ;
FCT IF $EXTRACT(IOST,1,2)="C-"
WRITE !
KILL DIR
SET DIR(0)="E"
SET DIR("A")="Enter RETURN to continue with this abstract"
DO ^DIR
if 'Y
QUIT
DO HDR
GOTO PA2
+1 DO P
if EX=U
QUIT
PA2 DO ^ONCOPA2
+1 ; WILL CALL ONCOPA2 ROUTINE FROM HERE TO CONTINUE...
+2 ;
+3 QUIT
P ;
+1 IF ($Y'<(LINE-1))
Begin DoDot:1
+2 IF $EXTRACT(IOST,1,2)="C-"
WRITE !
KILL DIR
SET DIR(0)="E"
SET DIR("A")="Enter RETURN to continue with this abstract"
DO ^DIR
IF 'Y
SET EX=U
QUIT
+3 DO HDR
QUIT
End DoDot:1
if EX=U
QUIT
WRITE !
+4 QUIT
HDR ; Header
+1 WRITE @IOF
SET PG=PG+1
+2 WRITE CRA,!
+3 WRITE ?5," Patient Name: ",PATNAME,?84,"SSN: ",SSAN,!
+4 QUIT
+5 ;
CLEANUP ;Cleanup
+1 KILL COC,CRA,EX,IEN,LINE,NAME,ONCAB,PATNAME,PG,SSAN,TITLE,TOP,TPX,Y
