[Home] [Help]
1: PACKAGE BODY OKC_CHR_PVT AS
2: /* $Header: OKCSCHRB.pls 120.8.12020000.2 2012/07/16 16:15:29 harchand 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));
3119: l_chrv_rec chrv_rec_type;
3120: BEGIN
3121:
3122: IF (l_debug = 'Y') THEN
3123: okc_debug.Set_Indentation('OKC_CHR_PVT');
3124: okc_debug.LOG('10600: Entered get_rec', 2);
3125: END IF;
3126:
3127: x_no_data_found := TRUE;
3252: l_row_notfound BOOLEAN := TRUE;
3253: BEGIN
3254:
3255: IF (l_debug = 'Y') THEN
3256: okc_debug.Set_Indentation('OKC_CHR_PVT');
3257: okc_debug.LOG('10700: Entered get_rec', 2);
3258: END IF;
3259:
3260: RETURN(get_rec(p_chrv_rec, l_row_notfound));
3270: l_chrv_rec chrv_rec_type := p_chrv_rec;
3271: BEGIN
3272:
3273: IF (l_debug = 'Y') THEN
3274: okc_debug.Set_Indentation('OKC_CHR_PVT');
3275: okc_debug.LOG('10800: Entered null_out_defaults', 2);
3276: END IF;
3277:
3278: IF (l_chrv_rec.object_version_number = OKC_API.G_MISS_NUM) THEN
3614: x_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
3615: BEGIN
3616:
3617: IF (l_debug = 'Y') THEN
3618: okc_debug.Set_Indentation('OKC_CHR_PVT');
3619: okc_debug.LOG('10900: Entered Validate_Attributes', 2);
3620: END IF;
3621:
3622: /************************ HAND-CODED *********************************/
3998: WHERE code = p_code;
3999: BEGIN
4000:
4001: IF (l_debug = 'Y') THEN
4002: okc_debug.Set_Indentation('OKC_CHR_PVT');
4003: okc_debug.LOG('11200: Entered Get_Status_Type', 2);
4004: END IF;
4005:
4006: OPEN l_stsv_csr;
4061: l_found BOOLEAN;
4062: BEGIN
4063:
4064: IF (l_debug = 'Y') THEN
4065: okc_debug.Set_Indentation('OKC_CHR_PVT');
4066: okc_debug.LOG('11600: Entered IS_UNIQUE', 2);
4067: END IF;
4068:
4069: -- check for unique CONTRACT_NUMBER + MODIFIER
4146: l_found BOOLEAN;
4147: BEGIN
4148:
4149: IF (l_debug = 'Y') THEN
4150: okc_debug.Set_Indentation('OKC_CHR_PVT');
4151: okc_debug.LOG('11900: Entered Validate_Record', 2);
4152: END IF;
4153:
4154: -- check for unique CONTRACT_NUMBER + MODIFIER
4247: ) IS
4248: BEGIN
4249:
4250: IF (l_debug = 'Y') THEN
4251: okc_debug.Set_Indentation('OKC_CHR_PVT');
4252: okc_debug.LOG('12200: Entered migrate', 2);
4253: END IF;
4254:
4255: p_to.id := p_from.id;
4363: ) IS
4364: BEGIN
4365:
4366: IF (l_debug = 'Y') THEN
4367: okc_debug.Set_Indentation('OKC_CHR_PVT');
4368: okc_debug.LOG('12300: Entered migrate', 2);
4369: END IF;
4370:
4371: p_to.id := p_from.id;
4479: ) IS
4480: BEGIN
4481:
4482: IF (l_debug = 'Y') THEN
4483: okc_debug.Set_Indentation('OKC_CHR_PVT');
4484: okc_debug.LOG('12400: Entered migrate', 2);
4485: END IF;
4486:
4487: p_to.id := p_from.id;
4506: ) IS
4507: BEGIN
4508:
4509: IF (l_debug = 'Y') THEN
4510: okc_debug.Set_Indentation('OKC_CHR_PVT');
4511: okc_debug.LOG('12500: Entered migrate', 2);
4512: END IF;
4513:
4514: p_to.id := p_from.id;
4550: l_okc_k_headers_tl_rec okc_k_headers_tl_rec_type;
4551: BEGIN
4552:
4553: IF (l_debug = 'Y') THEN
4554: okc_debug.Set_Indentation('OKC_CHR_PVT');
4555: okc_debug.LOG('12600: Entered validate_row', 2);
4556: END IF;
4557:
4558: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4661: i NUMBER := 0;
4662: BEGIN
4663:
4664: IF (l_debug = 'Y') THEN
4665: okc_debug.Set_Indentation('OKC_CHR_PVT');
4666: okc_debug.LOG('13100: Entered validate_row', 2);
4667: END IF;
4668:
4669: OKC_API.init_msg_list(p_init_msg_list);
4779: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4780: BEGIN
4781:
4782: IF (l_debug = 'Y') THEN
4783: okc_debug.Set_Indentation('OKC_CHR_PVT');
4784: okc_debug.LOG('13600: Entered Set_Attributes', 2);
4785: END IF;
4786:
4787: x_chr_rec := p_chr_rec;
4790: END Set_Attributes;
4791: BEGIN
4792:
4793: IF (l_debug = 'Y') THEN
4794: okc_debug.Set_Indentation('OKC_CHR_PVT');
4795: okc_debug.LOG('13700: Entered insert_row', 2);
4796: END IF;
4797:
4798: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5111: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5112: BEGIN
5113:
5114: IF (l_debug = 'Y') THEN
5115: okc_debug.Set_Indentation('OKC_CHR_PVT');
5116: okc_debug.LOG('14200: Entered Set_Attributes', 2);
5117: END IF;
5118:
5119: x_okc_k_headers_tl_rec := p_okc_k_headers_tl_rec;
5124: END Set_Attributes;
5125: BEGIN
5126:
5127: IF (l_debug = 'Y') THEN
5128: okc_debug.Set_Indentation('OKC_CHR_PVT');
5129: okc_debug.LOG('14300: Entered insert_row', 2);
5130: END IF;
5131:
5132: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5275: l_chrv_rec chrv_rec_type := p_chrv_rec;
5276: BEGIN
5277:
5278: IF (l_debug = 'Y') THEN
5279: okc_debug.Set_Indentation('OKC_CHR_PVT');
5280: okc_debug.LOG('14800: Entered fill_who_columns', 2);
5281: END IF;
5282:
5283: l_chrv_rec.CREATION_DATE := SYSDATE;
5305: AND scs.code = p_scs_code;
5306: BEGIN
5307:
5308: IF (l_debug = 'Y') THEN
5309: okc_debug.Set_Indentation('OKC_CHR_PVT');
5310: okc_debug.LOG('14900: Entered Set_Attributes', 2);
5311: END IF;
5312:
5313: x_chrv_rec := p_chrv_rec;
5348: END Set_Attributes;
5349: BEGIN
5350:
5351: IF (l_debug = 'Y') THEN
5352: okc_debug.Set_Indentation('OKC_CHR_PVT');
5353: okc_debug.LOG('15000: Entered insert_row', 2);
5354: END IF;
5355:
5356: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5511: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
5512: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5513: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5514: i NUMBER := 0;
5515: l_chrv_rec OKC_CHR_PVT.chrv_rec_type;
5516: BEGIN
5517:
5518: IF (l_debug = 'Y') THEN
5519: okc_debug.Set_Indentation('OKC_CHR_PVT');
5515: l_chrv_rec OKC_CHR_PVT.chrv_rec_type;
5516: BEGIN
5517:
5518: IF (l_debug = 'Y') THEN
5519: okc_debug.Set_Indentation('OKC_CHR_PVT');
5520: okc_debug.LOG('15500: Entered insert_row', 2);
5521: END IF;
5522:
5523: OKC_API.init_msg_list(p_init_msg_list);
5666: lc_row_notfound BOOLEAN := FALSE;
5667: BEGIN
5668:
5669: IF (l_debug = 'Y') THEN
5670: okc_debug.Set_Indentation('OKC_CHR_PVT');
5671: okc_debug.LOG('16000: Entered lock_row', 2);
5672: END IF;
5673:
5674: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5682: END IF;
5683: BEGIN
5684:
5685: IF (l_debug = 'Y') THEN
5686: okc_debug.Set_Indentation('OKC_CHR_PVT');
5687: okc_debug.LOG('16100: Entered lock_row', 2);
5688: END IF;
5689:
5690: OPEN lock_csr(p_chr_rec);
5815: lc_row_notfound BOOLEAN := FALSE;
5816: BEGIN
5817:
5818: IF (l_debug = 'Y') THEN
5819: okc_debug.Set_Indentation('OKC_CHR_PVT');
5820: okc_debug.LOG('16800: Entered lock_row', 2);
5821: END IF;
5822:
5823: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5831: END IF;
5832: BEGIN
5833:
5834: IF (l_debug = 'Y') THEN
5835: okc_debug.Set_Indentation('OKC_CHR_PVT');
5836: okc_debug.LOG('16900: Entered lock_row', 2);
5837: END IF;
5838:
5839: OPEN lock_csr(p_okc_k_headers_tl_rec);
5941: l_okc_k_headers_tl_rec okc_k_headers_tl_rec_type;
5942: BEGIN
5943:
5944: IF (l_debug = 'Y') THEN
5945: okc_debug.Set_Indentation('OKC_CHR_PVT');
5946: okc_debug.LOG('17600: Entered lock_row', 2);
5947: END IF;
5948:
5949: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
6066: i NUMBER := 0;
6067: BEGIN
6068:
6069: IF (l_debug = 'Y') THEN
6070: okc_debug.Set_Indentation('OKC_CHR_PVT');
6071: okc_debug.LOG('18100: Entered lock_row', 2);
6072: END IF;
6073:
6074: OKC_API.init_msg_list(p_init_msg_list);
6188: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6189: BEGIN
6190:
6191: IF (l_debug = 'Y') THEN
6192: okc_debug.Set_Indentation('OKC_CHR_PVT');
6193: okc_debug.LOG('18600: Entered populate_new_record', 2);
6194: END IF;
6195:
6196: x_chr_rec := p_chr_rec;
6592: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6593: BEGIN
6594:
6595: IF (l_debug = 'Y') THEN
6596: okc_debug.Set_Indentation('OKC_CHR_PVT');
6597: okc_debug.LOG('18700: Entered Set_Attributes', 2);
6598: END IF;
6599:
6600: x_chr_rec := p_chr_rec;
6603: END Set_Attributes;
6604: BEGIN
6605:
6606: IF (l_debug = 'Y') THEN
6607: okc_debug.Set_Indentation('OKC_CHR_PVT');
6608: okc_debug.LOG('18800: Entered update_row', 2);
6609: END IF;
6610:
6611: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
6823: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6824: BEGIN
6825:
6826: IF (l_debug = 'Y') THEN
6827: okc_debug.Set_Indentation('OKC_CHR_PVT');
6828: okc_debug.LOG('19300: Entered populate_new_record', 2);
6829: END IF;
6830:
6831: x_okc_k_headers_tl_rec := p_okc_k_headers_tl_rec;
6911: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
6912: BEGIN
6913:
6914: IF (l_debug = 'Y') THEN
6915: okc_debug.Set_Indentation('OKC_CHR_PVT');
6916: okc_debug.LOG('19400: Entered Set_Attributes', 2);
6917: END IF;
6918:
6919: x_okc_k_headers_tl_rec := p_okc_k_headers_tl_rec;
6924: END Set_Attributes;
6925: BEGIN
6926:
6927: IF (l_debug = 'Y') THEN
6928: okc_debug.Set_Indentation('OKC_CHR_PVT');
6929: okc_debug.LOG('19500: Entered update_row', 2);
6930: END IF;
6931:
6932: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
7066: l_chrv_rec chrv_rec_type := p_chrv_rec;
7067: BEGIN
7068:
7069: IF (l_debug = 'Y') THEN
7070: okc_debug.Set_Indentation('OKC_CHR_PVT');
7071: okc_debug.LOG('20000: Entered fill_who_columns', 2);
7072: END IF;
7073:
7074: l_chrv_rec.LAST_UPDATE_DATE := SYSDATE;
7089: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
7090: BEGIN
7091:
7092: IF (l_debug = 'Y') THEN
7093: okc_debug.Set_Indentation('OKC_CHR_PVT');
7094: okc_debug.LOG('20100: Entered populate_new_record', 2);
7095: END IF;
7096:
7097: x_chrv_rec := p_chrv_rec;
7527: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
7528: BEGIN
7529:
7530: IF (l_debug = 'Y') THEN
7531: okc_debug.Set_Indentation('OKC_CHR_PVT');
7532: okc_debug.LOG('20200: Entered Set_Attributes', 2);
7533: END IF;
7534:
7535: x_chrv_rec := p_chrv_rec;
7557: END Set_Attributes;
7558: BEGIN
7559:
7560: IF (l_debug = 'Y') THEN
7561: okc_debug.Set_Indentation('OKC_CHR_PVT');
7562: okc_debug.LOG('20300: Entered update_row', 2);
7563: END IF;
7564:
7565: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
7729: i NUMBER := 0;
7730: BEGIN
7731:
7732: IF (l_debug = 'Y') THEN
7733: okc_debug.Set_Indentation('OKC_CHR_PVT');
7734: okc_debug.LOG('20800: Entered update_row', 2);
7735: END IF;
7736:
7737: OKC_API.init_msg_list(p_init_msg_list);
7840: l_row_notfound BOOLEAN := TRUE;
7841: BEGIN
7842:
7843: IF (l_debug = 'Y') THEN
7844: okc_debug.Set_Indentation('OKC_CHR_PVT');
7845: okc_debug.LOG('21300: Entered delete_row', 2);
7846: END IF;
7847:
7848: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
7940: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
7941: BEGIN
7942:
7943: IF (l_debug = 'Y') THEN
7944: okc_debug.Set_Indentation('OKC_CHR_PVT');
7945: okc_debug.LOG('21800: Entered Set_Attributes', 2);
7946: END IF;
7947:
7948: x_okc_k_headers_tl_rec := p_okc_k_headers_tl_rec;
7952: END Set_Attributes;
7953: BEGIN
7954:
7955: IF (l_debug = 'Y') THEN
7956: okc_debug.Set_Indentation('OKC_CHR_PVT');
7957: okc_debug.LOG('21900: Entered delete_row', 2);
7958: END IF;
7959:
7960: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
8056: l_chr_rec chr_rec_type;
8057: BEGIN
8058:
8059: IF (l_debug = 'Y') THEN
8060: okc_debug.Set_Indentation('OKC_CHR_PVT');
8061: okc_debug.LOG('22400: Entered delete_row', 2);
8062: END IF;
8063:
8064: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
8186: WHERE chr_id = p_chrv_tbl(i).id;
8187: BEGIN
8188:
8189: IF (l_debug = 'Y') THEN
8190: okc_debug.Set_Indentation('OKC_CHR_PVT');
8191: okc_debug.LOG('22900: Entered delete_row', 2);
8192: END IF;
8193:
8194: OKC_API.init_msg_list(p_init_msg_list);
8423: BEGIN
8424: --Initializing return status
8425: x_return_status := OKC_API.G_RET_STS_SUCCESS;
8426: IF (l_debug = 'Y') THEN
8427: okc_debug.Set_Indentation('OKC_CHR_PVT');
8428: okc_debug.LOG('23400: Entered INSERT_ROW_UPG', 2);
8429: END IF;
8430:
8431:
8884:
8885: BEGIN
8886:
8887: IF (l_debug = 'Y') THEN
8888: okc_debug.Set_Indentation('OKC_CHR_PVT');
8889: okc_debug.LOG('23700: Entered create_version', 2);
8890: END IF;
8891:
8892: INSERT INTO okc_k_headers_all_bh --mmadhavi changed to _ALL for MOAC
9189:
9190: BEGIN
9191:
9192: IF (l_debug = 'Y') THEN
9193: okc_debug.Set_Indentation('OKC_CHR_PVT');
9194: okc_debug.LOG('24000: Entered restore_version', 2);
9195: END IF;
9196:
9197: INSERT INTO okc_k_headers_tl
9478: END restore_version;
9479:
9480:
9481:
9482: END OKC_CHR_PVT;