[Home] [Help]
160:
161: l_relationship_id NUMBER;
162: l_member_already_exists BOOLEAN := FALSE;
163:
164: l_party_rel_rec HZ_RELATIONSHIP_V2PUB.RELATIONSHIP_REC_TYPE;
165:
166: l_party_id NUMBER;
167: l_party_number VARCHAR2(500); --my wild assumed length
168:
233: l_party_rel_rec.relationship_type := nvl(p_relationship_type,chr(0));
234: l_party_rel_rec.created_by_module := p_program_name;
235: l_party_rel_rec.start_date := NVL(p_start_date, SYSDATE);
236:
237: -- mdebug('. CREATE_RELATIONSHIP: Before calling HZ_RELATIONSHIP_V2PUB.create_relationship');
238: -- mdebug('. CREATE_RELATIONSHIP: params p_subject_id ' || to_char(p_subject_id) );
239: -- mdebug('. CREATE_RELATIONSHIP: p_subject_type ' || p_subject_type );
240: -- mdebug('. CREATE_RELATIONSHIP: p_subject_table_name ' || p_subject_table_name );
241: -- mdebug('. CREATE_RELATIONSHIP: p_object_id ' || to_char(p_object_id) );
243: -- mdebug('. CREATE_RELATIONSHIP: p_object_table_name ' || p_object_table_name );
244: -- mdebug('. CREATE_RELATIONSHIP: p_relationship_code ' || p_relationship_code );
245: -- mdebug('. CREATE_RELATIONSHIP: p_relationship_type ' || p_relationship_type );
246:
247: HZ_RELATIONSHIP_V2PUB.create_relationship(
248: p_init_msg_list => NVL(p_init_msg_list, 'F'),
249: p_relationship_rec => l_party_rel_rec,
250: x_relationship_id => x_relationship_id,
251: x_party_id => l_party_id,
254: x_msg_count => x_msg_count,
255: x_msg_data => x_msg_data
256: );
257:
258: -- mdebug('. CREATE_RELATIONSHIP: Exited from HZ_RELATIONSHIP_V2PUB.create_relationship');
259: -- mdebug('. CREATE_RELATIONSHIP: party_rel_id '|| to_char(x_relationship_id));
260: -- mdebug('. CREATE_RELATIONSHIP: party_id '|| to_char(l_party_id));
261: -- mdebug('. CREATE_RELATIONSHIP: x_party_number '|| l_party_number);
262: -- mdebug('. CREATE_RELATIONSHIP: return_status '|| x_return_status);
323: procedure Update_Relationship (
324: p_api_version IN NUMBER,
325: p_init_msg_list IN VARCHAR2,
326: p_commit IN VARCHAR2,
327: p_party_rel_rec IN HZ_RELATIONSHIP_V2PUB.RELATIONSHIP_REC_TYPE,
328: p_object_version_no_rel IN OUT NOCOPY NUMBER,
329: x_return_status OUT NOCOPY VARCHAR2,
330: x_msg_count OUT NOCOPY NUMBER,
331: x_msg_data OUT NOCOPY VARCHAR2
347: -- DEFAULT = FND_API.G_FALSE
348: -- Indicates whether the data should be committed
349: -- p_party_rel_rec IN NUMBER (required)
350: -- The party relation record that needs to be updated
351: -- Record type -> HZ_RELATIONSHIP_V2PUB.RELATIONSHIP_REC_TYPE
352: --
353: -- IN/OUT : p_object_version_no_rel IN OUT NUMBER (required)
354: -- Takes in the version of the record to be updated
355: -- Returns the version of the record after updation
404: IF FND_API.to_Boolean( NVL(p_init_msg_list, 'F') ) THEN
405: FND_MSG_PUB.initialize;
406: END IF;
407:
408: HZ_RELATIONSHIP_V2PUB.update_relationship
409: (p_init_msg_list => NVL(p_init_msg_list, 'F')
410: ,p_relationship_rec => p_party_rel_rec
411: ,p_object_version_number => p_object_version_no_rel
412: ,p_party_object_version_number => l_number
911:
912: -- General variables
913: l_group_rec HZ_PARTY_V2PUB.GROUP_REC_TYPE;
914: l_party_rec HZ_PARTY_V2PUB.PARTY_REC_TYPE;
915: l_party_rel_rec HZ_RELATIONSHIP_V2PUB.RELATIONSHIP_REC_TYPE;
916:
917: l_contact_point_rec HZ_CONTACT_POINT_V2PUB.CONTACT_POINT_REC_TYPE;
918: l_edi_rec HZ_CONTACT_POINT_V2PUB.EDI_REC_TYPE;
919: l_email_rec HZ_CONTACT_POINT_V2PUB.EMAIL_REC_TYPE;
1344:
1345: -- General variables
1346: l_group_rec HZ_PARTY_V2PUB.GROUP_REC_TYPE;
1347: l_party_rec HZ_PARTY_V2PUB.PARTY_REC_TYPE;
1348: l_party_rel_rec HZ_RELATIONSHIP_V2PUB.RELATIONSHIP_REC_TYPE;
1349:
1350: l_contact_point_rec HZ_CONTACT_POINT_V2PUB.CONTACT_POINT_REC_TYPE;
1351: l_edi_rec HZ_CONTACT_POINT_V2PUB.EDI_REC_TYPE;
1352: l_email_rec HZ_CONTACT_POINT_V2PUB.EMAIL_REC_TYPE;
1869:
1870: l_api_version CONSTANT NUMBER := 1.0;
1871: l_return_status VARCHAR2(10);
1872:
1873: l_party_rel_rec HZ_RELATIONSHIP_V2PUB.RELATIONSHIP_REC_TYPE;
1874:
1875: l_member_id NUMBER;
1876: L_GRANT_GUID VARCHAR2(100);
1877: x_ret_status VARCHAR2(1);