[Home] [Help]
585: BEGIN
586: l_account_found:=NULL;
587: SELECT 'x'
588: INTO l_account_found
589: FROM csi_ip_accounts
590: WHERE ip_account_id =p_party_account_tbl(l_acct_row).ip_account_id;
591: EXCEPTION
592: WHEN OTHERS THEN
593: l_account_found:=NULL;
747: CURSOR acct_csr (p_ins_pty_id IN NUMBER) IS
748: SELECT acct.party_account_id
749: ,acct.active_end_date
750: ,pty.instance_id
751: FROM csi_ip_accounts acct
752: ,csi_i_parties pty
753: WHERE acct.instance_party_id = p_ins_pty_id
754: AND acct.relationship_type_code = 'OWNER'
755: AND ((acct.active_end_date IS NULL) OR (acct.active_end_date>SYSDATE))
791: SELECT ip_account_id,
792: relationship_type_code,
793: object_version_number,
794: active_end_date -- Added for bug 7333900
795: FROM csi_ip_accounts
796: WHERE instance_party_id=p_inst_party_id
797: AND relationship_type_code <>'OWNER'
798: AND nvl(active_end_date, sysdate+1) >= sysdate;
799: --end of fix
1062: IF l_party_rec.instance_party_id IS NOT NULL THEN
1063: BEGIN
1064: SELECT party_account_id
1065: INTO l_old_parent_owner_pty_acct_id
1066: FROM csi_ip_accounts
1067: WHERE instance_party_id = l_party_rec.instance_party_id
1068: AND relationship_type_code = 'OWNER';
1069: EXCEPTION
1070: WHEN NO_DATA_FOUND THEN
1083: AND p_party_account_tbl(l_row).ip_account_id <> fnd_api.g_miss_num
1084: THEN
1085: SELECT acct.object_version_number
1086: INTO l_obj_ver_number
1087: FROM csi_ip_accounts acct
1088: WHERE acct.ip_account_id= p_party_account_tbl(l_row).ip_account_id;
1089: END IF;
1090: EXCEPTION
1091: WHEN OTHERS THEN
1181: l_found := TRUE;
1182: BEGIN
1183: SELECT acct.object_version_number
1184: INTO p_party_account_tbl(l_arow).object_version_number
1185: FROM csi_ip_accounts acct
1186: WHERE acct.ip_account_id= p_party_account_tbl(l_arow).ip_account_id;
1187: EXCEPTION
1188: WHEN OTHERS THEN
1189: NULL;
1197: IF p_txn_rec.transaction_type_id = 7 THEN -- only for Account Merge
1198: BEGIN
1199: SELECT acct.object_version_number,acct.active_end_date
1200: INTO p_party_account_tbl(l_acct_row).object_version_number,l_end_date
1201: FROM csi_ip_accounts acct
1202: WHERE acct.ip_account_id= p_party_account_tbl(l_acct_row).ip_account_id;
1203: -- Commenting for bug 3692167 as it will fail the unique constraint.
1204: -- At any time there should be one active record in combination of
1205: -- (party_account_id,relationship_type_code) associated to an
1386: object_version_number
1387: INTO l_exp_acct_rec.ip_account_id,
1388: l_exp_acct_rec.relationship_type_code,
1389: l_exp_acct_rec.object_version_number
1390: FROM csi_ip_accounts
1391: WHERE instance_party_id=p_party_tbl(p_row).instance_party_id
1392: AND relationship_type_code ='OWNER'
1393: AND nvl(active_end_date, sysdate+1) >= sysdate;
1394: l_exp_acct_rec.active_end_date :=SYSDATE;
1508: ,l_ip_acct_rec.attribute12
1509: ,l_ip_acct_rec.attribute13
1510: ,l_ip_acct_rec.attribute14
1511: ,l_ip_acct_rec.attribute15
1512: FROM csi_ip_accounts
1513: WHERE instance_party_id = l_old_party_tbl(l_old_party_row).instance_party_id
1514: AND relationship_type_code = 'OWNER'
1515: AND SYSDATE BETWEEN nvl(active_start_date, SYSDATE-1)
1516: AND nvl(active_end_date, SYSDATE+1);
1616:
1617: BEGIN
1618: SELECT party_account_id
1619: INTO l_cld_party_acct_id
1620: FROM csi_ip_accounts
1621: WHERE instance_party_id = l_cld_party_rec.instance_party_id
1622: AND relationship_type_code = 'OWNER'
1623: AND SYSDATE BETWEEN nvl(active_start_date, sysdate-1)
1624: AND nvl(active_end_date, sysdate+1);
1648: IF l_cld_party_rec.instance_party_id IS NOT NULL THEN
1649: BEGIN
1650: SELECT party_account_id
1651: INTO l_old_child_owner_pty_acct_id
1652: FROM csi_ip_accounts
1653: WHERE instance_party_id = l_cld_party_rec.instance_party_id
1654: AND relationship_type_code = 'OWNER';
1655: EXCEPTION
1656: WHEN NO_DATA_FOUND THEN
1781: object_version_number
1782: INTO l_exp_acct_rec.ip_account_id,
1783: l_exp_acct_rec.relationship_type_code,
1784: l_exp_acct_rec.object_version_number
1785: FROM csi_ip_accounts
1786: WHERE instance_party_id=l_cld_party_rec.instance_party_id
1787: AND relationship_type_code ='OWNER';
1788: -- Bug 3804960
1789: -- srramakr Need to use the same the date used by the item instance
2164: l_select_stmt VARCHAR2(2000) := ' SELECT ip_account_id , instance_party_id, party_account_id, '||
2165: ' relationship_type_code, active_start_date, active_end_date,context , attribute1, '||
2166: ' attribute2, attribute3, attribute4, attribute5, attribute6, attribute7,attribute8, '||
2167: ' attribute9, attribute10,attribute11, attribute12,attribute13,attribute14,attribute15, '||
2168: ' object_version_number, bill_to_address, ship_to_address from csi_ip_accounts ';
2169:
2170:
2171: BEGIN
2172: -- Standard Start of API savepoint
2626: pty.party_id
2627: INTO l_temp_account_tbl(l_acct_row).ip_account_id,
2628: l_temp_account_tbl(l_acct_row).party_account_id,
2629: l_temp_account_tbl(l_acct_row).attribute1
2630: FROM csi_ip_accounts acct,
2631: csi_i_parties pty
2632: WHERE acct.ip_account_id = p_party_account_tbl(l_count).ip_account_id
2633: AND acct.instance_party_id = pty.instance_party_id;
2634:
2752: pty.party_id
2753: INTO l_party_account_tbl(l_old_party_row).ip_account_id,
2754: l_party_account_tbl(l_old_party_row).object_version_number,
2755: l_party_id
2756: FROM csi_ip_accounts acct,
2757: csi_i_parties pty
2758: WHERE pty.instance_party_id = acct.instance_party_id
2759: AND pty.instance_id = l_rel_tbl(j).subject_id
2760: AND acct.relationship_type_code = 'OWNER'