DBA Data[Home] [Help]

APPS.OZF_PARTY_MKT_SEG_LOADER_PVT dependencies on OZF_UTILITY_PVT

Line 33: Ozf_Utility_pvt.write_conc_log (l_text);

29: IF G_DEBUG_LEVEL THEN
30: IF length(l_text) > 32767 THEN
31: l_text := substr(l_text,1,32767);
32: END IF;
33: Ozf_Utility_pvt.write_conc_log (l_text);
34: -- Ozf_Utility_pvt.write_conc_log (p_text);
35: END IF;
36: END write_conc_log;
37: /*****************************************************************************

Line 34: -- Ozf_Utility_pvt.write_conc_log (p_text);

30: IF length(l_text) > 32767 THEN
31: l_text := substr(l_text,1,32767);
32: END IF;
33: Ozf_Utility_pvt.write_conc_log (l_text);
34: -- Ozf_Utility_pvt.write_conc_log (p_text);
35: END IF;
36: END write_conc_log;
37: /*****************************************************************************
38: * NAME

Line 692: Ozf_Utility_pvt.write_conc_log(l_full_name || ': START for territory ' || p_terr_id);

688: --
689: p_retcode := 0;
690: FND_MSG_PUB.initialize;
691: --
692: Ozf_Utility_pvt.write_conc_log(l_full_name || ': START for territory ' || p_terr_id);
693: --
694: l_terr_id := p_terr_id;
695:
696: --R12: mkothari

Line 1276: Ozf_Utility_pvt.write_conc_log('############### Timestamp before for loop: '||to_char(sysdate,'DD-MM-YYYY HH24:MI:SS'));

1272: DBMS_SQL.parse(l_store_csr, l_store_insert_sql, DBMS_SQL.native);
1273: DBMS_SQL.BIND_VARIABLE (l_store_csr, ':terr_id', p_terr_id);
1274:
1275: select length(l_store_final_sql) into len from dual;
1276: Ozf_Utility_pvt.write_conc_log('############### Timestamp before for loop: '||to_char(sysdate,'DD-MM-YYYY HH24:MI:SS'));
1277: for n in 1..len
1278: LOOP
1279: --select SUBSTR(SUBSTR(l_store_final_sql,instr(l_store_final_sql,':',1,n),11),10,10 )into lvar from dual;
1280:

Line 1282: Ozf_Utility_pvt.write_conc_log('############### Counter value inside for loop is: '||n);

1278: LOOP
1279: --select SUBSTR(SUBSTR(l_store_final_sql,instr(l_store_final_sql,':',1,n),11),10,10 )into lvar from dual;
1280:
1281: -- IF lvar between '1' and '9999' then
1282: Ozf_Utility_pvt.write_conc_log('############### Counter value inside for loop is: '||n);
1283: /*
1284: amitamku: fix bug 13495579 - PERFORMANCE ISSUE : GENERATE PARTY LIST FOR MARKET QUALIFIERS
1285: Added exit block so that once it finds the last ":" in the string it will come out of the for loop
1286: */

Line 1315: Ozf_Utility_pvt.write_conc_log('############### Timestamp after for loop: '||to_char(sysdate,'DD-MM-YYYY HH24:MI:SS'));

1311: END IF;
1312: END IF;
1313: END IF;
1314: END LOOP;
1315: Ozf_Utility_pvt.write_conc_log('############### Timestamp after for loop: '||to_char(sysdate,'DD-MM-YYYY HH24:MI:SS'));
1316: DELETE FROM OZF_TP_TERRUSG_MAP
1317: WHERE market_qualifier_type = 'TERRITORY'
1318: AND market_qualifier_reference = p_terr_id
1319: AND user_added = 'N';

Line 1465: Ozf_Utility_pvt.write_conc_log(l_full_name || ': Rows inserted in ams denorm table: '||l_index);

1461: l_index := dbms_sql.execute(l_denorm_csr);
1462: write_conc_log('D: After executing ');
1463: dbms_sql.close_cursor(l_denorm_csr);
1464:
1465: Ozf_Utility_pvt.write_conc_log(l_full_name || ': Rows inserted in ams denorm table: '||l_index);
1466:
1467: --TRAY
1468: --Needs to be done here so that the copied row is not lost
1469: if l_store_index>0 then

Line 1599: Ozf_Utility_pvt.write_conc_log(l_full_name || ': Success for territory ' || p_terr_id);

1595: AND site_use.cust_acct_site_id = acct_site.cust_acct_site_id
1596: AND acct_site.cust_account_id = acct.cust_account_id)
1597: WHERE a.market_qualifier_type = 'TERRITORY'
1598: AND a.market_qualifier_reference = p_terr_id;
1599: Ozf_Utility_pvt.write_conc_log(l_full_name || ': Success for territory ' || p_terr_id);
1600:
1601: ---R12 ------
1602: Ozf_Utility_pvt.write_conc_log(l_full_name || ': BEGIN - Adjusting Account Targets for Territory = '|| p_terr_id || ';');
1603: OZF_ALLOCATION_ENGINE_PVT.adjust_account_targets(p_retcode, p_errbuf, p_terr_id);

Line 1602: Ozf_Utility_pvt.write_conc_log(l_full_name || ': BEGIN - Adjusting Account Targets for Territory = '|| p_terr_id || ';');

1598: AND a.market_qualifier_reference = p_terr_id;
1599: Ozf_Utility_pvt.write_conc_log(l_full_name || ': Success for territory ' || p_terr_id);
1600:
1601: ---R12 ------
1602: Ozf_Utility_pvt.write_conc_log(l_full_name || ': BEGIN - Adjusting Account Targets for Territory = '|| p_terr_id || ';');
1603: OZF_ALLOCATION_ENGINE_PVT.adjust_account_targets(p_retcode, p_errbuf, p_terr_id);
1604: Ozf_Utility_pvt.write_conc_log(l_full_name || ': END - Adjusting Account Targets for Territory = ' || p_terr_id || ';');
1605:
1606:

Line 1604: Ozf_Utility_pvt.write_conc_log(l_full_name || ': END - Adjusting Account Targets for Territory = ' || p_terr_id || ';');

1600:
1601: ---R12 ------
1602: Ozf_Utility_pvt.write_conc_log(l_full_name || ': BEGIN - Adjusting Account Targets for Territory = '|| p_terr_id || ';');
1603: OZF_ALLOCATION_ENGINE_PVT.adjust_account_targets(p_retcode, p_errbuf, p_terr_id);
1604: Ozf_Utility_pvt.write_conc_log(l_full_name || ': END - Adjusting Account Targets for Territory = ' || p_terr_id || ';');
1605:
1606:
1607: /* recursively generate party list for the territory's children
1608: passing in parent's qualifier directly so don't need to calculate again

Line 1637: Ozf_Utility_pvt.write_conc_log('Exception in get_party_territory ' || sqlerrm);

1633: END LOOP;
1634: EXCEPTION
1635: WHEN OTHERS THEN
1636: /* Let the master procdure handle exception */
1637: Ozf_Utility_pvt.write_conc_log('Exception in get_party_territory ' || sqlerrm);
1638: p_retcode := 1;
1639: l_err_msg := 'Exception while generating parties for territory id=' ||
1640: p_terr_id || ' - ' || sqlerrm;
1641: p_errbuf := l_err_msg;

Line 1692: Ozf_Utility_pvt.write_conc_log(l_full_name || ': Start buyinggroup_id=' || p_bg_id);

1688: CURSOR c_party_mkt_seg_seq IS -- generate an ID
1689: SELECT AMS_PARTY_MARKET_SEGMENTS_S.NEXTVAL
1690: FROM DUAL;
1691: BEGIN
1692: Ozf_Utility_pvt.write_conc_log(l_full_name || ': Start buyinggroup_id=' || p_bg_id);
1693: p_errbuf := null;
1694: p_retcode := 0;
1695: -- delete all buying group records for this subject_id
1696:

Line 1752: Ozf_Utility_pvt.write_conc_log(l_full_name || ': END buyinggroup_id=' || p_bg_id);

1748: -- dbms_output.put_line('buy(' || p_bg_id || '): object count=' || l_obj_list.count);
1749: IF l_obj_list.count = 0 THEN
1750: -- return. Leaf node.
1751: p_obj_list := l_obj_list;
1752: Ozf_Utility_pvt.write_conc_log(l_full_name || ': END buyinggroup_id=' || p_bg_id);
1753: return;
1754: END IF;
1755: FOR I IN NVL(l_obj_list.FIRST, 1) .. NVL(l_obj_list.LAST, 0) LOOP
1756: OPEN c_party_mkt_seg_seq;

Line 1868: Ozf_Utility_pvt.write_conc_log(l_full_name || ': END buyinggroup_id=' || p_bg_id);

1864: , l_all_obj_list(I)
1865: );
1866: END IF;
1867: p_obj_list := l_all_obj_list;
1868: Ozf_Utility_pvt.write_conc_log(l_full_name || ': END buyinggroup_id=' || p_bg_id);
1869: EXCEPTION
1870: WHEN OTHERS THEN
1871: /* Let the master procdure handle exception */
1872: p_retcode := 1;

Line 2005: Ozf_Utility_pvt.write_conc_log(l_full_name || ': Start ');

2001: -- R12
2002: CURSOR client_info_csr(l_terr_id NUMBER) IS select org_id from jtf_terr_all where terr_id = l_terr_id;
2003:
2004: BEGIN
2005: Ozf_Utility_pvt.write_conc_log(l_full_name || ': Start ');
2006: SAVEPOINT LOAD_PARTY_MARKET_QUALIFIER;
2007: -- mo_global.init('JTF');
2008: -- mo_global.set_policy_context('M',null);
2009: errbuf := null;

Line 2098: Ozf_Utility_pvt.write_conc_log(l_full_name||': Org for territory ' ||p_terr_id||' is => '||l_org_id);

2094: -- R12 - Added
2095: OPEN client_info_csr(p_terr_id);
2096: FETCH client_info_csr into l_org_id;
2097: CLOSE client_info_csr;
2098: Ozf_Utility_pvt.write_conc_log(l_full_name||': Org for territory ' ||p_terr_id||' is => '||l_org_id);
2099: mo_global.init('JTF');
2100: mo_global.set_policy_context('S',l_org_id);
2101: generate_party_for_territory(errbuf, retcode, p_terr_id, 'Y', l_bind_vars);
2102:

Line 2105: ---Ozf_Utility_pvt.write_conc_log(l_full_name || ': Adjusting Account Targets for Territory = '

2101: generate_party_for_territory(errbuf, retcode, p_terr_id, 'Y', l_bind_vars);
2102:
2103: -- mkothari - sep-09-2005 --R12
2104: -- adjust the account targets if any accounts have moved
2105: ---Ozf_Utility_pvt.write_conc_log(l_full_name || ': Adjusting Account Targets for Territory = '
2106: --- || p_terr_id || ' ... ');
2107: --OZF_ALLOCATION_ENGINE_PVT.adjust_account_targets(retcode, errbuf, p_terr_id);
2108:
2109: ELSE

Line 2162: Ozf_Utility_pvt.write_conc_log(l_full_name||': Org for territory ' ||l_terr_id||' is => '||l_org_id);

2158: -- R12 - Added
2159: OPEN client_info_csr(l_terr_id);
2160: FETCH client_info_csr into l_org_id;
2161: CLOSE client_info_csr;
2162: Ozf_Utility_pvt.write_conc_log(l_full_name||': Org for territory ' ||l_terr_id||' is => '||l_org_id);
2163: mo_global.init('JTF');
2164: mo_global.set_policy_context('S',l_org_id);
2165: generate_party_for_territory(errbuf, retcode, l_terr_id, 'N', l_bind_vars);
2166: END LOOP;

Line 2172: ---Ozf_Utility_pvt.write_conc_log(l_full_name || ': Adjusting Account Targets ... ');

2168:
2169:
2170: -- mkothari - sep-09-2005 --R12
2171: -- adjust the account targets if any accounts have moved
2172: ---Ozf_Utility_pvt.write_conc_log(l_full_name || ': Adjusting Account Targets ... ');
2173: --OZF_ALLOCATION_ENGINE_PVT.adjust_account_targets(retcode, errbuf, NULL);
2174:
2175: END IF;
2176: Ozf_Utility_pvt.write_conc_log;

Line 2176: Ozf_Utility_pvt.write_conc_log;

2172: ---Ozf_Utility_pvt.write_conc_log(l_full_name || ': Adjusting Account Targets ... ');
2173: --OZF_ALLOCATION_ENGINE_PVT.adjust_account_targets(retcode, errbuf, NULL);
2174:
2175: END IF;
2176: Ozf_Utility_pvt.write_conc_log;
2177: COMMIT;
2178: EXCEPTION
2179: WHEN OTHERS THEN
2180: ROLLBACK TO LOAD_PARTY_MARKET_QUALIFIER;

Line 2182: Ozf_Utility_pvt.write_conc_log(l_full_name || ': Exception ' || sqlerrm);

2178: EXCEPTION
2179: WHEN OTHERS THEN
2180: ROLLBACK TO LOAD_PARTY_MARKET_QUALIFIER;
2181: retcode := 1;
2182: Ozf_Utility_pvt.write_conc_log(l_full_name || ': Exception ' || sqlerrm);
2183: Ozf_Utility_pvt.write_conc_log;
2184: END LOAD_PARTY_MARKET_QUALIFIER;
2185: END OZF_Party_Mkt_Seg_Loader_PVT;

Line 2183: Ozf_Utility_pvt.write_conc_log;

2179: WHEN OTHERS THEN
2180: ROLLBACK TO LOAD_PARTY_MARKET_QUALIFIER;
2181: retcode := 1;
2182: Ozf_Utility_pvt.write_conc_log(l_full_name || ': Exception ' || sqlerrm);
2183: Ozf_Utility_pvt.write_conc_log;
2184: END LOAD_PARTY_MARKET_QUALIFIER;
2185: END OZF_Party_Mkt_Seg_Loader_PVT;