DBA Data[Home] [Help]

APPS.AMS_PARTY_SEG_LOADER_PVT dependencies on AMS_UTILITY_PVT

Line 52: AMS_Utility_PVT.Debug_Message(l_api_name||' Start ');

48: l_party_count NUMBER;
49:
50: BEGIN
51: IF (AMS_DEBUG_HIGH_ON) THEN
52: AMS_Utility_PVT.Debug_Message(l_api_name||' Start ');
53: END IF;
54:
55: x_return_status := FND_API.G_RET_STS_SUCCESS;
56:

Line 61: AMS_Utility_PVT.Debug_Message(l_api_name||' get comp sql for cell ');

57: -- Create the Savepoint
58: SAVEPOINT Get_Party_Tab;
59:
60: IF (AMS_DEBUG_HIGH_ON) THEN
61: AMS_Utility_PVT.Debug_Message(l_api_name||' get comp sql for cell ');
62: END IF;
63:
64: AMS_CELL_PVT.get_comp_sql(
65: p_api_version => 1,

Line 78: AMS_Utility_PVT.Debug_Message(l_api_name||' error on getting cell sql statement, please check if the workbook or sql string is valid or not');

74: );
75:
76: IF x_return_status = FND_API.g_ret_sts_error THEN
77: IF (AMS_DEBUG_HIGH_ON) THEN
78: AMS_Utility_PVT.Debug_Message(l_api_name||' error on getting cell sql statement, please check if the workbook or sql string is valid or not');
79: END IF;
80:
81: RAISE FND_API.g_exc_error;
82: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN

Line 84: AMS_Utility_PVT.Debug_Message(l_api_name||' unexpected error on get cell sql statement, please check if the workbook or sql string is valid or not');

80:
81: RAISE FND_API.g_exc_error;
82: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
83: IF (AMS_DEBUG_HIGH_ON) THEN
84: AMS_Utility_PVT.Debug_Message(l_api_name||' unexpected error on get cell sql statement, please check if the workbook or sql string is valid or not');
85: END IF;
86:
87: RAISE FND_API.g_exc_unexpected_error;
88: END IF;

Line 94: AMS_Utility_PVT.Debug_Message(l_api_name||' Parse the comp sql ');

90: l_count := 1 ;
91: -- Open the cursor and parse it
92: IF (AMS_DEBUG_HIGH_ON) THEN
93:
94: AMS_Utility_PVT.Debug_Message(l_api_name||' Parse the comp sql ');
95: END IF;
96: IF (DBMS_SQL.Is_Open(l_party_cur) = FALSE) THEN
97: l_party_cur := DBMS_SQL.Open_Cursor ;
98: END IF;

Line 126: AMS_Utility_PVT.Debug_Message(l_api_name||' party_count = ' || l_party_count);

122:
123: DBMS_SQL.Close_Cursor(l_party_cur);
124:
125: IF (AMS_DEBUG_HIGH_ON) THEN
126: AMS_Utility_PVT.Debug_Message(l_api_name||' party_count = ' || l_party_count);
127: END IF;
128:
129: x_party_tab := l_party_tab;
130: x_party_count := l_party_count;

Line 139: AMS_Utility_PVT.Debug_Message('Error in Get_Party_Tab '||sqlerrm);

135: DBMS_SQL.Close_Cursor(l_party_cur) ;
136: END IF;
137:
138: IF (AMS_DEBUG_HIGH_ON) THEN
139: AMS_Utility_PVT.Debug_Message('Error in Get_Party_Tab '||sqlerrm);
140: END IF;
141:
142: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
143:

Line 187: AMS_Utility_PVT.Debug_Message(l_full_name||': Start');

183:
184: x_return_status := FND_API.G_RET_STS_SUCCESS;
185:
186: IF (AMS_DEBUG_HIGH_ON) THEN
187: AMS_Utility_PVT.Debug_Message(l_full_name||': Start');
188: END IF;
189:
190: -- l_party_tbl := p_party_tbl;
191:

Line 197: AMS_Utility_PVT.Debug_Message(l_full_name||': Total record expired: '||l_exp_party_tbl.count);

193: FETCH C_expired_party_ids BULK COLLECT INTO l_exp_party_tbl;
194: CLOSE C_expired_party_ids;
195:
196: IF (AMS_DEBUG_HIGH_ON) THEN
197: AMS_Utility_PVT.Debug_Message(l_full_name||': Total record expired: '||l_exp_party_tbl.count);
198: END IF;
199:
200: IF l_exp_party_tbl.count > 0 THEN
201:

Line 213: AMS_Utility_PVT.Debug_Message(l_full_name||': End');

209: AND party_id = l_exp_party_tbl(i);
210: END IF;
211:
212: IF (AMS_DEBUG_HIGH_ON) THEN
213: AMS_Utility_PVT.Debug_Message(l_full_name||': End');
214: END IF;
215:
216: EXCEPTION
217: WHEN OTHERS THEN

Line 220: AMS_Utility_PVT.Debug_Message('Error in expire_inactive_party_dbms');

216: EXCEPTION
217: WHEN OTHERS THEN
218: IF (AMS_DEBUG_HIGH_ON) THEN
219:
220: AMS_Utility_PVT.Debug_Message('Error in expire_inactive_party_dbms');
221: END IF;
222:
223: IF C_expired_party_ids%ISOPEN THEN
224: CLOSE C_expired_party_ids;

Line 312: AMS_Utility_PVT.Debug_Message(l_api_name||' expire changed parties ');

308:
309: -- Do bulk update
310: IF (AMS_DEBUG_HIGH_ON) THEN
311:
312: AMS_Utility_PVT.Debug_Message(l_api_name||' expire changed parties ');
313: END IF;
314: IF l_iterator > 1 THEN
315: FORALL i in l_sql_tbl.first .. l_sql_tbl.last
316: UPDATE AMS_PARTY_MARKET_SEGMENTS

Line 329: AMS_Utility_Pvt.Debug_Message('Error in expire_changed_party_dbms');

325: EXCEPTION
326: WHEN OTHERS THEN
327: IF (AMS_DEBUG_HIGH_ON) THEN
328:
329: AMS_Utility_Pvt.Debug_Message('Error in expire_changed_party_dbms');
330: END IF;
331:
332: IF(c_old_party_rec%ISOPEN)then
333: CLOSE c_old_party_rec;

Line 399: AMS_Utility_PVT.Debug_Message(l_api_name||' Start ');

395:
396: BEGIN
397:
398: IF (AMS_DEBUG_HIGH_ON) THEN
399: AMS_Utility_PVT.Debug_Message(l_api_name||' Start ');
400: END IF;
401:
402: x_return_status := FND_API.G_RET_STS_SUCCESS;
403:

Line 409: AMS_Utility_PVT.Debug_Message(l_api_name||' Bulk insert '||l_party_tbl.count);

405: FETCH C_new_parties BULK COLLECT INTO l_party_tbl;
406: CLOSE C_new_parties;
407:
408: IF (AMS_DEBUG_HIGH_ON) THEN
409: AMS_Utility_PVT.Debug_Message(l_api_name||' Bulk insert '||l_party_tbl.count);
410: END IF;
411:
412: IF l_party_tbl.count > 0 then
413:

Line 449: AMS_Utility_PVT.Debug_Message(l_api_name||' Get inactive parties ');

445: from dual;
446: END IF;
447:
448: IF (AMS_DEBUG_HIGH_ON) THEN
449: AMS_Utility_PVT.Debug_Message(l_api_name||' Get inactive parties ');
450: END IF;
451:
452: OPEN C_activate_parties;
453: FETCH C_activate_parties BULK COLLECT INTO l_party_tbl;

Line 457: AMS_Utility_PVT.Debug_Message(l_api_name||' Bulk update '||l_party_tbl.count);

453: FETCH C_activate_parties BULK COLLECT INTO l_party_tbl;
454: CLOSE C_activate_parties;
455:
456: IF (AMS_DEBUG_HIGH_ON) THEN
457: AMS_Utility_PVT.Debug_Message(l_api_name||' Bulk update '||l_party_tbl.count);
458: END IF;
459:
460: IF l_party_tbl.count > 0 THEN
461: FORALL i IN l_party_tbl.FIRST..l_party_tbl.LAST

Line 476: AMS_Utility_PVT.Debug_Message(l_api_name||' End');

472: AND party_id = l_party_tbl(i);
473: END IF;
474:
475: IF (AMS_DEBUG_HIGH_ON) THEN
476: AMS_Utility_PVT.Debug_Message(l_api_name||' End');
477: END IF;
478:
479: EXCEPTION
480: WHEN OTHERS THEN

Line 483: AMS_Utility_PVT.Debug_Message('Error in insert_new_party'||sqlerrm);

479: EXCEPTION
480: WHEN OTHERS THEN
481: IF (AMS_DEBUG_HIGH_ON) THEN
482:
483: AMS_Utility_PVT.Debug_Message('Error in insert_new_party'||sqlerrm);
484: END IF;
485:
486: IF(C_new_parties%ISOPEN)then
487: CLOSE C_new_parties;

Line 552: AMS_Utility_PVT.Debug_Message(l_api_name||' Start ');

548:
549:
550: BEGIN
551: IF (AMS_DEBUG_HIGH_ON) THEN
552: AMS_Utility_PVT.Debug_Message(l_api_name||' Start ');
553: END IF;
554:
555: x_return_status := FND_API.G_RET_STS_SUCCESS;
556:

Line 562: AMS_Utility_PVT.Debug_Message(l_api_name||' Get_Party_Tab ');

558: SAVEPOINT Load_Party_Seg;
559:
560: -- execute the segment sql and get parties in pl/sql table
561: IF (AMS_DEBUG_HIGH_ON) THEN
562: AMS_Utility_PVT.Debug_Message(l_api_name||' Get_Party_Tab ');
563: END IF;
564: Get_Party_Tab
565: (
566: l_cell_id,

Line 581: AMS_Utility_PVT.Debug_Message(l_api_name||' Expire_Inactive_Party_Dbms ');

577: END IF;
578:
579: -- expires parties that no longer belong to the given market segment
580: IF (AMS_DEBUG_HIGH_ON) THEN
581: AMS_Utility_PVT.Debug_Message(l_api_name||' Expire_Inactive_Party_Dbms ');
582: END IF;
583: Expire_Inactive_Party_Dbms
584: (
585: l_cell_id,

Line 599: --IF (AMS_DEBUG_HIGH_ON) THENAMS_Utility_PVT.Debug_Message(l_api_name||' Expire_Changed_Party_Dbms ');END IF;

595: END IF;
596:
597: -- expires parties that originally belong to other marekt segments
598: -- and currently belong to the given market segment
599: --IF (AMS_DEBUG_HIGH_ON) THENAMS_Utility_PVT.Debug_Message(l_api_name||' Expire_Changed_Party_Dbms ');END IF;
600: --Expire_Changed_Party_Dbms
601: -- (
602: -- l_cell_id,
603: -- l_party_tab,

Line 617: AMS_Utility_PVT.Debug_Message(l_api_name||' Insert_New_Party_Dbms ');

613:
614: IF l_party_count > 0 THEN
615: -- insert new parties that do not exist in the table
616: IF (AMS_DEBUG_HIGH_ON) THEN
617: AMS_Utility_PVT.Debug_Message(l_api_name||' Insert_New_Party_Dbms ');
618: END IF;
619: Insert_New_Party_Dbms
620: (
621: l_cell_id,

Line 744: AMS_Utility_PVT.Debug_Message(l_api_name||' Start ');

740:
741: BEGIN
742: IF (AMS_DEBUG_HIGH_ON) THEN
743:
744: AMS_Utility_PVT.Debug_Message(l_api_name||' Start ');
745: END IF;
746:
747: x_return_status := FND_API.G_RET_STS_SUCCESS;
748:

Line 755: AMS_Utility_PVT.Debug_Message(l_api_name||': Refresh party segment for cell_id ' || p_cell_id);

751: IF p_cell_id IS NOT NULL
752: THEN
753: IF (AMS_DEBUG_HIGH_ON) THEN
754:
755: AMS_Utility_PVT.Debug_Message(l_api_name||': Refresh party segment for cell_id ' || p_cell_id);
756: END IF;
757: Load_Party_Seg_One
758: (
759: p_cell_id => l_cell_id,

Line 793: AMS_Utility_PVT.Debug_Message(l_api_name||': Refresh party segment for cell_id ' || l_cell_id);

789: IF (AMS_DEBUG_HIGH_ON) THEN
790:
791:
792:
793: AMS_Utility_PVT.Debug_Message(l_api_name||': Refresh party segment for cell_id ' || l_cell_id);
794:
795: END IF;
796: Load_Party_Seg_One
797: (

Line 866: Ams_Utility_Pvt.Write_Conc_log ;

862: x_msg_count => l_msg_count,
863: x_msg_data => l_msg_data);
864:
865: -- Write_log ;
866: Ams_Utility_Pvt.Write_Conc_log ;
867: IF(l_return_status = FND_API.G_RET_STS_SUCCESS)THEN
868: retcode :=0;
869: ELSE
870: retcode :=1;