1142: IF OZF_DEBUG_LOW_ON THEN
1143: OZF_UTILITY_PVT.write_conc_log;
1144: END IF;
1145:
1146: l_emp_csr := DBMS_SQL.open_cursor;
1147: FND_DSQL.set_cursor(l_emp_csr);
1148: DBMS_SQL.parse(l_emp_csr, l_stmt, DBMS_SQL.native);
1149: DBMS_SQL.define_column(l_emp_csr, 1, l_offer_pay_method, 30);
1150: DBMS_SQL.define_column(l_emp_csr, 2, l_amount);
1144: END IF;
1145:
1146: l_emp_csr := DBMS_SQL.open_cursor;
1147: FND_DSQL.set_cursor(l_emp_csr);
1148: DBMS_SQL.parse(l_emp_csr, l_stmt, DBMS_SQL.native);
1149: DBMS_SQL.define_column(l_emp_csr, 1, l_offer_pay_method, 30);
1150: DBMS_SQL.define_column(l_emp_csr, 2, l_amount);
1151: DBMS_SQL.define_column(l_emp_csr, 3, l_utiz_currency, 15 );
1152:
1145:
1146: l_emp_csr := DBMS_SQL.open_cursor;
1147: FND_DSQL.set_cursor(l_emp_csr);
1148: DBMS_SQL.parse(l_emp_csr, l_stmt, DBMS_SQL.native);
1149: DBMS_SQL.define_column(l_emp_csr, 1, l_offer_pay_method, 30);
1150: DBMS_SQL.define_column(l_emp_csr, 2, l_amount);
1151: DBMS_SQL.define_column(l_emp_csr, 3, l_utiz_currency, 15 );
1152:
1153:
1146: l_emp_csr := DBMS_SQL.open_cursor;
1147: FND_DSQL.set_cursor(l_emp_csr);
1148: DBMS_SQL.parse(l_emp_csr, l_stmt, DBMS_SQL.native);
1149: DBMS_SQL.define_column(l_emp_csr, 1, l_offer_pay_method, 30);
1150: DBMS_SQL.define_column(l_emp_csr, 2, l_amount);
1151: DBMS_SQL.define_column(l_emp_csr, 3, l_utiz_currency, 15 );
1152:
1153:
1154: --R12.1 enhancement add l_bill_to_site_use_id and fetch its value
1147: FND_DSQL.set_cursor(l_emp_csr);
1148: DBMS_SQL.parse(l_emp_csr, l_stmt, DBMS_SQL.native);
1149: DBMS_SQL.define_column(l_emp_csr, 1, l_offer_pay_method, 30);
1150: DBMS_SQL.define_column(l_emp_csr, 2, l_amount);
1151: DBMS_SQL.define_column(l_emp_csr, 3, l_utiz_currency, 15 );
1152:
1153:
1154: --R12.1 enhancement add l_bill_to_site_use_id and fetch its value
1155: -- This will be used to group the customer earnings.
1152:
1153:
1154: --R12.1 enhancement add l_bill_to_site_use_id and fetch its value
1155: -- This will be used to group the customer earnings.
1156: DBMS_SQL.define_column(l_emp_csr, 4, l_bill_to_site_use_id );
1157:
1158:
1159: IF p_customer_id IS NULL THEN
1160: DBMS_SQL.define_column(l_emp_csr, 5, l_cust_account_id);
1156: DBMS_SQL.define_column(l_emp_csr, 4, l_bill_to_site_use_id );
1157:
1158:
1159: IF p_customer_id IS NULL THEN
1160: DBMS_SQL.define_column(l_emp_csr, 5, l_cust_account_id);
1161: END IF;
1162:
1163: IF NVL(p_group_by_offer,'N') = 'Y' AND p_customer_id IS NULL THEN
1164: DBMS_SQL.define_column(l_emp_csr, 6, l_plan_id);
1160: DBMS_SQL.define_column(l_emp_csr, 5, l_cust_account_id);
1161: END IF;
1162:
1163: IF NVL(p_group_by_offer,'N') = 'Y' AND p_customer_id IS NULL THEN
1164: DBMS_SQL.define_column(l_emp_csr, 6, l_plan_id);
1165: ELSIF NVL(p_group_by_offer,'N') = 'Y' AND p_customer_id IS NOT NULL THEN
1166: DBMS_SQL.define_column(l_emp_csr, 5, l_plan_id);
1167: END IF;
1168:
1162:
1163: IF NVL(p_group_by_offer,'N') = 'Y' AND p_customer_id IS NULL THEN
1164: DBMS_SQL.define_column(l_emp_csr, 6, l_plan_id);
1165: ELSIF NVL(p_group_by_offer,'N') = 'Y' AND p_customer_id IS NOT NULL THEN
1166: DBMS_SQL.define_column(l_emp_csr, 5, l_plan_id);
1167: END IF;
1168:
1169: FND_DSQL.do_binds;
1170:
1167: END IF;
1168:
1169: FND_DSQL.do_binds;
1170:
1171: l_ignore := DBMS_SQL.execute(l_emp_csr);
1172: LOOP
1173: FND_MSG_PUB.initialize;
1174:
1175: IF DBMS_SQL.fetch_rows(l_emp_csr) > 0 THEN
1171: l_ignore := DBMS_SQL.execute(l_emp_csr);
1172: LOOP
1173: FND_MSG_PUB.initialize;
1174:
1175: IF DBMS_SQL.fetch_rows(l_emp_csr) > 0 THEN
1176: DBMS_SQL.column_value(l_emp_csr, 1, l_offer_pay_method);
1177: DBMS_SQL.column_value(l_emp_csr, 2, l_amount);
1178: DBMS_SQL.column_value(l_emp_csr, 3, l_utiz_currency);
1179: DBMS_SQL.column_value(l_emp_csr, 4, l_bill_to_site_use_id); --R12.1 enhancement nirprasa
1172: LOOP
1173: FND_MSG_PUB.initialize;
1174:
1175: IF DBMS_SQL.fetch_rows(l_emp_csr) > 0 THEN
1176: DBMS_SQL.column_value(l_emp_csr, 1, l_offer_pay_method);
1177: DBMS_SQL.column_value(l_emp_csr, 2, l_amount);
1178: DBMS_SQL.column_value(l_emp_csr, 3, l_utiz_currency);
1179: DBMS_SQL.column_value(l_emp_csr, 4, l_bill_to_site_use_id); --R12.1 enhancement nirprasa
1180:
1173: FND_MSG_PUB.initialize;
1174:
1175: IF DBMS_SQL.fetch_rows(l_emp_csr) > 0 THEN
1176: DBMS_SQL.column_value(l_emp_csr, 1, l_offer_pay_method);
1177: DBMS_SQL.column_value(l_emp_csr, 2, l_amount);
1178: DBMS_SQL.column_value(l_emp_csr, 3, l_utiz_currency);
1179: DBMS_SQL.column_value(l_emp_csr, 4, l_bill_to_site_use_id); --R12.1 enhancement nirprasa
1180:
1181: IF p_customer_id IS NULL THEN
1174:
1175: IF DBMS_SQL.fetch_rows(l_emp_csr) > 0 THEN
1176: DBMS_SQL.column_value(l_emp_csr, 1, l_offer_pay_method);
1177: DBMS_SQL.column_value(l_emp_csr, 2, l_amount);
1178: DBMS_SQL.column_value(l_emp_csr, 3, l_utiz_currency);
1179: DBMS_SQL.column_value(l_emp_csr, 4, l_bill_to_site_use_id); --R12.1 enhancement nirprasa
1180:
1181: IF p_customer_id IS NULL THEN
1182: DBMS_SQL.column_value(l_emp_csr, 5, l_cust_account_id);
1175: IF DBMS_SQL.fetch_rows(l_emp_csr) > 0 THEN
1176: DBMS_SQL.column_value(l_emp_csr, 1, l_offer_pay_method);
1177: DBMS_SQL.column_value(l_emp_csr, 2, l_amount);
1178: DBMS_SQL.column_value(l_emp_csr, 3, l_utiz_currency);
1179: DBMS_SQL.column_value(l_emp_csr, 4, l_bill_to_site_use_id); --R12.1 enhancement nirprasa
1180:
1181: IF p_customer_id IS NULL THEN
1182: DBMS_SQL.column_value(l_emp_csr, 5, l_cust_account_id);
1183: ELSE
1178: DBMS_SQL.column_value(l_emp_csr, 3, l_utiz_currency);
1179: DBMS_SQL.column_value(l_emp_csr, 4, l_bill_to_site_use_id); --R12.1 enhancement nirprasa
1180:
1181: IF p_customer_id IS NULL THEN
1182: DBMS_SQL.column_value(l_emp_csr, 5, l_cust_account_id);
1183: ELSE
1184: l_cust_account_id := p_customer_id;
1185: END IF;
1186:
1184: l_cust_account_id := p_customer_id;
1185: END IF;
1186:
1187: IF NVL(p_group_by_offer,'N') = 'Y' AND p_customer_id IS NULL THEN
1188: DBMS_SQL.column_value(l_emp_csr, 6, l_plan_id);
1189: l_funds_util_flt.activity_id := l_plan_id;
1190: ELSIF NVL(p_group_by_offer,'N') = 'Y' AND p_customer_id IS NOT NULL THEN
1191: DBMS_SQL.column_value(l_emp_csr, 5, l_plan_id);
1192: l_funds_util_flt.activity_id := l_plan_id;
1187: IF NVL(p_group_by_offer,'N') = 'Y' AND p_customer_id IS NULL THEN
1188: DBMS_SQL.column_value(l_emp_csr, 6, l_plan_id);
1189: l_funds_util_flt.activity_id := l_plan_id;
1190: ELSIF NVL(p_group_by_offer,'N') = 'Y' AND p_customer_id IS NOT NULL THEN
1191: DBMS_SQL.column_value(l_emp_csr, 5, l_plan_id);
1192: l_funds_util_flt.activity_id := l_plan_id;
1193: ELSE
1194: l_funds_util_flt.activity_id := NULL;
1195: END IF;
1411: EXIT;
1412: END IF;
1413: END LOOP;
1414: --CLOSE l_emp_csr;
1415: DBMS_SQL.close_cursor(l_emp_csr);
1416:
1417: -- update the trade_profiles together
1418: FORALL i IN 1..l_trd_prof_tbl.COUNT
1419: UPDATE OZF_CUST_TRD_PRFLS_ALL