APPS.AHL_PARTY_MERGE_PKG dependencies on AHL_DOCUMENTS_B

Line 9: -- AHL_DOCUMENTS_B

5: -- Purpose : Merges duplicate parties in Advanced Service
6: -- Online tables. The
7: -- Tables that need to be considered for
8: -- Party Merge are:
9: -- AHL_DOCUMENTS_B
10: -- AHL_SUPPLIER_DOCUMENTS
11: -- AHL_RECIPIENT_DOCUEMTNS
12: -- AHL_SUBSCRIPTIONS_B
13: -- AHL_DOC_REVISIONS_B

Line 37: -- Merge AHL_DOCUMENTS_B.SOURCE_PARTY_ID

33: G_PROC_NAME CONSTANT VARCHAR2(30) := 'AHL_PARTY_MERGE_PKG';
34: G_USER_ID CONSTANT NUMBER(15) := FND_GLOBAL.USER_ID;
35: G_LOGIN_ID CONSTANT NUMBER(15) := FND_GLOBAL.LOGIN_ID;
36:
37: -- Merge AHL_DOCUMENTS_B.SOURCE_PARTY_ID
38:
39: PROCEDURE AHL_DI_SOURCE_PARTY (
40: p_entity_name IN VARCHAR2,
41: p_from_id IN NUMBER,

Line 52: from ahl_documents_b

48: x_return_status OUT NOCOPY VARCHAR2)
49: IS
50: cursor c1 is
51: select 1
52: from ahl_documents_b
53: where source_party_id = p_from_fk_id
54: for update nowait;
55:
56:

Line 97: -- In the case of AHL_DOCUMENTS_B table, if source party id 1000 got merged to source party id 2000

93: -- dependent record exists on the new parent. If a duplicate exists then do
94: -- not transfer and return the id of the duplicate record as the Merged To Id
95:
96:
97: -- In the case of AHL_DOCUMENTS_B table, if source party id 1000 got merged to source party id 2000
98: -- then, we have to update all records with source_party_id = 1000 to 2000
99:
100: if p_from_fk_id <> p_to_fk_id then
101: begin

Line 104: arp_message.set_token('TABLE_NAME', 'AHL_DOCUMENTS_B', FALSE);

100: if p_from_fk_id <> p_to_fk_id then
101: begin
102: -- obtain lock on records to be updated.
103: arp_message.set_name('AR', 'AR_LOCKING_TABLE');
104: arp_message.set_token('TABLE_NAME', 'AHL_DOCUMENTS_B', FALSE);
105:
106: open c1;
107: close c1;
108:

Line 109: update ahl_documents_b

105:
106: open c1;
107: close c1;
108:
109: update ahl_documents_b
110: set source_party_id = p_to_fk_id,
111: last_update_date = SYSDATE,
112: last_updated_by = G_USER_ID,
113: last_update_login = G_LOGIN_ID

Line 125: 'AHL_DOCUMENTS_B for source_party_id = ' || p_from_fk_id );

121: exception
122: when resource_busy then
123: arp_message.set_line(g_proc_name || '.' || l_api_name ||
124: '; Could not obtain lock for records in table ' ||
125: 'AHL_DOCUMENTS_B for source_party_id = ' || p_from_fk_id );
126: x_return_status := FND_API.G_RET_STS_ERROR;
127: raise;
128:
129: when others then