Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ONCOPA1A

ONCOPA1A.m

Go to the documentation of this file.
  1. 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
  1. ;
  1. I (COC=10)!(COC=11)!(COC=12)!(COC=13)!(COC=14),$E(TOP,3,4)=34 D
  1. .W !," Blood in Sputum Per Pt: ",ONCAB(165.5,IEN,174.1)," ",ONCAB(165.5,IEN,174) D P Q:EX=U
  1. .W !," Dyspnea: ",ONCAB(165.5,IEN,186.1)," ",ONCAB(165.5,IEN,186) D P Q:EX=U
  1. .W !," Increased Cough: ",ONCAB(165.5,IEN,187.1)," ",ONCAB(165.5,IEN,187) D P Q:EX=U
  1. .W !," Fever: ",ONCAB(165.5,IEN,188.1)," ",ONCAB(165.5,IEN,188) D P Q:EX=U
  1. .W !," Night Sweats: ",ONCAB(165.5,IEN,189.1)," ",ONCAB(165.5,IEN,189) D P Q:EX=U
  1. .W !," Weight Loss Per Pt: ",ONCAB(165.5,IEN,190) D P Q:EX=U
  1. .W !," Chest X-ray: ",ONCAB(165.5,IEN,175.1)," ",ONCAB(165.5,IEN,175) D P Q:EX=U
  1. .W !," CT Scan: ",ONCAB(165.5,IEN,176.1)," ",ONCAB(165.5,IEN,176) D P Q:EX=U
  1. .W !," Bronchoscopy: ",ONCAB(165.5,IEN,177.1)," ",ONCAB(165.5,IEN,177) D P Q:EX=U
  1. .W !," Mediastinoscopy: ",ONCAB(165.5,IEN,178.1)," ",ONCAB(165.5,IEN,178) D P Q:EX=U
  1. .W !," PET Scan: ",ONCAB(165.5,IEN,179.1)," ",ONCAB(165.5,IEN,179) D P Q:EX=U
  1. I (COC=10)!(COC=11)!(COC=12)!(COC=13)!(COC=14),($E(TOP,3,4)=18)!(TOP=67199)!(TOP=67209) D
  1. .W !," Ulcerative Colitis (UC): ",ONCAB(165.5,IEN,191) D P Q:EX=U
  1. .W !,"Familial Adenomatous Polyps: ",ONCAB(165.5,IEN,711) D P Q:EX=U
  1. .W !," HNPCC: ",ONCAB(165.5,IEN,712) D P Q:EX=U
  1. .W !," Crohn's Disease: ",ONCAB(165.5,IEN,809) D P Q:EX=U
  1. .W !," Inflammatory Bowel Disease: ",ONCAB(165.5,IEN,713) D P Q:EX=U
  1. .W !," Sporadic Polyps: ",ONCAB(165.5,IEN,192) D P Q:EX=U
  1. .W !," Change Bowel Habits Per Pt: ",ONCAB(165.5,IEN,180.1)," ",ONCAB(165.5,IEN,180) D P Q:EX=U
  1. .W !," Fecal Occult Blood Test: ",ONCAB(165.5,IEN,181.1)," ",ONCAB(165.5,IEN,181) D P Q:EX=U
  1. .W !," Barium Enema: ",ONCAB(165.5,IEN,182.1)," ",ONCAB(165.5,IEN,182) D P Q:EX=U
  1. .W !," Sigmoidoscopy: ",ONCAB(165.5,IEN,183.1)," ",ONCAB(165.5,IEN,183) D P Q:EX=U
  1. .W !," Colonoscopy: ",ONCAB(165.5,IEN,185.1)," ",ONCAB(165.5,IEN,185) D P Q:EX=U
  1. .W !," CT of Abdomen/Pelvis: ",ONCAB(165.5,IEN,184.1)," ",ONCAB(165.5,IEN,184) D P Q:EX=U
  1. .W !," PET Scan: ",ONCAB(165.5,IEN,179.1)," ",ONCAB(165.5,IEN,179) D P Q:EX=U
  1. ;
  1. S NAME="EXTENT OF DISEASE AT DIAGNOSIS" D FORMAT^ONCOPA1
  1. W !!,TITLE
  1. W !," Clinical Stage Discussion: ",ONCAB(165.5,IEN,280,"E") D P Q:EX=U
  1. ;
  1. I DATEDX<3180101 D
  1. .W !!," TNM Clinical: ",ONCAB(165.5,IEN,37),?67,"TNM Pathologic: ",ONCAB(165.5,IEN,89.1) D P Q:EX=U
  1. .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
  1. .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
  1. .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
  1. .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
  1. I DATEDX>3171231 D
  1. .W !," Extent of Disease (EOD) Data",!," ----------------------------"
  1. .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),!
  1. .W !," Clinical Staging",?22,"TNM edition: ",$$TNMED^ONCOU55(IEN),?41,"Pathologic Staging"
  1. .W !," ----------------" I $P($G(^ONCO(165.5,IEN,0)),"^",16)>3171231 W ?22,"AJCC ID: ",$P($G(^ONCO(165.5,IEN,"AJCC8")),"^",1)
  1. .W ?41,"------------------"
  1. .W !," TNM........: " S STGIND="C" D TNMDSP^ONCSGA8U W ?41,"TNM........: " S STGIND="P" D TNMDSP^ONCSGA8U
  1. .W !," Stage Group: ",$P($G(^ONCO(165.5,IEN,"AJCC8")),"^",5),?41,"Stage Group: ",$P($G(^ONCO(165.5,IEN,"AJCC8")),"^",9)
  1. .W !!," Post-Therapy Staging (yc)",?41,"Post-Therapy Staging (yp)"
  1. .W !," --------------------------",?41,"--------------------------"
  1. .W !," TNM........: " S STGIND="Y" D TNMDSP^ONCSGA8U W ?41,"TNM........: " S STGIND="T" D TNMDSP^ONCSGA8U
  1. .W !?41,"Stage Group: ",$P($G(^ONCO(165.5,IEN,"AJCC8")),"^",13),!
  1. 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
  1. W !," Lymph-Vascular Invasion (L): ",ONCAB(165.5,IEN,149) D P Q:EX=U
  1. ;W !," Venous Invasion (V): ",ONCAB(165.5,IEN,151) D P Q:EX=U
  1. W !," Other Staging System: ",ONCAB(165.5,IEN,39) D P Q:EX=U
  1. W !," Physician's Stage: ",ONCAB(165.5,IEN,65),?67,"Physician Staging: ",ONCAB(165.5,IEN,66) D P Q:EX=U
  1. 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
  1. W !!," Performance Status at Dx: ",ONCAB(165.5,IEN,227,"E") D P Q:EX=U
  1. I $P($G(^ONCO(165.5,IEN,0)),U,16)<3160000 W !," Tumor Size: ",ONCAB(165.5,IEN,29) D P Q:EX=U
  1. I $P($G(^ONCO(165.5,IEN,0)),U,16)>3151231 D
  1. .W !," Tumor Size Clin: " D
  1. ..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),"-"
  1. ..W ONCAB(165.5,IEN,29.4) D P Q:EX=U
  1. .W !," Tumor Size Path: " D
  1. ..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),"-"
  1. ..W ONCAB(165.5,IEN,29.5) D P Q:EX=U
  1. .W !," Tumor Size Summ: " D
  1. ..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),"-"
  1. ..W ONCAB(165.5,IEN,29.3) D P Q:EX=U
  1. .Q
  1. I $P($G(^ONCO(165.5,IEN,0)),U,16)<3180000 W !," Extension: ",ONCAB(165.5,IEN,30) D P Q:EX=U
  1. I $P($G(^ONCO(165.5,IEN,0)),U,16)>2971231 D
  1. .S TPX=$P($G(^ONCO(165.5,IEN,2)),U,1) I TPX'=67619 Q
  1. .W !," Pathologic Extension: ",ONCAB(165.5,IEN,30.1) D P Q:EX=U
  1. 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
  1. 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
  1. 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
  1. W !," Date Regional LN Disx: ",ONCAB(165.5,IEN,7013,"E") D P Q:EX=U
  1. W !,"Date Regional LN Disx Flag: ",ONCAB(165.5,IEN,7014,"E") D P Q:EX=U
  1. 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
  1. 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
  1. ;W !," Peripheral Blood Involvement: ",ONCAB(165.5,IEN,30.5) D P Q:EX=U
  1. ;W !," Associated With HIV: ",ONCAB(165.5,IEN,41) D P Q:EX=U
  1. I (DATEDX>3171231)&(($P($G(^ONCO(165.5,IEN,"SSD1")),U,1)="00480")!($$MELANOMA^ONCOU55(IEN))) D D P Q:EX=U
  1. .W !!," Date of Sentinel LN Biopsy: ",ONCAB(165.5,IEN,7017,"E") D P Q:EX=U
  1. .W !," Date of Sentinel LN Biopsy Flag: ",ONCAB(165.5,IEN,7018,"E") D P Q:EX=U
  1. .W !," Sentinel Lymph Nodes Examined: ",ONCAB(165.5,IEN,7016,"E") D P Q:EX=U
  1. .W !," Sentinel Lymph Nodes Positive: ",ONCAB(165.5,IEN,7015,"E"),! D P Q:EX=U
  1. I DATEDX>3151231 W !," Mets at DX-Bone: ",ONCAB(165.5,IEN,34.31) D P Q:EX=U
  1. I DATEDX>3151231 W !," Mets at DX-Brain: ",ONCAB(165.5,IEN,34.32) D P Q:EX=U
  1. I DATEDX>3151231 W !," Mets at DX-Liver: ",ONCAB(165.5,IEN,34.33) D P Q:EX=U
  1. I DATEDX>3151231 W !," Mets at DX-Lung: ",ONCAB(165.5,IEN,34.34) D P Q:EX=U
  1. I DATEDX>3151231 W !," Mets at DX-Distant LN: ",ONCAB(165.5,IEN,34.35) D P Q:EX=U
  1. I DATEDX>3151231 W !," Mets at DX-Other: ",ONCAB(165.5,IEN,34.36) D P Q:EX=U
  1. ;
  1. 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
  1. I ($P($G(^ONCO(165.5,IEN,0)),U,16)<3040000)!($P($G(^ONCO(165.5,IEN,0)),U,16)>3171231) G FCT
  1. S NAME="COLLABORATIVE STAGING" D FORMAT^ONCOPA1
  1. W !!,TITLE
  1. 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
  1. 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
  1. 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
  1. 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
  1. 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
  1. 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
  1. 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
  1. 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
  1. 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
  1. 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
  1. 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
  1. 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
  1. 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
  1. 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
  1. 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
  1. 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
  1. 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
  1. 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
  1. W !," Site-Specific Factor 2: ",ONCAB(165.5,IEN,44.2,"I")
  1. W !," Site-Specific Factor 3: ",ONCAB(165.5,IEN,44.3,"I")
  1. W !," Site-Specific Factor 4: ",ONCAB(165.5,IEN,44.4,"I") D P Q:EX=U
  1. W !," Site-Specific Factor 5: ",ONCAB(165.5,IEN,44.5,"I") D P Q:EX=U
  1. W !," Site-Specific Factor 6: ",ONCAB(165.5,IEN,44.6,"I") D P Q:EX=U
  1. W !," Site-Specific Factor 7: ",ONCAB(165.5,IEN,44.7,"I") D P Q:EX=U
  1. W !," Site-Specific Factor 8: ",ONCAB(165.5,IEN,44.8,"I") D P Q:EX=U
  1. W !," Site-Specific Factor 9: ",ONCAB(165.5,IEN,44.9,"I") D P Q:EX=U
  1. W !," Site-Specific Factor 10: ",ONCAB(165.5,IEN,44.101,"I") D P Q:EX=U
  1. W !," Site-Specific Factor 11: ",ONCAB(165.5,IEN,44.11,"I") D P Q:EX=U
  1. W !," Site-Specific Factor 12: ",ONCAB(165.5,IEN,44.12,"I") D P Q:EX=U
  1. W !," Site-Specific Factor 13: ",ONCAB(165.5,IEN,44.13,"I") D P Q:EX=U
  1. W !," Site-Specific Factor 14: ",ONCAB(165.5,IEN,44.14,"I") D P Q:EX=U
  1. W !," Site-Specific Factor 15: ",ONCAB(165.5,IEN,44.15,"I") D P Q:EX=U
  1. W !," Site-Specific Factor 16: ",ONCAB(165.5,IEN,44.16,"I") D P Q:EX=U
  1. W !," Site-Specific Factor 17: ",ONCAB(165.5,IEN,44.17,"I") D P Q:EX=U
  1. W !," Site-Specific Factor 18: ",ONCAB(165.5,IEN,44.18,"I") D P Q:EX=U
  1. W !," Site-Specific Factor 19: ",ONCAB(165.5,IEN,44.19,"I") D P Q:EX=U
  1. W !," Site-Specific Factor 20: ",ONCAB(165.5,IEN,44.201,"I") D P Q:EX=U
  1. W !," Site-Specific Factor 21: ",ONCAB(165.5,IEN,44.21,"I") D P Q:EX=U
  1. W !," Site-Specific Factor 22: ",ONCAB(165.5,IEN,44.22,"I") D P Q:EX=U
  1. W !," Site-Specific Factor 23: ",ONCAB(165.5,IEN,44.23,"I") D P Q:EX=U
  1. W !," Site-Specific Factor 24: ",ONCAB(165.5,IEN,44.24,"I") D P Q:EX=U
  1. W !," Site-Specific Factor 25: ",ONCAB(165.5,IEN,44.25,"I") D P Q:EX=U
  1. ;
  1. 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
  1. D P Q:EX=U
  1. PA2 D ^ONCOPA2
  1. ; WILL CALL ONCOPA2 ROUTINE FROM HERE TO CONTINUE...
  1. ;
  1. Q
  1. P ;
  1. I ($Y'<(LINE-1)) D Q:EX=U W !
  1. .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
  1. .D HDR Q
  1. Q
  1. HDR ; Header
  1. W @IOF S PG=PG+1
  1. W CRA,!
  1. W ?5," Patient Name: ",PATNAME,?84,"SSN: ",SSAN,!
  1. Q
  1. ;
  1. CLEANUP ;Cleanup
  1. K COC,CRA,EX,IEN,LINE,NAME,ONCAB,PATNAME,PG,SSAN,TITLE,TOP,TPX,Y