225: THEN
226: CLOSE c_codeassign;
227: fnd_message.set_name('AR', 'HZ_BANK_INVALID_PARENT');
228: fnd_msg_pub.add;
229: x_return_status := fnd_api.g_ret_sts_error;
230:
231: -- parent is not a bank: no point in going any further.
232: RETURN;
233: ELSE
242: IF c_parentinfo%NOTFOUND THEN
243: CLOSE c_parentinfo;
244: fnd_message.set_name('AR', 'HZ_BANK_INVALID_PARENT');
245: fnd_msg_pub.add;
246: x_return_status := fnd_api.g_ret_sts_error;
247:
248: -- parent is not a bank: no point in going any further.
249: RETURN;
250: ELSE
268: IF c_parentinfo2%NOTFOUND THEN
269: CLOSE c_parentinfo2;
270: fnd_message.set_name('AR', 'HZ_BANK_INVALID_PARENT');
271: fnd_msg_pub.add;
272: x_return_status := fnd_api.g_ret_sts_error;
273:
274: -- parent is not a bank: no point in going any further.
275: RETURN;
276: ELSE
285: -- country is specified in the bank record or we are in insert mode.
286: --
287: IF (p_mode = g_insert
288: OR p_bank_rec.organization_rec.home_country IS NOT NULL)
289: AND NVL(l_parent_country, fnd_api.g_miss_char) <> p_bank_rec.organization_rec.home_country
290: THEN
291: fnd_message.set_name('AR', 'HZ_BANK_INVALID_COUNTRY');
292: fnd_message.set_token('INVCOUNTRY', p_bank_rec.organization_rec.home_country);
293: fnd_message.set_token('VLDCOUNTRY', l_parent_country);
291: fnd_message.set_name('AR', 'HZ_BANK_INVALID_COUNTRY');
292: fnd_message.set_token('INVCOUNTRY', p_bank_rec.organization_rec.home_country);
293: fnd_message.set_token('VLDCOUNTRY', l_parent_country);
294: fnd_msg_pub.add;
295: x_return_status := fnd_api.g_ret_sts_error;
296: END IF;
297:
298: -- Debug info.
299: IF fnd_log.level_statement>=fnd_log.g_current_runtime_level THEN
313: fnd_message.set_token('BANK', l_parent_number);
314: fnd_message.set_token('BRANCH', p_bank_rec.bank_or_branch_number);
315: fnd_message.set_token('COUNTRY', l_parent_country);
316: fnd_msg_pub.add;
317: x_return_status := fnd_api.g_ret_sts_error;
318: END IF;
319: CLOSE c_uniquenumberck;
320:
321: --
329: fnd_message.set_token('BANK', l_parent_name);
330: fnd_message.set_token('BRANCH',
331: p_bank_rec.organization_rec.organization_name);
332: fnd_msg_pub.add;
333: x_return_status := fnd_api.g_ret_sts_error;
334: END IF;
335: CLOSE c_uniquenameck;
336:
337: -- Debug info.
401: -- fnd_message.set_token('COLUMN1', 'bank or branch number');
402: -- fnd_message.set_token('VALUE1', 'NULL');
403: -- fnd_message.set_token('COLUMN2', 'bank or branch number');
404: -- fnd_msg_pub.add;
405: -- x_return_status := fnd_api.g_ret_sts_error;
406: -- END IF;
407:
408: IF p_intended_type = 'BANK' THEN
409: -- branch code must be null
409: -- branch code must be null
410: IF p_bank_rec.branch_code IS NOT NULL THEN
411: fnd_message.set_name('AR', 'HZ_BANK_BRANCH_SPECIFIED');
412: fnd_msg_pub.add;
413: x_return_status := fnd_api.g_ret_sts_error;
414: END IF;
415:
416: -- bank institution type must be either CLEARINGHOUSE OR BANK
417: IF p_bank_rec.institution_type NOT IN ('BANK', 'CLEARINGHOUSE') THEN
418: fnd_message.set_name('AR', 'HZ_BANK_INVALID_TYPE');
419: fnd_message.set_token('VALIDSUB', 'CLEARINGHOUSE, BANK');
420: fnd_message.set_token('INVALIDSUB', p_bank_rec.institution_type);
421: fnd_msg_pub.add;
422: x_return_status := fnd_api.g_ret_sts_error;
423: END IF;
424:
425: -- set the validation procedure to be run.
426: l_validation_procedure := 'HZ_BANK_VALIDATION_PROCEDURE';
432: fnd_message.set_name('AR', 'HZ_BANK_INVALID_TYPE');
433: fnd_message.set_token('VALIDSUB', 'BANK_BRANCH, CLEARINGHOUSE_BRANCH');
434: fnd_message.set_token('INVALIDSUB', p_bank_rec.institution_type);
435: fnd_msg_pub.add;
436: x_return_status := fnd_api.g_ret_sts_error;
437: END IF;
438:
439: -- set the validation procedure to be run.
440: l_validation_procedure := 'HZ_BANK_BRANCH_VALIDATION_PROCEDURE';
439: -- set the validation procedure to be run.
440: l_validation_procedure := 'HZ_BANK_BRANCH_VALIDATION_PROCEDURE';
441: ELSE
442: -- this procedure should not have been called.
443: RAISE fnd_api.g_exc_error;
444: END IF;
445:
446: --
447: -- get the temporary ID to identify the bank record - use the same ID
459:
460: fnd_message.set_name('AR', 'HZ_DV_ID_NOT_FOUND');
461: fnd_message.set_token('SEQUENCE', 'hz_parties_s'); -- Bug 3397488
462: fnd_msg_pub.add;
463: RAISE fnd_api.g_exc_error;
464: END IF;
465: CLOSE orgidcur;
466: -- Bug 3814832
467: l_country:=p_bank_rec.organization_rec.home_country;
531:
532: WHEN OTHERS THEN
533: -- set the error status, don't need to set the error stack because
534: -- the dynamic validation procedure already does so.
535: x_return_status := fnd_api.g_ret_sts_error;
536: END;
537:
538: -- Debug info.
539: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
614: FETCH c_uniqueptyedi INTO l_dummy;
615: IF c_uniqueptyedi%FOUND THEN
616: fnd_message.set_name('AR', 'HZ_EDI_UNIQUE');
617: fnd_msg_pub.add;
618: x_return_status := fnd_api.g_ret_sts_error;
619: ELSE
620: -- party contacts passed, check across party site contacts.
621: OPEN c_uniquepsedi;
622: FETCH c_uniquepsedi INTO l_dummy;
622: FETCH c_uniquepsedi INTO l_dummy;
623: IF c_uniquepsedi%FOUND THEN
624: fnd_message.set_name('AR', 'HZ_EDI_UNIQUE');
625: fnd_msg_pub.add;
626: x_return_status := fnd_api.g_ret_sts_error;
627: END IF;
628: CLOSE c_uniquepsedi;
629: END IF;
630: CLOSE c_uniqueptyedi;
654: END IF;
655: WHEN OTHERS THEN
656: -- set the error status, don't need to set the error stack because
657: -- the dynamic validation procedure already does so.
658: x_return_status := fnd_api.g_ret_sts_error;
659: END;
660:
661: -- Debug info.
662: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
717: END IF;
718: WHEN OTHERS THEN
719: -- set the error status, don't need to set the error stack because
720: -- the dynamic validation procedure already does so.
721: x_return_status := fnd_api.g_ret_sts_error;
722: END;
723:
724: -- Debug info.
725: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
781:
782: WHEN OTHERS THEN
783: -- set the error status, don't need to set the error stack because
784: -- the dynamic validation procedure already does so.
785: x_return_status := fnd_api.g_ret_sts_error;
786: END;
787:
788: -- Debug info.
789: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
845:
846: WHEN OTHERS THEN
847: -- set the error status, don't need to set the error stack because
848: -- the dynamic validation procedure already does so.
849: x_return_status := fnd_api.g_ret_sts_error;
850: END;
851:
852: -- Debug info.
853: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
908: END IF;
909: WHEN OTHERS THEN
910: -- set the error status, don't need to set the error stack because
911: -- the dynamic validation procedure already does so.
912: x_return_status := fnd_api.g_ret_sts_error;
913: END;
914:
915: -- Debug info.
916: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
971: END IF;
972: WHEN OTHERS THEN
973: -- set the error status, don't need to set the error stack because
974: -- the dynamic validation procedure already does so.
975: x_return_status := fnd_api.g_ret_sts_error;
976: END;
977:
978: -- Debug info.
979: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
1013: fnd_message.set_name('AR', 'HZ_BANK_INVALID_TYPE');
1014: fnd_message.set_token('VALIDSUB', 'BANKING_GROUP');
1015: fnd_message.set_token('INVALIDSUB', p_group_rec.group_type);
1016: fnd_msg_pub.add;
1017: x_return_status := fnd_api.g_ret_sts_error;
1018: END IF;
1019:
1020: BEGIN
1021: hz_dyn_validation.validate_group(
1036: END IF;
1037: WHEN OTHERS THEN
1038: -- set the error status, don't need to set the error stack because
1039: -- the dynamic validation procedure already does so.
1040: x_return_status := fnd_api.g_ret_sts_error;
1041: END;
1042:
1043: -- Debug info.
1044: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
1077: fnd_message.set_name('AR', 'HZ_API_NO_RECORD');
1078: fnd_message.set_token('RECORD', 'party');
1079: fnd_message.set_token('VALUE', TO_CHAR(p_party_id));
1080: fnd_msg_pub.add;
1081: x_return_status := fnd_api.g_ret_sts_error;
1082: END IF;
1083: CLOSE c_group;
1084:
1085: RETURN NVL(l_group_type, 'NULL');
1126: fnd_message.set_token('VALIDSUB', 'BANKING_GROUP');
1127: fnd_message.set_token('INVALIDSUB',
1128: p_relationship_rec.relationship_type);
1129: fnd_msg_pub.add;
1130: x_return_status := fnd_api.g_ret_sts_error;
1131: END IF;
1132:
1133: --
1134: -- Only check this information if we are in insert
1163: fnd_message.set_name('AR', 'HZ_BANK_INVALID_TYPE');
1164: fnd_message.set_token('VALIDSUB', 'BANKING_GROUP');
1165: fnd_message.set_token('INVALIDSUB', l_group_type);
1166: fnd_msg_pub.add;
1167: x_return_status := fnd_api.g_ret_sts_error;
1168:
1169: -- return, the rest of the validations do not make sense if neither
1170: -- subject nor object is a valid banking group.
1171: RETURN;
1192: fnd_message.set_token('VALIDSUB', 'C');
1193: END IF;
1194: fnd_message.set_token('INVALIDSUB', l_direction);
1195: fnd_msg_pub.add;
1196: x_return_status := fnd_api.g_ret_sts_error;
1197: END IF;
1198: ELSE
1199: fnd_message.set_name('AR', 'HZ_API_NO_RECORD');
1200: fnd_message.set_token('RECORD', 'banking group relationship type');
1199: fnd_message.set_name('AR', 'HZ_API_NO_RECORD');
1200: fnd_message.set_token('RECORD', 'banking group relationship type');
1201: fnd_message.set_token('VALUE', p_relationship_rec.relationship_type);
1202: fnd_msg_pub.add;
1203: x_return_status := fnd_api.g_ret_sts_error;
1204: END IF;
1205: CLOSE c_reldir;
1206:
1207: --
1222: fnd_message.set_name('AR', 'HZ_API_NO_RECORD');
1223: fnd_message.set_token('RECORD', 'bank classification code assignment');
1224: fnd_message.set_token('VALUE', TO_CHAR(l_bank_id));
1225: fnd_msg_pub.add;
1226: x_return_status := fnd_api.g_ret_sts_error;
1227: END IF;
1228:
1229: IF l_class_code IS NOT NULL
1230: AND l_class_code NOT IN ('BANK', 'CLEARINGHOUSE')
1232: fnd_message.set_name('AR', 'HZ_BANK_INVALID_TYPE');
1233: fnd_message.set_token('VALIDSUB', 'BANK, CLEARINGHOUSE');
1234: fnd_message.set_token('INVALIDSUB', l_class_code);
1235: fnd_msg_pub.add;
1236: x_return_status := fnd_api.g_ret_sts_error;
1237: END IF;
1238: CLOSE c_codeassign;
1239: END IF;
1240:
1261: END IF;
1262: WHEN OTHERS THEN
1263: -- set the error status, don't need to set the error stack because
1264: -- the dynamic validation procedure already does so.
1265: x_return_status := fnd_api.g_ret_sts_error;
1266: END;
1267:
1268: -- Debug info.
1269: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
1311: fnd_message.set_token('VALIDSUB', 'CLEARINGHOUSE_BANK');
1312: fnd_message.set_token('INVALIDSUB',
1313: p_relationship_rec.relationship_type);
1314: fnd_msg_pub.add;
1315: x_return_status := fnd_api.g_ret_sts_error;
1316: END IF;
1317:
1318: --
1319: -- Only check this information if we are in insert mode. The V2 API call
1333: fnd_message.set_token('RECORD',
1334: 'bank/clearinghouse code assignment (subject)');
1335: fnd_message.set_token('VALUE', TO_CHAR(p_relationship_rec.subject_id));
1336: fnd_msg_pub.add;
1337: x_return_status := fnd_api.g_ret_sts_error;
1338: ELSIF l_subject_class NOT IN ('CLEARINGHOUSE', 'BANK', 'BANK_BRANCH')
1339: THEN
1340: fnd_message.set_name('AR', 'HZ_BANK_INVALID_TYPE');
1341: fnd_message.set_token('VALIDSUB', 'CLEARINGHOUSE, BANK');
1340: fnd_message.set_name('AR', 'HZ_BANK_INVALID_TYPE');
1341: fnd_message.set_token('VALIDSUB', 'CLEARINGHOUSE, BANK');
1342: fnd_message.set_token('INVALIDSUB', l_subject_class);
1343: fnd_msg_pub.add;
1344: x_return_status := fnd_api.g_ret_sts_error;
1345: END IF;
1346: CLOSE c_codeassign;
1347:
1348: --
1357: fnd_message.set_token('RECORD',
1358: 'bank/clearinghouse code assignment (object)');
1359: fnd_message.set_token('VALUE', TO_CHAR(p_relationship_rec.object_id));
1360: fnd_msg_pub.add;
1361: x_return_status := fnd_api.g_ret_sts_error;
1362: ELSIF l_object_class NOT IN ('CLEARINGHOUSE', 'BANK', 'BANK_BRANCH') THEN
1363: fnd_message.set_name('AR', 'HZ_BANK_INVALID_TYPE');
1364: fnd_message.set_token('VALIDSUB', 'BANK, CLEARINGHOUSE');
1365: fnd_message.set_token('INVALIDSUB', l_object_class);
1363: fnd_message.set_name('AR', 'HZ_BANK_INVALID_TYPE');
1364: fnd_message.set_token('VALIDSUB', 'BANK, CLEARINGHOUSE');
1365: fnd_message.set_token('INVALIDSUB', l_object_class);
1366: fnd_msg_pub.add;
1367: x_return_status := fnd_api.g_ret_sts_error;
1368: ELSIF l_subject_class = l_object_class THEN
1369: fnd_message.set_name('AR', 'HZ_BANK_INVALID_TYPE');
1370: fnd_message.set_token('VALIDSUB', 'different');
1371: fnd_message.set_token('INVALIDSUB', l_object_class);
1369: fnd_message.set_name('AR', 'HZ_BANK_INVALID_TYPE');
1370: fnd_message.set_token('VALIDSUB', 'different');
1371: fnd_message.set_token('INVALIDSUB', l_object_class);
1372: fnd_msg_pub.add;
1373: x_return_status := fnd_api.g_ret_sts_error;
1374: END IF;
1375: CLOSE c_codeassign;
1376:
1377: --
1395: fnd_message.set_token('VALIDSUB', 'C');
1396: END IF;
1397: fnd_message.set_token('INVALIDSUB', l_direction);
1398: fnd_msg_pub.add;
1399: x_return_status := fnd_api.g_ret_sts_error;
1400: END IF;
1401: ELSE
1402: fnd_message.set_name('AR', 'HZ_API_NO_RECORD');
1403: fnd_message.set_token('RECORD',
1403: fnd_message.set_token('RECORD',
1404: 'clearinghouse assignment relationship type');
1405: fnd_message.set_token('VALUE', p_relationship_rec.relationship_type);
1406: fnd_msg_pub.add;
1407: x_return_status := fnd_api.g_ret_sts_error;
1408: END IF;
1409: CLOSE c_reldir;
1410: END IF;
1411:
1428: END IF;
1429: WHEN OTHERS THEN
1430: -- set the error status, don't need to set the error stack because
1431: -- the dynamic validation procedure already does so.
1432: x_return_status := fnd_api.g_ret_sts_error;
1433: END;
1434:
1435: -- Debug info.
1436: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
1516: fnd_message.set_token('FK', 'party or location');
1517: fnd_message.set_token('COLUMN', 'PARTY_ID or LOCATION_ID');
1518: fnd_message.set_token('TABLE', 'HZ_PARTY_SITES');
1519: fnd_msg_pub.add;
1520: x_return_status := fnd_api.g_ret_sts_error;
1521: -- no point doing further validations. We're missing some data.
1522: RETURN;
1523: END IF;
1524:
1530: fnd_message.set_token('FK', 'party or location');
1531: fnd_message.set_token('COLUMN', 'PARTY_ID or LOCATION_ID');
1532: fnd_message.set_token('TABLE', 'HZ_PARTY_SITES');
1533: fnd_msg_pub.add;
1534: x_return_status := fnd_api.g_ret_sts_error;
1535: -- no point doing further validations. We're missing some data.
1536: RETURN;
1537: END IF;
1538:
1552: fnd_message.set_token('FK', 'active party');
1553: fnd_message.set_token('COLUMN', 'PARTY_ID');
1554: fnd_message.set_token('TABLE', 'HZ_PARTIES');
1555: fnd_msg_pub.add;
1556: x_return_status := fnd_api.g_ret_sts_error;
1557: END IF;
1558: CLOSE c_parentcountry;
1559:
1560: OPEN c_sitecountry(l_location_id);
1564: fnd_message.set_token('FK', 'active location');
1565: fnd_message.set_token('COLUMN', 'LOCATION_ID');
1566: fnd_message.set_token('TABLE', 'HZ_LOCATIONS');
1567: fnd_msg_pub.add;
1568: x_return_status := fnd_api.g_ret_sts_error;
1569: END IF;
1570: CLOSE c_sitecountry;
1571:
1572: IF l_parent_country <> l_site_country THEN
1573: fnd_message.set_name('AR', 'HZ_BANK_INVALID_COUNTRY');
1574: fnd_message.set_token('INVCOUNTRY', l_site_country);
1575: fnd_message.set_token('VLDCOUNTRY', l_parent_country);
1576: fnd_msg_pub.add;
1577: x_return_status := fnd_api.g_ret_sts_error;
1578: END IF;
1579: END IF;
1580:
1581: --
1591: fnd_message.set_name('AR', 'HZ_API_NO_RECORD');
1592: fnd_message.set_token('RECORD', 'bank-related code assignment');
1593: fnd_message.set_token('VALUE', TO_CHAR(p_party_site_rec.party_id));
1594: fnd_msg_pub.add;
1595: x_return_status := fnd_api.g_ret_sts_error;
1596: ELSIF l_class_code NOT IN ('CLEARINGHOUSE', 'BANK', 'BANK_BRANCH') THEN
1597: fnd_message.set_name('AR', 'HZ_BANK_INVALID_TYPE');
1598: fnd_message.set_token('VALIDSUB',
1599: 'BANK, CLEARINGHOUSE, BANK_BRANCH');
1598: fnd_message.set_token('VALIDSUB',
1599: 'BANK, CLEARINGHOUSE, BANK_BRANCH');
1600: fnd_message.set_token('INVALIDSUB', l_class_code);
1601: fnd_msg_pub.add;
1602: x_return_status := fnd_api.g_ret_sts_error;
1603: END IF;
1604: CLOSE c_codeassign;
1605: END IF;
1606:
1627: END IF;
1628: WHEN OTHERS THEN
1629: -- set the error status, don't need to set the error stack because
1630: -- the dynamic validation procedure already does so.
1631: x_return_status := fnd_api.g_ret_sts_error;
1632: END;
1633:
1634: -- Debug info.
1635: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
2013: fnd_message.set_name('AR', 'HZ_API_NO_RECORD');
2014: fnd_message.set_token('RECORD', 'relationship');
2015: fnd_message.set_token('VALUE', TO_CHAR(p_relationship_id));
2016: fnd_msg_pub.add;
2017: x_return_status := fnd_api.g_ret_sts_error;
2018:
2019: -- Debug info.
2020: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
2021: hz_utility_v2pub.debug(p_message=>'update_bank_relationship (-)',
2084: x_msg_data => x_msg_data
2085: );
2086:
2087: -- finish execution if the relationship creation routine is unsuccessful
2088: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2089: -- Debug info.
2090: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
2091: hz_utility_v2pub.debug(p_message=>'update_bank_relationship (-)',
2092: p_prefix=>l_debug_prefix,
2179: l_code_assignment_rec.application_id := p_application_id;
2180: l_code_assignment_rec.end_date_active := p_end_date_active;
2181:
2182: hz_classification_v2pub.create_code_assignment(
2183: p_init_msg_list => fnd_api.g_false,
2184: p_code_assignment_rec => l_code_assignment_rec,
2185: x_return_status => x_return_status,
2186: x_msg_count => x_msg_count,
2187: x_msg_data => x_msg_data,
2281: l_code_assignment_rec.code_assignment_id := l_code_assignment_id;
2282: l_code_assignment_rec.end_date_active := p_end_date_active;
2283:
2284: hz_classification_v2pub.update_code_assignment(
2285: p_init_msg_list => fnd_api.g_false,
2286: p_code_assignment_rec => l_code_assignment_rec,
2287: p_object_version_number => p_object_version_number,
2288: x_return_status => x_return_status,
2289: x_msg_count => x_msg_count,
2290: x_msg_data => x_msg_data
2291: );
2292:
2293: ELSIF p_bank_organization_type IS NOT NULL AND
2294: p_bank_organization_type <> fnd_api.g_miss_char
2295: THEN
2296: -- inactivate the existing active assignment
2297: IF p_end_date_active IS NOT NULL AND
2298: p_end_date_active > SYSDATE OR
2296: -- inactivate the existing active assignment
2297: IF p_end_date_active IS NOT NULL AND
2298: p_end_date_active > SYSDATE OR
2299: p_end_date_active IS NULL OR
2300: p_end_date_active = fnd_api.g_miss_date
2301: THEN
2302: OPEN c_assignid;
2303: FETCH c_assignid INTO
2304: l_code_assignment_id, p_object_version_number;
2309: l_code_assignment_rec.end_date_active := sysdate-10/(24*60*60);
2310: l_code_assignment_rec.primary_flag := 'N';
2311:
2312: hz_classification_v2pub.update_code_assignment(
2313: p_init_msg_list => fnd_api.g_false,
2314: p_code_assignment_rec => l_code_assignment_rec,
2315: p_object_version_number => p_object_version_number,
2316: x_return_status => x_return_status,
2317: x_msg_count => x_msg_count,
2338: l_code_assignment_rec.application_id := p_application_id;
2339: l_code_assignment_rec.end_date_active := p_end_date_active;
2340:
2341: hz_classification_v2pub.create_code_assignment(
2342: p_init_msg_list => fnd_api.g_false,
2343: p_code_assignment_rec => l_code_assignment_rec,
2344: x_return_status => x_return_status,
2345: x_msg_count => x_msg_count,
2346: x_msg_data => x_msg_data,
2353: l_code_assignment_rec.end_date_active := p_end_date_active;
2354: l_code_assignment_rec.primary_flag := 'Y';
2355:
2356: hz_classification_v2pub.update_code_assignment(
2357: p_init_msg_list => fnd_api.g_false,
2358: p_code_assignment_rec => l_code_assignment_rec,
2359: p_object_version_number => p_object_version_number,
2360: x_return_status => x_return_status,
2361: x_msg_count => x_msg_count,
2404: l_party_usg_assignment_rec.effective_end_date := p_end_date_active;
2405:
2406: IF p_end_date_active IS NOT NULL AND
2407: trunc(p_end_date_active) < trunc(sysdate) AND
2408: p_end_date_active <> FND_API.G_MISS_DATE
2409: THEN
2410: l_party_usg_assignment_rec.effective_start_date := p_end_date_active;
2411: END IF;
2412:
2476: OPEN c_party_usage_date(l_class_code);
2477: FETCH c_party_usage_date INTO l_assignment_id, l_end_date_active;
2478: CLOSE c_party_usage_date;
2479:
2480: IF p_end_date_active <> fnd_api.g_miss_date AND
2481: l_end_date_active = TO_DATE('4712/12/31','YYYY/MM/DD') OR
2482: p_end_date_active = fnd_api.g_miss_date AND
2483: l_end_date_active <> TO_DATE('4712/12/31','YYYY/MM/DD') OR
2484: trunc(p_end_date_active) <> l_end_date_active
2478: CLOSE c_party_usage_date;
2479:
2480: IF p_end_date_active <> fnd_api.g_miss_date AND
2481: l_end_date_active = TO_DATE('4712/12/31','YYYY/MM/DD') OR
2482: p_end_date_active = fnd_api.g_miss_date AND
2483: l_end_date_active <> TO_DATE('4712/12/31','YYYY/MM/DD') OR
2484: trunc(p_end_date_active) <> l_end_date_active
2485: THEN
2486: l_party_usg_assignment_rec.party_id := p_party_id;
2513: | |
2514: | ARGUMENTS |
2515: | IN: |
2516: | p_init_msg_list Initialize message stack if it is set to |
2517: | FND_API.G_TRUE. Default is fnd_api.g_false. |
2518: | p_bank_rec Bank record. |
2519: | IN/OUT: |
2520: | OUT: |
2521: | x_party_id Party ID for the bank. |
2523: | x_profile_id Organization profile ID for the bank. |
2524: | x_code_assignment_id The code assignment ID for the bank |
2525: | classification. |
2526: | x_return_status Return status after the call. The status can |
2527: | be FND_API.G_RET_STS_SUCCESS (success), |
2528: | fnd_api.g_ret_sts_error (error), |
2529: | fnd_api.g_ret_sts_unexp_error (unexpected |
2530: | error). |
2531: | x_msg_count Number of messages in message stack. |
2524: | x_code_assignment_id The code assignment ID for the bank |
2525: | classification. |
2526: | x_return_status Return status after the call. The status can |
2527: | be FND_API.G_RET_STS_SUCCESS (success), |
2528: | fnd_api.g_ret_sts_error (error), |
2529: | fnd_api.g_ret_sts_unexp_error (unexpected |
2530: | error). |
2531: | x_msg_count Number of messages in message stack. |
2532: | x_msg_data Message text if x_msg_count is 1. |
2525: | classification. |
2526: | x_return_status Return status after the call. The status can |
2527: | be FND_API.G_RET_STS_SUCCESS (success), |
2528: | fnd_api.g_ret_sts_error (error), |
2529: | fnd_api.g_ret_sts_unexp_error (unexpected |
2530: | error). |
2531: | x_msg_count Number of messages in message stack. |
2532: | x_msg_data Message text if x_msg_count is 1. |
2533: | MODIFICATION HISTORY |
2534: | 27-NOV-2001 J. del Callar Created. |
2535: | 23-JAN-2004 Rajesh Jose Modified for Bug 3397488 |
2536: +=======================================================================*/
2537: PROCEDURE create_bank (
2538: p_init_msg_list IN VARCHAR2:= fnd_api.g_false,
2539: p_bank_rec IN bank_rec_type,
2540: x_party_id OUT NOCOPY NUMBER,
2541: x_party_number OUT NOCOPY VARCHAR2,
2542: x_profile_id OUT NOCOPY NUMBER,
2561: p_msg_level=>fnd_log.level_procedure);
2562: END IF;
2563:
2564: -- initialize message list if p_init_msg_list is set to TRUE.
2565: IF fnd_api.to_boolean(p_init_msg_list) THEN
2566: fnd_msg_pub.initialize;
2567: END IF;
2568:
2569: -- initialize API return status to success.
2566: fnd_msg_pub.initialize;
2567: END IF;
2568:
2569: -- initialize API return status to success.
2570: x_return_status := fnd_api.g_ret_sts_success;
2571:
2572: --
2573: -- execute business logic
2574: --
2578:
2579: validate_bank_org(l_bank_rec, 'BANK', g_insert, x_return_status);
2580:
2581: -- raise an exception if the validation routine is unsuccessful
2582: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2583: RAISE fnd_api.g_exc_error;
2584: END IF;
2585:
2586: -- Retrieving the party_id that we are using to create the bank record.
2579: validate_bank_org(l_bank_rec, 'BANK', g_insert, x_return_status);
2580:
2581: -- raise an exception if the validation routine is unsuccessful
2582: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2583: RAISE fnd_api.g_exc_error;
2584: END IF;
2585:
2586: -- Retrieving the party_id that we are using to create the bank record.
2587: select temp_id into l_bank_rec.organization_rec.party_rec.party_id
2598: x_profile_id => x_profile_id
2599: );
2600:
2601: -- raise an exception if the organization profile creation is unsuccessful
2602: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2603: RAISE fnd_api.g_exc_error;
2604: END IF;
2605:
2606: -- update the bank-specific organization attributes
2599: );
2600:
2601: -- raise an exception if the organization profile creation is unsuccessful
2602: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2603: RAISE fnd_api.g_exc_error;
2604: END IF;
2605:
2606: -- update the bank-specific organization attributes
2607: update_bank_organization(x_profile_id,
2621: x_msg_count,
2622: x_msg_data);
2623:
2624: -- raise an exception if the code assignment creation is unsuccessful
2625: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2626: RAISE fnd_api.g_exc_error;
2627: END IF;
2628:
2629: --
2622: x_msg_data);
2623:
2624: -- raise an exception if the code assignment creation is unsuccessful
2625: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2626: RAISE fnd_api.g_exc_error;
2627: END IF;
2628:
2629: --
2630: -- added for R12 party usage project.
2637: x_return_status => x_return_status
2638: );
2639:
2640: -- raise an exception if the usage assignment creation is unsuccessful
2641: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2642: RAISE fnd_api.g_exc_error;
2643: END IF;
2644: END IF;
2645:
2638: );
2639:
2640: -- raise an exception if the usage assignment creation is unsuccessful
2641: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2642: RAISE fnd_api.g_exc_error;
2643: END IF;
2644: END IF;
2645:
2646: -- standard call to get message count and if count is 1, get message info.
2643: END IF;
2644: END IF;
2645:
2646: -- standard call to get message count and if count is 1, get message info.
2647: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2648: p_count => x_msg_count,
2649: p_data => x_msg_data);
2650:
2651: -- Debug info.
2664: -- Check if API is called in debug mode. If yes, disable debug.
2665: --disable_debug;
2666:
2667: EXCEPTION
2668: WHEN fnd_api.g_exc_error THEN
2669: ROLLBACK TO create_bank;
2670: x_return_status := fnd_api.g_ret_sts_error;
2671: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2672: p_count => x_msg_count,
2666:
2667: EXCEPTION
2668: WHEN fnd_api.g_exc_error THEN
2669: ROLLBACK TO create_bank;
2670: x_return_status := fnd_api.g_ret_sts_error;
2671: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2672: p_count => x_msg_count,
2673: p_data => x_msg_data);
2674:
2667: EXCEPTION
2668: WHEN fnd_api.g_exc_error THEN
2669: ROLLBACK TO create_bank;
2670: x_return_status := fnd_api.g_ret_sts_error;
2671: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2672: p_count => x_msg_count,
2673: p_data => x_msg_data);
2674:
2675: -- Debug info.
2687:
2688: -- Check if API is called in debug mode. If yes, disable debug.
2689: --disable_debug;
2690:
2691: WHEN fnd_api.g_exc_unexpected_error THEN
2692: ROLLBACK TO create_bank;
2693: x_return_status := fnd_api.g_ret_sts_unexp_error;
2694: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2695: p_count => x_msg_count,
2689: --disable_debug;
2690:
2691: WHEN fnd_api.g_exc_unexpected_error THEN
2692: ROLLBACK TO create_bank;
2693: x_return_status := fnd_api.g_ret_sts_unexp_error;
2694: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2695: p_count => x_msg_count,
2696: p_data => x_msg_data);
2697:
2690:
2691: WHEN fnd_api.g_exc_unexpected_error THEN
2692: ROLLBACK TO create_bank;
2693: x_return_status := fnd_api.g_ret_sts_unexp_error;
2694: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2695: p_count => x_msg_count,
2696: p_data => x_msg_data);
2697:
2698: -- Debug info.
2713: --disable_debug;
2714:
2715: WHEN OTHERS THEN
2716: ROLLBACK TO create_bank;
2717: x_return_status := fnd_api.g_ret_sts_unexp_error;
2718: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
2719: fnd_message.set_token('ERROR',SQLERRM);
2720: fnd_msg_pub.add;
2721: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2717: x_return_status := fnd_api.g_ret_sts_unexp_error;
2718: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
2719: fnd_message.set_token('ERROR',SQLERRM);
2720: fnd_msg_pub.add;
2721: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2722: p_count => x_msg_count,
2723: p_data => x_msg_data);
2724:
2725: -- Debug info.
2753: | |
2754: | ARGUMENTS |
2755: | IN: |
2756: | p_init_msg_list Initialize message stack if it is |
2757: | set to FND_API.G_TRUE. Default is |
2758: | fnd_api.g_false. |
2759: | p_bank_rec Bank record. |
2760: | IN/OUT: |
2761: | x_pobject_version_number New version number for the bank. |
2754: | ARGUMENTS |
2755: | IN: |
2756: | p_init_msg_list Initialize message stack if it is |
2757: | set to FND_API.G_TRUE. Default is |
2758: | fnd_api.g_false. |
2759: | p_bank_rec Bank record. |
2760: | IN/OUT: |
2761: | x_pobject_version_number New version number for the bank. |
2762: | x_bitobject_version_number New version number for the code |
2765: | x_profile_id New organization profile ID for |
2766: | the updated bank. |
2767: | x_return_status Return status after the call. The |
2768: | status can be |
2769: | FND_API.G_RET_STS_SUCCESS |
2770: | (success), fnd_api.g_ret_sts_error |
2771: | (error), |
2772: | fnd_api.g_ret_sts_unexp_error |
2773: | (unexpected error). |
2766: | the updated bank. |
2767: | x_return_status Return status after the call. The |
2768: | status can be |
2769: | FND_API.G_RET_STS_SUCCESS |
2770: | (success), fnd_api.g_ret_sts_error |
2771: | (error), |
2772: | fnd_api.g_ret_sts_unexp_error |
2773: | (unexpected error). |
2774: | x_msg_count Number of messages in message |
2768: | status can be |
2769: | FND_API.G_RET_STS_SUCCESS |
2770: | (success), fnd_api.g_ret_sts_error |
2771: | (error), |
2772: | fnd_api.g_ret_sts_unexp_error |
2773: | (unexpected error). |
2774: | x_msg_count Number of messages in message |
2775: | stack. |
2776: | x_msg_data Message text if x_msg_count is 1. |
2783: | update_bank and update_bank_branch|
2784: | APIs. |
2785: +=======================================================================*/
2786: PROCEDURE update_bank (
2787: p_init_msg_list IN VARCHAR2:= fnd_api.g_false,
2788: p_bank_rec IN bank_rec_type,
2789: p_pobject_version_number IN OUT NOCOPY NUMBER,
2790: p_bitobject_version_number IN OUT NOCOPY NUMBER,
2791: x_profile_id OUT NOCOPY NUMBER,
2811: p_msg_level=>fnd_log.level_procedure);
2812: END IF;
2813:
2814: -- initialize message list if p_init_msg_list is set to TRUE.
2815: IF fnd_api.to_boolean(p_init_msg_list) THEN
2816: fnd_msg_pub.initialize;
2817: END IF;
2818:
2819: -- initialize API return status to success.
2816: fnd_msg_pub.initialize;
2817: END IF;
2818:
2819: -- initialize API return status to success.
2820: x_return_status := fnd_api.g_ret_sts_success;
2821:
2822: l_bank_rec := p_bank_rec;
2823: l_bank_rec.organization_rec.home_country := l_bank_rec.country;
2824:
2828:
2829: validate_bank_org(l_bank_rec, 'BANK', g_update, x_return_status);
2830:
2831: -- raise an exception if the validation routine is unsuccessful
2832: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2833: RAISE fnd_api.g_exc_error;
2834: END IF;
2835:
2836: -- update the organization profile.
2829: validate_bank_org(l_bank_rec, 'BANK', g_update, x_return_status);
2830:
2831: -- raise an exception if the validation routine is unsuccessful
2832: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2833: RAISE fnd_api.g_exc_error;
2834: END IF;
2835:
2836: -- update the organization profile.
2837: hz_party_v2pub.update_organization(
2843: x_msg_data => x_msg_data
2844: );
2845:
2846: -- raise an exception if the organization profile creation is unsuccessful
2847: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2848: RAISE fnd_api.g_exc_error;
2849: END IF;
2850:
2851: -- update the bank-specific organization attributes
2844: );
2845:
2846: -- raise an exception if the organization profile creation is unsuccessful
2847: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2848: RAISE fnd_api.g_exc_error;
2849: END IF;
2850:
2851: -- update the bank-specific organization attributes
2852: update_bank_organization(x_profile_id,
2868: x_msg_count,
2869: x_msg_data);
2870:
2871: -- raise an exception if the code assignment creation is unsuccessful
2872: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2873: RAISE fnd_api.g_exc_error;
2874: END IF;
2875: --END IF;
2876:
2869: x_msg_data);
2870:
2871: -- raise an exception if the code assignment creation is unsuccessful
2872: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2873: RAISE fnd_api.g_exc_error;
2874: END IF;
2875: --END IF;
2876:
2877: --
2883: p_end_date_active => l_bank_rec.inactive_date,
2884: x_return_status => x_return_status
2885: );
2886:
2887: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2888: RAISE fnd_api.g_exc_error;
2889: END IF;
2890: END IF;
2891:
2884: x_return_status => x_return_status
2885: );
2886:
2887: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2888: RAISE fnd_api.g_exc_error;
2889: END IF;
2890: END IF;
2891:
2892: -- standard call to get message count and if count is 1, get message info.
2889: END IF;
2890: END IF;
2891:
2892: -- standard call to get message count and if count is 1, get message info.
2893: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2894: p_count => x_msg_count,
2895: p_data => x_msg_data);
2896:
2897: -- Debug info.
2910: -- Check if API is called in debug mode. If yes, disable debug.
2911: --disable_debug;
2912:
2913: EXCEPTION
2914: WHEN fnd_api.g_exc_error THEN
2915: ROLLBACK TO update_bank;
2916: x_return_status := fnd_api.g_ret_sts_error;
2917: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2918: p_count => x_msg_count,
2912:
2913: EXCEPTION
2914: WHEN fnd_api.g_exc_error THEN
2915: ROLLBACK TO update_bank;
2916: x_return_status := fnd_api.g_ret_sts_error;
2917: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2918: p_count => x_msg_count,
2919: p_data => x_msg_data);
2920:
2913: EXCEPTION
2914: WHEN fnd_api.g_exc_error THEN
2915: ROLLBACK TO update_bank;
2916: x_return_status := fnd_api.g_ret_sts_error;
2917: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2918: p_count => x_msg_count,
2919: p_data => x_msg_data);
2920:
2921: -- Debug info.
2933:
2934: -- Check if API is called in debug mode. If yes, disable debug.
2935: --disable_debug;
2936:
2937: WHEN fnd_api.g_exc_unexpected_error THEN
2938: ROLLBACK TO update_bank;
2939: x_return_status := fnd_api.g_ret_sts_unexp_error;
2940: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2941: p_count => x_msg_count,
2935: --disable_debug;
2936:
2937: WHEN fnd_api.g_exc_unexpected_error THEN
2938: ROLLBACK TO update_bank;
2939: x_return_status := fnd_api.g_ret_sts_unexp_error;
2940: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2941: p_count => x_msg_count,
2942: p_data => x_msg_data);
2943:
2936:
2937: WHEN fnd_api.g_exc_unexpected_error THEN
2938: ROLLBACK TO update_bank;
2939: x_return_status := fnd_api.g_ret_sts_unexp_error;
2940: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2941: p_count => x_msg_count,
2942: p_data => x_msg_data);
2943:
2944: -- Debug info.
2958: --disable_debug;
2959:
2960: WHEN OTHERS THEN
2961: ROLLBACK TO update_bank;
2962: x_return_status := fnd_api.g_ret_sts_unexp_error;
2963: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
2964: fnd_message.set_token('ERROR',SQLERRM);
2965: fnd_msg_pub.add;
2966: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2962: x_return_status := fnd_api.g_ret_sts_unexp_error;
2963: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
2964: fnd_message.set_token('ERROR',SQLERRM);
2965: fnd_msg_pub.add;
2966: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
2967: p_count => x_msg_count,
2968: p_data => x_msg_data);
2969:
2970: -- Debug info.
2996: | |
2997: | ARGUMENTS |
2998: | IN: |
2999: | p_init_msg_list Initialize message stack if it is set to |
3000: | FND_API.G_TRUE. Default is fnd_api.g_false. |
3001: | p_bank_rec Bank record. |
3002: | p_bank_party_id Party ID of the parent bank. NULL if the |
3003: | parent bank is not going to be reassigned. |
3004: | IN/OUT: |
3016: | bank branch. |
3017: | x_rfccode_assignment_id The code assignment ID for the Regional |
3018: | Finance Center used by the bank branch. |
3019: | x_return_status Return status after the call. The status can |
3020: | be FND_API.G_RET_STS_SUCCESS (success), |
3021: | fnd_api.g_ret_sts_error (error), |
3022: | fnd_api.g_ret_sts_unexp_error (unexpected |
3023: | error). |
3024: | x_msg_count Number of messages in message stack. |
3017: | x_rfccode_assignment_id The code assignment ID for the Regional |
3018: | Finance Center used by the bank branch. |
3019: | x_return_status Return status after the call. The status can |
3020: | be FND_API.G_RET_STS_SUCCESS (success), |
3021: | fnd_api.g_ret_sts_error (error), |
3022: | fnd_api.g_ret_sts_unexp_error (unexpected |
3023: | error). |
3024: | x_msg_count Number of messages in message stack. |
3025: | x_msg_data Message text if x_msg_count is 1. |
3018: | Finance Center used by the bank branch. |
3019: | x_return_status Return status after the call. The status can |
3020: | be FND_API.G_RET_STS_SUCCESS (success), |
3021: | fnd_api.g_ret_sts_error (error), |
3022: | fnd_api.g_ret_sts_unexp_error (unexpected |
3023: | error). |
3024: | x_msg_count Number of messages in message stack. |
3025: | x_msg_data Message text if x_msg_count is 1. |
3026: | MODIFICATION HISTORY |
3028: | 06-MAY-2002 J. del Callar Added support for RFCs. |
3029: | 23-JAN-2004 Rajesh Jose Modified for Bug 3397488 |
3030: +=======================================================================*/
3031: PROCEDURE create_bank_branch (
3032: p_init_msg_list IN VARCHAR2:= fnd_api.g_false,
3033: p_bank_rec IN bank_rec_type,
3034: p_bank_party_id IN NUMBER,
3035: x_party_id OUT NOCOPY NUMBER,
3036: x_party_number OUT NOCOPY VARCHAR2,
3061: p_msg_level=>fnd_log.level_procedure);
3062: END IF;
3063:
3064: -- initialize message list if p_init_msg_list is set to TRUE.
3065: IF fnd_api.to_boolean(p_init_msg_list) THEN
3066: fnd_msg_pub.initialize;
3067: END IF;
3068:
3069: -- initialize API return status to success.
3066: fnd_msg_pub.initialize;
3067: END IF;
3068:
3069: -- initialize API return status to success.
3070: x_return_status := fnd_api.g_ret_sts_success;
3071:
3072: --
3073: -- execute business logic
3074: --
3085: -- validate the bank branch and its type.
3086: validate_bank_org(l_bank_rec, 'BRANCH', g_insert, x_return_status);
3087:
3088: -- raise an exception if the validation routine is unsuccessful
3089: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3090: RAISE fnd_api.g_exc_error;
3091: END IF;
3092:
3093: -- Retrieving the party_id that we are using to create the bank record.
3086: validate_bank_org(l_bank_rec, 'BRANCH', g_insert, x_return_status);
3087:
3088: -- raise an exception if the validation routine is unsuccessful
3089: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3090: RAISE fnd_api.g_exc_error;
3091: END IF;
3092:
3093: -- Retrieving the party_id that we are using to create the bank record.
3094:
3106: x_profile_id => x_profile_id
3107: );
3108:
3109: -- raise an exception if the organization profile creation is unsuccessful
3110: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3111: RAISE fnd_api.g_exc_error;
3112: END IF;
3113:
3114: -- update the bank-specific organization attributes
3107: );
3108:
3109: -- raise an exception if the organization profile creation is unsuccessful
3110: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3111: RAISE fnd_api.g_exc_error;
3112: END IF;
3113:
3114: -- update the bank-specific organization attributes
3115: update_bank_organization(x_profile_id,
3130: x_msg_data);
3131:
3132: -- create the code assignment for the bank branch's branch type
3133: IF l_bank_rec.branch_type IS NOT NULL
3134: AND l_bank_rec.branch_type <> fnd_api.g_miss_char
3135: THEN
3136: create_code_assignment(x_party_id,
3137: l_bank_rec.branch_type,
3138: 'BANK_BRANCH_TYPE',
3159: x_msg_data);
3160: END IF;
3161:
3162: -- raise an exception if the code assignment creation is unsuccessful
3163: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3164: RAISE fnd_api.g_exc_error;
3165: END IF;
3166:
3167: -- create a relationship between the bank branch and its parent bank
3160: END IF;
3161:
3162: -- raise an exception if the code assignment creation is unsuccessful
3163: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3164: RAISE fnd_api.g_exc_error;
3165: END IF;
3166:
3167: -- create a relationship between the bank branch and its parent bank
3168: create_relationship(
3184: x_msg_data => x_msg_data
3185: );
3186:
3187: -- raise an exception if the relationship creation is unsuccessful
3188: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3189: RAISE fnd_api.g_exc_error;
3190: END IF;
3191:
3192: --
3185: );
3186:
3187: -- raise an exception if the relationship creation is unsuccessful
3188: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3189: RAISE fnd_api.g_exc_error;
3190: END IF;
3191:
3192: --
3193: -- added for R12 party usage project.
3200: x_return_status => x_return_status
3201: );
3202:
3203: -- raise an exception if the usage assignment creation is unsuccessful
3204: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3205: RAISE fnd_api.g_exc_error;
3206: END IF;
3207: END IF;
3208:
3201: );
3202:
3203: -- raise an exception if the usage assignment creation is unsuccessful
3204: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3205: RAISE fnd_api.g_exc_error;
3206: END IF;
3207: END IF;
3208:
3209: -- standard call to get message count and if count is 1, get message info.
3206: END IF;
3207: END IF;
3208:
3209: -- standard call to get message count and if count is 1, get message info.
3210: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
3211: p_count => x_msg_count,
3212: p_data => x_msg_data);
3213:
3214: -- Debug info.
3227: -- Check if API is called in debug mode. If yes, disable debug.
3228: --disable_debug;
3229:
3230: EXCEPTION
3231: WHEN fnd_api.g_exc_error THEN
3232: ROLLBACK TO create_bank_branch;
3233: x_return_status := fnd_api.g_ret_sts_error;
3234: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
3235: p_count => x_msg_count,
3229:
3230: EXCEPTION
3231: WHEN fnd_api.g_exc_error THEN
3232: ROLLBACK TO create_bank_branch;
3233: x_return_status := fnd_api.g_ret_sts_error;
3234: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
3235: p_count => x_msg_count,
3236: p_data => x_msg_data);
3237:
3230: EXCEPTION
3231: WHEN fnd_api.g_exc_error THEN
3232: ROLLBACK TO create_bank_branch;
3233: x_return_status := fnd_api.g_ret_sts_error;
3234: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
3235: p_count => x_msg_count,
3236: p_data => x_msg_data);
3237:
3238: -- Debug info.
3250:
3251: -- Check if API is called in debug mode. If yes, disable debug.
3252: --disable_debug;
3253:
3254: WHEN fnd_api.g_exc_unexpected_error THEN
3255: ROLLBACK TO create_bank_branch;
3256: x_return_status := fnd_api.g_ret_sts_unexp_error;
3257: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
3258: p_count => x_msg_count,
3252: --disable_debug;
3253:
3254: WHEN fnd_api.g_exc_unexpected_error THEN
3255: ROLLBACK TO create_bank_branch;
3256: x_return_status := fnd_api.g_ret_sts_unexp_error;
3257: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
3258: p_count => x_msg_count,
3259: p_data => x_msg_data);
3260:
3253:
3254: WHEN fnd_api.g_exc_unexpected_error THEN
3255: ROLLBACK TO create_bank_branch;
3256: x_return_status := fnd_api.g_ret_sts_unexp_error;
3257: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
3258: p_count => x_msg_count,
3259: p_data => x_msg_data);
3260:
3261: -- Debug info.
3275: --disable_debug;
3276:
3277: WHEN OTHERS THEN
3278: ROLLBACK TO create_bank_branch;
3279: x_return_status := fnd_api.g_ret_sts_unexp_error;
3280: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
3281: fnd_message.set_token('ERROR',SQLERRM);
3282: fnd_msg_pub.add;
3283: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
3279: x_return_status := fnd_api.g_ret_sts_unexp_error;
3280: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
3281: fnd_message.set_token('ERROR',SQLERRM);
3282: fnd_msg_pub.add;
3283: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
3284: p_count => x_msg_count,
3285: p_data => x_msg_data);
3286:
3287: -- Debug info.
3313: | |
3314: | ARGUMENTS |
3315: | IN: |
3316: | p_init_msg_list Initialize message stack if it is set to |
3317: | FND_API.G_TRUE. Default is fnd_api.g_false. |
3318: | p_bank_rec Bank record. |
3319: | p_relationship_id ID for relationship between bank branch and |
3320: | its parent bank. NULL if the parent bank is |
3321: | not going to be reassigned. |
3332: | x_profile_id Organization profile ID for the bank branch. |
3333: | x_rel_party_id ID for party relationship created. |
3334: | x_rel_party_number Number for the party relationship created. |
3335: | x_return_status Return status after the call. The status can |
3336: | be FND_API.G_RET_STS_SUCCESS (success), |
3337: | fnd_api.g_ret_sts_error (error), |
3338: | fnd_api.g_ret_sts_unexp_error (unexpected |
3339: | error). |
3340: | x_msg_count Number of messages in message stack. |
3333: | x_rel_party_id ID for party relationship created. |
3334: | x_rel_party_number Number for the party relationship created. |
3335: | x_return_status Return status after the call. The status can |
3336: | be FND_API.G_RET_STS_SUCCESS (success), |
3337: | fnd_api.g_ret_sts_error (error), |
3338: | fnd_api.g_ret_sts_unexp_error (unexpected |
3339: | error). |
3340: | x_msg_count Number of messages in message stack. |
3341: | x_msg_data Message text if x_msg_count is 1. |
3334: | x_rel_party_number Number for the party relationship created. |
3335: | x_return_status Return status after the call. The status can |
3336: | be FND_API.G_RET_STS_SUCCESS (success), |
3337: | fnd_api.g_ret_sts_error (error), |
3338: | fnd_api.g_ret_sts_unexp_error (unexpected |
3339: | error). |
3340: | x_msg_count Number of messages in message stack. |
3341: | x_msg_data Message text if x_msg_count is 1. |
3342: | MODIFICATION HISTORY |
3348: | update_bank and update_bank_branch|
3349: | APIs. |
3350: +=======================================================================*/
3351: PROCEDURE update_bank_branch (
3352: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
3353: p_bank_rec IN bank_rec_type,
3354: p_bank_party_id IN NUMBER := NULL,
3355: p_relationship_id IN OUT NOCOPY NUMBER,
3356: p_pobject_version_number IN OUT NOCOPY NUMBER,
3380: p_msg_level=>fnd_log.level_procedure);
3381: END IF;
3382:
3383: -- initialize message list if p_init_msg_list is set to TRUE.
3384: IF fnd_api.to_boolean(p_init_msg_list) THEN
3385: fnd_msg_pub.initialize;
3386: END IF;
3387:
3388: -- initialize API return status to success.
3385: fnd_msg_pub.initialize;
3386: END IF;
3387:
3388: -- initialize API return status to success.
3389: x_return_status := fnd_api.g_ret_sts_success;
3390:
3391: l_bank_rec := p_bank_rec;
3392: l_bank_rec.organization_rec.home_country := l_bank_rec.country;
3393:
3404: -- validate the bank branch and its type.
3405: validate_bank_org(l_bank_rec, 'BRANCH', g_update, x_return_status);
3406:
3407: -- raise an exception if the validation routine is unsuccessful
3408: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3409: RAISE fnd_api.g_exc_error;
3410: END IF;
3411:
3412: -- update the organization profile.
3405: validate_bank_org(l_bank_rec, 'BRANCH', g_update, x_return_status);
3406:
3407: -- raise an exception if the validation routine is unsuccessful
3408: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3409: RAISE fnd_api.g_exc_error;
3410: END IF;
3411:
3412: -- update the organization profile.
3413: hz_party_v2pub.update_organization(
3419: x_msg_data => x_msg_data
3420: );
3421:
3422: -- raise an exception if the organization profile update is unsuccessful
3423: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3424: RAISE fnd_api.g_exc_error;
3425: END IF;
3426:
3427: -- update the bank-specific organization attributes
3420: );
3421:
3422: -- raise an exception if the organization profile update is unsuccessful
3423: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3424: RAISE fnd_api.g_exc_error;
3425: END IF;
3426:
3427: -- update the bank-specific organization attributes
3428: update_bank_organization(x_profile_id,
3442: x_msg_count,
3443: x_msg_data);
3444:
3445: -- raise an exception if the code assignment updation is unsuccessful
3446: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3447: RAISE fnd_api.g_exc_error;
3448: END IF;
3449:
3450:
3443: x_msg_data);
3444:
3445: -- raise an exception if the code assignment updation is unsuccessful
3446: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3447: RAISE fnd_api.g_exc_error;
3448: END IF;
3449:
3450:
3451: -- update the code assignment for the bank branch's branch type if a bank
3463: x_msg_data);
3464: --END IF;
3465:
3466: -- raise an exception if the code assignment updation is unsuccessful
3467: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3468: RAISE fnd_api.g_exc_error;
3469: END IF;
3470:
3471: -- update the code assignment for the bank branch's Regional Finance Center
3464: --END IF;
3465:
3466: -- raise an exception if the code assignment updation is unsuccessful
3467: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3468: RAISE fnd_api.g_exc_error;
3469: END IF;
3470:
3471: -- update the code assignment for the bank branch's Regional Finance Center
3472: -- if an RFC was specified.
3483: x_msg_data);
3484: --END IF;
3485:
3486: -- raise an exception if the code assignment creation is unsuccessful
3487: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3488: RAISE fnd_api.g_exc_error;
3489: END IF;
3490:
3491: -- update the relationship between the bank branch and its parent bank
3484: --END IF;
3485:
3486: -- raise an exception if the code assignment creation is unsuccessful
3487: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3488: RAISE fnd_api.g_exc_error;
3489: END IF;
3490:
3491: -- update the relationship between the bank branch and its parent bank
3492: -- if the parent bank was specified.
3516: );
3517: END IF;
3518:
3519: -- raise an exception if the relationship creation is unsuccessful
3520: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3521: RAISE fnd_api.g_exc_error;
3522: END IF;
3523:
3524: --
3517: END IF;
3518:
3519: -- raise an exception if the relationship creation is unsuccessful
3520: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3521: RAISE fnd_api.g_exc_error;
3522: END IF;
3523:
3524: --
3525: -- added for R12 party usage project.
3530: p_end_date_active => l_bank_rec.inactive_date,
3531: x_return_status => x_return_status
3532: );
3533:
3534: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3535: RAISE fnd_api.g_exc_error;
3536: END IF;
3537: END IF;
3538:
3531: x_return_status => x_return_status
3532: );
3533:
3534: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3535: RAISE fnd_api.g_exc_error;
3536: END IF;
3537: END IF;
3538:
3539: -- standard call to get message count and if count is 1, get message info.
3536: END IF;
3537: END IF;
3538:
3539: -- standard call to get message count and if count is 1, get message info.
3540: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
3541: p_count => x_msg_count,
3542: p_data => x_msg_data);
3543:
3544: -- Debug info.
3557: -- Check if API is called in debug mode. If yes, disable debug.
3558: --disable_debug;
3559:
3560: EXCEPTION
3561: WHEN fnd_api.g_exc_error THEN
3562: ROLLBACK TO update_bank_branch;
3563: x_return_status := fnd_api.g_ret_sts_error;
3564: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
3565: p_count => x_msg_count,
3559:
3560: EXCEPTION
3561: WHEN fnd_api.g_exc_error THEN
3562: ROLLBACK TO update_bank_branch;
3563: x_return_status := fnd_api.g_ret_sts_error;
3564: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
3565: p_count => x_msg_count,
3566: p_data => x_msg_data);
3567:
3560: EXCEPTION
3561: WHEN fnd_api.g_exc_error THEN
3562: ROLLBACK TO update_bank_branch;
3563: x_return_status := fnd_api.g_ret_sts_error;
3564: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
3565: p_count => x_msg_count,
3566: p_data => x_msg_data);
3567:
3568: -- Debug info.
3580:
3581: -- Check if API is called in debug mode. If yes, disable debug.
3582: --disable_debug;
3583:
3584: WHEN fnd_api.g_exc_unexpected_error THEN
3585: ROLLBACK TO update_bank_branch;
3586: x_return_status := fnd_api.g_ret_sts_unexp_error;
3587: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
3588: p_count => x_msg_count,
3582: --disable_debug;
3583:
3584: WHEN fnd_api.g_exc_unexpected_error THEN
3585: ROLLBACK TO update_bank_branch;
3586: x_return_status := fnd_api.g_ret_sts_unexp_error;
3587: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
3588: p_count => x_msg_count,
3589: p_data => x_msg_data);
3590:
3583:
3584: WHEN fnd_api.g_exc_unexpected_error THEN
3585: ROLLBACK TO update_bank_branch;
3586: x_return_status := fnd_api.g_ret_sts_unexp_error;
3587: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
3588: p_count => x_msg_count,
3589: p_data => x_msg_data);
3590:
3591: -- Debug info.
3605: --disable_debug;
3606:
3607: WHEN OTHERS THEN
3608: ROLLBACK TO update_bank_branch;
3609: x_return_status := fnd_api.g_ret_sts_unexp_error;
3610: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
3611: fnd_message.set_token('ERROR',SQLERRM);
3612: fnd_msg_pub.add;
3613: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
3609: x_return_status := fnd_api.g_ret_sts_unexp_error;
3610: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
3611: fnd_message.set_token('ERROR',SQLERRM);
3612: fnd_msg_pub.add;
3613: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
3614: p_count => x_msg_count,
3615: p_data => x_msg_data);
3616:
3617: -- Debug info.
3643: | |
3644: | ARGUMENTS |
3645: | IN: |
3646: | p_init_msg_list Initialize message stack if it is set to |
3647: | FND_API.G_TRUE. Default is fnd_api.g_false. |
3648: | p_group_rec Group record for the banking group. |
3649: | IN/OUT: |
3650: | OUT: |
3651: | x_party_id Party ID for the banking group created. |
3650: | OUT: |
3651: | x_party_id Party ID for the banking group created. |
3652: | x_party_number Party number for banking group created. |
3653: | x_return_status Return status after the call. The status can |
3654: | be FND_API.G_RET_STS_SUCCESS (success), |
3655: | fnd_api.g_ret_sts_error (error), |
3656: | fnd_api.g_ret_sts_unexp_error (unexpected |
3657: | error). |
3658: | x_msg_count Number of messages in message stack. |
3651: | x_party_id Party ID for the banking group created. |
3652: | x_party_number Party number for banking group created. |
3653: | x_return_status Return status after the call. The status can |
3654: | be FND_API.G_RET_STS_SUCCESS (success), |
3655: | fnd_api.g_ret_sts_error (error), |
3656: | fnd_api.g_ret_sts_unexp_error (unexpected |
3657: | error). |
3658: | x_msg_count Number of messages in message stack. |
3659: | x_msg_data Message text if x_msg_count is 1. |
3652: | x_party_number Party number for banking group created. |
3653: | x_return_status Return status after the call. The status can |
3654: | be FND_API.G_RET_STS_SUCCESS (success), |
3655: | fnd_api.g_ret_sts_error (error), |
3656: | fnd_api.g_ret_sts_unexp_error (unexpected |
3657: | error). |
3658: | x_msg_count Number of messages in message stack. |
3659: | x_msg_data Message text if x_msg_count is 1. |
3660: | MODIFICATION HISTORY |
3660: | MODIFICATION HISTORY |
3661: | 27-NOV-2001 J. del Callar Created. |
3662: +=======================================================================*/
3663: PROCEDURE create_banking_group (
3664: p_init_msg_list IN VARCHAR2:= fnd_api.g_false,
3665: p_group_rec IN hz_party_v2pub.group_rec_type,
3666: x_party_id OUT NOCOPY NUMBER,
3667: x_party_number OUT NOCOPY VARCHAR2,
3668: x_return_status OUT NOCOPY VARCHAR2,
3684: p_msg_level=>fnd_log.level_procedure);
3685: END IF;
3686:
3687: -- initialize API return status to success.
3688: x_return_status := fnd_api.g_ret_sts_success;
3689:
3690: --
3691: -- execute business logic
3692: --
3694: -- validate the banking group
3695: validate_banking_group(p_group_rec, x_return_status);
3696:
3697: -- raise an exception if the validation routine is unsuccessful
3698: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3699: RAISE fnd_api.g_exc_error;
3700: END IF;
3701:
3702: -- create the banking group
3695: validate_banking_group(p_group_rec, x_return_status);
3696:
3697: -- raise an exception if the validation routine is unsuccessful
3698: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3699: RAISE fnd_api.g_exc_error;
3700: END IF;
3701:
3702: -- create the banking group
3703: hz_party_v2pub.create_group(
3709: x_msg_data => x_msg_data
3710: );
3711:
3712: -- raise an exception if the banking group creation is unsuccessful
3713: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3714: RAISE fnd_api.g_exc_error;
3715: END IF;
3716:
3717: -- Debug info.
3710: );
3711:
3712: -- raise an exception if the banking group creation is unsuccessful
3713: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3714: RAISE fnd_api.g_exc_error;
3715: END IF;
3716:
3717: -- Debug info.
3718: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
3723:
3724: -- disable the debug procedure before exiting.
3725: --disable_debug;
3726: EXCEPTION
3727: WHEN fnd_api.g_exc_error THEN
3728: ROLLBACK TO create_banking_group;
3729: x_return_status := fnd_api.g_ret_sts_error;
3730: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
3731: p_count => x_msg_count,
3725: --disable_debug;
3726: EXCEPTION
3727: WHEN fnd_api.g_exc_error THEN
3728: ROLLBACK TO create_banking_group;
3729: x_return_status := fnd_api.g_ret_sts_error;
3730: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
3731: p_count => x_msg_count,
3732: p_data => x_msg_data);
3733:
3726: EXCEPTION
3727: WHEN fnd_api.g_exc_error THEN
3728: ROLLBACK TO create_banking_group;
3729: x_return_status := fnd_api.g_ret_sts_error;
3730: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
3731: p_count => x_msg_count,
3732: p_data => x_msg_data);
3733:
3734: -- Debug info.
3746:
3747: -- Check if API is called in debug mode. If yes, disable debug.
3748: --disable_debug;
3749:
3750: WHEN fnd_api.g_exc_unexpected_error THEN
3751: ROLLBACK TO create_banking_group;
3752: x_return_status := fnd_api.g_ret_sts_unexp_error;
3753: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
3754: p_count => x_msg_count,
3748: --disable_debug;
3749:
3750: WHEN fnd_api.g_exc_unexpected_error THEN
3751: ROLLBACK TO create_banking_group;
3752: x_return_status := fnd_api.g_ret_sts_unexp_error;
3753: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
3754: p_count => x_msg_count,
3755: p_data => x_msg_data);
3756:
3749:
3750: WHEN fnd_api.g_exc_unexpected_error THEN
3751: ROLLBACK TO create_banking_group;
3752: x_return_status := fnd_api.g_ret_sts_unexp_error;
3753: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
3754: p_count => x_msg_count,
3755: p_data => x_msg_data);
3756:
3757: -- Debug info.
3771: --disable_debug;
3772:
3773: WHEN OTHERS THEN
3774: ROLLBACK TO create_banking_group;
3775: x_return_status := fnd_api.g_ret_sts_unexp_error;
3776: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
3777: fnd_message.set_token('ERROR',SQLERRM);
3778: fnd_msg_pub.add;
3779: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
3775: x_return_status := fnd_api.g_ret_sts_unexp_error;
3776: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
3777: fnd_message.set_token('ERROR',SQLERRM);
3778: fnd_msg_pub.add;
3779: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
3780: p_count => x_msg_count,
3781: p_data => x_msg_data);
3782:
3783: -- Debug info.
3809: | |
3810: | ARGUMENTS |
3811: | IN: |
3812: | p_init_msg_list Initialize message stack if it is set to |
3813: | FND_API.G_TRUE. Default is fnd_api.g_false. |
3814: | p_group_rec Group record for the banking group. |
3815: | IN/OUT: |
3816: | p_pobject_version_number Version number for the banking group |
3817: | party that was created. |
3816: | p_pobject_version_number Version number for the banking group |
3817: | party that was created. |
3818: | OUT: |
3819: | x_return_status Return status after the call. The status can |
3820: | be FND_API.G_RET_STS_SUCCESS (success), |
3821: | fnd_api.g_ret_sts_error (error), |
3822: | fnd_api.g_ret_sts_unexp_error (unexpected |
3823: | error). |
3824: | x_msg_count Number of messages in message stack. |
3817: | party that was created. |
3818: | OUT: |
3819: | x_return_status Return status after the call. The status can |
3820: | be FND_API.G_RET_STS_SUCCESS (success), |
3821: | fnd_api.g_ret_sts_error (error), |
3822: | fnd_api.g_ret_sts_unexp_error (unexpected |
3823: | error). |
3824: | x_msg_count Number of messages in message stack. |
3825: | x_msg_data Message text if x_msg_count is 1. |
3818: | OUT: |
3819: | x_return_status Return status after the call. The status can |
3820: | be FND_API.G_RET_STS_SUCCESS (success), |
3821: | fnd_api.g_ret_sts_error (error), |
3822: | fnd_api.g_ret_sts_unexp_error (unexpected |
3823: | error). |
3824: | x_msg_count Number of messages in message stack. |
3825: | x_msg_data Message text if x_msg_count is 1. |
3826: | MODIFICATION HISTORY |
3826: | MODIFICATION HISTORY |
3827: | 27-NOV-2001 J. del Callar Created. |
3828: +=======================================================================*/
3829: PROCEDURE update_banking_group (
3830: p_init_msg_list IN VARCHAR2:= fnd_api.g_false,
3831: p_group_rec IN hz_party_v2pub.group_rec_type,
3832: p_pobject_version_number IN OUT NOCOPY NUMBER,
3833: x_return_status OUT NOCOPY VARCHAR2,
3834: x_msg_count OUT NOCOPY NUMBER,
3849: p_msg_level=>fnd_log.level_procedure);
3850: END IF;
3851:
3852: -- initialize API return status to success.
3853: x_return_status := fnd_api.g_ret_sts_success;
3854:
3855: --
3856: -- execute business logic
3857: --
3859: -- validate the banking group
3860: validate_banking_group(p_group_rec, x_return_status);
3861:
3862: -- raise an exception if the validation routine is unsuccessful
3863: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3864: RAISE fnd_api.g_exc_error;
3865: END IF;
3866:
3867: -- create the banking group
3860: validate_banking_group(p_group_rec, x_return_status);
3861:
3862: -- raise an exception if the validation routine is unsuccessful
3863: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3864: RAISE fnd_api.g_exc_error;
3865: END IF;
3866:
3867: -- create the banking group
3868: hz_party_v2pub.update_group(
3873: x_msg_data => x_msg_data
3874: );
3875:
3876: -- raise an exception if the banking group update is unsuccessful
3877: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3878: RAISE fnd_api.g_exc_error;
3879: END IF;
3880:
3881: -- Debug info.
3874: );
3875:
3876: -- raise an exception if the banking group update is unsuccessful
3877: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3878: RAISE fnd_api.g_exc_error;
3879: END IF;
3880:
3881: -- Debug info.
3882: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
3887:
3888: -- disable the debug procedure before exiting.
3889: --disable_debug;
3890: EXCEPTION
3891: WHEN fnd_api.g_exc_error THEN
3892: ROLLBACK TO update_banking_group;
3893: x_return_status := fnd_api.g_ret_sts_error;
3894: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
3895: p_count => x_msg_count,
3889: --disable_debug;
3890: EXCEPTION
3891: WHEN fnd_api.g_exc_error THEN
3892: ROLLBACK TO update_banking_group;
3893: x_return_status := fnd_api.g_ret_sts_error;
3894: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
3895: p_count => x_msg_count,
3896: p_data => x_msg_data);
3897:
3890: EXCEPTION
3891: WHEN fnd_api.g_exc_error THEN
3892: ROLLBACK TO update_banking_group;
3893: x_return_status := fnd_api.g_ret_sts_error;
3894: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
3895: p_count => x_msg_count,
3896: p_data => x_msg_data);
3897:
3898: -- Debug info.
3910:
3911: -- Check if API is called in debug mode. If yes, disable debug.
3912: --disable_debug;
3913:
3914: WHEN fnd_api.g_exc_unexpected_error THEN
3915: ROLLBACK TO update_banking_group;
3916: x_return_status := fnd_api.g_ret_sts_unexp_error;
3917: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
3918: p_count => x_msg_count,
3912: --disable_debug;
3913:
3914: WHEN fnd_api.g_exc_unexpected_error THEN
3915: ROLLBACK TO update_banking_group;
3916: x_return_status := fnd_api.g_ret_sts_unexp_error;
3917: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
3918: p_count => x_msg_count,
3919: p_data => x_msg_data);
3920:
3913:
3914: WHEN fnd_api.g_exc_unexpected_error THEN
3915: ROLLBACK TO update_banking_group;
3916: x_return_status := fnd_api.g_ret_sts_unexp_error;
3917: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
3918: p_count => x_msg_count,
3919: p_data => x_msg_data);
3920:
3921: -- Debug info.
3935: --disable_debug;
3936:
3937: WHEN OTHERS THEN
3938: ROLLBACK TO update_banking_group;
3939: x_return_status := fnd_api.g_ret_sts_unexp_error;
3940: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
3941: fnd_message.set_token('ERROR',SQLERRM);
3942: fnd_msg_pub.add;
3943: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
3939: x_return_status := fnd_api.g_ret_sts_unexp_error;
3940: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
3941: fnd_message.set_token('ERROR',SQLERRM);
3942: fnd_msg_pub.add;
3943: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
3944: p_count => x_msg_count,
3945: p_data => x_msg_data);
3946:
3947: -- Debug info.
3974: | |
3975: | ARGUMENTS |
3976: | IN: |
3977: | p_init_msg_list Initialize message stack if it is set to |
3978: | FND_API.G_TRUE. Default is fnd_api.g_false. |
3979: | p_relationship_rec Relationship record for the banking group |
3980: | membership. |
3981: | IN/OUT: |
3982: | OUT: |
3985: | relationship. |
3986: | x_party_number Party number for the party created for the |
3987: | relationship. |
3988: | x_return_status Return status after the call. The status can |
3989: | be FND_API.G_RET_STS_SUCCESS (success), |
3990: | fnd_api.g_ret_sts_error (error), |
3991: | fnd_api.g_ret_sts_unexp_error (unexpected |
3992: | error). |
3993: | x_msg_count Number of messages in message stack. |
3986: | x_party_number Party number for the party created for the |
3987: | relationship. |
3988: | x_return_status Return status after the call. The status can |
3989: | be FND_API.G_RET_STS_SUCCESS (success), |
3990: | fnd_api.g_ret_sts_error (error), |
3991: | fnd_api.g_ret_sts_unexp_error (unexpected |
3992: | error). |
3993: | x_msg_count Number of messages in message stack. |
3994: | x_msg_data Message text if x_msg_count is 1. |
3987: | relationship. |
3988: | x_return_status Return status after the call. The status can |
3989: | be FND_API.G_RET_STS_SUCCESS (success), |
3990: | fnd_api.g_ret_sts_error (error), |
3991: | fnd_api.g_ret_sts_unexp_error (unexpected |
3992: | error). |
3993: | x_msg_count Number of messages in message stack. |
3994: | x_msg_data Message text if x_msg_count is 1. |
3995: | MODIFICATION HISTORY |
3995: | MODIFICATION HISTORY |
3996: | 27-NOV-2001 J. del Callar Created. |
3997: +=======================================================================*/
3998: PROCEDURE create_bank_group_member (
3999: p_init_msg_list IN VARCHAR2:= fnd_api.g_false,
4000: p_relationship_rec IN hz_relationship_v2pub.relationship_rec_type,
4001: x_relationship_id OUT NOCOPY NUMBER,
4002: x_party_id OUT NOCOPY NUMBER,
4003: x_party_number OUT NOCOPY NUMBER,
4020: p_msg_level=>fnd_log.level_procedure);
4021: END IF;
4022:
4023: -- initialize API return status to success.
4024: x_return_status := fnd_api.g_ret_sts_success;
4025:
4026: --
4027: -- execute business logic
4028: --
4030: -- validate the banking group membership
4031: validate_bank_group_member(p_relationship_rec, g_insert, x_return_status);
4032:
4033: -- raise an exception if the validation routine is unsuccessful
4034: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4035: RAISE fnd_api.g_exc_error;
4036: END IF;
4037:
4038: -- create the banking group membership
4031: validate_bank_group_member(p_relationship_rec, g_insert, x_return_status);
4032:
4033: -- raise an exception if the validation routine is unsuccessful
4034: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4035: RAISE fnd_api.g_exc_error;
4036: END IF;
4037:
4038: -- create the banking group membership
4039: hz_relationship_v2pub.create_relationship(
4046: x_msg_data => x_msg_data
4047: );
4048:
4049: -- raise an exception if the banking group creation is unsuccessful
4050: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4051: RAISE fnd_api.g_exc_error;
4052: END IF;
4053:
4054: -- Debug info.
4047: );
4048:
4049: -- raise an exception if the banking group creation is unsuccessful
4050: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4051: RAISE fnd_api.g_exc_error;
4052: END IF;
4053:
4054: -- Debug info.
4055: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
4060:
4061: -- disable the debug procedure before exiting.
4062: --disable_debug;
4063: EXCEPTION
4064: WHEN fnd_api.g_exc_error THEN
4065: ROLLBACK TO create_bank_group_member;
4066: x_return_status := fnd_api.g_ret_sts_error;
4067: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
4068: p_count => x_msg_count,
4062: --disable_debug;
4063: EXCEPTION
4064: WHEN fnd_api.g_exc_error THEN
4065: ROLLBACK TO create_bank_group_member;
4066: x_return_status := fnd_api.g_ret_sts_error;
4067: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
4068: p_count => x_msg_count,
4069: p_data => x_msg_data);
4070:
4063: EXCEPTION
4064: WHEN fnd_api.g_exc_error THEN
4065: ROLLBACK TO create_bank_group_member;
4066: x_return_status := fnd_api.g_ret_sts_error;
4067: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
4068: p_count => x_msg_count,
4069: p_data => x_msg_data);
4070:
4071: -- Debug info.
4083:
4084: -- Check if API is called in debug mode. If yes, disable debug.
4085: --disable_debug;
4086:
4087: WHEN fnd_api.g_exc_unexpected_error THEN
4088: ROLLBACK TO create_bank_group_member;
4089: x_return_status := fnd_api.g_ret_sts_unexp_error;
4090: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
4091: p_count => x_msg_count,
4085: --disable_debug;
4086:
4087: WHEN fnd_api.g_exc_unexpected_error THEN
4088: ROLLBACK TO create_bank_group_member;
4089: x_return_status := fnd_api.g_ret_sts_unexp_error;
4090: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
4091: p_count => x_msg_count,
4092: p_data => x_msg_data);
4093:
4086:
4087: WHEN fnd_api.g_exc_unexpected_error THEN
4088: ROLLBACK TO create_bank_group_member;
4089: x_return_status := fnd_api.g_ret_sts_unexp_error;
4090: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
4091: p_count => x_msg_count,
4092: p_data => x_msg_data);
4093:
4094: -- Debug info.
4108: --disable_debug;
4109:
4110: WHEN OTHERS THEN
4111: ROLLBACK TO create_bank_group_member;
4112: x_return_status := fnd_api.g_ret_sts_unexp_error;
4113: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
4114: fnd_message.set_token('ERROR',SQLERRM);
4115: fnd_msg_pub.add;
4116: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
4112: x_return_status := fnd_api.g_ret_sts_unexp_error;
4113: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
4114: fnd_message.set_token('ERROR',SQLERRM);
4115: fnd_msg_pub.add;
4116: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
4117: p_count => x_msg_count,
4118: p_data => x_msg_data);
4119:
4120: -- Debug info.
4147: | |
4148: | ARGUMENTS |
4149: | IN: |
4150: | p_init_msg_list Initialize message stack if it is set to |
4151: | FND_API.G_TRUE. Default is fnd_api.g_false. |
4152: | p_relationship_rec Relationship record for the banking group |
4153: | membership. |
4154: | IN/OUT: |
4155: | p_robject_version_number New version number for the banking |
4157: | p_pobject_version_number New version number for the banking |
4158: | group membership rel party. |
4159: | OUT: |
4160: | x_return_status Return status after the call. The status can |
4161: | be FND_API.G_RET_STS_SUCCESS (success), |
4162: | fnd_api.g_ret_sts_error (error), |
4163: | fnd_api.g_ret_sts_unexp_error (unexpected |
4164: | error). |
4165: | x_msg_count Number of messages in message stack. |
4158: | group membership rel party. |
4159: | OUT: |
4160: | x_return_status Return status after the call. The status can |
4161: | be FND_API.G_RET_STS_SUCCESS (success), |
4162: | fnd_api.g_ret_sts_error (error), |
4163: | fnd_api.g_ret_sts_unexp_error (unexpected |
4164: | error). |
4165: | x_msg_count Number of messages in message stack. |
4166: | x_msg_data Message text if x_msg_count is 1. |
4159: | OUT: |
4160: | x_return_status Return status after the call. The status can |
4161: | be FND_API.G_RET_STS_SUCCESS (success), |
4162: | fnd_api.g_ret_sts_error (error), |
4163: | fnd_api.g_ret_sts_unexp_error (unexpected |
4164: | error). |
4165: | x_msg_count Number of messages in message stack. |
4166: | x_msg_data Message text if x_msg_count is 1. |
4167: | MODIFICATION HISTORY |
4167: | MODIFICATION HISTORY |
4168: | 27-NOV-2001 J. del Callar Updated. |
4169: +=======================================================================*/
4170: PROCEDURE update_bank_group_member (
4171: p_init_msg_list IN VARCHAR2:= fnd_api.g_false,
4172: p_relationship_rec IN hz_relationship_v2pub.relationship_rec_type,
4173: p_robject_version_number IN OUT NOCOPY NUMBER,
4174: p_pobject_version_number IN OUT NOCOPY NUMBER,
4175: x_return_status OUT NOCOPY VARCHAR2,
4191: p_msg_level=>fnd_log.level_procedure);
4192: END IF;
4193:
4194: -- initialize API return status to success.
4195: x_return_status := fnd_api.g_ret_sts_success;
4196:
4197: --
4198: -- execute business logic
4199: --
4201: -- validate the banking group membership
4202: validate_bank_group_member(p_relationship_rec, g_update, x_return_status);
4203:
4204: -- raise an exception if the validation routine is unsuccessful
4205: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4206: RAISE fnd_api.g_exc_error;
4207: END IF;
4208:
4209: -- update the banking group membership
4202: validate_bank_group_member(p_relationship_rec, g_update, x_return_status);
4203:
4204: -- raise an exception if the validation routine is unsuccessful
4205: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4206: RAISE fnd_api.g_exc_error;
4207: END IF;
4208:
4209: -- update the banking group membership
4210: hz_relationship_v2pub.update_relationship(
4216: x_msg_data => x_msg_data
4217: );
4218:
4219: -- raise an exception if the banking group creation is unsuccessful
4220: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4221: RAISE fnd_api.g_exc_error;
4222: END IF;
4223:
4224: -- Debug info.
4217: );
4218:
4219: -- raise an exception if the banking group creation is unsuccessful
4220: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4221: RAISE fnd_api.g_exc_error;
4222: END IF;
4223:
4224: -- Debug info.
4225: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
4230:
4231: -- disable the debug procedure before exiting.
4232: --disable_debug;
4233: EXCEPTION
4234: WHEN fnd_api.g_exc_error THEN
4235: ROLLBACK TO update_bank_group_member;
4236: x_return_status := fnd_api.g_ret_sts_error;
4237: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
4238: p_count => x_msg_count,
4232: --disable_debug;
4233: EXCEPTION
4234: WHEN fnd_api.g_exc_error THEN
4235: ROLLBACK TO update_bank_group_member;
4236: x_return_status := fnd_api.g_ret_sts_error;
4237: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
4238: p_count => x_msg_count,
4239: p_data => x_msg_data);
4240:
4233: EXCEPTION
4234: WHEN fnd_api.g_exc_error THEN
4235: ROLLBACK TO update_bank_group_member;
4236: x_return_status := fnd_api.g_ret_sts_error;
4237: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
4238: p_count => x_msg_count,
4239: p_data => x_msg_data);
4240:
4241: -- Debug info.
4253:
4254: -- Check if API is called in debug mode. If yes, disable debug.
4255: --disable_debug;
4256:
4257: WHEN fnd_api.g_exc_unexpected_error THEN
4258: ROLLBACK TO update_bank_group_member;
4259: x_return_status := fnd_api.g_ret_sts_unexp_error;
4260: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
4261: p_count => x_msg_count,
4255: --disable_debug;
4256:
4257: WHEN fnd_api.g_exc_unexpected_error THEN
4258: ROLLBACK TO update_bank_group_member;
4259: x_return_status := fnd_api.g_ret_sts_unexp_error;
4260: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
4261: p_count => x_msg_count,
4262: p_data => x_msg_data);
4263:
4256:
4257: WHEN fnd_api.g_exc_unexpected_error THEN
4258: ROLLBACK TO update_bank_group_member;
4259: x_return_status := fnd_api.g_ret_sts_unexp_error;
4260: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
4261: p_count => x_msg_count,
4262: p_data => x_msg_data);
4263:
4264: -- Debug info.
4278: --disable_debug;
4279:
4280: WHEN OTHERS THEN
4281: ROLLBACK TO update_bank_group_member;
4282: x_return_status := fnd_api.g_ret_sts_unexp_error;
4283: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
4284: fnd_message.set_token('ERROR',SQLERRM);
4285: fnd_msg_pub.add;
4286: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
4282: x_return_status := fnd_api.g_ret_sts_unexp_error;
4283: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
4284: fnd_message.set_token('ERROR',SQLERRM);
4285: fnd_msg_pub.add;
4286: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
4287: p_count => x_msg_count,
4288: p_data => x_msg_data);
4289:
4290: -- Debug info.
4316: | |
4317: | ARGUMENTS |
4318: | IN: |
4319: | p_init_msg_list Initialize message stack if it is set to |
4320: | FND_API.G_TRUE. Default is fnd_api.g_false. |
4321: | p_relationship_rec Relationship record for the clearinghouse |
4322: | assignment. |
4323: | IN/OUT: |
4324: | OUT: |
4327: | relationship. |
4328: | x_party_number Party number for the party created for the |
4329: | relationship. |
4330: | x_return_status Return status after the call. The status can |
4331: | be FND_API.G_RET_STS_SUCCESS (success), |
4332: | fnd_api.g_ret_sts_error (error), |
4333: | fnd_api.g_ret_sts_unexp_error (unexpected |
4334: | error). |
4335: | x_msg_count Number of messages in message stack. |
4328: | x_party_number Party number for the party created for the |
4329: | relationship. |
4330: | x_return_status Return status after the call. The status can |
4331: | be FND_API.G_RET_STS_SUCCESS (success), |
4332: | fnd_api.g_ret_sts_error (error), |
4333: | fnd_api.g_ret_sts_unexp_error (unexpected |
4334: | error). |
4335: | x_msg_count Number of messages in message stack. |
4336: | x_msg_data Message text if x_msg_count is 1. |
4329: | relationship. |
4330: | x_return_status Return status after the call. The status can |
4331: | be FND_API.G_RET_STS_SUCCESS (success), |
4332: | fnd_api.g_ret_sts_error (error), |
4333: | fnd_api.g_ret_sts_unexp_error (unexpected |
4334: | error). |
4335: | x_msg_count Number of messages in message stack. |
4336: | x_msg_data Message text if x_msg_count is 1. |
4337: | MODIFICATION HISTORY |
4337: | MODIFICATION HISTORY |
4338: | 27-NOV-2001 J. del Callar Created. |
4339: +=======================================================================*/
4340: PROCEDURE create_clearinghouse_assign (
4341: p_init_msg_list IN VARCHAR2:= fnd_api.g_false,
4342: p_relationship_rec IN hz_relationship_v2pub.relationship_rec_type,
4343: x_relationship_id OUT NOCOPY NUMBER,
4344: x_party_id OUT NOCOPY NUMBER,
4345: x_party_number OUT NOCOPY NUMBER,
4362: p_msg_level=>fnd_log.level_procedure);
4363: END IF;
4364:
4365: -- initialize API return status to success.
4366: x_return_status := fnd_api.g_ret_sts_success;
4367:
4368: --
4369: -- execute business logic
4370: --
4374: g_insert,
4375: x_return_status);
4376:
4377: -- raise an exception if the validation routine is unsuccessful
4378: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4379: RAISE fnd_api.g_exc_error;
4380: END IF;
4381:
4382: -- create the banking group membership
4375: x_return_status);
4376:
4377: -- raise an exception if the validation routine is unsuccessful
4378: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4379: RAISE fnd_api.g_exc_error;
4380: END IF;
4381:
4382: -- create the banking group membership
4383: hz_relationship_v2pub.create_relationship(
4390: x_msg_data => x_msg_data
4391: );
4392:
4393: -- raise an exception if the banking group creation is unsuccessful
4394: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4395: RAISE fnd_api.g_exc_error;
4396: END IF;
4397:
4398: -- Debug info.
4391: );
4392:
4393: -- raise an exception if the banking group creation is unsuccessful
4394: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4395: RAISE fnd_api.g_exc_error;
4396: END IF;
4397:
4398: -- Debug info.
4399: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
4404:
4405: -- disable the debug procedure before exiting.
4406: --disable_debug;
4407: EXCEPTION
4408: WHEN fnd_api.g_exc_error THEN
4409: ROLLBACK TO create_clearinghouse_assign;
4410: x_return_status := fnd_api.g_ret_sts_error;
4411: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
4412: p_count => x_msg_count,
4406: --disable_debug;
4407: EXCEPTION
4408: WHEN fnd_api.g_exc_error THEN
4409: ROLLBACK TO create_clearinghouse_assign;
4410: x_return_status := fnd_api.g_ret_sts_error;
4411: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
4412: p_count => x_msg_count,
4413: p_data => x_msg_data);
4414:
4407: EXCEPTION
4408: WHEN fnd_api.g_exc_error THEN
4409: ROLLBACK TO create_clearinghouse_assign;
4410: x_return_status := fnd_api.g_ret_sts_error;
4411: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
4412: p_count => x_msg_count,
4413: p_data => x_msg_data);
4414:
4415: -- Debug info.
4427:
4428: -- Check if API is called in debug mode. If yes, disable debug.
4429: --disable_debug;
4430:
4431: WHEN fnd_api.g_exc_unexpected_error THEN
4432: ROLLBACK TO create_clearinghouse_assign;
4433: x_return_status := fnd_api.g_ret_sts_unexp_error;
4434: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
4435: p_count => x_msg_count,
4429: --disable_debug;
4430:
4431: WHEN fnd_api.g_exc_unexpected_error THEN
4432: ROLLBACK TO create_clearinghouse_assign;
4433: x_return_status := fnd_api.g_ret_sts_unexp_error;
4434: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
4435: p_count => x_msg_count,
4436: p_data => x_msg_data);
4437:
4430:
4431: WHEN fnd_api.g_exc_unexpected_error THEN
4432: ROLLBACK TO create_clearinghouse_assign;
4433: x_return_status := fnd_api.g_ret_sts_unexp_error;
4434: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
4435: p_count => x_msg_count,
4436: p_data => x_msg_data);
4437:
4438: -- Debug info.
4452: --disable_debug;
4453:
4454: WHEN OTHERS THEN
4455: ROLLBACK TO create_clearinghouse_assign;
4456: x_return_status := fnd_api.g_ret_sts_unexp_error;
4457: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
4458: fnd_message.set_token('ERROR',SQLERRM);
4459: fnd_msg_pub.add;
4460: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
4456: x_return_status := fnd_api.g_ret_sts_unexp_error;
4457: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
4458: fnd_message.set_token('ERROR',SQLERRM);
4459: fnd_msg_pub.add;
4460: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
4461: p_count => x_msg_count,
4462: p_data => x_msg_data);
4463:
4464: -- Debug info.
4490: | |
4491: | ARGUMENTS |
4492: | IN: |
4493: | p_init_msg_list Initialize message stack if it is set to |
4494: | FND_API.G_TRUE. Default is fnd_api.g_false. |
4495: | p_relationship_rec Relationship record for the clearinghouse |
4496: | assignment. |
4497: | IN/OUT: |
4498: | p_robject_version_number New version number for the banking |
4500: | p_pobject_version_number New version number for the banking |
4501: | group membership rel party. |
4502: | OUT: |
4503: | x_return_status Return status after the call. The status can |
4504: | be FND_API.G_RET_STS_SUCCESS (success), |
4505: | fnd_api.g_ret_sts_error (error), |
4506: | fnd_api.g_ret_sts_unexp_error (unexpected |
4507: | error). |
4508: | x_msg_count Number of messages in message stack. |
4501: | group membership rel party. |
4502: | OUT: |
4503: | x_return_status Return status after the call. The status can |
4504: | be FND_API.G_RET_STS_SUCCESS (success), |
4505: | fnd_api.g_ret_sts_error (error), |
4506: | fnd_api.g_ret_sts_unexp_error (unexpected |
4507: | error). |
4508: | x_msg_count Number of messages in message stack. |
4509: | x_msg_data Message text if x_msg_count is 1. |
4502: | OUT: |
4503: | x_return_status Return status after the call. The status can |
4504: | be FND_API.G_RET_STS_SUCCESS (success), |
4505: | fnd_api.g_ret_sts_error (error), |
4506: | fnd_api.g_ret_sts_unexp_error (unexpected |
4507: | error). |
4508: | x_msg_count Number of messages in message stack. |
4509: | x_msg_data Message text if x_msg_count is 1. |
4510: | MODIFICATION HISTORY |
4510: | MODIFICATION HISTORY |
4511: | 27-NOV-2001 J. del Callar Updated. |
4512: +=======================================================================*/
4513: PROCEDURE update_clearinghouse_assign (
4514: p_init_msg_list IN VARCHAR2:= fnd_api.g_false,
4515: p_relationship_rec IN hz_relationship_v2pub.relationship_rec_type,
4516: p_robject_version_number IN OUT NOCOPY NUMBER,
4517: p_pobject_version_number IN OUT NOCOPY NUMBER,
4518: x_return_status OUT NOCOPY VARCHAR2,
4534: p_msg_level=>fnd_log.level_procedure);
4535: END IF;
4536:
4537: -- initialize API return status to success.
4538: x_return_status := fnd_api.g_ret_sts_success;
4539:
4540: --
4541: -- execute business logic
4542: --
4546: g_update,
4547: x_return_status);
4548:
4549: -- raise an exception if the validation routine is unsuccessful
4550: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4551: RAISE fnd_api.g_exc_error;
4552: END IF;
4553:
4554: -- update the banking group membership
4547: x_return_status);
4548:
4549: -- raise an exception if the validation routine is unsuccessful
4550: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4551: RAISE fnd_api.g_exc_error;
4552: END IF;
4553:
4554: -- update the banking group membership
4555: hz_relationship_v2pub.update_relationship(
4561: x_msg_data => x_msg_data
4562: );
4563:
4564: -- raise an exception if the banking group creation is unsuccessful
4565: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4566: RAISE fnd_api.g_exc_error;
4567: END IF;
4568:
4569: -- Debug info.
4562: );
4563:
4564: -- raise an exception if the banking group creation is unsuccessful
4565: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4566: RAISE fnd_api.g_exc_error;
4567: END IF;
4568:
4569: -- Debug info.
4570: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
4575:
4576: -- disable the debug procedure before exiting.
4577: --disable_debug;
4578: EXCEPTION
4579: WHEN fnd_api.g_exc_error THEN
4580: ROLLBACK TO update_clearinghouse_assign;
4581: x_return_status := fnd_api.g_ret_sts_error;
4582: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
4583: p_count => x_msg_count,
4577: --disable_debug;
4578: EXCEPTION
4579: WHEN fnd_api.g_exc_error THEN
4580: ROLLBACK TO update_clearinghouse_assign;
4581: x_return_status := fnd_api.g_ret_sts_error;
4582: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
4583: p_count => x_msg_count,
4584: p_data => x_msg_data);
4585:
4578: EXCEPTION
4579: WHEN fnd_api.g_exc_error THEN
4580: ROLLBACK TO update_clearinghouse_assign;
4581: x_return_status := fnd_api.g_ret_sts_error;
4582: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
4583: p_count => x_msg_count,
4584: p_data => x_msg_data);
4585:
4586: -- Debug info.
4598:
4599: -- Check if API is called in debug mode. If yes, disable debug.
4600: --disable_debug;
4601:
4602: WHEN fnd_api.g_exc_unexpected_error THEN
4603: ROLLBACK TO update_clearinghouse_assign;
4604: x_return_status := fnd_api.g_ret_sts_unexp_error;
4605: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
4606: p_count => x_msg_count,
4600: --disable_debug;
4601:
4602: WHEN fnd_api.g_exc_unexpected_error THEN
4603: ROLLBACK TO update_clearinghouse_assign;
4604: x_return_status := fnd_api.g_ret_sts_unexp_error;
4605: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
4606: p_count => x_msg_count,
4607: p_data => x_msg_data);
4608:
4601:
4602: WHEN fnd_api.g_exc_unexpected_error THEN
4603: ROLLBACK TO update_clearinghouse_assign;
4604: x_return_status := fnd_api.g_ret_sts_unexp_error;
4605: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
4606: p_count => x_msg_count,
4607: p_data => x_msg_data);
4608:
4609: -- Debug info.
4623: --disable_debug;
4624:
4625: WHEN OTHERS THEN
4626: ROLLBACK TO update_clearinghouse_assign;
4627: x_return_status := fnd_api.g_ret_sts_unexp_error;
4628: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
4629: fnd_message.set_token('ERROR',SQLERRM);
4630: fnd_msg_pub.add;
4631: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
4627: x_return_status := fnd_api.g_ret_sts_unexp_error;
4628: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
4629: fnd_message.set_token('ERROR',SQLERRM);
4630: fnd_msg_pub.add;
4631: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
4632: p_count => x_msg_count,
4633: p_data => x_msg_data);
4634:
4635: -- Debug info.
4661: | |
4662: | ARGUMENTS |
4663: | IN: |
4664: | p_init_msg_list Initialize message stack if it is set to |
4665: | FND_API.G_TRUE. Default is fnd_api.g_false. |
4666: | p_party_site_rec Party site record for the bank organization. |
4667: | IN/OUT: |
4668: | OUT: |
4669: | x_party_site_id ID for the party site created. |
4669: | x_party_site_id ID for the party site created. |
4670: | x_party_site_number Party site number for the bank site |
4671: | created. |
4672: | x_return_status Return status after the call. The status can |
4673: | be FND_API.G_RET_STS_SUCCESS (success), |
4674: | fnd_api.g_ret_sts_error (error), |
4675: | fnd_api.g_ret_sts_unexp_error (unexpected |
4676: | error). |
4677: | x_msg_count Number of messages in message stack. |
4670: | x_party_site_number Party site number for the bank site |
4671: | created. |
4672: | x_return_status Return status after the call. The status can |
4673: | be FND_API.G_RET_STS_SUCCESS (success), |
4674: | fnd_api.g_ret_sts_error (error), |
4675: | fnd_api.g_ret_sts_unexp_error (unexpected |
4676: | error). |
4677: | x_msg_count Number of messages in message stack. |
4678: | x_msg_data Message text if x_msg_count is 1. |
4671: | created. |
4672: | x_return_status Return status after the call. The status can |
4673: | be FND_API.G_RET_STS_SUCCESS (success), |
4674: | fnd_api.g_ret_sts_error (error), |
4675: | fnd_api.g_ret_sts_unexp_error (unexpected |
4676: | error). |
4677: | x_msg_count Number of messages in message stack. |
4678: | x_msg_data Message text if x_msg_count is 1. |
4679: | MODIFICATION HISTORY |
4679: | MODIFICATION HISTORY |
4680: | 27-NOV-2001 J. del Callar Created. |
4681: +=======================================================================*/
4682: PROCEDURE create_bank_site (
4683: p_init_msg_list IN VARCHAR2:= fnd_api.g_false,
4684: p_party_site_rec IN hz_party_site_v2pub.party_site_rec_type,
4685: x_party_site_id OUT NOCOPY NUMBER,
4686: x_party_site_number OUT NOCOPY NUMBER,
4687: x_return_status OUT NOCOPY VARCHAR2,
4703: p_msg_level=>fnd_log.level_procedure);
4704: END IF;
4705:
4706: -- initialize API return status to success.
4707: x_return_status := fnd_api.g_ret_sts_success;
4708:
4709: --
4710: -- execute business logic
4711: --
4713: -- validate the banking group membership
4714: validate_bank_site(p_party_site_rec, g_insert, x_return_status);
4715:
4716: -- raise an exception if the validation routine is unsuccessful
4717: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4718: RAISE fnd_api.g_exc_error;
4719: END IF;
4720:
4721: -- create the banking group membership
4714: validate_bank_site(p_party_site_rec, g_insert, x_return_status);
4715:
4716: -- raise an exception if the validation routine is unsuccessful
4717: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4718: RAISE fnd_api.g_exc_error;
4719: END IF;
4720:
4721: -- create the banking group membership
4722: hz_party_site_v2pub.create_party_site(
4728: x_msg_data => x_msg_data
4729: );
4730:
4731: -- raise an exception if the banking group creation is unsuccessful
4732: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4733: RAISE fnd_api.g_exc_error;
4734: END IF;
4735:
4736: -- Debug info.
4729: );
4730:
4731: -- raise an exception if the banking group creation is unsuccessful
4732: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4733: RAISE fnd_api.g_exc_error;
4734: END IF;
4735:
4736: -- Debug info.
4737: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
4742:
4743: -- disable the debug procedure before exiting.
4744: --disable_debug;
4745: EXCEPTION
4746: WHEN fnd_api.g_exc_error THEN
4747: ROLLBACK TO create_bank_site;
4748: x_return_status := fnd_api.g_ret_sts_error;
4749: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
4750: p_count => x_msg_count,
4744: --disable_debug;
4745: EXCEPTION
4746: WHEN fnd_api.g_exc_error THEN
4747: ROLLBACK TO create_bank_site;
4748: x_return_status := fnd_api.g_ret_sts_error;
4749: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
4750: p_count => x_msg_count,
4751: p_data => x_msg_data);
4752:
4745: EXCEPTION
4746: WHEN fnd_api.g_exc_error THEN
4747: ROLLBACK TO create_bank_site;
4748: x_return_status := fnd_api.g_ret_sts_error;
4749: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
4750: p_count => x_msg_count,
4751: p_data => x_msg_data);
4752:
4753: -- Debug info.
4765:
4766: -- Check if API is called in debug mode. If yes, disable debug.
4767: --disable_debug;
4768:
4769: WHEN fnd_api.g_exc_unexpected_error THEN
4770: ROLLBACK TO create_bank_site;
4771: x_return_status := fnd_api.g_ret_sts_unexp_error;
4772: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
4773: p_count => x_msg_count,
4767: --disable_debug;
4768:
4769: WHEN fnd_api.g_exc_unexpected_error THEN
4770: ROLLBACK TO create_bank_site;
4771: x_return_status := fnd_api.g_ret_sts_unexp_error;
4772: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
4773: p_count => x_msg_count,
4774: p_data => x_msg_data);
4775:
4768:
4769: WHEN fnd_api.g_exc_unexpected_error THEN
4770: ROLLBACK TO create_bank_site;
4771: x_return_status := fnd_api.g_ret_sts_unexp_error;
4772: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
4773: p_count => x_msg_count,
4774: p_data => x_msg_data);
4775:
4776: -- Debug info.
4790: --disable_debug;
4791:
4792: WHEN OTHERS THEN
4793: ROLLBACK TO create_bank_site;
4794: x_return_status := fnd_api.g_ret_sts_unexp_error;
4795: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
4796: fnd_message.set_token('ERROR',SQLERRM);
4797: fnd_msg_pub.add;
4798: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
4794: x_return_status := fnd_api.g_ret_sts_unexp_error;
4795: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
4796: fnd_message.set_token('ERROR',SQLERRM);
4797: fnd_msg_pub.add;
4798: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
4799: p_count => x_msg_count,
4800: p_data => x_msg_data);
4801:
4802: -- Debug info.
4828: | |
4829: | ARGUMENTS |
4830: | IN: |
4831: | p_init_msg_list Initialize message stack if it is set to |
4832: | FND_API.G_TRUE. Default is fnd_api.g_false. |
4833: | p_party_site_rec Party site record for the bank organization. |
4834: | IN/OUT: |
4835: | x_psobject_version_number Party site version number for the |
4836: | updated bank site. |
4835: | x_psobject_version_number Party site version number for the |
4836: | updated bank site. |
4837: | OUT: |
4838: | x_return_status Return status after the call. The status can |
4839: | be FND_API.G_RET_STS_SUCCESS (success), |
4840: | fnd_api.g_ret_sts_error (error), |
4841: | fnd_api.g_ret_sts_unexp_error (unexpected |
4842: | error). |
4843: | x_msg_count Number of messages in message stack. |
4836: | updated bank site. |
4837: | OUT: |
4838: | x_return_status Return status after the call. The status can |
4839: | be FND_API.G_RET_STS_SUCCESS (success), |
4840: | fnd_api.g_ret_sts_error (error), |
4841: | fnd_api.g_ret_sts_unexp_error (unexpected |
4842: | error). |
4843: | x_msg_count Number of messages in message stack. |
4844: | x_msg_data Message text if x_msg_count is 1. |
4837: | OUT: |
4838: | x_return_status Return status after the call. The status can |
4839: | be FND_API.G_RET_STS_SUCCESS (success), |
4840: | fnd_api.g_ret_sts_error (error), |
4841: | fnd_api.g_ret_sts_unexp_error (unexpected |
4842: | error). |
4843: | x_msg_count Number of messages in message stack. |
4844: | x_msg_data Message text if x_msg_count is 1. |
4845: | MODIFICATION HISTORY |
4845: | MODIFICATION HISTORY |
4846: | 27-NOV-2001 J. del Callar Updated. |
4847: +=======================================================================*/
4848: PROCEDURE update_bank_site (
4849: p_init_msg_list IN VARCHAR2:= fnd_api.g_false,
4850: p_party_site_rec IN hz_party_site_v2pub.party_site_rec_type,
4851: p_psobject_version_number IN OUT NOCOPY NUMBER,
4852: x_return_status OUT NOCOPY VARCHAR2,
4853: x_msg_count OUT NOCOPY NUMBER,
4868: p_msg_level=>fnd_log.level_procedure);
4869: END IF;
4870:
4871: -- initialize API return status to success.
4872: x_return_status := fnd_api.g_ret_sts_success;
4873:
4874: --
4875: -- execute business logic
4876: --
4878: -- validate the banking group membership
4879: validate_bank_site(p_party_site_rec, g_update, x_return_status);
4880:
4881: -- raise an exception if the validation routine is unsuccessful
4882: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4883: RAISE fnd_api.g_exc_error;
4884: END IF;
4885:
4886: -- update the banking group membership
4879: validate_bank_site(p_party_site_rec, g_update, x_return_status);
4880:
4881: -- raise an exception if the validation routine is unsuccessful
4882: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4883: RAISE fnd_api.g_exc_error;
4884: END IF;
4885:
4886: -- update the banking group membership
4887: hz_party_site_v2pub.update_party_site(
4892: x_msg_data => x_msg_data
4893: );
4894:
4895: -- raise an exception if the banking group creation is unsuccessful
4896: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4897: RAISE fnd_api.g_exc_error;
4898: END IF;
4899:
4900: -- Debug info.
4893: );
4894:
4895: -- raise an exception if the banking group creation is unsuccessful
4896: IF x_return_status <> fnd_api.g_ret_sts_success THEN
4897: RAISE fnd_api.g_exc_error;
4898: END IF;
4899:
4900: -- Debug info.
4901: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
4906:
4907: -- disable the debug procedure before exiting.
4908: --disable_debug;
4909: EXCEPTION
4910: WHEN fnd_api.g_exc_error THEN
4911: ROLLBACK TO update_bank_site;
4912: x_return_status := fnd_api.g_ret_sts_error;
4913: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
4914: p_count => x_msg_count,
4908: --disable_debug;
4909: EXCEPTION
4910: WHEN fnd_api.g_exc_error THEN
4911: ROLLBACK TO update_bank_site;
4912: x_return_status := fnd_api.g_ret_sts_error;
4913: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
4914: p_count => x_msg_count,
4915: p_data => x_msg_data);
4916:
4909: EXCEPTION
4910: WHEN fnd_api.g_exc_error THEN
4911: ROLLBACK TO update_bank_site;
4912: x_return_status := fnd_api.g_ret_sts_error;
4913: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
4914: p_count => x_msg_count,
4915: p_data => x_msg_data);
4916:
4917: -- Debug info.
4929:
4930: -- Check if API is called in debug mode. If yes, disable debug.
4931: --disable_debug;
4932:
4933: WHEN fnd_api.g_exc_unexpected_error THEN
4934: ROLLBACK TO update_bank_site;
4935: x_return_status := fnd_api.g_ret_sts_unexp_error;
4936: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
4937: p_count => x_msg_count,
4931: --disable_debug;
4932:
4933: WHEN fnd_api.g_exc_unexpected_error THEN
4934: ROLLBACK TO update_bank_site;
4935: x_return_status := fnd_api.g_ret_sts_unexp_error;
4936: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
4937: p_count => x_msg_count,
4938: p_data => x_msg_data);
4939:
4932:
4933: WHEN fnd_api.g_exc_unexpected_error THEN
4934: ROLLBACK TO update_bank_site;
4935: x_return_status := fnd_api.g_ret_sts_unexp_error;
4936: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
4937: p_count => x_msg_count,
4938: p_data => x_msg_data);
4939:
4940: -- Debug info.
4954: --disable_debug;
4955:
4956: WHEN OTHERS THEN
4957: ROLLBACK TO update_bank_site;
4958: x_return_status := fnd_api.g_ret_sts_unexp_error;
4959: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
4960: fnd_message.set_token('ERROR',SQLERRM);
4961: fnd_msg_pub.add;
4962: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
4958: x_return_status := fnd_api.g_ret_sts_unexp_error;
4959: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
4960: fnd_message.set_token('ERROR',SQLERRM);
4961: fnd_msg_pub.add;
4962: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
4963: p_count => x_msg_count,
4964: p_data => x_msg_data);
4965:
4966: -- Debug info.
4992: | |
4993: | ARGUMENTS |
4994: | IN: |
4995: | p_init_msg_list Initialize message stack if it is set to |
4996: | FND_API.G_TRUE. Default is FND_API.G_FALSE. |
4997: | p_contact_point_rec Contact point record. |
4998: | p_edi_rec EDI record. |
4999: | IN/OUT: |
5000: | OUT: |
5001: | x_contact_point_id ID of the contact point created. |
5002: | x_party_number Party number for the party created for the |
5003: | relationship. |
5004: | x_return_status Return status after the call. The status can |
5005: | be FND_API.G_RET_STS_SUCCESS (success), |
5006: | fnd_api.g_ret_sts_error (error), |
5007: | fnd_api.g_ret_sts_unexp_error (unexpected |
5008: | error). |
5009: | x_msg_count Number of messages in message stack. |
5002: | x_party_number Party number for the party created for the |
5003: | relationship. |
5004: | x_return_status Return status after the call. The status can |
5005: | be FND_API.G_RET_STS_SUCCESS (success), |
5006: | fnd_api.g_ret_sts_error (error), |
5007: | fnd_api.g_ret_sts_unexp_error (unexpected |
5008: | error). |
5009: | x_msg_count Number of messages in message stack. |
5010: | x_msg_data Message text if x_msg_count is 1. |
5003: | relationship. |
5004: | x_return_status Return status after the call. The status can |
5005: | be FND_API.G_RET_STS_SUCCESS (success), |
5006: | fnd_api.g_ret_sts_error (error), |
5007: | fnd_api.g_ret_sts_unexp_error (unexpected |
5008: | error). |
5009: | x_msg_count Number of messages in message stack. |
5010: | x_msg_data Message text if x_msg_count is 1. |
5011: | MODIFICATION HISTORY |
5011: | MODIFICATION HISTORY |
5012: | 27-APR-2002 J. del Callar Bug 2238144: Created. |
5013: +=======================================================================*/
5014: PROCEDURE create_edi_contact_point (
5015: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
5016: p_contact_point_rec IN hz_contact_point_v2pub.contact_point_rec_type,
5017: p_edi_rec IN hz_contact_point_v2pub.edi_rec_type
5018: := hz_contact_point_v2pub.g_miss_edi_rec,
5019: x_contact_point_id OUT NOCOPY NUMBER,
5036: p_msg_level=>fnd_log.level_procedure);
5037: END IF;
5038:
5039: -- initialize API return status to success.
5040: x_return_status := fnd_api.g_ret_sts_success;
5041:
5042: --
5043: -- execute business logic
5044: --
5048: p_edi_rec,
5049: x_return_status);
5050:
5051: -- raise an exception if the validation routine is unsuccessful
5052: IF x_return_status <> fnd_api.g_ret_sts_success THEN
5053: RAISE fnd_api.g_exc_error;
5054: END IF;
5055:
5056: -- create the EDI contact point
5049: x_return_status);
5050:
5051: -- raise an exception if the validation routine is unsuccessful
5052: IF x_return_status <> fnd_api.g_ret_sts_success THEN
5053: RAISE fnd_api.g_exc_error;
5054: END IF;
5055:
5056: -- create the EDI contact point
5057: hz_contact_point_v2pub.create_edi_contact_point(
5054: END IF;
5055:
5056: -- create the EDI contact point
5057: hz_contact_point_v2pub.create_edi_contact_point(
5058: p_init_msg_list => fnd_api.g_false,
5059: p_contact_point_rec => p_contact_point_rec,
5060: p_edi_rec => p_edi_rec,
5061: x_contact_point_id => x_contact_point_id,
5062: x_return_status => x_return_status,
5064: x_msg_data => x_msg_data
5065: );
5066:
5067: -- raise an exception if the banking group creation is unsuccessful
5068: IF x_return_status <> fnd_api.g_ret_sts_success THEN
5069: RAISE fnd_api.g_exc_error;
5070: END IF;
5071:
5072: -- Debug info.
5065: );
5066:
5067: -- raise an exception if the banking group creation is unsuccessful
5068: IF x_return_status <> fnd_api.g_ret_sts_success THEN
5069: RAISE fnd_api.g_exc_error;
5070: END IF;
5071:
5072: -- Debug info.
5073: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
5078:
5079: -- disable the debug procedure before exiting.
5080: --disable_debug;
5081: EXCEPTION
5082: WHEN fnd_api.g_exc_error THEN
5083: ROLLBACK TO create_edi_contact_point;
5084: x_return_status := fnd_api.g_ret_sts_error;
5085: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
5086: p_count => x_msg_count,
5080: --disable_debug;
5081: EXCEPTION
5082: WHEN fnd_api.g_exc_error THEN
5083: ROLLBACK TO create_edi_contact_point;
5084: x_return_status := fnd_api.g_ret_sts_error;
5085: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
5086: p_count => x_msg_count,
5087: p_data => x_msg_data);
5088:
5081: EXCEPTION
5082: WHEN fnd_api.g_exc_error THEN
5083: ROLLBACK TO create_edi_contact_point;
5084: x_return_status := fnd_api.g_ret_sts_error;
5085: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
5086: p_count => x_msg_count,
5087: p_data => x_msg_data);
5088:
5089: -- Debug info.
5101:
5102: -- Check if API is called in debug mode. If yes, disable debug.
5103: --disable_debug;
5104:
5105: WHEN fnd_api.g_exc_unexpected_error THEN
5106: ROLLBACK TO create_edi_contact_point;
5107: x_return_status := fnd_api.g_ret_sts_unexp_error;
5108: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
5109: p_count => x_msg_count,
5103: --disable_debug;
5104:
5105: WHEN fnd_api.g_exc_unexpected_error THEN
5106: ROLLBACK TO create_edi_contact_point;
5107: x_return_status := fnd_api.g_ret_sts_unexp_error;
5108: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
5109: p_count => x_msg_count,
5110: p_data => x_msg_data);
5111:
5104:
5105: WHEN fnd_api.g_exc_unexpected_error THEN
5106: ROLLBACK TO create_edi_contact_point;
5107: x_return_status := fnd_api.g_ret_sts_unexp_error;
5108: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
5109: p_count => x_msg_count,
5110: p_data => x_msg_data);
5111:
5112: -- Debug info.
5126: --disable_debug;
5127:
5128: WHEN OTHERS THEN
5129: ROLLBACK TO create_edi_contact_point;
5130: x_return_status := fnd_api.g_ret_sts_unexp_error;
5131: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
5132: fnd_message.set_token('ERROR',SQLERRM);
5133: fnd_msg_pub.add;
5134: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
5130: x_return_status := fnd_api.g_ret_sts_unexp_error;
5131: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
5132: fnd_message.set_token('ERROR',SQLERRM);
5133: fnd_msg_pub.add;
5134: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
5135: p_count => x_msg_count,
5136: p_data => x_msg_data);
5137:
5138: -- Debug info.
5164: | |
5165: | ARGUMENTS |
5166: | IN: |
5167: | p_init_msg_list Initialize message stack if it is set to |
5168: | FND_API.G_TRUE. Default is FND_API.G_FALSE. |
5169: | p_contact_point_rec Contact point record. |
5170: | p_edi_rec EDI record. |
5171: | IN/OUT: |
5172: | p_object_version_number Used to lock the record being updated. |
5173: | OUT: |
5174: | x_party_number Party number for the party created for the |
5175: | relationship. |
5176: | x_return_status Return status after the call. The status can |
5177: | be FND_API.G_RET_STS_SUCCESS (success), |
5178: | fnd_api.g_ret_sts_error (error), |
5179: | fnd_api.g_ret_sts_unexp_error (unexpected |
5180: | error). |
5181: | x_msg_count Number of messages in message stack. |
5174: | x_party_number Party number for the party created for the |
5175: | relationship. |
5176: | x_return_status Return status after the call. The status can |
5177: | be FND_API.G_RET_STS_SUCCESS (success), |
5178: | fnd_api.g_ret_sts_error (error), |
5179: | fnd_api.g_ret_sts_unexp_error (unexpected |
5180: | error). |
5181: | x_msg_count Number of messages in message stack. |
5182: | x_msg_data Message text if x_msg_count is 1. |
5175: | relationship. |
5176: | x_return_status Return status after the call. The status can |
5177: | be FND_API.G_RET_STS_SUCCESS (success), |
5178: | fnd_api.g_ret_sts_error (error), |
5179: | fnd_api.g_ret_sts_unexp_error (unexpected |
5180: | error). |
5181: | x_msg_count Number of messages in message stack. |
5182: | x_msg_data Message text if x_msg_count is 1. |
5183: | MODIFICATION HISTORY |
5183: | MODIFICATION HISTORY |
5184: | 27-APR-2002 J. del Callar Bug 2238144: Created. |
5185: +=======================================================================*/
5186: PROCEDURE update_edi_contact_point (
5187: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
5188: p_contact_point_rec IN hz_contact_point_v2pub.contact_point_rec_type,
5189: p_edi_rec IN hz_contact_point_v2pub.edi_rec_type
5190: := hz_contact_point_v2pub.g_miss_edi_rec,
5191: p_object_version_number IN OUT NOCOPY NUMBER,
5208: p_msg_level=>fnd_log.level_procedure);
5209: END IF;
5210:
5211: -- initialize API return status to success.
5212: x_return_status := fnd_api.g_ret_sts_success;
5213:
5214: --
5215: -- execute business logic
5216: --
5220: p_edi_rec,
5221: x_return_status);
5222:
5223: -- raise an exception if the validation routine is unsuccessful
5224: IF x_return_status <> fnd_api.g_ret_sts_success THEN
5225: RAISE fnd_api.g_exc_error;
5226: END IF;
5227:
5228: -- update the EDI contact point
5221: x_return_status);
5222:
5223: -- raise an exception if the validation routine is unsuccessful
5224: IF x_return_status <> fnd_api.g_ret_sts_success THEN
5225: RAISE fnd_api.g_exc_error;
5226: END IF;
5227:
5228: -- update the EDI contact point
5229: hz_contact_point_v2pub.update_edi_contact_point(
5226: END IF;
5227:
5228: -- update the EDI contact point
5229: hz_contact_point_v2pub.update_edi_contact_point(
5230: p_init_msg_list => fnd_api.g_false,
5231: p_contact_point_rec => p_contact_point_rec,
5232: p_edi_rec => p_edi_rec,
5233: p_object_version_number => p_object_version_number,
5234: x_return_status => x_return_status,
5236: x_msg_data => x_msg_data
5237: );
5238:
5239: -- raise an exception if the banking group creation is unsuccessful
5240: IF x_return_status <> fnd_api.g_ret_sts_success THEN
5241: RAISE fnd_api.g_exc_error;
5242: END IF;
5243:
5244: -- Debug info.
5237: );
5238:
5239: -- raise an exception if the banking group creation is unsuccessful
5240: IF x_return_status <> fnd_api.g_ret_sts_success THEN
5241: RAISE fnd_api.g_exc_error;
5242: END IF;
5243:
5244: -- Debug info.
5245: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
5250:
5251: -- disable the debug procedure before exiting.
5252: --disable_debug;
5253: EXCEPTION
5254: WHEN fnd_api.g_exc_error THEN
5255: ROLLBACK TO update_edi_contact_point;
5256: x_return_status := fnd_api.g_ret_sts_error;
5257: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
5258: p_count => x_msg_count,
5252: --disable_debug;
5253: EXCEPTION
5254: WHEN fnd_api.g_exc_error THEN
5255: ROLLBACK TO update_edi_contact_point;
5256: x_return_status := fnd_api.g_ret_sts_error;
5257: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
5258: p_count => x_msg_count,
5259: p_data => x_msg_data);
5260:
5253: EXCEPTION
5254: WHEN fnd_api.g_exc_error THEN
5255: ROLLBACK TO update_edi_contact_point;
5256: x_return_status := fnd_api.g_ret_sts_error;
5257: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
5258: p_count => x_msg_count,
5259: p_data => x_msg_data);
5260:
5261: -- Debug info.
5273:
5274: -- Check if API is called in debug mode. If yes, disable debug.
5275: --disable_debug;
5276:
5277: WHEN fnd_api.g_exc_unexpected_error THEN
5278: ROLLBACK TO update_edi_contact_point;
5279: x_return_status := fnd_api.g_ret_sts_unexp_error;
5280: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
5281: p_count => x_msg_count,
5275: --disable_debug;
5276:
5277: WHEN fnd_api.g_exc_unexpected_error THEN
5278: ROLLBACK TO update_edi_contact_point;
5279: x_return_status := fnd_api.g_ret_sts_unexp_error;
5280: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
5281: p_count => x_msg_count,
5282: p_data => x_msg_data);
5283:
5276:
5277: WHEN fnd_api.g_exc_unexpected_error THEN
5278: ROLLBACK TO update_edi_contact_point;
5279: x_return_status := fnd_api.g_ret_sts_unexp_error;
5280: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
5281: p_count => x_msg_count,
5282: p_data => x_msg_data);
5283:
5284: -- Debug info.
5298: --disable_debug;
5299:
5300: WHEN OTHERS THEN
5301: ROLLBACK TO update_edi_contact_point;
5302: x_return_status := fnd_api.g_ret_sts_unexp_error;
5303: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
5304: fnd_message.set_token('ERROR',SQLERRM);
5305: fnd_msg_pub.add;
5306: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
5302: x_return_status := fnd_api.g_ret_sts_unexp_error;
5303: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
5304: fnd_message.set_token('ERROR',SQLERRM);
5305: fnd_msg_pub.add;
5306: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
5307: p_count => x_msg_count,
5308: p_data => x_msg_data);
5309:
5310: -- Debug info.
5336: | |
5337: | ARGUMENTS |
5338: | IN: |
5339: | p_init_msg_list Initialize message stack if it is set to |
5340: | FND_API.G_TRUE. Default is FND_API.G_FALSE. |
5341: | p_contact_point_rec Contact point record. |
5342: | p_eft_rec EFT record. |
5343: | IN/OUT: |
5344: | OUT: |
5345: | x_contact_point_id ID of the contact point created. |
5346: | x_party_number Party number for the party created for the |
5347: | relationship. |
5348: | x_return_status Return status after the call. The status can |
5349: | be FND_API.G_RET_STS_SUCCESS (success), |
5350: | fnd_api.g_ret_sts_error (error), |
5351: | fnd_api.g_ret_sts_unexp_error (unexpected |
5352: | error). |
5353: | x_msg_count Number of messages in message stack. |
5346: | x_party_number Party number for the party created for the |
5347: | relationship. |
5348: | x_return_status Return status after the call. The status can |
5349: | be FND_API.G_RET_STS_SUCCESS (success), |
5350: | fnd_api.g_ret_sts_error (error), |
5351: | fnd_api.g_ret_sts_unexp_error (unexpected |
5352: | error). |
5353: | x_msg_count Number of messages in message stack. |
5354: | x_msg_data Message text if x_msg_count is 1. |
5347: | relationship. |
5348: | x_return_status Return status after the call. The status can |
5349: | be FND_API.G_RET_STS_SUCCESS (success), |
5350: | fnd_api.g_ret_sts_error (error), |
5351: | fnd_api.g_ret_sts_unexp_error (unexpected |
5352: | error). |
5353: | x_msg_count Number of messages in message stack. |
5354: | x_msg_data Message text if x_msg_count is 1. |
5355: | MODIFICATION HISTORY |
5355: | MODIFICATION HISTORY |
5356: | 27-APR-2002 J. del Callar Bug 2238144: Created. |
5357: +=======================================================================*/
5358: PROCEDURE create_eft_contact_point (
5359: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
5360: p_contact_point_rec IN hz_contact_point_v2pub.contact_point_rec_type,
5361: p_eft_rec IN hz_contact_point_v2pub.eft_rec_type
5362: := hz_contact_point_v2pub.g_miss_eft_rec,
5363: x_contact_point_id OUT NOCOPY NUMBER,
5380: p_msg_level=>fnd_log.level_procedure);
5381: END IF;
5382:
5383: -- initialize API return status to success.
5384: x_return_status := fnd_api.g_ret_sts_success;
5385:
5386: --
5387: -- execute business logic
5388: --
5392: p_eft_rec,
5393: x_return_status);
5394:
5395: -- raise an exception if the validation routine is unsuccessful
5396: IF x_return_status <> fnd_api.g_ret_sts_success THEN
5397: RAISE fnd_api.g_exc_error;
5398: END IF;
5399:
5400: -- create the EFT contact point
5393: x_return_status);
5394:
5395: -- raise an exception if the validation routine is unsuccessful
5396: IF x_return_status <> fnd_api.g_ret_sts_success THEN
5397: RAISE fnd_api.g_exc_error;
5398: END IF;
5399:
5400: -- create the EFT contact point
5401: hz_contact_point_v2pub.create_eft_contact_point(
5398: END IF;
5399:
5400: -- create the EFT contact point
5401: hz_contact_point_v2pub.create_eft_contact_point(
5402: p_init_msg_list => fnd_api.g_false,
5403: p_contact_point_rec => p_contact_point_rec,
5404: p_eft_rec => p_eft_rec,
5405: x_contact_point_id => x_contact_point_id,
5406: x_return_status => x_return_status,
5408: x_msg_data => x_msg_data
5409: );
5410:
5411: -- raise an exception if the banking group creation is unsuccessful
5412: IF x_return_status <> fnd_api.g_ret_sts_success THEN
5413: RAISE fnd_api.g_exc_error;
5414: END IF;
5415:
5416: -- Debug info.
5409: );
5410:
5411: -- raise an exception if the banking group creation is unsuccessful
5412: IF x_return_status <> fnd_api.g_ret_sts_success THEN
5413: RAISE fnd_api.g_exc_error;
5414: END IF;
5415:
5416: -- Debug info.
5417: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
5422:
5423: -- disable the debug procedure before exiting.
5424: --disable_debug;
5425: EXCEPTION
5426: WHEN fnd_api.g_exc_error THEN
5427: ROLLBACK TO create_eft_contact_point;
5428: x_return_status := fnd_api.g_ret_sts_error;
5429: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
5430: p_count => x_msg_count,
5424: --disable_debug;
5425: EXCEPTION
5426: WHEN fnd_api.g_exc_error THEN
5427: ROLLBACK TO create_eft_contact_point;
5428: x_return_status := fnd_api.g_ret_sts_error;
5429: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
5430: p_count => x_msg_count,
5431: p_data => x_msg_data);
5432:
5425: EXCEPTION
5426: WHEN fnd_api.g_exc_error THEN
5427: ROLLBACK TO create_eft_contact_point;
5428: x_return_status := fnd_api.g_ret_sts_error;
5429: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
5430: p_count => x_msg_count,
5431: p_data => x_msg_data);
5432:
5433: -- Debug info.
5445:
5446: -- Check if API is called in debug mode. If yes, disable debug.
5447: --disable_debug;
5448:
5449: WHEN fnd_api.g_exc_unexpected_error THEN
5450: ROLLBACK TO create_eft_contact_point;
5451: x_return_status := fnd_api.g_ret_sts_unexp_error;
5452: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
5453: p_count => x_msg_count,
5447: --disable_debug;
5448:
5449: WHEN fnd_api.g_exc_unexpected_error THEN
5450: ROLLBACK TO create_eft_contact_point;
5451: x_return_status := fnd_api.g_ret_sts_unexp_error;
5452: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
5453: p_count => x_msg_count,
5454: p_data => x_msg_data);
5455:
5448:
5449: WHEN fnd_api.g_exc_unexpected_error THEN
5450: ROLLBACK TO create_eft_contact_point;
5451: x_return_status := fnd_api.g_ret_sts_unexp_error;
5452: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
5453: p_count => x_msg_count,
5454: p_data => x_msg_data);
5455:
5456: -- Debug info.
5470: --disable_debug;
5471:
5472: WHEN OTHERS THEN
5473: ROLLBACK TO create_eft_contact_point;
5474: x_return_status := fnd_api.g_ret_sts_unexp_error;
5475: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
5476: fnd_message.set_token('ERROR',SQLERRM);
5477: fnd_msg_pub.add;
5478: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
5474: x_return_status := fnd_api.g_ret_sts_unexp_error;
5475: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
5476: fnd_message.set_token('ERROR',SQLERRM);
5477: fnd_msg_pub.add;
5478: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
5479: p_count => x_msg_count,
5480: p_data => x_msg_data);
5481:
5482: -- Debug info.
5508: | |
5509: | ARGUMENTS |
5510: | IN: |
5511: | p_init_msg_list Initialize message stack if it is set to |
5512: | FND_API.G_TRUE. Default is FND_API.G_FALSE. |
5513: | p_contact_point_rec Contact point record. |
5514: | p_eft_rec EFT record. |
5515: | IN/OUT: |
5516: | p_object_version_number Used to lock the record being updated. |
5517: | OUT: |
5518: | x_party_number Party number for the party created for the |
5519: | relationship. |
5520: | x_return_status Return status after the call. The status can |
5521: | be FND_API.G_RET_STS_SUCCESS (success), |
5522: | fnd_api.g_ret_sts_error (error), |
5523: | fnd_api.g_ret_sts_unexp_error (unexpected |
5524: | error). |
5525: | x_msg_count Number of messages in message stack. |
5518: | x_party_number Party number for the party created for the |
5519: | relationship. |
5520: | x_return_status Return status after the call. The status can |
5521: | be FND_API.G_RET_STS_SUCCESS (success), |
5522: | fnd_api.g_ret_sts_error (error), |
5523: | fnd_api.g_ret_sts_unexp_error (unexpected |
5524: | error). |
5525: | x_msg_count Number of messages in message stack. |
5526: | x_msg_data Message text if x_msg_count is 1. |
5519: | relationship. |
5520: | x_return_status Return status after the call. The status can |
5521: | be FND_API.G_RET_STS_SUCCESS (success), |
5522: | fnd_api.g_ret_sts_error (error), |
5523: | fnd_api.g_ret_sts_unexp_error (unexpected |
5524: | error). |
5525: | x_msg_count Number of messages in message stack. |
5526: | x_msg_data Message text if x_msg_count is 1. |
5527: | MODIFICATION HISTORY |
5527: | MODIFICATION HISTORY |
5528: | 27-APR-2002 J. del Callar Bug 2238144: Created. |
5529: +=======================================================================*/
5530: PROCEDURE update_eft_contact_point (
5531: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
5532: p_contact_point_rec IN hz_contact_point_v2pub.contact_point_rec_type,
5533: p_eft_rec IN hz_contact_point_v2pub.eft_rec_type
5534: := hz_contact_point_v2pub.g_miss_eft_rec,
5535: p_object_version_number IN OUT NOCOPY NUMBER,
5552: p_msg_level=>fnd_log.level_procedure);
5553: END IF;
5554:
5555: -- initialize API return status to success.
5556: x_return_status := fnd_api.g_ret_sts_success;
5557:
5558: --
5559: -- execute business logic
5560: --
5564: p_eft_rec,
5565: x_return_status);
5566:
5567: -- raise an exception if the validation routine is unsuccessful
5568: IF x_return_status <> fnd_api.g_ret_sts_success THEN
5569: RAISE fnd_api.g_exc_error;
5570: END IF;
5571:
5572: -- update the EFT contact point
5565: x_return_status);
5566:
5567: -- raise an exception if the validation routine is unsuccessful
5568: IF x_return_status <> fnd_api.g_ret_sts_success THEN
5569: RAISE fnd_api.g_exc_error;
5570: END IF;
5571:
5572: -- update the EFT contact point
5573: hz_contact_point_v2pub.update_eft_contact_point(
5570: END IF;
5571:
5572: -- update the EFT contact point
5573: hz_contact_point_v2pub.update_eft_contact_point(
5574: p_init_msg_list => fnd_api.g_false,
5575: p_contact_point_rec => p_contact_point_rec,
5576: p_eft_rec => p_eft_rec,
5577: p_object_version_number => p_object_version_number,
5578: x_return_status => x_return_status,
5580: x_msg_data => x_msg_data
5581: );
5582:
5583: -- raise an exception if the banking group creation is unsuccessful
5584: IF x_return_status <> fnd_api.g_ret_sts_success THEN
5585: RAISE fnd_api.g_exc_error;
5586: END IF;
5587:
5588: -- Debug info.
5581: );
5582:
5583: -- raise an exception if the banking group creation is unsuccessful
5584: IF x_return_status <> fnd_api.g_ret_sts_success THEN
5585: RAISE fnd_api.g_exc_error;
5586: END IF;
5587:
5588: -- Debug info.
5589: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
5594:
5595: -- disable the debug procedure before exiting.
5596: --disable_debug;
5597: EXCEPTION
5598: WHEN fnd_api.g_exc_error THEN
5599: ROLLBACK TO update_eft_contact_point;
5600: x_return_status := fnd_api.g_ret_sts_error;
5601: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
5602: p_count => x_msg_count,
5596: --disable_debug;
5597: EXCEPTION
5598: WHEN fnd_api.g_exc_error THEN
5599: ROLLBACK TO update_eft_contact_point;
5600: x_return_status := fnd_api.g_ret_sts_error;
5601: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
5602: p_count => x_msg_count,
5603: p_data => x_msg_data);
5604:
5597: EXCEPTION
5598: WHEN fnd_api.g_exc_error THEN
5599: ROLLBACK TO update_eft_contact_point;
5600: x_return_status := fnd_api.g_ret_sts_error;
5601: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
5602: p_count => x_msg_count,
5603: p_data => x_msg_data);
5604:
5605: -- Debug info.
5617:
5618: -- Check if API is called in debug mode. If yes, disable debug.
5619: --disable_debug;
5620:
5621: WHEN fnd_api.g_exc_unexpected_error THEN
5622: ROLLBACK TO update_eft_contact_point;
5623: x_return_status := fnd_api.g_ret_sts_unexp_error;
5624: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
5625: p_count => x_msg_count,
5619: --disable_debug;
5620:
5621: WHEN fnd_api.g_exc_unexpected_error THEN
5622: ROLLBACK TO update_eft_contact_point;
5623: x_return_status := fnd_api.g_ret_sts_unexp_error;
5624: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
5625: p_count => x_msg_count,
5626: p_data => x_msg_data);
5627:
5620:
5621: WHEN fnd_api.g_exc_unexpected_error THEN
5622: ROLLBACK TO update_eft_contact_point;
5623: x_return_status := fnd_api.g_ret_sts_unexp_error;
5624: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
5625: p_count => x_msg_count,
5626: p_data => x_msg_data);
5627:
5628: -- Debug info.
5642: --disable_debug;
5643:
5644: WHEN OTHERS THEN
5645: ROLLBACK TO update_eft_contact_point;
5646: x_return_status := fnd_api.g_ret_sts_unexp_error;
5647: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
5648: fnd_message.set_token('ERROR',SQLERRM);
5649: fnd_msg_pub.add;
5650: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
5646: x_return_status := fnd_api.g_ret_sts_unexp_error;
5647: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
5648: fnd_message.set_token('ERROR',SQLERRM);
5649: fnd_msg_pub.add;
5650: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
5651: p_count => x_msg_count,
5652: p_data => x_msg_data);
5653:
5654: -- Debug info.
5680: | |
5681: | ARGUMENTS |
5682: | IN: |
5683: | p_init_msg_list Initialize message stack if it is set to |
5684: | FND_API.G_TRUE. Default is FND_API.G_FALSE. |
5685: | p_contact_point_rec Contact point record. |
5686: | p_web_rec WEB record. |
5687: | IN/OUT: |
5688: | OUT: |
5689: | x_contact_point_id ID of the contact point created. |
5690: | x_party_number Party number for the party created for the |
5691: | relationship. |
5692: | x_return_status Return status after the call. The status can |
5693: | be FND_API.G_RET_STS_SUCCESS (success), |
5694: | fnd_api.g_ret_sts_error (error), |
5695: | fnd_api.g_ret_sts_unexp_error (unexpected |
5696: | error). |
5697: | x_msg_count Number of messages in message stack. |
5690: | x_party_number Party number for the party created for the |
5691: | relationship. |
5692: | x_return_status Return status after the call. The status can |
5693: | be FND_API.G_RET_STS_SUCCESS (success), |
5694: | fnd_api.g_ret_sts_error (error), |
5695: | fnd_api.g_ret_sts_unexp_error (unexpected |
5696: | error). |
5697: | x_msg_count Number of messages in message stack. |
5698: | x_msg_data Message text if x_msg_count is 1. |
5691: | relationship. |
5692: | x_return_status Return status after the call. The status can |
5693: | be FND_API.G_RET_STS_SUCCESS (success), |
5694: | fnd_api.g_ret_sts_error (error), |
5695: | fnd_api.g_ret_sts_unexp_error (unexpected |
5696: | error). |
5697: | x_msg_count Number of messages in message stack. |
5698: | x_msg_data Message text if x_msg_count is 1. |
5699: | MODIFICATION HISTORY |
5699: | MODIFICATION HISTORY |
5700: | 27-APR-2002 J. del Callar Bug 2238144: Created. |
5701: +=======================================================================*/
5702: PROCEDURE create_web_contact_point (
5703: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
5704: p_contact_point_rec IN hz_contact_point_v2pub.contact_point_rec_type,
5705: p_web_rec IN hz_contact_point_v2pub.web_rec_type
5706: := hz_contact_point_v2pub.g_miss_web_rec,
5707: x_contact_point_id OUT NOCOPY NUMBER,
5724: p_msg_level=>fnd_log.level_procedure);
5725: END IF;
5726:
5727: -- initialize API return status to success.
5728: x_return_status := fnd_api.g_ret_sts_success;
5729:
5730: --
5731: -- execute business logic
5732: --
5736: p_web_rec,
5737: x_return_status);
5738:
5739: -- raise an exception if the validation routine is unsuccessful
5740: IF x_return_status <> fnd_api.g_ret_sts_success THEN
5741: RAISE fnd_api.g_exc_error;
5742: END IF;
5743:
5744: -- create the WEB contact point
5737: x_return_status);
5738:
5739: -- raise an exception if the validation routine is unsuccessful
5740: IF x_return_status <> fnd_api.g_ret_sts_success THEN
5741: RAISE fnd_api.g_exc_error;
5742: END IF;
5743:
5744: -- create the WEB contact point
5745: hz_contact_point_v2pub.create_web_contact_point(
5742: END IF;
5743:
5744: -- create the WEB contact point
5745: hz_contact_point_v2pub.create_web_contact_point(
5746: p_init_msg_list => fnd_api.g_false,
5747: p_contact_point_rec => p_contact_point_rec,
5748: p_web_rec => p_web_rec,
5749: x_contact_point_id => x_contact_point_id,
5750: x_return_status => x_return_status,
5752: x_msg_data => x_msg_data
5753: );
5754:
5755: -- raise an exception if the banking group creation is unsuccessful
5756: IF x_return_status <> fnd_api.g_ret_sts_success THEN
5757: RAISE fnd_api.g_exc_error;
5758: END IF;
5759:
5760: -- Debug info.
5753: );
5754:
5755: -- raise an exception if the banking group creation is unsuccessful
5756: IF x_return_status <> fnd_api.g_ret_sts_success THEN
5757: RAISE fnd_api.g_exc_error;
5758: END IF;
5759:
5760: -- Debug info.
5761: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
5766:
5767: -- disable the debug procedure before exiting.
5768: --disable_debug;
5769: EXCEPTION
5770: WHEN fnd_api.g_exc_error THEN
5771: ROLLBACK TO create_web_contact_point;
5772: x_return_status := fnd_api.g_ret_sts_error;
5773: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
5774: p_count => x_msg_count,
5768: --disable_debug;
5769: EXCEPTION
5770: WHEN fnd_api.g_exc_error THEN
5771: ROLLBACK TO create_web_contact_point;
5772: x_return_status := fnd_api.g_ret_sts_error;
5773: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
5774: p_count => x_msg_count,
5775: p_data => x_msg_data);
5776:
5769: EXCEPTION
5770: WHEN fnd_api.g_exc_error THEN
5771: ROLLBACK TO create_web_contact_point;
5772: x_return_status := fnd_api.g_ret_sts_error;
5773: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
5774: p_count => x_msg_count,
5775: p_data => x_msg_data);
5776:
5777: -- Debug info.
5789:
5790: -- Check if API is called in debug mode. If yes, disable debug.
5791: --disable_debug;
5792:
5793: WHEN fnd_api.g_exc_unexpected_error THEN
5794: ROLLBACK TO create_web_contact_point;
5795: x_return_status := fnd_api.g_ret_sts_unexp_error;
5796: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
5797: p_count => x_msg_count,
5791: --disable_debug;
5792:
5793: WHEN fnd_api.g_exc_unexpected_error THEN
5794: ROLLBACK TO create_web_contact_point;
5795: x_return_status := fnd_api.g_ret_sts_unexp_error;
5796: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
5797: p_count => x_msg_count,
5798: p_data => x_msg_data);
5799:
5792:
5793: WHEN fnd_api.g_exc_unexpected_error THEN
5794: ROLLBACK TO create_web_contact_point;
5795: x_return_status := fnd_api.g_ret_sts_unexp_error;
5796: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
5797: p_count => x_msg_count,
5798: p_data => x_msg_data);
5799:
5800: -- Debug info.
5814: --disable_debug;
5815:
5816: WHEN OTHERS THEN
5817: ROLLBACK TO create_web_contact_point;
5818: x_return_status := fnd_api.g_ret_sts_unexp_error;
5819: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
5820: fnd_message.set_token('ERROR',SQLERRM);
5821: fnd_msg_pub.add;
5822: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
5818: x_return_status := fnd_api.g_ret_sts_unexp_error;
5819: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
5820: fnd_message.set_token('ERROR',SQLERRM);
5821: fnd_msg_pub.add;
5822: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
5823: p_count => x_msg_count,
5824: p_data => x_msg_data);
5825:
5826: -- Debug info.
5852: | |
5853: | ARGUMENTS |
5854: | IN: |
5855: | p_init_msg_list Initialize message stack if it is set to |
5856: | FND_API.G_TRUE. Default is FND_API.G_FALSE. |
5857: | p_contact_point_rec Contact point record. |
5858: | p_web_rec WEB record. |
5859: | IN/OUT: |
5860: | p_object_version_number Used to lock the record being updated. |
5861: | OUT: |
5862: | x_party_number Party number for the party created for the |
5863: | relationship. |
5864: | x_return_status Return status after the call. The status can |
5865: | be FND_API.G_RET_STS_SUCCESS (success), |
5866: | fnd_api.g_ret_sts_error (error), |
5867: | fnd_api.g_ret_sts_unexp_error (unexpected |
5868: | error). |
5869: | x_msg_count Number of messages in message stack. |
5862: | x_party_number Party number for the party created for the |
5863: | relationship. |
5864: | x_return_status Return status after the call. The status can |
5865: | be FND_API.G_RET_STS_SUCCESS (success), |
5866: | fnd_api.g_ret_sts_error (error), |
5867: | fnd_api.g_ret_sts_unexp_error (unexpected |
5868: | error). |
5869: | x_msg_count Number of messages in message stack. |
5870: | x_msg_data Message text if x_msg_count is 1. |
5863: | relationship. |
5864: | x_return_status Return status after the call. The status can |
5865: | be FND_API.G_RET_STS_SUCCESS (success), |
5866: | fnd_api.g_ret_sts_error (error), |
5867: | fnd_api.g_ret_sts_unexp_error (unexpected |
5868: | error). |
5869: | x_msg_count Number of messages in message stack. |
5870: | x_msg_data Message text if x_msg_count is 1. |
5871: | MODIFICATION HISTORY |
5871: | MODIFICATION HISTORY |
5872: | 27-APR-2002 J. del Callar Bug 2238144: Created. |
5873: +=======================================================================*/
5874: PROCEDURE update_web_contact_point (
5875: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
5876: p_contact_point_rec IN hz_contact_point_v2pub.contact_point_rec_type,
5877: p_web_rec IN hz_contact_point_v2pub.web_rec_type
5878: := hz_contact_point_v2pub.g_miss_web_rec,
5879: p_object_version_number IN OUT NOCOPY NUMBER,
5896: p_msg_level=>fnd_log.level_procedure);
5897: END IF;
5898:
5899: -- initialize API return status to success.
5900: x_return_status := fnd_api.g_ret_sts_success;
5901:
5902: --
5903: -- execute business logic
5904: --
5908: p_web_rec,
5909: x_return_status);
5910:
5911: -- raise an exception if the validation routine is unsuccessful
5912: IF x_return_status <> fnd_api.g_ret_sts_success THEN
5913: RAISE fnd_api.g_exc_error;
5914: END IF;
5915:
5916: -- update the WEB contact point
5909: x_return_status);
5910:
5911: -- raise an exception if the validation routine is unsuccessful
5912: IF x_return_status <> fnd_api.g_ret_sts_success THEN
5913: RAISE fnd_api.g_exc_error;
5914: END IF;
5915:
5916: -- update the WEB contact point
5917: hz_contact_point_v2pub.update_web_contact_point(
5914: END IF;
5915:
5916: -- update the WEB contact point
5917: hz_contact_point_v2pub.update_web_contact_point(
5918: p_init_msg_list => fnd_api.g_false,
5919: p_contact_point_rec => p_contact_point_rec,
5920: p_web_rec => p_web_rec,
5921: p_object_version_number => p_object_version_number,
5922: x_return_status => x_return_status,
5924: x_msg_data => x_msg_data
5925: );
5926:
5927: -- raise an exception if the banking group creation is unsuccessful
5928: IF x_return_status <> fnd_api.g_ret_sts_success THEN
5929: RAISE fnd_api.g_exc_error;
5930: END IF;
5931:
5932: -- Debug info.
5925: );
5926:
5927: -- raise an exception if the banking group creation is unsuccessful
5928: IF x_return_status <> fnd_api.g_ret_sts_success THEN
5929: RAISE fnd_api.g_exc_error;
5930: END IF;
5931:
5932: -- Debug info.
5933: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
5938:
5939: -- disable the debug procedure before exiting.
5940: --disable_debug;
5941: EXCEPTION
5942: WHEN fnd_api.g_exc_error THEN
5943: ROLLBACK TO update_web_contact_point;
5944: x_return_status := fnd_api.g_ret_sts_error;
5945: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
5946: p_count => x_msg_count,
5940: --disable_debug;
5941: EXCEPTION
5942: WHEN fnd_api.g_exc_error THEN
5943: ROLLBACK TO update_web_contact_point;
5944: x_return_status := fnd_api.g_ret_sts_error;
5945: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
5946: p_count => x_msg_count,
5947: p_data => x_msg_data);
5948:
5941: EXCEPTION
5942: WHEN fnd_api.g_exc_error THEN
5943: ROLLBACK TO update_web_contact_point;
5944: x_return_status := fnd_api.g_ret_sts_error;
5945: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
5946: p_count => x_msg_count,
5947: p_data => x_msg_data);
5948:
5949: -- Debug info.
5961:
5962: -- Check if API is called in debug mode. If yes, disable debug.
5963: --disable_debug;
5964:
5965: WHEN fnd_api.g_exc_unexpected_error THEN
5966: ROLLBACK TO update_web_contact_point;
5967: x_return_status := fnd_api.g_ret_sts_unexp_error;
5968: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
5969: p_count => x_msg_count,
5963: --disable_debug;
5964:
5965: WHEN fnd_api.g_exc_unexpected_error THEN
5966: ROLLBACK TO update_web_contact_point;
5967: x_return_status := fnd_api.g_ret_sts_unexp_error;
5968: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
5969: p_count => x_msg_count,
5970: p_data => x_msg_data);
5971:
5964:
5965: WHEN fnd_api.g_exc_unexpected_error THEN
5966: ROLLBACK TO update_web_contact_point;
5967: x_return_status := fnd_api.g_ret_sts_unexp_error;
5968: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
5969: p_count => x_msg_count,
5970: p_data => x_msg_data);
5971:
5972: -- Debug info.
5986: --disable_debug;
5987:
5988: WHEN OTHERS THEN
5989: ROLLBACK TO update_web_contact_point;
5990: x_return_status := fnd_api.g_ret_sts_unexp_error;
5991: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
5992: fnd_message.set_token('ERROR',SQLERRM);
5993: fnd_msg_pub.add;
5994: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
5990: x_return_status := fnd_api.g_ret_sts_unexp_error;
5991: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
5992: fnd_message.set_token('ERROR',SQLERRM);
5993: fnd_msg_pub.add;
5994: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
5995: p_count => x_msg_count,
5996: p_data => x_msg_data);
5997:
5998: -- Debug info.
6024: | |
6025: | ARGUMENTS |
6026: | IN: |
6027: | p_init_msg_list Initialize message stack if it is set to |
6028: | FND_API.G_TRUE. Default is FND_API.G_FALSE. |
6029: | p_contact_point_rec Contact point record. |
6030: | p_phone_rec PHONE record. |
6031: | IN/OUT: |
6032: | OUT: |
6033: | x_contact_point_id ID of the contact point created. |
6034: | x_party_number Party number for the party created for the |
6035: | relationship. |
6036: | x_return_status Return status after the call. The status can |
6037: | be FND_API.G_RET_STS_SUCCESS (success), |
6038: | fnd_api.g_ret_sts_error (error), |
6039: | fnd_api.g_ret_sts_unexp_error (unexpected |
6040: | error). |
6041: | x_msg_count Number of messages in message stack. |
6034: | x_party_number Party number for the party created for the |
6035: | relationship. |
6036: | x_return_status Return status after the call. The status can |
6037: | be FND_API.G_RET_STS_SUCCESS (success), |
6038: | fnd_api.g_ret_sts_error (error), |
6039: | fnd_api.g_ret_sts_unexp_error (unexpected |
6040: | error). |
6041: | x_msg_count Number of messages in message stack. |
6042: | x_msg_data Message text if x_msg_count is 1. |
6035: | relationship. |
6036: | x_return_status Return status after the call. The status can |
6037: | be FND_API.G_RET_STS_SUCCESS (success), |
6038: | fnd_api.g_ret_sts_error (error), |
6039: | fnd_api.g_ret_sts_unexp_error (unexpected |
6040: | error). |
6041: | x_msg_count Number of messages in message stack. |
6042: | x_msg_data Message text if x_msg_count is 1. |
6043: | MODIFICATION HISTORY |
6043: | MODIFICATION HISTORY |
6044: | 27-APR-2002 J. del Callar Bug 2238144: Created. |
6045: +=======================================================================*/
6046: PROCEDURE create_phone_contact_point (
6047: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
6048: p_contact_point_rec IN hz_contact_point_v2pub.contact_point_rec_type,
6049: p_phone_rec IN hz_contact_point_v2pub.phone_rec_type
6050: := hz_contact_point_v2pub.g_miss_phone_rec,
6051: x_contact_point_id OUT NOCOPY NUMBER,
6068: p_msg_level=>fnd_log.level_procedure);
6069: END IF;
6070:
6071: -- initialize API return status to success.
6072: x_return_status := fnd_api.g_ret_sts_success;
6073:
6074: --
6075: -- execute business logic
6076: --
6080: p_phone_rec,
6081: x_return_status);
6082:
6083: -- raise an exception if the validation routine is unsuccessful
6084: IF x_return_status <> fnd_api.g_ret_sts_success THEN
6085: RAISE fnd_api.g_exc_error;
6086: END IF;
6087:
6088: -- create the Phone contact point
6081: x_return_status);
6082:
6083: -- raise an exception if the validation routine is unsuccessful
6084: IF x_return_status <> fnd_api.g_ret_sts_success THEN
6085: RAISE fnd_api.g_exc_error;
6086: END IF;
6087:
6088: -- create the Phone contact point
6089: hz_contact_point_v2pub.create_phone_contact_point(
6086: END IF;
6087:
6088: -- create the Phone contact point
6089: hz_contact_point_v2pub.create_phone_contact_point(
6090: p_init_msg_list => fnd_api.g_false,
6091: p_contact_point_rec => p_contact_point_rec,
6092: p_phone_rec => p_phone_rec,
6093: x_contact_point_id => x_contact_point_id,
6094: x_return_status => x_return_status,
6096: x_msg_data => x_msg_data
6097: );
6098:
6099: -- raise an exception if the banking group creation is unsuccessful
6100: IF x_return_status <> fnd_api.g_ret_sts_success THEN
6101: RAISE fnd_api.g_exc_error;
6102: END IF;
6103:
6104: -- Debug info.
6097: );
6098:
6099: -- raise an exception if the banking group creation is unsuccessful
6100: IF x_return_status <> fnd_api.g_ret_sts_success THEN
6101: RAISE fnd_api.g_exc_error;
6102: END IF;
6103:
6104: -- Debug info.
6105: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
6110:
6111: -- disable the debug procedure before exiting.
6112: --disable_debug;
6113: EXCEPTION
6114: WHEN fnd_api.g_exc_error THEN
6115: ROLLBACK TO create_phone_contact_point;
6116: x_return_status := fnd_api.g_ret_sts_error;
6117: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
6118: p_count => x_msg_count,
6112: --disable_debug;
6113: EXCEPTION
6114: WHEN fnd_api.g_exc_error THEN
6115: ROLLBACK TO create_phone_contact_point;
6116: x_return_status := fnd_api.g_ret_sts_error;
6117: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
6118: p_count => x_msg_count,
6119: p_data => x_msg_data);
6120:
6113: EXCEPTION
6114: WHEN fnd_api.g_exc_error THEN
6115: ROLLBACK TO create_phone_contact_point;
6116: x_return_status := fnd_api.g_ret_sts_error;
6117: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
6118: p_count => x_msg_count,
6119: p_data => x_msg_data);
6120:
6121: -- Debug info.
6133:
6134: -- Check if API is called in debug mode. If yes, disable debug.
6135: --disable_debug;
6136:
6137: WHEN fnd_api.g_exc_unexpected_error THEN
6138: ROLLBACK TO create_phone_contact_point;
6139: x_return_status := fnd_api.g_ret_sts_unexp_error;
6140: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
6141: p_count => x_msg_count,
6135: --disable_debug;
6136:
6137: WHEN fnd_api.g_exc_unexpected_error THEN
6138: ROLLBACK TO create_phone_contact_point;
6139: x_return_status := fnd_api.g_ret_sts_unexp_error;
6140: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
6141: p_count => x_msg_count,
6142: p_data => x_msg_data);
6143:
6136:
6137: WHEN fnd_api.g_exc_unexpected_error THEN
6138: ROLLBACK TO create_phone_contact_point;
6139: x_return_status := fnd_api.g_ret_sts_unexp_error;
6140: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
6141: p_count => x_msg_count,
6142: p_data => x_msg_data);
6143:
6144: -- Debug info.
6158: --disable_debug;
6159:
6160: WHEN OTHERS THEN
6161: ROLLBACK TO create_phone_contact_point;
6162: x_return_status := fnd_api.g_ret_sts_unexp_error;
6163: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
6164: fnd_message.set_token('ERROR',SQLERRM);
6165: fnd_msg_pub.add;
6166: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
6162: x_return_status := fnd_api.g_ret_sts_unexp_error;
6163: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
6164: fnd_message.set_token('ERROR',SQLERRM);
6165: fnd_msg_pub.add;
6166: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
6167: p_count => x_msg_count,
6168: p_data => x_msg_data);
6169:
6170: -- Debug info.
6196: | |
6197: | ARGUMENTS |
6198: | IN: |
6199: | p_init_msg_list Initialize message stack if it is set to |
6200: | FND_API.G_TRUE. Default is FND_API.G_FALSE. |
6201: | p_contact_point_rec Contact point record. |
6202: | p_phone_rec PHONE record. |
6203: | IN/OUT: |
6204: | p_object_version_number Used to lock the record being updated. |
6205: | OUT: |
6206: | x_party_number Party number for the party created for the |
6207: | relationship. |
6208: | x_return_status Return status after the call. The status can |
6209: | be FND_API.G_RET_STS_SUCCESS (success), |
6210: | fnd_api.g_ret_sts_error (error), |
6211: | fnd_api.g_ret_sts_unexp_error (unexpected |
6212: | error). |
6213: | x_msg_count Number of messages in message stack. |
6206: | x_party_number Party number for the party created for the |
6207: | relationship. |
6208: | x_return_status Return status after the call. The status can |
6209: | be FND_API.G_RET_STS_SUCCESS (success), |
6210: | fnd_api.g_ret_sts_error (error), |
6211: | fnd_api.g_ret_sts_unexp_error (unexpected |
6212: | error). |
6213: | x_msg_count Number of messages in message stack. |
6214: | x_msg_data Message text if x_msg_count is 1. |
6207: | relationship. |
6208: | x_return_status Return status after the call. The status can |
6209: | be FND_API.G_RET_STS_SUCCESS (success), |
6210: | fnd_api.g_ret_sts_error (error), |
6211: | fnd_api.g_ret_sts_unexp_error (unexpected |
6212: | error). |
6213: | x_msg_count Number of messages in message stack. |
6214: | x_msg_data Message text if x_msg_count is 1. |
6215: | MODIFICATION HISTORY |
6215: | MODIFICATION HISTORY |
6216: | 27-APR-2002 J. del Callar Bug 2238144: Created. |
6217: +=======================================================================*/
6218: PROCEDURE update_phone_contact_point (
6219: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
6220: p_contact_point_rec IN hz_contact_point_v2pub.contact_point_rec_type,
6221: p_phone_rec IN hz_contact_point_v2pub.phone_rec_type
6222: := hz_contact_point_v2pub.g_miss_phone_rec,
6223: p_object_version_number IN OUT NOCOPY NUMBER,
6240: p_msg_level=>fnd_log.level_procedure);
6241: END IF;
6242:
6243: -- initialize API return status to success.
6244: x_return_status := fnd_api.g_ret_sts_success;
6245:
6246: --
6247: -- execute business logic
6248: --
6252: p_phone_rec,
6253: x_return_status);
6254:
6255: -- raise an exception if the validation routine is unsuccessful
6256: IF x_return_status <> fnd_api.g_ret_sts_success THEN
6257: RAISE fnd_api.g_exc_error;
6258: END IF;
6259:
6260: -- update the Phone contact point
6253: x_return_status);
6254:
6255: -- raise an exception if the validation routine is unsuccessful
6256: IF x_return_status <> fnd_api.g_ret_sts_success THEN
6257: RAISE fnd_api.g_exc_error;
6258: END IF;
6259:
6260: -- update the Phone contact point
6261: hz_contact_point_v2pub.update_phone_contact_point(
6258: END IF;
6259:
6260: -- update the Phone contact point
6261: hz_contact_point_v2pub.update_phone_contact_point(
6262: p_init_msg_list => fnd_api.g_false,
6263: p_contact_point_rec => p_contact_point_rec,
6264: p_phone_rec => p_phone_rec,
6265: p_object_version_number => p_object_version_number,
6266: x_return_status => x_return_status,
6268: x_msg_data => x_msg_data
6269: );
6270:
6271: -- raise an exception if the banking group creation is unsuccessful
6272: IF x_return_status <> fnd_api.g_ret_sts_success THEN
6273: RAISE fnd_api.g_exc_error;
6274: END IF;
6275:
6276: -- Debug info.
6269: );
6270:
6271: -- raise an exception if the banking group creation is unsuccessful
6272: IF x_return_status <> fnd_api.g_ret_sts_success THEN
6273: RAISE fnd_api.g_exc_error;
6274: END IF;
6275:
6276: -- Debug info.
6277: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
6282:
6283: -- disable the debug procedure before exiting.
6284: --disable_debug;
6285: EXCEPTION
6286: WHEN fnd_api.g_exc_error THEN
6287: ROLLBACK TO update_phone_contact_point;
6288: x_return_status := fnd_api.g_ret_sts_error;
6289: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
6290: p_count => x_msg_count,
6284: --disable_debug;
6285: EXCEPTION
6286: WHEN fnd_api.g_exc_error THEN
6287: ROLLBACK TO update_phone_contact_point;
6288: x_return_status := fnd_api.g_ret_sts_error;
6289: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
6290: p_count => x_msg_count,
6291: p_data => x_msg_data);
6292:
6285: EXCEPTION
6286: WHEN fnd_api.g_exc_error THEN
6287: ROLLBACK TO update_phone_contact_point;
6288: x_return_status := fnd_api.g_ret_sts_error;
6289: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
6290: p_count => x_msg_count,
6291: p_data => x_msg_data);
6292:
6293: -- Debug info.
6305:
6306: -- Check if API is called in debug mode. If yes, disable debug.
6307: --disable_debug;
6308:
6309: WHEN fnd_api.g_exc_unexpected_error THEN
6310: ROLLBACK TO update_phone_contact_point;
6311: x_return_status := fnd_api.g_ret_sts_unexp_error;
6312: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
6313: p_count => x_msg_count,
6307: --disable_debug;
6308:
6309: WHEN fnd_api.g_exc_unexpected_error THEN
6310: ROLLBACK TO update_phone_contact_point;
6311: x_return_status := fnd_api.g_ret_sts_unexp_error;
6312: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
6313: p_count => x_msg_count,
6314: p_data => x_msg_data);
6315:
6308:
6309: WHEN fnd_api.g_exc_unexpected_error THEN
6310: ROLLBACK TO update_phone_contact_point;
6311: x_return_status := fnd_api.g_ret_sts_unexp_error;
6312: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
6313: p_count => x_msg_count,
6314: p_data => x_msg_data);
6315:
6316: -- Debug info.
6330: --disable_debug;
6331:
6332: WHEN OTHERS THEN
6333: ROLLBACK TO update_phone_contact_point;
6334: x_return_status := fnd_api.g_ret_sts_unexp_error;
6335: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
6336: fnd_message.set_token('ERROR',SQLERRM);
6337: fnd_msg_pub.add;
6338: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
6334: x_return_status := fnd_api.g_ret_sts_unexp_error;
6335: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
6336: fnd_message.set_token('ERROR',SQLERRM);
6337: fnd_msg_pub.add;
6338: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
6339: p_count => x_msg_count,
6340: p_data => x_msg_data);
6341:
6342: -- Debug info.
6368: | |
6369: | ARGUMENTS |
6370: | IN: |
6371: | p_init_msg_list Initialize message stack if it is set to |
6372: | FND_API.G_TRUE. Default is FND_API.G_FALSE. |
6373: | p_contact_point_rec Contact point record. |
6374: | p_email_rec EMAIL record. |
6375: | IN/OUT: |
6376: | OUT: |
6377: | x_contact_point_id ID of the contact point created. |
6378: | x_party_number Party number for the party created for the |
6379: | relationship. |
6380: | x_return_status Return status after the call. The status can |
6381: | be FND_API.G_RET_STS_SUCCESS (success), |
6382: | fnd_api.g_ret_sts_error (error), |
6383: | fnd_api.g_ret_sts_unexp_error (unexpected |
6384: | error). |
6385: | x_msg_count Number of messages in message stack. |
6378: | x_party_number Party number for the party created for the |
6379: | relationship. |
6380: | x_return_status Return status after the call. The status can |
6381: | be FND_API.G_RET_STS_SUCCESS (success), |
6382: | fnd_api.g_ret_sts_error (error), |
6383: | fnd_api.g_ret_sts_unexp_error (unexpected |
6384: | error). |
6385: | x_msg_count Number of messages in message stack. |
6386: | x_msg_data Message text if x_msg_count is 1. |
6379: | relationship. |
6380: | x_return_status Return status after the call. The status can |
6381: | be FND_API.G_RET_STS_SUCCESS (success), |
6382: | fnd_api.g_ret_sts_error (error), |
6383: | fnd_api.g_ret_sts_unexp_error (unexpected |
6384: | error). |
6385: | x_msg_count Number of messages in message stack. |
6386: | x_msg_data Message text if x_msg_count is 1. |
6387: | MODIFICATION HISTORY |
6387: | MODIFICATION HISTORY |
6388: | 27-APR-2002 J. del Callar Bug 2238144: Created. |
6389: +=======================================================================*/
6390: PROCEDURE create_email_contact_point (
6391: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
6392: p_contact_point_rec IN hz_contact_point_v2pub.contact_point_rec_type,
6393: p_email_rec IN hz_contact_point_v2pub.email_rec_type
6394: := hz_contact_point_v2pub.g_miss_email_rec,
6395: x_contact_point_id OUT NOCOPY NUMBER,
6412: p_msg_level=>fnd_log.level_procedure);
6413: END IF;
6414:
6415: -- initialize API return status to success.
6416: x_return_status := fnd_api.g_ret_sts_success;
6417:
6418: --
6419: -- execute business logic
6420: --
6424: p_email_rec,
6425: x_return_status);
6426:
6427: -- raise an exception if the validation routine is unsuccessful
6428: IF x_return_status <> fnd_api.g_ret_sts_success THEN
6429: RAISE fnd_api.g_exc_error;
6430: END IF;
6431:
6432: -- create the Email contact point
6425: x_return_status);
6426:
6427: -- raise an exception if the validation routine is unsuccessful
6428: IF x_return_status <> fnd_api.g_ret_sts_success THEN
6429: RAISE fnd_api.g_exc_error;
6430: END IF;
6431:
6432: -- create the Email contact point
6433: hz_contact_point_v2pub.create_email_contact_point(
6430: END IF;
6431:
6432: -- create the Email contact point
6433: hz_contact_point_v2pub.create_email_contact_point(
6434: p_init_msg_list => fnd_api.g_false,
6435: p_contact_point_rec => p_contact_point_rec,
6436: p_email_rec => p_email_rec,
6437: x_contact_point_id => x_contact_point_id,
6438: x_return_status => x_return_status,
6440: x_msg_data => x_msg_data
6441: );
6442:
6443: -- raise an exception if the banking group creation is unsuccessful
6444: IF x_return_status <> fnd_api.g_ret_sts_success THEN
6445: RAISE fnd_api.g_exc_error;
6446: END IF;
6447:
6448: -- Debug info.
6441: );
6442:
6443: -- raise an exception if the banking group creation is unsuccessful
6444: IF x_return_status <> fnd_api.g_ret_sts_success THEN
6445: RAISE fnd_api.g_exc_error;
6446: END IF;
6447:
6448: -- Debug info.
6449: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
6454:
6455: -- disable the debug procedure before exiting.
6456: --disable_debug;
6457: EXCEPTION
6458: WHEN fnd_api.g_exc_error THEN
6459: ROLLBACK TO create_email_contact_point;
6460: x_return_status := fnd_api.g_ret_sts_error;
6461: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
6462: p_count => x_msg_count,
6456: --disable_debug;
6457: EXCEPTION
6458: WHEN fnd_api.g_exc_error THEN
6459: ROLLBACK TO create_email_contact_point;
6460: x_return_status := fnd_api.g_ret_sts_error;
6461: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
6462: p_count => x_msg_count,
6463: p_data => x_msg_data);
6464:
6457: EXCEPTION
6458: WHEN fnd_api.g_exc_error THEN
6459: ROLLBACK TO create_email_contact_point;
6460: x_return_status := fnd_api.g_ret_sts_error;
6461: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
6462: p_count => x_msg_count,
6463: p_data => x_msg_data);
6464:
6465: -- Debug info.
6477:
6478: -- Check if API is called in debug mode. If yes, disable debug.
6479: --disable_debug;
6480:
6481: WHEN fnd_api.g_exc_unexpected_error THEN
6482: ROLLBACK TO create_email_contact_point;
6483: x_return_status := fnd_api.g_ret_sts_unexp_error;
6484: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
6485: p_count => x_msg_count,
6479: --disable_debug;
6480:
6481: WHEN fnd_api.g_exc_unexpected_error THEN
6482: ROLLBACK TO create_email_contact_point;
6483: x_return_status := fnd_api.g_ret_sts_unexp_error;
6484: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
6485: p_count => x_msg_count,
6486: p_data => x_msg_data);
6487:
6480:
6481: WHEN fnd_api.g_exc_unexpected_error THEN
6482: ROLLBACK TO create_email_contact_point;
6483: x_return_status := fnd_api.g_ret_sts_unexp_error;
6484: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
6485: p_count => x_msg_count,
6486: p_data => x_msg_data);
6487:
6488: -- Debug info.
6502: --disable_debug;
6503:
6504: WHEN OTHERS THEN
6505: ROLLBACK TO create_email_contact_point;
6506: x_return_status := fnd_api.g_ret_sts_unexp_error;
6507: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
6508: fnd_message.set_token('ERROR',SQLERRM);
6509: fnd_msg_pub.add;
6510: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
6506: x_return_status := fnd_api.g_ret_sts_unexp_error;
6507: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
6508: fnd_message.set_token('ERROR',SQLERRM);
6509: fnd_msg_pub.add;
6510: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
6511: p_count => x_msg_count,
6512: p_data => x_msg_data);
6513:
6514: -- Debug info.
6540: | |
6541: | ARGUMENTS |
6542: | IN: |
6543: | p_init_msg_list Initialize message stack if it is set to |
6544: | FND_API.G_TRUE. Default is FND_API.G_FALSE. |
6545: | p_contact_point_rec Contact point record. |
6546: | p_email_rec EMAIL record. |
6547: | IN/OUT: |
6548: | p_object_version_number Used to lock the record being updated. |
6549: | OUT: |
6550: | x_party_number Party number for the party created for the |
6551: | relationship. |
6552: | x_return_status Return status after the call. The status can |
6553: | be FND_API.G_RET_STS_SUCCESS (success), |
6554: | fnd_api.g_ret_sts_error (error), |
6555: | fnd_api.g_ret_sts_unexp_error (unexpected |
6556: | error). |
6557: | x_msg_count Number of messages in message stack. |
6550: | x_party_number Party number for the party created for the |
6551: | relationship. |
6552: | x_return_status Return status after the call. The status can |
6553: | be FND_API.G_RET_STS_SUCCESS (success), |
6554: | fnd_api.g_ret_sts_error (error), |
6555: | fnd_api.g_ret_sts_unexp_error (unexpected |
6556: | error). |
6557: | x_msg_count Number of messages in message stack. |
6558: | x_msg_data Message text if x_msg_count is 1. |
6551: | relationship. |
6552: | x_return_status Return status after the call. The status can |
6553: | be FND_API.G_RET_STS_SUCCESS (success), |
6554: | fnd_api.g_ret_sts_error (error), |
6555: | fnd_api.g_ret_sts_unexp_error (unexpected |
6556: | error). |
6557: | x_msg_count Number of messages in message stack. |
6558: | x_msg_data Message text if x_msg_count is 1. |
6559: | MODIFICATION HISTORY |
6559: | MODIFICATION HISTORY |
6560: | 27-APR-2002 J. del Callar Bug 2238144: Created. |
6561: +=======================================================================*/
6562: PROCEDURE update_email_contact_point (
6563: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
6564: p_contact_point_rec IN hz_contact_point_v2pub.contact_point_rec_type,
6565: p_email_rec IN hz_contact_point_v2pub.email_rec_type
6566: := hz_contact_point_v2pub.g_miss_email_rec,
6567: p_object_version_number IN OUT NOCOPY NUMBER,
6584: p_msg_level=>fnd_log.level_procedure);
6585: END IF;
6586:
6587: -- initialize API return status to success.
6588: x_return_status := fnd_api.g_ret_sts_success;
6589:
6590: --
6591: -- execute business logic
6592: --
6596: p_email_rec,
6597: x_return_status);
6598:
6599: -- raise an exception if the validation routine is unsuccessful
6600: IF x_return_status <> fnd_api.g_ret_sts_success THEN
6601: RAISE fnd_api.g_exc_error;
6602: END IF;
6603:
6604: -- update the Email contact point
6597: x_return_status);
6598:
6599: -- raise an exception if the validation routine is unsuccessful
6600: IF x_return_status <> fnd_api.g_ret_sts_success THEN
6601: RAISE fnd_api.g_exc_error;
6602: END IF;
6603:
6604: -- update the Email contact point
6605: hz_contact_point_v2pub.update_email_contact_point(
6602: END IF;
6603:
6604: -- update the Email contact point
6605: hz_contact_point_v2pub.update_email_contact_point(
6606: p_init_msg_list => fnd_api.g_false,
6607: p_contact_point_rec => p_contact_point_rec,
6608: p_email_rec => p_email_rec,
6609: p_object_version_number => p_object_version_number,
6610: x_return_status => x_return_status,
6612: x_msg_data => x_msg_data
6613: );
6614:
6615: -- raise an exception if the banking group creation is unsuccessful
6616: IF x_return_status <> fnd_api.g_ret_sts_success THEN
6617: RAISE fnd_api.g_exc_error;
6618: END IF;
6619:
6620: -- Debug info.
6613: );
6614:
6615: -- raise an exception if the banking group creation is unsuccessful
6616: IF x_return_status <> fnd_api.g_ret_sts_success THEN
6617: RAISE fnd_api.g_exc_error;
6618: END IF;
6619:
6620: -- Debug info.
6621: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
6626:
6627: -- disable the debug procedure before exiting.
6628: --disable_debug;
6629: EXCEPTION
6630: WHEN fnd_api.g_exc_error THEN
6631: ROLLBACK TO update_email_contact_point;
6632: x_return_status := fnd_api.g_ret_sts_error;
6633: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
6634: p_count => x_msg_count,
6628: --disable_debug;
6629: EXCEPTION
6630: WHEN fnd_api.g_exc_error THEN
6631: ROLLBACK TO update_email_contact_point;
6632: x_return_status := fnd_api.g_ret_sts_error;
6633: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
6634: p_count => x_msg_count,
6635: p_data => x_msg_data);
6636:
6629: EXCEPTION
6630: WHEN fnd_api.g_exc_error THEN
6631: ROLLBACK TO update_email_contact_point;
6632: x_return_status := fnd_api.g_ret_sts_error;
6633: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
6634: p_count => x_msg_count,
6635: p_data => x_msg_data);
6636:
6637: -- Debug info.
6649:
6650: -- Check if API is called in debug mode. If yes, disable debug.
6651: --disable_debug;
6652:
6653: WHEN fnd_api.g_exc_unexpected_error THEN
6654: ROLLBACK TO update_email_contact_point;
6655: x_return_status := fnd_api.g_ret_sts_unexp_error;
6656: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
6657: p_count => x_msg_count,
6651: --disable_debug;
6652:
6653: WHEN fnd_api.g_exc_unexpected_error THEN
6654: ROLLBACK TO update_email_contact_point;
6655: x_return_status := fnd_api.g_ret_sts_unexp_error;
6656: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
6657: p_count => x_msg_count,
6658: p_data => x_msg_data);
6659:
6652:
6653: WHEN fnd_api.g_exc_unexpected_error THEN
6654: ROLLBACK TO update_email_contact_point;
6655: x_return_status := fnd_api.g_ret_sts_unexp_error;
6656: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
6657: p_count => x_msg_count,
6658: p_data => x_msg_data);
6659:
6660: -- Debug info.
6674: --disable_debug;
6675:
6676: WHEN OTHERS THEN
6677: ROLLBACK TO update_email_contact_point;
6678: x_return_status := fnd_api.g_ret_sts_unexp_error;
6679: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
6680: fnd_message.set_token('ERROR',SQLERRM);
6681: fnd_msg_pub.add;
6682: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
6678: x_return_status := fnd_api.g_ret_sts_unexp_error;
6679: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
6680: fnd_message.set_token('ERROR',SQLERRM);
6681: fnd_msg_pub.add;
6682: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
6683: p_count => x_msg_count,
6684: p_data => x_msg_data);
6685:
6686: -- Debug info.
6712: | |
6713: | ARGUMENTS |
6714: | IN: |
6715: | p_init_msg_list Initialize message stack if it is set to |
6716: | FND_API.G_TRUE. Default is FND_API.G_FALSE. |
6717: | p_contact_point_rec Contact point record. |
6718: | p_telex_rec TELEX record. |
6719: | IN/OUT: |
6720: | OUT: |
6721: | x_contact_point_id ID of the contact point created. |
6722: | x_party_number Party number for the party created for the |
6723: | relationship. |
6724: | x_return_status Return status after the call. The status can |
6725: | be FND_API.G_RET_STS_SUCCESS (success), |
6726: | fnd_api.g_ret_sts_error (error), |
6727: | fnd_api.g_ret_sts_unexp_error (unexpected |
6728: | error). |
6729: | x_msg_count Number of messages in message stack. |
6722: | x_party_number Party number for the party created for the |
6723: | relationship. |
6724: | x_return_status Return status after the call. The status can |
6725: | be FND_API.G_RET_STS_SUCCESS (success), |
6726: | fnd_api.g_ret_sts_error (error), |
6727: | fnd_api.g_ret_sts_unexp_error (unexpected |
6728: | error). |
6729: | x_msg_count Number of messages in message stack. |
6730: | x_msg_data Message text if x_msg_count is 1. |
6723: | relationship. |
6724: | x_return_status Return status after the call. The status can |
6725: | be FND_API.G_RET_STS_SUCCESS (success), |
6726: | fnd_api.g_ret_sts_error (error), |
6727: | fnd_api.g_ret_sts_unexp_error (unexpected |
6728: | error). |
6729: | x_msg_count Number of messages in message stack. |
6730: | x_msg_data Message text if x_msg_count is 1. |
6731: | MODIFICATION HISTORY |
6731: | MODIFICATION HISTORY |
6732: | 27-APR-2002 J. del Callar Bug 2238144: Created. |
6733: +=======================================================================*/
6734: PROCEDURE create_telex_contact_point (
6735: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
6736: p_contact_point_rec IN hz_contact_point_v2pub.contact_point_rec_type,
6737: p_telex_rec IN hz_contact_point_v2pub.telex_rec_type
6738: := hz_contact_point_v2pub.g_miss_telex_rec,
6739: x_contact_point_id OUT NOCOPY NUMBER,
6756: p_msg_level=>fnd_log.level_procedure);
6757: END IF;
6758:
6759: -- initialize API return status to success.
6760: x_return_status := fnd_api.g_ret_sts_success;
6761:
6762: --
6763: -- execute business logic
6764: --
6768: p_telex_rec,
6769: x_return_status);
6770:
6771: -- raise an exception if the validation routine is unsuccessful
6772: IF x_return_status <> fnd_api.g_ret_sts_success THEN
6773: RAISE fnd_api.g_exc_error;
6774: END IF;
6775:
6776: -- create the Telex contact point
6769: x_return_status);
6770:
6771: -- raise an exception if the validation routine is unsuccessful
6772: IF x_return_status <> fnd_api.g_ret_sts_success THEN
6773: RAISE fnd_api.g_exc_error;
6774: END IF;
6775:
6776: -- create the Telex contact point
6777: hz_contact_point_v2pub.create_telex_contact_point(
6774: END IF;
6775:
6776: -- create the Telex contact point
6777: hz_contact_point_v2pub.create_telex_contact_point(
6778: p_init_msg_list => fnd_api.g_false,
6779: p_contact_point_rec => p_contact_point_rec,
6780: p_telex_rec => p_telex_rec,
6781: x_contact_point_id => x_contact_point_id,
6782: x_return_status => x_return_status,
6784: x_msg_data => x_msg_data
6785: );
6786:
6787: -- raise an exception if the banking group creation is unsuccessful
6788: IF x_return_status <> fnd_api.g_ret_sts_success THEN
6789: RAISE fnd_api.g_exc_error;
6790: END IF;
6791:
6792: -- Debug info.
6785: );
6786:
6787: -- raise an exception if the banking group creation is unsuccessful
6788: IF x_return_status <> fnd_api.g_ret_sts_success THEN
6789: RAISE fnd_api.g_exc_error;
6790: END IF;
6791:
6792: -- Debug info.
6793: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
6798:
6799: -- disable the debug procedure before exiting.
6800: --disable_debug;
6801: EXCEPTION
6802: WHEN fnd_api.g_exc_error THEN
6803: ROLLBACK TO create_telex_contact_point;
6804: x_return_status := fnd_api.g_ret_sts_error;
6805: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
6806: p_count => x_msg_count,
6800: --disable_debug;
6801: EXCEPTION
6802: WHEN fnd_api.g_exc_error THEN
6803: ROLLBACK TO create_telex_contact_point;
6804: x_return_status := fnd_api.g_ret_sts_error;
6805: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
6806: p_count => x_msg_count,
6807: p_data => x_msg_data);
6808:
6801: EXCEPTION
6802: WHEN fnd_api.g_exc_error THEN
6803: ROLLBACK TO create_telex_contact_point;
6804: x_return_status := fnd_api.g_ret_sts_error;
6805: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
6806: p_count => x_msg_count,
6807: p_data => x_msg_data);
6808:
6809: -- Debug info.
6821:
6822: -- Check if API is called in debug mode. If yes, disable debug.
6823: --disable_debug;
6824:
6825: WHEN fnd_api.g_exc_unexpected_error THEN
6826: ROLLBACK TO create_telex_contact_point;
6827: x_return_status := fnd_api.g_ret_sts_unexp_error;
6828: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
6829: p_count => x_msg_count,
6823: --disable_debug;
6824:
6825: WHEN fnd_api.g_exc_unexpected_error THEN
6826: ROLLBACK TO create_telex_contact_point;
6827: x_return_status := fnd_api.g_ret_sts_unexp_error;
6828: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
6829: p_count => x_msg_count,
6830: p_data => x_msg_data);
6831:
6824:
6825: WHEN fnd_api.g_exc_unexpected_error THEN
6826: ROLLBACK TO create_telex_contact_point;
6827: x_return_status := fnd_api.g_ret_sts_unexp_error;
6828: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
6829: p_count => x_msg_count,
6830: p_data => x_msg_data);
6831:
6832: -- Debug info.
6846: --disable_debug;
6847:
6848: WHEN OTHERS THEN
6849: ROLLBACK TO create_telex_contact_point;
6850: x_return_status := fnd_api.g_ret_sts_unexp_error;
6851: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
6852: fnd_message.set_token('ERROR',SQLERRM);
6853: fnd_msg_pub.add;
6854: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
6850: x_return_status := fnd_api.g_ret_sts_unexp_error;
6851: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
6852: fnd_message.set_token('ERROR',SQLERRM);
6853: fnd_msg_pub.add;
6854: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
6855: p_count => x_msg_count,
6856: p_data => x_msg_data);
6857:
6858: -- Debug info.
6884: | |
6885: | ARGUMENTS |
6886: | IN: |
6887: | p_init_msg_list Initialize message stack if it is set to |
6888: | FND_API.G_TRUE. Default is FND_API.G_FALSE. |
6889: | p_contact_point_rec Contact point record. |
6890: | p_telex_rec TELEX record. |
6891: | IN/OUT: |
6892: | p_object_version_number Used to lock the record being updated. |
6893: | OUT: |
6894: | x_party_number Party number for the party created for the |
6895: | relationship. |
6896: | x_return_status Return status after the call. The status can |
6897: | be FND_API.G_RET_STS_SUCCESS (success), |
6898: | fnd_api.g_ret_sts_error (error), |
6899: | fnd_api.g_ret_sts_unexp_error (unexpected |
6900: | error). |
6901: | x_msg_count Number of messages in message stack. |
6894: | x_party_number Party number for the party created for the |
6895: | relationship. |
6896: | x_return_status Return status after the call. The status can |
6897: | be FND_API.G_RET_STS_SUCCESS (success), |
6898: | fnd_api.g_ret_sts_error (error), |
6899: | fnd_api.g_ret_sts_unexp_error (unexpected |
6900: | error). |
6901: | x_msg_count Number of messages in message stack. |
6902: | x_msg_data Message text if x_msg_count is 1. |
6895: | relationship. |
6896: | x_return_status Return status after the call. The status can |
6897: | be FND_API.G_RET_STS_SUCCESS (success), |
6898: | fnd_api.g_ret_sts_error (error), |
6899: | fnd_api.g_ret_sts_unexp_error (unexpected |
6900: | error). |
6901: | x_msg_count Number of messages in message stack. |
6902: | x_msg_data Message text if x_msg_count is 1. |
6903: | MODIFICATION HISTORY |
6903: | MODIFICATION HISTORY |
6904: | 27-APR-2002 J. del Callar Bug 2238144: Created. |
6905: +=======================================================================*/
6906: PROCEDURE update_telex_contact_point (
6907: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
6908: p_contact_point_rec IN hz_contact_point_v2pub.contact_point_rec_type,
6909: p_telex_rec IN hz_contact_point_v2pub.telex_rec_type
6910: := hz_contact_point_v2pub.g_miss_telex_rec,
6911: p_object_version_number IN OUT NOCOPY NUMBER,
6929: END IF;
6930:
6931:
6932: -- initialize API return status to success.
6933: x_return_status := fnd_api.g_ret_sts_success;
6934:
6935: --
6936: -- execute business logic
6937: --
6941: p_telex_rec,
6942: x_return_status);
6943:
6944: -- raise an exception if the validation routine is unsuccessful
6945: IF x_return_status <> fnd_api.g_ret_sts_success THEN
6946: RAISE fnd_api.g_exc_error;
6947: END IF;
6948:
6949: -- update the Telex contact point
6942: x_return_status);
6943:
6944: -- raise an exception if the validation routine is unsuccessful
6945: IF x_return_status <> fnd_api.g_ret_sts_success THEN
6946: RAISE fnd_api.g_exc_error;
6947: END IF;
6948:
6949: -- update the Telex contact point
6950: hz_contact_point_v2pub.update_telex_contact_point(
6947: END IF;
6948:
6949: -- update the Telex contact point
6950: hz_contact_point_v2pub.update_telex_contact_point(
6951: p_init_msg_list => fnd_api.g_false,
6952: p_contact_point_rec => p_contact_point_rec,
6953: p_telex_rec => p_telex_rec,
6954: p_object_version_number => p_object_version_number,
6955: x_return_status => x_return_status,
6957: x_msg_data => x_msg_data
6958: );
6959:
6960: -- raise an exception if the banking group creation is unsuccessful
6961: IF x_return_status <> fnd_api.g_ret_sts_success THEN
6962: RAISE fnd_api.g_exc_error;
6963: END IF;
6964:
6965: -- Debug info.
6958: );
6959:
6960: -- raise an exception if the banking group creation is unsuccessful
6961: IF x_return_status <> fnd_api.g_ret_sts_success THEN
6962: RAISE fnd_api.g_exc_error;
6963: END IF;
6964:
6965: -- Debug info.
6966: IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
6971:
6972: -- disable the debug procedure before exiting.
6973: --disable_debug;
6974: EXCEPTION
6975: WHEN fnd_api.g_exc_error THEN
6976: ROLLBACK TO update_telex_contact_point;
6977: x_return_status := fnd_api.g_ret_sts_error;
6978: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
6979: p_count => x_msg_count,
6973: --disable_debug;
6974: EXCEPTION
6975: WHEN fnd_api.g_exc_error THEN
6976: ROLLBACK TO update_telex_contact_point;
6977: x_return_status := fnd_api.g_ret_sts_error;
6978: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
6979: p_count => x_msg_count,
6980: p_data => x_msg_data);
6981:
6974: EXCEPTION
6975: WHEN fnd_api.g_exc_error THEN
6976: ROLLBACK TO update_telex_contact_point;
6977: x_return_status := fnd_api.g_ret_sts_error;
6978: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
6979: p_count => x_msg_count,
6980: p_data => x_msg_data);
6981:
6982: -- Debug info.
6994:
6995: -- Check if API is called in debug mode. If yes, disable debug.
6996: --disable_debug;
6997:
6998: WHEN fnd_api.g_exc_unexpected_error THEN
6999: ROLLBACK TO update_telex_contact_point;
7000: x_return_status := fnd_api.g_ret_sts_unexp_error;
7001: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
7002: p_count => x_msg_count,
6996: --disable_debug;
6997:
6998: WHEN fnd_api.g_exc_unexpected_error THEN
6999: ROLLBACK TO update_telex_contact_point;
7000: x_return_status := fnd_api.g_ret_sts_unexp_error;
7001: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
7002: p_count => x_msg_count,
7003: p_data => x_msg_data);
7004:
6997:
6998: WHEN fnd_api.g_exc_unexpected_error THEN
6999: ROLLBACK TO update_telex_contact_point;
7000: x_return_status := fnd_api.g_ret_sts_unexp_error;
7001: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
7002: p_count => x_msg_count,
7003: p_data => x_msg_data);
7004:
7005: -- Debug info.
7019: --disable_debug;
7020:
7021: WHEN OTHERS THEN
7022: ROLLBACK TO update_telex_contact_point;
7023: x_return_status := fnd_api.g_ret_sts_unexp_error;
7024: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
7025: fnd_message.set_token('ERROR',SQLERRM);
7026: fnd_msg_pub.add;
7027: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
7023: x_return_status := fnd_api.g_ret_sts_unexp_error;
7024: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
7025: fnd_message.set_token('ERROR',SQLERRM);
7026: fnd_msg_pub.add;
7027: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
7028: p_count => x_msg_count,
7029: p_data => x_msg_data);
7030:
7031: -- Debug info.
7056: | |
7057: | ARGUMENTS |
7058: | IN: |
7059: | p_init_msg_list Initialize message stack if it is set to |
7060: | FND_API.G_TRUE. Default is FND_API.G_FALSE. |
7061: | p_bank_rec bank record |
7062: | p_mode 'I' for insert mode. |
7063: | 'U' for update mode. |
7064: | IN/OUT: |
7063: | 'U' for update mode. |
7064: | IN/OUT: |
7065: | OUT: |
7066: | x_return_status Return status after the call. The status can |
7067: | be FND_API.G_RET_STS_SUCCESS (success), |
7068: | fnd_api.g_ret_sts_error (error), |
7069: | fnd_api.g_ret_sts_unexp_error (unexpected |
7070: | error). |
7071: | x_msg_count Number of messages in message stack. |
7064: | IN/OUT: |
7065: | OUT: |
7066: | x_return_status Return status after the call. The status can |
7067: | be FND_API.G_RET_STS_SUCCESS (success), |
7068: | fnd_api.g_ret_sts_error (error), |
7069: | fnd_api.g_ret_sts_unexp_error (unexpected |
7070: | error). |
7071: | x_msg_count Number of messages in message stack. |
7072: | x_msg_data Message text if x_msg_count is 1. |
7065: | OUT: |
7066: | x_return_status Return status after the call. The status can |
7067: | be FND_API.G_RET_STS_SUCCESS (success), |
7068: | fnd_api.g_ret_sts_error (error), |
7069: | fnd_api.g_ret_sts_unexp_error (unexpected |
7070: | error). |
7071: | x_msg_count Number of messages in message stack. |
7072: | x_msg_data Message text if x_msg_count is 1. |
7073: | MODIFICATION HISTORY |
7101: END IF;
7102:
7103: -- initialize message list if p_init_msg_list is set to TRUE.
7104: IF p_init_msg_list IS NOT NULL AND
7105: fnd_api.To_Boolean(p_init_msg_list)
7106: THEN
7107: fnd_msg_pub.initialize;
7108: END IF;
7109:
7107: fnd_msg_pub.initialize;
7108: END IF;
7109:
7110: -- initialize API return status to success.
7111: x_return_status := fnd_api.g_ret_sts_success;
7112:
7113: -- validate input
7114: IF (p_mode IS NULL OR
7115: p_mode <> 'I' AND
7117: THEN
7118: fnd_message.set_name('AR', 'HZ_INVALID_BATCH_PARAM');
7119: fnd_message.set_token('PARAMTER', 'p_mode');
7120: fnd_msg_pub.add;
7121: raise fnd_api.g_exc_error;
7122: END IF;
7123:
7124: l_bank_rec := p_bank_rec;
7125: l_bank_rec.organization_rec.home_country := l_bank_rec.country;
7131: x_return_status => x_return_status
7132: );
7133:
7134: -- raise an exception if validation failed
7135: IF x_return_status <> fnd_api.g_ret_sts_success THEN
7136: raise fnd_api.g_exc_error;
7137: END IF;
7138:
7139: -- standard call to get message count and if count is 1, get message info.
7132: );
7133:
7134: -- raise an exception if validation failed
7135: IF x_return_status <> fnd_api.g_ret_sts_success THEN
7136: raise fnd_api.g_exc_error;
7137: END IF;
7138:
7139: -- standard call to get message count and if count is 1, get message info.
7140: fnd_msg_pub.Count_And_Get (
7137: END IF;
7138:
7139: -- standard call to get message count and if count is 1, get message info.
7140: fnd_msg_pub.Count_And_Get (
7141: p_encoded => fnd_api.G_FALSE,
7142: p_count => x_msg_count,
7143: p_data => x_msg_data);
7144:
7145: -- Debug info.
7160: );
7161: END IF;
7162:
7163: EXCEPTION
7164: WHEN fnd_api.G_EXC_ERROR THEN
7165: x_return_status := fnd_api.G_RET_STS_ERROR;
7166:
7167: fnd_msg_pub.Count_And_Get (
7168: p_encoded => fnd_api.G_FALSE,
7161: END IF;
7162:
7163: EXCEPTION
7164: WHEN fnd_api.G_EXC_ERROR THEN
7165: x_return_status := fnd_api.G_RET_STS_ERROR;
7166:
7167: fnd_msg_pub.Count_And_Get (
7168: p_encoded => fnd_api.G_FALSE,
7169: p_count => x_msg_count,
7164: WHEN fnd_api.G_EXC_ERROR THEN
7165: x_return_status := fnd_api.G_RET_STS_ERROR;
7166:
7167: fnd_msg_pub.Count_And_Get (
7168: p_encoded => fnd_api.G_FALSE,
7169: p_count => x_msg_count,
7170: p_data => x_msg_data
7171: );
7172:
7187: p_msg_level => fnd_log.level_procedure
7188: );
7189: END IF;
7190:
7191: WHEN fnd_api.G_EXC_UNEXPECTED_ERROR THEN
7192: x_return_status := fnd_api.G_RET_STS_UNEXP_ERROR;
7193: fnd_msg_pub.Count_And_Get (
7194: p_encoded => fnd_api.G_FALSE,
7195: p_count => x_msg_count,
7188: );
7189: END IF;
7190:
7191: WHEN fnd_api.G_EXC_UNEXPECTED_ERROR THEN
7192: x_return_status := fnd_api.G_RET_STS_UNEXP_ERROR;
7193: fnd_msg_pub.Count_And_Get (
7194: p_encoded => fnd_api.G_FALSE,
7195: p_count => x_msg_count,
7196: p_data => x_msg_data
7190:
7191: WHEN fnd_api.G_EXC_UNEXPECTED_ERROR THEN
7192: x_return_status := fnd_api.G_RET_STS_UNEXP_ERROR;
7193: fnd_msg_pub.Count_And_Get (
7194: p_encoded => fnd_api.G_FALSE,
7195: p_count => x_msg_count,
7196: p_data => x_msg_data
7197: );
7198:
7214: );
7215: END IF;
7216:
7217: WHEN OTHERS THEN
7218: x_return_status := fnd_api.G_RET_STS_UNEXP_ERROR;
7219:
7220: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
7221: fnd_message.set_token('ERROR' ,SQLERRM);
7222: fnd_msg_pub.add;
7221: fnd_message.set_token('ERROR' ,SQLERRM);
7222: fnd_msg_pub.add;
7223:
7224: fnd_msg_pub.Count_And_Get (
7225: p_encoded => fnd_api.G_FALSE,
7226: p_count => x_msg_count,
7227: p_data => x_msg_data
7228: );
7229:
7257: | |
7258: | ARGUMENTS |
7259: | IN: |
7260: | p_init_msg_list Initialize message stack if it is set to |
7261: | FND_API.G_TRUE. Default is FND_API.G_FALSE. |
7262: | p_bank_party_id bank party id. |
7263: | p_bank_branch_rec bank branch record |
7264: | p_mode 'I' for insert mode. |
7265: | 'U' for update mode. |
7265: | 'U' for update mode. |
7266: | IN/OUT: |
7267: | OUT: |
7268: | x_return_status Return status after the call. The status can |
7269: | be FND_API.G_RET_STS_SUCCESS (success), |
7270: | fnd_api.g_ret_sts_error (error), |
7271: | fnd_api.g_ret_sts_unexp_error (unexpected |
7272: | error). |
7273: | x_msg_count Number of messages in message stack. |
7266: | IN/OUT: |
7267: | OUT: |
7268: | x_return_status Return status after the call. The status can |
7269: | be FND_API.G_RET_STS_SUCCESS (success), |
7270: | fnd_api.g_ret_sts_error (error), |
7271: | fnd_api.g_ret_sts_unexp_error (unexpected |
7272: | error). |
7273: | x_msg_count Number of messages in message stack. |
7274: | x_msg_data Message text if x_msg_count is 1. |
7267: | OUT: |
7268: | x_return_status Return status after the call. The status can |
7269: | be FND_API.G_RET_STS_SUCCESS (success), |
7270: | fnd_api.g_ret_sts_error (error), |
7271: | fnd_api.g_ret_sts_unexp_error (unexpected |
7272: | error). |
7273: | x_msg_count Number of messages in message stack. |
7274: | x_msg_data Message text if x_msg_count is 1. |
7275: | MODIFICATION HISTORY |
7304: END IF;
7305:
7306: -- initialize message list if p_init_msg_list is set to TRUE.
7307: IF p_init_msg_list IS NOT NULL AND
7308: fnd_api.To_Boolean(p_init_msg_list)
7309: THEN
7310: fnd_msg_pub.initialize;
7311: END IF;
7312:
7310: fnd_msg_pub.initialize;
7311: END IF;
7312:
7313: -- initialize API return status to success.
7314: x_return_status := fnd_api.G_RET_STS_SUCCESS;
7315:
7316: -- validate input
7317: IF (p_mode IS NULL OR
7318: p_mode <> 'I' AND
7320: THEN
7321: fnd_message.set_name('AR', 'HZ_INVALID_BATCH_PARAM');
7322: fnd_message.set_token('PARAMTER', 'p_mode');
7323: fnd_msg_pub.add;
7324: raise fnd_api.g_exc_error;
7325: END IF;
7326:
7327: l_bank_branch_rec := p_bank_branch_rec;
7328: l_bank_branch_rec.organization_rec.home_country := l_bank_branch_rec.country;
7334: x_return_status => x_return_status
7335: );
7336:
7337: -- raise an exception if validation failed
7338: IF x_return_status <> fnd_api.g_ret_sts_success THEN
7339: raise fnd_api.g_exc_error;
7340: END IF;
7341:
7342: validate_bank_org (
7335: );
7336:
7337: -- raise an exception if validation failed
7338: IF x_return_status <> fnd_api.g_ret_sts_success THEN
7339: raise fnd_api.g_exc_error;
7340: END IF;
7341:
7342: validate_bank_org (
7343: p_bank_rec => p_bank_branch_rec,
7346: x_return_status => x_return_status
7347: );
7348:
7349: -- raise an exception if validation failed
7350: IF x_return_status <> fnd_api.g_ret_sts_success THEN
7351: raise fnd_api.g_exc_error;
7352: END IF;
7353:
7354: -- standard call to get message count and if count is 1, get message info.
7347: );
7348:
7349: -- raise an exception if validation failed
7350: IF x_return_status <> fnd_api.g_ret_sts_success THEN
7351: raise fnd_api.g_exc_error;
7352: END IF;
7353:
7354: -- standard call to get message count and if count is 1, get message info.
7355: fnd_msg_pub.Count_And_Get (
7352: END IF;
7353:
7354: -- standard call to get message count and if count is 1, get message info.
7355: fnd_msg_pub.Count_And_Get (
7356: p_encoded => fnd_api.G_FALSE,
7357: p_count => x_msg_count,
7358: p_data => x_msg_data);
7359:
7360: -- Debug info.
7375: );
7376: END IF;
7377:
7378: EXCEPTION
7379: WHEN fnd_api.G_EXC_ERROR THEN
7380: x_return_status := fnd_api.G_RET_STS_ERROR;
7381:
7382: fnd_msg_pub.Count_And_Get (
7383: p_encoded => fnd_api.G_FALSE,
7376: END IF;
7377:
7378: EXCEPTION
7379: WHEN fnd_api.G_EXC_ERROR THEN
7380: x_return_status := fnd_api.G_RET_STS_ERROR;
7381:
7382: fnd_msg_pub.Count_And_Get (
7383: p_encoded => fnd_api.G_FALSE,
7384: p_count => x_msg_count,
7379: WHEN fnd_api.G_EXC_ERROR THEN
7380: x_return_status := fnd_api.G_RET_STS_ERROR;
7381:
7382: fnd_msg_pub.Count_And_Get (
7383: p_encoded => fnd_api.G_FALSE,
7384: p_count => x_msg_count,
7385: p_data => x_msg_data
7386: );
7387:
7402: p_msg_level => fnd_log.level_procedure
7403: );
7404: END IF;
7405:
7406: WHEN fnd_api.G_EXC_UNEXPECTED_ERROR THEN
7407: x_return_status := fnd_api.G_RET_STS_UNEXP_ERROR;
7408: fnd_msg_pub.Count_And_Get (
7409: p_encoded => fnd_api.G_FALSE,
7410: p_count => x_msg_count,
7403: );
7404: END IF;
7405:
7406: WHEN fnd_api.G_EXC_UNEXPECTED_ERROR THEN
7407: x_return_status := fnd_api.G_RET_STS_UNEXP_ERROR;
7408: fnd_msg_pub.Count_And_Get (
7409: p_encoded => fnd_api.G_FALSE,
7410: p_count => x_msg_count,
7411: p_data => x_msg_data
7405:
7406: WHEN fnd_api.G_EXC_UNEXPECTED_ERROR THEN
7407: x_return_status := fnd_api.G_RET_STS_UNEXP_ERROR;
7408: fnd_msg_pub.Count_And_Get (
7409: p_encoded => fnd_api.G_FALSE,
7410: p_count => x_msg_count,
7411: p_data => x_msg_data
7412: );
7413:
7429: );
7430: END IF;
7431:
7432: WHEN OTHERS THEN
7433: x_return_status := fnd_api.G_RET_STS_UNEXP_ERROR;
7434:
7435: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
7436: fnd_message.set_token('ERROR' ,SQLERRM);
7437: fnd_msg_pub.add;
7436: fnd_message.set_token('ERROR' ,SQLERRM);
7437: fnd_msg_pub.add;
7438:
7439: fnd_msg_pub.Count_And_Get (
7440: p_encoded => fnd_api.G_FALSE,
7441: p_count => x_msg_count,
7442: p_data => x_msg_data
7443: );
7444: