[Home] [Help]
67: -- Description: To update Payment Transctions information
68: --============================================================================
69: PROCEDURE validate_hold_processing (
70: p_api_version IN NUMBER,
71: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
72: p_commit IN VARCHAR2 := fnd_api.g_false,
73: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
74: p_rec IN OUT NOCOPY pmt_process_rec,
75: x_return_status OUT NOCOPY VARCHAR2,
68: --============================================================================
69: PROCEDURE validate_hold_processing (
70: p_api_version IN NUMBER,
71: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
72: p_commit IN VARCHAR2 := fnd_api.g_false,
73: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
74: p_rec IN OUT NOCOPY pmt_process_rec,
75: x_return_status OUT NOCOPY VARCHAR2,
76: x_msg_count OUT NOCOPY NUMBER,
69: PROCEDURE validate_hold_processing (
70: p_api_version IN NUMBER,
71: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
72: p_commit IN VARCHAR2 := fnd_api.g_false,
73: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
74: p_rec IN OUT NOCOPY pmt_process_rec,
75: x_return_status OUT NOCOPY VARCHAR2,
76: x_msg_count OUT NOCOPY NUMBER,
77: x_msg_data OUT NOCOPY VARCHAR2 )
95: -- Standard Start of API savepoint
96: SAVEPOINT validate_hold_processing;
97:
98: -- Standard call to check for call compatibility.
99: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name)
100: THEN
101: RAISE fnd_api.g_exc_unexpected_error;
102: END IF;
103:
97:
98: -- Standard call to check for call compatibility.
99: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name)
100: THEN
101: RAISE fnd_api.g_exc_unexpected_error;
102: END IF;
103:
104: -- Initialize message list if p_init_msg_list is set to TRUE.
105: IF fnd_api.to_boolean (p_init_msg_list)
101: RAISE fnd_api.g_exc_unexpected_error;
102: END IF;
103:
104: -- Initialize message list if p_init_msg_list is set to TRUE.
105: IF fnd_api.to_boolean (p_init_msg_list)
106: THEN
107: fnd_msg_pub.initialize;
108: END IF;
109:
107: fnd_msg_pub.initialize;
108: END IF;
109:
110: -- Initialize API return status to success
111: x_return_status := fnd_api.g_ret_sts_success;
112:
113: --debug(1, 'IN VALIDATE_HOLD_PROCESSING') ;
114:
115: BEGIN
131: fnd_message.set_name ('CN', 'CN_WKSHT_DOES_NOT_EXIST');
132: fnd_msg_pub.ADD;
133: END IF;
134: --debug(222, 'In the NO_DATA_FOUND') ;
135: RAISE fnd_api.g_exc_error;
136: END ;
137:
138: IF p_rec.object_version_number IS NOT NULL AND l_ovn <> p_rec.object_version_number THEN
139: -- record has changed
141: THEN
142: fnd_message.set_name ('CN', 'CN_RECORD_CHANGED');
143: fnd_msg_pub.ADD;
144: END IF;
145: RAISE fnd_api.g_exc_error;
146: END IF ;
147:
148: IF NVL(p_rec.hold_flag, 'N') NOT IN ('N', 'Y') THEN
149: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
150: THEN
151: fnd_message.set_name ('CN', 'CN_INVALID_HOLD_PARAM');
152: fnd_msg_pub.ADD;
153: END IF;
154: RAISE fnd_api.g_exc_error;
155: END IF ;
156:
157: IF p_rec.p_action IN (CN_PMT_TRANS_PVT.G_HOLD_ALL,CN_PMT_TRANS_PVT.G_RELEASE_ALL)
158: THEN
174: THEN
175: fnd_message.set_name ('CN', 'CN_NO_TRXNS_TO_PROCESS');
176: fnd_msg_pub.ADD;
177: END IF;
178: RAISE fnd_api.g_exc_error;
179: END IF;
180: CLOSE get_transactions_details ;
181: EXCEPTION
182: WHEN OTHERS THEN
192: THEN
193: fnd_message.set_name ('CN', 'CN_WKSHT_ACTION_NOT_EXIST');
194: fnd_msg_pub.ADD;
195: END IF;
196: RAISE fnd_api.g_exc_error;
197: END IF ;
198:
199: --debug(2, 'IF l_status = PROCESSING THEN') ;
200:
217: THEN
218: fnd_message.set_name ('CN', 'CN_LAST_REQ_INACTIVE');
219: fnd_msg_pub.ADD;
220: END IF;
221: RAISE fnd_api.g_exc_error;
222: ELSE
223: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
224: THEN
225: fnd_message.set_name ('CN', 'CN_LAST_REQ_NOT_COMPLETED');
224: THEN
225: fnd_message.set_name ('CN', 'CN_LAST_REQ_NOT_COMPLETED');
226: fnd_msg_pub.ADD;
227: END IF;
228: RAISE fnd_api.g_exc_error;
229: END IF ;
230:
231: ELSIF l_status IN ( 'FAILED', 'UNPAID' ) THEN
232: -- can resubmit the request but we need a new request id
234: END IF;
235:
236: cn_payment_security_pvt.worksheet_action(p_api_version => p_api_version,
237: p_init_msg_list => p_init_msg_list,
238: p_commit => fnd_api.g_false,
239: p_validation_level => p_validation_level,
240: x_return_status => x_return_status,
241: x_msg_count => x_msg_count,
242: x_msg_data => x_msg_data,
241: x_msg_count => x_msg_count,
242: x_msg_data => x_msg_data,
243: p_worksheet_id => p_rec.worksheet_id,
244: p_action => p_rec.p_action,
245: p_do_audit => fnd_api.g_false
246: );
247:
248: IF x_return_status <> fnd_api.g_ret_sts_success
249: THEN
244: p_action => p_rec.p_action,
245: p_do_audit => fnd_api.g_false
246: );
247:
248: IF x_return_status <> fnd_api.g_ret_sts_success
249: THEN
250: --debug(4, 'raise expcetion cn_payment_security_pvt.worksaction' || x_return_status ) ;
251: RAISE fnd_api.g_exc_error;
252: END IF;
247:
248: IF x_return_status <> fnd_api.g_ret_sts_success
249: THEN
250: --debug(4, 'raise expcetion cn_payment_security_pvt.worksaction' || x_return_status ) ;
251: RAISE fnd_api.g_exc_error;
252: END IF;
253:
254: EXCEPTION
255: WHEN fnd_api.g_exc_error
251: RAISE fnd_api.g_exc_error;
252: END IF;
253:
254: EXCEPTION
255: WHEN fnd_api.g_exc_error
256: THEN
257: ROLLBACK TO validate_hold_processing;
258: x_return_status := fnd_api.g_ret_sts_error;
259: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
254: EXCEPTION
255: WHEN fnd_api.g_exc_error
256: THEN
257: ROLLBACK TO validate_hold_processing;
258: x_return_status := fnd_api.g_ret_sts_error;
259: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
260: WHEN fnd_api.g_exc_unexpected_error
261: THEN
262: ROLLBACK TO validate_hold_processing;
255: WHEN fnd_api.g_exc_error
256: THEN
257: ROLLBACK TO validate_hold_processing;
258: x_return_status := fnd_api.g_ret_sts_error;
259: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
260: WHEN fnd_api.g_exc_unexpected_error
261: THEN
262: ROLLBACK TO validate_hold_processing;
263: x_return_status := fnd_api.g_ret_sts_unexp_error;
256: THEN
257: ROLLBACK TO validate_hold_processing;
258: x_return_status := fnd_api.g_ret_sts_error;
259: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
260: WHEN fnd_api.g_exc_unexpected_error
261: THEN
262: ROLLBACK TO validate_hold_processing;
263: x_return_status := fnd_api.g_ret_sts_unexp_error;
264: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
259: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
260: WHEN fnd_api.g_exc_unexpected_error
261: THEN
262: ROLLBACK TO validate_hold_processing;
263: x_return_status := fnd_api.g_ret_sts_unexp_error;
264: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
265: WHEN OTHERS
266: THEN
267: ROLLBACK TO validate_hold_processing;
260: WHEN fnd_api.g_exc_unexpected_error
261: THEN
262: ROLLBACK TO validate_hold_processing;
263: x_return_status := fnd_api.g_ret_sts_unexp_error;
264: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
265: WHEN OTHERS
266: THEN
267: ROLLBACK TO validate_hold_processing;
268: x_return_status := fnd_api.g_ret_sts_unexp_error;
264: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
265: WHEN OTHERS
266: THEN
267: ROLLBACK TO validate_hold_processing;
268: x_return_status := fnd_api.g_ret_sts_unexp_error;
269:
270: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
271: THEN
272: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
270: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
271: THEN
272: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
273: END IF;
274: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
275: END validate_hold_processing;
276:
277:
278:
538:
539: --
540: -- Standard call to check for call compatibility.
541: --
542: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name)
543: THEN
544: RAISE fnd_api.g_exc_unexpected_error;
545: END IF;
546:
540: -- Standard call to check for call compatibility.
541: --
542: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name)
543: THEN
544: RAISE fnd_api.g_exc_unexpected_error;
545: END IF;
546:
547: --
548: -- Initialize message list if p_init_msg_list is set to TRUE.
546:
547: --
548: -- Initialize message list if p_init_msg_list is set to TRUE.
549: --
550: IF fnd_api.to_boolean (p_init_msg_list)
551: THEN
552: fnd_msg_pub.initialize;
553: END IF;
554:
554:
555: --
556: -- Initialize API return status to success
557: --
558: x_return_status := fnd_api.g_ret_sts_success;
559: x_loading_status := 'UPDATED';
560:
561: --
562: -- API body
564: -- check the payrun status and valid payrun
565: IF cn_api.chk_payrun_status_paid (
566: p_payrun_id => p_payrun_id,
567: p_loading_status => x_loading_status,
568: x_loading_status => x_loading_status) = fnd_api.g_true
569: THEN
570: RAISE fnd_api.g_exc_error;
571: END IF;
572:
566: p_payrun_id => p_payrun_id,
567: p_loading_status => x_loading_status,
568: x_loading_status => x_loading_status) = fnd_api.g_true
569: THEN
570: RAISE fnd_api.g_exc_error;
571: END IF;
572:
573: -- check the salesrep id is valid and not on HOLD
574: IF cn_api.chk_srp_hold_status (p_salesrep_id => p_salesrep_id,
575: --R12
576: p_org_id => p_org_id,
577: p_loading_status => x_loading_status,
578: x_loading_status => x_loading_status
579: ) = fnd_api.g_true
580: THEN
581: RAISE fnd_api.g_exc_error;
582: END IF;
583:
577: p_loading_status => x_loading_status,
578: x_loading_status => x_loading_status
579: ) = fnd_api.g_true
580: THEN
581: RAISE fnd_api.g_exc_error;
582: END IF;
583:
584: -- Check worksheet status
585: IF cn_api.chk_worksheet_status (p_payrun_id => p_payrun_id,
587: --R12
588: p_org_id => p_org_id,
589: p_loading_status => x_loading_status,
590: x_loading_status => x_loading_status
591: ) = fnd_api.g_true
592: THEN
593: RAISE fnd_api.g_exc_error;
594: END IF;
595:
589: p_loading_status => x_loading_status,
590: x_loading_status => x_loading_status
591: ) = fnd_api.g_true
592: THEN
593: RAISE fnd_api.g_exc_error;
594: END IF;
595:
596: -- R12: obtain pay_by_mode from the payrun
597: l_pbt_profile_value := cn_payment_security_pvt.get_pay_by_mode(p_payrun_id) ;
607: fnd_msg_pub.ADD;
608: END IF;
609:
610: x_loading_status := 'CN_INVALID_WAIVE_FLAG';
611: RAISE fnd_api.g_exc_error;
612: END IF;
613:
614: -- Check Recoverable Flag must be Y/N
615: IF p_recoverable_flag NOT IN ('Y', 'N') AND p_incentive_type_code = 'MANUAL_PAY_ADJ'
620: fnd_msg_pub.ADD;
621: END IF;
622:
623: x_loading_status := 'CN_INVALID_RECOVERABLE_FLAG';
624: RAISE fnd_api.g_exc_error;
625: END IF;
626:
627: --
628: -- Get worksheet earnings for NULL quota id
661: fnd_message.set_name ('CN', 'CN_RECORD_CHANGED');
662: fnd_msg_pub.ADD;
663: END IF;
664:
665: RAISE fnd_api.g_exc_error;
666: END IF;
667: END IF;
668:
669: UPDATE cn_payment_transactions
724: THEN
725: fnd_message.set_name ('CN', 'CN_RECORD_CHANGED');
726: fnd_msg_pub.ADD;
727: END IF;
728: RAISE fnd_api.g_exc_error;
729: END IF;
730:
731: FOR waive_per_quota IN get_waive_quota_id (p_payrun_id, p_salesrep_id)
732: LOOP
912: END IF;
913:
914: -- End of API body.
915: -- Standard check of p_commit.
916: IF fnd_api.to_boolean (p_commit)
917: THEN
918: COMMIT WORK;
919: END IF;
920:
918: COMMIT WORK;
919: END IF;
920:
921: -- Standard call to get message count and if count is 1, get message info.
922: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
923: EXCEPTION
924: WHEN fnd_api.g_exc_error
925: THEN
926: ROLLBACK TO update_pmt_transactions;
920:
921: -- Standard call to get message count and if count is 1, get message info.
922: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
923: EXCEPTION
924: WHEN fnd_api.g_exc_error
925: THEN
926: ROLLBACK TO update_pmt_transactions;
927: x_return_status := fnd_api.g_ret_sts_error;
928: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
923: EXCEPTION
924: WHEN fnd_api.g_exc_error
925: THEN
926: ROLLBACK TO update_pmt_transactions;
927: x_return_status := fnd_api.g_ret_sts_error;
928: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
929: WHEN fnd_api.g_exc_unexpected_error
930: THEN
931: ROLLBACK TO update_pmt_transactions;
924: WHEN fnd_api.g_exc_error
925: THEN
926: ROLLBACK TO update_pmt_transactions;
927: x_return_status := fnd_api.g_ret_sts_error;
928: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
929: WHEN fnd_api.g_exc_unexpected_error
930: THEN
931: ROLLBACK TO update_pmt_transactions;
932: x_loading_status := 'UNEXPECTED_ERR';
925: THEN
926: ROLLBACK TO update_pmt_transactions;
927: x_return_status := fnd_api.g_ret_sts_error;
928: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
929: WHEN fnd_api.g_exc_unexpected_error
930: THEN
931: ROLLBACK TO update_pmt_transactions;
932: x_loading_status := 'UNEXPECTED_ERR';
933: x_return_status := fnd_api.g_ret_sts_unexp_error;
929: WHEN fnd_api.g_exc_unexpected_error
930: THEN
931: ROLLBACK TO update_pmt_transactions;
932: x_loading_status := 'UNEXPECTED_ERR';
933: x_return_status := fnd_api.g_ret_sts_unexp_error;
934: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
935: WHEN OTHERS
936: THEN
937: ROLLBACK TO update_pmt_transactions;
930: THEN
931: ROLLBACK TO update_pmt_transactions;
932: x_loading_status := 'UNEXPECTED_ERR';
933: x_return_status := fnd_api.g_ret_sts_unexp_error;
934: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
935: WHEN OTHERS
936: THEN
937: ROLLBACK TO update_pmt_transactions;
938: x_loading_status := 'UNEXPECTED_ERR';
935: WHEN OTHERS
936: THEN
937: ROLLBACK TO update_pmt_transactions;
938: x_loading_status := 'UNEXPECTED_ERR';
939: x_return_status := fnd_api.g_ret_sts_unexp_error;
940:
941: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
942: THEN
943: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
942: THEN
943: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
944: END IF;
945:
946: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
947: END update_pmt_transactions;
948:
949:
950: --=====================================================================
1014:
1015: --
1016: -- Standard call to check for call compatibility.
1017: --
1018: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name)
1019: THEN
1020: RAISE fnd_api.g_exc_unexpected_error;
1021: END IF;
1022:
1016: -- Standard call to check for call compatibility.
1017: --
1018: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name)
1019: THEN
1020: RAISE fnd_api.g_exc_unexpected_error;
1021: END IF;
1022:
1023: --
1024: -- Initialize message list if p_init_msg_list is set to TRUE.
1022:
1023: --
1024: -- Initialize message list if p_init_msg_list is set to TRUE.
1025: --
1026: IF fnd_api.to_boolean (p_init_msg_list)
1027: THEN
1028: fnd_msg_pub.initialize;
1029: END IF;
1030:
1030:
1031: --
1032: -- Initialize API return status to success
1033: --
1034: x_return_status := fnd_api.g_ret_sts_success;
1035: x_loading_status := 'CN_INSERTED';
1036:
1037: -- Mandatory parameters check for payrun_id, salesrep_id
1038: IF ((cn_api.chk_miss_null_num_para (p_num_para => p_payrun_id,
1039: p_obj_name => cn_api.get_lkup_meaning ('PAY_RUN_NAME', 'PAY_RUN_VALIDATION_TYPE'),
1040: p_loading_status => x_loading_status,
1041: x_loading_status => x_loading_status
1042: )
1043: ) = fnd_api.g_true
1044: )
1045: THEN
1046: RAISE fnd_api.g_exc_error;
1047: END IF;
1042: )
1043: ) = fnd_api.g_true
1044: )
1045: THEN
1046: RAISE fnd_api.g_exc_error;
1047: END IF;
1048:
1049: IF ((cn_api.chk_miss_null_num_para (p_num_para => p_salesrep_id,
1050: p_obj_name => cn_api.get_lkup_meaning ('SALES_PERSON', 'PAY_RUN_VALIDATION_TYPE'),
1050: p_obj_name => cn_api.get_lkup_meaning ('SALES_PERSON', 'PAY_RUN_VALIDATION_TYPE'),
1051: p_loading_status => x_loading_status,
1052: x_loading_status => x_loading_status
1053: )
1054: ) = fnd_api.g_true
1055: )
1056: THEN
1057: RAISE fnd_api.g_exc_error;
1058: END IF;
1053: )
1054: ) = fnd_api.g_true
1055: )
1056: THEN
1057: RAISE fnd_api.g_exc_error;
1058: END IF;
1059:
1060: -- check Incentive Type Code
1061: IF ((cn_api.chk_null_char_para (p_char_para => p_incentive_type_code,
1062: p_obj_name => cn_api.get_lkup_meaning ('INCENTIVE_TYPE', 'PAY_RUN_VALIDATION_TYPE'),
1063: p_loading_status => x_loading_status,
1064: x_loading_status => x_loading_status
1065: )
1066: ) = fnd_api.g_true
1067: )
1068: THEN
1069: RAISE fnd_api.g_exc_error;
1070: END IF;
1065: )
1066: ) = fnd_api.g_true
1067: )
1068: THEN
1069: RAISE fnd_api.g_exc_error;
1070: END IF;
1071:
1072: -- Check Recoverable Flag must be Y/N
1073: IF p_recoverable_flag NOT IN ('Y', 'N')
1078: fnd_msg_pub.ADD;
1079: END IF;
1080:
1081: x_loading_status := 'CN_INVALID_RECOVERABLE_FLAG';
1082: RAISE fnd_api.g_exc_error;
1083: END IF;
1084:
1085: -- Check/Valid Incentive Type
1086: IF (p_incentive_type_code NOT IN ('MANUAL_PAY_ADJ'))
1091: fnd_msg_pub.ADD;
1092: END IF;
1093:
1094: x_loading_status := 'CN_INVALID_INCENTIVE_TYPE';
1095: RAISE fnd_api.g_exc_error;
1096: END IF;
1097:
1098: -- check the payrun status and valid payrun
1099: IF cn_api.chk_payrun_status_paid (
1098: -- check the payrun status and valid payrun
1099: IF cn_api.chk_payrun_status_paid (
1100: p_payrun_id => p_payrun_id,
1101: p_loading_status => x_loading_status,
1102: x_loading_status => x_loading_status) = fnd_api.g_true
1103: THEN
1104: RAISE fnd_api.g_exc_error;
1105: END IF;
1106:
1100: p_payrun_id => p_payrun_id,
1101: p_loading_status => x_loading_status,
1102: x_loading_status => x_loading_status) = fnd_api.g_true
1103: THEN
1104: RAISE fnd_api.g_exc_error;
1105: END IF;
1106:
1107: -- check the salesrep id is valid and not on HOLD
1108: IF cn_api.chk_srp_hold_status (p_salesrep_id => p_salesrep_id,
1109: --R12
1110: p_org_id => p_org_id,
1111: p_loading_status => x_loading_status,
1112: x_loading_status => x_loading_status
1113: ) = fnd_api.g_true
1114: THEN
1115: RAISE fnd_api.g_exc_error;
1116: END IF;
1117:
1111: p_loading_status => x_loading_status,
1112: x_loading_status => x_loading_status
1113: ) = fnd_api.g_true
1114: THEN
1115: RAISE fnd_api.g_exc_error;
1116: END IF;
1117:
1118: -- Check Worksheet Status
1119: IF cn_api.chk_worksheet_status (p_payrun_id => p_payrun_id,
1121: --R12
1122: p_org_id => p_org_id,
1123: p_loading_status => x_loading_status,
1124: x_loading_status => x_loading_status
1125: ) = fnd_api.g_true
1126: THEN
1127: RAISE fnd_api.g_exc_error;
1128: END IF;
1129:
1123: p_loading_status => x_loading_status,
1124: x_loading_status => x_loading_status
1125: ) = fnd_api.g_true
1126: THEN
1127: RAISE fnd_api.g_exc_error;
1128: END IF;
1129:
1130: -- Check Quota ID
1131: IF p_quota_id IS NULL
1136: fnd_msg_pub.ADD;
1137: END IF;
1138:
1139: x_loading_status := 'CN_QUOTA_NOT_EXISTS';
1140: RAISE fnd_api.g_exc_error;
1141: END IF;
1142:
1143: -- Check Valid Quota ID
1144: BEGIN
1155: fnd_msg_pub.ADD;
1156: END IF;
1157:
1158: x_loading_status := 'CN_QUOTA_NOT_EXISTS';
1159: RAISE fnd_api.g_exc_error;
1160: END;
1161:
1162: -- get pay period id and Pay Date
1163: OPEN get_payrun;
1280: p_pmt_tran_id => l_pmt_tran_id,
1281: p_loading_status => x_loading_status,
1282: x_loading_status => x_loading_status
1283: )
1284: ) = fnd_api.g_true
1285: THEN
1286: RAISE fnd_api.g_exc_unexpected_error;
1287: END IF;
1288: END IF;
1282: x_loading_status => x_loading_status
1283: )
1284: ) = fnd_api.g_true
1285: THEN
1286: RAISE fnd_api.g_exc_unexpected_error;
1287: END IF;
1288: END IF;
1289:
1290: -- End of API body.
1288: END IF;
1289:
1290: -- End of API body.
1291: -- Standard check of p_commit.
1292: IF fnd_api.to_boolean (p_commit)
1293: THEN
1294: COMMIT WORK;
1295: END IF;
1296:
1294: COMMIT WORK;
1295: END IF;
1296:
1297: -- Standard call to get message count and if count is 1, get message info.
1298: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
1299: EXCEPTION
1300: WHEN fnd_api.g_exc_error
1301: THEN
1302: ROLLBACK TO create_pmt_transactions;
1296:
1297: -- Standard call to get message count and if count is 1, get message info.
1298: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
1299: EXCEPTION
1300: WHEN fnd_api.g_exc_error
1301: THEN
1302: ROLLBACK TO create_pmt_transactions;
1303: x_return_status := fnd_api.g_ret_sts_error;
1304: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
1299: EXCEPTION
1300: WHEN fnd_api.g_exc_error
1301: THEN
1302: ROLLBACK TO create_pmt_transactions;
1303: x_return_status := fnd_api.g_ret_sts_error;
1304: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
1305: WHEN fnd_api.g_exc_unexpected_error
1306: THEN
1307: ROLLBACK TO create_pmt_transactions;
1300: WHEN fnd_api.g_exc_error
1301: THEN
1302: ROLLBACK TO create_pmt_transactions;
1303: x_return_status := fnd_api.g_ret_sts_error;
1304: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
1305: WHEN fnd_api.g_exc_unexpected_error
1306: THEN
1307: ROLLBACK TO create_pmt_transactions;
1308: x_loading_status := 'UNEXPECTED_ERR';
1301: THEN
1302: ROLLBACK TO create_pmt_transactions;
1303: x_return_status := fnd_api.g_ret_sts_error;
1304: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
1305: WHEN fnd_api.g_exc_unexpected_error
1306: THEN
1307: ROLLBACK TO create_pmt_transactions;
1308: x_loading_status := 'UNEXPECTED_ERR';
1309: x_return_status := fnd_api.g_ret_sts_unexp_error;
1305: WHEN fnd_api.g_exc_unexpected_error
1306: THEN
1307: ROLLBACK TO create_pmt_transactions;
1308: x_loading_status := 'UNEXPECTED_ERR';
1309: x_return_status := fnd_api.g_ret_sts_unexp_error;
1310: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
1311: WHEN OTHERS
1312: THEN
1313: ROLLBACK TO create_pmt_transactions;
1306: THEN
1307: ROLLBACK TO create_pmt_transactions;
1308: x_loading_status := 'UNEXPECTED_ERR';
1309: x_return_status := fnd_api.g_ret_sts_unexp_error;
1310: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
1311: WHEN OTHERS
1312: THEN
1313: ROLLBACK TO create_pmt_transactions;
1314: x_loading_status := 'UNEXPECTED_ERR';
1311: WHEN OTHERS
1312: THEN
1313: ROLLBACK TO create_pmt_transactions;
1314: x_loading_status := 'UNEXPECTED_ERR';
1315: x_return_status := fnd_api.g_ret_sts_unexp_error;
1316:
1317: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
1318: THEN
1319: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
1318: THEN
1319: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
1320: END IF;
1321:
1322: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
1323: END create_pmt_transactions;
1324:
1325: --=====================================================================
1326: --Procedure Name:Delete_Pmt_Transactions
1373:
1374: --
1375: -- Standard call to check for call compatibility.
1376: --
1377: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name)
1378: THEN
1379: RAISE fnd_api.g_exc_unexpected_error;
1380: END IF;
1381:
1375: -- Standard call to check for call compatibility.
1376: --
1377: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name)
1378: THEN
1379: RAISE fnd_api.g_exc_unexpected_error;
1380: END IF;
1381:
1382: --
1383: -- Initialize message list if p_init_msg_list is set to TRUE.
1381:
1382: --
1383: -- Initialize message list if p_init_msg_list is set to TRUE.
1384: --
1385: IF fnd_api.to_boolean (p_init_msg_list)
1386: THEN
1387: fnd_msg_pub.initialize;
1388: END IF;
1389:
1389:
1390: --
1391: -- Initialize API return status to success
1392: --
1393: x_return_status := fnd_api.g_ret_sts_success;
1394: x_loading_status := 'CN_DELETED';
1395: --R12 for OA. When p_validation_only = 'Y', only do validation for delete from OA.
1396: --Otherwise, do delete_pmt_transactions.
1397: l_validation_only := NVL (p_validation_only, 'N');
1416: fnd_msg_pub.ADD;
1417: END IF;
1418:
1419: x_loading_status := 'CN_PMT_TRAN_DEL_NOT_ALLOWED';
1420: RAISE fnd_api.g_exc_error;
1421: END IF;
1422:
1423: -- check the payrun status
1424: -- check the payrun ID is valid
1423: -- check the payrun status
1424: -- check the payrun ID is valid
1425: -- if payrun status <> UNPAID you cannot delete Transactions
1426: IF cn_api.chk_payrun_status_paid (p_payrun_id => trans_rec.payrun_id, p_loading_status => x_loading_status,
1427: x_loading_status => x_loading_status) = fnd_api.g_true
1428: THEN
1429: RAISE fnd_api.g_exc_error;
1430: END IF;
1431:
1425: -- if payrun status <> UNPAID you cannot delete Transactions
1426: IF cn_api.chk_payrun_status_paid (p_payrun_id => trans_rec.payrun_id, p_loading_status => x_loading_status,
1427: x_loading_status => x_loading_status) = fnd_api.g_true
1428: THEN
1429: RAISE fnd_api.g_exc_error;
1430: END IF;
1431:
1432: IF cn_api.chk_worksheet_status (p_payrun_id => trans_rec.payrun_id,
1433: p_salesrep_id => trans_rec.credited_salesrep_id,
1433: p_salesrep_id => trans_rec.credited_salesrep_id,
1434: p_org_id => trans_rec.org_id,
1435: p_loading_status => x_loading_status,
1436: x_loading_status => x_loading_status
1437: ) = fnd_api.g_true
1438: THEN
1439: RAISE fnd_api.g_exc_error;
1440: END IF;
1441:
1435: p_loading_status => x_loading_status,
1436: x_loading_status => x_loading_status
1437: ) = fnd_api.g_true
1438: THEN
1439: RAISE fnd_api.g_exc_error;
1440: END IF;
1441:
1442: --R12
1443: IF l_validation_only = 'Y'
1476: ;
1477:
1478: -- End of API body.
1479: -- Standard check of p_commit.
1480: IF fnd_api.to_boolean (p_commit)
1481: THEN
1482: COMMIT WORK;
1483: END IF;
1484:
1482: COMMIT WORK;
1483: END IF;
1484:
1485: -- Standard call to get message count and if count is 1, get message info.
1486: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
1487: EXCEPTION
1488: WHEN fnd_api.g_exc_error
1489: THEN
1490: ROLLBACK TO delete_pmt_transactions;
1484:
1485: -- Standard call to get message count and if count is 1, get message info.
1486: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
1487: EXCEPTION
1488: WHEN fnd_api.g_exc_error
1489: THEN
1490: ROLLBACK TO delete_pmt_transactions;
1491: x_return_status := fnd_api.g_ret_sts_error;
1492: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
1487: EXCEPTION
1488: WHEN fnd_api.g_exc_error
1489: THEN
1490: ROLLBACK TO delete_pmt_transactions;
1491: x_return_status := fnd_api.g_ret_sts_error;
1492: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
1493: WHEN fnd_api.g_exc_unexpected_error
1494: THEN
1495: ROLLBACK TO delete_pmt_transactions;
1488: WHEN fnd_api.g_exc_error
1489: THEN
1490: ROLLBACK TO delete_pmt_transactions;
1491: x_return_status := fnd_api.g_ret_sts_error;
1492: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
1493: WHEN fnd_api.g_exc_unexpected_error
1494: THEN
1495: ROLLBACK TO delete_pmt_transactions;
1496: x_loading_status := 'UNEXPECTED_ERR';
1489: THEN
1490: ROLLBACK TO delete_pmt_transactions;
1491: x_return_status := fnd_api.g_ret_sts_error;
1492: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
1493: WHEN fnd_api.g_exc_unexpected_error
1494: THEN
1495: ROLLBACK TO delete_pmt_transactions;
1496: x_loading_status := 'UNEXPECTED_ERR';
1497: x_return_status := fnd_api.g_ret_sts_unexp_error;
1493: WHEN fnd_api.g_exc_unexpected_error
1494: THEN
1495: ROLLBACK TO delete_pmt_transactions;
1496: x_loading_status := 'UNEXPECTED_ERR';
1497: x_return_status := fnd_api.g_ret_sts_unexp_error;
1498: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
1499: WHEN OTHERS
1500: THEN
1501: ROLLBACK TO delete_pmt_transactions;
1494: THEN
1495: ROLLBACK TO delete_pmt_transactions;
1496: x_loading_status := 'UNEXPECTED_ERR';
1497: x_return_status := fnd_api.g_ret_sts_unexp_error;
1498: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
1499: WHEN OTHERS
1500: THEN
1501: ROLLBACK TO delete_pmt_transactions;
1502: x_loading_status := 'UNEXPECTED_ERR';
1499: WHEN OTHERS
1500: THEN
1501: ROLLBACK TO delete_pmt_transactions;
1502: x_loading_status := 'UNEXPECTED_ERR';
1503: x_return_status := fnd_api.g_ret_sts_unexp_error;
1504:
1505: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
1506: THEN
1507: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
1506: THEN
1507: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
1508: END IF;
1509:
1510: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
1511: END delete_pmt_transactions;
1512:
1513: --=====================================================================
1514: --Procedure Name:release_wksht_hold
1566:
1567: --
1568: -- Standard call to check for call compatibility.
1569: --
1570: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name)
1571: THEN
1572: RAISE fnd_api.g_exc_unexpected_error;
1573: END IF;
1574:
1568: -- Standard call to check for call compatibility.
1569: --
1570: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name)
1571: THEN
1572: RAISE fnd_api.g_exc_unexpected_error;
1573: END IF;
1574:
1575: --
1576: -- Initialize message list if p_init_msg_list is set to TRUE.
1574:
1575: --
1576: -- Initialize message list if p_init_msg_list is set to TRUE.
1577: --
1578: IF fnd_api.to_boolean (p_init_msg_list)
1579: THEN
1580: fnd_msg_pub.initialize;
1581: END IF;
1582:
1582:
1583: --
1584: -- Initialize API return status to success
1585: --
1586: x_return_status := fnd_api.g_ret_sts_success;
1587:
1588: FOR i IN get_hold_pmt_trans (p_payment_worksheet_id)
1589: LOOP
1590: update_pmt_transactions (p_api_version => p_api_version,
1611: END LOOP;
1612:
1613: -- End of API body.
1614: -- Standard check of p_commit.
1615: IF fnd_api.to_boolean (p_commit)
1616: THEN
1617: COMMIT WORK;
1618: END IF;
1619:
1617: COMMIT WORK;
1618: END IF;
1619:
1620: -- Standard call to get message count and if count is 1, get message info.
1621: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
1622: EXCEPTION
1623: WHEN fnd_api.g_exc_error
1624: THEN
1625: ROLLBACK TO release_wksht_hold;
1619:
1620: -- Standard call to get message count and if count is 1, get message info.
1621: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
1622: EXCEPTION
1623: WHEN fnd_api.g_exc_error
1624: THEN
1625: ROLLBACK TO release_wksht_hold;
1626: x_return_status := fnd_api.g_ret_sts_error;
1627: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
1622: EXCEPTION
1623: WHEN fnd_api.g_exc_error
1624: THEN
1625: ROLLBACK TO release_wksht_hold;
1626: x_return_status := fnd_api.g_ret_sts_error;
1627: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
1628: WHEN fnd_api.g_exc_unexpected_error
1629: THEN
1630: ROLLBACK TO release_wksht_hold;
1623: WHEN fnd_api.g_exc_error
1624: THEN
1625: ROLLBACK TO release_wksht_hold;
1626: x_return_status := fnd_api.g_ret_sts_error;
1627: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
1628: WHEN fnd_api.g_exc_unexpected_error
1629: THEN
1630: ROLLBACK TO release_wksht_hold;
1631: x_return_status := fnd_api.g_ret_sts_unexp_error;
1624: THEN
1625: ROLLBACK TO release_wksht_hold;
1626: x_return_status := fnd_api.g_ret_sts_error;
1627: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
1628: WHEN fnd_api.g_exc_unexpected_error
1629: THEN
1630: ROLLBACK TO release_wksht_hold;
1631: x_return_status := fnd_api.g_ret_sts_unexp_error;
1632: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
1627: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
1628: WHEN fnd_api.g_exc_unexpected_error
1629: THEN
1630: ROLLBACK TO release_wksht_hold;
1631: x_return_status := fnd_api.g_ret_sts_unexp_error;
1632: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
1633: WHEN OTHERS
1634: THEN
1635: ROLLBACK TO release_wksht_hold;
1628: WHEN fnd_api.g_exc_unexpected_error
1629: THEN
1630: ROLLBACK TO release_wksht_hold;
1631: x_return_status := fnd_api.g_ret_sts_unexp_error;
1632: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
1633: WHEN OTHERS
1634: THEN
1635: ROLLBACK TO release_wksht_hold;
1636: x_return_status := fnd_api.g_ret_sts_unexp_error;
1632: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
1633: WHEN OTHERS
1634: THEN
1635: ROLLBACK TO release_wksht_hold;
1636: x_return_status := fnd_api.g_ret_sts_unexp_error;
1637:
1638: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
1639: THEN
1640: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
1639: THEN
1640: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
1641: END IF;
1642:
1643: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
1644: END release_wksht_hold;
1645:
1646: --=====================================================================
1647: --Procedure Name:hold_multiple_trans_conc
1721: --debug(2, 'begin validate_hold_processing') ;
1722:
1723: validate_hold_processing (
1724: p_api_version => 1.0,
1725: p_init_msg_list => fnd_api.g_true,
1726: p_commit => fnd_api.g_false,
1727: p_validation_level => fnd_api.g_valid_level_full,
1728: p_rec => l_pmt_process_rec,
1729: x_return_status => l_return_status,
1722:
1723: validate_hold_processing (
1724: p_api_version => 1.0,
1725: p_init_msg_list => fnd_api.g_true,
1726: p_commit => fnd_api.g_false,
1727: p_validation_level => fnd_api.g_valid_level_full,
1728: p_rec => l_pmt_process_rec,
1729: x_return_status => l_return_status,
1730: x_msg_count => l_msg_count,
1723: validate_hold_processing (
1724: p_api_version => 1.0,
1725: p_init_msg_list => fnd_api.g_true,
1726: p_commit => fnd_api.g_false,
1727: p_validation_level => fnd_api.g_valid_level_full,
1728: p_rec => l_pmt_process_rec,
1729: x_return_status => l_return_status,
1730: x_msg_count => l_msg_count,
1731: x_msg_data => l_msg_data );
1729: x_return_status => l_return_status,
1730: x_msg_count => l_msg_count,
1731: x_msg_data => l_msg_data );
1732:
1733: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1734: --debug(2.1, 'error @ validate_hold_processing') ;
1735: RAISE fnd_api.g_exc_error;
1736: END IF;
1737:
1731: x_msg_data => l_msg_data );
1732:
1733: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1734: --debug(2.1, 'error @ validate_hold_processing') ;
1735: RAISE fnd_api.g_exc_error;
1736: END IF;
1737:
1738: FOR transactions_details_rec IN get_transactions_details(p_payrun_id,
1739: p_salesrep_id,
1746: p_action)
1747: LOOP
1748: update_pmt_transactions(
1749: p_api_version => 1.0,
1750: p_init_msg_list => fnd_api.g_true,
1751: p_commit => fnd_api.g_false,--changed to false
1752: p_validation_level => fnd_api.g_valid_level_full,
1753: x_return_status => l_return_status,
1754: x_msg_count => l_msg_count,
1747: LOOP
1748: update_pmt_transactions(
1749: p_api_version => 1.0,
1750: p_init_msg_list => fnd_api.g_true,
1751: p_commit => fnd_api.g_false,--changed to false
1752: p_validation_level => fnd_api.g_valid_level_full,
1753: x_return_status => l_return_status,
1754: x_msg_count => l_msg_count,
1755: x_msg_data => l_msg_data,
1748: update_pmt_transactions(
1749: p_api_version => 1.0,
1750: p_init_msg_list => fnd_api.g_true,
1751: p_commit => fnd_api.g_false,--changed to false
1752: p_validation_level => fnd_api.g_valid_level_full,
1753: x_return_status => l_return_status,
1754: x_msg_count => l_msg_count,
1755: x_msg_data => l_msg_data,
1756: p_payment_transaction_id => transactions_details_rec.payment_transaction_id,
1765: x_loading_status => l_loading_status,
1766: p_org_id => transactions_details_rec.org_id,
1767: p_object_version_number => transactions_details_rec.object_version_number);
1768:
1769: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1770: l_errText := fnd_msg_pub.get (p_msg_index => fnd_msg_pub.g_last, p_encoded => fnd_api.g_false);
1771: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
1772: fnd_message.set_name ('CN', 'CN_PROCESS_UPD_TRANS_NOTE');
1773: fnd_message.set_token ('TRX_ID', transactions_details_rec.payment_transaction_id );
1766: p_org_id => transactions_details_rec.org_id,
1767: p_object_version_number => transactions_details_rec.object_version_number);
1768:
1769: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1770: l_errText := fnd_msg_pub.get (p_msg_index => fnd_msg_pub.g_last, p_encoded => fnd_api.g_false);
1771: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error) THEN
1772: fnd_message.set_name ('CN', 'CN_PROCESS_UPD_TRANS_NOTE');
1773: fnd_message.set_token ('TRX_ID', transactions_details_rec.payment_transaction_id );
1774: fnd_message.set_token('MESSAGE_TEXT', l_errText);
1773: fnd_message.set_token ('TRX_ID', transactions_details_rec.payment_transaction_id );
1774: fnd_message.set_token('MESSAGE_TEXT', l_errText);
1775: fnd_msg_pub.ADD;
1776: END IF;
1777: RAISE fnd_api.g_exc_error;
1778: END IF;
1779: END LOOP;
1780:
1781: --debug(5, 'end end for update_pmt_transactions') ;
1784: fnd_message.set_name('CN', 'CN_PROCESS_TRANS_NOTE');
1785: l_note_msg := fnd_message.get;
1786:
1787: EXCEPTION
1788: WHEN fnd_api.g_exc_error THEN
1789: ROLLBACK TO hold_multiple_trans_conc;
1790: retcode := 2;
1791: errbuf := fnd_msg_pub.get (p_msg_index => fnd_msg_pub.g_last, p_encoded => fnd_api.g_false);
1792: l_note_msg := fnd_message.get;
1787: EXCEPTION
1788: WHEN fnd_api.g_exc_error THEN
1789: ROLLBACK TO hold_multiple_trans_conc;
1790: retcode := 2;
1791: errbuf := fnd_msg_pub.get (p_msg_index => fnd_msg_pub.g_last, p_encoded => fnd_api.g_false);
1792: l_note_msg := fnd_message.get;
1793: l_new_status := 'FAILED' ;
1794:
1795: WHEN fnd_api.g_exc_unexpected_error THEN
1791: errbuf := fnd_msg_pub.get (p_msg_index => fnd_msg_pub.g_last, p_encoded => fnd_api.g_false);
1792: l_note_msg := fnd_message.get;
1793: l_new_status := 'FAILED' ;
1794:
1795: WHEN fnd_api.g_exc_unexpected_error THEN
1796: ROLLBACK TO hold_multiple_trans_conc;
1797: retcode := 2;
1798: errbuf := fnd_msg_pub.get (p_msg_index => fnd_msg_pub.g_last, p_encoded => fnd_api.g_false);
1799: l_note_msg := fnd_message.get;
1794:
1795: WHEN fnd_api.g_exc_unexpected_error THEN
1796: ROLLBACK TO hold_multiple_trans_conc;
1797: retcode := 2;
1798: errbuf := fnd_msg_pub.get (p_msg_index => fnd_msg_pub.g_last, p_encoded => fnd_api.g_false);
1799: l_note_msg := fnd_message.get;
1800: l_new_status := 'FAILED' ;
1801: END ;
1802:
1817: );
1818: EXCEPTION
1819: WHEN OTHERS THEN
1820: retcode := 2;
1821: errbuf := fnd_msg_pub.get (p_msg_index => fnd_msg_pub.g_last, p_encoded => fnd_api.g_false);
1822: END ;
1823:
1824: COMMIT ;
1825: EXCEPTION
1834:
1835: cn_payment_worksheets_pkg.update_status(p_salesrep_id,p_payrun_id, 'FAILED') ;
1836:
1837: retcode := 2;
1838: errbuf := fnd_msg_pub.get (p_msg_index => fnd_msg_pub.g_last, p_encoded => fnd_api.g_false);
1839: COMMIT ;
1840: END hold_multiple_trans_conc;
1841:
1842:
1849: -- Usage : submits the hold all concurrent program.
1850: -- Parameters :
1851: -- IN : p_api_version IN NUMBER Require
1852: -- p_init_msg_list IN VARCHAR2 Optional
1853: -- Default = FND_API.G_FALSE
1854: -- p_commit IN VARCHAR2 Optional
1855: -- Default = FND_API.G_FALSE
1856: -- p_validation_level IN NUMBER Optional
1857: -- Default = FND_API.G_VALID_LEVEL_FULL
1851: -- IN : p_api_version IN NUMBER Require
1852: -- p_init_msg_list IN VARCHAR2 Optional
1853: -- Default = FND_API.G_FALSE
1854: -- p_commit IN VARCHAR2 Optional
1855: -- Default = FND_API.G_FALSE
1856: -- p_validation_level IN NUMBER Optional
1857: -- Default = FND_API.G_VALID_LEVEL_FULL
1858: -- IN : p_payrun_id IN NUMBER
1859: -- IN : p_salesrep_id IN VARCHAR2(01)
1853: -- Default = FND_API.G_FALSE
1854: -- p_commit IN VARCHAR2 Optional
1855: -- Default = FND_API.G_FALSE
1856: -- p_validation_level IN NUMBER Optional
1857: -- Default = FND_API.G_VALID_LEVEL_FULL
1858: -- IN : p_payrun_id IN NUMBER
1859: -- IN : p_salesrep_id IN VARCHAR2(01)
1860: -- IN : p_quota_id IN NUMBER
1861: -- IN : p_revenue_class_id IN Varchar2(01)
1870: -- End of comments
1871: --============================================================================
1872: PROCEDURE process_pmt_transactions (
1873: p_api_version IN NUMBER,
1874: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1875: p_commit IN VARCHAR2 := fnd_api.g_false,
1876: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
1877: p_rec IN OUT NOCOPY pmt_process_rec,
1878: x_return_status OUT NOCOPY VARCHAR2,
1871: --============================================================================
1872: PROCEDURE process_pmt_transactions (
1873: p_api_version IN NUMBER,
1874: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1875: p_commit IN VARCHAR2 := fnd_api.g_false,
1876: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
1877: p_rec IN OUT NOCOPY pmt_process_rec,
1878: x_return_status OUT NOCOPY VARCHAR2,
1879: x_msg_count OUT NOCOPY NUMBER,
1872: PROCEDURE process_pmt_transactions (
1873: p_api_version IN NUMBER,
1874: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1875: p_commit IN VARCHAR2 := fnd_api.g_false,
1876: p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
1877: p_rec IN OUT NOCOPY pmt_process_rec,
1878: x_return_status OUT NOCOPY VARCHAR2,
1879: x_msg_count OUT NOCOPY NUMBER,
1880: x_msg_data OUT NOCOPY VARCHAR2
1891: -- Standard Start of API savepoint
1892: SAVEPOINT process_pmt_transactions;
1893:
1894: -- Standard call to check for call compatibility.
1895: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name)
1896: THEN
1897: RAISE fnd_api.g_exc_unexpected_error;
1898: END IF;
1899:
1893:
1894: -- Standard call to check for call compatibility.
1895: IF NOT fnd_api.compatible_api_call (l_api_version, p_api_version, l_api_name, g_pkg_name)
1896: THEN
1897: RAISE fnd_api.g_exc_unexpected_error;
1898: END IF;
1899:
1900: -- Initialize message list if p_init_msg_list is set to TRUE.
1901: IF fnd_api.to_boolean (p_init_msg_list)
1897: RAISE fnd_api.g_exc_unexpected_error;
1898: END IF;
1899:
1900: -- Initialize message list if p_init_msg_list is set to TRUE.
1901: IF fnd_api.to_boolean (p_init_msg_list)
1902: THEN
1903: fnd_msg_pub.initialize;
1904: END IF;
1905:
1903: fnd_msg_pub.initialize;
1904: END IF;
1905:
1906: -- Initialize API return status to success
1907: x_return_status := fnd_api.g_ret_sts_success;
1908:
1909: validate_hold_processing (
1910: p_api_version => p_api_version ,
1911: p_init_msg_list => p_init_msg_list,
1916: x_msg_count => l_msg_count,
1917: x_msg_data => l_msg_data
1918: ) ;
1919:
1920: IF l_return_status <> fnd_api.g_ret_sts_success
1921: THEN
1922: RAISE fnd_api.g_exc_error;
1923: END IF;
1924:
1918: ) ;
1919:
1920: IF l_return_status <> fnd_api.g_ret_sts_success
1921: THEN
1922: RAISE fnd_api.g_exc_error;
1923: END IF;
1924:
1925: IF p_rec.p_action IN (CN_PMT_TRANS_PVT.G_HOLD_ALL, CN_PMT_TRANS_PVT.G_RELEASE_ALL) THEN
1926:
1951:
1952: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1953: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,'cn.plsql.cn_pmt_trans_pvt.pmt_process.exception','Failed to submit request for BATCH_PROCESSOR.');
1954: END IF;
1955: RAISE fnd_api.g_exc_error;
1956: END IF ;
1957: p_rec.request_id := l_request_id ;
1958:
1959: UPDATE cn_payment_worksheets
1972: THEN
1973: fnd_message.set_name ('CN', 'CN_WKSHT_ACTION_NOT_EXIST');
1974: fnd_msg_pub.ADD;
1975: END IF;
1976: RAISE fnd_api.g_exc_error;
1977: END IF;
1978:
1979: cn_payment_worksheet_pvt.update_worksheet (
1980: p_api_version => p_api_version,
1990: x_loading_status => l_status,
1991: x_ovn => p_rec.object_version_number
1992: ) ;
1993:
1994: IF l_return_status <> fnd_api.g_ret_sts_success
1995: THEN
1996: RAISE fnd_api.g_exc_error;
1997: END IF;
1998:
1992: ) ;
1993:
1994: IF l_return_status <> fnd_api.g_ret_sts_success
1995: THEN
1996: RAISE fnd_api.g_exc_error;
1997: END IF;
1998:
1999: EXCEPTION
2000: WHEN fnd_api.g_exc_error
1996: RAISE fnd_api.g_exc_error;
1997: END IF;
1998:
1999: EXCEPTION
2000: WHEN fnd_api.g_exc_error
2001: THEN
2002: ROLLBACK TO process_pmt_transactions;
2003: x_return_status := fnd_api.g_ret_sts_error;
2004: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
1999: EXCEPTION
2000: WHEN fnd_api.g_exc_error
2001: THEN
2002: ROLLBACK TO process_pmt_transactions;
2003: x_return_status := fnd_api.g_ret_sts_error;
2004: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
2005: WHEN fnd_api.g_exc_unexpected_error
2006: THEN
2007: ROLLBACK TO process_pmt_transactions;
2000: WHEN fnd_api.g_exc_error
2001: THEN
2002: ROLLBACK TO process_pmt_transactions;
2003: x_return_status := fnd_api.g_ret_sts_error;
2004: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
2005: WHEN fnd_api.g_exc_unexpected_error
2006: THEN
2007: ROLLBACK TO process_pmt_transactions;
2008: x_return_status := fnd_api.g_ret_sts_unexp_error;
2001: THEN
2002: ROLLBACK TO process_pmt_transactions;
2003: x_return_status := fnd_api.g_ret_sts_error;
2004: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
2005: WHEN fnd_api.g_exc_unexpected_error
2006: THEN
2007: ROLLBACK TO process_pmt_transactions;
2008: x_return_status := fnd_api.g_ret_sts_unexp_error;
2009: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
2004: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
2005: WHEN fnd_api.g_exc_unexpected_error
2006: THEN
2007: ROLLBACK TO process_pmt_transactions;
2008: x_return_status := fnd_api.g_ret_sts_unexp_error;
2009: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
2010: WHEN OTHERS
2011: THEN
2012: ROLLBACK TO process_pmt_transactions;
2005: WHEN fnd_api.g_exc_unexpected_error
2006: THEN
2007: ROLLBACK TO process_pmt_transactions;
2008: x_return_status := fnd_api.g_ret_sts_unexp_error;
2009: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
2010: WHEN OTHERS
2011: THEN
2012: ROLLBACK TO process_pmt_transactions;
2013: x_return_status := fnd_api.g_ret_sts_unexp_error;
2009: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
2010: WHEN OTHERS
2011: THEN
2012: ROLLBACK TO process_pmt_transactions;
2013: x_return_status := fnd_api.g_ret_sts_unexp_error;
2014:
2015: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
2016: THEN
2017: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2015: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
2016: THEN
2017: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2018: END IF;
2019: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data, p_encoded => fnd_api.g_false);
2020: END process_pmt_transactions;
2021:
2022:
2023: END cn_pmt_trans_pvt;