[Home] [Help]
1187: | INSERT_ALLOWED If False and "E" is called but not |
1188: | valid exemption is on file; this routine |
1189: | will return an error. |
1190: | RETURNS |
1191: | TAX_EXEMPTION_ID Foreign Key to "RA_TAX_EXEMPTIONS" |
1192: | If NULL, this transaction is NOT exempt |
1193: | CERTIFICATE Certificate Number |
1194: | REASON Reason Code for exemption |
1195: | INSERTED_FLAG TRUE if this call forced an insert |
1257: -- OPERATION OPTIONS OBJECT_NAME
1258: -- -------------------------------------- --------------- ------------------
1259: -- FILTER
1260: -- TABLE ACCESS FULL DUAL
1261: -- INDEX RANGE SCAN RA_TAX_EXEMPTIONS_N1
1262: --
1263: -- The Where Exists clause ensures that the database stops the search on
1264: -- the index RAX_TAX_EXMEPTIONS_N1 for the first row found.
1265: --
1265: --
1266:
1267: cursor chk_customer_exemption(customer in number) is
1268: select 'x' from dual where exists
1269: ( select 'x' from ra_tax_exemptions where
1270: customer_id = customer );
1271:
1272: --
1273: -- CURSOR: sel_customer_exemption
1308: hz_cust_site_uses s,
1309: hz_cust_acct_sites a,
1310: hz_party_sites p,
1311: hz_loc_assignments la,
1312: ra_tax_exemptions x,
1313: ar_location_combinations c
1314: WHERE la.loc_id = c.location_id(+)
1315: and a.party_site_id = p.party_site_id
1316: and p.location_id = la.location_id
1360: cursor sel_item_exemption( item in number, taxcode in varchar2, trxdate in date ) is
1361: SELECT percent_exempt, tax_exemption_id,
1362: reason_code tax_exempt_reason_code,
1363: rtrim(ltrim(customer_exemption_number)) tax_exempt_number
1364: FROM ra_tax_exemptions
1365: WHERE inventory_item_id = item
1366: AND tax_code = taxcode
1367: AND trxdate between start_date and nvl(end_date, trx_date)
1368: AND exemption_type = 'ITEM'
1368: AND exemption_type = 'ITEM'
1369: AND status = 'PRIMARY'; /* Bugfix 520228 */
1370:
1371: CURSOR sel_tax_exemptions_s is
1372: SELECT ra_tax_exemptions_s.nextval from dual;
1373:
1374: CURSOR sel_location_ids( site_id in number ) is
1375: select c.location_id_segment_1,
1376: c.location_id_segment_2,
1432:
1433: --
1434: -- Assign null values to each candidate location segment id
1435: -- so that the region descriptive flexfield will be
1436: -- populated correctly in the ra_tax_exemptions table
1437: --
1438: for i in 1 .. 10
1439: loop
1440: l_location_id_segment(i) := NULL;
1560: l_tax_exempt_reason_code is not null then
1561:
1562: /*********************************************************************/
1563: /* Using: EXEMPT_LEVEL qualifier, find each location_segment_id */
1564: /* that must be populated in ra_tax_exemptions.location_id_segment_n */
1565: /*********************************************************************/
1566:
1567: IF PG_DEBUG = 'Y' THEN
1568: arp_util_tax.debug( 'I: Location Qualifiers');
1637: FETCH sel_tax_exemptions_s into l_exemption_id;
1638: CLOSE sel_tax_exemptions_s;
1639:
1640:
1641: insert into ra_tax_exemptions(
1642: TAX_EXEMPTION_ID,
1643: CREATED_BY,
1644: CREATION_DATE,
1645: EXEMPTION_TYPE,
1707: l_exemption_type := 'CUSTOMER';
1708: l_inserted := TRUE;
1709:
1710: IF PG_DEBUG = 'Y' THEN
1711: arp_util_tax.debug('Inserting into cache after inserting into ra_tax_exemptions');
1712: END IF;
1713:
1714: pg_max_index := pg_max_index + 1;
1715: tax_exempt_info_tbl(pg_max_index).percent_exempt := 100.00;
1856: inserted_flag := 'N';
1857: IF PG_DEBUG = 'Y' THEN
1858: arp_util_tax.debug( '<< FIND_TAX_EXEMPTION_ID( FOUND, ' || l_exemption_type || ', '
1859: || l_exemption_id || ', ' || l_percent_exempt ||' )' );
1860: arp_util_tax.debug( ' Updating In_Use_Flag in ra_tax_exemptions' ) ;
1861: END IF;
1862: -- Bug 3159438: To Update In_Use_Flag in Exemptions
1863: Update ra_tax_exemptions_all
1864: set in_use_flag = 'Y'
1859: || l_exemption_id || ', ' || l_percent_exempt ||' )' );
1860: arp_util_tax.debug( ' Updating In_Use_Flag in ra_tax_exemptions' ) ;
1861: END IF;
1862: -- Bug 3159438: To Update In_Use_Flag in Exemptions
1863: Update ra_tax_exemptions_all
1864: set in_use_flag = 'Y'
1865: where tax_exemption_id = l_exemption_id;
1866: end if;
1867: