16: /*----------------------------------------------------------*/
17:
18: PROCEDURE Initialize_acct_rec_no_dump
19: (
20: x_party_account_rec IN OUT NOCOPY csi_datastructures_pub.party_account_header_rec,
21: p_ip_account_id IN NUMBER ,
22: x_first_no_dump IN OUT NOCOPY DATE
23: ) IS
24:
92: /*----------------------------------------------------------*/
93:
94: PROCEDURE Initialize_acct_rec
95: (
96: x_party_account_rec IN OUT NOCOPY csi_datastructures_pub.party_account_header_rec,
97: p_ip_account_hist_id IN NUMBER ,
98: x_nearest_full_dump IN OUT NOCOPY DATE
99: ) IS
100:
163: /*----------------------------------------------------------*/
164:
165: PROCEDURE Construct_acct_from_hist
166: (
167: x_party_account_tbl IN OUT NOCOPY csi_datastructures_pub.party_account_header_tbl,
168: p_time_stamp IN DATE
169: ) IS
170:
171: l_nearest_full_dump DATE := sysdate;
169: ) IS
170:
171: l_nearest_full_dump DATE := sysdate;
172: l_ip_account_hist_id NUMBER;
173: l_party_account_tbl csi_datastructures_pub.party_account_header_tbl;
174: l_acct_count NUMBER := 0;
175: --
176: Process_next EXCEPTION;
177:
438: /* id columns */
439: /*----------------------------------------------------------*/
440:
441: PROCEDURE Resolve_id_columns
442: (p_account_header_tbl IN OUT NOCOPY csi_datastructures_pub.party_account_header_tbl)
443:
444: IS
445:
446: BEGIN
560:
561: PROCEDURE Get_acct_Column_Values
562: (
563: p_get_acct_cursor_id IN NUMBER ,
564: x_pty_acct_query_rec OUT NOCOPY csi_datastructures_pub.party_account_header_rec
565: ) IS
566:
567: BEGIN
568:
603: PROCEDURE Define_Acct_Columns
604: (
605: p_get_acct_cursor_id IN NUMBER
606: ) IS
607: l_party_acct_rec csi_datastructures_pub.party_account_header_rec;
608: BEGIN
609:
610: dbms_sql.define_column(p_get_acct_cursor_id, 1, l_party_acct_rec.ip_account_id);
611: dbms_sql.define_column(p_get_acct_cursor_id, 2, l_party_acct_rec.instance_party_id);
643: /*----------------------------------------------------------*/
644:
645: PROCEDURE Bind_Acct_variable
646: (
647: p_pty_acct_query_rec IN csi_datastructures_pub.party_account_query_rec,
648: p_get_acct_cursor_id IN NUMBER
649: ) IS
650:
651: BEGIN
679: /*----------------------------------------------------------*/
680:
681: PROCEDURE Gen_Acct_Where_Clause
682: (
683: p_pty_acct_query_rec IN csi_datastructures_pub.party_account_query_rec
684: ,x_where_clause OUT NOCOPY VARCHAR2
685: ) IS
686:
687: BEGIN
752: /*----------------------------------------------------------*/
753:
754: PROCEDURE Initialize_pty_rec_no_dump
755: (
756: x_party_rec IN OUT NOCOPY csi_datastructures_pub.party_header_rec,
757: p_inst_party_id IN NUMBER,
758: x_first_no_dump IN OUT NOCOPY DATE
759: ) IS
760:
838: /*----------------------------------------------------------*/
839:
840: PROCEDURE Initialize_pty_rec
841: (
842: x_party_rec IN OUT NOCOPY csi_datastructures_pub.party_header_rec,
843: p_inst_party_hist_id IN NUMBER,
844: x_nearest_full_dump IN OUT NOCOPY DATE
845: ) IS
846:
918: /*----------------------------------------------------------*/
919:
920: PROCEDURE Construct_pty_from_hist
921: (
922: x_party_tbl IN OUT NOCOPY csi_datastructures_pub.party_header_tbl,
923: p_time_stamp IN DATE
924: ) IS
925:
926: l_nearest_full_dump DATE := sysdate;
924: ) IS
925:
926: l_nearest_full_dump DATE := sysdate;
927: l_inst_party_hist_id NUMBER;
928: l_party_tbl csi_datastructures_pub.party_header_tbl;
929: l_pty_count NUMBER := 0;
930: --
931: Process_next EXCEPTION;
932:
1221:
1222: PROCEDURE Get_Pty_Column_Values
1223: (
1224: p_get_pty_cursor_id IN NUMBER ,
1225: x_party_rec OUT NOCOPY csi_datastructures_pub.party_header_rec
1226: ) IS
1227:
1228: BEGIN
1229:
1267: PROCEDURE Define_Pty_Columns
1268: (
1269: p_get_pty_cursor_id IN NUMBER
1270: ) IS
1271: l_party_rec csi_datastructures_pub.party_header_rec;
1272: BEGIN
1273:
1274: dbms_sql.define_column(p_get_pty_cursor_id, 1, l_party_rec.instance_party_id);
1275: dbms_sql.define_column(p_get_pty_cursor_id, 2, l_party_rec.instance_id);
1310: /*----------------------------------------------------------*/
1311:
1312: PROCEDURE Bind_Pty_variable
1313: (
1314: p_party_query_rec IN csi_datastructures_pub.party_query_rec,
1315: p_cur_get_pty_rel IN NUMBER
1316: ) IS
1317:
1318: BEGIN
1346: /*----------------------------------------------------------*/
1347:
1348: PROCEDURE Gen_Pty_Where_Clause
1349: (
1350: p_party_query_rec IN csi_datastructures_pub.party_query_rec
1351: ,x_where_clause OUT NOCOPY VARCHAR2
1352: ) IS
1353:
1354: BEGIN
1423: ( p_api_version IN NUMBER
1424: ,p_commit IN VARCHAR2
1425: ,p_init_msg_list IN VARCHAR2
1426: ,p_validation_level IN NUMBER
1427: ,p_party_rec IN OUT NOCOPY csi_datastructures_pub.party_rec
1428: ,p_txn_rec IN OUT NOCOPY csi_datastructures_pub.transaction_rec
1429: ,x_return_status OUT NOCOPY VARCHAR2
1430: ,x_msg_count OUT NOCOPY NUMBER
1431: ,x_msg_data OUT NOCOPY VARCHAR2
1424: ,p_commit IN VARCHAR2
1425: ,p_init_msg_list IN VARCHAR2
1426: ,p_validation_level IN NUMBER
1427: ,p_party_rec IN OUT NOCOPY csi_datastructures_pub.party_rec
1428: ,p_txn_rec IN OUT NOCOPY csi_datastructures_pub.transaction_rec
1429: ,x_return_status OUT NOCOPY VARCHAR2
1430: ,x_msg_count OUT NOCOPY NUMBER
1431: ,x_msg_data OUT NOCOPY VARCHAR2
1432: ,p_party_source_tbl IN OUT NOCOPY csi_party_relationships_pvt.party_source_tbl
1440:
1441: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_INST_PARTY_RELATIONSHIP';
1442: l_api_version CONSTANT NUMBER := 1.0;
1443: l_csi_debug_level NUMBER;
1444: l_party_rec csi_datastructures_pub.party_rec;
1445: l_msg_index NUMBER;
1446: l_msg_count NUMBER;
1447: l_process_flag BOOLEAN := TRUE;
1448: l_inst_party_his_id NUMBER;
2244: ( p_api_version IN NUMBER
2245: ,p_commit IN VARCHAR2
2246: ,p_init_msg_list IN VARCHAR2
2247: ,p_validation_level IN NUMBER
2248: ,p_party_rec IN OUT NOCOPY csi_datastructures_pub.party_rec
2249: ,p_txn_rec IN OUT NOCOPY csi_datastructures_pub.transaction_rec
2250: ,x_return_status OUT NOCOPY VARCHAR2
2251: ,x_msg_count OUT NOCOPY NUMBER
2252: ,x_msg_data OUT NOCOPY VARCHAR2
2245: ,p_commit IN VARCHAR2
2246: ,p_init_msg_list IN VARCHAR2
2247: ,p_validation_level IN NUMBER
2248: ,p_party_rec IN OUT NOCOPY csi_datastructures_pub.party_rec
2249: ,p_txn_rec IN OUT NOCOPY csi_datastructures_pub.transaction_rec
2250: ,x_return_status OUT NOCOPY VARCHAR2
2251: ,x_msg_count OUT NOCOPY NUMBER
2252: ,x_msg_data OUT NOCOPY VARCHAR2
2253: ) IS
2254:
2255: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_INST_PARTY_RELATIONSHIP';
2256: l_api_version CONSTANT NUMBER := 1.0;
2257: l_csi_debug_level NUMBER;
2258: l_curr_party_rec csi_datastructures_pub.party_rec;
2259: l_temp_party_rec csi_datastructures_pub.party_rec;
2260: l_cont_party_rec csi_datastructures_pub.party_rec;
2261: l_init_party_rec csi_datastructures_pub.party_rec;
2262: l_msg_index NUMBER;
2255: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_INST_PARTY_RELATIONSHIP';
2256: l_api_version CONSTANT NUMBER := 1.0;
2257: l_csi_debug_level NUMBER;
2258: l_curr_party_rec csi_datastructures_pub.party_rec;
2259: l_temp_party_rec csi_datastructures_pub.party_rec;
2260: l_cont_party_rec csi_datastructures_pub.party_rec;
2261: l_init_party_rec csi_datastructures_pub.party_rec;
2262: l_msg_index NUMBER;
2263: l_msg_count NUMBER;
2256: l_api_version CONSTANT NUMBER := 1.0;
2257: l_csi_debug_level NUMBER;
2258: l_curr_party_rec csi_datastructures_pub.party_rec;
2259: l_temp_party_rec csi_datastructures_pub.party_rec;
2260: l_cont_party_rec csi_datastructures_pub.party_rec;
2261: l_init_party_rec csi_datastructures_pub.party_rec;
2262: l_msg_index NUMBER;
2263: l_msg_count NUMBER;
2264: l_line_count NUMBER;
2257: l_csi_debug_level NUMBER;
2258: l_curr_party_rec csi_datastructures_pub.party_rec;
2259: l_temp_party_rec csi_datastructures_pub.party_rec;
2260: l_cont_party_rec csi_datastructures_pub.party_rec;
2261: l_init_party_rec csi_datastructures_pub.party_rec;
2262: l_msg_index NUMBER;
2263: l_msg_count NUMBER;
2264: l_line_count NUMBER;
2265: l_object_version_number NUMBER;
2265: l_object_version_number NUMBER;
2266: l_inst_party_his_id NUMBER;
2267: l_full_dump_frequency NUMBER;
2268: l_mod_value NUMBER;
2269: l_party_account_rec csi_datastructures_pub.party_account_rec;
2270: l_internal_party_id NUMBER;
2271:
2272: x_msg_index_out NUMBER;
2273: l_acct_class_code VARCHAR2(10);
2488: NULL SOURCE_CODE -- Bug 6407307, added Code for Siebel Genesis Project
2489: FROM csi_item_instances
2490: WHERE instance_id = p_instance_id;
2491:
2492: l_curr_instance_rec csi_datastructures_pub.instance_rec;
2493:
2494:
2495: CURSOR pty_hist_csr (p_party_hist_id NUMBER) IS
2496: SELECT instance_party_history_id
2553: FOR UPDATE OF object_version_number ;
2554: l_pty_hist_csr pty_hist_csr%rowtype;
2555: l_party_hist_id NUMBER;
2556: l_open_service VARCHAR2(1);
2557: l_party_hist_rec csi_datastructures_pub.party_history_rec;
2558: l_ins_pty_found NUMBER;
2559: l_pty_end_date DATE;
2560: BEGIN
2561: -- Standard Start of API savepoint
2895: END IF;
2896: END IF;
2897: END IF;
2898: -- Grab the internal party id from csi_installed paramters
2899: IF csi_datastructures_pub.g_install_param_rec.fetch_flag IS NULL THEN
2900: csi_gen_utility_pvt.populate_install_param_rec;
2901: END IF;
2902: --
2903: l_internal_party_id := csi_datastructures_pub.g_install_param_rec.internal_party_id;
2899: IF csi_datastructures_pub.g_install_param_rec.fetch_flag IS NULL THEN
2900: csi_gen_utility_pvt.populate_install_param_rec;
2901: END IF;
2902: --
2903: l_internal_party_id := csi_datastructures_pub.g_install_param_rec.internal_party_id;
2904: --
2905: IF l_internal_party_id IS NULL THEN
2906: FND_MESSAGE.SET_NAME('CSI','CSI_API_UNINSTALLED_PARAMETER');
2907: FND_MSG_PUB.ADD;
3146: RAISE FND_API.G_EXC_ERROR;
3147: END IF;
3148:
3149: -- Get the full_dump_frequency from csi_install_parameter
3150: IF csi_datastructures_pub.g_install_param_rec.fetch_flag IS NULL THEN
3151: csi_gen_utility_pvt.populate_install_param_rec;
3152: END IF;
3153: --
3154: l_full_dump_frequency := csi_datastructures_pub.g_install_param_rec.history_full_dump_frequency;
3150: IF csi_datastructures_pub.g_install_param_rec.fetch_flag IS NULL THEN
3151: csi_gen_utility_pvt.populate_install_param_rec;
3152: END IF;
3153: --
3154: l_full_dump_frequency := csi_datastructures_pub.g_install_param_rec.history_full_dump_frequency;
3155: --
3156: IF l_full_dump_frequency IS NULL THEN
3157: FND_MESSAGE.SET_NAME('CSI','CSI_API_GET_FULL_DUMP_FAILED');
3158: FND_MSG_PUB.ADD;
4260: ( p_api_version IN NUMBER
4261: ,p_commit IN VARCHAR2
4262: ,p_init_msg_list IN VARCHAR2
4263: ,p_validation_level IN NUMBER
4264: ,p_instance_party_rec IN csi_datastructures_pub.party_rec
4265: ,p_txn_rec IN OUT NOCOPY csi_datastructures_pub.transaction_rec
4266: ,x_return_status OUT NOCOPY VARCHAR2
4267: ,x_msg_count OUT NOCOPY NUMBER
4268: ,x_msg_data OUT NOCOPY VARCHAR2
4261: ,p_commit IN VARCHAR2
4262: ,p_init_msg_list IN VARCHAR2
4263: ,p_validation_level IN NUMBER
4264: ,p_instance_party_rec IN csi_datastructures_pub.party_rec
4265: ,p_txn_rec IN OUT NOCOPY csi_datastructures_pub.transaction_rec
4266: ,x_return_status OUT NOCOPY VARCHAR2
4267: ,x_msg_count OUT NOCOPY NUMBER
4268: ,x_msg_data OUT NOCOPY VARCHAR2
4269: ) IS
4270:
4271: l_api_name CONSTANT VARCHAR2(30) := 'EXPIRE_INST_PARTY_RELATIONSHIP';
4272: l_api_version CONSTANT NUMBER := 1.0;
4273: l_csi_debug_level NUMBER;
4274: l_party_rec csi_datastructures_pub.party_rec;
4275: l_msg_index NUMBER;
4276: l_msg_count NUMBER;
4277: l_line_count NUMBER;
4278: l_full_dump_frequency NUMBER;
4276: l_msg_count NUMBER;
4277: l_line_count NUMBER;
4278: l_full_dump_frequency NUMBER;
4279: l_mod_value NUMBER;
4280: l_curr_party_rec csi_datastructures_pub.party_rec;
4281: l_party_account_rec csi_datastructures_pub.party_account_rec;
4282: l_OBJECT_VERSION_NUMBER NUMBER;
4283: l_inst_party_his_id NUMBER;
4284: l_temp_party_acct_rec csi_datastructures_pub.party_account_rec;
4277: l_line_count NUMBER;
4278: l_full_dump_frequency NUMBER;
4279: l_mod_value NUMBER;
4280: l_curr_party_rec csi_datastructures_pub.party_rec;
4281: l_party_account_rec csi_datastructures_pub.party_account_rec;
4282: l_OBJECT_VERSION_NUMBER NUMBER;
4283: l_inst_party_his_id NUMBER;
4284: l_temp_party_acct_rec csi_datastructures_pub.party_account_rec;
4285: --
4280: l_curr_party_rec csi_datastructures_pub.party_rec;
4281: l_party_account_rec csi_datastructures_pub.party_account_rec;
4282: l_OBJECT_VERSION_NUMBER NUMBER;
4283: l_inst_party_his_id NUMBER;
4284: l_temp_party_acct_rec csi_datastructures_pub.party_account_rec;
4285: --
4286: CURSOR get_curr_party_rec (p_inst_party_id IN NUMBER) IS
4287: SELECT
4288: instance_party_id ,
4508: ( p_api_version IN NUMBER
4509: ,p_commit IN VARCHAR2
4510: ,p_init_msg_list IN VARCHAR2
4511: ,p_validation_level IN NUMBER
4512: ,p_party_account_rec IN OUT NOCOPY csi_datastructures_pub.party_account_rec
4513: ,p_txn_rec IN OUT NOCOPY csi_datastructures_pub.transaction_rec
4514: ,x_return_status OUT NOCOPY VARCHAR2
4515: ,x_msg_count OUT NOCOPY NUMBER
4516: ,x_msg_data OUT NOCOPY VARCHAR2
4509: ,p_commit IN VARCHAR2
4510: ,p_init_msg_list IN VARCHAR2
4511: ,p_validation_level IN NUMBER
4512: ,p_party_account_rec IN OUT NOCOPY csi_datastructures_pub.party_account_rec
4513: ,p_txn_rec IN OUT NOCOPY csi_datastructures_pub.transaction_rec
4514: ,x_return_status OUT NOCOPY VARCHAR2
4515: ,x_msg_count OUT NOCOPY NUMBER
4516: ,x_msg_data OUT NOCOPY VARCHAR2
4517: ,p_inst_party_tbl IN OUT NOCOPY csi_party_relationships_pvt.inst_party_tbl
4524:
4525: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_INST_PARTY_ACCOUNT';
4526: l_api_version CONSTANT NUMBER := 1.0;
4527: l_csi_debug_level NUMBER;
4528: l_party_account_rec csi_datastructures_pub.party_account_rec;
4529: l_party_rec csi_datastructures_pub.party_rec;
4530: l_msg_index NUMBER;
4531: l_msg_count NUMBER;
4532: l_process_flag BOOLEAN := TRUE;
4525: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_INST_PARTY_ACCOUNT';
4526: l_api_version CONSTANT NUMBER := 1.0;
4527: l_csi_debug_level NUMBER;
4528: l_party_account_rec csi_datastructures_pub.party_account_rec;
4529: l_party_rec csi_datastructures_pub.party_rec;
4530: l_msg_index NUMBER;
4531: l_msg_count NUMBER;
4532: l_process_flag BOOLEAN := TRUE;
4533: l_ip_account_history_id NUMBER;
5274: ( p_api_version IN NUMBER
5275: ,p_commit IN VARCHAR2
5276: ,p_init_msg_list IN VARCHAR2
5277: ,p_validation_level IN NUMBER
5278: ,p_party_account_rec IN csi_datastructures_pub.party_account_rec
5279: ,p_txn_rec IN OUT NOCOPY csi_datastructures_pub.transaction_rec
5280: ,p_oks_txn_inst_tbl IN OUT NOCOPY oks_ibint_pub.txn_instance_tbl
5281: ,x_return_status OUT NOCOPY VARCHAR2
5282: ,x_msg_count OUT NOCOPY NUMBER
5275: ,p_commit IN VARCHAR2
5276: ,p_init_msg_list IN VARCHAR2
5277: ,p_validation_level IN NUMBER
5278: ,p_party_account_rec IN csi_datastructures_pub.party_account_rec
5279: ,p_txn_rec IN OUT NOCOPY csi_datastructures_pub.transaction_rec
5280: ,p_oks_txn_inst_tbl IN OUT NOCOPY oks_ibint_pub.txn_instance_tbl
5281: ,x_return_status OUT NOCOPY VARCHAR2
5282: ,x_msg_count OUT NOCOPY NUMBER
5283: ,x_msg_data OUT NOCOPY VARCHAR2
5285:
5286: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_INST_PARTY_ACCOUNT';
5287: l_api_version CONSTANT NUMBER := 1.0;
5288: l_csi_debug_level NUMBER;
5289: -- l_curr_party_acct_rec csi_datastructures_pub.party_account_rec;
5290: l_temp_party_account_rec csi_datastructures_pub.party_account_rec;
5291: l_party_rec csi_datastructures_pub.party_rec;
5292: l_msg_index NUMBER;
5293: l_msg_count NUMBER;
5286: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_INST_PARTY_ACCOUNT';
5287: l_api_version CONSTANT NUMBER := 1.0;
5288: l_csi_debug_level NUMBER;
5289: -- l_curr_party_acct_rec csi_datastructures_pub.party_account_rec;
5290: l_temp_party_account_rec csi_datastructures_pub.party_account_rec;
5291: l_party_rec csi_datastructures_pub.party_rec;
5292: l_msg_index NUMBER;
5293: l_msg_count NUMBER;
5294: l_mod_value NUMBER;
5287: l_api_version CONSTANT NUMBER := 1.0;
5288: l_csi_debug_level NUMBER;
5289: -- l_curr_party_acct_rec csi_datastructures_pub.party_account_rec;
5290: l_temp_party_account_rec csi_datastructures_pub.party_account_rec;
5291: l_party_rec csi_datastructures_pub.party_rec;
5292: l_msg_index NUMBER;
5293: l_msg_count NUMBER;
5294: l_mod_value NUMBER;
5295: l_object_version_number NUMBER;
5413: l_old_pty_acct_id NUMBER; -- Added by sguthiva for bug 2307804
5414: l_new_pty_acct_id NUMBER; -- Added by sguthiva for bug 2307804
5415: l_last_vld_org NUMBER; -- Added by sguthiva for bug 2307804
5416: l_party_account_id NUMBER; -- Added by sguthiva for bug 2307804
5417: l_account_hist_rec csi_datastructures_pub.account_history_rec;
5418: l_rel_type_code VARCHAR2(30);
5419: l_acct_end_date DATE;
5420: l_temp_acct_date DATE;
5421: l_found_for_update VARCHAR2(1):='N';
5593: IF ( p_party_account_rec.ACTIVE_END_DATE <> FND_API.G_MISS_DATE) THEN
5594: IF ((l_curr_party_acct_rec.relationship_type_code = 'OWNER')
5595: AND (l_party_relation = 'OWNER')) THEN
5596: -- Added by sguthiva for bug 2307804
5597: IF csi_datastructures_pub.g_install_param_rec.fetch_flag IS NULL THEN
5598: csi_gen_utility_pvt.populate_install_param_rec;
5599: END IF;
5600: --
5601: l_internal_party_id := csi_datastructures_pub.g_install_param_rec.internal_party_id;
5597: IF csi_datastructures_pub.g_install_param_rec.fetch_flag IS NULL THEN
5598: csi_gen_utility_pvt.populate_install_param_rec;
5599: END IF;
5600: --
5601: l_internal_party_id := csi_datastructures_pub.g_install_param_rec.internal_party_id;
5602: --
5603: IF l_internal_party_id IS NULL THEN
5604: FND_MESSAGE.SET_NAME('CSI','CSI_API_UNINSTALLED_PARAMETER');
5605: FND_MSG_PUB.ADD;
5915: -- Generate a unique instance_party_history_id from the sequence
5916: l_ip_account_history_id := CSI_Instance_parties_vld_pvt.gen_ip_account_hist_id;
5917:
5918: -- Get the full_dump_frequency from csi_install_parameter
5919: IF csi_datastructures_pub.g_install_param_rec.fetch_flag IS NULL THEN
5920: csi_gen_utility_pvt.populate_install_param_rec;
5921: END IF;
5922: --
5923: l_full_dump_frequency := csi_datastructures_pub.g_install_param_rec.history_full_dump_frequency;
5919: IF csi_datastructures_pub.g_install_param_rec.fetch_flag IS NULL THEN
5920: csi_gen_utility_pvt.populate_install_param_rec;
5921: END IF;
5922: --
5923: l_full_dump_frequency := csi_datastructures_pub.g_install_param_rec.history_full_dump_frequency;
5924: --
5925: IF l_full_dump_frequency IS NULL THEN
5926: FND_MESSAGE.SET_NAME('CSI','CSI_API_GET_FULL_DUMP_FAILED');
5927: FND_MSG_PUB.ADD;
6872: ELSE
6873: l_last_vld_org := p_party_account_rec.vld_organization_id;
6874: END IF;
6875: --
6876: IF csi_datastructures_pub.g_install_param_rec.fetch_flag IS NULL THEN
6877: csi_gen_utility_pvt.populate_install_param_rec;
6878: END IF;
6879: --
6880: l_internal_party_id := csi_datastructures_pub.g_install_param_rec.internal_party_id;
6876: IF csi_datastructures_pub.g_install_param_rec.fetch_flag IS NULL THEN
6877: csi_gen_utility_pvt.populate_install_param_rec;
6878: END IF;
6879: --
6880: l_internal_party_id := csi_datastructures_pub.g_install_param_rec.internal_party_id;
6881: --
6882: IF l_internal_party_id IS NULL THEN
6883: FND_MESSAGE.SET_NAME('CSI','CSI_API_UNINSTALLED_PARAMETER');
6884: FND_MSG_PUB.ADD;
7122: ( p_api_version IN NUMBER
7123: ,p_commit IN VARCHAR2
7124: ,p_init_msg_list IN VARCHAR2
7125: ,p_validation_level IN NUMBER
7126: ,p_party_account_rec IN csi_datastructures_pub.party_account_rec
7127: ,p_txn_rec IN OUT NOCOPY csi_datastructures_pub.transaction_rec
7128: ,x_return_status OUT NOCOPY VARCHAR2
7129: ,x_msg_count OUT NOCOPY NUMBER
7130: ,x_msg_data OUT NOCOPY VARCHAR2
7123: ,p_commit IN VARCHAR2
7124: ,p_init_msg_list IN VARCHAR2
7125: ,p_validation_level IN NUMBER
7126: ,p_party_account_rec IN csi_datastructures_pub.party_account_rec
7127: ,p_txn_rec IN OUT NOCOPY csi_datastructures_pub.transaction_rec
7128: ,x_return_status OUT NOCOPY VARCHAR2
7129: ,x_msg_count OUT NOCOPY NUMBER
7130: ,x_msg_data OUT NOCOPY VARCHAR2
7131: ) IS
7132:
7133: l_api_name CONSTANT VARCHAR2(30) := 'EXPIRE_INST_PARTY_ACCOUNT';
7134: l_api_version CONSTANT NUMBER := 1.0;
7135: l_csi_debug_level NUMBER;
7136: l_party_account_rec csi_datastructures_pub.party_account_rec;
7137: -- l_curr_party_acct_rec csi_datastructures_pub.party_account_rec;
7138: l_msg_count NUMBER;
7139: l_msg_data VARCHAR2(100);
7140: l_txn_id NUMBER;
7133: l_api_name CONSTANT VARCHAR2(30) := 'EXPIRE_INST_PARTY_ACCOUNT';
7134: l_api_version CONSTANT NUMBER := 1.0;
7135: l_csi_debug_level NUMBER;
7136: l_party_account_rec csi_datastructures_pub.party_account_rec;
7137: -- l_curr_party_acct_rec csi_datastructures_pub.party_account_rec;
7138: l_msg_count NUMBER;
7139: l_msg_data VARCHAR2(100);
7140: l_txn_id NUMBER;
7141: l_msg_index NUMBER;
7380: ,p_validation_level IN NUMBER
7381: ,p_contact_party_id IN NUMBER
7382: ,p_contact_flag IN VARCHAR2
7383: ,p_party_tbl IN VARCHAR2
7384: ,x_contact_details OUT NOCOPY csi_datastructures_pub.contact_details_rec
7385: ,x_return_status OUT NOCOPY VARCHAR2
7386: ,x_msg_count OUT NOCOPY NUMBER
7387: ,x_msg_data OUT NOCOPY VARCHAR2
7388: ) IS
7802: ,p_commit IN VARCHAR2
7803: ,p_init_msg_list IN VARCHAR2
7804: ,p_validation_level IN NUMBER
7805: ,p_transaction_id IN NUMBER
7806: ,x_party_history_tbl OUT NOCOPY csi_datastructures_pub.party_history_tbl
7807: ,x_return_status OUT NOCOPY VARCHAR2
7808: ,x_msg_count OUT NOCOPY NUMBER
7809: ,x_msg_data OUT NOCOPY VARCHAR2
7810: ) IS
7817: l_flag VARCHAR2(1) :='N' ;
7818: l_instance_party_id NUMBER ;
7819: l_old_contact_party_id NUMBER ;
7820: l_new_contact_party_id NUMBER ;
7821: l_contact_details csi_datastructures_pub.contact_details_rec ;
7822: i NUMBER :=1;
7823: l_old_party_source_tbl VARCHAR2(30);
7824: l_new_party_source_tbl VARCHAR2(30);
7825: l_old_contact_flag VARCHAR2(1);
7892: AND ciph.instance_party_id = cip.instance_party_id; -- Added by sk on 08-APR for fixing bug
7893: -- 2304649 .
7894: -- Added for bug 2781480
7895: l_time_stamp DATE;
7896: l_party_query_rec csi_datastructures_pub.party_query_rec;
7897: l_party_header_tbl csi_datastructures_pub.party_header_tbl;
7898: -- End addition for bug 2781480
7899: BEGIN
7900: -- Standard Start of API savepoint
7893: -- 2304649 .
7894: -- Added for bug 2781480
7895: l_time_stamp DATE;
7896: l_party_query_rec csi_datastructures_pub.party_query_rec;
7897: l_party_header_tbl csi_datastructures_pub.party_header_tbl;
7898: -- End addition for bug 2781480
7899: BEGIN
7900: -- Standard Start of API savepoint
7901: -- SAVEPOINT get_inst_party_rel_hist;
8538: ,p_commit IN VARCHAR2
8539: ,p_init_msg_list IN VARCHAR2
8540: ,p_validation_level IN NUMBER
8541: ,p_transaction_id IN NUMBER
8542: ,x_account_history_tbl OUT NOCOPY csi_datastructures_pub.account_history_tbl
8543: ,x_return_status OUT NOCOPY VARCHAR2
8544: ,x_msg_count OUT NOCOPY NUMBER
8545: ,x_msg_data OUT NOCOPY VARCHAR2
8546: )IS
8551: x_msg_index_out NUMBER ;
8552: l_count NUMBER := 0 ;
8553: l_flag VARCHAR2(1) :='N' ;
8554: i NUMBER :=1 ;
8555: l_account_header_tbl csi_datastructures_pub.party_account_header_tbl ;
8556: l_time_stamp DATE;
8557: l_party_account_query_rec csi_datastructures_pub.party_account_query_rec;
8558: CURSOR get_account_hist(i_transaction_id NUMBER)
8559: IS
8553: l_flag VARCHAR2(1) :='N' ;
8554: i NUMBER :=1 ;
8555: l_account_header_tbl csi_datastructures_pub.party_account_header_tbl ;
8556: l_time_stamp DATE;
8557: l_party_account_query_rec csi_datastructures_pub.party_account_query_rec;
8558: CURSOR get_account_hist(i_transaction_id NUMBER)
8559: IS
8560: SELECT cah.IP_ACCOUNT_HISTORY_ID ,
8561: cah.IP_ACCOUNT_ID ,