[Home] [Help]
5: --subtype leadImpView is impView%Type;
6: cursor imptype is select * from as_import_interface;
7: subtype leadImpType is impType%rowtype;
8:
9: cursor cptype is select * from as_imp_cnt_pnt_interface;
10: subtype cntPntType is cptype%rowtype;
11:
12: G_LOCAL_ORG_CONTACT_ID number := null; -- This is to store org_contact_id
13: G_SL_LINE_COUNT number := 0; -- This is to count SL Lines
1482: --------------------------------------------------------
1483: -- name: do_create_contact_points
1484: -- scope: private
1485: -- calls HZ_CONTACT_POINT_V2PUB.do_create_contact_points
1486: -- inserts contact point (in as_imp_cnt_pnt_interface) for pary and party site
1487: ----------------------------------------------------------
1488: procedure do_create_contact_points(
1489: pI IN OUT NOCOPY leadImpType,
1490: pCP IN OUT NOCOPY cntPntType,
4111: and nvl(start_date_active, sysdate) <= sysdate
4112: and nvl(end_date_active, sysdate) >= sysdate
4113: and enabled_flag = 'Y';
4114:
4115: -- Cursor for fetching rows from as_imp_cnt_pnt_interface
4116: CURSOR c_cnt_pnt (c_owner_type varchar2, c_import_interface_id number)
4117: IS
4118: SELECT *
4119: FROM AS_IMP_CNT_PNT_INTERFACE
4115: -- Cursor for fetching rows from as_imp_cnt_pnt_interface
4116: CURSOR c_cnt_pnt (c_owner_type varchar2, c_import_interface_id number)
4117: IS
4118: SELECT *
4119: FROM AS_IMP_CNT_PNT_INTERFACE
4120: WHERE owner_type = c_owner_type
4121: AND import_interface_id = c_import_interface_id;
4122:
4123: -- Find the sales group of the person being added
4490: ELSE
4491: write_log (3, ' Contact Point Not Created ');
4492: END IF;
4493:
4494: -- create contact points (in as_imp_cnt_pnt_interface) for 'CONTACT'
4495: FOR cpc in c_cnt_pnt('CONTACT', I.import_interface_id) LOOP
4496: write_log (3, 'Creating contact point (2)');
4497: do_create_contact_points(I, cpc, 'CONTACT',G_return_status);
4498: IF G_return_status <> FND_API.G_RET_STS_SUCCESS THEN