- 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 Jan 18, 2025@03:26:24 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