[Home] [Help]
1: PACKAGE BODY OKC_CHR_PVT AS
2: /* $Header: OKCSCHRB.pls 120.7 2007/09/07 10:07:15 vmutyala ship $ */
3:
4: l_application_id NUMBER;
5:
32:
33: BEGIN
34:
35: IF (l_debug = 'Y') THEN
36: okc_debug.Set_Indentation('OKC_CHR_PVT');
37: okc_debug.LOG('100: Entered validate_contract_number', 2);
38: END IF;
39:
40: -- initialize return status
113: AND nvl(end_date_active, SYSDATE);
114: BEGIN
115:
116: IF (l_debug = 'Y') THEN
117: okc_debug.Set_Indentation('OKC_CHR_PVT');
118: okc_debug.LOG('500: Entered validate_currency_code', 2);
119: END IF;
120:
121: -- initialize return status
209:
210: BEGIN
211:
212: IF (l_debug = 'Y') THEN
213: okc_debug.Set_Indentation('OKC_CHR_PVT');
214: okc_debug.LOG('900: Entered validate_sfwt_flag', 2);
215: END IF;
216:
217: -- initialize return status
302:
303: BEGIN
304:
305: IF (l_debug = 'Y') THEN
306: okc_debug.Set_Indentation('OKC_CHR_PVT');
307: okc_debug.LOG('1300: Entered validate_chr_id_response', 2);
308: END IF;
309:
310: -- initialize return status
386:
387: BEGIN
388:
389: IF (l_debug = 'Y') THEN
390: okc_debug.Set_Indentation('OKC_CHR_PVT');
391: okc_debug.LOG('1600: Entered validate_chr_id_award', 2);
392: END IF;
393:
394: -- initialize return status
459: p_chrv_rec IN chrv_rec_type) IS
460: BEGIN
461:
462: IF (l_debug = 'Y') THEN
463: okc_debug.Set_Indentation('OKC_CHR_PVT');
464: okc_debug.LOG('1900: Entered validate_INV_ORGANIZATION_ID', 2);
465: END IF;
466:
467: -- initialize return status
534: WHERE okc_statuses_B.code = p_code;
535: BEGIN
536:
537: IF (l_debug = 'Y') THEN
538: okc_debug.Set_Indentation('OKC_CHR_PVT');
539: okc_debug.LOG('2300: Entered validate_sts_code', 2);
540: END IF;
541:
542: -- initialize return status
630: WHERE ID = p_chrv_rec.qcl_id;
631: BEGIN
632:
633: IF (l_debug = 'Y') THEN
634: okc_debug.Set_Indentation('OKC_CHR_PVT');
635: okc_debug.LOG('2700: Entered validate_qcl_id', 2);
636: END IF;
637:
638: -- initialize return status
704: p_chrv_rec IN chrv_rec_type) IS
705: BEGIN
706:
707: IF (l_debug = 'Y') THEN
708: okc_debug.Set_Indentation('OKC_CHR_PVT');
709: okc_debug.LOG('3000: Entered validate_org_ids', 2);
710: END IF;
711:
712: -- initialize return status
797: p_chrv_rec IN chrv_rec_type) IS
798: BEGIN
799:
800: IF (l_debug = 'Y') THEN
801: okc_debug.Set_Indentation('OKC_CHR_PVT');
802: okc_debug.LOG('3400: Entered validate_buy_or_sell', 2);
803: END IF;
804:
805: -- initialize return status
869: p_chrv_rec IN chrv_rec_type) IS
870: BEGIN
871:
872: IF (l_debug = 'Y') THEN
873: okc_debug.Set_Indentation('OKC_CHR_PVT');
874: okc_debug.LOG('3800: Entered validate_issue_or_receive', 2);
875: END IF;
876:
877: -- initialize return status
946: WHERE okc_subclasses_b.code = p_code;
947: BEGIN
948:
949: IF (l_debug = 'Y') THEN
950: okc_debug.Set_Indentation('OKC_CHR_PVT');
951: okc_debug.LOG('4200: Entered validate_scs_code', 2);
952: END IF;
953:
954: -- initialize return status
1036: p_chrv_rec IN chrv_rec_type) IS
1037: BEGIN
1038:
1039: IF (l_debug = 'Y') THEN
1040: okc_debug.Set_Indentation('OKC_CHR_PVT');
1041: okc_debug.LOG('4600: Entered validate_archived_yn', 2);
1042: END IF;
1043:
1044: -- initialize return status
1116: p_chrv_rec IN chrv_rec_type) IS
1117: BEGIN
1118:
1119: IF (l_debug = 'Y') THEN
1120: okc_debug.Set_Indentation('OKC_CHR_PVT');
1121: okc_debug.LOG('5000: Entered validate_deleted_yn', 2);
1122: END IF;
1123:
1124: -- initialize return status
1196: p_chrv_rec IN chrv_rec_type) IS
1197: BEGIN
1198:
1199: IF (l_debug = 'Y') THEN
1200: okc_debug.Set_Indentation('OKC_CHR_PVT');
1201: okc_debug.LOG('5400: Entered validate_cust_po_number_req_yn', 2);
1202: END IF;
1203:
1204: -- initialize return status
1268: p_chrv_rec IN chrv_rec_type) IS
1269: BEGIN
1270:
1271: IF (l_debug = 'Y') THEN
1272: okc_debug.Set_Indentation('OKC_CHR_PVT');
1273: okc_debug.LOG('5800: Entered validate_pre_pay_req_yn', 2);
1274: END IF;
1275:
1276: -- initialize return status
1341: p_chrv_rec IN chrv_rec_type) IS
1342: BEGIN
1343:
1344: IF (l_debug = 'Y') THEN
1345: okc_debug.Set_Indentation('OKC_CHR_PVT');
1346: okc_debug.LOG('6200: Entered validate_template_yn', 2);
1347: END IF;
1348:
1349: -- initialize return status
1421: p_chrv_rec IN chrv_rec_type) IS
1422: BEGIN
1423:
1424: IF (l_debug = 'Y') THEN
1425: okc_debug.Set_Indentation('OKC_CHR_PVT');
1426: okc_debug.LOG('6600: Entered validate_chr_type', 2);
1427: END IF;
1428:
1429: -- initialize return status
1502: p_chrv_rec IN chrv_rec_type) is
1503: Begin
1504:
1505: IF (l_debug = 'Y') THEN
1506: okc_debug.Set_Indentation('OKC_CHR_PVT');
1507: okc_debug.log('7000: Entered validate_datetime_cancelled', 2);
1508: END IF;
1509:
1510: -- initialize return status
1568: p_chrv_rec IN chrv_rec_type) IS
1569: BEGIN
1570:
1571: IF (l_debug = 'Y') THEN
1572: okc_debug.Set_Indentation('OKC_CHR_PVT');
1573: okc_debug.LOG('7300: Entered validate_keep_on_mail_list', 2);
1574: END IF;
1575:
1576: -- initialize return status
1627: p_chrv_rec IN chrv_rec_type) IS
1628: BEGIN
1629:
1630: IF (l_debug = 'Y') THEN
1631: okc_debug.Set_Indentation('OKC_CHR_PVT');
1632: okc_debug.LOG('7600: Entered validate_set_aside_percent', 2);
1633: END IF;
1634:
1635: -- initialize return status
1697: p_chrv_rec IN chrv_rec_type) is
1698: Begin
1699:
1700: IF (l_debug = 'Y') THEN
1701: okc_debug.Set_Indentation('OKC_CHR_PVT');
1702: okc_debug.log('8000: Entered validate_date_terminated', 2);
1703: END IF;
1704:
1705: -- initialize return status
1765: p_chrv_rec IN chrv_rec_type) IS
1766: BEGIN
1767:
1768: IF (l_debug = 'Y') THEN
1769: okc_debug.Set_Indentation('OKC_CHR_PVT');
1770: okc_debug.LOG('8300: Entered validate_trn_code', 2);
1771: END IF;
1772:
1773: -- initialize return status
1838: AND nvl(end_date_active, SYSDATE);
1839: BEGIN
1840:
1841: IF (l_debug = 'Y') THEN
1842: okc_debug.Set_Indentation('OKC_CHR_PVT');
1843: okc_debug.LOG('8600: Entered validate_curr_code_rnwd', 2);
1844: END IF;
1845:
1846: -- initialize return status
1915: p_chrv_rec IN chrv_rec_type) IS
1916: BEGIN
1917:
1918: IF (l_debug = 'Y') THEN
1919: okc_debug.Set_Indentation('OKC_CHR_PVT');
1920: okc_debug.LOG('9000: Entered validate_orig_sys_code', 2);
1921: END IF;
1922:
1923: -- initialize return status
2003:
2004: BEGIN
2005:
2006: IF (l_debug = 'Y') THEN
2007: okc_debug.Set_Indentation('OKC_CHR_PVT');
2008: okc_debug.LOG('9300: Entered validate_price_list_id', 2);
2009: END IF;
2010:
2011: -- initialize return status
2124:
2125: BEGIN
2126:
2127: IF (l_debug = 'Y') THEN
2128: okc_debug.Set_Indentation('OKC_CHR_PVT');
2129: okc_debug.LOG('9612: Entered validate_renewal_type_code', 2);
2130: END IF;
2131:
2132: -- initialize return status
2194:
2195: BEGIN
2196:
2197: IF (l_debug = 'Y') THEN
2198: okc_debug.Set_Indentation('OKC_CHR_PVT');
2199: okc_debug.LOG('9612: Entered validate_oks_renewal_type_code', 2);
2200: END IF;
2201:
2202: -- initialize return status
2274: AND enabled_flag = 'Y';
2275: BEGIN
2276:
2277: IF (l_debug = 'Y') THEN
2278: okc_debug.Set_Indentation('OKC_CHR_PVT');
2279: okc_debug.LOG('500: Entered validate_approval_type', 2);
2280: END IF;
2281:
2282: -- initialize return status
2363:
2364: BEGIN
2365:
2366: IF (l_debug = 'Y') THEN
2367: okc_debug.Set_Indentation('OKC_CHR_PVT');
2368: okc_debug.LOG('9700: Entered get_seq_id', 2);
2369: END IF;
2370:
2371: OPEN l_seq_csr;
2387: PROCEDURE qc IS
2388: BEGIN
2389:
2390: IF (l_debug = 'Y') THEN
2391: okc_debug.Set_Indentation('OKC_CHR_PVT');
2392: okc_debug.LOG('9800: Entered qc', 2);
2393: END IF;
2394:
2395: NULL;
2402: PROCEDURE change_version IS
2403: BEGIN
2404:
2405: IF (l_debug = 'Y') THEN
2406: okc_debug.Set_Indentation('OKC_CHR_PVT');
2407: okc_debug.LOG('9900: Entered change_version', 2);
2408: END IF;
2409:
2410: NULL;
2417: PROCEDURE api_copy IS
2418: BEGIN
2419:
2420: IF (l_debug = 'Y') THEN
2421: okc_debug.Set_Indentation('OKC_CHR_PVT');
2422: okc_debug.LOG('10000: Entered api_copy', 2);
2423: END IF;
2424:
2425: NULL;
2432: PROCEDURE add_language IS
2433: BEGIN
2434:
2435: IF (l_debug = 'Y') THEN
2436: okc_debug.Set_Indentation('OKC_CHR_PVT');
2437: okc_debug.LOG('10100: Entered add_language', 2);
2438: END IF;
2439:
2440: /* Mar/19/03 requested by Ric Ginsberg */
2778: l_chr_rec chr_rec_type;
2779: BEGIN
2780:
2781: IF (l_debug = 'Y') THEN
2782: okc_debug.Set_Indentation('OKC_CHR_PVT');
2783: okc_debug.LOG('10200: Entered get_rec', 2);
2784: END IF;
2785:
2786: x_no_data_found := TRUE;
2903: l_row_notfound BOOLEAN := TRUE;
2904: BEGIN
2905:
2906: IF (l_debug = 'Y') THEN
2907: okc_debug.Set_Indentation('OKC_CHR_PVT');
2908: okc_debug.LOG('10300: Entered get_rec', 2);
2909: END IF;
2910:
2911: RETURN(get_rec(p_chr_rec, l_row_notfound));
2944: l_okc_k_headers_tl_rec okc_k_headers_tl_rec_type;
2945: BEGIN
2946:
2947: IF (l_debug = 'Y') THEN
2948: okc_debug.Set_Indentation('OKC_CHR_PVT');
2949: okc_debug.LOG('10400: Entered get_rec', 2);
2950: END IF;
2951:
2952: x_no_data_found := TRUE;
2982: l_row_notfound BOOLEAN := TRUE;
2983: BEGIN
2984:
2985: IF (l_debug = 'Y') THEN
2986: okc_debug.Set_Indentation('OKC_CHR_PVT');
2987: okc_debug.LOG('10500: Entered get_rec', 2);
2988: END IF;
2989:
2990: RETURN(get_rec(p_okc_k_headers_tl_rec, l_row_notfound));
3114: l_chrv_rec chrv_rec_type;
3115: BEGIN
3116:
3117: IF (l_debug = 'Y') THEN
3118: okc_debug.Set_Indentation('OKC_CHR_PVT');
3119: okc_debug.LOG('10600: Entered get_rec', 2);
3120: END IF;
3121:
3122: x_no_data_found := TRUE;
3247: l_row_notfound BOOLEAN := TRUE;
3248: BEGIN
3249:
3250: IF (l_debug = 'Y') THEN
3251: okc_debug.Set_Indentation('OKC_CHR_PVT');
3252: okc_debug.LOG('10700: Entered get_rec', 2);
3253: END IF;
3254:
3255: RETURN(get_rec(p_chrv_rec, l_row_notfound));
3265: l_chrv_rec chrv_rec_type := p_chrv_rec;
3266: BEGIN
3267:
3268: IF (l_debug = 'Y') THEN
3269: okc_debug.Set_Indentation('OKC_CHR_PVT');
3270: okc_debug.LOG('10800: Entered null_out_defaults', 2);
3271: END IF;
3272:
3273: IF (l_chrv_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
3609: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3610: BEGIN
3611:
3612: IF (l_debug = 'Y') THEN
3613: okc_debug.Set_Indentation('OKC_CHR_PVT');
3614: okc_debug.LOG('10900: Entered Validate_Attributes', 2);
3615: END IF;
3616:
3617: /************************ HAND-CODED *********************************/
3993: WHERE code = p_code;
3994: BEGIN
3995:
3996: IF (l_debug = 'Y') THEN
3997: okc_debug.Set_Indentation('OKC_CHR_PVT');
3998: okc_debug.LOG('11200: Entered Get_Status_Type', 2);
3999: END IF;
4000:
4001: OPEN l_stsv_csr;
4056: l_found BOOLEAN;
4057: BEGIN
4058:
4059: IF (l_debug = 'Y') THEN
4060: okc_debug.Set_Indentation('OKC_CHR_PVT');
4061: okc_debug.LOG('11600: Entered IS_UNIQUE', 2);
4062: END IF;
4063:
4064: -- check for unique CONTRACT_NUMBER + MODIFIER
4141: l_found BOOLEAN;
4142: BEGIN
4143:
4144: IF (l_debug = 'Y') THEN
4145: okc_debug.Set_Indentation('OKC_CHR_PVT');
4146: okc_debug.LOG('11900: Entered Validate_Record', 2);
4147: END IF;
4148:
4149: -- check for unique CONTRACT_NUMBER + MODIFIER
4242: ) IS
4243: BEGIN
4244:
4245: IF (l_debug = 'Y') THEN
4246: okc_debug.Set_Indentation('OKC_CHR_PVT');
4247: okc_debug.LOG('12200: Entered migrate', 2);
4248: END IF;
4249:
4250: p_to.id := p_from.id;
4358: ) IS
4359: BEGIN
4360:
4361: IF (l_debug = 'Y') THEN
4362: okc_debug.Set_Indentation('OKC_CHR_PVT');
4363: okc_debug.LOG('12300: Entered migrate', 2);
4364: END IF;
4365:
4366: p_to.id := p_from.id;
4474: ) IS
4475: BEGIN
4476:
4477: IF (l_debug = 'Y') THEN
4478: okc_debug.Set_Indentation('OKC_CHR_PVT');
4479: okc_debug.LOG('12400: Entered migrate', 2);
4480: END IF;
4481:
4482: p_to.id := p_from.id;
4501: ) IS
4502: BEGIN
4503:
4504: IF (l_debug = 'Y') THEN
4505: okc_debug.Set_Indentation('OKC_CHR_PVT');
4506: okc_debug.LOG('12500: Entered migrate', 2);
4507: END IF;
4508:
4509: p_to.id := p_from.id;
4545: l_okc_k_headers_tl_rec okc_k_headers_tl_rec_type;
4546: BEGIN
4547:
4548: IF (l_debug = 'Y') THEN
4549: okc_debug.Set_Indentation('OKC_CHR_PVT');
4550: okc_debug.LOG('12600: Entered validate_row', 2);
4551: END IF;
4552:
4553: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4656: i NUMBER := 0;
4657: BEGIN
4658:
4659: IF (l_debug = 'Y') THEN
4660: okc_debug.Set_Indentation('OKC_CHR_PVT');
4661: okc_debug.LOG('13100: Entered validate_row', 2);
4662: END IF;
4663:
4664: OKC_API.init_msg_list(p_init_msg_list);
4774: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4775: BEGIN
4776:
4777: IF (l_debug = 'Y') THEN
4778: okc_debug.Set_Indentation('OKC_CHR_PVT');
4779: okc_debug.LOG('13600: Entered Set_Attributes', 2);
4780: END IF;
4781:
4782: x_chr_rec := p_chr_rec;
4785: END Set_Attributes;
4786: BEGIN
4787:
4788: IF (l_debug = 'Y') THEN
4789: okc_debug.Set_Indentation('OKC_CHR_PVT');
4790: okc_debug.LOG('13700: Entered insert_row', 2);
4791: END IF;
4792:
4793: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5106: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5107: BEGIN
5108:
5109: IF (l_debug = 'Y') THEN
5110: okc_debug.Set_Indentation('OKC_CHR_PVT');
5111: okc_debug.LOG('14200: Entered Set_Attributes', 2);
5112: END IF;
5113:
5114: x_okc_k_headers_tl_rec := p_okc_k_headers_tl_rec;
5119: END Set_Attributes;
5120: BEGIN
5121:
5122: IF (l_debug = 'Y') THEN
5123: okc_debug.Set_Indentation('OKC_CHR_PVT');
5124: okc_debug.LOG('14300: Entered insert_row', 2);
5125: END IF;
5126:
5127: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5270: l_chrv_rec chrv_rec_type := p_chrv_rec;
5271: BEGIN
5272:
5273: IF (l_debug = 'Y') THEN
5274: okc_debug.Set_Indentation('OKC_CHR_PVT');
5275: okc_debug.LOG('14800: Entered fill_who_columns', 2);
5276: END IF;
5277:
5278: l_chrv_rec.CREATION_DATE := SYSDATE;
5298: AND scs.code = p_scs_code;
5299: BEGIN
5300:
5301: IF (l_debug = 'Y') THEN
5302: okc_debug.Set_Indentation('OKC_CHR_PVT');
5303: okc_debug.LOG('14900: Entered Set_Attributes', 2);
5304: END IF;
5305:
5306: x_chrv_rec := p_chrv_rec;
5332: END Set_Attributes;
5333: BEGIN
5334:
5335: IF (l_debug = 'Y') THEN
5336: okc_debug.Set_Indentation('OKC_CHR_PVT');
5337: okc_debug.LOG('15000: Entered insert_row', 2);
5338: END IF;
5339:
5340: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5495: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
5496: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5497: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5498: i NUMBER := 0;
5499: l_chrv_rec OKC_CHR_PVT.chrv_rec_type;
5500: BEGIN
5501:
5502: IF (l_debug = 'Y') THEN
5503: okc_debug.Set_Indentation('OKC_CHR_PVT');
5499: l_chrv_rec OKC_CHR_PVT.chrv_rec_type;
5500: BEGIN
5501:
5502: IF (l_debug = 'Y') THEN
5503: okc_debug.Set_Indentation('OKC_CHR_PVT');
5504: okc_debug.LOG('15500: Entered insert_row', 2);
5505: END IF;
5506:
5507: OKC_API.init_msg_list(p_init_msg_list);
5650: lc_row_notfound BOOLEAN := FALSE;
5651: BEGIN
5652:
5653: IF (l_debug = 'Y') THEN
5654: okc_debug.Set_Indentation('OKC_CHR_PVT');
5655: okc_debug.LOG('16000: Entered lock_row', 2);
5656: END IF;
5657:
5658: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5666: END IF;
5667: BEGIN
5668:
5669: IF (l_debug = 'Y') THEN
5670: okc_debug.Set_Indentation('OKC_CHR_PVT');
5671: okc_debug.LOG('16100: Entered lock_row', 2);
5672: END IF;
5673:
5674: OPEN lock_csr(p_chr_rec);
5799: lc_row_notfound BOOLEAN := FALSE;
5800: BEGIN
5801:
5802: IF (l_debug = 'Y') THEN
5803: okc_debug.Set_Indentation('OKC_CHR_PVT');
5804: okc_debug.LOG('16800: Entered lock_row', 2);
5805: END IF;
5806:
5807: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5815: END IF;
5816: BEGIN
5817:
5818: IF (l_debug = 'Y') THEN
5819: okc_debug.Set_Indentation('OKC_CHR_PVT');
5820: okc_debug.LOG('16900: Entered lock_row', 2);
5821: END IF;
5822:
5823: OPEN lock_csr(p_okc_k_headers_tl_rec);
5925: l_okc_k_headers_tl_rec okc_k_headers_tl_rec_type;
5926: BEGIN
5927:
5928: IF (l_debug = 'Y') THEN
5929: okc_debug.Set_Indentation('OKC_CHR_PVT');
5930: okc_debug.LOG('17600: Entered lock_row', 2);
5931: END IF;
5932:
5933: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
6050: i NUMBER := 0;
6051: BEGIN
6052:
6053: IF (l_debug = 'Y') THEN
6054: okc_debug.Set_Indentation('OKC_CHR_PVT');
6055: okc_debug.LOG('18100: Entered lock_row', 2);
6056: END IF;
6057:
6058: OKC_API.init_msg_list(p_init_msg_list);
6172: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6173: BEGIN
6174:
6175: IF (l_debug = 'Y') THEN
6176: okc_debug.Set_Indentation('OKC_CHR_PVT');
6177: okc_debug.LOG('18600: Entered populate_new_record', 2);
6178: END IF;
6179:
6180: x_chr_rec := p_chr_rec;
6576: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6577: BEGIN
6578:
6579: IF (l_debug = 'Y') THEN
6580: okc_debug.Set_Indentation('OKC_CHR_PVT');
6581: okc_debug.LOG('18700: Entered Set_Attributes', 2);
6582: END IF;
6583:
6584: x_chr_rec := p_chr_rec;
6587: END Set_Attributes;
6588: BEGIN
6589:
6590: IF (l_debug = 'Y') THEN
6591: okc_debug.Set_Indentation('OKC_CHR_PVT');
6592: okc_debug.LOG('18800: Entered update_row', 2);
6593: END IF;
6594:
6595: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
6807: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6808: BEGIN
6809:
6810: IF (l_debug = 'Y') THEN
6811: okc_debug.Set_Indentation('OKC_CHR_PVT');
6812: okc_debug.LOG('19300: Entered populate_new_record', 2);
6813: END IF;
6814:
6815: x_okc_k_headers_tl_rec := p_okc_k_headers_tl_rec;
6895: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6896: BEGIN
6897:
6898: IF (l_debug = 'Y') THEN
6899: okc_debug.Set_Indentation('OKC_CHR_PVT');
6900: okc_debug.LOG('19400: Entered Set_Attributes', 2);
6901: END IF;
6902:
6903: x_okc_k_headers_tl_rec := p_okc_k_headers_tl_rec;
6908: END Set_Attributes;
6909: BEGIN
6910:
6911: IF (l_debug = 'Y') THEN
6912: okc_debug.Set_Indentation('OKC_CHR_PVT');
6913: okc_debug.LOG('19500: Entered update_row', 2);
6914: END IF;
6915:
6916: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
7050: l_chrv_rec chrv_rec_type := p_chrv_rec;
7051: BEGIN
7052:
7053: IF (l_debug = 'Y') THEN
7054: okc_debug.Set_Indentation('OKC_CHR_PVT');
7055: okc_debug.LOG('20000: Entered fill_who_columns', 2);
7056: END IF;
7057:
7058: l_chrv_rec.LAST_UPDATE_DATE := SYSDATE;
7073: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
7074: BEGIN
7075:
7076: IF (l_debug = 'Y') THEN
7077: okc_debug.Set_Indentation('OKC_CHR_PVT');
7078: okc_debug.LOG('20100: Entered populate_new_record', 2);
7079: END IF;
7080:
7081: x_chrv_rec := p_chrv_rec;
7511: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
7512: BEGIN
7513:
7514: IF (l_debug = 'Y') THEN
7515: okc_debug.Set_Indentation('OKC_CHR_PVT');
7516: okc_debug.LOG('20200: Entered Set_Attributes', 2);
7517: END IF;
7518:
7519: x_chrv_rec := p_chrv_rec;
7541: END Set_Attributes;
7542: BEGIN
7543:
7544: IF (l_debug = 'Y') THEN
7545: okc_debug.Set_Indentation('OKC_CHR_PVT');
7546: okc_debug.LOG('20300: Entered update_row', 2);
7547: END IF;
7548:
7549: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
7713: i NUMBER := 0;
7714: BEGIN
7715:
7716: IF (l_debug = 'Y') THEN
7717: okc_debug.Set_Indentation('OKC_CHR_PVT');
7718: okc_debug.LOG('20800: Entered update_row', 2);
7719: END IF;
7720:
7721: OKC_API.init_msg_list(p_init_msg_list);
7824: l_row_notfound BOOLEAN := TRUE;
7825: BEGIN
7826:
7827: IF (l_debug = 'Y') THEN
7828: okc_debug.Set_Indentation('OKC_CHR_PVT');
7829: okc_debug.LOG('21300: Entered delete_row', 2);
7830: END IF;
7831:
7832: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
7924: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
7925: BEGIN
7926:
7927: IF (l_debug = 'Y') THEN
7928: okc_debug.Set_Indentation('OKC_CHR_PVT');
7929: okc_debug.LOG('21800: Entered Set_Attributes', 2);
7930: END IF;
7931:
7932: x_okc_k_headers_tl_rec := p_okc_k_headers_tl_rec;
7936: END Set_Attributes;
7937: BEGIN
7938:
7939: IF (l_debug = 'Y') THEN
7940: okc_debug.Set_Indentation('OKC_CHR_PVT');
7941: okc_debug.LOG('21900: Entered delete_row', 2);
7942: END IF;
7943:
7944: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
8040: l_chr_rec chr_rec_type;
8041: BEGIN
8042:
8043: IF (l_debug = 'Y') THEN
8044: okc_debug.Set_Indentation('OKC_CHR_PVT');
8045: okc_debug.LOG('22400: Entered delete_row', 2);
8046: END IF;
8047:
8048: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
8170: WHERE chr_id = p_chrv_tbl(i).id;
8171: BEGIN
8172:
8173: IF (l_debug = 'Y') THEN
8174: okc_debug.Set_Indentation('OKC_CHR_PVT');
8175: okc_debug.LOG('22900: Entered delete_row', 2);
8176: END IF;
8177:
8178: OKC_API.init_msg_list(p_init_msg_list);
8407: BEGIN
8408: --Initializing return status
8409: x_return_status := OKC_API.G_RET_STS_SUCCESS;
8410: IF (l_debug = 'Y') THEN
8411: okc_debug.Set_Indentation('OKC_CHR_PVT');
8412: okc_debug.LOG('23400: Entered INSERT_ROW_UPG', 2);
8413: END IF;
8414:
8415:
8868:
8869: BEGIN
8870:
8871: IF (l_debug = 'Y') THEN
8872: okc_debug.Set_Indentation('OKC_CHR_PVT');
8873: okc_debug.LOG('23700: Entered create_version', 2);
8874: END IF;
8875:
8876: INSERT INTO okc_k_headers_all_bh --mmadhavi changed to _ALL for MOAC
9173:
9174: BEGIN
9175:
9176: IF (l_debug = 'Y') THEN
9177: okc_debug.Set_Indentation('OKC_CHR_PVT');
9178: okc_debug.LOG('24000: Entered restore_version', 2);
9179: END IF;
9180:
9181: INSERT INTO okc_k_headers_tl
9462: END restore_version;
9463:
9464:
9465:
9466: END OKC_CHR_PVT;