[Home] [Help]
69:
70: BEGIN
71: FOR l_count in 1..p_message_count LOOP
72:
73: l_temp_msg := fnd_msg_pub.get(fnd_msg_pub.g_next, fnd_api.g_true);
74: fnd_message.parse_encoded(l_temp_msg, l_appl_short_name, l_message_name);
75: OPEN Get_Appl_Id (l_appl_short_name);
76: FETCH Get_Appl_Id into l_id;
77: CLOSE Get_Appl_Id;
84: FETCH Get_Message_Num into l_message_num;
85: CLOSE Get_Message_Num;
86: END IF;
87:
88: l_temp_msg := fnd_msg_pub.get(fnd_msg_pub.g_previous, fnd_api.g_true);
89:
90: IF NVL(l_message_num, 0) <> 0
91: THEN
92: l_temp_msg := 'APP-' || to_char(l_message_num) || ': ';
96:
97: IF l_count = 1
98: THEN
99: l_msg_list := l_msg_list || l_temp_msg ||
100: fnd_msg_pub.get(fnd_msg_pub.g_first, fnd_api.g_false);
101: ELSE
102: l_msg_list := l_msg_list || l_temp_msg ||
103: fnd_msg_pub.get(fnd_msg_pub.g_next, fnd_api.g_false);
104: END IF;
99: l_msg_list := l_msg_list || l_temp_msg ||
100: fnd_msg_pub.get(fnd_msg_pub.g_first, fnd_api.g_false);
101: ELSE
102: l_msg_list := l_msg_list || l_temp_msg ||
103: fnd_msg_pub.get(fnd_msg_pub.g_next, fnd_api.g_false);
104: END IF;
105:
106: l_msg_list := l_msg_list || '';
107:
233: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'before creating TAP record ');
234: END IF;
235: END IF;
236:
237: x_return_status := FND_API.G_RET_STS_SUCCESS;
238:
239: lp_tapv_rec.org_id := NULL;
240: OPEN org_id_csr ( p_pay_cure_refunds_rec.chr_id) ;
241: FETCH org_id_csr INTO lp_tapv_rec.org_id;
246: IF (lp_tapv_rec.org_id IS NULL) THEN
247: AddMissingArgMsg(
248: p_api_name => l_api_name_full,
249: p_param_name => 'org_id' );
250: RAISE FND_API.G_EXC_ERROR;
251: ELSE
252: IF PG_DEBUG < 11 THEN
253: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
254: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'lp_tapv_rec.org_id '||
266: IF (lp_tapv_rec.set_of_books_id IS NULL) THEN
267: AddMissingArgMsg(
268: p_api_name => l_api_name_full,
269: p_param_name => 'set_of_books_id' );
270: RAISE FND_API.G_EXC_ERROR;
271: ELSE
272: IF PG_DEBUG < 11 THEN
273: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
274: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'lp_tapv_rec.set_of_books_id'||
285: IF (lp_tapv_rec.try_id IS NULL) THEN
286: AddMissingArgMsg(
287: p_api_name => l_api_name_full,
288: p_param_name => 'try_id' );
289: RAISE FND_API.G_EXC_ERROR;
290: ELSE
291: IF PG_DEBUG < 11 THEN
292: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
293: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'lp_tapv_rec.try_id'||
322: WHEN OTHERS THEN
323: IF SQLCODE = 100 THEN
324: fnd_message.set_name('OKL', 'OKL_PAY_INV_SEQ_CHECK');
325: fnd_msg_pub.add;
326: RAISE FND_API.G_EXC_ERROR;
327: END IF;
328: END;
329:
330: okl_debug_pub.logmessage ('OKL_PAY_CURE_REFUNDS_PVT: create_refund : lp_tapv_rec.invoice_number : '||lp_tapv_rec.invoice_number);
332: IF (lp_tapv_rec.invoice_number IS NULL) THEN
333: AddMissingArgMsg(
334: p_api_name => l_api_name_full,
335: p_param_name => 'invoice_number' );
336: RAISE FND_API.G_EXC_ERROR;
337: ELSE
338: IF PG_DEBUG < 11 THEN
339: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
340: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'lp_tapv_rec.invoice_number'||
414: );
415:
416: lp_tplv_rec.sty_id := x_primary_sty_id;
417:
418: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS or x_primary_sty_id is null) THEN
419: Get_Messages (l_msg_count,l_message);
420: IF PG_DEBUG < 11 THEN
421: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
422: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error' ||l_message);
421: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
422: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error' ||l_message);
423: END IF;
424: END IF;
425: raise FND_API.G_EXC_ERROR;
426:
427: ELSE
428:
429: IF PG_DEBUG < 11 THEN
475: x_msg_data => x_msg_data,
476: p_tapv_rec => lp_tapv_rec,
477: x_tapv_rec => lx_tapv_rec);
478: okl_debug_pub.logmessage ('OKL_PAY_CURE_REFUNDS_PVT: create_refund : OKL_TRX_AP_INVOICES_PUB.INSERT_TRX_AP_INVOICES : '||x_return_status);
479: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
480: Get_Messages (l_msg_count,l_message);
481: IF PG_DEBUG <11 THEN
482: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
483: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error' ||l_message);
482: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
483: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error' ||l_message);
484: END IF;
485: END IF;
486: raise FND_API.G_EXC_ERROR;
487: ELSE
488: IF PG_DEBUG < 11 THEN
489: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
490: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'lx_tapv_rec.id'
505: p_tplv_rec => lp_tplv_rec,
506: x_tplv_rec => lx_tplv_rec);
507: okl_debug_pub.logmessage ('OKL_PAY_CURE_REFUNDS_PVT: create_refund : OKL_TXL_AP_INV_LNS_PUB.INSERT_TXL_AP_INV_LNS : '||x_return_status);
508:
509: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
510: Get_Messages (l_msg_count,l_message);
511: IF PG_DEBUG <11 THEN
512: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
513: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error' ||l_message);
512: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
513: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error' ||l_message);
514: END IF;
515: END IF;
516: raise FND_API.G_EXC_ERROR;
517: ELSE
518: IF PG_DEBUG < 11 THEN
519: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
520: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'lx_tplv_rec.id'
557: ,x_crfv_rec => lx_crfv_rec);
558:
559: okl_debug_pub.logmessage ('OKL_PAY_CURE_REFUNDS_PVT: create_refund : OKL_cure_refunds_pub.insert_cure_refunds : '||l_return_status);
560:
561: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
562: Get_Messages (l_msg_count,l_message);
563: IF PG_DEBUG < 11 THEN
564: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
565: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error' ||l_message);
564: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
565: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error' ||l_message);
566: END IF;
567: END IF;
568: raise FND_API.G_EXC_ERROR;
569: ELSE
570: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
571: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'lx_crfv_rec.cure_refund_id'
572: ||lx_crfv_rec.cure_refund_id);
573: END IF;
574: x_cure_refund_id :=lx_crfv_rec.cure_refund_id;
575: END IF;
576:
577: IF x_return_status =FND_API.G_RET_STS_SUCCESS THEN
578: FND_MSG_PUB.initialize;
579: END IF;
580:
581: FND_MSG_PUB.Count_And_Get
593: okl_debug_pub.logmessage ('OKL_PAY_CURE_REFUNDS_PVT: create_refund : START ');
594:
595: EXCEPTION
596:
597: WHEN Fnd_Api.G_EXC_ERROR THEN
598: ROLLBACK TO CREATE_REFUND;
599: x_return_status := Fnd_Api.G_RET_STS_ERROR;
600: x_msg_count := l_msg_count ;
601: x_msg_data := l_msg_data ;
595: EXCEPTION
596:
597: WHEN Fnd_Api.G_EXC_ERROR THEN
598: ROLLBACK TO CREATE_REFUND;
599: x_return_status := Fnd_Api.G_RET_STS_ERROR;
600: x_msg_count := l_msg_count ;
601: x_msg_data := l_msg_data ;
602: Fnd_Msg_Pub.count_and_get(
603: p_count => x_msg_count
601: x_msg_data := l_msg_data ;
602: Fnd_Msg_Pub.count_and_get(
603: p_count => x_msg_count
604: ,p_data => x_msg_data);
605: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
606: ROLLBACK TO CREATE_REFUND;
607: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
608: x_msg_count := l_msg_count ;
609: x_msg_data := l_msg_data ;
603: p_count => x_msg_count
604: ,p_data => x_msg_data);
605: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
606: ROLLBACK TO CREATE_REFUND;
607: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
608: x_msg_count := l_msg_count ;
609: x_msg_data := l_msg_data ;
610: Fnd_Msg_Pub.count_and_get(
611: p_count => x_msg_count
611: p_count => x_msg_count
612: ,p_data => x_msg_data);
613: WHEN OTHERS THEN
614: ROLLBACK TO CREATE_REFUND;
615: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
616: x_msg_count := l_msg_count ;
617: x_msg_data := l_msg_data ;
618: Fnd_Msg_Pub.ADD_EXC_MSG('OKL_PAY_CURE_REFUNDS_PVT','CREATE_REFUND');
619: Fnd_Msg_Pub.count_and_get(
630: l_id2 VARCHAR2(200);
631: l_rule_value VARCHAR2(2000);
632: l_days_allowed NUMBER :=0;
633: l_program_id okl_k_headers.khr_id%TYPE;
634: l_return_status VARCHAR2(1):= FND_API.G_RET_STS_SUCCESS;
635:
636: cursor c_program_id (p_contract_id IN NUMBER ) IS
637: select khr_id from okl_k_headers
638: where id= p_contract_id;
683: IF (G_DEBUG_ENABLED = 'Y') THEN
684: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
685: END IF;
686:
687: x_return_status := FND_API.G_RET_STS_SUCCESS;
688: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
689: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'Start of check_contract' );
690:
691: END IF;
801: IF c_getcontracts%NOTFOUND THEN
802: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
803: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'coming out from the cursor');
804: END IF;
805: x_return_status := FND_API.G_RET_STS_SUCCESS;
806: x_contract_number:=l_contract_number;
807: EXIT;
808: END IF;
809: okl_debug_pub.logmessage ('OKL_PAY_CURE_REFUNDS_PVT: check_contract : l_contract_id : '||l_contract_id);
826: ,x_value => l_rule_value);
827:
828: okl_debug_pub.logmessage ('OKL_PAY_CURE_REFUNDS_PVT: check_contract : okl_contract_info.get_rule_value : '||l_return_status);
829:
830: IF l_return_status =FND_Api.G_RET_STS_SUCCESS THEN
831: l_days_allowed :=nvl(l_rule_value,0);
832: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
833: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,
834: 'l_days allowed for days past due ' || l_days_allowed);
848: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
849: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'Contract' ||l_contract_number ||
850: ' is delinquent');
851: END IF;
852: x_return_status := FND_API.G_RET_STS_ERROR;
853: x_contract_number:=l_contract_number;
854: EXIT;
855: END IF;
856:
997: okl_debug_pub.logmessage ('OKL_PAY_CURE_REFUNDS_PVT: create_refund_hdr : START ');
998:
999: SAVEPOINT CREATE_REFUND_HDR;
1000: -- Initialize message list if p_init_msg_list is set to TRUE.
1001: IF FND_API.to_Boolean( p_init_msg_list )
1002: THEN
1003: FND_MSG_PUB.initialize;
1004: END IF;
1005:
1002: THEN
1003: FND_MSG_PUB.initialize;
1004: END IF;
1005:
1006: x_return_status := FND_API.G_RET_STS_SUCCESS;
1007:
1008: --duplicate refund_number check
1009: OPEN chk_refund_number(p_pay_cure_refunds_rec.refund_number);
1010: FETCH chk_refund_number INTO l_cure_refund_header_number;
1017: END IF;
1018: END IF;
1019: fnd_message.set_name('OKL', 'OKL_DUPLICATE_REFUND_NUMBER');
1020: fnd_msg_pub.add;
1021: RAISE FND_API.G_EXC_ERROR;
1022: END IF;
1023:
1024: okl_debug_pub.logmessage ('OKL_PAY_CURE_REFUNDS_PVT: create_refund_hdr : l_cure_refund_header_number : '||l_cure_refund_header_number);
1025:
1032: END IF;
1033: END IF;
1034: fnd_message.set_name('OKL', 'OKL_CURE_REFUND_EXCEEDS');
1035: fnd_msg_pub.add;
1036: RAISE FND_API.G_EXC_ERROR;
1037: END IF;
1038:
1039: IF PG_DEBUG < 11 THEN
1040: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1056: x_contract_number);
1057:
1058: okl_debug_pub.logmessage ('OKL_PAY_CURE_REFUNDS_PVT: create_refund_hdr : CHECK_CONTRACT : '||l_return_status);
1059:
1060: If l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1061: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1062: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Contract ' ||x_contract_number);
1063: END IF;
1064: fnd_message.set_name('OKL', 'OKL_CO_CONTRACT_DELINQUENT');
1063: END IF;
1064: fnd_message.set_name('OKL', 'OKL_CO_CONTRACT_DELINQUENT');
1065: fnd_message.set_token('CONTRACT_NUMBER', x_contract_number);
1066: fnd_msg_pub.add;
1067: raise FND_API.G_EXC_ERROR;
1068: END IF;
1069:
1070:
1071: --create hdr first
1112: ,x_chdv_rec => lx_chdv_rec);
1113:
1114: okl_debug_pub.logmessage ('OKL_PAY_CURE_REFUNDS_PVT: create_refund_hdr : OKL_cure_rfnd_hdr_pub.insert_cure_rfnd_hdr : '||l_return_status);
1115:
1116: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1117: Get_Messages (l_msg_count,l_message);
1118: IF PG_DEBUG < 11 THEN
1119: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1120: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error' ||l_message);
1119: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1120: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error' ||l_message);
1121: END IF;
1122: END IF;
1123: raise FND_API.G_EXC_ERROR;
1124: ELSE
1125: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1126: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'lx_chdv_rec.cure_refund_header_id'
1127: ||lx_chdv_rec.cure_refund_header_id);
1159: );
1160:
1161: okl_debug_pub.logmessage ('OKL_PAY_CURE_REFUNDS_PVT: create_refund_hdr : create_refund : '||l_return_status);
1162:
1163: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1164: Get_Messages (l_msg_count,l_message);
1165: IF PG_DEBUG < 11 THEN
1166: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1167: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error' ||l_message);
1166: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1167: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error' ||l_message);
1168: END IF;
1169: END IF;
1170: raise FND_API.G_EXC_ERROR;
1171: ELSE
1172: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1173: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_cure_refund_id'
1174: ||l_cure_refund_id);
1180: END IF; -- table count of cure refunds is >0
1181:
1182:
1183: -- Standard check for p_commit
1184: IF FND_API.to_Boolean( p_commit )
1185: THEN
1186: COMMIT WORK;
1187: END IF;
1188:
1194: okl_debug_pub.logmessage ('OKL_PAY_CURE_REFUNDS_PVT: create_refund_hdr : END ');
1195:
1196: EXCEPTION
1197:
1198: WHEN Fnd_Api.G_EXC_ERROR THEN
1199: ROLLBACK TO CREATE_REFUND_HDR;
1200: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1201: x_msg_count := l_msg_count ;
1202: x_msg_data := l_msg_data ;
1196: EXCEPTION
1197:
1198: WHEN Fnd_Api.G_EXC_ERROR THEN
1199: ROLLBACK TO CREATE_REFUND_HDR;
1200: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1201: x_msg_count := l_msg_count ;
1202: x_msg_data := l_msg_data ;
1203: Fnd_Msg_Pub.count_and_get(
1204: p_count => x_msg_count
1202: x_msg_data := l_msg_data ;
1203: Fnd_Msg_Pub.count_and_get(
1204: p_count => x_msg_count
1205: ,p_data => x_msg_data);
1206: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
1207: ROLLBACK TO CREATE_REFUND_HDR;
1208: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1209: x_msg_count := l_msg_count ;
1210: x_msg_data := l_msg_data ;
1204: p_count => x_msg_count
1205: ,p_data => x_msg_data);
1206: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
1207: ROLLBACK TO CREATE_REFUND_HDR;
1208: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1209: x_msg_count := l_msg_count ;
1210: x_msg_data := l_msg_data ;
1211: Fnd_Msg_Pub.count_and_get(
1212: p_count => x_msg_count
1212: p_count => x_msg_count
1213: ,p_data => x_msg_data);
1214: WHEN OTHERS THEN
1215: ROLLBACK TO CREATE_REFUND_HDR;
1216: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1217: x_msg_count := l_msg_count ;
1218: x_msg_data := l_msg_data ;
1219: Fnd_Msg_Pub.ADD_EXC_MSG('OKL_PAY_CURE_REFUNDS_PVT','CREATE_REFUND_HDR');
1220: Fnd_Msg_Pub.count_and_get(
1270: okl_debug_pub.logmessage ('OKL_PAY_CURE_REFUNDS_PVT: update_refund_hdr : START ');
1271: SAVEPOINT UPDATE_REFUND_HDR;
1272:
1273: -- Initialize message list if p_init_msg_list is set to TRUE.
1274: IF FND_API.to_Boolean( p_init_msg_list )
1275: THEN
1276: FND_MSG_PUB.initialize;
1277: END IF;
1278: x_return_status := FND_API.G_RET_STS_SUCCESS;
1274: IF FND_API.to_Boolean( p_init_msg_list )
1275: THEN
1276: FND_MSG_PUB.initialize;
1277: END IF;
1278: x_return_status := FND_API.G_RET_STS_SUCCESS;
1279:
1280: --update tap and cure_refund_headers table
1281: FOR i in c_get_tap_ids (p_pay_cure_refunds_rec.refund_header_id)
1282: LOOP
1309: ,x_tapv_tbl => lx_tapv_tbl);
1310:
1311: okl_debug_pub.logmessage ('OKL_PAY_CURE_REFUNDS_PVT: update_refund_hdr : okl_trx_ap_invoices_pub.update_trx_ap_invoices : '||l_return_status);
1312:
1313: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1314: Get_Messages (l_msg_count,l_message);
1315: IF PG_DEBUG <11 THEN
1316: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1317: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error' ||l_message);
1316: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1317: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error' ||l_message);
1318: END IF;
1319: END IF;
1320: raise FND_API.G_EXC_ERROR;
1321: ELSE
1322: IF PG_DEBUG < 11 THEN
1323: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1324: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Succesfully updated tap records');
1346: ,x_crfv_tbl => lx_crfv_tbl);
1347:
1348: okl_debug_pub.logmessage ('OKL_PAY_CURE_REFUNDS_PVT: update_refund_hdr : OKL_cure_refunds_pub.update_cure_refunds : '||l_return_status);
1349:
1350: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1351: Get_Messages (l_msg_count,l_message);
1352: IF PG_DEBUG < 11 THEN
1353: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1354: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error' ||l_message);
1353: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1354: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error' ||l_message);
1355: END IF;
1356: END IF;
1357: raise FND_API.G_EXC_ERROR;
1358: ELSE
1359: IF PG_DEBUG < 11 THEN
1360: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1361: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Succesfully updated CRF records');
1392: ,x_chdv_rec => lx_chdv_rec);
1393:
1394: okl_debug_pub.logmessage ('OKL_PAY_CURE_REFUNDS_PVT: update_refund_hdr : OKL_cure_rfnd_hdr_pub.update_cure_rfnd_hdr : '||l_return_status);
1395:
1396: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1397: Get_Messages (l_msg_count,l_message);
1398: IF PG_DEBUG < 11 THEN
1399: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1400: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error' ||l_message);
1399: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1400: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error' ||l_message);
1401: END IF;
1402: END IF;
1403: raise FND_API.G_EXC_ERROR;
1404: ELSE
1405: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1406: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Successfully updated Cure refund '||
1407: 'header table');
1408:
1409: END IF;
1410: END IF;
1411:
1412: IF x_return_status =FND_API.G_RET_STS_SUCCESS THEN
1413: FND_MSG_PUB.initialize;
1414: END IF;
1415:
1416:
1414: END IF;
1415:
1416:
1417: -- Standard check for p_commit
1418: IF FND_API.to_Boolean( p_commit )
1419: THEN
1420: COMMIT WORK;
1421: END IF;
1422:
1428: okl_debug_pub.logmessage ('OKL_PAY_CURE_REFUNDS_PVT: update_refund_hdr : END ');
1429:
1430: EXCEPTION
1431:
1432: WHEN Fnd_Api.G_EXC_ERROR THEN
1433: ROLLBACK TO UPDATE_REFUND_HDR;
1434: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1435: x_msg_count := l_msg_count ;
1436: x_msg_data := l_msg_data ;
1430: EXCEPTION
1431:
1432: WHEN Fnd_Api.G_EXC_ERROR THEN
1433: ROLLBACK TO UPDATE_REFUND_HDR;
1434: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1435: x_msg_count := l_msg_count ;
1436: x_msg_data := l_msg_data ;
1437: Fnd_Msg_Pub.count_and_get(
1438: p_count => x_msg_count
1436: x_msg_data := l_msg_data ;
1437: Fnd_Msg_Pub.count_and_get(
1438: p_count => x_msg_count
1439: ,p_data => x_msg_data);
1440: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
1441: ROLLBACK TO UPDATE_REFUND_HDR;
1442: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1443: x_msg_count := l_msg_count ;
1444: x_msg_data := l_msg_data ;
1438: p_count => x_msg_count
1439: ,p_data => x_msg_data);
1440: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
1441: ROLLBACK TO UPDATE_REFUND_HDR;
1442: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1443: x_msg_count := l_msg_count ;
1444: x_msg_data := l_msg_data ;
1445: Fnd_Msg_Pub.count_and_get(
1446: p_count => x_msg_count
1446: p_count => x_msg_count
1447: ,p_data => x_msg_data);
1448: WHEN OTHERS THEN
1449: ROLLBACK TO UPDATE_REFUND_HDR;
1450: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1451: x_msg_count := l_msg_count ;
1452: x_msg_data := l_msg_data ;
1453: Fnd_Msg_Pub.ADD_EXC_MSG('OKL_PAY_CURE_REFUNDS_PVT','UPDATE_REFUND_HDR');
1454: Fnd_Msg_Pub.count_and_get(
1507:
1508: SAVEPOINT DELETE_REFUND_HDR;
1509:
1510: -- Initialize message list if p_init_msg_list is set to TRUE.
1511: IF FND_API.to_Boolean( p_init_msg_list )
1512: THEN
1513: FND_MSG_PUB.initialize;
1514: END IF;
1515:
1512: THEN
1513: FND_MSG_PUB.initialize;
1514: END IF;
1515:
1516: x_return_status := FND_API.G_RET_STS_SUCCESS;
1517:
1518: IF (p_refund_header_id IS NULL) THEN
1519: AddMissingArgMsg(
1520: p_api_name => l_api_name_full,
1518: IF (p_refund_header_id IS NULL) THEN
1519: AddMissingArgMsg(
1520: p_api_name => l_api_name_full,
1521: p_param_name => 'cure_refund_header_id' );
1522: RAISE FND_API.G_EXC_ERROR;
1523: END IF;
1524:
1525:
1526: --update tap and cure_refund_headers table
1549: ,p_tapv_tbl => lp_tapv_tbl);
1550:
1551: okl_debug_pub.logmessage ('OKL_PAY_CURE_REFUNDS_PVT: delete_refund_hdr : okl_trx_ap_invoices_pub.delete_trx_ap_invoices : '||l_return_status);
1552:
1553: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1554: Get_Messages (l_msg_count,l_message);
1555: IF PG_DEBUG <11 THEN
1556: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1557: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error' ||l_message);
1556: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1557: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error' ||l_message);
1558: END IF;
1559: END IF;
1560: raise FND_API.G_EXC_ERROR;
1561: ELSE
1562: IF PG_DEBUG < 11 THEN
1563: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1564: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Succesfully deleted tap records');
1583: ,p_tplv_tbl => lp_tplv_tbl);
1584:
1585: okl_debug_pub.logmessage ('OKL_PAY_CURE_REFUNDS_PVT: delete_refund_hdr : okl_txl_ap_inv_lns_pub.delete_txl_ap_inv_lns : '||l_return_status);
1586:
1587: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1588: Get_Messages (l_msg_count,l_message);
1589: IF PG_DEBUG <11 THEN
1590: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1591: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error' ||l_message);
1590: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1591: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error' ||l_message);
1592: END IF;
1593: END IF;
1594: raise FND_API.G_EXC_ERROR;
1595: ELSE
1596: IF PG_DEBUG < 11 THEN
1597: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1598: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Succesfully deleted tap records');
1616: ,x_msg_data => l_msg_data
1617: ,p_crfv_tbl => lp_crfv_tbl);
1618: okl_debug_pub.logmessage ('OKL_PAY_CURE_REFUNDS_PVT: delete_refund_hdr : OKL_cure_refunds_pub.delete_cure_refunds : '||l_return_status);
1619:
1620: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1621: Get_Messages (l_msg_count,l_message);
1622: IF PG_DEBUG < 11 THEN
1623: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1624: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error' ||l_message);
1623: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1624: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error' ||l_message);
1625: END IF;
1626: END IF;
1627: raise FND_API.G_EXC_ERROR;
1628: ELSE
1629: IF PG_DEBUG < 11 THEN
1630: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1631: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Succesfully deleted CRF records');
1658: ,p_chdv_rec => lp_chdv_rec);
1659:
1660: okl_debug_pub.logmessage ('OKL_PAY_CURE_REFUNDS_PVT: delete_refund_hdr : OKL_cure_rfnd_hdr_pub.delete_cure_rfnd_hdr : '||l_return_status);
1661:
1662: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1663: Get_Messages (l_msg_count,l_message);
1664: IF PG_DEBUG < 11 THEN
1665: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1666: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error' ||l_message);
1665: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1666: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error' ||l_message);
1667: END IF;
1668: END IF;
1669: raise FND_API.G_EXC_ERROR;
1670: ELSE
1671: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1672: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Successfully deleted Cure refund '||
1673: 'header table');
1675: END IF;
1676: END IF;
1677:
1678:
1679: IF x_return_status =FND_API.G_RET_STS_SUCCESS THEN
1680: FND_MSG_PUB.initialize;
1681: END IF;
1682:
1683:
1681: END IF;
1682:
1683:
1684: -- Standard check for p_commit
1685: IF FND_API.to_Boolean( p_commit )
1686: THEN
1687: COMMIT WORK;
1688: END IF;
1689:
1694:
1695: okl_debug_pub.logmessage ('OKL_PAY_CURE_REFUNDS_PVT: delete_refund_hdr : END ');
1696: EXCEPTION
1697:
1698: WHEN Fnd_Api.G_EXC_ERROR THEN
1699: ROLLBACK TO DELETE_REFUND_HDR;
1700: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1701: x_msg_count := l_msg_count ;
1702: x_msg_data := l_msg_data ;
1696: EXCEPTION
1697:
1698: WHEN Fnd_Api.G_EXC_ERROR THEN
1699: ROLLBACK TO DELETE_REFUND_HDR;
1700: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1701: x_msg_count := l_msg_count ;
1702: x_msg_data := l_msg_data ;
1703: Fnd_Msg_Pub.count_and_get(
1704: p_count => x_msg_count
1702: x_msg_data := l_msg_data ;
1703: Fnd_Msg_Pub.count_and_get(
1704: p_count => x_msg_count
1705: ,p_data => x_msg_data);
1706: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
1707: ROLLBACK TO DELETE_REFUND_HDR;
1708: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1709: x_msg_count := l_msg_count ;
1710: x_msg_data := l_msg_data ;
1704: p_count => x_msg_count
1705: ,p_data => x_msg_data);
1706: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
1707: ROLLBACK TO DELETE_REFUND_HDR;
1708: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1709: x_msg_count := l_msg_count ;
1710: x_msg_data := l_msg_data ;
1711: Fnd_Msg_Pub.count_and_get(
1712: p_count => x_msg_count
1712: p_count => x_msg_count
1713: ,p_data => x_msg_data);
1714: WHEN OTHERS THEN
1715: ROLLBACK TO DELETE_REFUND_HDR;
1716: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1717: x_msg_count := l_msg_count ;
1718: x_msg_data := l_msg_data ;
1719: Fnd_Msg_Pub.ADD_EXC_MSG('OKL_PAY_CURE_REFUNDS_PVT','DELETE_REFUND_HDR');
1720: Fnd_Msg_Pub.count_and_get(
1830: l_factoring_synd VARCHAR2(30);
1831: l_syndication_code VARCHAR2(30) DEFAULT NULL;
1832: l_factoring_code VARCHAR2(30) DEFAULT NULL;
1833:
1834: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1835: l_msg_count NUMBER ;
1836: l_msg_data VARCHAR2(32627);
1837: l_message VARCHAR2(32627);
1838: l_api_name CONSTANT VARCHAR2(50) := 'CREATE_TAI_ACCOUNTING';
1854: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1855: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'start CREATE_TAI_ACCOUNTING');
1856:
1857: END IF;
1858: x_return_status := FND_API.G_RET_STS_SUCCESS;
1859:
1860:
1861: FOR j in c_get_accounting(p_cure_refund_header_id)
1862: LOOP
1867: l_scs_code := i.scs_code;
1868: IF l_tmpl_identify_tbl(1).product_id IS NULL THEN
1869: OKL_API.SET_MESSAGE (p_app_name => 'OKL',
1870: p_msg_name => 'OKL_NO_PRODUCT_FOUND');
1871: raise FND_API.G_EXC_ERROR;
1872: END IF;
1873: IF PG_DEBUG < 11 THEN
1874: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1875: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'product_id '
1970: x_return_status => l_return_status);
1971:
1972: l_acc_gen_primary_key_tbl(1).source_id := j.txd_id; -- cklee 06/29/07
1973:
1974: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1975: raise FND_API.G_EXC_ERROR;
1976: ELSE
1977: FND_MSG_PUB.initialize;
1978: IF PG_DEBUG < 11 THEN
1971:
1972: l_acc_gen_primary_key_tbl(1).source_id := j.txd_id; -- cklee 06/29/07
1973:
1974: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1975: raise FND_API.G_EXC_ERROR;
1976: ELSE
1977: FND_MSG_PUB.initialize;
1978: IF PG_DEBUG < 11 THEN
1979: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2061: -- R12 CHANGE - END
2062:
2063: okl_debug_pub.logmessage ('OKL_PAY_CURE_REFUNDS_PVT: CREATE_TAI_ACCOUNTING : okl_account_dist_pvt.create_accounting_dist : '||l_return_status);
2064:
2065: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2066: Get_Messages (l_msg_count,l_message);
2067: IF PG_DEBUG < 11 THEN
2068: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2069: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error' ||l_message);
2068: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2069: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error' ||l_message);
2070: END IF;
2071: END IF;
2072: raise FND_API.G_EXC_ERROR;
2073: ELSE
2074: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2075: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'count of l_template_tbl'||l_template_tbl.count);
2076: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'count of l_amount_tbl'||l_amount_tbl.count);
2097:
2098: okl_debug_pub.logmessage ('OKL_PAY_CURE_REFUNDS_PVT: CREATE_TAI_ACCOUNTING : END ');
2099:
2100: EXCEPTION
2101: WHEN Fnd_Api.G_EXC_ERROR THEN
2102: ROLLBACK TO CREATE_TAI_ACCOUNTING;
2103: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2104: x_msg_count := l_msg_count ;
2105: x_msg_data := l_msg_data ;
2099:
2100: EXCEPTION
2101: WHEN Fnd_Api.G_EXC_ERROR THEN
2102: ROLLBACK TO CREATE_TAI_ACCOUNTING;
2103: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2104: x_msg_count := l_msg_count ;
2105: x_msg_data := l_msg_data ;
2106: Fnd_Msg_Pub.count_and_get(
2107: p_count => x_msg_count
2105: x_msg_data := l_msg_data ;
2106: Fnd_Msg_Pub.count_and_get(
2107: p_count => x_msg_count
2108: ,p_data => x_msg_data);
2109: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
2110: ROLLBACK TO CREATE_TAI_ACCOUNTING;
2111: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2112: x_msg_count := l_msg_count ;
2113: x_msg_data := l_msg_data ;
2107: p_count => x_msg_count
2108: ,p_data => x_msg_data);
2109: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
2110: ROLLBACK TO CREATE_TAI_ACCOUNTING;
2111: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2112: x_msg_count := l_msg_count ;
2113: x_msg_data := l_msg_data ;
2114: Fnd_Msg_Pub.count_and_get(
2115: p_count => x_msg_count
2115: p_count => x_msg_count
2116: ,p_data => x_msg_data);
2117: WHEN OTHERS THEN
2118: ROLLBACK TO CREATE_TAI_ACCOUNTING;
2119: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2120: x_msg_count := l_msg_count ;
2121: x_msg_data := l_msg_data ;
2122: Fnd_Msg_Pub.ADD_EXC_MSG('OKL_RECON_PVT','CREATE_TAI_ACCOUNTING');
2123: Fnd_Msg_Pub.count_and_get(
2246: okl_debug_pub.logmessage ('OKL_PAY_CURE_REFUNDS_PVT: submit_cure_refund_hdr : START ');
2247: SAVEPOINT SUBMIT_CURE_REFUND_HDR;
2248:
2249: -- Initialize message list if p_init_msg_list is set to TRUE.
2250: IF FND_API.to_Boolean( p_init_msg_list )
2251: THEN
2252: FND_MSG_PUB.initialize;
2253: END IF;
2254:
2251: THEN
2252: FND_MSG_PUB.initialize;
2253: END IF;
2254:
2255: x_return_status := FND_API.G_RET_STS_SUCCESS;
2256:
2257: IF (p_refund_header_id IS NULL) THEN
2258: AddMissingArgMsg(
2259: p_api_name => l_api_name_full,
2257: IF (p_refund_header_id IS NULL) THEN
2258: AddMissingArgMsg(
2259: p_api_name => l_api_name_full,
2260: p_param_name => 'cure_refund_header_id' );
2261: RAISE FND_API.G_EXC_ERROR;
2262: END IF;
2263:
2264:
2265: FOR i in c_get_tap_ids (p_refund_header_id)
2299: ,x_tapv_tbl => lx_tapv_tbl);
2300:
2301: okl_debug_pub.logmessage ('OKL_PAY_CURE_REFUNDS_PVT: submit_cure_refund_hdr : okl_trx_ap_invoices_pub.update_trx_ap_invoices : '||l_return_status);
2302:
2303: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2304: Get_Messages (l_msg_count,l_message);
2305: IF PG_DEBUG <11 THEN
2306: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2307: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error' ||l_message);
2306: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2307: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error' ||l_message);
2308: END IF;
2309: END IF;
2310: raise FND_API.G_EXC_ERROR;
2311: ELSE
2312: IF PG_DEBUG < 11 THEN
2313: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2314: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Succesfully updated tap records');
2345: -- ASHIM CHANGE - END
2346:
2347:
2348:
2349: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2350: Get_Messages (l_msg_count,l_message);
2351: IF PG_DEBUG <11 THEN
2352: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2353: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error' ||l_message);
2352: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2353: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error' ||l_message);
2354: END IF;
2355: END IF;
2356: raise FND_API.G_EXC_ERROR;
2357: ELSE
2358: IF PG_DEBUG < 11 THEN
2359: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2360: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Succesfully updated tai records');
2383: ,x_crsv_tbl => xp_crsv_tbl);
2384:
2385: okl_debug_pub.logmessage ('OKL_PAY_CURE_REFUNDS_PVT: submit_cure_refund_hdr : OKL_cure_rfnd_stage_pub.update_cure_refunds : '||l_return_status);
2386:
2387: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2388: Get_Messages (l_msg_count,l_message);
2389: IF PG_DEBUG < 11 THEN
2390: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2391: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error' ||l_message);
2390: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2391: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error' ||l_message);
2392: END IF;
2393: END IF;
2394: raise FND_API.G_EXC_ERROR;
2395: ELSE
2396: IF PG_DEBUG < 11 THEN
2397: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2398: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Success -updated cure refund stage' );
2485: ,p_trx_date => j.date_invoiced
2486: ,x_fact_synd_code => l_fact_synd_code
2487: ,x_inv_acct_code => l_inv_acct_code);
2488:
2489: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2490: Get_Messages (l_msg_count,l_message);
2491: IF PG_DEBUG < 11 THEN
2492: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2493: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error' ||l_message);
2492: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2493: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error' ||l_message);
2494: END IF;
2495: END IF;
2496: raise FND_API.G_EXC_ERROR;
2497: ELSE
2498: IF PG_DEBUG < 11 THEN
2499: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2500: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Success -Okl_Securitization_Pvt.check_khr_ia_associated' );
2544: p_contract_line_id => NULL,
2545: x_acc_gen_tbl => l_acc_gen_primary_key_tbl(1).acc_gen_key_tbl,
2546: x_return_status => l_return_status);
2547:
2548: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2549: raise FND_API.G_EXC_ERROR;
2550: ELSE
2551: FND_MSG_PUB.initialize;
2552: IF PG_DEBUG < 11 THEN
2545: x_acc_gen_tbl => l_acc_gen_primary_key_tbl(1).acc_gen_key_tbl,
2546: x_return_status => l_return_status);
2547:
2548: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2549: raise FND_API.G_EXC_ERROR;
2550: ELSE
2551: FND_MSG_PUB.initialize;
2552: IF PG_DEBUG < 11 THEN
2553: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2604: --end: 06/04/07 cklee
2605: -- R12 CHANGE - END
2606: okl_debug_pub.logmessage ('OKL_PAY_CURE_REFUNDS_PVT: submit_cure_refund_hdr : okl_account_dist_pvt.create_accounting_dist : '||l_return_status);
2607:
2608: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2609: Get_Messages (l_msg_count,l_message);
2610: IF PG_DEBUG < 11 THEN
2611: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2612: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error' ||l_message);
2611: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2612: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error' ||l_message);
2613: END IF;
2614: END IF;
2615: raise FND_API.G_EXC_ERROR;
2616: ELSE
2617: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2618: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'count of l_template_tbl for tap '||l_template_tbl.count);
2619: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'count of l_amount_tbl for tap '||l_amount_tbl.count);
2640:
2641: -- ASHIM CHANGE - END
2642:
2643:
2644: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2645: Get_Messages (l_msg_count,l_message);
2646: IF PG_DEBUG < 11 THEN
2647: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2648: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error' ||l_message);
2647: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2648: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error' ||l_message);
2649: END IF;
2650: END IF;
2651: raise FND_API.G_EXC_ERROR;
2652: ELSE
2653: IF PG_DEBUG < 11 THEN
2654: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2655: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Success -created accounting for tai records');
2688: ,x_chdv_rec => lx_chdv_rec);
2689:
2690: okl_debug_pub.logmessage ('OKL_PAY_CURE_REFUNDS_PVT: submit_cure_refund_hdr : OKL_cure_rfnd_hdr_pub.update_cure_rfnd_hdr : '||l_return_status);
2691:
2692: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2693: Get_Messages (l_msg_count,l_message);
2694: IF PG_DEBUG < 11 THEN
2695: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2696: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error' ||l_message);
2695: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2696: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error' ||l_message);
2697: END IF;
2698: END IF;
2699: raise FND_API.G_EXC_ERROR;
2700: ELSE
2701: IF PG_DEBUG < 11 THEN
2702: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2703: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Successfully updated Cure refund '||
2707:
2708: END IF;
2709:
2710:
2711: IF x_return_status =FND_API.G_RET_STS_SUCCESS THEN
2712: FND_MSG_PUB.initialize;
2713: END IF;
2714:
2715:
2713: END IF;
2714:
2715:
2716: -- Standard check for p_commit
2717: IF FND_API.to_Boolean( p_commit )
2718: THEN
2719: COMMIT WORK;
2720: END IF;
2721:
2726:
2727: okl_debug_pub.logmessage ('OKL_PAY_CURE_REFUNDS_PVT: submit_cure_refund_hdr : END ');
2728: EXCEPTION
2729:
2730: WHEN Fnd_Api.G_EXC_ERROR THEN
2731: ROLLBACK TO SUBMIT_CURE_REFUND_HDR;
2732: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2733: x_msg_count := l_msg_count ;
2734: x_msg_data := l_msg_data ;
2728: EXCEPTION
2729:
2730: WHEN Fnd_Api.G_EXC_ERROR THEN
2731: ROLLBACK TO SUBMIT_CURE_REFUND_HDR;
2732: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2733: x_msg_count := l_msg_count ;
2734: x_msg_data := l_msg_data ;
2735: Fnd_Msg_Pub.count_and_get(
2736: p_count => x_msg_count
2734: x_msg_data := l_msg_data ;
2735: Fnd_Msg_Pub.count_and_get(
2736: p_count => x_msg_count
2737: ,p_data => x_msg_data);
2738: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
2739: ROLLBACK TO SUBMIT_CURE_REFUND_HDR;
2740: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2741: x_msg_count := l_msg_count ;
2742: x_msg_data := l_msg_data ;
2736: p_count => x_msg_count
2737: ,p_data => x_msg_data);
2738: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
2739: ROLLBACK TO SUBMIT_CURE_REFUND_HDR;
2740: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2741: x_msg_count := l_msg_count ;
2742: x_msg_data := l_msg_data ;
2743: Fnd_Msg_Pub.count_and_get(
2744: p_count => x_msg_count
2744: p_count => x_msg_count
2745: ,p_data => x_msg_data);
2746: WHEN OTHERS THEN
2747: ROLLBACK TO SUBMIT_CURE_REFUND_HDR;
2748: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2749: x_msg_count := l_msg_count ;
2750: x_msg_data := l_msg_data ;
2751: Fnd_Msg_Pub.ADD_EXC_MSG('OKL_PAY_CURE_REFUNDS_PVT','SUBMIT_CURE_REFUND_HDR');
2752: Fnd_Msg_Pub.count_and_get(
2813: IF (G_DEBUG_ENABLED = 'Y') THEN
2814: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
2815: END IF;
2816:
2817: x_return_status := FND_API.G_RET_STS_SUCCESS;
2818: SAVEPOINT GET_ROLE;
2819:
2820: FOR i in c_vendor_info(p_refund_header_id)
2821: LOOP
2835: --set error stack
2836: IF l_email is NULL THEN
2837: fnd_message.set_name('OKL', 'OKL_MISSING_EMAIL_ID');
2838: fnd_msg_pub.add;
2839: RAISE FND_API.G_EXC_ERROR;
2840: END IF;
2841:
2842: -- check if role exists, otherwise create a new role
2843: -- wf_local_roles using WF_DIRECTORY.CreateAdHocRole
2876: p_data => x_msg_data
2877: );
2878:
2879: EXCEPTION
2880: WHEN Fnd_Api.G_EXC_ERROR THEN
2881: ROLLBACK TO GET_ROLE;
2882: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2883: x_msg_count := l_msg_count ;
2884: x_msg_data := l_msg_data ;
2878:
2879: EXCEPTION
2880: WHEN Fnd_Api.G_EXC_ERROR THEN
2881: ROLLBACK TO GET_ROLE;
2882: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2883: x_msg_count := l_msg_count ;
2884: x_msg_data := l_msg_data ;
2885: Fnd_Msg_Pub.count_and_get(
2886: p_count => x_msg_count
2887: ,p_data => x_msg_data);
2888:
2889: WHEN OTHERS THEN
2890: ROLLBACK TO GET_ROLE;
2891: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2892: x_msg_count := l_msg_count ;
2893: x_msg_data := l_msg_data ;
2894: Fnd_Msg_Pub.ADD_EXC_MSG('OKL_PAY_CURE_REFUNDS_PVT','GET_ROLE');
2895: Fnd_Msg_Pub.count_and_get(
2960: IF (G_DEBUG_ENABLED = 'Y') THEN
2961: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
2962: END IF;
2963:
2964: x_return_status := FND_API.G_RET_STS_SUCCESS;
2965: --set error message,so this will be prefixed before the
2966: --actual message, so it makes more sense than displaying an
2967: -- OKL message.
2968: /*AddfailMsg(
3043: ,x_msg_count =>l_msg_count
3044: ,x_msg_data =>l_msg_data);
3045:
3046:
3047: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3048: Get_Messages (l_msg_count,l_message);
3049: IF PG_DEBUG < 11 THEN
3050: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3051: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error' ||l_message);
3050: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3051: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error' ||l_message);
3052: END IF;
3053: END IF;
3054: raise FND_API.G_EXC_ERROR;
3055: END IF;
3056: END IF;
3057:
3058: --set Attribute
3089: p_data => x_msg_data
3090: );
3091: okl_debug_pub.logmessage ('OKL_PAY_CURE_REFUNDS_PVT: invoke_refund_wf : END ');
3092: EXCEPTION
3093: WHEN Fnd_Api.G_EXC_ERROR THEN
3094: okl_debug_pub.logmessage ('OKL_PAY_CURE_REFUNDS_PVT: invoke_refund_wf : Fnd_Api.G_EXC_ERROR ');
3095: ROLLBACK TO INVOKE_REFUND_WF;
3096: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3097: x_msg_count := l_msg_count ;
3090: );
3091: okl_debug_pub.logmessage ('OKL_PAY_CURE_REFUNDS_PVT: invoke_refund_wf : END ');
3092: EXCEPTION
3093: WHEN Fnd_Api.G_EXC_ERROR THEN
3094: okl_debug_pub.logmessage ('OKL_PAY_CURE_REFUNDS_PVT: invoke_refund_wf : Fnd_Api.G_EXC_ERROR ');
3095: ROLLBACK TO INVOKE_REFUND_WF;
3096: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3097: x_msg_count := l_msg_count ;
3098: x_msg_data := l_msg_data ;
3092: EXCEPTION
3093: WHEN Fnd_Api.G_EXC_ERROR THEN
3094: okl_debug_pub.logmessage ('OKL_PAY_CURE_REFUNDS_PVT: invoke_refund_wf : Fnd_Api.G_EXC_ERROR ');
3095: ROLLBACK TO INVOKE_REFUND_WF;
3096: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3097: x_msg_count := l_msg_count ;
3098: x_msg_data := l_msg_data ;
3099: Fnd_Msg_Pub.count_and_get(
3100: p_count => x_msg_count
3102:
3103: WHEN OTHERS THEN
3104: okl_debug_pub.logmessage ('OKL_PAY_CURE_REFUNDS_PVT: invoke_refund_wf : OTHERS ');
3105: ROLLBACK TO INVOKE_REFUND_WF;
3106: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3107: x_msg_count := l_msg_count ;
3108: x_msg_data := l_msg_data ;
3109: Fnd_Msg_Pub.ADD_EXC_MSG('OKL_PAY_CURE_REFUNDS_PVT','INVOKE_REFUND_WF');
3110: Fnd_Msg_Pub.count_and_get(
3190: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3191: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_tldv_rec.id :'||p_tldv_rec.id);
3192: END IF;
3193: -- Check for call compatibility
3194: IF (NOT FND_API.Compatible_API_Call (l_api_version,
3195: p_api_version,
3196: l_api_name,
3197: G_PKG_NAME ))
3198: THEN
3199: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3200: END IF;
3201:
3202: -- Initialize message list if requested
3203: IF (FND_API.to_Boolean(p_init_msg_list)) THEN
3204: FND_MSG_PUB.initialize;
3205: END IF;
3206:
3207: -- Initialize API status to success
3427: -- Initialize message list if p_init_msg_list is set to TRUE.
3428: FND_MSG_PUB.initialize;
3429:
3430:
3431: x_return_status := FND_API.G_RET_STS_SUCCESS;
3432:
3433: /**logic
3434: 1) create tai * TIL
3435: **/
3457: p_app_name => 'OKL',
3458: p_msg_name => 'OKL_REQUIRED_VALUE',
3459: p_token1 => 'COL_NAME',
3460: p_token1_value => 'Transaction Type');
3461: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3462: END IF;
3463:
3464: /*
3465: OPEN get_sty_id;
3483: p_app_name => 'OKL',
3484: p_msg_name => 'OKL_REQUIRED_VALUE',
3485: p_token1 => 'COL_NAME',
3486: p_token1_value => 'Transaction Type');
3487: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3488: END IF;
3489: okl_debug_pub.logmessage ('OKL_PAY_CURE_REFUNDS_PVT: create_credit_memo : lp_tilv_rec.sty_id : '||lp_tilv_rec.sty_id);
3490: -- need to populate 4 fields. so that cure invoice gets
3491: --generated for vendor and not for the customer
3500: p_app_name => 'OKL',
3501: p_msg_name => 'OKL_REQUIRED_VALUE',
3502: p_token1 => 'COL_NAME',
3503: p_token1_value => 'Vendor Program');
3504: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3505: END IF;
3506: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3507: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'program Id' ||l_program_id);
3508:
3522: p_app_name => 'OKL',
3523: p_msg_name => 'OKL_REQUIRED_VALUE',
3524: p_token1 => 'COL_NAME',
3525: p_token1_value => 'Bill To Address Id');
3526: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3527: END IF;
3528: l_btc_id :=l_bill_to_address_id;
3529: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3530: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Bill to address id from rule is ' || l_btc_id);
3542: lp_taiv_rec.ixx_id := l_site_use_rec.cust_account_id;
3543: lp_taiv_rec.irt_id := l_site_use_rec.payment_term_id;
3544:
3545: IF lp_taiv_rec.irt_id IS NULL
3546: OR lp_taiv_rec.irt_id = FND_API.G_MISS_NUM THEN
3547: OPEN l_std_terms_csr (
3548: l_site_use_rec.cust_account_id,
3549: l_btc_id);
3550: FETCH l_std_terms_csr INTO lp_taiv_rec.irt_id;
3552: END IF;
3553:
3554:
3555: IF lp_taiv_rec.ixx_id IS NULL
3556: OR lp_taiv_rec.ixx_id = FND_API.G_MISS_NUM THEN
3557: OKL_API.SET_MESSAGE (
3558: p_app_name => 'OKL',
3559: p_msg_name => 'OKL_REQUIRED_VALUE',
3560: p_token1 => 'COL_NAME',
3558: p_app_name => 'OKL',
3559: p_msg_name => 'OKL_REQUIRED_VALUE',
3560: p_token1 => 'COL_NAME',
3561: p_token1_value => 'Customer Account Id');
3562: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3563: END IF;
3564:
3565: IF lp_taiv_rec.ibt_id IS NULL
3566: OR lp_taiv_rec.ibt_id = FND_API.G_MISS_NUM THEN
3562: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3563: END IF;
3564:
3565: IF lp_taiv_rec.ibt_id IS NULL
3566: OR lp_taiv_rec.ibt_id = FND_API.G_MISS_NUM THEN
3567: OKL_API.SET_MESSAGE (
3568: p_app_name => 'OKL',
3569: p_msg_name => 'OKL_REQUIRED_VALUE',
3570: p_token1 => 'COL_NAME',
3568: p_app_name => 'OKL',
3569: p_msg_name => 'OKL_REQUIRED_VALUE',
3570: p_token1 => 'COL_NAME',
3571: p_token1_value => 'Bill To Address Id');
3572: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3573: END IF;
3574:
3575: IF lp_taiv_rec.irt_id IS NULL
3576: OR lp_taiv_rec.irt_id = FND_API.G_MISS_NUM THEN
3572: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3573: END IF;
3574:
3575: IF lp_taiv_rec.irt_id IS NULL
3576: OR lp_taiv_rec.irt_id = FND_API.G_MISS_NUM THEN
3577: OKL_API.SET_MESSAGE (
3578: p_app_name => 'OKL',
3579: p_msg_name => 'OKL_REQUIRED_VALUE',
3580: p_token1 => 'COL_NAME',
3578: p_app_name => 'OKL',
3579: p_msg_name => 'OKL_REQUIRED_VALUE',
3580: p_token1 => 'COL_NAME',
3581: p_token1_value => 'Payment Term Id');
3582: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3583: END IF;
3584:
3585:
3586: l_rule_value := NULL;
3596: ,x_id2 => l_id2
3597: ,x_value => l_rule_value);
3598:
3599: okl_debug_pub.logmessage ('OKL_PAY_CURE_REFUNDS_PVT: create_credit_memo : okl_contract_info.get_rule_value : '||l_return_status);
3600: if l_return_status =FND_Api.G_RET_STS_SUCCESS
3601: and l_id1 IS NOT NULL THEN
3602: lp_taiv_rec.irm_id :=l_id1;
3603: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3604: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Payment method from rule is ' || l_id1);
3611: p_app_name => 'OKL',
3612: p_msg_name => 'OKL_REQUIRED_VALUE',
3613: p_token1 => 'COL_NAME',
3614: p_token1_value => 'Payment Method ');
3615: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3616: end if;
3617:
3618: OPEN l_rcpt_mthd_csr (l_id1);
3619: FETCH l_rcpt_mthd_csr INTO lp_taiv_rec.irm_id;
3619: FETCH l_rcpt_mthd_csr INTO lp_taiv_rec.irm_id;
3620: CLOSE l_rcpt_mthd_csr;
3621:
3622: IF lp_taiv_rec.irm_id IS NULL
3623: OR lp_taiv_rec.irm_id = FND_API.G_MISS_NUM THEN
3624: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3625: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'receipt method id is not found');
3626: END IF;
3627: OKL_API.SET_MESSAGE (
3628: p_app_name => 'OKL',
3629: p_msg_name => 'OKL_REQUIRED_VALUE',
3630: p_token1 => 'COL_NAME',
3631: p_token1_value => 'receipt method id ');
3632: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3633: END IF;
3634:
3635: lp_taiv_rec.object_version_number :=1;
3636: lp_taiv_rec.date_entered :=SYSDATE;
3676: x_taiv_rec => xp_taiv_rec);
3677:
3678: okl_debug_pub.logmessage ('OKL_PAY_CURE_REFUNDS_PVT: create_credit_memo : okl_trx_ar_invoices_pub.INSERT_trx_ar_invoices : '||l_return_status);
3679:
3680: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3681: Get_Messages (l_msg_count,l_message);
3682: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3683: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error in updating okl_trx_ar_invoices_b '
3684: ||l_message);
3682: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3683: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error in updating okl_trx_ar_invoices_b '
3684: ||l_message);
3685: END IF;
3686: raise FND_API.G_EXC_ERROR;
3687: ELSE
3688: FND_MSG_PUB.initialize;
3689: --INSERT okl_txl_ar_inv_lns
3690: --set error message,so this will be prefixed before the
3729: -- ASHIM CHANGE - END
3730:
3731:
3732:
3733: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3734: Get_Messages (l_msg_count,l_message);
3735: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3736: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error in updating okl_txl_ar_inv_lns '
3737: ||l_message);
3735: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3736: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error in updating okl_txl_ar_inv_lns '
3737: ||l_message);
3738: END IF;
3739: raise FND_API.G_EXC_ERROR;
3740: ELSE
3741: FND_MSG_PUB.initialize;
3742:
3743: -- R12 Change - START
3772: okl_debug_pub.logmessage ('OKL_PAY_CURE_REFUNDS_PVT: create_credit_memo : okl_internal_billing_pvt.Get_Invoice_format : '||l_return_status);
3773:
3774: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
3775: THEN
3776: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3777: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
3778: THEN
3779: RAISE Fnd_Api.G_EXC_ERROR;
3780: END IF;
3775: THEN
3776: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3777: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR)
3778: THEN
3779: RAISE Fnd_Api.G_EXC_ERROR;
3780: END IF;
3781:
3782: additional_tld_attr(
3783: p_api_version => 1.0,
3793: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3794: IF (l_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3795: x_return_status := l_return_status;
3796: END IF;
3797: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3798: END IF;
3799:
3800: okl_tld_pvt.insert_row(
3801: p_api_version => 1.0,
3811: IF (l_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
3812: IF (l_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3813: x_return_status := l_return_status;
3814: END IF;
3815: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3816: ELSE
3817: FND_MSG_PUB.initialize;
3818:
3819: END IF; -- for okl_txd_ar_ln_dtls
3849: ,x_msg_data => l_msg_data
3850: ,p_crfv_rec => lp_crfv_rec
3851: ,x_crfv_rec => lx_crfv_rec);
3852: okl_debug_pub.logmessage ('OKL_PAY_CURE_REFUNDS_PVT: create_credit_memo : OKL_cure_refunds_pub.update_cure_refunds : '||l_return_status);
3853: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3854: Get_Messages (l_msg_count,l_message);
3855: IF PG_DEBUG < 11 THEN
3856: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3857: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error' ||l_message);
3856: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3857: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error' ||l_message);
3858: END IF;
3859: END IF;
3860: raise FND_API.G_EXC_ERROR;
3861: ELSE
3862: IF PG_DEBUG < 11 THEN
3863: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3864: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Succesfully updated CRF records');
3866: END IF;
3867: FND_MSG_PUB.initialize;
3868: END IF;
3869:
3870: IF x_return_status =FND_API.G_RET_STS_SUCCESS THEN
3871: FND_MSG_PUB.initialize;
3872: END IF;
3873:
3874:
3878: );
3879:
3880: okl_debug_pub.logmessage ('OKL_PAY_CURE_REFUNDS_PVT: create_credit_memo : END ');
3881: EXCEPTION
3882: WHEN Fnd_Api.G_EXC_ERROR THEN
3883: ROLLBACK TO CREATE_CREDIT_MEMO;
3884: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3885: x_msg_count := l_msg_count ;
3886: x_msg_data := l_msg_data ;
3880: okl_debug_pub.logmessage ('OKL_PAY_CURE_REFUNDS_PVT: create_credit_memo : END ');
3881: EXCEPTION
3882: WHEN Fnd_Api.G_EXC_ERROR THEN
3883: ROLLBACK TO CREATE_CREDIT_MEMO;
3884: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3885: x_msg_count := l_msg_count ;
3886: x_msg_data := l_msg_data ;
3887: Fnd_Msg_Pub.count_and_get(
3888: p_count => x_msg_count
3886: x_msg_data := l_msg_data ;
3887: Fnd_Msg_Pub.count_and_get(
3888: p_count => x_msg_count
3889: ,p_data => x_msg_data);
3890: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
3891: ROLLBACK TO CREATE_CREDIT_MEMO;
3892: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3893: x_msg_count := l_msg_count ;
3894: x_msg_data := l_msg_data ;
3888: p_count => x_msg_count
3889: ,p_data => x_msg_data);
3890: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
3891: ROLLBACK TO CREATE_CREDIT_MEMO;
3892: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3893: x_msg_count := l_msg_count ;
3894: x_msg_data := l_msg_data ;
3895: Fnd_Msg_Pub.count_and_get(
3896: p_count => x_msg_count
3896: p_count => x_msg_count
3897: ,p_data => x_msg_data);
3898: WHEN OTHERS THEN
3899: ROLLBACK TO CREATE_CREDIT_MEMO;
3900: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3901: x_msg_count := l_msg_count ;
3902: x_msg_data := l_msg_data ;
3903: Fnd_Msg_Pub.ADD_EXC_MSG('OKL_PAY_CURE_REFUNDS_PVT','CREATE_CREDIT_MEMO');
3904: Fnd_Msg_Pub.count_and_get(
4018: SAVEPOINT CREATE_CUREREFUNDS;
4019: -- Initialize message list if p_init_msg_list is set to TRUE.
4020: FND_MSG_PUB.initialize;
4021:
4022: x_return_status := FND_API.G_RET_STS_SUCCESS;
4023:
4024: IF (p_refund_header_id IS NULL) THEN
4025: AddMissingArgMsg(
4026: p_api_name => l_api_name_full,
4024: IF (p_refund_header_id IS NULL) THEN
4025: AddMissingArgMsg(
4026: p_api_name => l_api_name_full,
4027: p_param_name => 'p_refund_header_id');
4028: RAISE FND_API.G_EXC_ERROR;
4029: ELSE
4030: IF PG_DEBUG < 11 THEN
4031: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4032: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'lp_tapv_rec.org_id '||
4067: IF (lp_tapv_rec.org_id IS NULL) THEN
4068: AddMissingArgMsg(
4069: p_api_name => l_api_name_full,
4070: p_param_name => 'org_id' );
4071: RAISE FND_API.G_EXC_ERROR;
4072: ELSE
4073: IF PG_DEBUG < 11 THEN
4074: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4075: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'lp_tapv_rec.org_id '||
4085: IF (lp_tapv_rec.set_of_books_id IS NULL) THEN
4086: AddMissingArgMsg(
4087: p_api_name => l_api_name_full,
4088: p_param_name => 'set_of_books_id' );
4089: RAISE FND_API.G_EXC_ERROR;
4090: ELSE
4091: IF PG_DEBUG < 11 THEN
4092: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4093: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'lp_tapv_rec.set_of_books_id'||
4104: IF (lp_tapv_rec.try_id IS NULL) THEN
4105: AddMissingArgMsg(
4106: p_api_name => l_api_name_full,
4107: p_param_name => 'try_id' );
4108: RAISE FND_API.G_EXC_ERROR;
4109: ELSE
4110: IF PG_DEBUG < 11 THEN
4111: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4112: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'lp_tapv_rec.try_id'||
4140: WHEN OTHERS THEN
4141: IF SQLCODE = 100 THEN
4142: fnd_message.set_name('OKL', 'OKL_PAY_INV_SEQ_CHECK');
4143: fnd_msg_pub.add;
4144: RAISE FND_API.G_EXC_ERROR;
4145: END IF;
4146: END;
4147:
4148: IF (lp_tapv_rec.invoice_number IS NULL) THEN
4148: IF (lp_tapv_rec.invoice_number IS NULL) THEN
4149: AddMissingArgMsg(
4150: p_api_name => l_api_name_full,
4151: p_param_name => 'invoice_number' );
4152: RAISE FND_API.G_EXC_ERROR;
4153: ELSE
4154: IF PG_DEBUG < 11 THEN
4155: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4156: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'lp_tapv_rec.invoice_number'||
4226: );
4227:
4228: lp_tplv_rec.sty_id := x_primary_sty_id;
4229:
4230: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4231: Get_Messages (l_msg_count,l_message);
4232: IF PG_DEBUG < 11 THEN
4233: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4234: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error' ||l_message);
4233: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4234: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error' ||l_message);
4235: END IF;
4236: END IF;
4237: raise FND_API.G_EXC_ERROR;
4238:
4239: ELSE
4240:
4241: IF PG_DEBUG < 11 THEN
4282: x_tapv_rec => lx_tapv_rec);
4283:
4284: okl_debug_pub.logmessage ('OKL_PAY_CURE_REFUNDS_PVT: CREATE_CUREREFUNDS : OKL_TRX_AP_INVOICES_PUB.INSERT_TRX_AP_INVOICES : '||x_return_status);
4285:
4286: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4287: Get_Messages (l_msg_count,l_message);
4288: IF PG_DEBUG <11 THEN
4289: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4290: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error' ||l_message);
4289: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4290: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error' ||l_message);
4291: END IF;
4292: END IF;
4293: raise FND_API.G_EXC_ERROR;
4294: ELSE
4295: IF PG_DEBUG < 11 THEN
4296: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4297: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'lx_tapv_rec.id'
4311: x_msg_data => x_msg_data,
4312: p_tplv_rec => lp_tplv_rec,
4313: x_tplv_rec => lx_tplv_rec);
4314: okl_debug_pub.logmessage ('OKL_PAY_CURE_REFUNDS_PVT: CREATE_CUREREFUNDS : OKL_TXL_AP_INV_LNS_PUB.INSERT_TXL_AP_INV_LNS : '||x_return_status);
4315: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4316: Get_Messages (l_msg_count,l_message);
4317: IF PG_DEBUG <11 THEN
4318: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4319: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error' ||l_message);
4318: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4319: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error' ||l_message);
4320: END IF;
4321: END IF;
4322: raise FND_API.G_EXC_ERROR;
4323: ELSE
4324: IF PG_DEBUG < 11 THEN
4325: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4326: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'lx_tplv_rec.id'
4354: ,x_msg_data => l_msg_data
4355: ,p_crfv_rec => lp_crfv_rec
4356: ,x_crfv_rec => lx_crfv_rec);
4357: okl_debug_pub.logmessage ('OKL_PAY_CURE_REFUNDS_PVT: CREATE_CUREREFUNDS : OKL_cure_refunds_pub.update_cure_refunds : '||x_return_status);
4358: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4359: Get_Messages (l_msg_count,l_message);
4360: IF PG_DEBUG < 11 THEN
4361: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4362: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error' ||l_message);
4361: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4362: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error' ||l_message);
4363: END IF;
4364: END IF;
4365: raise FND_API.G_EXC_ERROR;
4366: ELSE
4367: IF PG_DEBUG < 11 THEN
4368: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4369: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Succesfully updated CRF records');
4397:
4398: -- ASHIM CHANGE - END
4399:
4400:
4401: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4402: Get_Messages (l_msg_count,l_message);
4403: IF PG_DEBUG < 11 THEN
4404: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4405: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error' ||l_message);
4404: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4405: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error' ||l_message);
4406: END IF;
4407: END IF;
4408: raise FND_API.G_EXC_ERROR;
4409: ELSE
4410: IF PG_DEBUG < 11 THEN
4411: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4412: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Success ' );
4417: END IF; --offset contract
4418:
4419: END LOOP;
4420:
4421: IF x_return_status =FND_API.G_RET_STS_SUCCESS THEN
4422: FND_MSG_PUB.initialize;
4423: END IF;
4424:
4425: -- Standard check for p_commit
4422: FND_MSG_PUB.initialize;
4423: END IF;
4424:
4425: -- Standard check for p_commit
4426: IF FND_API.to_Boolean( p_commit ) THEN
4427: COMMIT WORK;
4428: END IF;
4429:
4430: FND_MSG_PUB.Count_And_Get
4433: );
4434:
4435: okl_debug_pub.logmessage ('OKL_PAY_CURE_REFUNDS_PVT: CREATE_CUREREFUNDS : END ');
4436: EXCEPTION
4437: WHEN Fnd_Api.G_EXC_ERROR THEN
4438: ROLLBACK TO CREATE_CUREREFUNDS;
4439: x_return_status := Fnd_Api.G_RET_STS_ERROR;
4440: x_msg_count := l_msg_count ;
4441: x_msg_data := l_msg_data ;
4435: okl_debug_pub.logmessage ('OKL_PAY_CURE_REFUNDS_PVT: CREATE_CUREREFUNDS : END ');
4436: EXCEPTION
4437: WHEN Fnd_Api.G_EXC_ERROR THEN
4438: ROLLBACK TO CREATE_CUREREFUNDS;
4439: x_return_status := Fnd_Api.G_RET_STS_ERROR;
4440: x_msg_count := l_msg_count ;
4441: x_msg_data := l_msg_data ;
4442: Fnd_Msg_Pub.count_and_get(
4443: p_count => x_msg_count
4441: x_msg_data := l_msg_data ;
4442: Fnd_Msg_Pub.count_and_get(
4443: p_count => x_msg_count
4444: ,p_data => x_msg_data);
4445: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
4446: ROLLBACK TO CREATE_CUREREFUNDS;
4447: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4448: x_msg_count := l_msg_count ;
4449: x_msg_data := l_msg_data ;
4443: p_count => x_msg_count
4444: ,p_data => x_msg_data);
4445: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
4446: ROLLBACK TO CREATE_CUREREFUNDS;
4447: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4448: x_msg_count := l_msg_count ;
4449: x_msg_data := l_msg_data ;
4450: Fnd_Msg_Pub.count_and_get(
4451: p_count => x_msg_count
4451: p_count => x_msg_count
4452: ,p_data => x_msg_data);
4453: WHEN OTHERS THEN
4454: ROLLBACK TO CREATE_CUREREFUNDS;
4455: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4456: x_msg_count := l_msg_count ;
4457: x_msg_data := l_msg_data ;
4458: Fnd_Msg_Pub.ADD_EXC_MSG('OKL_PAY_CURE_REFUNDS_PVT','CREATE_CUREREFUNDS');
4459: Fnd_Msg_Pub.count_and_get(
4505: BEGIN
4506: okl_debug_pub.logmessage ('OKL_PAY_CURE_REFUNDS_PVT: approve_cure_refunds : START ');
4507: SAVEPOINT APPROVE_CURE_REFUNDS_PVT;
4508: -- Initialize message list if p_init_msg_list is set to TRUE.
4509: IF FND_API.to_Boolean( p_init_msg_list )
4510: THEN
4511: FND_MSG_PUB.initialize;
4512: END IF;
4513:
4510: THEN
4511: FND_MSG_PUB.initialize;
4512: END IF;
4513:
4514: x_return_status := FND_API.G_RET_STS_SUCCESS;
4515:
4516: /*** Logic for refunds ********
4517: ** check if details exists before submitting
4518: ** check if refund_status ='ENTERED'
4543: END IF;
4544: fnd_message.set_name('OKL', 'OKL_CO_MISSING_REFUND_DETAILS');
4545: fnd_message.set_token('REFUND_NUMBER',l_refund_header_number);
4546: fnd_msg_pub.add;
4547: RAISE FND_API.G_EXC_ERROR;
4548: ELSE
4549: --check for refund header status
4550: IF l_refund_status <> 'IN_PROGRESS' THEN
4551: IF PG_DEBUG < 11 THEN
4555: END IF;
4556: fnd_message.set_name('OKL', 'OKL_CO_REFUND_STATUS');
4557: fnd_message.set_token('REFUND_NUMBER',l_refund_header_number);
4558: fnd_msg_pub.add;
4559: RAISE FND_API.G_EXC_ERROR;
4560: END IF; --refund_status check
4561: END IF; -- if details exists
4562: -- STEP 0
4563: --populate the ap invoice header table (okl_trx_ap_invoices_b)
4574: ,x_msg_count => l_msg_count
4575: ,x_msg_data => l_msg_data );
4576: okl_debug_pub.logmessage ('OKL_PAY_CURE_REFUNDS_PVT: approve_cure_refunds : create_curerefunds : '||l_return_status);
4577:
4578: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4579: Get_Messages (l_msg_count,l_message);
4580: IF PG_DEBUG < 11 THEN
4581: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4582: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error after calling WF' ||l_message);
4581: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4582: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error after calling WF' ||l_message);
4583: END IF;
4584: END IF;
4585: raise FND_API.G_EXC_ERROR;
4586: ELSE
4587: FND_MSG_PUB.initialize;
4588: END IF;
4589:
4594: ,x_msg_count => l_msg_count
4595: ,x_msg_data => l_msg_data );
4596:
4597: okl_debug_pub.logmessage ('OKL_PAY_CURE_REFUNDS_PVT: approve_cure_refunds : invoke_refund_wf : '||l_return_status);
4598: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4599: Get_Messages (l_msg_count,l_message);
4600: IF PG_DEBUG < 11 THEN
4601: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4602: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error after calling WF' ||l_message);
4601: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4602: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error after calling WF' ||l_message);
4603: END IF;
4604: END IF;
4605: raise FND_API.G_EXC_ERROR;
4606: ELSE
4607: FND_MSG_PUB.initialize;
4608: END IF;
4609:
4629: ,x_chdv_rec => lx_chdv_rec);
4630:
4631: okl_debug_pub.logmessage ('OKL_PAY_CURE_REFUNDS_PVT: approve_cure_refunds : OKL_cure_rfnd_hdr_pub.update_cure_rfnd_hdr : '||l_return_status);
4632:
4633: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4634: Get_Messages (l_msg_count,l_message);
4635: IF PG_DEBUG < 11 THEN
4636: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4637: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error after updating Refund header'
4637: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error after updating Refund header'
4638: ||l_message);
4639: END IF;
4640: END IF;
4641: raise FND_API.G_EXC_ERROR;
4642: ELSE
4643: IF PG_DEBUG < 11 THEN
4644: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4645: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Success -updated cure refund header' );
4649: END IF;
4650:
4651:
4652:
4653: IF x_return_status =FND_API.G_RET_STS_SUCCESS THEN
4654: FND_MSG_PUB.initialize;
4655: END IF;
4656:
4657: -- Standard check for p_commit
4654: FND_MSG_PUB.initialize;
4655: END IF;
4656:
4657: -- Standard check for p_commit
4658: IF FND_API.to_Boolean( p_commit )THEN
4659: COMMIT WORK;
4660: END IF;
4661:
4662: FND_MSG_PUB.Count_And_Get
4665: );
4666:
4667: okl_debug_pub.logmessage ('OKL_PAY_CURE_REFUNDS_PVT: approve_cure_refunds : END ');
4668: EXCEPTION
4669: WHEN Fnd_Api.G_EXC_ERROR THEN
4670: ROLLBACK TO APPROVE_CURE_REFUNDS_PVT;
4671: x_return_status := Fnd_Api.G_RET_STS_ERROR;
4672: x_msg_count := l_msg_count ;
4673: x_msg_data := l_msg_data ;
4667: okl_debug_pub.logmessage ('OKL_PAY_CURE_REFUNDS_PVT: approve_cure_refunds : END ');
4668: EXCEPTION
4669: WHEN Fnd_Api.G_EXC_ERROR THEN
4670: ROLLBACK TO APPROVE_CURE_REFUNDS_PVT;
4671: x_return_status := Fnd_Api.G_RET_STS_ERROR;
4672: x_msg_count := l_msg_count ;
4673: x_msg_data := l_msg_data ;
4674: Fnd_Msg_Pub.count_and_get(
4675: p_count => x_msg_count
4673: x_msg_data := l_msg_data ;
4674: Fnd_Msg_Pub.count_and_get(
4675: p_count => x_msg_count
4676: ,p_data => x_msg_data);
4677: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
4678: ROLLBACK TO APPROVE_CURE_REFUNDS_PVT;
4679: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4680: x_msg_count := l_msg_count ;
4681: x_msg_data := l_msg_data ;
4675: p_count => x_msg_count
4676: ,p_data => x_msg_data);
4677: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
4678: ROLLBACK TO APPROVE_CURE_REFUNDS_PVT;
4679: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4680: x_msg_count := l_msg_count ;
4681: x_msg_data := l_msg_data ;
4682: Fnd_Msg_Pub.count_and_get(
4683: p_count => x_msg_count
4683: p_count => x_msg_count
4684: ,p_data => x_msg_data);
4685: WHEN OTHERS THEN
4686: ROLLBACK TO APPROVE_CURE_REFUNDS;
4687: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4688: x_msg_count := l_msg_count ;
4689: x_msg_data := l_msg_data ;
4690: Fnd_Msg_Pub.ADD_EXC_MSG('OKL_PAY_CURE_REFUNDS_PVT','APPROVE_CURE_REFUNDS');
4691: Fnd_Msg_Pub.count_and_get(
4747: okl_debug_pub.logmessage ('OKL_PAY_CURE_REFUNDS_PVT: submit_cure_refunds : START ');
4748:
4749: SAVEPOINT SUBMIT_CURE_REFUNDS;
4750: -- Initialize message list if p_init_msg_list is set to TRUE.
4751: IF FND_API.to_Boolean( p_init_msg_list )
4752: THEN
4753: FND_MSG_PUB.initialize;
4754: END IF;
4755:
4764: ,x_msg_count => l_msg_count
4765: ,x_msg_data => l_msg_data);
4766: okl_debug_pub.logmessage ('OKL_PAY_CURE_REFUNDS_PVT: submit_cure_refunds : submit_cure_refund_hdr : '||l_return_status);
4767:
4768: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4769: Get_Messages (l_msg_count,l_message);
4770: IF PG_DEBUG < 11 THEN
4771: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4772: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error' ||l_message);
4771: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4772: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error' ||l_message);
4773: END IF;
4774: END IF;
4775: raise FND_API.G_EXC_ERROR;
4776: ELSE
4777: IF PG_DEBUG < 11 THEN
4778: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4779: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Success -updated TAP ' );
4834: ,x_msg_data => l_msg_data
4835: ,p_tapv_tbl => lp_tapv_tbl
4836: ,x_tapv_tbl => lx_tapv_tbl);
4837: okl_debug_pub.logmessage ('OKL_PAY_CURE_REFUNDS_PVT: submit_cure_refunds : okl_trx_ap_invoices_pub.update_trx_ap_invoices : '||l_return_status);
4838: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4839: Get_Messages (l_msg_count,l_message);
4840: IF PG_DEBUG <11 THEN
4841: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4842: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error' ||l_message);
4841: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4842: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error' ||l_message);
4843: END IF;
4844: END IF;
4845: raise FND_API.G_EXC_ERROR;
4846: ELSE
4847: IF PG_DEBUG < 11 THEN
4848: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4849: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Succesfully updated tap records');
4878: okl_debug_pub.logmessage ('OKL_PAY_CURE_REFUNDS_PVT: submit_cure_refunds : okl_trx_ar_invoices_pub.update_trx_ar_invoices : '||l_return_status);
4879: -- ASHIM CHANGE - END
4880:
4881:
4882: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4883: Get_Messages (l_msg_count,l_message);
4884: IF PG_DEBUG <11 THEN
4885: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4886: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error' ||l_message);
4885: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4886: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error' ||l_message);
4887: END IF;
4888: END IF;
4889: raise FND_API.G_EXC_ERROR;
4890: ELSE
4891: IF PG_DEBUG < 11 THEN
4892: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4893: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Succesfully updated tai records');
4913: ,x_msg_data => l_msg_data
4914: ,p_crsv_tbl => lp_crsv_tbl
4915: ,x_crsv_tbl => xp_crsv_tbl);
4916: okl_debug_pub.logmessage ('OKL_PAY_CURE_REFUNDS_PVT: submit_cure_refunds : OKL_cure_rfnd_stage_pub.update_cure_refunds : '||l_return_status);
4917: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4918: Get_Messages (l_msg_count,l_message);
4919: IF PG_DEBUG < 11 THEN
4920: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4921: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error' ||l_message);
4920: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4921: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error' ||l_message);
4922: END IF;
4923: END IF;
4924: raise FND_API.G_EXC_ERROR;
4925: ELSE
4926: IF PG_DEBUG < 11 THEN
4927: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4928: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Success -updated cure refund header' );
4959: ,x_chdv_rec => lx_chdv_rec);
4960:
4961: okl_debug_pub.logmessage ('OKL_PAY_CURE_REFUNDS_PVT: submit_cure_refunds : OKL_cure_rfnd_hdr_pub.update_cure_rfnd_hdr : '||l_return_status);
4962:
4963: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4964: Get_Messages (l_msg_count,l_message);
4965: IF PG_DEBUG < 11 THEN
4966: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4967: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error' ||l_message);
4966: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4967: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error' ||l_message);
4968: END IF;
4969: END IF;
4970: raise FND_API.G_EXC_ERROR;
4971: ELSE
4972: IF PG_DEBUG < 11 THEN
4973: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4974: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Success -updated cure refund header' );
4977: FND_MSG_PUB.initialize;
4978: END IF;
4979:
4980:
4981: IF x_return_status =FND_API.G_RET_STS_SUCCESS THEN
4982: FND_MSG_PUB.initialize;
4983: END IF;
4984:
4985:
4983: END IF;
4984:
4985:
4986: -- Standard check for p_commit
4987: IF FND_API.to_Boolean( p_commit )
4988: THEN
4989: COMMIT WORK;
4990: END IF;
4991:
4995: );
4996:
4997: okl_debug_pub.logmessage ('OKL_PAY_CURE_REFUNDS_PVT: submit_cure_refunds : END ');
4998: EXCEPTION
4999: WHEN Fnd_Api.G_EXC_ERROR THEN
5000: ROLLBACK TO SUBMIT_CURE_REFUNDS;
5001: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5002: x_msg_count := l_msg_count ;
5003: x_msg_data := l_msg_data ;
4997: okl_debug_pub.logmessage ('OKL_PAY_CURE_REFUNDS_PVT: submit_cure_refunds : END ');
4998: EXCEPTION
4999: WHEN Fnd_Api.G_EXC_ERROR THEN
5000: ROLLBACK TO SUBMIT_CURE_REFUNDS;
5001: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5002: x_msg_count := l_msg_count ;
5003: x_msg_data := l_msg_data ;
5004: Fnd_Msg_Pub.count_and_get(
5005: p_count => x_msg_count
5003: x_msg_data := l_msg_data ;
5004: Fnd_Msg_Pub.count_and_get(
5005: p_count => x_msg_count
5006: ,p_data => x_msg_data);
5007: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
5008: ROLLBACK TO SUBMIT_CURE_REFUNDS;
5009: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5010: x_msg_count := l_msg_count ;
5011: x_msg_data := l_msg_data ;
5005: p_count => x_msg_count
5006: ,p_data => x_msg_data);
5007: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
5008: ROLLBACK TO SUBMIT_CURE_REFUNDS;
5009: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5010: x_msg_count := l_msg_count ;
5011: x_msg_data := l_msg_data ;
5012: Fnd_Msg_Pub.count_and_get(
5013: p_count => x_msg_count
5013: p_count => x_msg_count
5014: ,p_data => x_msg_data);
5015: WHEN OTHERS THEN
5016: ROLLBACK TO SUBMIT_CURE_REFUNDS;
5017: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5018: x_msg_count := l_msg_count ;
5019: x_msg_data := l_msg_data ;
5020: Fnd_Msg_Pub.ADD_EXC_MSG('OKL_PAY_CURE_REFUNDS_PVT','SUBMIT_CURE_REFUNDS');
5021: Fnd_Msg_Pub.count_and_get(
5091: ,x_msg_count => l_msg_count
5092: ,x_msg_data => l_msg_data
5093: );
5094: okl_debug_pub.logmessage ('OKL_PAY_CURE_REFUNDS_PVT: set_approval_status : OKL_PAY_CURE_REFUNDS_PVT.SUBMIT_CURE_REFUNDS : '||l_return_status);
5095: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5096: Get_Messages (l_msg_count,l_message);
5097: IF PG_DEBUG < 11 THEN
5098: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5099: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error---->' ||l_message);
5134: ,x_msg_data => l_msg_data
5135: ,p_chdv_rec => lp_chdv_rec
5136: ,x_chdv_rec => lx_chdv_rec);
5137: okl_debug_pub.logmessage ('OKL_PAY_CURE_REFUNDS_PVT: set_approval_status : OKL_cure_rfnd_hdr_pub.update_cure_rfnd_hdr : '||l_return_status);
5138: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5139: Get_Messages (l_msg_count,l_message);
5140: IF PG_DEBUG < 11 THEN
5141: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5142: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error in update of cure refund to PENDINGI' ||l_message);
5141: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5142: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error in update of cure refund to PENDINGI' ||l_message);
5143: END IF;
5144: END IF;
5145: raise FND_API.G_EXC_ERROR;
5146: ELSE
5147: IF PG_DEBUG < 11 THEN
5148: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5149: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Success -updated cure refund header' );
5187:
5188: okl_debug_pub.logmessage ('OKL_PAY_CURE_REFUNDS_PVT: set_approval_status : END ');
5189:
5190: EXCEPTION
5191: WHEN FND_API.G_EXC_ERROR THEN
5192: --resultout := wf_engine.eng_completed ||':'||wf_no;
5193: wf_core.context('OKL_PAY_CURE_REFUNDS_PVT',
5194: 'set_approval_status',
5195: itemtype,
5256: ,x_msg_count => l_msg_count
5257: ,x_msg_data => l_msg_data
5258: );
5259: okl_debug_pub.logmessage ('OKL_PAY_CURE_REFUNDS_PVT: set_reject_status : OKL_PAY_CURE_REFUNDS_PVT.SUBMIT_CURE_REFUNDS : '||l_return_status);
5260: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5261: Get_Messages (l_msg_count,l_message);
5262: IF PG_DEBUG < 11 THEN
5263: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5264: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error' ||l_message);
5263: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5264: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error' ||l_message);
5265: END IF;
5266: END IF;
5267: raise FND_API.G_EXC_ERROR;
5268: ELSE
5269: IF PG_DEBUG < 11 THEN
5270: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5271: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Success -updated cure refund header' );
5273: END IF;
5274: END IF;
5275: okl_debug_pub.logmessage ('OKL_PAY_CURE_REFUNDS_PVT: set_reject_status : END ');
5276: EXCEPTION
5277: WHEN FND_API.G_EXC_ERROR THEN
5278: --resultout := wf_engine.eng_completed ||':'||wf_no;
5279: wf_core.context('OKL_PAY_CURE_REFUNDS_PVT',
5280: 'set_reject_status',
5281: itemtype,
5335: BEGIN
5336: okl_debug_pub.logmessage ('OKL_PAY_CURE_REFUNDS_PVT: create_refund_headers : START ');
5337: SAVEPOINT CREATE_REFUND_HEADERS;
5338: -- Initialize message list if p_init_msg_list is set to TRUE.
5339: IF FND_API.to_Boolean( p_init_msg_list )
5340: THEN
5341: FND_MSG_PUB.initialize;
5342: END IF;
5343:
5340: THEN
5341: FND_MSG_PUB.initialize;
5342: END IF;
5343:
5344: x_return_status := FND_API.G_RET_STS_SUCCESS;
5345:
5346: --duplicate refund_number check
5347: OPEN chk_refund_number(p_pay_cure_refunds_rec.refund_number);
5348: FETCH chk_refund_number INTO l_cure_refund_header_number;
5355: END IF;
5356: END IF;
5357: fnd_message.set_name('OKL', 'OKL_DUPLICATE_REFUND_NUMBER');
5358: fnd_msg_pub.add;
5359: RAISE FND_API.G_EXC_ERROR;
5360: END IF;
5361:
5362:
5363: --create HEADERS first
5388: ,x_msg_data => l_msg_data
5389: ,p_chdv_rec => lp_chdv_rec
5390: ,x_chdv_rec => lx_chdv_rec);
5391: okl_debug_pub.logmessage ('OKL_PAY_CURE_REFUNDS_PVT: create_refund_headers : OKL_cure_rfnd_hdr_pub.insert_cure_rfnd_hdr : '||l_return_status);
5392: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5393: Get_Messages (l_msg_count,l_message);
5394: IF PG_DEBUG < 11 THEN
5395: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5396: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error' ||l_message);
5395: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5396: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error' ||l_message);
5397: END IF;
5398: END IF;
5399: raise FND_API.G_EXC_ERROR;
5400: ELSE
5401: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5402: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'lx_chdv_rec.cure_refund_header_id'
5403: ||lx_chdv_rec.cure_refund_header_id);
5410:
5411:
5412:
5413: -- Standard check for p_commit
5414: IF FND_API.to_Boolean( p_commit )
5415: THEN
5416: COMMIT WORK;
5417: END IF;
5418:
5423:
5424: okl_debug_pub.logmessage ('OKL_PAY_CURE_REFUNDS_PVT: create_refund_headers : END ');
5425: EXCEPTION
5426:
5427: WHEN Fnd_Api.G_EXC_ERROR THEN
5428: ROLLBACK TO CREATE_REFUND_HEADERS;
5429: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5430: x_msg_count := l_msg_count ;
5431: x_msg_data := l_msg_data ;
5425: EXCEPTION
5426:
5427: WHEN Fnd_Api.G_EXC_ERROR THEN
5428: ROLLBACK TO CREATE_REFUND_HEADERS;
5429: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5430: x_msg_count := l_msg_count ;
5431: x_msg_data := l_msg_data ;
5432: Fnd_Msg_Pub.count_and_get(
5433: p_count => x_msg_count
5431: x_msg_data := l_msg_data ;
5432: Fnd_Msg_Pub.count_and_get(
5433: p_count => x_msg_count
5434: ,p_data => x_msg_data);
5435: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
5436: ROLLBACK TO CREATE_REFUND_HEADERS;
5437: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5438: x_msg_count := l_msg_count ;
5439: x_msg_data := l_msg_data ;
5433: p_count => x_msg_count
5434: ,p_data => x_msg_data);
5435: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
5436: ROLLBACK TO CREATE_REFUND_HEADERS;
5437: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5438: x_msg_count := l_msg_count ;
5439: x_msg_data := l_msg_data ;
5440: Fnd_Msg_Pub.count_and_get(
5441: p_count => x_msg_count
5441: p_count => x_msg_count
5442: ,p_data => x_msg_data);
5443: WHEN OTHERS THEN
5444: ROLLBACK TO CREATE_REFUND_HEADERS;
5445: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5446: x_msg_count := l_msg_count ;
5447: x_msg_data := l_msg_data ;
5448: Fnd_Msg_Pub.ADD_EXC_MSG('OKL_PAY_CURE_REFUNDS_PVT','CREATE_REFUND_HEADERS');
5449: Fnd_Msg_Pub.count_and_get(
5499: okl_debug_pub.logmessage ('OKL_PAY_CURE_REFUNDS_PVT: update_refund_headers : START');
5500: SAVEPOINT UPDATE_REFUND_HEADERS;
5501:
5502: -- Initialize message list if p_init_msg_list is set to TRUE.
5503: IF FND_API.to_Boolean( p_init_msg_list )
5504: THEN
5505: FND_MSG_PUB.initialize;
5506: END IF;
5507: x_return_status := FND_API.G_RET_STS_SUCCESS;
5503: IF FND_API.to_Boolean( p_init_msg_list )
5504: THEN
5505: FND_MSG_PUB.initialize;
5506: END IF;
5507: x_return_status := FND_API.G_RET_STS_SUCCESS;
5508:
5509: --set error message,so this will be prefixed before the
5510: --actual message, so it makes more sense than displaying an
5511: -- OKL message.
5532: ,x_msg_data => l_msg_data
5533: ,p_chdv_rec => lp_chdv_rec
5534: ,x_chdv_rec => lx_chdv_rec);
5535: okl_debug_pub.logmessage ('OKL_PAY_CURE_REFUNDS_PVT: update_refund_headers : OKL_cure_rfnd_hdr_pub.update_cure_rfnd_hdr :'||l_return_status);
5536: IF ( l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5537: Get_Messages (l_msg_count,l_message);
5538: IF PG_DEBUG < 11 THEN
5539: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5540: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error' ||l_message);
5539: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5540: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error' ||l_message);
5541: END IF;
5542: END IF;
5543: raise FND_API.G_EXC_ERROR;
5544: ELSE
5545: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5546: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Successfully updated Cure refund '||
5547: 'header table');
5548:
5549: END IF;
5550: END IF;
5551:
5552: IF x_return_status =FND_API.G_RET_STS_SUCCESS THEN
5553: FND_MSG_PUB.initialize;
5554: END IF;
5555:
5556:
5554: END IF;
5555:
5556:
5557: -- Standard check for p_commit
5558: IF FND_API.to_Boolean( p_commit )
5559: THEN
5560: COMMIT WORK;
5561: END IF;
5562:
5567:
5568: okl_debug_pub.logmessage ('OKL_PAY_CURE_REFUNDS_PVT: update_refund_headers : END');
5569: EXCEPTION
5570:
5571: WHEN Fnd_Api.G_EXC_ERROR THEN
5572: ROLLBACK TO UPDATE_REFUND_HEADERS;
5573: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5574: x_msg_count := l_msg_count ;
5575: x_msg_data := l_msg_data ;
5569: EXCEPTION
5570:
5571: WHEN Fnd_Api.G_EXC_ERROR THEN
5572: ROLLBACK TO UPDATE_REFUND_HEADERS;
5573: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5574: x_msg_count := l_msg_count ;
5575: x_msg_data := l_msg_data ;
5576: Fnd_Msg_Pub.count_and_get(
5577: p_count => x_msg_count
5575: x_msg_data := l_msg_data ;
5576: Fnd_Msg_Pub.count_and_get(
5577: p_count => x_msg_count
5578: ,p_data => x_msg_data);
5579: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
5580: ROLLBACK TO UPDATE_REFUND_HEADERS;
5581: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5582: x_msg_count := l_msg_count ;
5583: x_msg_data := l_msg_data ;
5577: p_count => x_msg_count
5578: ,p_data => x_msg_data);
5579: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
5580: ROLLBACK TO UPDATE_REFUND_HEADERS;
5581: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5582: x_msg_count := l_msg_count ;
5583: x_msg_data := l_msg_data ;
5584: Fnd_Msg_Pub.count_and_get(
5585: p_count => x_msg_count
5585: p_count => x_msg_count
5586: ,p_data => x_msg_data);
5587: WHEN OTHERS THEN
5588: ROLLBACK TO UPDATE_REFUND_HEADERS;
5589: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5590: x_msg_count := l_msg_count ;
5591: x_msg_data := l_msg_data ;
5592: Fnd_Msg_Pub.ADD_EXC_MSG('OKL_PAY_CURE_REFUNDS_PVT','UPDATE_REFUND_HEADERS');
5593: Fnd_Msg_Pub.count_and_get(