DBA Data[Home] [Help]

APPS.IBE_MERGE_PVT dependencies on IBE_MSITE_PRTY_ACCSS

Line 1262: | IBE_MSITE_PRTY_ACCSS table and will be called from party |

1258: | When in ERP Parties are merged the |
1259: | The Foriegn keys to party_id and other columns |
1260: | should also be updated in iStore tables. |
1261: | This procedure will update |
1262: | IBE_MSITE_PRTY_ACCSS table and will be called from party |
1263: | Merge concurrent program. |
1264: | DESCRIPTION |
1265: | |
1266: | REQUIRES |

Line 1295: IBE_MSITE_PRTY_ACCSS

1291: IS
1292:
1293: Cursor C1 is
1294: Select 'X' from
1295: IBE_MSITE_PRTY_ACCSS
1296: where party_id = p_from_fk_id
1297: for update nowait;
1298:
1299: CURSOR merge_records(p_party_id NUMBER) IS

Line 1301: From ibe_msite_prty_accss a, ibe_msites_b b

1297: for update nowait;
1298:
1299: CURSOR merge_records(p_party_id NUMBER) IS
1300: Select a.msite_id, b.party_access_code
1301: From ibe_msite_prty_accss a, ibe_msites_b b
1302: Where party_id = p_party_id and a.msite_id=b.msite_id and b.site_type = 'I';
1303:
1304:
1305: l_msite_prty_accss_id IBE_MSITE_PRTY_ACCSS.MSITE_PRTY_ACCSS_ID%TYPE;

Line 1305: l_msite_prty_accss_id IBE_MSITE_PRTY_ACCSS.MSITE_PRTY_ACCSS_ID%TYPE;

1301: From ibe_msite_prty_accss a, ibe_msites_b b
1302: Where party_id = p_party_id and a.msite_id=b.msite_id and b.site_type = 'I';
1303:
1304:
1305: l_msite_prty_accss_id IBE_MSITE_PRTY_ACCSS.MSITE_PRTY_ACCSS_ID%TYPE;
1306: l_merge_reason_code VARCHAR2(30);
1307: l_count NUMBER(10) := 0;
1308: RESOURCE_BUSY EXCEPTION;
1309: l_msite_id IBE_MSITE_PRTY_ACCSS.MSITE_ID%TYPE;

Line 1309: l_msite_id IBE_MSITE_PRTY_ACCSS.MSITE_ID%TYPE;

1305: l_msite_prty_accss_id IBE_MSITE_PRTY_ACCSS.MSITE_PRTY_ACCSS_ID%TYPE;
1306: l_merge_reason_code VARCHAR2(30);
1307: l_count NUMBER(10) := 0;
1308: RESOURCE_BUSY EXCEPTION;
1309: l_msite_id IBE_MSITE_PRTY_ACCSS.MSITE_ID%TYPE;
1310: l_party_access_code IBE_MSITES_B.PARTY_ACCESS_CODE%TYPE;
1311: PRAGMA EXCEPTION_INIT(RESOURCE_BUSY, -0054);
1312:
1313: Begin

Line 1351: arp_message.set_token('TABLE_NAME', 'IBE_MSITE_PRTY_ACCSS', FALSE);

1347: fetch merge_records into l_msite_id, l_party_access_code;
1348: EXIT When merge_records%NOTFOUND;
1349: Begin
1350: arp_message.set_name('AR', 'AR_UPDATING_TABLE');
1351: arp_message.set_token('TABLE_NAME', 'IBE_MSITE_PRTY_ACCSS', FALSE);
1352: arp_message.set_line('IBE_MERGE_PVT.MERGE_MSITE_PARTY_ACCESS; '||
1353: ' merging msite:'||l_msite_id||' both & are BOTH on');
1354:
1355: -- only merge when both & are BOTH on

Line 1357: UPDATE IBE_MSITE_PRTY_ACCSS

1353: ' merging msite:'||l_msite_id||' both & are BOTH on');
1354:
1355: -- only merge when both & are BOTH on
1356: -- and doesn't have restrictions on the minisite
1357: UPDATE IBE_MSITE_PRTY_ACCSS
1358: SET party_id = p_to_fk_id,
1359: last_update_date = hz_utility_pub.last_update_date,
1360: last_updated_by = hz_utility_pub.user_id,
1361: last_update_login = hz_utility_pub.last_update_login

Line 1363: select 1 from IBE_MSITE_PRTY_ACCSS a, IBE_MSITES_B b

1359: last_update_date = hz_utility_pub.last_update_date,
1360: last_updated_by = hz_utility_pub.user_id,
1361: last_update_login = hz_utility_pub.last_update_login
1362: Where party_id = p_from_fk_id and exists (
1363: select 1 from IBE_MSITE_PRTY_ACCSS a, IBE_MSITES_B b
1364: where party_id=p_to_fk_id and a.msite_id<>l_msite_id
1365: and a.msite_id = b.msite_id and b.party_access_code = l_party_access_code
1366: and b.site_type = 'I'
1367: );

Line 1376: update IBE_MSITE_PRTY_ACCSS

1372:
1373: -- for a given msite, if has party access and doesn't
1374: -- then end_date to prevent dangling party layer data
1375: if (SQL%NOTFOUND) then
1376: update IBE_MSITE_PRTY_ACCSS
1377: set END_DATE_ACTIVE = trunc(sysdate)
1378: where party_id = p_from_fk_id and msite_id=l_msite_id;
1379: end if;
1380:

Line 1398: 'on table IBE_MSITE_PRTY_ACCSS');

1394:
1395: Exception
1396: When RESOURCE_BUSY Then
1397: arp_message.set_line('IBE_MERGE_PVT.MERGE_MSITE_PARTY_ACCESS; Could not obtain lock'||
1398: 'on table IBE_MSITE_PRTY_ACCSS');
1399: x_return_status := FND_API.G_RET_STS_ERROR;
1400: raise;
1401: When Others Then
1402: arp_message.set_line('IBE_MERGE_PVT.MERGE_MSITE_PARTY_ACCESS'||sqlerrm);