995: END CREATE_FORMULA;
996:
997: /****************************************************************************************
998: * Procedure: CREATE_RULES *
999: * Based on the input parameters, row(s) would be created in to ZX_RULES_B, *
1000: * ZX_RULES_TL and ZX_PROCESS_RESULTS. *
1001: *****************************************************************************************/
1002:
1003: PROCEDURE CREATE_RULES
1000: * ZX_RULES_TL and ZX_PROCESS_RESULTS. *
1001: *****************************************************************************************/
1002:
1003: PROCEDURE CREATE_RULES
1004: ( --parameters rqrd for zx_rules_b
1005: p_tax IN zx_rates_b.tax%TYPE ,
1006: p_tax_regime_code IN zx_rates_b.tax_regime_code%TYPE ,
1007: p_effective_from IN ar_vat_tax_all.start_date%TYPE ,
1008: p_effective_to IN ar_vat_tax_all.end_date%TYPE ,
1014: p_tax_condition_id IN ar_tax_group_codes_all.tax_condition_id%TYPE,
1015: p_tax_exception_id IN ar_tax_group_codes_all.tax_exception_id%TYPE,
1016: x_return_status OUT NOCOPY VARCHAR2 ) IS
1017:
1018: --l_tax_rule_id zx_rules_b.tax_rule_id%TYPE;
1019: l_tax_rule_code zx_rules_b.tax_rule_code%TYPE;
1020:
1021: BEGIN
1022:
1015: p_tax_exception_id IN ar_tax_group_codes_all.tax_exception_id%TYPE,
1016: x_return_status OUT NOCOPY VARCHAR2 ) IS
1017:
1018: --l_tax_rule_id zx_rules_b.tax_rule_id%TYPE;
1019: l_tax_rule_code zx_rules_b.tax_rule_code%TYPE;
1020:
1021: BEGIN
1022:
1023: arp_util_tax.debug('in create_rules() for : '||p_tax);
1026:
1027:
1028: SELECT DECODE(SIGN(LENGTHB('O_TB_' || p_tax) - 30),
1029: 1,
1030: SUBSTRB('O_TB_' || p_tax,1,24)||ZX_MIGRATE_UTIL.GET_NEXT_SEQID('ZX_RULES_B_S'),
1031: 'O_TB_' || p_tax)
1032: INTO l_tax_rule_code
1033: FROM DUAL;
1034:
1033: FROM DUAL;
1034:
1035: arp_util_tax.debug('l_tax_rule_code'||l_tax_rule_code);
1036:
1037: -- Inserting values in table zx_rules_b
1038:
1039: BEGIN
1040: --bug# 4610260 : Changed the ZX_RULES_B to ZX_RULES_B_TMP
1041: INSERT INTO zx_rules_b_tmp
1036:
1037: -- Inserting values in table zx_rules_b
1038:
1039: BEGIN
1040: --bug# 4610260 : Changed the ZX_RULES_B to ZX_RULES_B_TMP
1041: INSERT INTO zx_rules_b_tmp
1042: (tax_rule_code ,
1043: tax ,
1044: tax_regime_code ,
1037: -- Inserting values in table zx_rules_b
1038:
1039: BEGIN
1040: --bug# 4610260 : Changed the ZX_RULES_B to ZX_RULES_B_TMP
1041: INSERT INTO zx_rules_b_tmp
1042: (tax_rule_code ,
1043: tax ,
1044: tax_regime_code ,
1045: service_type_code ,
1079: p_enabled_flag ,
1080: 'MIGRATED' ,
1081: 'STCC' ,
1082: p_content_owner_id ,
1083: zx_rules_b_s.NEXTVAL ,
1084: fnd_global.user_id ,
1085: SYSDATE ,
1086: fnd_global.user_id ,
1087: SYSDATE ,
1095: WHERE
1096: --Re-runnability
1097:
1098: NOT EXISTS (SELECT 1
1099: FROM zx_rules_B
1100: WHERE substrb(tax_rule_code,1,24) = (SELECT DECODE(SIGN(LENGTHB('O_TB_' || p_tax) - 30),
1101: 1,
1102: SUBSTRB('O_TB_' || p_tax,1,24),
1103: SUBSTRB('O_TB_' || p_tax,1,24))
1144: SYSDATE ,
1145: fnd_global.conc_login_id,
1146: l.language_code ,
1147: userenv('LANG')
1148: FROM fnd_languages l, zx_rules_b rules
1149: WHERE l.installed_flag IN ('I', 'B')
1150: AND rules.record_type_code = 'MIGRATED'
1151: AND rules.tax_rule_code = l_tax_rule_code
1152: AND NOT EXISTS (SELECT NULL
1216: NULL ,
1217: NULL ,
1218: NULL ,
1219: NULL ,
1220: p_enabled_flag , -- also used in insert of zx_rules_b
1221: 'N' ,
1222: 'N' ,
1223: 'MIGRATED' ,
1224: NULL ,
1222: 'N' ,
1223: 'MIGRATED' ,
1224: NULL ,
1225: zx_process_results_s.NEXTVAL ,
1226: p_content_owner_id , -- also used in insert of zx_rules_b also
1227: p_condition_group_id ,
1228: zx_rules_b_s.CURRVAL , -- zx_rules_b.tax_rule_id(based on rule created above)
1229: p_tax_condition_id , --condition set id
1230: p_tax_exception_id , --exception set id
1224: NULL ,
1225: zx_process_results_s.NEXTVAL ,
1226: p_content_owner_id , -- also used in insert of zx_rules_b also
1227: p_condition_group_id ,
1228: zx_rules_b_s.CURRVAL , -- zx_rules_b.tax_rule_id(based on rule created above)
1229: p_tax_condition_id , --condition set id
1230: p_tax_exception_id , --exception set id
1231: fnd_global.user_id ,
1232: SYSDATE ,
1242: FROM dual
1243: WHERE
1244: --Re-runnability
1245: NOT EXISTS (SELECT 1
1246: FROM zx_process_results, zx_rules_b
1247: WHERE zx_process_results.tax_rule_id = zx_rules_b.tax_rule_id
1248: AND zx_process_results.content_owner_id = p_content_owner_id
1249: AND zx_process_results.condition_group_code = p_condition_grp_cd
1250: AND zx_process_results.alphanumeric_result = p_alphanumeric_result
1243: WHERE
1244: --Re-runnability
1245: NOT EXISTS (SELECT 1
1246: FROM zx_process_results, zx_rules_b
1247: WHERE zx_process_results.tax_rule_id = zx_rules_b.tax_rule_id
1248: AND zx_process_results.content_owner_id = p_content_owner_id
1249: AND zx_process_results.condition_group_code = p_condition_grp_cd
1250: AND zx_process_results.alphanumeric_result = p_alphanumeric_result
1251: );