DBA Data[Home] [Help]

APPS.PAP_CMERGE dependencies on PA_PROJECT_CUSTOMERS

Line 5: -- function to retrieve new customer id for pa_project_customers table

1: PACKAGE BODY PAP_CMERGE AS
2: -- $Header: PAPCMR3B.pls 120.9.12020000.2 2012/07/19 09:52:22 admarath ship $
3: /* */
4: --
5: -- function to retrieve new customer id for pa_project_customers table
6: -- using current customer id only.
7: --
8: FUNCTION RETRIEVE_CUSTOMER_ID( set_no IN NUMBER ) RETURN BOOLEAN IS
9: BEGIN

Line 27: -- exist in pa_project_customers.

23: RETURN TRUE;
24: END RETRIEVE_CUSTOMER_ID;
25: --
26: -- function to verify whether duplicate index record ( project_id + customer_id )
27: -- exist in pa_project_customers.
28: --
29: FUNCTION CHECK_DUPLICATE_INDEX RETURN BOOLEAN IS
30: BEGIN
31: SELECT CUSTOMER_BILL_SPLIT

Line 33: FROM PA_PROJECT_CUSTOMERS PC

29: FUNCTION CHECK_DUPLICATE_INDEX RETURN BOOLEAN IS
30: BEGIN
31: SELECT CUSTOMER_BILL_SPLIT
32: INTO new_customer_bill_split
33: FROM PA_PROJECT_CUSTOMERS PC
34: WHERE PC.PROJECT_ID = var_project_id
35: AND PC.CUSTOMER_ID = new_customer_id;
36: RETURN FALSE;
37: EXCEPTION

Line 51: FROM pa_project_customers PA,RA_CUSTOMER_MERGES RACM

47: PROCEDURE MERGE ( req_id IN NUMBER, set_no IN NUMBER, process_mode IN VARCHAR2 ) IS
48: --
49: /* CURSOR cursor_1 IS SELECT DISTINCT PA.PROJECT_ID, PA.CUSTOMER_ID, PA.BILL_TO_ADDRESS_ID,
50: PA.SHIP_TO_ADDRESS_ID,PA.BILL_TO_CUSTOMER_ID,PA.SHIP_TO_CUSTOMER_ID, DEFAULT_TOP_TASK_CUST_FLAG -- FP_M Changes
51: FROM pa_project_customers PA,RA_CUSTOMER_MERGES RACM
52: WHERE RACM.PROCESS_FLAG = 'N'
53: AND RACM.SET_NUMBER = set_no
54: AND (PA.CUSTOMER_ID=RACM.DUPLICATE_ID
55: OR PA.BILL_TO_CUSTOMER_ID=RACM.DUPLICATE_ID

Line 65: FROM pa_project_customers PA

61:
62: /* Modified cursor for bug 3938428*/
63: /*CURSOR cursor_1 IS SELECT PA.PROJECT_ID, PA.CUSTOMER_ID, PA.BILL_TO_ADDRESS_ID,
64: PA.SHIP_TO_ADDRESS_ID,PA.BILL_TO_CUSTOMER_ID,PA.SHIP_TO_CUSTOMER_ID , DEFAULT_TOP_TASK_CUST_FLAG -- FP_M Changes
65: FROM pa_project_customers PA
66: WHERE EXISTS (
67: SELECT 1 FROM RA_CUSTOMER_MERGES RACM
68: WHERE RACM.PROCESS_FLAG = 'N'
69: AND RACM.SET_NUMBER = set_no

Line 97: FROM PA_PROJECT_CUSTOMERS PA,

93: PA.SHIP_TO_ADDRESS_ID,
94: PA.BILL_TO_CUSTOMER_ID,
95: PA.SHIP_TO_CUSTOMER_ID,
96: DEFAULT_TOP_TASK_CUST_FLAG
97: FROM PA_PROJECT_CUSTOMERS PA,
98: MERGE_DUPS MD
99: WHERE ( PA.CUSTOMER_ID = MD.DUPLICATE_ID
100: OR PA.BILL_TO_CUSTOMER_ID = MD.DUPLICATE_ID
101: OR PA.SHIP_TO_CUSTOMER_ID = MD.DUPLICATE_ID )

Line 116: SELECT CUSTOMER_ID FROM pa_project_customers PC

112: WHERE PROCESS_FLAG = 'N'
113: AND SET_NUMBER = set_no;
114: --
115: CURSOR cursor_lock_1 IS
116: SELECT CUSTOMER_ID FROM pa_project_customers PC
117: WHERE
118: PC.CUSTOMER_ID IN ( SELECT DISTINCT RACM.DUPLICATE_ID
119: FROM RA_CUSTOMER_MERGES RACM
120: WHERE RACM.PROCESS_FLAG = 'N'

Line 198: var_bill_to_address_id pa_project_customers.bill_to_address_id%TYPE;

194: WHERE RACM.PROCESS_FLAG = 'N'
195: AND RACM.SET_NUMBER = set_no )
196: FOR UPDATE NOWAIT;
197: --
198: var_bill_to_address_id pa_project_customers.bill_to_address_id%TYPE;
199: var_ship_to_address_id pa_project_customers.ship_to_address_id%TYPE;
200: var_bill_to_cust_id pa_project_customers.bill_to_customer_id%TYPE;
201: var_ship_to_cust_id pa_project_customers.ship_to_customer_id%TYPE;
202: var_Default_Top_Task_Cust_Flag pa_project_customers.DEFAULT_TOP_TASK_CUST_FLAG%TYPE;

Line 199: var_ship_to_address_id pa_project_customers.ship_to_address_id%TYPE;

195: AND RACM.SET_NUMBER = set_no )
196: FOR UPDATE NOWAIT;
197: --
198: var_bill_to_address_id pa_project_customers.bill_to_address_id%TYPE;
199: var_ship_to_address_id pa_project_customers.ship_to_address_id%TYPE;
200: var_bill_to_cust_id pa_project_customers.bill_to_customer_id%TYPE;
201: var_ship_to_cust_id pa_project_customers.ship_to_customer_id%TYPE;
202: var_Default_Top_Task_Cust_Flag pa_project_customers.DEFAULT_TOP_TASK_CUST_FLAG%TYPE;
203: not_found_flag BOOLEAN;

Line 200: var_bill_to_cust_id pa_project_customers.bill_to_customer_id%TYPE;

196: FOR UPDATE NOWAIT;
197: --
198: var_bill_to_address_id pa_project_customers.bill_to_address_id%TYPE;
199: var_ship_to_address_id pa_project_customers.ship_to_address_id%TYPE;
200: var_bill_to_cust_id pa_project_customers.bill_to_customer_id%TYPE;
201: var_ship_to_cust_id pa_project_customers.ship_to_customer_id%TYPE;
202: var_Default_Top_Task_Cust_Flag pa_project_customers.DEFAULT_TOP_TASK_CUST_FLAG%TYPE;
203: not_found_flag BOOLEAN;
204: records_locked EXCEPTION;

Line 201: var_ship_to_cust_id pa_project_customers.ship_to_customer_id%TYPE;

197: --
198: var_bill_to_address_id pa_project_customers.bill_to_address_id%TYPE;
199: var_ship_to_address_id pa_project_customers.ship_to_address_id%TYPE;
200: var_bill_to_cust_id pa_project_customers.bill_to_customer_id%TYPE;
201: var_ship_to_cust_id pa_project_customers.ship_to_customer_id%TYPE;
202: var_Default_Top_Task_Cust_Flag pa_project_customers.DEFAULT_TOP_TASK_CUST_FLAG%TYPE;
203: not_found_flag BOOLEAN;
204: records_locked EXCEPTION;
205: total_record_upd_count NUMBER := 0;

Line 202: var_Default_Top_Task_Cust_Flag pa_project_customers.DEFAULT_TOP_TASK_CUST_FLAG%TYPE;

198: var_bill_to_address_id pa_project_customers.bill_to_address_id%TYPE;
199: var_ship_to_address_id pa_project_customers.ship_to_address_id%TYPE;
200: var_bill_to_cust_id pa_project_customers.bill_to_customer_id%TYPE;
201: var_ship_to_cust_id pa_project_customers.ship_to_customer_id%TYPE;
202: var_Default_Top_Task_Cust_Flag pa_project_customers.DEFAULT_TOP_TASK_CUST_FLAG%TYPE;
203: not_found_flag BOOLEAN;
204: records_locked EXCEPTION;
205: total_record_upd_count NUMBER := 0;
206: total_record_del_count NUMBER := 0;

Line 233: ARP_MESSAGE.SET_TOKEN( 'TABLE_NAME', 'PA_PROJECT_CUSTOMERS', FALSE );

229: --
230: IF process_mode = 'LOCK' THEN
231: --
232: ARP_MESSAGE.SET_NAME( 'AR', 'AR_LOCKING_TABLE' );
233: ARP_MESSAGE.SET_TOKEN( 'TABLE_NAME', 'PA_PROJECT_CUSTOMERS', FALSE );
234: --
235: open cursor_lock_1;
236: close cursor_lock_1;
237: --

Line 292: ARP_MESSAGE.SET_TOKEN( 'TABLE_NAME', 'PA_PROJECT_CUSTOMERS' );

288: --
289: END IF;
290: --
291: ARP_MESSAGE.SET_NAME( 'AR', 'AR_UPDATING_TABLE' );
292: ARP_MESSAGE.SET_TOKEN( 'TABLE_NAME', 'PA_PROJECT_CUSTOMERS' );
293: --
294: /* Added for Bug 3891382. The logic prevents deletion of the customer being
295: merged, if the customer is having sites in single org unit and is being
296: referenced in other org units. */

Line 308: SELECT count(*) INTO var_count1 FROM pa_project_customers

304: EXIT WHEN cursor_2%NOTFOUND;
305:
306: IF var_dup_flag = 'Y' and var_cust_id <> var_dup_id THEN /* for bug 6732730*/
307: /* Modified to var_cust_id for bug 7341412 */
308: SELECT count(*) INTO var_count1 FROM pa_project_customers
309: WHERE customer_id = var_dup_id
310: AND project_id NOT IN (
311: SELECT project_id FROM pa_projects);
312:

Line 349: -- this loop fetches each row from pa_project_customers table and verifies whether

345:
346: OPEN cursor_1;
347: --
348: --
349: -- this loop fetches each row from pa_project_customers table and verifies whether
350: -- duplicate index ( project_id + customer_id ) exist and if it does then it would
351: -- delete the duplicate index row and add the customer bill split to the updated
352: -- row so that sum of the customer bill split for all the customers for that project
353: -- equals 100%.

Line 357: -- fetch each row from pa_project_customers table.

353: -- equals 100%.
354: --
355: LOOP
356: --
357: -- fetch each row from pa_project_customers table.
358: --
359: FETCH cursor_1 INTO var_project_id, var_customer_id,
360: var_bill_to_address_id,
361: var_ship_to_address_id,

Line 383: FROM PA_PROJECT_CUSTOMERS PC

379: not_found_flag := CHECK_DUPLICATE_INDEX;
380:
381: SELECT CUSTOMER_BILL_SPLIT
382: INTO var_customer_bill_split
383: FROM PA_PROJECT_CUSTOMERS PC
384: WHERE PC.PROJECT_ID = var_project_id
385: AND PC.CUSTOMER_ID = old_customer_id;
386:
387: /*Bug5462389*/

Line 440: 'PA_PROJECT_CUSTOMERS',

436: DEL_COL24 -- FP_M Changes
437: )
438: ( SELECT
439: HZ_CUSTOMER_MERGE_LOG_s.nextval,
440: 'PA_PROJECT_CUSTOMERS',
441: RACM.CUSTOMER_MERGE_HEADER_ID,
442: var_project_id,
443: new_customer_id,
444: 'D',

Line 475: FROM PA_PROJECT_CUSTOMERS pc,ra_customer_merges RACM

471: ,PC.RETENTION_LEVEL_CODE
472: ,PC.BILL_TO_CUSTOMER_ID
473: ,PC.SHIP_TO_CUSTOMER_ID
474: ,PC.Default_Top_Task_Cust_Flag -- FP_M Changes
475: FROM PA_PROJECT_CUSTOMERS pc,ra_customer_merges RACM
476: WHERE RACM.DUPLICATE_ID = var_customer_id
477: AND PC.PROJECT_ID=var_project_id
478: AND PC.CUSTOMER_ID = var_customer_id
479: AND RACM.PROCESS_FLAG = 'N'

Line 488: DELETE FROM pa_project_customers PC

484: --
485: -- if duplicate index row exist then we need to delete this row
486: -- and update the customer bill split accordingly.
487: --
488: DELETE FROM pa_project_customers PC
489: WHERE PC.PROJECT_ID = var_project_id
490: AND PC.CUSTOMER_ID = var_customer_id;
491: --
492: total_record_del_count := total_record_del_count + 1;

Line 515: 'PA_PROJECT_CUSTOMERS',

511: LAST_UPDATED_BY
512: )
513: ( SELECT
514: HZ_CUSTOMER_MERGE_LOG_s.nextval,
515: 'PA_PROJECT_CUSTOMERS',
516: RACM.CUSTOMER_MERGE_HEADER_ID,
517: PC.project_id,
518: PC.customer_id,
519: PC.customer_bill_split,

Line 528: FROM PA_PROJECT_CUSTOMERS PC, ra_customer_merges RACM

524: hz_utility_pub.CREATION_DATE,
525: hz_utility_pub.LAST_UPDATE_LOGIN,
526: hz_utility_pub.LAST_UPDATE_DATE,
527: hz_utility_pub.LAST_UPDATED_BY
528: FROM PA_PROJECT_CUSTOMERS PC, ra_customer_merges RACM
529: WHERE PC.PROJECT_ID = var_project_id
530: AND PC.CUSTOMER_ID = new_customer_id
531: AND RACM.DUPLICATE_ID = var_customer_id
532: AND RACM.PROCESS_FLAG = 'N'

Line 539: UPDATE pa_project_customers PC

535:
536: END IF;
537: /* End of Tca audit*/
538:
539: UPDATE pa_project_customers PC
540: SET PC.CUSTOMER_BILL_SPLIT = PC.CUSTOMER_BILL_SPLIT +
541: var_customer_bill_split
542: WHERE
543: PC.PROJECT_ID = var_project_id

Line 552: UPDATE pa_project_customers PC

548: -- the Default_Top_task_Cust_Flag column also in Project Customers table
549: -- and
550: -- update the customer with new customer id in Project Tasks table
551: If var_Default_Top_Task_Cust_Flag = 'Y' then
552: UPDATE pa_project_customers PC
553: SET PC.Default_Top_Task_Cust_Flag = 'Y'
554: WHERE PC.PROJECT_ID = var_project_id
555: AND PC.CUSTOMER_ID = new_customer_id;
556: End IF; /* Added for bug 4218767*/

Line 562: -- update pa_project_customers table for bill to address id, this is necessary

558: /*Bug5462389:moved the update on pa_tasks before the IF condition*/
559: -- End of FP_M Changes
560: ELSE
561: --
562: -- update pa_project_customers table for bill to address id, this is necessary
563: -- because if we update customer id also then we would not be able to update
564: -- ship to address id.
565: --
566:

Line 587: 'PA_PROJECT_CUSTOMERS',

583: LAST_UPDATE_DATE,
584: LAST_UPDATED_BY)
585: ( SELECT
586: HZ_CUSTOMER_MERGE_LOG_s.nextval,
587: 'PA_PROJECT_CUSTOMERS',
588: RACM.CUSTOMER_MERGE_HEADER_ID,
589: PC.project_id,
590: PC.customer_id,
591: PC.bill_to_address_id,

Line 600: FROM PA_PROJECT_CUSTOMERS PC, RA_CUSTOMER_MERGES RACM

596: hz_utility_pub.CREATION_DATE,
597: hz_utility_pub.LAST_UPDATE_LOGIN,
598: hz_utility_pub.LAST_UPDATE_DATE,
599: hz_utility_pub.LAST_UPDATED_BY
600: FROM PA_PROJECT_CUSTOMERS PC, RA_CUSTOMER_MERGES RACM
601: WHERE RACM.DUPLICATE_ID = var_bill_to_cust_id /*CACR*/
602: AND RACM.DUPLICATE_ADDRESS_ID = PC.BILL_TO_ADDRESS_ID
603: AND RACM.PROCESS_FLAG = 'N'
604: AND RACM.SET_NUMBER = set_no

Line 612: UPDATE pa_project_customers PC

608:
609: END IF;
610: /* End of TCA audit*/
611:
612: UPDATE pa_project_customers PC
613: SET ( BILL_TO_ADDRESS_ID ) = ( SELECT DISTINCT RACM.CUSTOMER_ADDRESS_ID
614: FROM RA_CUSTOMER_MERGES RACM
615: WHERE RACM.DUPLICATE_ID = var_bill_to_cust_id /*CACR*/
616: AND RACM.DUPLICATE_ADDRESS_ID = PC.BILL_TO_ADDRESS_ID

Line 633: -- update pa_project_customers table for customer_id and ship_to_address_id.

629: AND RACM.CUSTOMER_SITE_CODE = 'BILL_TO' )
630: AND PC.PROJECT_ID = var_project_id
631: AND PC.BILL_TO_CUSTOMER_ID = var_bill_to_cust_id; /* for bug 11842127 */
632: --
633: -- update pa_project_customers table for customer_id and ship_to_address_id.
634: --
635: IF g_audit_profile='Y' THEN
636:
637: INSERT INTO HZ_CUSTOMER_MERGE_LOG (

Line 654: 'PA_PROJECT_CUSTOMERS',

650: LAST_UPDATE_DATE,
651: LAST_UPDATED_BY)
652: ( SELECT
653: HZ_CUSTOMER_MERGE_LOG_s.nextval,
654: 'PA_PROJECT_CUSTOMERS',
655: RACM.CUSTOMER_MERGE_HEADER_ID,
656: PC.project_id,
657: PC.customer_id,
658: PC.ship_to_address_id,

Line 667: FROM PA_PROJECT_CUSTOMERS PC, RA_CUSTOMER_MERGES RACM

663: hz_utility_pub.CREATION_DATE,
664: hz_utility_pub.LAST_UPDATE_LOGIN,
665: hz_utility_pub.LAST_UPDATE_DATE,
666: hz_utility_pub.LAST_UPDATED_BY
667: FROM PA_PROJECT_CUSTOMERS PC, RA_CUSTOMER_MERGES RACM
668: WHERE RACM.DUPLICATE_ID = var_ship_to_cust_id /*CACR*/
669: AND RACM.DUPLICATE_ADDRESS_ID = PC.SHIP_TO_ADDRESS_ID
670: AND RACM.PROCESS_FLAG = 'N'
671: AND RACM.SET_NUMBER = set_no

Line 678: UPDATE pa_project_customers PC

674: AND PC.CUSTOMER_ID = var_customer_id);
675:
676: END IF;
677:
678: UPDATE pa_project_customers PC
679: SET ( SHIP_TO_ADDRESS_ID ) = ( SELECT DISTINCT RACM.CUSTOMER_ADDRESS_ID
680: FROM RA_CUSTOMER_MERGES RACM
681: WHERE RACM.DUPLICATE_ID = var_ship_to_cust_id /*CACR*/
682: AND RACM.DUPLICATE_ADDRESS_ID = PC.SHIP_TO_ADDRESS_ID

Line 720: 'PA_PROJECT_CUSTOMERS',

716: LAST_UPDATE_DATE,
717: LAST_UPDATED_BY)
718: ( SELECT
719: HZ_CUSTOMER_MERGE_LOG_s.nextval,
720: 'PA_PROJECT_CUSTOMERS',
721: RACM.CUSTOMER_MERGE_HEADER_ID,
722: PC.project_id,
723: PC.customer_id,
724: PC.bill_to_customer_id,

Line 733: FROM PA_PROJECT_CUSTOMERS PC, RA_CUSTOMER_MERGES RACM

729: hz_utility_pub.CREATION_DATE,
730: hz_utility_pub.LAST_UPDATE_LOGIN,
731: hz_utility_pub.LAST_UPDATE_DATE,
732: hz_utility_pub.LAST_UPDATED_BY
733: FROM PA_PROJECT_CUSTOMERS PC, RA_CUSTOMER_MERGES RACM
734: WHERE RACM.DUPLICATE_ID = var_bill_to_cust_id /*CACR*/
735: AND RACM.PROCESS_FLAG = 'N'
736: AND RACM.SET_NUMBER = set_no
737: AND PC.PROJECT_ID = var_project_id

Line 743: UPDATE pa_project_customers PC

739: AND RACM.CUSTOMER_ID<>RACM.DUPLICATE_ID
740: AND ROWNUM=1);
741: END IF;
742:
743: UPDATE pa_project_customers PC
744: SET ( BILL_TO_CUSTOMER_ID ) = ( SELECT DISTINCT RACM.CUSTOMER_ID
745: FROM RA_CUSTOMER_MERGES RACM
746: WHERE RACM.DUPLICATE_ID = var_bill_to_cust_id
747: AND RACM.PROCESS_FLAG = 'N'

Line 779: 'PA_PROJECT_CUSTOMERS',

775: LAST_UPDATE_DATE,
776: LAST_UPDATED_BY)
777: ( SELECT
778: HZ_CUSTOMER_MERGE_LOG_s.nextval,
779: 'PA_PROJECT_CUSTOMERS',
780: RACM.CUSTOMER_MERGE_HEADER_ID,
781: PC.project_id,
782: PC.customer_id,
783: PC.ship_to_customer_id,

Line 792: FROM PA_PROJECT_CUSTOMERS PC, RA_CUSTOMER_MERGES RACM

788: hz_utility_pub.CREATION_DATE,
789: hz_utility_pub.LAST_UPDATE_LOGIN,
790: hz_utility_pub.LAST_UPDATE_DATE,
791: hz_utility_pub.LAST_UPDATED_BY
792: FROM PA_PROJECT_CUSTOMERS PC, RA_CUSTOMER_MERGES RACM
793: WHERE RACM.DUPLICATE_ID = var_ship_to_cust_id /*CACR*/
794: AND RACM.PROCESS_FLAG = 'N'
795: AND RACM.SET_NUMBER = set_no
796: AND PC.PROJECT_ID = var_project_id

Line 802: UPDATE pa_project_customers PC

798: AND RACM.CUSTOMER_ID<>RACM.DUPLICATE_ID
799: AND ROWNUM=1);
800: END IF;
801:
802: UPDATE pa_project_customers PC
803: SET ( SHIP_TO_CUSTOMER_ID ) = ( SELECT DISTINCT RACM.CUSTOMER_ID
804: FROM RA_CUSTOMER_MERGES RACM
805: WHERE RACM.DUPLICATE_ID = var_ship_to_cust_id
806: AND RACM.PROCESS_FLAG = 'N'

Line 819: -- update pa_project_customers for customer_id only, this is necessary because

815: AND RACM.SET_NUMBER = set_no )
816: AND PC.PROJECT_ID = var_project_id
817: AND PC.SHIP_TO_CUSTOMER_ID = var_ship_to_cust_id; /* for bug 11842127 */
818: --
819: -- update pa_project_customers for customer_id only, this is necessary because
820: -- if in the previous update if ship_to_address_id is null then customer_id
821: -- would not get updated.
822: --
823:

Line 842: 'PA_PROJECT_CUSTOMERS',

838: LAST_UPDATE_LOGIN,
839: LAST_UPDATE_DATE,
840: LAST_UPDATED_BY)
841: ( select HZ_CUSTOMER_MERGE_LOG_s.nextval,
842: 'PA_PROJECT_CUSTOMERS',
843: RACM.CUSTOMER_MERGE_HEADER_ID,
844: PC.project_id,
845: RACM.CUSTOMER_ID,
846: PC.customer_id,

Line 855: FROM PA_PROJECT_CUSTOMERS PC, ra_customer_merges RACM

851: hz_utility_pub.CREATION_DATE,
852: hz_utility_pub.LAST_UPDATE_LOGIN,
853: hz_utility_pub.LAST_UPDATE_DATE,
854: hz_utility_pub.LAST_UPDATED_BY
855: FROM PA_PROJECT_CUSTOMERS PC, ra_customer_merges RACM
856: WHERE RACM.DUPLICATE_ID = var_customer_id
857: AND RACM.PROCESS_FLAG = 'N'
858: AND RACM.SET_NUMBER = set_no
859: AND PC.PROJECT_ID = var_project_id

Line 865: UPDATE pa_project_customers PC

861: AND RACM.CUSTOMER_ID<>RACM.DUPLICATE_ID
862: AND ROWNUM=1 );
863:
864: END IF;
865: UPDATE pa_project_customers PC
866: SET ( CUSTOMER_ID ) = ( SELECT DISTINCT RACM.CUSTOMER_ID
867: FROM RA_CUSTOMER_MERGES RACM
868: WHERE RACM.DUPLICATE_ID = var_customer_id
869: AND RACM.PROCESS_FLAG = 'N'