��>� =���w�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������<  !"#$%&'()*+,-./0123456789:;���CP?@ABDNEFGHIJKLMOVe���RSTU���fXYZ[\]^_`abcdQ��hij���l�nopqrstuv������yz{|}~Root Entry�������� �F���$UFߎ�>7Workbook%��������s_VBA_PROJECT_CUR"#"@DEߎ��$UFߎ�VBA��������@DEߎ�[DFߎ� g2�ɀ����\pDepartment of Treasury B�a�=�� ThisWorkbook���=�O 28X@�"��1���3Arial1��3Calibri1��3Calibri1��3Calibri1"���3 Helvetica1���3Arial1���3Arial1���3Arial1"���3 Helvetica1���3Arial1���3Arial1x��3Arial1x�3Arial1���3Arial1h8��Cambria1,8��Calibri18��Calibri1�8��Calibri1���Calibri1���Calibri1�<��Calibri1�>��Calibri1�?��Calibri1�4��Calibri1�4��Calibri1� ��Calibri1� ��Calibri1���Calibri1���Calibri1� ��Calibri1���Calibri"$"#,##0_);\("$"#,##0\)!"$"#,##0_);[Red]\("$"#,##0\)""$"#,##0.00_);\("$"#,##0.00\)'""$"#,##0.00_);[Red]\("$"#,##0.00\)7*2_("$"* #,##0_);_("$"* \(#,##0\);_("$"* "-"_);_(@_).))_(* #,##0_);_(* \(#,##0\);_(* "-"_);_(@_)?,:_("$"* #,##0.00_);_("$"* \(#,##0.00\);_("$"* "-"??_);_(@_)6+1_(* #,##0.00_);_(* \(#,##0.00\);_(* "-"??_);_(@_)� \(#,##0\)�@*.�"*"#,##0;"*"\-#,##0;"*"@�� � �� � �� � �� � �� � �� � �� � �� � �� � �� � �� � �� � �� � �� � �� � � � �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� �� � � �� ff��� �+� �� �)� �� �,� �� �*� �� �� �� �� �� �� �P� �� �P � �� � � �� �� �� �� � � �� �`� �� �� �� �  � �� ���� � � �� � �"@ @ � � �"@ @ � ��!� �� �� �� �a>� �� �� ��!8� �!8� �!� ��!� ��!8� � � �8@ @ � �8@ @ � �8@ @ � ���" @ @ � ���",@ @ � ���",@ @ � �!8@ @ � � "<@ @ � �� ,@ @ � �� l@ @ � � H� �� ,@ @ � �  � � #� � � � � !� �#<@ @ � �#<@ @ � �#|@ @ � �#|@ @ � �  H� ���"L@ @ � �#|@ @ � �#<@ @ � �#X� �#|@ @ � �#|@ @ � �#|@ @ � �#<@ @ � �#8@ @ � �#x@ @ � �#x@ @ � �#|� �#|@ @ � � (@ @ � �#|@ @ � �#<@ @ � ��!8� �8@ @ � �8@ @ � �8@ @ � �8@ @ � �8@ @ � �8@ @ � ��#|@ @ � ��#<@ @ � ��#|@ @ � ��#\� ��#|@ @ � ��#<@ @ � ��#<@ @ � ||z&rs}A} 00\);_(*ef;_(@_) }A} 00\);_(*ef;_(@_) }A} 00\);_(*ef;_(@_) }A} 00\);_(*ef;_(@_) }A} 00\);_(*ef;_(@_) }A} 00\);_(*ef ;_(@_) }A} 00\);_(*L;_(@_) }A} 00\);_(*L;_(@_) }A} 00\);_(*L;_(@_) }A} 00\);_(*L;_(@_) }A} 00\);_(*L;_(@_) }A} 00\);_(*L ;_(@_) }A} 00\);_(*23;_(@_) }A} 00\);_(*23;_(@_) }A} 00\);_(*23;_(@_) }A} 00\);_(*23;_(@_) }A}  00\);_(*23;_(@_) }A}! 00\);_(*23 ;_(@_) }A}" 00\);_(*;_(@_) }A}# 00\);_(*;_(@_) }A}$ 00\);_(*;_(@_) }A}% 00\);_(*;_(@_) }A}& 00\);_(*;_(@_) }A}' 00\);_(* ;_(@_) }A}( ��00\);_(*��;_(@_) }�}) }�00\);_(*�;_(@_) � � � �}�}* 00\);_(*�;_(@_) ???� ???� ???� ???�}-}/ �00\);_(*}A}0 a�00\);_(*�;_(@_) }A}1 00\);_(*;_(@_) }A}2 00\);_(*�?;_(@_) }A}3 00\);_(*23;_(@_) }-}4 00\);_(*}�}5 ??v�00\);_(*�̙�;_(@_) � � � �}A}6 }�00\);_(*��;_(@_) }A}7 e�00\);_(*��;_(@_) }x}8���00\);_(*���;_(�� �� ��}�}9 ???�00\);_(*�;_(???� ???�  ???� ???�}-}> 00\);_(*}U}? 00\);_(*;_( }-}@ ��00\);_(*� 20% - Accent1�M�� 20% - Accent1 ef� �%� 20% - Accent2�M�"� 20% - Accent2 ef� �%� 20% - Accent3�M�&� 20% - Accent3 ef� �%� 20% - Accent4�M�*� 20% - Accent4 ef� �%� 20% - Accent5�M�.� 20% - Accent5 ef� �%� 20% - Accent6�M�2� 20% - Accent6  ef� �%� 40% - Accent1�M�� 40% - Accent1 L� �%� 40% - Accent2�M�#� 40% - Accent2 L� �%� 40% - Accent3�M�'� 40% - Accent3 L� �%� 40% - Accent4�M�+� 40% - Accent4 L� �%� 40% - Accent5�M�/� 40% - Accent5 L� �%� 40% - Accent6�M�3� 40% - Accent6  L� �%� 60% - Accent1�M� � 60% - Accent1 23� ����%� 60% - Accent2�M�$� 60% - Accent2 23ږ� ����%� 60% - Accent3�M�(� 60% - Accent3 23� ����%� 60% - Accent4�M�,� 60% - Accent4 23� ����%� 60% - Accent5�M�0� 60% - Accent5 23� ����%�! 60% - Accent6�M�4� 60% - Accent6  23� ����%� "Accent1�A��Accent1 O� ����%� #Accent2�A�!�Accent2 PM� ����%� $Accent3�A�%�Accent3 Y� ����%� %Accent4�A�)�Accent4 d� ����%� &Accent5�A�-�Accent5 K� ����%� 'Accent6�A�1�Accent6  F� ����%�(Bad�9��Bad ��� ���%�) Calculation���� Calculation �� �}�%������ ���* Check Cell��� Check Cell �� ����%�???��???��???� �???��+�� ��Comma�,��(�� Comma [0]�-��&��Currency�.��.�� Currency [0]�/Explanatory Text�G�5�Explanatory Text ��%� 0Good�;��Good �� �a�%�1 Heading 1�G�� Heading 1 I}�%O��2 Heading 2�G�� Heading 2 I}�%�?��3 Heading 3�G�� Heading 3 I}�%23��4 Heading 4�9�� Heading 4 I}�%� 5Input�u��Input ��̙� �??v�%������ ���6 Linked Cell�K�� Linked Cell �}�%���� 7Neutral�A��Neutral ��� �e�%���"��Normal� 8Note�b� �Note ���������� ��� 9Output�w��Output �� �???�%�???��???��???� �???��:��$��Percent�;style_col_headings�<style_col_numbers�= style_titles� >Title�1��Title I}�%� ?Total�M��Total �%O�O��@ Warning Text�?� � Warning Text ���%�X��TableStyleMedium9PivotStyleLight16`�7>Line amounts by sectors���������8�n A<\Table 1. Corporations Claiming a Credit for Increasing Research Activities on Form 6765 [2]W[All figures are estimates based on samples--money amounts are in thousands of dollars]Item All sectorsSectors+Agriculture, forestry, fishing, and huntingMining Utilities Construction ManufacturingWholesale and retail tradeTransportation and warehousing InformationFinance and insurance Real estate, rental, and leasing0Professional, scientific, and technical services+Management of companies (holding companies)5Administrative/ support and waste management servicesVarious services [8] 4Number of Returns Claiming a Credit on Form 6765 [3]Section A-Regular Credit. [7] 71 Certain amounts paid/incurred to energy consortia.2 Basic research payments paid or incurred/3 Qualified organization base period amount"5 Wages for qualified services6 Cost of supplies(7 Rental or lease costs of computers88 Applicable percentage of contract research expense49 Total qualified research expenses (sum 5-8) [4]&11 Average annual gross receipts [5]12 Base amount17 Regular Credit [6].20 Qualified organization base period amount!24 Wages for qualified services25 Cost of suppliesNotes:c Estimate should be used with caution because of the small number of returns on which it was based."[1] This amount is less than $500.\[2] Includes returns of active corporations, other than Forms 1120S, 1120-REIT, and 1120-RIC[7] Component data for each section also includes amounts for those credit claimants not claiming the specific section credit. �[8] "Various Services" include educational services; health care and social assistance; arts, entertainment, and recreation; accommodoation and food services; and other services.918 Certain amounts paid or incurred to energy consortia719 Basic research payments to qualified organizations'26 Rental or lease costs of computers?27 Enter the applicable percent of contract research expenses929 Enter total qualified research for prior 3 tax years@37 Passthrough rsrch cr(s) from prtnshp, S corp, est, or trust628 Total qualified research expenses (sum 24-27) [4]&34 Alternative Simplified Credit [6]B38 Current-year credit for Increasing Research Activities [3][6]}[3] Number of credit claimants and Line 38 amount both include corporations that only reported data on Line(s) 37 and/or 38.,Section B-Alternative Simplified Credit. [7]( Section C-Current-Year Credit.�[5] Line 11 , Average annual gross receipts, are defined as the average annual gross receipts for the 4 tax years preceding the tax year for which the credit is being determined.�[4] Line 9 and Section B line 28 do not equal the sum of their components as shown in this table, because some corporations only reported these total lines.�[6] Line 17 and Section B line 34, and line 38 include credit amounts for which some corporations did not provide component data.[1]BSource: Statistics of Income Division: 2011 Corporate Returns DataSelected Items, by Sectors Tax Year 2011�B1 ,2'3~4y�5��7��9��<� cc��B��������OUj_ KU� g2�ɀ .t^^or  dMbP?_*+�%��� &R&P of &N��&�?'�?(�?)�?M\\MTB0120PPSOI06\Holiday�4C�� odXXLetter����DINU"L �8D SMTJHP Universal Printing PCL 6InputBinFORMSOURCERESDLLUniresDLLHPDocUISUITrueESPRITSupportedTrueFastRes2bppResolution600dpiPrintQualityGroupPQGroup_4HPColorSmartAutomaticHPColorSmart_ColorOptions_EdgeControlNoCmdHPColorSmart_ColorOptions_HalftoneNoCmdHPColorSmart_Text_NeutralGraysNoCmdHPColorSmart_Text_HalftoneNoCmdHPColorSmart_Text_RGBColorNoCmdHPColorSmart_Graphics_NeutralGraysNoCmdHPColorSmart_Graphics_HalftoneNoCmdHPColorSmart_Graphics_RGBColorNoCmdHPColorSmart_Photo_NeutralGraysNoCmdHPColorSmart_Photo_HalftoneNoCmdHPColorSmart_Photo_RGBColorNoCmdOrientationPORTRAITHPOrientRotate180FalseDuplexNONEHPPrintOnBothSidesManuallyFalsePaperSizeLETTERHPConsumerCustomPaperTrueMediaTypeAUTOCollateONHPNUseDiffFirstPageChoiceTRUEHPPageExceptionsobHPCPE140HPPageExceptionsInterfaceShowPageExceptionsHPPageExceptionsLowEndHPPageExceptionsLowEndVerHPPageExceptionsCoverInsertionHPOutputBinOrientationFACEDOWNPunchingNoneStaplingNoneHPStaplingOpposedFalseEconomodeFalseTextAsBlackFalseAlternateLetterHeadFalseHPSmartHubInet_SID_263_BID_514_HID_265OutputBinAutoHPDocPropResourceDatahpchl140.cabHPLpiSelectionNoneJPEGEnableAutoHPEasyColorOnHPMHDLLNameHPFIE140HP_DIBStitch_TintTestDisabledHPMediaTypeTreeviewPopupTrueHPColorModeCOLOR_MODEColorMode24bppTTAsBitmapsSettingTTModeOutlineHPPDLTypePDL_PCL6HPPJLEncodingUTF8HPJobAccountingHPJOBACCT_JOBACNT_GROUPNAMEHPBornOnDateHPBODHPColorPlaneHPCPHPJobByJobOverrideJBJOHPJobAccWoPinTrueHPXMLobUsedhpcu1406.xmlHPSmartDuplexSinglePageJobTrueHPDuplicateJobNameOverrideSWFWHPEnableRAWSpoolingTrueRGBColorNoCmdJRConstraintsJRCHDFullJRHDInstalledJRHDOffJRHDNotInstalledJRHDOffHPBestGlossDefaultPSAlignmentobHPCLS140�IUPH!xM/A�HB�(o!��(]/�&8�.&-Iu�|D�>Og֖-VD�ot�34� j;�VR5u�pp �(ܵC�9�-So� rMSb K8ߟy�%l^3*JM駼ȼ)OջVИniQcH"Y FfeFRfF��� u�){�ћG~s}�:l"]�d90Q3wE �n� �9�7YѩN �z�//ʲy` �,�#iI̞�,^|Rm�=��Y#A?��ܖ9cAՕF� 5\ܶ"ѥ�xIV]݌t-�; {v}�(u@Yx AY.AY@aw`sP?�@v@Y [@� O�`c! t @t@WAW0@WrS7WN*u0@YjiY:Ms`@a�2�sL�Aj@Yȶ A� Oc8J�!B�t�&At�W~W�4WGA�W�3u�(� Y�1  Ynq!B�$ sy#AatT Ym�j�5EAY�!e� O�`cڶ t%@t@W@W@W�:�W~Nu`@Y9AYAw7@aWMYAj@1@YT A� R�`^.�x@x@X@X@XV9�XAxr@X4�AX8@y@X�2Ay@$@k@Z@� N3�$YYYYYYYYYYbYbba� O)�<a0z�@eY|@Y@eY@e@dd �  d8~  d�  d8~  d� d8~ i� O*�aAer@� e8�Neq@eY�AY @ddddWҥ@dde� O �`ajAeeYF@eYAYD@dW@ddddW@e� O!�`aR�Y @YXAYAY8�AY"� YVαW`@W"WN}<W0�AW>ilW�AWAY A� O"�`a&FY@,@Y|AY@Y@Yrz�YlR,Ath@W AW^@W@W~�&W@WAY@� O+�`a@eeg@Yص@eY@@Y~@dW@W@@Wҳ@t@dde� O,�`aW�Yʵ@Y`@Y0|@Y@Y� Y�W�-@WaTWp�AWf@W7YWN@W�/@Y@� O/�`aQ�Y@@Yx�'AYLAY jAY��Y�WjAWza�WMWh�AWa�WAW4!AY|1A� O-�`a73MY`� AY^Y�*AYܫAY\�5Y�WlAW�/ W:i�Ws$AWƸ�W:@W2AY%A� R0�``֫LZX@Z@Z@Z@ZNZCAX@X.X`@X@XdAXX@Xo@Zm@� N4�$YYYYYYYiiiiiiii�D�l6666N�nr6��rrrrrr�rr6��rrrrrrrr �F!�F"�S#��S$�S%�S&�@'�@(�S)�@*�S+�S,�S-�S� O.�` a� Ae؀@ep@e`q@ep~@YC@Y%@W@W5@W@d@W@W@tЊ@e@V@� !R1�`!`�3Z@Z�"@Z`@Z�!@Z^jZ+X@XGX�7AX@X5X`6@X`F@Z(@� "S9"T"T" T#T#T# T� $S#� %U$� &S%� 'S&� (V2� )[6� *V5*T* T� +V7� ,V'� -V(� �rr,">�@dS��RA �� Sheet15gg����D ThisWorkbook�����Sheet15 ����__SRP_10����"�__SRP_11������������&B ��� !���#$%���'���)*+,-./0123456789:;<=>?@ABCDEFGHI���K���M���OPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuv���xy���{���}���������������P��#��������������������������x��ME������������� ��������������������������������������������������������������������������������������������������������������������������������(SL����S����S����<������N0{00020819-0000-0000-C000-000000000046}����8�������(����������%����H�����������������������������������������������������������������������������������������������������x����Attribute VB_Name = "ThisWorkbook" Bas�0{00020P819-0C$0046}� |Global�SpacFalse dCreatablPredeclaId�Tru BExposeTemplateDerivBustomizD2<�jx��@��#����������<��GXdL�>j �F5�3PqN�rdc?�������������x5�3PqN�rdc?GXdL�>j��ME�����������������������������������������������������������������������������������������������������������������������������������������������(SL����S����S����6"������N0{00020820-0000-0000-C000-000000000046}������������(����������%����H�������`�������������� %$��������������������� %����`��������������������������������������������h8@``����������������������0�Ps$*\Rffff*1G555ee9ae�����4��������x����Attribute VB_Name = "Sheet15" �Basx0{00020820- C$0046} |GlobaBlSpacFalse dCre atablPr@edeclaI"dTru BExposeTemplateDer iv$BustomizD2rU ��������i4 a1 �����������������������������������������������������������������������������������������������������`rU ��������@nModule3 ����(B__SRP_2������������JT__SRP_3 ����LgModule4������������N& ���������V�y��������������������������x��ME���������������������������������������������������������������������������������������������������������������������������������������������(6 ����<��< ��<������x (����`����������������������������&������p��������������%����������������������������������������������������H����������������������������@�Ps$*\Rffff*1@555ee98e� ����"� ����� � �����60�8h���"�� �� \�� PX� ������ �� � ����� ��� ���� ��������x�� *(,5 0!2'.ion � 4�� .����loop through all rows) � 6�� .����loop through all columns 4 6$.�**� 4 6$.�$��*� 4 6$8� 4 6$. 4 6$.� $<9:�;(strip the single asterisk off the number�����"*"#,##0;"*"-#,##0;"*"@9>�=*format number to display a single asteriskq��Pk��Hk��@� 6��������� 4��������� *(,������o����������Attribute VB_Name = "Module3" Option Base 1 Sub removeWeakEstimateIndicators�()JAppl v.ScreenUpdatingFalse arrActiveSheet.UsedRang For i 1 To UB ound(2, 1) 'loop through all rows 5k525column� If 0(i, k) <> "**" T8hen,�LeftCF� With Cells"�$ .ValuRigh�(Len0) -�xsҁxe s�le asterisk off�e number=�2N� ��"""*""#,##0;-�@" 0'forA  to display a IEnd� �;�If�Next k iTru@A rU~| ����krU ��������$�`�����������n��������� �.@�������������������������x��ME���������������������������������������������������������������������������������������������������������������������������������������������(6 ����<��< ��<������x B����`������������ ����������!!�����@������p��������������%����������������������������������������������������H����������������������������@�Ps$*\Rffff*1A555ee98e�!"� ����� �  �����6(�8`���"�� �� \�� PP� ������ �� � ����� � �����6��8 �X� �� �� �� ����� �  ����� (�8����H�� *(, selec 0!2'.cd� 4�� .����loop through all rows16� 6�� .����loop through all columns 4 6$.�**� 4 6$.�$��*�* 4 6$8�$8 4 6$. 4 6$.� $<9:�;(strip the single asterisk off the number�"*"#,##0;"*"-#,##0;"*"@9>�=*format number to display a single asteriskq��Xk��Pk��H� 6��� 4�� 0!2'D� F�� D����loop through all rows� H�� D����loop through all columns F H$D�- F H$D� - F H$D� - F H$D� - F H$D� -� F H$8��9:q��k���� H��� F��� *(,o�������������Attribute VB_Name = "Module4" Sub WebReady() Application.Scr@eenUpdngrFalse  arrActiveSheet.UsedRang8 For i@1 To U@Bound(2, 1) 'loop through all ro@ws 5k525column8 If `(i, k) <> "**" pThenX�LeftCF� With Ce8lls"�$ .ValuRig"h�(Len0) -xsxe single asterisk offe numhber�2N� mat�"""*""#,##0;-�@" 'for�& to display a� IEnd �;�If�Next k �i\2�%ZL�2h�� 2(g, h)"-" Or� T�� Æ U0_ Za ^h`gq^Tru�@| rU~| __SRP_4������������w�__SRP_5 ����zgModule1����W$__SRP_6������������|T0  krU ��������$�`�����������nrU~| ����krU ��������T$�`�����������n�� ����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������1�$(Cells(1, 1)�, �&, D.)M"3� sɀwhat �? (cYRn)@�K'r� Whichxle �)2,3,4,5�*R5)we you creating?ATab#� berA 'If �""c04" Then@hextraitems�" left or join (sel�� scpl,,omp_div_frn_@p+nvl(cfc_85,0)) �� othr_rcpts- l_plcy_cashB �, e w�& a.retuAtype "'08','14@20') t� c�#tx_exmt_intel��_m1 end � from micro_" &�H& " aA!@trolM us5@](F)� @Aid%s b � , edit_1_2lform_1h120-c4 're& �&1�%A'�23h�'E�$B5"BW"c05�� !X�:�7iU�:|If Y@�h`� @2 <> 0 ne`dcm\a�� Fcm_pos @� i i,ndW"HUsoiBbcd#.42@.�44ET'41'cZU 6a36�7!7 !81�900'~ YX�60" OrD�7"�)sA'nt|�S@f�"8l9f'!@`iA(It= '801'! $K 10�, 11�10`]waoMvdnyMmentity_ad@q al_�'tG�_{taxmp�/@1('1�2'� ��=41O4 0� o�ajjj)�!.2-� 2� �F�OWNR_CD0EVPRCNT >=x 50C�QBEs�8lishAsaDne2� toda�`�"With2� .Proa5r� MSDAOXRA.�2( Pne�Snga1� xID=u� u;�w"; D@ Source=SP11.WORLD�dOp!�=�E A � P&n.CursorLocp�0�= ad`Cli�=u qF0i 4 To�#IP�!iP;a e�p"DIV_�K/ d�"(‰ĐϒÒ�(�}AS:�W!� � ' Ce`R�1@` WW�sql�%��#%n�,1)-dy`op�(*) ctpum(weight_f) w�r�d(spk��*F)A&1^ 72�"T67�65-a3𨁨G�?B_P� heǿT� 0 Then�$ netincm = "and net_incm_pos > 0"�Else: netincm = ""�End If�| case when soi_div_cd in ('42','44') then '41' when soi_div_cd in ('61','62','71','72','81') then '900' else soi_div_cd end 't�$If tabNum = "6" Or tabNum = "7" Then� constraints = ""�)'ElseIf tabNum = "8" Or tabNum = "9" Then�+' constraints = "and return_type = '01'"�*ElseIf tabNum = "10" Or tabNum = "11" Then�5 items10_11 = " a left outer join control_c05 using(scpl) left outer join dividends_c05 b using(scpl, edit_1_2) left outer join entity_additional_c05 b using(scpl, edit_1_2) left outer join form_1120_c05 using(scpl, edit_1_2) left outer join tax_comp_c05 using(scpl, edit_1_2) where edit_1_2 in ('1','A')"�o constraints = " and (a.return_type = '05' or (frn_cd = 'Y' and a.RETURN_TYPE not in ('09', '10', '14'))) "�*ElseIf tabNum = "12" Or tabNum = "13" Then�@ constraints = " and a.return_type not in ('02','04','06') "�*ElseIf tabNum = "14" Or tabNum = "15" Then�/ constraints = " and a.return_type = '02' "�*ElseIf tabNum = "16" Or tabNum = "17" Then�< constraints = " and a.return_type in ('08','20','14') "�*ElseIf tabNum = "24" Or tabNum = "25" Then�E constraints = " and FRN_OWNR_CD = 'Y' and FRN_OWNR_PRCNT >= 50 "�End If�(Establish the connection to the database X�� MSDAORA.19v�User ID= `� ; Password= d�; Data Source=SP11.WORLD9xC@q��  | X(z� 4�� f�� 4$p'~�# If arr1(1, i) = "DIV_FRN" Then�5 Item = "(comp_div_frn_corp+nvl(div_cfc_85,0))"� Else: Item = arr1(1, i)� End If� Create a Recordset�&If tabNum = "10" Or tabNum = "11" Then� select nvl( t�3,1) indy, count(*) ct, sum(weight_f) wt, round(sum( ~�!*weight_f)) theitem from control_ T� join form_6765_ T�$ a using (scpl,edit_1_2) join micro_ T�� b using (scpl) where edit_1_2 in ('1','A') and ed_st in ('C','D') and b.return_type not in ('02','04','06') and a.R_TOT_ALLW_RSRCH_CR !=0 and  ~�!=0 group by rollup( t�) Order by indy nulls last'��Else: SQLstring = "select " & indy_cd & " indy_cd, count(*) ct, sum(weight_f) wt, round(sum(" & Item & "*weight_f)) theitem from micro_" & sbyear & extraitems & " and round(" & Item & "*weight_f) <> 0 " & netincm & constraints & " group by rollup(soi_div_cd,case soi_maj_cd when '625' then '6215' when '626' then '622' when '521' then '520' when '522' then '520' else soi_maj_cd end) Order by " & indy_cd & " nulls first"�End If��.\� �� ��� X%�.\� L��� L��� @L� ��� L��� � 4$p � L��+Lnten \!��spos�theitem$\ � L��$L�odul�ct$\!: � L��� +Lab37�wt$\!: � L��� +L  \B@����k�� dFyk��� ���'� 4�������� L��$8 L�� L��$8+r \B@B���� XB@B������� 'Lo�����������ͷAttribute VB_Name = "Module1" Option Base 1 Public myArray2, s, ac, tabNumbyearNSub arrESV() Dim conn As New ADODBd.Cecg!r st Recordset   UserIdInput Box("/Schema", 1ID"t4 PasswE 1� last@ColumnAMveSheet.3dRangeˀZsunN�8Row � rU~| ����krU ��������$�`�����������n�����������rU~|  ����krU ��������T$� `�����������n�� ������Module5����x~#__SRP_a�������������T__SRP_b�����qModule6����������$hichyle �)2,3,4D,5�*R5)xe you cre@ating?ATab� berA@ 'If �""c04" Then@hextra items�" @left or join (sel� scpl,,omp_di@v_frn_@p +nvl(cfc_85,0)) �� othr_@rcpts- l_plcy_caLshB �, e w�& a.retutype "'08','1420') t� c�#tx_ex@mt_intel_m1 end � from micro_" &H& " aA@trolM us@](F)� @Aids b � , edit_1_2lform_1120-c4Y 're& �&1�%A�'�2h�'E�$B�5"BW"c05� !�X�:�7iU:If Y@�h 2 <> 0� ne`dcm\a�� Fcm_pxos @� i 0 indW" soi_maj_8cd � �6"X Orij7I+ �sAntn� 2f"8l9f'!�@RiAIf= '0�1'! $= 10, �11�10`Oa;a?vd`y?mentity_ad@cal_�'f�#_mtaxmp_ ST!2�: a2(+25' or F("T�$'Y'�a.RETURN_TYPE nottO9', '105R4�<)'�"12}m3k#4I#72`C0V06Vo$0.�1pdJ.1 D^.��%�'02'� a'1=4�1O4 0��accck�@2� 2� �F�OWNR_CD� DVPRCNT� >= 500GJBEs�8lisI}heQ#ne2� toam da�a"With2� � .Proa5rQMSDAORA.V1 2( Pn�S0nga1� ID�=n� n;�Cp"; D@ Source=SP11.WORLDgOp!�0E A � P&n.CursorLocpp�= ad`CliW�=u qF0i 4� To�#IP{�!iP�!a ^�p"DIV_K/ d"(‚ĉϋË UAS:��� ' Ce`R�1@` �WW� sql�%��f1o��(*) ct@�um(weigh@t_f) wrd(sp�r��*F)�%] � O�"sRT6765a~�׋Ң$ heOC" 0� ne`dcm\a�� Fcm_pxos @� i � indW"HUHsoiBbcd#.42@.44ET'41V'cZ 6a36�7%!7!81�90�0' YX�� �6" Or,7")sA'ntO|�@f�"8l9}f'!@`iA(It=� '01'! $K d10, 11�1�0`]aoMvdnyMmentity_ad@qal_�'t�_{taxySmp�/@1(�'1� "**" A.#+�) T� 'this will ch (*�*) inj�!sectto (- f no data exists� ACT9D"-�2�%Ap plicaA�.Works{Funon.IsNumber(��%@ l'D|mat( �RŒA , 0), "#,##0�"cD�%{@[, > 0W< 5X00)_B< >| -BA^A!"8[1]@MA�'***make negOve "sbed"Bs phosi f: E�1C@ˀNET_GN_LSS`_NEG"�(� INCM[ DEFICIT�S&��8etFCc8AbsdC* 0.00��:A' �)�:d(� �(g0� n"�em|�dCM� &f�< &AHC Place an{{front o0f thKo i fJ a weak estilveK`*A^<� 1^�`G=cpWt)d��-)'I9"@�& �;$Text$|| 'hardcod� comma�n�( �;# D7� #") ' #only wa&(Awith out"( # �0%�s! N@ i�xDim 2 'Remo`!5columncts/wt-ct bB=e Re!P`reser��(�1π V�#:ȅi) EmptyO�"COUNT(*)"rf[�/ 2% � ,pw,ߵ~xq k3Oy�S�#�(k�.)�� �i` }�k�يQ  ?�0�.ClearCP5ents  '(Cells(K��Of � _0�y�s2�wTrans0de�  �1(1�����g�������������������k�����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������Lt������������P��������������x��ME������������� ������������������������������������������������������������������������������������������������������������������������������(<��<6 ����<������Zt^e�����ʀPp �� ��@��������ʀT����@�� ��@��������p(xH������������ ���� �����`����������������������cc� X��������� % \���������%� ʀLH�� ��@��������ʀN�� ��@��������ʀR(0�� ��@�����������������������������%����0x���� ������������x����(���������������������T���������������������������� P�Ps$*\Rffff*1D555ee98e�e "�( ����08 �����$@�"h �������� �����&��&� �����& Z8 ���� � �� � �� p � � � *� �  �����  ���� *8 h 0� 2� 0� <  v` 0� F 0P 6 0� B� 00 L` � ���� .� �� �� �L �` �h � p ����� �� ���� *� <� " H ���� X ,x ��� �h  �����(� 0 �����,P ������$�� �� ,�� ,� ,8� h� x���� �� � �����6� ����� �� �� ����� ���� ���� ���� �������� ���x] � �H��p�(�x]��]��� User/Schema�UserID$b'`�Password�Password$b'd 0!2!h!j'f 0!2!n!j'l��$8 l f$8$r'p��$8 l�$8$r'L�what year? (cYR)�year$b'T�StabNum = InputBox("Which table (1,2,3,4,5, CR5) are you creating?", "Table Number")�If sbyear = "c04" Then�� extraitems = " left outer join (select scpl, (comp_div_frn_corp+nvl(div_cfc_85,0)) div_frn, (comp_othr_rcpts-nvl(l_plcy_cash,0)) othr_rcpts, case when a.return_type in ('08','14','20') then comp_tx_exmt_intrst else tx_exmt_intrst_m1 end exmt_intrst from micro_" & sbyear & " a left outer join control_" & sbyear & " using(scpl) left outer join dividends_" & sbyear & " b using(scpl, edit_1_2) left outer join lform_1120_" & sbyear & " c using(scpl, edit_1_2) where edit_1_2 in ('1','A')) using(scpl)" "�ElseIf sbyear = "c05" Then�� extraitems = " a left outer join control_c05 using(scpl) left outer join dividends_c05 b using(scpl, edit_1_2) where edit_1_2 in ('1','A')"~�Else: extraitems = ""K**�End Ifn (*��If tabNum Mod 2 <> 0 Then�$ netincm = "and net_incm_pos > 0" ��Else: netincm = ""�End If�� soi_maj_cd 't *�$If tabNum = "6" Or tabNum = "7" Thenthis n� constraints = ""orma�)'ElseIf tabNum = "8" Or tabNum = "9" Then�+' constraints = "and return_type = '01'"+��*ElseIf tabNum = "10" Or tabNum = "11" Then�5 items10_11 = " a left outer join control_c05 using(scpl) left outer join dividends_c05 b using(scpl, edit_1_2) left outer join entity_additional_c05 b using(scpl, edit_1_2) left outer join form_1120_c05 using(scpl, edit_1_2) left outer join tax_comp_c05 using(scpl, edit_1_2) where edit_1_2 in ('1','A')"4��o constraints = " and (a.return_type = '05' or (frn_cd = 'Y' and a.RETURN_TYPE not in ('09', '10', '14'))) "�*ElseIf tabNum = "12" Or tabNum = "13" Then�@ constraints = " and a.return_type not in ('02','04','06') "�*ElseIf tabNum = "14" Or tabNum = "15" Then�/ constraints = " and a.return_type = '02' "�*ElseIf tabNum = "16" Or tabNum = "17" Then�< constraints = " and a.return_type in ('08','20','14') "�*ElseIf tabNum = "24" Or tabNum = "25" Then�E constraints = " and FRN_OWNR_CD = 'Y' and FRN_OWNR_PRCNT >= 50 "�End If�(Establish the connection to the database X�� MSDAORA.19v�User ID= `� ; Password= d�; Data Source=SP11.WORLD9xC@q��� | X(z� 4�� f�� 4$p'~�# If arr1(1, i) = "DIV_FRN" Then�5 Item = "(comp_div_frn_corp+nvl(div_cfc_85,0))"� Else: Item = arr1(1, i)� End If� Create a Recordset�&If tabNum = "10" Or tabNum = "11" Then�select t�0 indy, count(*) ct, sum(weight_f) wt, round(sum( ~�!*weight_f)) theitem from control_ T� join form_6765_ T�$ a using (scpl,edit_1_2) join micro_ T�� b using (scpl) where edit_1_2 in ('1','A') and ed_st in ('C','D') and b.return_type not in ('02','04','06') and a.R_TOT_ALLW_RSRCH_CR !=0 and soi_maj_cd like '3%' and  ~�!=0 group by rollup( t�) Order by indy nulls last'��Else: SQLstring = "select " & indy_cd & " indy_cd, count(*) ct, sum(weight_f) wt, round(sum(" & Item & "*weight_f)) theitem from micro_" & sbyear & extraitems & " and round(" & Item & "*weight_f) <> 0 " & netincm & constraints & " group by rollup(soi_div_cd,case soi_maj_cd when '625' then '6215' when '626' then '622' when '521' then '520' when '522' then '520' else soi_maj_cd end) Order by " & indy_cd & " nulls first"�End If��.\� �� ��� X%�.\� L��� L��� @L� ��� L��� � 4$p � L��+L \!���theitem$\ � L��$L���ct$\!: � L��� +L�wt$\!: � L��� +L \B@�k��dFyk��p� ���� 4�� L��$8 L�� L��$8+r \B@B XB@B� 'Lo������������ڷAttribute VB_Name = "Module5" Option Base 1 Public myArray2, s, ac, tabNumbyearNSub a rrESV@2() Dim conn As New ADODB.Ceck1!rst Recordset   UserIdInputBox("/Schema"�, ID"t4� PasswE 1� lastColumnAMveSheet.3dRan,geZsun�N�Row �4 �1�$(Cells(1, 01), �&, �D)M"3�8 sˀwhat �? (cYR)@�K'sA� W41O4 0 �ajjj)�!.Z2� 2� �F�OWNR_CD0EVPRCNT >�= 50C0NQBEs�8lishAsQ#ne2� toda�"With2� .Pr oa5r� MSDA`ORA.102( Pn�S0nga�1� ID=u� �=u;�w"; D@ Source=SP11. WORLDgOp{!�0E A � P&n.CursorL ocpp�= adq`Cli�=u qF0i 4 To#IP�!iPw!a e�p"0DIV_�K/ d"(‰ĐϒÒ� {UAS:��� � ' Ce`R�1@` WW� sql�%��#%n�,1)-dy`op�(*) ctum(weight_f) w�r�d(spk��*F)A&1^ 72�"T67�65-a3𨁨G�?B_P� heǿT� 0 Then�$ netincm = "and net_incm_pos > 0" ��Else: netincm = ""�End If��| case when soi_div_cd in ('42','44') then '41' when soi_div_cd in ('61','62','71','72','81') then '900' else soi_div_cd end 'tr ta�$If tabNum = "6" Or tabNum = "7" Thenand re� constraints = ""*El�)'ElseIf tabNum = "8" Or tabNum = "9" Then�+' constraints = "and return_type = '01'"ing(sc�*ElseIf tabNum = "10" Or tabNum = "11" Then�5 items10_11 = " a left outer join control_c05 using(scpl) left outer join dividends_c05 b using(scpl, edit_1_2) left outer join entity_additional_c05 b using(scpl, edit_1_2) left outer join form_1120_c05 using(scpl, edit_1_2) left outer join tax_comp_c05 using(scpl, edit_1_2) where edit_1_2 in ('1','A')"'14'�o constraints = " and (a.return_type = '05' or (frn_cd = 'Y' and a.RETURN_TYPE not in ('09', '10', '14'))) ",'�*ElseIf tabNum = "12" Or tabNum = "13" Then�@ constraints = " and a.return_type not in ('02','04','06') "El�*ElseIf tabNum = "14" Or tabNum = "15" Then�/ constraints = " and a.return_type = '02' "')�*ElseIf tabNum = "16" Or tabNum = "17" Then�< constraints = " and a.return_type in ('08','20','14') "WNR_PR�*ElseIf tabNum = "24" Or tabNum = "25" Then�E constraints = " and FRN_OWNR_CD = 'Y' and FRN_OWNR_PRCNT >= 50 " `�End Ifword�(Establish the connection to the database X�� MSDAORA.19vz�User ID= `� ; Password= d�; Data Source=SP11.WORLD9xDIV_C@q��  | X(z Ite� 4�� f�_corp+� 4$p'~"�# If arr1(1, i) = "DIV_FRN" Then �5 Item = "(comp_div_frn_corp+nvl(div_cfc_85,0))"0" O� Else: Item = arr1(1, i) t� End If� Create a Recordset, roun�&If tabNum = "10" Or tabNum = "11" Thenontr� select nvl( t�3,1) indy, count(*) ct, sum(weight_f) wt, round(sum( ~�!*weight_f)) theitem from control_ T� join form_6765_ T�$ a using (scpl,edit_1_2) join micro_ T�� b using (scpl) where edit_1_2 in ('1','A') and ed_st in ('C','D') and b.return_type not in ('02','04','06') and a.R_TOT_ALLW_RSRCH_CR !=0 and r_cy_qual_exp < r_gen_50prcnt and r_allw_rsrch_exp <> 0 and r_cy_qual_exp <> 0 and  ~�!=0 group by rollup( t�) Order by indy nulls last'(" & I��Else: SQLstring = "select " & indy_cd & " indy_cd, count(*) ct, sum(weight_f) wt, round(sum(" & Item & "*weight_f)) theitem from micro_" & sbyear & extraitems & " and round(" & Item & "*weight_f) <> 0 " & netincm & constraints & " group by rollup(soi_div_cd,case soi_maj_cd when '625' then '6215' when '626' then '622' when '521' then '520' when '522' then '520' else soi_maj_cd end) Order by " & indy_cd & " nulls first"!��End If ��.\� �� ��� X%�.\� L��� L��� @L� ��� L��� � 4$p � L��+L \!���theitem$\ � L��$L��ct$\!: � L��� +L�wt$\!: � L��� +L \B@�k���dFyk���� ���� 4�� L��$8 L�� L��$8+r \B@B XB@B� 'Lo��0����(����۷Attribute VB_Name = "Module6" Option Base 1 Public myArray2, s, ac, tabNumbyearNSub a rrESV@3() Dim conn As New ADODB.Ceck1!rst Recordset   UserIdInputBox("/SrU~|  ����krU ��������T$� `�����������nrU~| ����krU ��������T$�`�����������n�� ������chema"�, ID"t4� PasswE 1� lastColumnAMveSheet.3dRan,geZsun�N�Row �4 �1�$(Cells(1, 01), �&, �D)M"3�8 sˀwhat �? (cYR)@�K'sA� Whichyle �)2,3,4D,5�*R5)xe you cre@ating?ATab� berA@ 'If �""c04" Then@hextra items�" @left or join (sel� scpl,,omp_di@v_frn_@p +nvl(cfc_85,0)) �� othr_@rcpts- l_plcy_caLshB �, e w�& a.retutype "'08','1420') t� c�#tx_ex@mt_intel_m1 end � from micro_" &H& " aA@trolM us@](F)� @Aids b � , edit_1_2lform_1120-c4Y 're& �&1�%A�'�2h�'E�$B�5"BW"c05� !�X�:�7iU:If Y@�h 2 <> 0� ne`dcm\a�� Fcm_pxos @� i � indW"HUHsoiBbcd#.42@.44ET'41V'cZ 6a36�7%!7!81�90�0' YX�� �6" Or,7")sA'ntO|�@f�"8l9}f'!@`iA(It=� '01'! $K d10, 11�1�0`]aoMvdnyMmentity_ad@qal_�'t�_{taxySmp�/@1(�'1��= 50C0NQBEs�8lishAsQ#ne2� toda�"With2� .Pr oa5r� MSDA`ORA.102( Pn�S0nga�1� ID=u� �=u;�w"; D@ Source=SP11. WORLDgOp{!�0E A � P&n.CursorL ocpp�= adq`Cli�=u qF0i 4 To#IP�!iPw!a e�p"0DIV_�K/ d"(‰ĐϒÒ� {UAS:��� � ' Ce`R�1@` WW� sql�%��#%n�,1)-dy`op�(*) ctum(weight_f) w�r�d(spk��*F)A&1^ 72�"T67�65-a3𨁨G�?B_P� heǿT� 0 Then�$ netincm = "and net_incm_pos > 0" ��Else: netincm = ""�End If��| case when soi_div_cd in ('42','44') then '41' when soi_div_cd in ('61','62','71','72','81') then '900' else soi_div_cd end 'tr ta�$If tabNum = "6" Or tabNum = "7" Thenand re� constraints = ""*El�)'ElseIf tabNum = "8" Or tabNum = "9" Then�+' constraints = "and return_type = '01'"ing(sc�*ElseIf tabNum = "10" Or tabNum = "11" Then�5 items10_11 = " a left outer join control_c05 using(scpl) left outer join dividends_c05 b using(scpl, edit_1_2) left outer join entity_additional_c05 b using(scpl, edit_1_2) left outer join form_1120_c05 using(scpl, edit_1_2) left outer join tax_comp_c05 using(scpl, edit_1_2) where edit_1_2 in ('1','A')"'14'�o constraints = " and (a.return_type = '05' or (frn_cd = 'Y' and a.RETURN_TYPE not in ('09', '10', '14'))) ",'�*ElseIf tabNum = "12" Or tabNum = "13" Then�@ constraints = " and a.return_type not in ('02','04','06') "El�*ElseIf tabNum = "14" Or tabNum = "15" Then�/ constraints = " and a.return_type = '02' "')�*ElseIf tabNum = "16" Or tabNum = "17" Then�< constraints = " and a.return_type in ('08','20','14') "WNR_PR�*ElseIf tabNum = "24" Or tabNum = "25" Then�E constraints = " and FRN_OWNR_CD = 'Y' and FRN_OWNR_PRCNT >= 50 " `�End Ifword�(Establish the connection to the database X�� MSDAORA.19vz�User ID= `� ; Password= d�; Data Source=SP11.WORLD9xDIV_C@q��  | X(z Ite� 4�� f�_corp+� 4$p'~"�# If arr1(1, i) = "DIV_FRN" Then �5 Item = "(comp_div_frn_corp+nvl(div_cfc_85,0))"0" O� Else: Item = arr1(1, i) t� End If� Create a Recordset, roun�&If tabNum = "10" Or tabNum = "11" Thenontr� select nvl( t�3,1) indy, count(*) ct, sum(weight_f) wt, round(sum( ~�!*weight_f)) theitem from control_ T� join form_6765_ T�$ a using (scpl,edit_1_2) join micro_ T�� b using (scpl) where edit_1_2 in ('1','A') and ed_st in ('C','D') and b.return_type not in ('02','04','06') and a.R_TOT_ALLW_RSRCH_CR !=0 and r_cy_qual_exp > r_gen_50prcnt and r_allw_rsrch_exp <> 0 and r_gen_50prcnt <> 0 and  ~�!=0 group by rollup( t�) Order by indy nulls last'(" & I��Else: SQLstring = "select " & indy_cd & " indy_cd, count(*) ct, sum(weight_f) wt, round(sum(" & Item & "*weight_f)) theitem from micro_" & sbyear & extraitems & " and round(" & Item & "*weight_f) <> 0 " & netincm & constraints & " group by rollup(soi_div_cd,case soi_maj_cd when '625' then '6215' when '626' then '622' when '521' then '520' when '522' then '520' else soi_maj_cd end) Order by " & indy_cd & " nulls first"!��End If ��.\� �� ��� X%�.\� L��� L��� @L� ��� L��� � 4$p � L��+L \!���theitem$\ � L��$L��ct$\!: � L��� +L�wt$\!: � L��� +L \B@�k���dFyk���� ���� 4�� L��$8 L�� L��$8+r \B@B XB@B� 'Lo��0����(����۷Attribute VB_Name = "Module7" Option Base 1 Public myArray2, s, ac, tabNumbyearNSub a rrESV@4() Dim conn As New ADODB.Ceck1!rst Recordset   UserIdInputBox("/S arrESVtab26&Module6g arrESVtab37&Module7h arrESVtab48&Workbookk Worksheet�������!�%'������������������������� ������� �������������������������A �������� ��������K�������������������������������fice14\EXCEL.EXE#Micro10*� pH�d� VBAProject4@j = r �Ps� J< rstdole>stdole h%^*\G{00020430-C 0046}#2.0#0#C:\Windows\syst em32\e2.tlb#OLE Automation`EOffDicEOfi�cEE2DF8D04C-5BFA-101B-BDE5EAAC42E�gram Files\CommonMicrosoft Shared\OFFICE14\MSO.0DLL#�M 1q Ob Li`braryKADODB>AADOB5_A75196C-D9EB-4129-B803-931327F72D5ZC�/8R�/SBW\@ado\ms@28W�,ActiveX Data-s 2.8K.˜� ��‚ThisWorkbookG/T@isW@rkb�o�*� 2� � HB1¦%B,�!P"EB+B�Sheet15G#et1�5 2OP@OModPule3CM=d�u3DC O\:y�!�i� 4�4��4�4�/,T.@�1�1�1%�1���~ U�2�2�2�2ɰ8� x�IW�6IC05�5�zp�6o6jJ6�6�2oت7�7�7��7�u�Y DataK*� ����rU~~~~~~~~~~~~~~  �ҚNYAKOP�>  �����  �������������a Q ������� 9�����������)a 9���������Y��A� ����������y��Y� 9����`�������q� �����x���� ���� �����(����)���� ����������I���q�i�� VBAProject ThisWorkbookSheet15Module3Module4Module1Module2Module5Module6Module7��F /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA7\VBE7.DLLVBA ����� �a0�F4C:\Program obs\Microsoft Office\Office14\EXCEL.EXEExcel ������i@0�FC:\Windows\system32\stdole2.tlbstdole ����� QPL-[�DR?C:\Program obs\Common obs\Microsoft Shared\OFFICE14\MSO.DLLOffice ������q`lu*)A��'�-\4a��  ��*\G{000204EF-0000-0000-C000-000000000046}#4.1#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA7\VBE7.DLL#Visual Basic For Applications*\G{00020813-0000-0000-C000-000000000046}#1.7#0#C:\Program Files\Microsoft Office\Office14\EXCEL.EXE#Microsoft Excel 14.0 Object Library�*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\system32\stdole2.tlb#OLE Automation(*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.5#0#C:\Program Files\Common Files\Microsoft Shared\OFFICE14\MSO.DLL#Microsoft Office 12.0 Object Library*\G{2A75196C-D9EB-4129-B803-931327F72D5C}#2.8#0#C:\Program Files\Common Files\System\ado\msado28.tlb#Microsoft ActiveX Data Objects 2.8 Library  ���������Ps������������������������������������������������� ThisWorkbook17555ee98b��!ThisWorkbook��P%��Sheet151G555ee9ae��%Sheet15��@�Module31@555ee98e��&Module3��y�0\��Module41A555ee98e��@Module4��.@H��Module11B555ee98e��JModule1��~ `���Module21C555ee98e���Module2�� xx8��Module51D555ee98e���Module5���z��Module61E555ee98e���Module6��ب�2��Module71F555ee98e���Module7���2�����������������������������������������������������������������������������������x��������������������H����������������������������������������������������������������������������������������0�������������������������������������������������������������������������������������������������`����������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������UjyAm�,B����nc(Oɺ3Q����pNj �F5�3PqN�rdc?�D�F Worksheet @R__SRP_1 ������PROJECTwm��������������PROJECT!������SummaryInformation(����$������rU~} ����������������      � pThisWorkbookThisWorkbookSheet15Sheet15Module1Module1Module2Module2Module3Module3Module4Module4Module5Module5Module6Module6Module7Module7ID="{60F01744-1F1C-4B59-84F7-376A87A63815}" Document=ThisWorkbook/&H00000000 Document=Sheet15/&H00000000 Module=Module1 Module=Module2 Module=Module3 Module=Module4 Module=Module5 Module=Module6 Module=Module7 Name="VBAProject" HelpContextID="0" VersionCompatible32="393222000" CMG="ABA903FAAAFEAAFEAAFEAAFE" DPB="5654FE5702A9ACAAACAAAC" GC="0103A9AAAAAAAA55" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisWorkbook=0, 0, 0, 0, C Sheet15=0, 0, 0, 0, C Module1=110, 145, 1436, 800, Module2=132, 174, 1458, 829, Module3=154, 203, 1480, 858, Module4=176, 232, 1502, 887, Module5=44, 58, 1466, 721, Module6=66, 87, 1488, 750, Module7=88, 116, 1510, 779, �Oh+'0�HPd� � � ��� exkimu00Department of TreasuryMicrosoft Excel@�5!@tkQ@Eߎ��՜.+,0� PDocumentSummaryInformation8�������������CompObj�������������k������������������������X| ���� � ��Internal Revenue Service Line amounts by sectors  Worksheets� ���� �FMicrosoft Excel 2003 WorksheetBiff8Excel.Sheet.8�9q