[Home] [Help]
1495:
1496: -- Start API body
1497: --
1498: -- Check if all the required parameters are passed
1499: CSI_Instance_parties_vld_pvt.Check_Reqd_Param_num
1500: ( p_party_rec.INSTANCE_ID ,
1501: ' p_party_rec.INSTANCE_ID ',
1502: l_api_name );
1503: CSI_Instance_parties_vld_pvt.Check_Reqd_Param_char
1499: CSI_Instance_parties_vld_pvt.Check_Reqd_Param_num
1500: ( p_party_rec.INSTANCE_ID ,
1501: ' p_party_rec.INSTANCE_ID ',
1502: l_api_name );
1503: CSI_Instance_parties_vld_pvt.Check_Reqd_Param_char
1504: ( p_party_rec.PARTY_SOURCE_TABLE ,
1505: ' p_party_rec.PARTY_SOURCE_TABLE ',
1506: l_api_name );
1507: CSI_Instance_parties_vld_pvt.Check_Reqd_Param_num
1503: CSI_Instance_parties_vld_pvt.Check_Reqd_Param_char
1504: ( p_party_rec.PARTY_SOURCE_TABLE ,
1505: ' p_party_rec.PARTY_SOURCE_TABLE ',
1506: l_api_name );
1507: CSI_Instance_parties_vld_pvt.Check_Reqd_Param_num
1508: ( p_party_rec.PARTY_ID ,
1509: ' p_party_rec.PARTY_ID ',
1510: l_api_name );
1511:
1508: ( p_party_rec.PARTY_ID ,
1509: ' p_party_rec.PARTY_ID ',
1510: l_api_name );
1511:
1512: CSI_Instance_parties_vld_pvt.Check_Reqd_Param_char
1513: ( p_party_rec.RELATIONSHIP_TYPE_CODE,
1514: ' p_party_rec.RELATIONSHIP_TYPE_CODE',
1515: l_api_name );
1516:
1513: ( p_party_rec.RELATIONSHIP_TYPE_CODE,
1514: ' p_party_rec.RELATIONSHIP_TYPE_CODE',
1515: l_api_name );
1516:
1517: CSI_Instance_parties_vld_pvt.Check_Reqd_Param_char
1518: ( p_party_rec.CONTACT_FLAG,
1519: ' p_party_rec.CONTACT_FLAG',
1520: l_api_name );
1521:
1572: END IF;
1573: --
1574: IF l_record_found THEN
1575: /* -- Commented by sk for bug 2232880
1576: IF (CSI_Instance_parties_vld_pvt.Is_Party_Expired
1577: (p_party_rec)) THEN
1578: IF (p_party_rec.ACTIVE_END_DATE = FND_API.G_MISS_DATE) THEN
1579: p_party_rec.ACTIVE_END_DATE := NULL;
1580: END IF;
1612: ELSE -- -- Added by sk for bug 2232880 l_record not found
1613: --END IF; -- commented by sk for bug 2232880
1614: -- Verify if the Party rel combination exists
1615: IF p_called_from_grp <> FND_API.G_TRUE THEN
1616: IF (CSI_Instance_parties_vld_pvt.Is_Party_Rel_Comb_Exists
1617: (p_party_rec.instance_id ,
1618: p_party_rec.party_source_table ,
1619: p_party_rec.party_id ,
1620: p_party_rec.relationship_type_code ,
1631: -- If the instance_party_id passed is null then generate from sequence
1632: -- and check if the value exists . If exists then generate
1633: -- again from the sequence till we get a value that does not exist
1634: while l_process_flag loop
1635: p_party_rec.INSTANCE_PARTY_ID := CSI_Instance_parties_vld_pvt.gen_inst_party_id;
1636: IF NOT(CSI_Instance_parties_vld_pvt.Is_Inst_PartyID_exists(p_party_rec.INSTANCE_PARTY_ID,
1637: FALSE )) THEN
1638: l_process_flag := FALSE;
1639: END IF;
1632: -- and check if the value exists . If exists then generate
1633: -- again from the sequence till we get a value that does not exist
1634: while l_process_flag loop
1635: p_party_rec.INSTANCE_PARTY_ID := CSI_Instance_parties_vld_pvt.gen_inst_party_id;
1636: IF NOT(CSI_Instance_parties_vld_pvt.Is_Inst_PartyID_exists(p_party_rec.INSTANCE_PARTY_ID,
1637: FALSE )) THEN
1638: l_process_flag := FALSE;
1639: END IF;
1640: end loop;
1639: END IF;
1640: end loop;
1641: ELSE
1642: -- Validate the instance_party_id if exist then raise CSI_API_INVALID_PRIMARY_KEY error
1643: IF CSI_Instance_parties_vld_pvt.Is_Inst_PartyID_exists(p_party_rec.INSTANCE_PARTY_ID,
1644: TRUE ) THEN
1645: RAISE FND_API.G_EXC_ERROR;
1646: END IF;
1647: END IF;
1647: END IF;
1648:
1649: -- Verify if the instance_id exists in csi_item_instances
1650: IF p_called_from_grp <> FND_API.G_TRUE THEN
1651: IF NOT(CSI_Instance_parties_vld_pvt.Is_InstanceID_Valid(p_party_rec.INSTANCE_ID)) THEN
1652: RAISE FND_API.G_EXC_ERROR;
1653: END IF;
1654: END IF;
1655:
1677: --
1678: IF l_exists_flag = 'N' THEN
1679: p_party_count_rec.party_source_count := p_party_count_rec.party_source_count + 1;
1680: p_party_source_tbl(p_party_count_rec.party_source_count).party_source_table := p_party_rec.PARTY_SOURCE_TABLE;
1681: IF NOT(CSI_Instance_parties_vld_pvt.Is_Pty_Source_tab_Valid(p_party_rec.PARTY_SOURCE_TABLE)) THEN
1682: p_party_source_tbl(p_party_count_rec.party_source_count).valid_flag := 'N';
1683: RAISE FND_API.G_EXC_ERROR;
1684: ELSE
1685: p_party_source_tbl(p_party_count_rec.party_source_count).valid_flag := 'Y';
1715: p_party_count_rec.party_id_count := p_party_count_rec.party_id_count + 1;
1716: p_party_id_tbl(p_party_count_rec.party_id_count).party_id := p_party_rec.PARTY_ID;
1717: p_party_id_tbl(p_party_count_rec.party_id_count).party_source_table := p_party_rec.PARTY_SOURCE_TABLE;
1718: p_party_id_tbl(p_party_count_rec.party_id_count).contact_flag := p_party_rec.CONTACT_FLAG;
1719: IF NOT(CSI_Instance_parties_vld_pvt.Is_Party_Valid
1720: (p_party_rec.PARTY_SOURCE_TABLE ,
1721: p_party_rec.PARTY_ID ,
1722: p_party_rec.CONTACT_FLAG)) THEN
1723: p_party_id_tbl(p_party_count_rec.party_id_count).valid_flag := 'N';
1829: p_contact_tbl(p_party_count_rec.contact_id_count).contact_party_id := p_party_rec.PARTY_ID;
1830: p_contact_tbl(p_party_count_rec.contact_id_count).party_source_table := p_party_rec.PARTY_SOURCE_TABLE;
1831: p_contact_tbl(p_party_count_rec.contact_id_count).contact_ip_id := p_party_rec.CONTACT_IP_ID;
1832: /* code commented by sguthiva on 09-25-02 for bug 2377709
1833: IF NOT(CSI_Instance_parties_vld_pvt.Is_Contact_Valid
1834: (p_party_rec.PARTY_ID,
1835: p_party_rec.PARTY_SOURCE_TABLE,
1836: p_party_rec.CONTACT_IP_ID)) THEN
1837: p_contact_tbl(p_party_count_rec.contact_id_count).valid_flag := 'N';
1868: IF l_exists_flag <> 'Y' THEN
1869: p_party_count_rec.rel_type_count := p_party_count_rec.rel_type_count + 1;
1870: p_party_rel_type_tbl(p_party_count_rec.rel_type_count).rel_type_code := p_party_rec.RELATIONSHIP_TYPE_CODE;
1871: p_party_rel_type_tbl(p_party_count_rec.rel_type_count).contact_flag := 'C';
1872: IF NOT(CSI_Instance_parties_vld_pvt.Is_Pty_Rel_type_Valid
1873: (p_party_rec.RELATIONSHIP_TYPE_CODE,
1874: 'C' )) THEN
1875: p_party_rel_type_tbl(p_party_count_rec.rel_type_count).valid_flag := 'N';
1876: RAISE FND_API.G_EXC_ERROR;
1905: IF l_exists_flag <> 'Y' THEN
1906: p_party_count_rec.rel_type_count := p_party_count_rec.rel_type_count + 1;
1907: p_party_rel_type_tbl(p_party_count_rec.rel_type_count).rel_type_code := p_party_rec.RELATIONSHIP_TYPE_CODE;
1908: p_party_rel_type_tbl(p_party_count_rec.rel_type_count).contact_flag := 'P';
1909: IF NOT(CSI_Instance_parties_vld_pvt.Is_Pty_Rel_type_Valid
1910: (p_party_rec.RELATIONSHIP_TYPE_CODE,
1911: 'P' )) THEN
1912: p_party_rel_type_tbl(p_party_count_rec.rel_type_count).valid_flag := 'N';
1913: RAISE FND_API.G_EXC_ERROR;
1925: END IF;
1926:
1927: -- verify if the active_start_date is valid
1928: IF p_called_from_grp <> FND_API.G_TRUE THEN
1929: IF NOT(CSI_Instance_parties_vld_pvt.Is_StartDate_Valid
1930: (p_party_rec.ACTIVE_START_DATE,
1931: p_party_rec.ACTIVE_END_DATE ,
1932: p_party_rec.INSTANCE_ID )) THEN
1933: RAISE FND_API.G_EXC_ERROR;
1937: -- Verify if the active_end_date is valid
1938: IF p_called_from_grp <> FND_API.G_TRUE THEN
1939: IF ((p_party_rec.ACTIVE_END_DATE is NOT NULL) AND
1940: ( p_party_rec.ACTIVE_END_DATE <> FND_API.G_MISS_DATE)) THEN
1941: IF NOT(CSI_Instance_parties_vld_pvt.Is_EndDate_Valid(p_party_rec.ACTIVE_START_DATE,
1942: p_party_rec.ACTIVE_END_DATE ,
1943: p_party_rec.INSTANCE_ID,
1944: p_party_rec.INSTANCE_PARTY_ID,
1945: p_txn_rec.TRANSACTION_ID)) THEN
1950:
1951: -- Verify the instance owner exists already if exists then raise error
1952: IF p_called_from_grp <> FND_API.G_TRUE THEN
1953: IF p_party_rec.RELATIONSHIP_TYPE_CODE = 'OWNER' THEN
1954: IF CSI_Instance_parties_vld_pvt.Is_Inst_Owner_exists
1955: (p_instance_id => p_party_rec.INSTANCE_ID,
1956: p_instance_party_id => p_party_rec.instance_party_id ) THEN
1957: RAISE FND_API.G_EXC_ERROR;
1958: END IF;
1977: -- given instance party relationship
1978: IF p_called_from_grp <> FND_API.G_TRUE THEN
1979: IF p_party_rec.PRIMARY_FLAG = 'Y' THEN
1980: IF p_party_rec.CONTACT_FLAG = 'Y' THEN
1981: IF CSI_Instance_parties_vld_pvt.Is_Primary_Contact_Pty
1982: (p_party_rec.INSTANCE_ID,
1983: p_party_rec.CONTACT_IP_ID,
1984: p_party_rec.RELATIONSHIP_TYPE_CODE,
1985: p_party_rec.ACTIVE_START_DATE,
1993: FND_MESSAGE.SET_TOKEN('INSTANCE_ID',p_party_rec.INSTANCE_ID);
1994: FND_MSG_PUB.Add;
1995: RAISE FND_API.G_EXC_ERROR;
1996: ELSE
1997: IF CSI_Instance_parties_vld_pvt.Is_Primary_Pty
1998: (p_party_rec.INSTANCE_ID,
1999: p_party_rec.RELATIONSHIP_TYPE_CODE,
2000: p_party_rec.ACTIVE_START_DATE,
2001: p_party_rec.ACTIVE_END_DATE) THEN
2120: RAISE FND_API.G_EXC_ERROR;
2121: END IF;
2122:
2123: -- Generate a unique instance_party_history_id from the sequence
2124: l_inst_party_his_id := CSI_Instance_parties_vld_pvt.gen_inst_party_hist_id;
2125:
2126: -- Call table handlers to insert into csi_i_parties_h table
2127: CSI_I_PARTIES_H_PKG.Insert_Row
2128: (
2601: END IF;
2602: -- Start API body
2603: --
2604: -- Check if all the required parameters are passed
2605: CSI_Instance_parties_vld_pvt.Check_Reqd_Param_num
2606: ( p_party_rec.INSTANCE_PARTY_ID ,
2607: ' p_party_rec.INSTANCE_PARTY_ID ',
2608: l_api_name );
2609: --
2633: l_inst_just_expired := FND_API.G_FALSE;
2634: END;
2635: END IF;
2636: IF l_inst_just_expired = FND_API.G_FALSE
2637: AND NOT(CSI_Instance_parties_vld_pvt.Is_InstanceID_Valid(p_party_rec.INSTANCE_ID)) THEN
2638: RAISE FND_API.G_EXC_ERROR;
2639: END IF;
2640: END IF;
2641: -- Verify the instance owner exists already if exists then raise error
2639: END IF;
2640: END IF;
2641: -- Verify the instance owner exists already if exists then raise error
2642: IF p_party_rec.RELATIONSHIP_TYPE_CODE = 'OWNER' THEN
2643: IF CSI_Instance_parties_vld_pvt.Is_Inst_Owner_exists
2644: (p_instance_id => p_party_rec.INSTANCE_ID,
2645: p_instance_party_id => p_party_rec.instance_party_id ) THEN
2646: RAISE FND_API.G_EXC_ERROR;
2647: END IF;
2735: RAISE FND_API.G_EXC_ERROR;
2736: ELSE
2737: -- Verify if the active_end_date is valid
2738: IF (g_expire_party_flag <> 'Y') THEN
2739: IF NOT(CSI_Instance_parties_vld_pvt.Is_EndDate_Valid
2740: (l_curr_party_rec.ACTIVE_START_DATE,
2741: p_party_rec.ACTIVE_END_DATE ,
2742: p_party_rec.INSTANCE_ID,
2743: p_party_rec.INSTANCE_PARTY_ID,
2774: END IF;
2775:
2776: -- Verify the relationship_type_code is valid
2777: IF p_party_rec.contact_flag = 'Y' THEN
2778: IF NOT(CSI_Instance_parties_vld_pvt.Is_Pty_Rel_type_Valid
2779: (p_party_rec.RELATIONSHIP_TYPE_CODE,
2780: 'C' )) THEN
2781: RAISE FND_API.G_EXC_ERROR;
2782: END IF;
2781: RAISE FND_API.G_EXC_ERROR;
2782: END IF;
2783: ELSE
2784: -- Verify the relationship_type_code is valid
2785: IF NOT(CSI_Instance_parties_vld_pvt.Is_Pty_Rel_type_Valid
2786: (p_party_rec.RELATIONSHIP_TYPE_CODE,
2787: 'P' )) THEN
2788: RAISE FND_API.G_EXC_ERROR;
2789: END IF;
2851: THEN
2852: p_party_rec.ACTIVE_END_DATE := l_curr_party_rec.ACTIVE_END_DATE;
2853: END IF;
2854: -- SK END ADDITION
2855: IF CSI_Instance_parties_vld_pvt.Is_Primary_Contact_Pty
2856: (l_curr_party_rec.INSTANCE_ID,
2857: l_curr_party_rec.CONTACT_IP_ID,
2858: p_party_rec.RELATIONSHIP_TYPE_CODE,
2859: p_party_rec.ACTIVE_START_DATE,
2896: THEN
2897: p_party_rec.ACTIVE_END_DATE := l_curr_party_rec.ACTIVE_END_DATE;
2898: END IF;
2899: -- SK END ADDITION
2900: IF CSI_Instance_parties_vld_pvt.Is_Primary_Pty
2901: (l_curr_party_rec.INSTANCE_ID,
2902: p_party_rec.RELATIONSHIP_TYPE_CODE,
2903: p_party_rec.ACTIVE_START_DATE,
2904: p_party_rec.ACTIVE_END_DATE) THEN
2911: END IF;
2912: -- Call table handlers to insert into the csi_i_parties table
2913: -- Verify if the party_source_table exists in CSI_LOOKUPS
2914: IF (p_party_rec.PARTY_SOURCE_TABLE <> FND_API.G_MISS_CHAR) THEN
2915: IF NOT(CSI_Instance_parties_vld_pvt.Is_Pty_Source_tab_Valid(p_party_rec.PARTY_SOURCE_TABLE)) THEN
2916: RAISE FND_API.G_EXC_ERROR;
2917: END IF;
2918: -- Verify if the party_id is valid based on the value of party_source_table
2919: IF (p_party_rec.PARTY_ID <> FND_API.G_MISS_NUM) THEN
2916: RAISE FND_API.G_EXC_ERROR;
2917: END IF;
2918: -- Verify if the party_id is valid based on the value of party_source_table
2919: IF (p_party_rec.PARTY_ID <> FND_API.G_MISS_NUM) THEN
2920: IF NOT(CSI_Instance_parties_vld_pvt.Is_Party_Valid
2921: (p_party_rec.PARTY_SOURCE_TABLE ,
2922: p_party_rec.PARTY_ID ,
2923: p_party_rec.CONTACT_FLAG )) THEN
2924: RAISE FND_API.G_EXC_ERROR;
2925: END IF;
2926: END IF;
2927: ELSE
2928: IF (p_party_rec.PARTY_ID <> FND_API.G_MISS_NUM) THEN
2929: IF NOT(CSI_Instance_parties_vld_pvt.Is_Party_Valid
2930: (l_curr_party_rec.PARTY_SOURCE_TABLE ,
2931: p_party_rec.PARTY_ID ,
2932: p_party_rec.CONTACT_FLAG )) THEN
2933: RAISE FND_API.G_EXC_ERROR;
2953: --AND (p_party_rec.party_id <> l_internal_party_id)) -- commented for bug 3294748
2954: THEN
2955: -- End of code comment for bug 2600000
2956: -- End commentation by sguthiva for bug 2307804
2957: CSI_Instance_parties_vld_pvt.Transfer_Party_Rules
2958: ( p_api_version => p_api_version
2959: ,p_commit => p_commit
2960: ,p_init_msg_list => p_init_msg_list
2961: ,p_validation_level => p_validation_level
3062: WHEN OTHERS THEN
3063: NULL;
3064: END;
3065: ELSE
3066: IF (CSI_Instance_parties_vld_pvt.Is_Party_Rel_Comb_Exists
3067: (l_alt_pk_instance_id ,
3068: l_alt_pk_pty_source_tab ,
3069: l_alt_pk_party_id ,
3070: l_alt_pk_rel_type_code ,
3197: FND_MSG_PUB.ADD;
3198: RAISE FND_API.G_EXC_ERROR;
3199: END IF;
3200: -- Generate a unique instance_party_history_id from the sequence
3201: l_inst_party_his_id := CSI_Instance_parties_vld_pvt.gen_inst_party_hist_id;
3202:
3203:
3204: select mod(l_object_version_number,l_full_dump_frequency)
3205: into l_mod_value
4405: END IF;
4406: -- Start API body
4407: --
4408: -- Check if all the required parameters are passed
4409: CSI_Instance_parties_vld_pvt.Check_Reqd_Param_num
4410: ( p_instance_party_rec.instance_party_id ,
4411: ' p_instance_party_rec.instance_party_id ',
4412: l_api_name );
4413: CSI_Instance_parties_vld_pvt.Check_Reqd_Param_num
4409: CSI_Instance_parties_vld_pvt.Check_Reqd_Param_num
4410: ( p_instance_party_rec.instance_party_id ,
4411: ' p_instance_party_rec.instance_party_id ',
4412: l_api_name );
4413: CSI_Instance_parties_vld_pvt.Check_Reqd_Param_num
4414: ( p_instance_party_rec.object_version_number ,
4415: ' p_instance_party_rec.object_version_number ',
4416: l_api_name );
4417:
4415: ' p_instance_party_rec.object_version_number ',
4416: l_api_name );
4417:
4418: -- Check if the instance party id is valid
4419: IF NOT(CSI_Instance_parties_vld_pvt.Is_Inst_partyID_Valid
4420: (p_Instance_party_id => p_instance_party_rec.instance_party_id
4421: ,p_txn_type_id => p_txn_rec.transaction_type_id
4422: ,p_mode => 'E' -- Added for bug 3550541
4423: )
4629: END IF;
4630: -- Start API body
4631: --
4632: -- Check if all the required parameters are passed
4633: CSI_Instance_parties_vld_pvt.Check_Reqd_Param_num
4634: ( p_party_account_rec.INSTANCE_PARTY_ID,
4635: ' p_party_account_rec.INSTANCE_PARTY_ID ',
4636: l_api_name );
4637:
4634: ( p_party_account_rec.INSTANCE_PARTY_ID,
4635: ' p_party_account_rec.INSTANCE_PARTY_ID ',
4636: l_api_name );
4637:
4638: CSI_Instance_parties_vld_pvt.Check_Reqd_Param_num
4639: ( p_party_account_rec.PARTY_ACCOUNT_ID,
4640: ' p_party_account_rec.PARTY_ACCOUNT_ID ',
4641: l_api_name );
4642: CSI_Instance_parties_vld_pvt.Check_Reqd_Param_char
4638: CSI_Instance_parties_vld_pvt.Check_Reqd_Param_num
4639: ( p_party_account_rec.PARTY_ACCOUNT_ID,
4640: ' p_party_account_rec.PARTY_ACCOUNT_ID ',
4641: l_api_name );
4642: CSI_Instance_parties_vld_pvt.Check_Reqd_Param_char
4643: ( p_party_account_rec.RELATIONSHIP_TYPE_CODE,
4644: 'p_party_account_rec.RELATIONSHIP_TYPE_CODE',
4645: l_api_name );
4646:
4769: END;
4770: END IF;
4771: END IF; -- called from group check
4772: /* -- Commented by sk for fixing the bug 2232880
4773: IF CSI_Instance_parties_vld_pvt.Is_Account_Expired
4774: (p_party_account_rec) THEN
4775: IF (p_party_account_rec.ACTIVE_END_DATE = FND_API.G_MISS_DATE ) THEN
4776: p_party_account_rec.active_end_date := NULL;
4777: END IF;
4814: -- END IF; -- commented by sk for fixing the bug 2232880
4815: ELSE -- Added by sk for fixing the bug 2232880
4816: -- Verify if the party account combination exists
4817: IF p_called_from_grp <> FND_API.G_TRUE THEN
4818: IF CSI_Instance_parties_vld_pvt.Is_Pty_Acct_Comb_Exists
4819: (p_party_account_rec.instance_party_id ,
4820: p_party_account_rec.party_account_id ,
4821: p_party_account_rec.relationship_type_code ) THEN
4822: RAISE FND_API.G_EXC_ERROR;
4828: -- If ip_account_id passed is null then generate from sequence
4829: -- and check if the value exists . If exists then generate again
4830: -- from the sequence till we get a value that does not exist
4831: while l_process_flag loop
4832: p_party_account_rec.IP_ACCOUNT_ID := CSI_Instance_parties_vld_pvt.gen_ip_account_id;
4833: IF NOT(CSI_Instance_parties_vld_pvt.Is_IP_account_Exists(p_party_account_rec.IP_ACCOUNT_ID,
4834: FALSE )) THEN
4835: l_process_flag := FALSE;
4836: END IF;
4829: -- and check if the value exists . If exists then generate again
4830: -- from the sequence till we get a value that does not exist
4831: while l_process_flag loop
4832: p_party_account_rec.IP_ACCOUNT_ID := CSI_Instance_parties_vld_pvt.gen_ip_account_id;
4833: IF NOT(CSI_Instance_parties_vld_pvt.Is_IP_account_Exists(p_party_account_rec.IP_ACCOUNT_ID,
4834: FALSE )) THEN
4835: l_process_flag := FALSE;
4836: END IF;
4837: end loop;
4836: END IF;
4837: end loop;
4838: ELSE
4839: -- Validate the instance_party_id if exist then raise CSI_API_INVALID_PRIMARY_KEY error
4840: IF CSI_Instance_parties_vld_pvt.Is_IP_account_Exists(p_party_account_rec.IP_ACCOUNT_ID ,
4841: TRUE ) THEN
4842: RAISE FND_API.G_EXC_ERROR;
4843: END IF;
4844: END IF;
4867: --
4868: IF l_exists_flag <> 'Y' THEN
4869: p_account_count_rec.inst_party_count := p_account_count_rec.inst_party_count + 1;
4870: p_inst_party_tbl(p_account_count_rec.inst_party_count).instance_party_id := p_party_account_rec.INSTANCE_PARTY_ID;
4871: IF NOT(CSI_Instance_parties_vld_pvt.Is_Inst_partyID_Valid(
4872: p_Instance_party_id => p_party_account_rec.INSTANCE_PARTY_ID
4873: ,p_txn_type_id => p_txn_rec.transaction_type_id
4874: ,p_mode => 'C' ) -- Added for bug 3550541
4875: )
4886: END IF;
4887: END IF; -- called from group check
4888: -- Verify Party Account ID is Valid
4889: IF p_called_from_grp <> FND_API.G_TRUE THEN
4890: IF NOT(CSI_Instance_parties_vld_pvt.Is_Pty_accountID_Valid
4891: (p_party_account_rec.PARTY_ACCOUNT_ID,
4892: p_party_account_rec.INSTANCE_PARTY_ID,
4893: p_party_account_rec.RELATIONSHIP_TYPE_CODE,
4894: p_txn_rec.transaction_type_id, -- Added for bug 3550541
4922: IF l_exists_flag <> 'Y' THEN
4923: p_account_count_rec.rel_type_count := p_account_count_rec.rel_type_count + 1;
4924: p_acct_rel_type_tbl(p_account_count_rec.rel_type_count).rel_type_code :=
4925: p_party_account_rec.RELATIONSHIP_TYPE_CODE;
4926: IF NOT(CSI_Instance_parties_vld_pvt.Is_Acct_Rel_type_Valid
4927: (p_party_account_rec.RELATIONSHIP_TYPE_CODE)) THEN
4928: p_acct_rel_type_tbl(p_account_count_rec.rel_type_count).valid_flag := 'N';
4929: RAISE FND_API.G_EXC_ERROR;
4930: ELSE
4939: END IF;
4940:
4941: -- verify if the active_start_date is valid
4942: IF p_called_from_grp <> FND_API.G_TRUE THEN
4943: IF NOT(CSI_Instance_parties_vld_pvt.Is_Acct_StartDate_Valid
4944: (p_party_account_rec.ACTIVE_START_DATE,
4945: p_party_account_rec.ACTIVE_END_DATE ,
4946: p_party_account_rec.INSTANCE_PARTY_ID )) THEN
4947: RAISE FND_API.G_EXC_ERROR;
4949:
4950: -- Verify if the active_end_date is valid
4951: IF ((p_party_account_rec.ACTIVE_END_DATE is NOT NULL) AND
4952: (p_party_account_rec.ACTIVE_END_DATE <> FND_API.G_MISS_DATE )) THEN
4953: IF NOT(CSI_Instance_parties_vld_pvt.Is_Acct_EndDate_Valid
4954: (p_party_account_rec.ACTIVE_START_DATE,
4955: p_party_account_rec.ACTIVE_END_DATE ,
4956: p_party_account_rec.INSTANCE_PARTY_ID ,
4957: p_party_account_rec.IP_ACCOUNT_ID ,
4990: p_account_count_rec.site_use_count := p_account_count_rec.site_use_count + 1;
4991: p_site_use_tbl(p_account_count_rec.site_use_count).site_use_id :=
4992: p_party_account_rec.bill_to_address;
4993: p_site_use_tbl(p_account_count_rec.site_use_count).site_use_code := 'BILL_TO';
4994: IF NOT(CSI_Instance_parties_vld_pvt.Is_bill_to_add_valid
4995: ( p_party_account_rec.bill_to_address)) THEN
4996: p_site_use_tbl(p_account_count_rec.site_use_count).valid_flag := 'N';
4997: RAISE FND_API.G_EXC_ERROR;
4998: ELSE
5030: p_account_count_rec.site_use_count := p_account_count_rec.site_use_count + 1;
5031: p_site_use_tbl(p_account_count_rec.site_use_count).site_use_id :=
5032: p_party_account_rec.ship_to_address;
5033: p_site_use_tbl(p_account_count_rec.site_use_count).site_use_code := 'SHIP_TO';
5034: IF NOT(CSI_Instance_parties_vld_pvt.Is_ship_to_add_valid
5035: ( p_party_account_rec.ship_to_address)) THEN
5036: p_site_use_tbl(p_account_count_rec.site_use_count).valid_flag := 'N';
5037: RAISE FND_API.G_EXC_ERROR;
5038: ELSE
5044: -- Following will not be done when called from Group API.
5045: -- Verify if it meets Account Rules
5046: IF p_called_from_grp <> FND_API.G_TRUE THEN
5047:
5048: IF CSI_Instance_parties_vld_pvt.Acct_Rules_Check
5049: (p_party_account_rec.instance_party_id ,
5050: p_party_account_rec.relationship_type_code ) THEN
5051: RAISE FND_API.G_EXC_ERROR;
5052: END IF;
5051: RAISE FND_API.G_EXC_ERROR;
5052: END IF;
5053:
5054: -- Get the parent party record
5055: IF NOT(CSI_Instance_parties_vld_pvt.Get_Party_Record
5056: ( p_party_account_rec.instance_party_id,
5057: l_party_rec)) THEN
5058: RAISE FND_API.G_EXC_ERROR;
5059: END IF;
5135: RAISE FND_API.G_EXC_ERROR;
5136: END IF;
5137:
5138: -- Generate a unique instance_party_history_id from the sequence
5139: l_ip_account_history_id := CSI_Instance_parties_vld_pvt.gen_ip_account_hist_id;
5140:
5141: CSI_IP_ACCOUNTS_H_PKG.Insert_Row
5142: (
5143: px_IP_ACCOUNT_HISTORY_ID => l_ip_account_history_id ,
5505:
5506: -- Start API body
5507: --
5508: -- Check if all the required parameters are passed
5509: CSI_Instance_parties_vld_pvt.Check_Reqd_Param_num
5510: ( p_party_account_rec.ip_account_id ,
5511: ' p_party_account_rec.IP_ACCOUNT_ID ',
5512: l_api_name );
5513: --
5548: -- End addition by sguthiva for bug 2307804
5549:
5550: IF p_party_account_rec.INSTANCE_PARTY_ID <> FND_API.G_MISS_NUM THEN
5551: -- Check if the instance party id is valid
5552: IF NOT(CSI_Instance_parties_vld_pvt.Is_Inst_partyID_Valid
5553: (p_Instance_party_id => p_party_account_rec.INSTANCE_PARTY_ID
5554: ,p_txn_type_id => p_txn_rec.transaction_type_id
5555: ,p_mode => 'U' -- Added for bug 3550541
5556: )
5599: -- End addition
5600: END IF;
5601: ELSE
5602: -- srramakr Updates not allowed for Expired instance. Bug # 2477417
5603: IF NOT(CSI_Instance_parties_vld_pvt.Is_Inst_partyID_Valid
5604: (p_Instance_party_id => l_curr_party_acct_rec.INSTANCE_PARTY_ID
5605: ,p_txn_type_id => p_txn_rec.transaction_type_id
5606: ,p_mode => 'U' -- Added for bug 3550541
5607: )
5609: THEN
5610: RAISE FND_API.G_EXC_ERROR;
5611: END IF;
5612: END IF;
5613: l_party_relation := CSI_Instance_parties_vld_pvt.Get_Party_relation
5614: (l_curr_party_acct_rec.Instance_party_id);
5615: --
5616: IF p_party_account_rec.active_start_date IS NULL THEN
5617: FND_MESSAGE.Set_Name('CSI', 'CSI_API_UPD_NOT_ALLOWED');
5660:
5661: -- Verify if the active_end_date is valid
5662: IF p_party_account_rec.expire_flag = fnd_api.g_false THEN -- Added by sguthiva for bug 2307804
5663: -- IF (g_expire_account_flag <> 'Y') THEN -- Commented by sguthiva for bug 2307804
5664: IF NOT(CSI_Instance_parties_vld_pvt.Is_Acct_EndDate_Valid
5665: (l_curr_party_acct_rec.ACTIVE_START_DATE,
5666: p_party_account_rec.ACTIVE_END_DATE ,
5667: p_party_account_rec.INSTANCE_PARTY_ID ,
5668: p_party_account_rec.IP_ACCOUNT_ID ,
5702: FND_MSG_PUB.ADD;
5703: RAISE FND_API.G_EXC_ERROR;
5704: ELSE
5705: -- Verify the relationship_type_code is valid
5706: IF NOT(CSI_Instance_parties_vld_pvt.Is_Acct_Rel_type_Valid
5707: (p_party_account_rec.RELATIONSHIP_TYPE_CODE)) THEN
5708: RAISE FND_API.G_EXC_ERROR;
5709: END IF;
5710: END IF;
5730: (p_party_account_rec.ACTIVE_END_DATE IS NOT NULL AND
5731: p_party_account_rec.ACTIVE_END_DATE <> FND_API.G_MISS_DATE AND
5732: p_party_account_rec.ACTIVE_END_DATE > SYSDATE)
5733: THEN
5734: IF NOT(CSI_Instance_parties_vld_pvt.Is_Pty_accountID_Valid
5735: (p_party_account_rec.PARTY_ACCOUNT_ID,
5736: l_instance_party_id, --l_curr_party_acct_rec.INSTANCE_PARTY_ID,
5737: p_party_account_rec.RELATIONSHIP_TYPE_CODE,
5738: p_txn_rec.transaction_type_id, -- Added for bug 3550541
5751: END IF;
5752:
5753: -- Verify if bill to address is correct
5754: IF p_party_account_rec.bill_to_address <> FND_API.G_MISS_NUM THEN
5755: IF NOT(CSI_Instance_parties_vld_pvt.Is_bill_to_add_valid
5756: ( p_party_account_rec.bill_to_address)) THEN
5757: RAISE FND_API.G_EXC_ERROR;
5758: END IF;
5759: END IF;
5760:
5761:
5762: -- Verify if ship to address is correct
5763: IF p_party_account_rec.ship_to_address <> FND_API.G_MISS_NUM THEN
5764: IF NOT(CSI_Instance_parties_vld_pvt.Is_ship_to_add_valid
5765: ( p_party_account_rec.ship_to_address)) THEN
5766: RAISE FND_API.G_EXC_ERROR;
5767: END IF;
5768: END IF;
5832: l_temp_acct_date := p_party_account_rec.active_end_date;
5833: END;
5834:
5835: ELSE
5836: IF CSI_Instance_parties_vld_pvt.Is_Pty_Acct_Comb_Exists
5837: (l_alt_pk_inst_pty_id ,
5838: l_alt_pk_pty_acct_id ,
5839: l_alt_pk_rel_type_code ) THEN
5840: RAISE FND_API.G_EXC_ERROR;
5846: IF ((l_alt_pk_inst_pty_id <> l_curr_party_acct_rec.instance_party_id)
5847: OR
5848: (l_alt_pk_rel_type_code <> l_curr_party_acct_rec.relationship_type_code))
5849: THEN
5850: IF CSI_Instance_parties_vld_pvt.Acct_Rules_Check
5851: (l_alt_pk_inst_pty_id ,
5852: l_alt_pk_rel_type_code ) THEN
5853: RAISE FND_API.G_EXC_ERROR;
5854: END IF;
5854: END IF;
5855: END IF;
5856:
5857: -- Get party record for later use in contaracts
5858: IF NOT(CSI_Instance_parties_vld_pvt.Get_Party_Record
5859: (l_curr_party_acct_rec.instance_party_id,
5860: l_party_rec)) THEN
5861: RAISE FND_API.G_EXC_ERROR;
5862: END IF;
5953:
5954:
5955:
5956: -- Generate a unique instance_party_history_id from the sequence
5957: l_ip_account_history_id := CSI_Instance_parties_vld_pvt.gen_ip_account_hist_id;
5958:
5959: -- Get the full_dump_frequency from csi_install_parameter
5960: IF csi_datastructures_pub.g_install_param_rec.fetch_flag IS NULL THEN
5961: csi_gen_utility_pvt.populate_install_param_rec;
7275: END IF;
7276: -- Start API body
7277: --
7278: -- Check if all the required parameters are passed
7279: CSI_Instance_parties_vld_pvt.Check_Reqd_Param_num
7280: ( p_party_account_rec.ip_account_id,
7281: ' p_party_account_rec.ip_account_id ',
7282: l_api_name );
7283:
7280: ( p_party_account_rec.ip_account_id,
7281: ' p_party_account_rec.ip_account_id ',
7282: l_api_name );
7283:
7284: CSI_Instance_parties_vld_pvt.Check_Reqd_Param_num
7285: ( p_party_account_rec.object_version_number,
7286: ' p_party_account_rec.object_version_number ',
7287: l_api_name );
7288:
7287: l_api_name );
7288:
7289:
7290: -- Check if the instance party id is valid
7291: IF NOT(CSI_Instance_parties_vld_pvt.Is_Ip_account_Valid
7292: (p_party_account_rec.ip_account_id))THEN
7293: FND_MESSAGE.SET_NAME('CSI','CSI_API_INVALID_IP_ACCOUNT_ID');
7294: FND_MESSAGE.SET_TOKEN('IP_ACCOUNT_ID',p_party_account_rec.ip_account_id);
7295: FND_MSG_PUB.Add;