[Home] [Help]
330: CURSOR contact_denorm (cp_party_id NUMBER) IS
331: SELECT distinct
332: TX22||' '||
333: ' '
334: FROM APPS.HZ_STAGED_CONTACTS
335: WHERE party_id = cp_party_id;
336: l_buffer VARCHAR2(4000);
337: l_den_ct VARCHAR2(2000);
338: BEGIN
1458: l_en := H_C_PARTY_ID.COUNT;
1459: LOOP
1460: BEGIN
1461: FORALL I in l_st..l_en
1462: INSERT INTO HZ_STAGED_CONTACTS (
1463: ORG_CONTACT_ID
1464: ,PARTY_ID
1465: ,STATUS_FLAG
1466: , TX2
1551: WHILE (l_tryins OR l_tryupd) LOOP
1552: IF l_tryins THEN
1553: BEGIN
1554: l_tryins:=FALSE;
1555: INSERT INTO HZ_STAGED_CONTACTS (
1556: ORG_CONTACT_ID
1557: ,PARTY_ID
1558: ,STATUS_FLAG
1559: , TX2
1588: END IF;
1589: IF l_tryupd THEN
1590: BEGIN
1591: l_tryupd:=FALSE;
1592: UPDATE HZ_STAGED_CONTACTS SET
1593: concat_col = concat_col
1594: ,status_flag = H_STATUS(1)
1595: ,TX2=decode(H_TX2(1),null,H_TX2(1),H_TX2(1)||' ')
1596: ,TX5=decode(H_TX5(1),null,H_TX5(1),H_TX5(1)||' ')
1689: WHILE (l_tryins OR l_tryupd) LOOP
1690: IF l_tryins THEN
1691: BEGIN
1692: l_tryins:=FALSE;
1693: INSERT INTO HZ_STAGED_CONTACTS (
1694: ORG_CONTACT_ID
1695: ,PARTY_ID
1696: ,STATUS_FLAG
1697: ,TX2
1727:
1728: IF l_tryupd THEN
1729: BEGIN
1730: l_tryupd:=FALSE;
1731: UPDATE HZ_STAGED_CONTACTS SET
1732: concat_col = concat_col
1733: ,status_flag = H_STATUS(1)
1734: ,TX2=decode(H_TX2(1),null,H_TX2(1),H_TX2(1)||' ')
1735: ,TX5=decode(H_TX5(1),null,H_TX5(1),H_TX5(1)||' ')
3788: l_en := H_ORG_CONTACT_ID.COUNT;
3789:
3790: IF p_operation = 'C' THEN
3791: BEGIN
3792: log ('Inserting Data into HZ_STAGED_CONTACTS...',FALSE);
3793: FORALL I in l_st..l_en SAVE EXCEPTIONS
3794: INSERT INTO HZ_STAGED_CONTACTS (
3795: ORG_CONTACT_ID
3796: ,PARTY_ID
3790: IF p_operation = 'C' THEN
3791: BEGIN
3792: log ('Inserting Data into HZ_STAGED_CONTACTS...',FALSE);
3793: FORALL I in l_st..l_en SAVE EXCEPTIONS
3794: INSERT INTO HZ_STAGED_CONTACTS (
3795: ORG_CONTACT_ID
3796: ,PARTY_ID
3797: ,STATUS_FLAG
3798: ,TX2
3841: END LOOP;
3842: END;
3843: ELSIF p_operation = 'U' THEN
3844: BEGIN
3845: log ('Updating Data in HZ_STAGED_CONTACTS...',FALSE);
3846: FORALL I in l_st..l_en SAVE EXCEPTIONS
3847: UPDATE HZ_STAGED_CONTACTS SET
3848: concat_col = concat_col
3849: ,status_flag = H_STATUS(I)
3843: ELSIF p_operation = 'U' THEN
3844: BEGIN
3845: log ('Updating Data in HZ_STAGED_CONTACTS...',FALSE);
3846: FORALL I in l_st..l_en SAVE EXCEPTIONS
3847: UPDATE HZ_STAGED_CONTACTS SET
3848: concat_col = concat_col
3849: ,status_flag = H_STATUS(I)
3850: ,TX2=decode(H_TX2(I),null,H_TX2(I),H_TX2(I)||' ')
3851: ,TX5=decode(H_TX5(I),null,H_TX5(I),H_TX5(I)||' ')