[Home] [Help]
1: PACKAGE BODY AMS_List_Import_PUB AS
2: /* $Header: amspimlb.pls 120.7.12010000.3 2008/12/02 10:57:58 hbandi ship $ */
3:
4: -----------------------------------------------------------
5: -- PACKAGE
2: /* $Header: amspimlb.pls 120.7.12010000.3 2008/12/02 10:57:58 hbandi ship $ */
3:
4: -----------------------------------------------------------
5: -- PACKAGE
6: -- AMS_List_Import_PUB
7: --
8: -- PURPOSE
9: -- This purpose of this program is to create organization,person
10: -- ,party relationship, org contacts, locations , party sites,
32: -- 3. Create Party Site (if address is available)
33: -- 4. Create Contact Points (if contact points are available)
34: -- ------------------------------------------------------------------------
35: G_ARC_IMPORT_HEADER CONSTANT VARCHAR2(30) := 'IMPH';
36: g_pkg_name CONSTANT VARCHAR2(30):='AMS_LIST_IMPORT_PUB';
37: G_ERROR_THRESHOLD NUMBER := 0;
38: --
39: -- This procedure is used for existence checking for party.
40: --
768: close c_validate_b2b;
769:
770: if l_validate is null then
771: --Throw error as party_id that was passed is incorrect
772: AMS_List_Import_PUB.error_capture (
773: 1,
774: 'T',
775: 'F',
776: null,
1300: fetch orgpartyid into x_org_party_id;
1301: close orgpartyid;
1302: x_party_rel_party_id := l_b2b_party_id;
1303: else
1304: AMS_List_Import_PUB.error_capture (
1305: 1,
1306: 'T',
1307: 'F',
1308: null,
2252: close c_validate_b2c;
2253:
2254: if l_validate is null then
2255: --Throw error as party_id that was passed is incorrect
2256: AMS_List_Import_PUB.error_capture (
2257: 1,
2258: 'T',
2259: 'F',
2260: null,
2493: close b2cparty;
2494: if l_b2c_party_exists = 'Y' then
2495: x_per_party_id := l_b2c_party_id;
2496: else
2497: AMS_List_Import_PUB.error_capture (
2498: 1,
2499: 'T',
2500: 'F',
2501: null,
5450: end process_element_duplicate;
5451:
5452:
5453:
5454: end AMS_List_Import_PUB;