[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,
4092: and nvl(start_date_active, sysdate) <= sysdate
4093: and nvl(end_date_active, sysdate) >= sysdate
4094: and enabled_flag = 'Y';
4095:
4096: -- Cursor for fetching rows from as_imp_cnt_pnt_interface
4097: CURSOR c_cnt_pnt (c_owner_type varchar2, c_import_interface_id number)
4098: IS
4099: SELECT *
4100: FROM AS_IMP_CNT_PNT_INTERFACE
4096: -- Cursor for fetching rows from as_imp_cnt_pnt_interface
4097: CURSOR c_cnt_pnt (c_owner_type varchar2, c_import_interface_id number)
4098: IS
4099: SELECT *
4100: FROM AS_IMP_CNT_PNT_INTERFACE
4101: WHERE owner_type = c_owner_type
4102: AND import_interface_id = c_import_interface_id;
4103:
4104: -- Find the sales group of the person being added
4471: ELSE
4472: write_log (3, ' Contact Point Not Created ');
4473: END IF;
4474:
4475: -- create contact points (in as_imp_cnt_pnt_interface) for 'CONTACT'
4476: FOR cpc in c_cnt_pnt('CONTACT', I.import_interface_id) LOOP
4477: write_log (3, 'Creating contact point (2)');
4478: do_create_contact_points(I, cpc, 'CONTACT',G_return_status);
4479: IF G_return_status <> FND_API.G_RET_STS_SUCCESS THEN