APPS.OKE_FIX_MERGE_PUB dependencies on OKC_K_PARTY_ROLES_B

Line 70: FROM okc_k_party_roles_b

66:
67: CURSOR list_of_parties (k_header_id NUMBER) IS
68: SELECT id,jtot_object1_code,
69: object1_id1,object1_id2,last_update_date
70: FROM okc_k_party_roles_b
71: WHERE DNZ_CHR_ID=k_header_id
72: AND JTOT_OBJECT1_CODE IN
73: ('OKE_CUST_KADMIN','OKE_BILLTO','OKE_CUSTACCT','OKE_MARKFOR','OKE_SHIPTO');
74:

Line 80: -- iterate through rows in OKC_K_PARTY_ROLES_B

76: l_final_id VARCHAR2(80);
77:
78: BEGIN
79:
80: -- iterate through rows in OKC_K_PARTY_ROLES_B
81: -- for each contract
82: OPEN list_of_parties(k_header_id);
83: LOOP
84: FETCH list_of_parties INTO l_party_role;

Line 91: UPDATE OKC_K_PARTY_ROLES_B

87: IF l_party_role.JTOT_OBJECT1_CODE = 'OKE_CUSTACCT' THEN
88: l_final_id:=merge_cust_acct(l_party_role.object1_id1,
89: l_party_role.last_update_date,to_date('01-01-1990','MM-DD-YYYY'));
90:
91: UPDATE OKC_K_PARTY_ROLES_B
92: SET OBJECT1_ID1 = l_final_id,
93: LAST_UPDATE_DATE = SYSDATE,
94: LAST_UPDATED_BY = -1
95: WHERE ID = l_party_role.id;

Line 101: UPDATE OKC_K_PARTY_ROLES_B

97: ELSE
98: l_final_id:=merge_cust_acct_site_use(l_party_role.object1_id1,
99: l_party_role.last_update_date,to_date('01-01-1990','MM-DD-YYYY'));
100:
101: UPDATE OKC_K_PARTY_ROLES_B
102: SET OBJECT1_ID1 = l_final_id,
103: LAST_UPDATE_DATE = SYSDATE,
104: LAST_UPDATED_BY = -1
105: WHERE ID = l_party_role.id;