DBA Data[Home] [Help]

APPS.JTF_IH_PURGE dependencies on DBMS_SQL

Line 222: n_CursorId := DBMS_SQL.OPEN_CURSOR;

218: else
219: dbms_output.put_line(sSql);
220: end if;*/
221:
222: n_CursorId := DBMS_SQL.OPEN_CURSOR;
223:
224: DBMS_SQL.PARSE(n_CursorId, sSql, DBMS_SQL.NATIVE);
225: --dbms_output.put_line('');
226: DBMS_SQL.BIND_VARIABLE(n_CursorId,':active',l_Active);

Line 224: DBMS_SQL.PARSE(n_CursorId, sSql, DBMS_SQL.NATIVE);

220: end if;*/
221:
222: n_CursorId := DBMS_SQL.OPEN_CURSOR;
223:
224: DBMS_SQL.PARSE(n_CursorId, sSql, DBMS_SQL.NATIVE);
225: --dbms_output.put_line('');
226: DBMS_SQL.BIND_VARIABLE(n_CursorId,':active',l_Active);
227: IF UPPER(p_Purge_Type) <> 'ALL' OR p_Purge_Type IS NULL THEN
228: IF (p_Party_Type IS NOT NULL) THEN

Line 226: DBMS_SQL.BIND_VARIABLE(n_CursorId,':active',l_Active);

222: n_CursorId := DBMS_SQL.OPEN_CURSOR;
223:
224: DBMS_SQL.PARSE(n_CursorId, sSql, DBMS_SQL.NATIVE);
225: --dbms_output.put_line('');
226: DBMS_SQL.BIND_VARIABLE(n_CursorId,':active',l_Active);
227: IF UPPER(p_Purge_Type) <> 'ALL' OR p_Purge_Type IS NULL THEN
228: IF (p_Party_Type IS NOT NULL) THEN
229: DBMS_SQL.BIND_VARIABLE(n_CursorId,':party_type',p_Party_Type);
230: END IF;

Line 229: DBMS_SQL.BIND_VARIABLE(n_CursorId,':party_type',p_Party_Type);

225: --dbms_output.put_line('');
226: DBMS_SQL.BIND_VARIABLE(n_CursorId,':active',l_Active);
227: IF UPPER(p_Purge_Type) <> 'ALL' OR p_Purge_Type IS NULL THEN
228: IF (p_Party_Type IS NOT NULL) THEN
229: DBMS_SQL.BIND_VARIABLE(n_CursorId,':party_type',p_Party_Type);
230: END IF;
231:
232: -- Bug# 2945880 - added expression for p_Purge_Type
233: --

Line 238: DBMS_SQL.BIND_VARIABLE(n_CursorId,':end_date',p_End_Date);

234:
235: -- Fix for Bug# 4063673
236: --IF p_END_DATE IS NOT NULL AND l_Active = 'N' AND (RTRIM(p_Purge_Type) = '' OR p_Purge_Type IS NULL) THEN
237: IF p_END_DATE IS NOT NULL AND (RTRIM(p_Purge_Type) = '' OR p_Purge_Type IS NULL) THEN
238: DBMS_SQL.BIND_VARIABLE(n_CursorId,':end_date',p_End_Date);
239: END IF;
240: -- Bug# 2945880 - added expression for p_Purge_Type
241: --
242: IF p_START_DATE IS NOT NULL AND (RTRIM(p_Purge_Type) = '' OR p_Purge_Type IS NULL) THEN

Line 243: DBMS_SQL.BIND_VARIABLE(n_CursorId,':start_date',p_Start_Date);

239: END IF;
240: -- Bug# 2945880 - added expression for p_Purge_Type
241: --
242: IF p_START_DATE IS NOT NULL AND (RTRIM(p_Purge_Type) = '' OR p_Purge_Type IS NULL) THEN
243: DBMS_SQL.BIND_VARIABLE(n_CursorId,':start_date',p_Start_Date);
244: END IF;
245: END IF;
246: DBMS_SQL.DEFINE_COLUMN(n_CursorId, 1, nInteraction_Id);
247:

Line 246: DBMS_SQL.DEFINE_COLUMN(n_CursorId, 1, nInteraction_Id);

242: IF p_START_DATE IS NOT NULL AND (RTRIM(p_Purge_Type) = '' OR p_Purge_Type IS NULL) THEN
243: DBMS_SQL.BIND_VARIABLE(n_CursorId,':start_date',p_Start_Date);
244: END IF;
245: END IF;
246: DBMS_SQL.DEFINE_COLUMN(n_CursorId, 1, nInteraction_Id);
247:
248: --FND_FILE.NEW_LINE(FND_FILE.LOG,1);
249: --FND_FILE.PUT_LINE(FND_FILE.LOG, sSql);
250:

Line 251: n_Res := DBMS_SQL.EXECUTE(n_CursorId);

247:
248: --FND_FILE.NEW_LINE(FND_FILE.LOG,1);
249: --FND_FILE.PUT_LINE(FND_FILE.LOG, sSql);
250:
251: n_Res := DBMS_SQL.EXECUTE(n_CursorId);
252:
253: nCount := 0;
254: nRowTrn := 0;
255: nCountInteraction := 0;

Line 261: IF DBMS_SQL.FETCH_ROWS(n_CursorId) = 0 THEN

257: nCountMediaItems := 0;
258: nCountMediaItemLC := 0;
259:
260: LOOP
261: IF DBMS_SQL.FETCH_ROWS(n_CursorId) = 0 THEN
262: EXIT;
263: END IF;
264: DBMS_SQL.COLUMN_VALUE(n_CursorId,1,nInteraction_Id);
265: -- If current interaction has any errors then skip it

Line 264: DBMS_SQL.COLUMN_VALUE(n_CursorId,1,nInteraction_Id);

260: LOOP
261: IF DBMS_SQL.FETCH_ROWS(n_CursorId) = 0 THEN
262: EXIT;
263: END IF;
264: DBMS_SQL.COLUMN_VALUE(n_CursorId,1,nInteraction_Id);
265: -- If current interaction has any errors then skip it
266: BEGIN
267: IF l_SafeMode = 'FALSE' THEN
268: BEGIN

Line 381: DBMS_SQL.CLOSE_CURSOR(n_CursorId);

377: FND_MESSAGE.SET_TOKEN('MEDIAITEMLC', to_char(nCountMediaItemLC));
378: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
379: END IF;
380: END IF;
381: DBMS_SQL.CLOSE_CURSOR(n_CursorId);
382: EXCEPTION
383: WHEN ErrInvPartyType THEN
384: FND_MESSAGE.SET_NAME('JTF','JTF_IH_PURGE_INV_PARTY_TYPE');
385: FND_MESSAGE.SET_TOKEN('PARTYTYPE', p_Party_Type);