[Home] [Help]
277: p_module IN VARCHAR2 DEFAULT 'OKC') IS
278: BEGIN
279:
280: fnd_file.put_line(fnd_file.log, g_pkg_filename ||':'||p_msg);
281: -- okc_debug.Log(p_msg,p_level,p_module);
282: -- dbms_output.put_line(substr(p_msg,1,240));
283:
284: END my_debug;
285:
703: l_ru_h_nb := 0;
704: l_ru_l_nb := 0;
705:
706: IF (l_debug = 'Y') THEN
707: okc_debug.Set_Indentation('get_k_rules');
708: END IF;
709:
710: my_debug('20: Entering get_k_rules', 2);
711:
874:
875: my_debug('420: Exiting get_k_rules', 2);
876:
877: IF (l_debug = 'Y') THEN
878: okc_debug.Reset_Indentation;
879: END IF;
880:
881: EXCEPTION
882: WHEN OTHERS THEN
889: p_token2_value => sqlerrm);
890: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
891: my_debug('460: Exiting get_k_rules', 2);
892: IF (l_debug = 'Y') THEN
893: okc_debug.Reset_Indentation;
894: END IF;
895:
896: IF c_rules%ISOPEN THEN
897: CLOSE c_rules;
940:
941: -- get contract header information
942:
943: IF (l_debug = 'Y') THEN
944: okc_debug.Set_Indentation('get_k_info');
945: END IF;
946:
947: my_debug('480: Entering get_k_info', 2);
948:
1166:
1167:
1168: my_debug('900: Exiting get_k_info', 2);
1169: IF (l_debug = 'Y') THEN
1170: okc_debug.Reset_Indentation;
1171: END IF;
1172:
1173: EXCEPTION
1174: WHEN contract_not_found THEN
1176: x_return_status := OKC_API.G_RET_STS_ERROR;
1177: okc_api.set_message(OKC_API.G_APP_NAME,'OKC_K2O_NOKHDR');
1178: my_debug('920: Exiting get_k_info', 2);
1179: IF (l_debug = 'Y') THEN
1180: okc_debug.Reset_Indentation;
1181: END IF;
1182:
1183: WHEN g_error THEN
1184:
1193: END IF;
1194:
1195: my_debug('940: Exiting get_k_info', 2);
1196: IF (l_debug = 'Y') THEN
1197: okc_debug.Reset_Indentation;
1198: END IF;
1199:
1200: WHEN g_unexp_error THEN
1201:
1210: END IF;
1211:
1212: my_debug('960: Exiting get_k_info', 2);
1213: IF (l_debug = 'Y') THEN
1214: okc_debug.Reset_Indentation;
1215: END IF;
1216:
1217: WHEN OTHERS THEN
1218: my_debug('980: error'||substr(sqlerrm,1,240));
1233: END IF;
1234:
1235: my_debug('1000: Exiting get_k_info', 2);
1236: IF (l_debug = 'Y') THEN
1237: okc_debug.Reset_Indentation;
1238: END IF;
1239:
1240: END get_k_info;
1241:
1274:
1275: BEGIN
1276:
1277: IF (l_debug = 'Y') THEN
1278: okc_debug.Set_Indentation('insert_po_hdr');
1279: END IF;
1280:
1281: my_debug('1020: Entering insert_po_hdr', 2);
1282:
1419:
1420: my_debug('1100: Exiting insert_po_hdr', 2);
1421:
1422: IF (l_debug = 'Y') THEN
1423: okc_debug.Reset_Indentation;
1424: END IF;
1425:
1426: EXCEPTION
1427: WHEN OTHERS THEN
1434: p_token2_value => sqlerrm);
1435: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1436: my_debug('1140: Exiting insert_po_hdr', 4);
1437: IF (l_debug = 'Y') THEN
1438: okc_debug.Reset_Indentation;
1439: END IF;
1440:
1441:
1442: END insert_po_hdr;
1480:
1481: BEGIN
1482:
1483: IF (l_debug = 'Y') THEN
1484: okc_debug.Set_Indentation('insert_po_lines');
1485: END IF;
1486:
1487: my_debug('1160: Entering insert_po_lines', 2);
1488:
1665:
1666: my_debug('1560: Exiting insert_po_lines', 2);
1667:
1668: IF (l_debug = 'Y') THEN
1669: okc_debug.Reset_Indentation;
1670: END IF;
1671:
1672: EXCEPTION
1673: WHEN OTHERS THEN
1680: p_token2_value => sqlerrm);
1681: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1682: my_debug('1600: Exiting insert_po_lines', 4);
1683: IF (l_debug = 'Y') THEN
1684: okc_debug.Reset_Indentation;
1685: END IF;
1686:
1687:
1688: END insert_po_lines;
1713:
1714: BEGIN
1715:
1716: IF (l_debug = 'Y') THEN
1717: okc_debug.Set_Indentation('insert_po_distributions');
1718: END IF;
1719:
1720: my_debug('1620: Entering insert_po_distributions', 2);
1721:
1785:
1786: my_debug('1700: Exiting insert_po_distributions', 2);
1787:
1788: IF (l_debug = 'Y') THEN
1789: okc_debug.Reset_Indentation;
1790: END IF;
1791:
1792: END IF;
1793:
1802: p_token2_value => sqlerrm);
1803: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1804: my_debug('1740: Exiting insert_po_distributions', 4);
1805: IF (l_debug = 'Y') THEN
1806: okc_debug.Reset_Indentation;
1807: END IF;
1808:
1809: END insert_po_distributions;
1810:
1999: x_msg_data,
2000: '_PROCESS');
2001: my_debug('1880: Exiting create_po_from_k', 4);
2002: IF (l_debug = 'Y') THEN
2003: okc_debug.Reset_Indentation;
2004: END IF;
2005:
2006: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2007: x_return_status := OKC_API.HANDLE_EXCEPTIONS
2012: x_msg_data,
2013: '_PROCESS');
2014: my_debug('1900: Exiting create_po_from_k', 4);
2015: IF (l_debug = 'Y') THEN
2016: okc_debug.Reset_Indentation;
2017: END IF;
2018:
2019: WHEN OTHERS THEN
2020: my_debug('1920: error'||substr(sqlerrm,1,240));
2026: p_token2_value => sqlerrm);
2027: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2028: my_debug('1940: Exiting create_po_from_k', 4);
2029: IF (l_debug = 'Y') THEN
2030: okc_debug.Reset_Indentation;
2031: END IF;
2032:
2033: END create_po_from_k;
2034:
2070:
2071: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2072:
2073: IF (l_debug = 'Y') THEN
2074: okc_debug.Set_Indentation('tieback_related_objs_from_po');
2075: END IF;
2076:
2077:
2078: -- Remove the relationship between the contract header and PO header
2223: l_sql_rowcount := SQL%ROWCOUNT;
2224: my_debug('2120: Related objects lines updated: ' || l_sql_rowcount, 4);
2225:
2226: IF (l_debug = 'Y') THEN
2227: okc_debug.Reset_Indentation;
2228: END IF;
2229:
2230: EXCEPTION
2231: WHEN g_unexp_error
2231: WHEN g_unexp_error
2232: THEN
2233: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2234: IF (l_debug = 'Y') THEN
2235: okc_debug.Reset_Indentation;
2236: END IF;
2237:
2238: END tieback_related_objs_from_po;
2239: