[Home] [Help]
21: l_tag VARCHAR2(10);
22: l_api_name CONSTANT VARCHAR2(30) := 'REPLACE_TAG';
23: l_full_name CONSTANT VARCHAR2(100) := G_PKG_NAME || '.' || l_api_name;
24: BEGIN
25: JTF_FM_UTL_V.PRINT_MESSAGE('BEGIN ' || l_full_name, JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
26:
27:
28: -- Initialize the string
29: l_message := p_string;
50: l_tag := '^@' || ' ';
51: l_message := replace(l_message, '''', l_tag);
52:
53:
54: JTF_FM_UTL_V.PRINT_MESSAGE('END' || l_full_name, JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
55:
56: RETURN l_message;
57: END REPLACE_TAG;
58:
72: l_api_name CONSTANT VARCHAR2(30) := 'GET_QUEUE_NAME';
73: l_full_name CONSTANT VARCHAR2(2000) := G_PKG_NAME || '.' || l_api_name;
74:
75: BEGIN
76: JTF_FM_UTL_V.PRINT_MESSAGE('BEGIN' || l_full_name, JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
77:
78: SELECT DECODE(p_request_type,'M', MASS_REQUEST_Q, 'B' , BATCH_REQUEST_Q, 'MP', MASS_PAUSE_Q, BATCH_PAUSE_Q)
79: INTO l_queue_name
80: FROM JTF_FM_SERVICE_ALL
79: INTO l_queue_name
80: FROM JTF_FM_SERVICE_ALL
81: WHERE SERVer_ID = p_server_id;
82:
83: JTF_FM_UTL_V.PRINT_MESSAGE('END function GET_QUEU_NAME', JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,'JTF_FM_REQUEST_GRP.GET_QUEUE_NAME');
84:
85: RETURN l_queue_name;
86:
87: EXCEPTION
87: EXCEPTION
88: WHEN NO_DATA_FOUND
89: THEN
90: --l_Error_Msg := 'Could not find queue_names in the database';
91: JTF_FM_UTL_V.Handle_ERROR('JTF_FM_API_QUEUE_NOTFOUND',to_char(p_server_id));
92:
93: JTF_FM_UTL_V.PRINT_MESSAGE('END' || l_full_name, JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
94:
95: END GET_QUEUE_NAME;
89: THEN
90: --l_Error_Msg := 'Could not find queue_names in the database';
91: JTF_FM_UTL_V.Handle_ERROR('JTF_FM_API_QUEUE_NOTFOUND',to_char(p_server_id));
92:
93: JTF_FM_UTL_V.PRINT_MESSAGE('END' || l_full_name, JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
94:
95: END GET_QUEUE_NAME;
96:
97: FUNCTION GET_FILE_NAME (
103: l_api_name CONSTANT VARCHAR2(30) := 'GET_FILE_NAME';
104: l_full_name CONSTANT VARCHAR2(2000) := G_PKG_NAME || '.' || l_api_name;
105:
106: BEGIN
107: JTF_FM_UTL_V.PRINT_MESSAGE('BEGIN' || l_full_name , JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
108: JTF_FM_UTL_V.PRINT_MESSAGE('File Id' || p_file_id, JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
109: SELECT FILE_NAME into l_file_name from fnd_lobs where file_id = p_file_id and LANGUAGE = USERENV('LANG') ;
110:
111: JTF_FM_UTL_V.PRINT_MESSAGE('END function ', JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,'JTF_FM_REQUEST_GRP.GET_QUEUE_NAME');
104: l_full_name CONSTANT VARCHAR2(2000) := G_PKG_NAME || '.' || l_api_name;
105:
106: BEGIN
107: JTF_FM_UTL_V.PRINT_MESSAGE('BEGIN' || l_full_name , JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
108: JTF_FM_UTL_V.PRINT_MESSAGE('File Id' || p_file_id, JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
109: SELECT FILE_NAME into l_file_name from fnd_lobs where file_id = p_file_id and LANGUAGE = USERENV('LANG') ;
110:
111: JTF_FM_UTL_V.PRINT_MESSAGE('END function ', JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,'JTF_FM_REQUEST_GRP.GET_QUEUE_NAME');
112:
107: JTF_FM_UTL_V.PRINT_MESSAGE('BEGIN' || l_full_name , JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
108: JTF_FM_UTL_V.PRINT_MESSAGE('File Id' || p_file_id, JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
109: SELECT FILE_NAME into l_file_name from fnd_lobs where file_id = p_file_id and LANGUAGE = USERENV('LANG') ;
110:
111: JTF_FM_UTL_V.PRINT_MESSAGE('END function ', JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,'JTF_FM_REQUEST_GRP.GET_QUEUE_NAME');
112:
113: RETURN l_file_name;
114:
115: EXCEPTION
115: EXCEPTION
116: WHEN NO_DATA_FOUND
117: THEN
118: --l_Error_Msg := 'Could not find queue_names in the database';
119: JTF_FM_UTL_V.Handle_ERROR('JTF_FM_API_FILENAME_NOTFOUND',to_char(p_file_id));
120:
121: JTF_FM_UTL_V.PRINT_MESSAGE('END' || l_full_name, JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
122:
123: END GET_FILE_NAME;
117: THEN
118: --l_Error_Msg := 'Could not find queue_names in the database';
119: JTF_FM_UTL_V.Handle_ERROR('JTF_FM_API_FILENAME_NOTFOUND',to_char(p_file_id));
120:
121: JTF_FM_UTL_V.PRINT_MESSAGE('END' || l_full_name, JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
122:
123: END GET_FILE_NAME;
124:
125:
143: l_api_name CONSTANT VARCHAR2(30) := 'SWAP_QUEUES';
144: l_full_name CONSTANT VARCHAR2(2000) := G_PKG_NAME || '.' || l_api_name;
145:
146: BEGIN
147: JTF_FM_UTL_V.PRINT_MESSAGE('BEGIN' || l_full_name, JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
148:
149: --default the queue values
150:
151: l_dequeue_options.wait := dbms_aq.no_wait;
163: dbms_aq.enqueue(queue_name => p_enqueue_name, enqueue_options => l_enqueue_options,
164: message_properties => l_message_properties,
165: payload => l_message, msgid => x_new_msg_handle);
166:
167: JTF_FM_UTL_V.PRINT_MESSAGE('END' || l_full_name, JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
168:
169: END SWAP_QUEUES;
170: /**
171: Procedure to update JTF_FM_REQUESTS_AQ table.
182: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_RESUBMITTED';
183: l_full_name CONSTANT VARCHAR2(2000) := G_PKG_NAME || '.' || l_api_name;
184:
185: BEGIN
186: JTF_FM_UTL_V.PRINT_MESSAGE('BEGIN' || l_full_name, JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
187:
188: INSERT INTO JTF_FM_RESUBMITTED (
189: PARENT_REQ_ID, JOB_ID, REQUEST_ID,
190: CREATED_BY, CREATION_DATE, LAST_UPDATED_BY,
192: VALUES (p_parent_req_id ,p_job ,p_request_id ,
193: FND_GLOBAL.USER_ID,SYSDATE,FND_GLOBAL.USER_ID,
194: SYSDATE, FND_GLOBAL.LOGIN_ID);
195:
196: JTF_FM_UTL_V.PRINT_MESSAGE('END ' || l_full_name, JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,'JTF_FM_REQUEST_GRP.UPDATE_REQUESTS_AQ');
197:
198: END UPDATE_RESUBMITTED;
199:
200:
246: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
247: FND_MESSAGE.Set_Name('JTF','JTF_FM_API_CANCEL_SUCCESS');
248: FND_MSG_PUB.Add;
249: END IF;
250: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
251: EXCEPTION
252: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
253: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
254: --JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, l_Error_Msg);
250: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
251: EXCEPTION
252: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
253: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
254: --JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, l_Error_Msg);
255: -- Standard call to get message count and if count=1, get the message
256: FND_MSG_PUB.Count_And_Get (
257: p_encoded => FND_API.g_false,
258: p_count => x_msg_count,
257: p_encoded => FND_API.g_false,
258: p_count => x_msg_count,
259: p_data => x_msg_data
260: );
261: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
262: WHEN FND_API.G_EXC_ERROR THEN
263: x_return_status := FND_API.G_RET_STS_ERROR;
264: --JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, l_Error_Msg);
265: -- Standard call to get message count and if count=1, get the message
260: );
261: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
262: WHEN FND_API.G_EXC_ERROR THEN
263: x_return_status := FND_API.G_RET_STS_ERROR;
264: --JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, l_Error_Msg);
265: -- Standard call to get message count and if count=1, get the message
266: FND_MSG_PUB.Count_And_Get (
267: p_encoded => FND_API.g_false,
268: p_count => x_msg_count,
267: p_encoded => FND_API.g_false,
268: p_count => x_msg_count,
269: p_data => x_msg_data
270: );
271: JTF_FM_UTL_V.PRINT_MESSAGE('x_message: '||x_msg_data,JTF_FM_UTL_V.G_LEVEL_STATEMENT,l_full_name);
272: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
273: WHEN OTHERS THEN
274: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
275: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, SQLERRM);
268: p_count => x_msg_count,
269: p_data => x_msg_data
270: );
271: JTF_FM_UTL_V.PRINT_MESSAGE('x_message: '||x_msg_data,JTF_FM_UTL_V.G_LEVEL_STATEMENT,l_full_name);
272: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
273: WHEN OTHERS THEN
274: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
275: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, SQLERRM);
276: IF FND_MSG_PUB.Check_Msg_Level
271: JTF_FM_UTL_V.PRINT_MESSAGE('x_message: '||x_msg_data,JTF_FM_UTL_V.G_LEVEL_STATEMENT,l_full_name);
272: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
273: WHEN OTHERS THEN
274: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
275: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, SQLERRM);
276: IF FND_MSG_PUB.Check_Msg_Level
277: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
278: THEN
279: FND_MSG_PUB.Add_Exc_Msg
284: p_encoded => FND_API.g_false,
285: p_count => x_msg_count,
286: p_data => x_msg_data
287: );
288: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
289: JTF_FM_UTL_V.PRINT_MESSAGE('END '|| l_full_name,JTF_FM_UTL_V.G_LEVEL_PROCEDURE,l_full_name);
290: END Determine_Request_Path;
291:
292:
285: p_count => x_msg_count,
286: p_data => x_msg_data
287: );
288: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
289: JTF_FM_UTL_V.PRINT_MESSAGE('END '|| l_full_name,JTF_FM_UTL_V.G_LEVEL_PROCEDURE,l_full_name);
290: END Determine_Request_Path;
291:
292:
293: ---------------------------------------------------------------------
326: l_return_status varchar2(1);
327: l_msg_count NUMBER;
328: l_msg_data VARCHAR2(2000);
329: BEGIN
330: JTF_FM_UTL_V.PRINT_MESSAGE('BEGIN '|| l_full_name,JTF_FM_UTL_V.G_LEVEL_PROCEDURE,l_full_name);
331: -- Standard begin of API savepoint
332: SAVEPOINT new_Cancel;
333:
334: IF NOT FND_API.Compatible_API_Call (
369:
370: update JTF_FM_INT_REQUEST_HEADER
371: set request_status = 'CANCELLED'
372: where REQUEST_ID = p_request_id ;
373: JTF_FM_UTL_V.PRINT_MESSAGE('END ' || l_full_name, JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,'JTF_FM_REQUEST_GRP.UPDATE_REQUESTS_AQ');
374:
375: -- Success message
376: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
377: THEN
399: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
400: FND_MESSAGE.Set_Name('JTF','JTF_FM_API_CANCEL_SUCCESS');
401: FND_MSG_PUB.Add;
402: END IF;
403: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
404: EXCEPTION
405: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
406: ROLLBACK TO new_cancel;
407: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
404: EXCEPTION
405: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
406: ROLLBACK TO new_cancel;
407: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
408: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, l_Error_Msg);
409: -- Standard call to get message count and if count=1, get the message
410: FND_MSG_PUB.Count_And_Get (
411: p_encoded => FND_API.g_false,
412: p_count => x_msg_count,
411: p_encoded => FND_API.g_false,
412: p_count => x_msg_count,
413: p_data => x_msg_data
414: );
415: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
416: WHEN FND_API.G_EXC_ERROR THEN
417: ROLLBACK TO new_cancel;
418: x_return_status := FND_API.G_RET_STS_ERROR;
419: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, l_Error_Msg);
415: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
416: WHEN FND_API.G_EXC_ERROR THEN
417: ROLLBACK TO new_cancel;
418: x_return_status := FND_API.G_RET_STS_ERROR;
419: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, l_Error_Msg);
420: -- Standard call to get message count and if count=1, get the message
421: FND_MSG_PUB.Count_And_Get (
422: p_encoded => FND_API.g_false,
423: p_count => x_msg_count,
422: p_encoded => FND_API.g_false,
423: p_count => x_msg_count,
424: p_data => x_msg_data
425: );
426: JTF_FM_UTL_V.PRINT_MESSAGE('x_message: '||x_msg_data,JTF_FM_UTL_V.G_LEVEL_STATEMENT,l_full_name);
427: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
428: WHEN OTHERS THEN
429: ROLLBACK TO new_cancel;
430: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
423: p_count => x_msg_count,
424: p_data => x_msg_data
425: );
426: JTF_FM_UTL_V.PRINT_MESSAGE('x_message: '||x_msg_data,JTF_FM_UTL_V.G_LEVEL_STATEMENT,l_full_name);
427: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
428: WHEN OTHERS THEN
429: ROLLBACK TO new_cancel;
430: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
431: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, SQLERRM);
427: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
428: WHEN OTHERS THEN
429: ROLLBACK TO new_cancel;
430: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
431: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, SQLERRM);
432: IF FND_MSG_PUB.Check_Msg_Level
433: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
434: THEN
435: FND_MSG_PUB.Add_Exc_Msg
440: p_encoded => FND_API.g_false,
441: p_count => x_msg_count,
442: p_data => x_msg_data
443: );
444: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
445: JTF_FM_UTL_V.PRINT_MESSAGE('END '|| l_full_name,JTF_FM_UTL_V.G_LEVEL_PROCEDURE,l_full_name);
446: END New_Cancel_Request;
447:
448:
441: p_count => x_msg_count,
442: p_data => x_msg_data
443: );
444: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
445: JTF_FM_UTL_V.PRINT_MESSAGE('END '|| l_full_name,JTF_FM_UTL_V.G_LEVEL_PROCEDURE,l_full_name);
446: END New_Cancel_Request;
447:
448:
449: ---------------------------------------------------------------------------
473: l_full_name CONSTANT VARCHAR2(2000) := G_PKG_NAME || '.' || l_api_name;
474:
475: BEGIN
476:
477: JTF_FM_UTL_V.PRINT_MESSAGE('END ' || l_full_name, JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,'JTF_FM_REQUEST_GRP.UPDATE_REQUESTS_AQ');
478:
479: END NEW_PAUSE_RESUME_REQUEST;
480:
481: /*****************************************************
517:
518:
519: OPEN query_c;
520: FETCH query_c INTO l_query_name, l_query_id, l_query_string;
521: JTF_FM_UTL_V.PRINT_MESSAGE('Fetching file_id..',JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
522:
523:
524:
525: IF (query_c%NOTFOUND) THEN
522:
523:
524:
525: IF (query_c%NOTFOUND) THEN
526: JTF_FM_UTL_V.PRINT_MESSAGE('Invalid Content_id',JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
527:
528: CLOSE query_c;
529: l_Error_Msg := 'Could not find content in the database';
530: JTF_FM_UTL_V.HANDLE_ERROR('JTF_FM_QUERY_NOT_FOUND',p_query_id);
526: JTF_FM_UTL_V.PRINT_MESSAGE('Invalid Content_id',JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
527:
528: CLOSE query_c;
529: l_Error_Msg := 'Could not find content in the database';
530: JTF_FM_UTL_V.HANDLE_ERROR('JTF_FM_QUERY_NOT_FOUND',p_query_id);
531: RAISE FND_API.G_EXC_ERROR;
532: ELSE
533:
534: select fnd_lobs_s.nextval into x_query_file_id from dual;
531: RAISE FND_API.G_EXC_ERROR;
532: ELSE
533:
534: select fnd_lobs_s.nextval into x_query_file_id from dual;
535: JTF_FM_UTL_V.PRINT_MESSAGE('GOT FILE ID SEQ from FND_LOBS '|| x_query_file_id,JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
536: JTF_FM_UTL_V.PRINT_MESSAGE('Query Name is :'|| l_query_name,JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
537: --JTF_FM_UTL_V.PRINT_MESSAGE('Query String is :'|| l_query_string,JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
538: JTF_FM_UTL_V.PRINT_MESSAGE('Query ID is :'|| l_query_id,JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
539:
532: ELSE
533:
534: select fnd_lobs_s.nextval into x_query_file_id from dual;
535: JTF_FM_UTL_V.PRINT_MESSAGE('GOT FILE ID SEQ from FND_LOBS '|| x_query_file_id,JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
536: JTF_FM_UTL_V.PRINT_MESSAGE('Query Name is :'|| l_query_name,JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
537: --JTF_FM_UTL_V.PRINT_MESSAGE('Query String is :'|| l_query_string,JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
538: JTF_FM_UTL_V.PRINT_MESSAGE('Query ID is :'|| l_query_id,JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
539:
540: --dbms_output.put_line('File Id is :' || to_char(l_file_id));
533:
534: select fnd_lobs_s.nextval into x_query_file_id from dual;
535: JTF_FM_UTL_V.PRINT_MESSAGE('GOT FILE ID SEQ from FND_LOBS '|| x_query_file_id,JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
536: JTF_FM_UTL_V.PRINT_MESSAGE('Query Name is :'|| l_query_name,JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
537: --JTF_FM_UTL_V.PRINT_MESSAGE('Query String is :'|| l_query_string,JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
538: JTF_FM_UTL_V.PRINT_MESSAGE('Query ID is :'|| l_query_id,JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
539:
540: --dbms_output.put_line('File Id is :' || to_char(l_file_id));
541: -- dbms_output.put_line('Inserting empty_blob() row');
534: select fnd_lobs_s.nextval into x_query_file_id from dual;
535: JTF_FM_UTL_V.PRINT_MESSAGE('GOT FILE ID SEQ from FND_LOBS '|| x_query_file_id,JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
536: JTF_FM_UTL_V.PRINT_MESSAGE('Query Name is :'|| l_query_name,JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
537: --JTF_FM_UTL_V.PRINT_MESSAGE('Query String is :'|| l_query_string,JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
538: JTF_FM_UTL_V.PRINT_MESSAGE('Query ID is :'|| l_query_id,JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
539:
540: --dbms_output.put_line('File Id is :' || to_char(l_file_id));
541: -- dbms_output.put_line('Inserting empty_blob() row');
542: INSERT INTO fnd_lobs (
563:
564: --dbms_output.put_line('casting to raw...');
565: l_query_raw := UTL_RAW.CAST_TO_RAW(l_query);
566:
567: JTF_FM_UTL_V.PRINT_MESSAGE('Query converted to RAW',JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
568:
569: --dbms_output.put_line('Length of l_query...' || to_char(length(l_query)));
570:
571: select file_data into l_file_data
577: DBMS_LOB.OPEN(l_file_data,DBMS_LOB.LOB_READWRITE);
578: DBMS_LOB.WRITE(l_file_data, l_amount, 1, l_query_raw);
579: DBMS_LOB.CLOSE(l_file_data);
580:
581: JTF_FM_UTL_V.PRINT_MESSAGE('Uploaded Query into FND_LOBS ',JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
582:
583: update jtf_fm_queries_all set file_id = x_query_file_id
584: where query_id = p_query_id;
585:
584: where query_id = p_query_id;
585:
586: COMMIT;
587:
588: JTF_FM_UTL_V.PRINT_MESSAGE('UPDATED Query Tables with FILEID '|| x_query_file_id,JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
589:
590:
591: END IF; --IF (query_c%NOTFOUND) THEN
592:
594: exception
595: when others then
596: ROLLBACK TO query_status;
597: l_Error_Msg := 'Could not find Query Details in JTF_FM_QUERIES_ALL table';
598: JTF_FM_UTL_V.HANDLE_ERROR('JTF_FM_QUERY_NOT_FOUND',p_query_id);
599: RAISE FND_API.G_EXC_ERROR;
600:
601: END INSERT_QUERY;
602:
625: -- Standard savepoint
626: SAVEPOINT query_status;
627: BEGIN
628: Select file_id into x_query_file_id from fnd_lobs where file_id = p_query_file_id;
629: JTF_FM_UTL_V.PRINT_MESSAGE('File PRESENT Id in FND_LOBS ',JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
630:
631: EXCEPTION
632: WHEN NO_DATA_FOUND THEN
633: JTF_FM_UTL_V.PRINT_MESSAGE('No File Id in FND_LOBS',JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
629: JTF_FM_UTL_V.PRINT_MESSAGE('File PRESENT Id in FND_LOBS ',JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
630:
631: EXCEPTION
632: WHEN NO_DATA_FOUND THEN
633: JTF_FM_UTL_V.PRINT_MESSAGE('No File Id in FND_LOBS',JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
634:
635: INSERT_QUERY(p_query_id, x_query_file_id);
636: END;
637:
638: exception
639: when others then
640: ROLLBACK TO query_status;
641: l_Error_Msg := 'Could not find Query Details in JTF_FM_QUERIES_ALL table';
642: JTF_FM_UTL_V.HANDLE_ERROR('JTF_FM_QUERY_NOT_FOUND',p_query_id);
643: RAISE FND_API.G_EXC_ERROR;
644:
645: END CHECK_AND_INSERT_QUERY;
646:
678: FROM JTF_FM_REQUEST_CONTENTS
679: where request_id = p_request_id;
680:
681: BEGIN
682: JTF_FM_UTL_V.PRINT_MESSAGE('BEGIN' || l_full_name, JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
683:
684: OPEN CCONT;
685: IF(CCONT%NOTFOUND)
686: THEN
685: IF(CCONT%NOTFOUND)
686: THEN
687: CLOSE CCONT;
688: l_Error_Msg := 'Could not find REQUEST DATA in the database';
689: JTF_FM_UTL_V.HANDLE_ERROR('JTF_FM_API_REQUEST_NOTFOUND',to_char(p_request_id));
690: END IF; -- End IF(CMASSMSG%NOTFOUND)
691: LOOP -- looping through all the batches queued and removing them
692: FETCH CCONT INTO l_content_id,l_content_number,
693: l_content_name,l_content_type,l_document_type,l_body,
706: FND_GLOBAL.USER_ID,SYSDATE,
707: FND_GLOBAL.USER_ID,SYSDATE, FND_GLOBAL.LOGIN_ID,
708: l_media_type,l_content_source ,l_file_id );
709:
710: JTF_FM_UTL_V.PRINT_MESSAGE('END ' || l_full_name, JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
711:
712: END LOOP;
713:
714: CLOSE CCONT;
733: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_REQUESTS_AQ';
734: l_full_name CONSTANT VARCHAR2(2000) := G_PKG_NAME || '.' || l_api_name;
735:
736: BEGIN
737: JTF_FM_UTL_V.PRINT_MESSAGE('BEGIN' || l_full_name, JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
738:
739: --UPDATE JTF_FM_REQUESTS_AQ with the new information
740: UPDATE JTF_FM_REQUESTS_AQ
741: SET QUEUE_TYPE = p_queue_type ,
741: SET QUEUE_TYPE = p_queue_type ,
742: AQ_MSG_ID = p_new_msg_handle
743: WHERE REQUEST_ID = p_request_id
744: AND AQ_MSG_ID = p_old_msg_handle;
745: JTF_FM_UTL_V.PRINT_MESSAGE('END ' || l_full_name, JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,'JTF_FM_REQUEST_GRP.UPDATE_REQUESTS_AQ');
746:
747: END UPDATE_REQUESTS_AQ;
748:
749: /**
761: l_full_name CONSTANT VARCHAR2(2000) := G_PKG_NAME || '.' || l_api_name;
762:
763: BEGIN
764:
765: JTF_FM_UTL_V.PRINT_MESSAGE('BEGIN' || l_full_name, JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
766:
767: UPDATE JTF_FM_STATUS_ALL
768: SET
769: REQUEST_STATUS = p_outcome_code
776: message_id = p_msg_id
777: WHERE
778: hist_req_id = p_request_id;
779:
780: JTF_FM_UTL_V.PRINT_MESSAGE('Begin procedure UPDATE_STATUS_HISTORY', JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,'JTF_FM_REQUEST_GRP.UPDATE_STATUS_HISTORY');
781:
782:
783: END UPDATE_STATUS_HISTORY;
784:
800: l_api_name CONSTANT VARCHAR2(30) := 'INSERT_REQUEST_CONTENTS';
801: l_full_name CONSTANT VARCHAR2(2000) := G_PKG_NAME || '.' || l_api_name;
802:
803: BEGIN
804: JTF_FM_UTL_V.PRINT_MESSAGE('Begin PROCEDURE INSERT_REQUEST_CONTENTS', JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
805:
806: INSERT INTO JTF_FM_REQUEST_CONTENTS (
807: REQUEST_ID,
808: CONTENT_ID,
839: p_media_type ,
840: p_content_source ,
841: p_file_id );
842:
843: JTF_FM_UTL_V.PRINT_MESSAGE('End PROCEDURE INSERT_REQUEST_CONTENTS', JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
844:
845: EXCEPTION
846: WHEN OTHERS
847: THEN
844:
845: EXCEPTION
846: WHEN OTHERS
847: THEN
848: JTF_FM_UTL_V.PRINT_MESSAGE('UNEXPECTED ERROR IN PROCEDURE INSERT_REQUEST_CONTENTS', JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
849:
850: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
851:
852: END INSERT_REQUEST_CONTENTS;
1002: l_bind_end_tag VARCHAR2(32767) := '';
1003: l_bind_empty_tag VARCHAR2(32767) := '"/>';
1004: e_parameters_read EXCEPTION;
1005: BEGIN
1006: JTF_FM_UTL_V.PRINT_MESSAGE('BEGIN' || l_full_name, JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
1007:
1008: BEGIN
1009: --select merge_xml into l_bind from JTF_FM_PROCESSED where request_id = p_request_id and job = p_job_id;
1010:
2344:
2345: EXCEPTION
2346: WHEN NO_DATA_FOUND
2347: THEN
2348: JTF_FM_UTL_V.PRINT_MESSAGE('JTF_FM_JOB_NOT_FOUND', JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,'JTF_FM_REQUEST_GRP.GET_FILE_ID');
2349: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2350: THEN
2351: FND_MESSAGE.set_name('JTF', 'JTF_FM_JOB_NOT_FOUND');
2352: FND_MESSAGE.Set_Token('ARG1',p_job_id);
2359:
2360: /*
2361: l_amount := DBMS_LOB.GETLENGTH(l_bind);
2362:
2363: JTF_FM_UTL_V.PRINT_MESSAGE('LOB LEngth' || l_amount,JTF_FM_UTL_V.G_LEVEL_STATEMENT,l_full_name);
2364: DBMS_LOB.READ (l_bind, l_amount, 1, l_buffer);
2365:
2366: l_parser := xmlparser.newparser();
2367: xmlparser.parseBuffer(l_parser, UTL_RAW.CAST_TO_VARCHAR2(l_buffer));
2367: xmlparser.parseBuffer(l_parser, UTL_RAW.CAST_TO_VARCHAR2(l_buffer));
2368: l_doc := xmlparser.getdocument(l_parser);
2369: BUILD_BIND(l_doc,x_bind_info);
2370: xmlparser.FREEPARSER(l_parser);
2371: JTF_FM_UTL_V.PRINT_MESSAGE('END' || l_full_name, JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
2372: */
2373: END GET_BIND_INFO;
2374:
2375: PROCEDURE GET_MEDIA(
2384: l_Error_Msg VARCHAR2(2000);
2385: l_api_name CONSTANT VARCHAR2(30) := 'GET_MEDIA';
2386: l_full_name CONSTANT VARCHAR2(2000) := G_PKG_NAME ||'.'|| l_api_name;
2387: BEGIN
2388: JTF_FM_UTL_V.PRINT_MESSAGE('BEGIN' || l_full_name, JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
2389:
2390: l_message := l_message||'
2391:
2392: -- Identify the media types requested
2429: -- Check if atleast one valid media type has been specified
2430: IF (l_temp = 0)
2431: THEN
2432: l_Error_Msg := 'Invalid media type specified. Allowed media_types are EMAIL, FAX, PRINTER';
2433: JTF_FM_UTL_V.PRINT_MESSAGE('Invalid media type specified. Allowed media_types are EMAIL, FAX, PRINTER' ,JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
2434:
2435: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
2436: THEN
2437: FND_MESSAGE.set_name('JTF', 'JTF_FM_API_INVALID_MEDIATYPE');
2444:
2445: l_message := l_message||' '||a;
2446: --dbms_output.put_line('l_message is :' || l_message);
2447:
2448: JTF_FM_UTL_V.PRINT_MESSAGE('END' || l_full_name, JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
2449:
2450: END GET_MEDIA;
2451:
2452:
2461: l_api_name CONSTANT VARCHAR2(30) := 'IS_HTML';
2462: l_full_name CONSTANT VARCHAR2(2000) := G_PKG_NAME || '.' || l_api_name;
2463:
2464: BEGIN
2465: JTF_FM_UTL_V.PRINT_MESSAGE('Begin function IS_HTML', JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,'JTF_FM_REQUEST_GRP.IS_HTML');
2466:
2467: -- Get the last index of .
2468: -- Search for htm, if htm, return true else return false
2469: IF(INSTR(SUBSTR(p_item_name, Length(p_item_name)-4 ,Length(p_item_name)),'htm') > 0) THEN
2467: -- Get the last index of .
2468: -- Search for htm, if htm, return true else return false
2469: IF(INSTR(SUBSTR(p_item_name, Length(p_item_name)-4 ,Length(p_item_name)),'htm') > 0) THEN
2470: x_html := 'true';
2471: JTF_FM_UTL_V.PRINT_MESSAGE('Document is a html doc', JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,'JTF_FM_REQUEST_GRP.IS_HTML');
2472:
2473: END IF;
2474:
2475: JTF_FM_UTL_V.PRINT_MESSAGE('END' || l_full_name, JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
2471: JTF_FM_UTL_V.PRINT_MESSAGE('Document is a html doc', JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,'JTF_FM_REQUEST_GRP.IS_HTML');
2472:
2473: END IF;
2474:
2475: JTF_FM_UTL_V.PRINT_MESSAGE('END' || l_full_name, JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
2476:
2477: RETURN x_html;
2478: END IS_HTML;
2479:
2490: l_req_count NUMBER := 0;
2491:
2492: BEGIN
2493:
2494: JTF_FM_UTL_V.PRINT_MESSAGE('BEGIN' || l_full_name,
2495: JTF_FM_UTL_V.G_LEVEL_PROCEDURE, l_full_name);
2496:
2497: SELECT DISTINCT COUNT(REQUEST_ID) INTO l_req_count FROM JTF_FM_TEST_REQUESTS
2498: WHERE REQUEST_ID = p_request_id ;
2491:
2492: BEGIN
2493:
2494: JTF_FM_UTL_V.PRINT_MESSAGE('BEGIN' || l_full_name,
2495: JTF_FM_UTL_V.G_LEVEL_PROCEDURE, l_full_name);
2496:
2497: SELECT DISTINCT COUNT(REQUEST_ID) INTO l_req_count FROM JTF_FM_TEST_REQUESTS
2498: WHERE REQUEST_ID = p_request_id ;
2499:
2519: END IF;
2520:
2521: EXCEPTION
2522: WHEN NO_DATA_FOUND THEN
2523: JTF_FM_UTL_V.PRINT_MESSAGE('JTF_FM_OCM_NOTAPP_OR_ABS',
2524: JTF_FM_UTL_V.G_LEVEL_PROCEDURE, 'JTF_FM_REQUEST_GRP.GET_FILE_ID');
2525: JTF_FM_UTL_V.HANDLE_ERROR('JTF_FM_OCM_NOTAPP_OR_ABS', p_content_id);
2526: RAISE FND_API.G_EXC_ERROR;
2527: END;
2520:
2521: EXCEPTION
2522: WHEN NO_DATA_FOUND THEN
2523: JTF_FM_UTL_V.PRINT_MESSAGE('JTF_FM_OCM_NOTAPP_OR_ABS',
2524: JTF_FM_UTL_V.G_LEVEL_PROCEDURE, 'JTF_FM_REQUEST_GRP.GET_FILE_ID');
2525: JTF_FM_UTL_V.HANDLE_ERROR('JTF_FM_OCM_NOTAPP_OR_ABS', p_content_id);
2526: RAISE FND_API.G_EXC_ERROR;
2527: END;
2528:
2521: EXCEPTION
2522: WHEN NO_DATA_FOUND THEN
2523: JTF_FM_UTL_V.PRINT_MESSAGE('JTF_FM_OCM_NOTAPP_OR_ABS',
2524: JTF_FM_UTL_V.G_LEVEL_PROCEDURE, 'JTF_FM_REQUEST_GRP.GET_FILE_ID');
2525: JTF_FM_UTL_V.HANDLE_ERROR('JTF_FM_OCM_NOTAPP_OR_ABS', p_content_id);
2526: RAISE FND_API.G_EXC_ERROR;
2527: END;
2528:
2529: JTF_FM_UTL_V.PRINT_MESSAGE('END' || l_full_name,
2525: JTF_FM_UTL_V.HANDLE_ERROR('JTF_FM_OCM_NOTAPP_OR_ABS', p_content_id);
2526: RAISE FND_API.G_EXC_ERROR;
2527: END;
2528:
2529: JTF_FM_UTL_V.PRINT_MESSAGE('END' || l_full_name,
2530: JTF_FM_UTL_V.G_LEVEL_PROCEDURE, l_full_name);
2531: RETURN file_id;
2532:
2533: END GET_FILE_ID;
2526: RAISE FND_API.G_EXC_ERROR;
2527: END;
2528:
2529: JTF_FM_UTL_V.PRINT_MESSAGE('END' || l_full_name,
2530: JTF_FM_UTL_V.G_LEVEL_PROCEDURE, l_full_name);
2531: RETURN file_id;
2532:
2533: END GET_FILE_ID;
2534:
2555: l_full_name CONSTANT VARCHAR2(2000) := G_PKG_NAME || '.' || l_api_name;
2556:
2557: BEGIN
2558:
2559: JTF_FM_UTL_V.PRINT_MESSAGE('BEGIN' || l_full_name, JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
2560:
2561: JTF_FM_UTL_V.PRINT_MESSAGE(' THE REQUEST_ID IS ' || p_request_id, JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,'JTF_FM_REQUEST_GRP.GET_ATTACH_FILE_ID');
2562:
2563: SELECT DISTINCT COUNT(REQUEST_ID) INTO l_req_count FROM JTF_FM_TEST_REQUESTS
2557: BEGIN
2558:
2559: JTF_FM_UTL_V.PRINT_MESSAGE('BEGIN' || l_full_name, JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
2560:
2561: JTF_FM_UTL_V.PRINT_MESSAGE(' THE REQUEST_ID IS ' || p_request_id, JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,'JTF_FM_REQUEST_GRP.GET_ATTACH_FILE_ID');
2562:
2563: SELECT DISTINCT COUNT(REQUEST_ID) INTO l_req_count FROM JTF_FM_TEST_REQUESTS
2564: WHERE REQUEST_ID = p_request_id ;
2565: BEGIN
2564: WHERE REQUEST_ID = p_request_id ;
2565: BEGIN
2566: IF l_req_count > 0
2567: THEN
2568: JTF_FM_UTL_V.PRINT_MESSAGE(' THE COUNT IS ' || l_req_count, JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,'JTF_FM_REQUEST_GRP.GET_ATTACH_FILE_ID');
2569:
2570: SELECT CITEM_VER_ID INTO l_cItemVersionId FROM IBC_CITEMS_V
2571: WHERE CITEM_ID = TO_NUMBER(p_content_id)
2572: and LANGUAGE = USERENV('LANG');
2581: END IF;
2582: EXCEPTION
2583: WHEN NO_DATA_FOUND
2584: THEN
2585: JTF_FM_UTL_V.PRINT_MESSAGE(' JTF_FM_OCM_NOTAPP_OR_ABS' ||' : ' || p_content_id, JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,'JTF_FM_REQUEST_GRP.GET_ATTACH_FILE_ID');
2586: JTF_FM_UTL_V.HANDLE_ERROR('JTF_FM_OCM_NOTAPP_OR_ABS', p_content_id);
2587: RAISE FND_API.G_EXC_ERROR;
2588:
2589: END;
2582: EXCEPTION
2583: WHEN NO_DATA_FOUND
2584: THEN
2585: JTF_FM_UTL_V.PRINT_MESSAGE(' JTF_FM_OCM_NOTAPP_OR_ABS' ||' : ' || p_content_id, JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,'JTF_FM_REQUEST_GRP.GET_ATTACH_FILE_ID');
2586: JTF_FM_UTL_V.HANDLE_ERROR('JTF_FM_OCM_NOTAPP_OR_ABS', p_content_id);
2587: RAISE FND_API.G_EXC_ERROR;
2588:
2589: END;
2590:
2588:
2589: END;
2590:
2591:
2592: JTF_FM_UTL_V.PRINT_MESSAGE('Before Ibc_Citem_Admin_Grp.get_attribute_bundle call ' , JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,'JTF_FM_REQUEST_GRP.GET_ATTACH_FILE_ID');
2593:
2594:
2595: Ibc_Citem_Admin_Grp.get_attribute_bundle(
2596: p_citem_ver_id => l_cItemVersionId
2620: END LOOP;
2621:
2622: END IF;
2623:
2624: JTF_FM_UTL_V.PRINT_MESSAGE('END' || l_full_name, JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
2625: RETURN file_id;
2626:
2627: END GET_ATTACH_FILE_ID;
2628: --------------------------------------------------------------
2722: text_fnd_id NUMBER ;
2723:
2724: BEGIN
2725:
2726: JTF_FM_UTL_V.PRINT_MESSAGE('BEGIN' || l_full_name,
2727: JTF_FM_UTL_V.G_LEVEL_PROCEDURE, l_full_name);
2728:
2729: -- Initialize API return status to success
2730: x_return_status := FND_API.G_RET_STS_SUCCESS;
2723:
2724: BEGIN
2725:
2726: JTF_FM_UTL_V.PRINT_MESSAGE('BEGIN' || l_full_name,
2727: JTF_FM_UTL_V.G_LEVEL_PROCEDURE, l_full_name);
2728:
2729: -- Initialize API return status to success
2730: x_return_status := FND_API.G_RET_STS_SUCCESS;
2731:
2735:
2736: BEGIN
2737: IF l_req_count > 0 THEN
2738:
2739: JTF_FM_UTL_V.PRINT_MESSAGE(' IT IS A TEST REQUEST:THE COUNT IS ' ||
2740: l_req_count, JTF_FM_UTL_V.G_LEVEL_PROCEDURE,
2741: 'JTF_FM_REQUEST_GRP.GET_OCM_ITEM_DETAILS');
2742:
2743: IF(p_version IS NOT NULL AND p_version <> FND_API.G_MISS_NUM) THEN
2736: BEGIN
2737: IF l_req_count > 0 THEN
2738:
2739: JTF_FM_UTL_V.PRINT_MESSAGE(' IT IS A TEST REQUEST:THE COUNT IS ' ||
2740: l_req_count, JTF_FM_UTL_V.G_LEVEL_PROCEDURE,
2741: 'JTF_FM_REQUEST_GRP.GET_OCM_ITEM_DETAILS');
2742:
2743: IF(p_version IS NOT NULL AND p_version <> FND_API.G_MISS_NUM) THEN
2744:
2801: EXCEPTION
2802:
2803: WHEN NO_DATA_FOUND THEN
2804:
2805: JTF_FM_UTL_V.PRINT_MESSAGE(
2806: 'Content is either not present in OCM or is not approved' ||
2807: p_content_id, JTF_FM_UTL_V.G_LEVEL_PROCEDURE, l_full_name);
2808: JTF_FM_UTL_V.HANDLE_ERROR('JTF_FM_OCM_NOTAPP_OR_ABS', p_content_id);
2809:
2803: WHEN NO_DATA_FOUND THEN
2804:
2805: JTF_FM_UTL_V.PRINT_MESSAGE(
2806: 'Content is either not present in OCM or is not approved' ||
2807: p_content_id, JTF_FM_UTL_V.G_LEVEL_PROCEDURE, l_full_name);
2808: JTF_FM_UTL_V.HANDLE_ERROR('JTF_FM_OCM_NOTAPP_OR_ABS', p_content_id);
2809:
2810: RAISE FND_API.G_EXC_ERROR;
2811:
2804:
2805: JTF_FM_UTL_V.PRINT_MESSAGE(
2806: 'Content is either not present in OCM or is not approved' ||
2807: p_content_id, JTF_FM_UTL_V.G_LEVEL_PROCEDURE, l_full_name);
2808: JTF_FM_UTL_V.HANDLE_ERROR('JTF_FM_OCM_NOTAPP_OR_ABS', p_content_id);
2809:
2810: RAISE FND_API.G_EXC_ERROR;
2811:
2812: END;
2810: RAISE FND_API.G_EXC_ERROR;
2811:
2812: END;
2813:
2814: JTF_FM_UTL_V.PRINT_MESSAGE(' Before calling IBC_CITEM_ADMIN_GRP.get_item' ,
2815: JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
2816:
2817: BEGIN
2818:
2811:
2812: END;
2813:
2814: JTF_FM_UTL_V.PRINT_MESSAGE(' Before calling IBC_CITEM_ADMIN_GRP.get_item' ,
2815: JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
2816:
2817: BEGIN
2818:
2819: IBC_CITEM_ADMIN_GRP.get_item(
2862: );
2863:
2864: EXCEPTION
2865: WHEN OTHERS THEN
2866: JTF_FM_UTL_V.HANDLE_ERROR('JTF_FM_EXCEPTION_IN_GET_ITEM', p_content_id);
2867:
2868: RAISE FND_API.G_EXC_ERROR;
2869:
2870: END;
2870: END;
2871:
2872:
2873:
2874: JTF_FM_UTL_V.PRINT_MESSAGE('Return status from GET ITEM IS:'|| return_status,JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
2875: if (return_status <> FND_API.G_RET_STS_SUCCESS)
2876: then
2877: RAISE FND_API.G_EXC_ERROR;
2878: else
2875: if (return_status <> FND_API.G_RET_STS_SUCCESS)
2876: then
2877: RAISE FND_API.G_EXC_ERROR;
2878: else
2879: JTF_FM_UTL_V.PRINT_MESSAGE('IN GET_OCM_ITEM_DETAILS name = '||citem_name ,JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
2880: JTF_FM_UTL_V.PRINT_MESSAGE('THE REQUEST ID IS name = '|| p_request_id,JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
2881:
2882: IF attribute_type_codes IS NOT NULL THEN
2883: att_count := attribute_type_codes.COUNT;
2876: then
2877: RAISE FND_API.G_EXC_ERROR;
2878: else
2879: JTF_FM_UTL_V.PRINT_MESSAGE('IN GET_OCM_ITEM_DETAILS name = '||citem_name ,JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
2880: JTF_FM_UTL_V.PRINT_MESSAGE('THE REQUEST ID IS name = '|| p_request_id,JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
2881:
2882: IF attribute_type_codes IS NOT NULL THEN
2883: att_count := attribute_type_codes.COUNT;
2884: JTF_FM_UTL_V.PRINT_MESSAGE('att_count size is ' || att_count,JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
2880: JTF_FM_UTL_V.PRINT_MESSAGE('THE REQUEST ID IS name = '|| p_request_id,JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
2881:
2882: IF attribute_type_codes IS NOT NULL THEN
2883: att_count := attribute_type_codes.COUNT;
2884: JTF_FM_UTL_V.PRINT_MESSAGE('att_count size is ' || att_count,JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
2885: x_html := '
2886:
2887:
2888: LOOP
2888: LOOP
2889: EXIT WHEN att_count = counter;
2890: counter := counter + 1;
2891:
2892: JTF_FM_UTL_V.PRINT_MESSAGE('type_code = ' || attribute_type_codes(counter),JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
2893: JTF_FM_UTL_V.PRINT_MESSAGE('type_name = ' || attribute_type_names(counter),JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,'JTF_FM_REQUEST_GRP.GET_OCM_ITEM_DETAILS');
2894: JTF_FM_UTL_V.PRINT_MESSAGE('attribute = ' || attributes(counter),JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,'JTF_FM_REQUEST_GRP.GET_OCM_ITEM_DETAILS');
2895: JTF_FM_UTL_V.PRINT_MESSAGE('------------------------------------------------',JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,'JTF_FM_REQUEST_GRP.GET_OCM_ITEM_DETAILS');
2896: -- 11.5.9 ibc does not support Renditiosn, but 11.5.10 does
2889: EXIT WHEN att_count = counter;
2890: counter := counter + 1;
2891:
2892: JTF_FM_UTL_V.PRINT_MESSAGE('type_code = ' || attribute_type_codes(counter),JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
2893: JTF_FM_UTL_V.PRINT_MESSAGE('type_name = ' || attribute_type_names(counter),JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,'JTF_FM_REQUEST_GRP.GET_OCM_ITEM_DETAILS');
2894: JTF_FM_UTL_V.PRINT_MESSAGE('attribute = ' || attributes(counter),JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,'JTF_FM_REQUEST_GRP.GET_OCM_ITEM_DETAILS');
2895: JTF_FM_UTL_V.PRINT_MESSAGE('------------------------------------------------',JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,'JTF_FM_REQUEST_GRP.GET_OCM_ITEM_DETAILS');
2896: -- 11.5.9 ibc does not support Renditiosn, but 11.5.10 does
2897: -- For Backward compatibility, the HTML fnd Id and Text fnd Id
2890: counter := counter + 1;
2891:
2892: JTF_FM_UTL_V.PRINT_MESSAGE('type_code = ' || attribute_type_codes(counter),JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
2893: JTF_FM_UTL_V.PRINT_MESSAGE('type_name = ' || attribute_type_names(counter),JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,'JTF_FM_REQUEST_GRP.GET_OCM_ITEM_DETAILS');
2894: JTF_FM_UTL_V.PRINT_MESSAGE('attribute = ' || attributes(counter),JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,'JTF_FM_REQUEST_GRP.GET_OCM_ITEM_DETAILS');
2895: JTF_FM_UTL_V.PRINT_MESSAGE('------------------------------------------------',JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,'JTF_FM_REQUEST_GRP.GET_OCM_ITEM_DETAILS');
2896: -- 11.5.9 ibc does not support Renditiosn, but 11.5.10 does
2897: -- For Backward compatibility, the HTML fnd Id and Text fnd Id
2898: -- are stored in these two variables and will be used if the Renditions API
2891:
2892: JTF_FM_UTL_V.PRINT_MESSAGE('type_code = ' || attribute_type_codes(counter),JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
2893: JTF_FM_UTL_V.PRINT_MESSAGE('type_name = ' || attribute_type_names(counter),JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,'JTF_FM_REQUEST_GRP.GET_OCM_ITEM_DETAILS');
2894: JTF_FM_UTL_V.PRINT_MESSAGE('attribute = ' || attributes(counter),JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,'JTF_FM_REQUEST_GRP.GET_OCM_ITEM_DETAILS');
2895: JTF_FM_UTL_V.PRINT_MESSAGE('------------------------------------------------',JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,'JTF_FM_REQUEST_GRP.GET_OCM_ITEM_DETAILS');
2896: -- 11.5.9 ibc does not support Renditiosn, but 11.5.10 does
2897: -- For Backward compatibility, the HTML fnd Id and Text fnd Id
2898: -- are stored in these two variables and will be used if the Renditions API
2899: -- throws an error.
2967:
2968:
2969:
2970:
2971: JTF_FM_UTL_V.PRINT_MESSAGE('Done with Attributes',JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
2972: counter := 0;
2973: IF component_citems IS NOT NULL
2974: THEN
2975:
2973: IF component_citems IS NOT NULL
2974: THEN
2975:
2976: comp_count := component_citems.COUNT;
2977: JTF_FM_UTL_V.PRINT_MESSAGE('com count'|| comp_count,JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
2978:
2979: LOOP
2980: EXIT WHEN comp_count = counter;
2981: counter := counter + 1;
2979: LOOP
2980: EXIT WHEN comp_count = counter;
2981: counter := counter + 1;
2982:
2983: JTF_FM_UTL_V.PRINT_MESSAGE('component citems = ' || component_citems(counter),JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
2984: JTF_FM_UTL_V.PRINT_MESSAGE('component_attrib_types = ' || component_attrib_types(counter),JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
2985: JTF_FM_UTL_V.PRINT_MESSAGE('component_citem_names = ' || component_citem_names(counter),JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
2986: JTF_FM_UTL_V.PRINT_MESSAGE('component_owner_types = ' || component_owner_types(counter),JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
2987: --DBMS_OUTPUT.put_line('component_sort_orders = ' || component_sort_orders(counter));
2980: EXIT WHEN comp_count = counter;
2981: counter := counter + 1;
2982:
2983: JTF_FM_UTL_V.PRINT_MESSAGE('component citems = ' || component_citems(counter),JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
2984: JTF_FM_UTL_V.PRINT_MESSAGE('component_attrib_types = ' || component_attrib_types(counter),JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
2985: JTF_FM_UTL_V.PRINT_MESSAGE('component_citem_names = ' || component_citem_names(counter),JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
2986: JTF_FM_UTL_V.PRINT_MESSAGE('component_owner_types = ' || component_owner_types(counter),JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
2987: --DBMS_OUTPUT.put_line('component_sort_orders = ' || component_sort_orders(counter));
2988: IF component_attrib_types(counter) = 'AMF_ATTACHMENT' THEN
2981: counter := counter + 1;
2982:
2983: JTF_FM_UTL_V.PRINT_MESSAGE('component citems = ' || component_citems(counter),JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
2984: JTF_FM_UTL_V.PRINT_MESSAGE('component_attrib_types = ' || component_attrib_types(counter),JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
2985: JTF_FM_UTL_V.PRINT_MESSAGE('component_citem_names = ' || component_citem_names(counter),JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
2986: JTF_FM_UTL_V.PRINT_MESSAGE('component_owner_types = ' || component_owner_types(counter),JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
2987: --DBMS_OUTPUT.put_line('component_sort_orders = ' || component_sort_orders(counter));
2988: IF component_attrib_types(counter) = 'AMF_ATTACHMENT' THEN
2989: l_count_total := l_count_total +1;
2982:
2983: JTF_FM_UTL_V.PRINT_MESSAGE('component citems = ' || component_citems(counter),JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
2984: JTF_FM_UTL_V.PRINT_MESSAGE('component_attrib_types = ' || component_attrib_types(counter),JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
2985: JTF_FM_UTL_V.PRINT_MESSAGE('component_citem_names = ' || component_citem_names(counter),JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
2986: JTF_FM_UTL_V.PRINT_MESSAGE('component_owner_types = ' || component_owner_types(counter),JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
2987: --DBMS_OUTPUT.put_line('component_sort_orders = ' || component_sort_orders(counter));
2988: IF component_attrib_types(counter) = 'AMF_ATTACHMENT' THEN
2989: l_count_total := l_count_total +1;
2990: x_temp_file_id := GET_FILE_ID(TO_NUMBER(component_citems(counter)),p_request_id);
3033: x_temp_file_id);
3034:
3035: END IF;
3036:
3037: JTF_FM_UTL_V.PRINT_MESSAGE('x_html :' || x_html,JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
3038: JTF_FM_UTL_V.PRINT_MESSAGE('------------------------------------------------',JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
3039: END LOOP;
3040: END IF;
3041:
3034:
3035: END IF;
3036:
3037: JTF_FM_UTL_V.PRINT_MESSAGE('x_html :' || x_html,JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
3038: JTF_FM_UTL_V.PRINT_MESSAGE('------------------------------------------------',JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
3039: END LOOP;
3040: END IF;
3041:
3042:
3042:
3043: x_html := x_html || '' || a;
3044:
3045: ELSE
3046: JTF_FM_UTL_V.PRINT_MESSAGE(' Should have HTML Rendition' ||p_content_id, JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
3047: JTF_FM_UTL_V.HANDLE_ERROR('JTF_FM_OCM_HTML_REND_ABS', p_content_id);
3048: RAISE FND_API.G_EXC_ERROR;
3049:
3050: END IF;
3043: x_html := x_html || '' || a;
3044:
3045: ELSE
3046: JTF_FM_UTL_V.PRINT_MESSAGE(' Should have HTML Rendition' ||p_content_id, JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
3047: JTF_FM_UTL_V.HANDLE_ERROR('JTF_FM_OCM_HTML_REND_ABS', p_content_id);
3048: RAISE FND_API.G_EXC_ERROR;
3049:
3050: END IF;
3051:
3052: end if;
3053:
3054: DELETE FROM JTF_FM_TEST_REQUESTS WHERE REQUEST_ID = p_request_id;
3055:
3056: JTF_FM_UTL_V.PRINT_MESSAGE('End GET_OCM_ITEM_DETAILS',JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
3057:
3058:
3059: EXCEPTION
3060:
3067: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.g_false,
3068: p_count => x_msg_count,
3069: p_data => x_msg_data
3070: );
3071: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
3072:
3073: WHEN FND_API.G_EXC_ERROR
3074: THEN
3075:
3080: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.g_false,
3081: p_count => x_msg_count,
3082: p_data => x_msg_data
3083: );
3084: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
3085:
3086: WHEN OTHERS
3087: THEN
3088:
3087: THEN
3088:
3089: x_citem_name := NULL;
3090: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3091: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, SQLERRM);
3092:
3093: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3094: THEN
3095: FND_MSG_PUB.Add_Exc_Msg('JTF_FM_REQUEST_GRP', G_PKG_NAME );
3099: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.g_false,
3100: p_count => x_msg_count,
3101: p_data => x_msg_data
3102: );
3103: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
3104:
3105: for i in 0..x_msg_count loop
3106: JTF_FM_UTL_V.PRINT_MESSAGE(FND_MSG_PUB.get(i,FND_API.G_FALSE),JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,'JTF_FM_REQUEST_GRP.GET_OCM_ITEM_DETAILS');
3107:
3102: );
3103: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
3104:
3105: for i in 0..x_msg_count loop
3106: JTF_FM_UTL_V.PRINT_MESSAGE(FND_MSG_PUB.get(i,FND_API.G_FALSE),JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,'JTF_FM_REQUEST_GRP.GET_OCM_ITEM_DETAILS');
3107:
3108: end loop;
3109:
3110:
3179: WHERE MES_DOC_ID = p_content_id;
3180:
3181: BEGIN
3182:
3183: JTF_FM_UTL_V.PRINT_MESSAGE('BEGIN' || l_full_name, JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
3184:
3185: -- Initialize API return status to success
3186: x_return_status := FND_API.G_RET_STS_SUCCESS;
3187:
3184:
3185: -- Initialize API return status to success
3186: x_return_status := FND_API.G_RET_STS_SUCCESS;
3187:
3188: JTF_FM_UTL_V.PRINT_MESSAGE('Procedure to check MES contents',JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
3189:
3190: /***
3191: -- Do the following to get the correct content_no from JTF_FM_REQUEST_CONTENTS table
3192:
3197: IF(p_content_type = 'ATTACHMENT') THEN
3198:
3199: OPEN CATTACH;
3200: FETCH CATTACH INTO l_file_id, l_content_nm;
3201: JTF_FM_UTL_V.PRINT_MESSAGE('Fetching file_id..',JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
3202:
3203:
3204:
3205: IF (CATTACH%NOTFOUND) THEN
3202:
3203:
3204:
3205: IF (CATTACH%NOTFOUND) THEN
3206: JTF_FM_UTL_V.PRINT_MESSAGE('Invalid Content_id',JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
3207: CLOSE CATTACH;
3208: l_Error_Msg := 'Could not find content in the database';
3209: JTF_FM_UTL_V.HANDLE_ERROR('JTF_FM_DISP_CONTENT_NOT_FOUND',p_content_id);
3210: RAISE FND_API.G_EXC_ERROR;
3205: IF (CATTACH%NOTFOUND) THEN
3206: JTF_FM_UTL_V.PRINT_MESSAGE('Invalid Content_id',JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
3207: CLOSE CATTACH;
3208: l_Error_Msg := 'Could not find content in the database';
3209: JTF_FM_UTL_V.HANDLE_ERROR('JTF_FM_DISP_CONTENT_NOT_FOUND',p_content_id);
3210: RAISE FND_API.G_EXC_ERROR;
3211: ELSE
3212:
3213: IF (JTF_FM_UTL_V.CONFIRM_RTF(l_file_id)) THEN
3209: JTF_FM_UTL_V.HANDLE_ERROR('JTF_FM_DISP_CONTENT_NOT_FOUND',p_content_id);
3210: RAISE FND_API.G_EXC_ERROR;
3211: ELSE
3212:
3213: IF (JTF_FM_UTL_V.CONFIRM_RTF(l_file_id)) THEN
3214: l_file_id_type := ' rtf_id = " ';
3215: l_file_type := 'APPLICATION/RTF';
3216: ELSIF(JTF_FM_UTL_V.CONFIRM_PDF(l_file_id)) THEN
3217: l_file_id_type := ' pdf_id = "';
3212:
3213: IF (JTF_FM_UTL_V.CONFIRM_RTF(l_file_id)) THEN
3214: l_file_id_type := ' rtf_id = " ';
3215: l_file_type := 'APPLICATION/RTF';
3216: ELSIF(JTF_FM_UTL_V.CONFIRM_PDF(l_file_id)) THEN
3217: l_file_id_type := ' pdf_id = "';
3218: l_file_type := 'APPLICATION/PDF';
3219: ELSIF(JTF_FM_UTL_V.CONFIRM_TEXT_HTML(l_file_id)) THEN
3220: l_file_id_type := ' id = "';
3215: l_file_type := 'APPLICATION/RTF';
3216: ELSIF(JTF_FM_UTL_V.CONFIRM_PDF(l_file_id)) THEN
3217: l_file_id_type := ' pdf_id = "';
3218: l_file_type := 'APPLICATION/PDF';
3219: ELSIF(JTF_FM_UTL_V.CONFIRM_TEXT_HTML(l_file_id)) THEN
3220: l_file_id_type := ' id = "';
3221: l_file_type := 'TEXT/HTML';
3222: ELSE
3223: l_file_id_type := ' id = "';
3255:
3256:
3257: OPEN CCONT;
3258: FETCH CCONT INTO l_file_id, l_content_nm;
3259: JTF_FM_UTL_V.PRINT_MESSAGE('Fetching file_id..',JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
3260:
3261: IF (CCONT%NOTFOUND) THEN
3262:
3263: JTF_FM_UTL_V.PRINT_MESSAGE('Could not find content in the database',JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
3259: JTF_FM_UTL_V.PRINT_MESSAGE('Fetching file_id..',JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
3260:
3261: IF (CCONT%NOTFOUND) THEN
3262:
3263: JTF_FM_UTL_V.PRINT_MESSAGE('Could not find content in the database',JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
3264: CLOSE CCONT;
3265: l_Error_Msg := 'Could not find content in the database';
3266: JTF_FM_UTL_V.HANDLE_ERROR('JTF_FM_DISP_CONTENT_NOT_FOUND',p_content_id);
3267: RAISE FND_API.G_EXC_ERROR;
3262:
3263: JTF_FM_UTL_V.PRINT_MESSAGE('Could not find content in the database',JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
3264: CLOSE CCONT;
3265: l_Error_Msg := 'Could not find content in the database';
3266: JTF_FM_UTL_V.HANDLE_ERROR('JTF_FM_DISP_CONTENT_NOT_FOUND',p_content_id);
3267: RAISE FND_API.G_EXC_ERROR;
3268: ELSE
3269:
3270: -- Validate that the content has a query associated with it
3271: OPEN CQUER;
3272: FETCH CQUER INTO x_query_id;
3273: IF (CQUER%NOTFOUND) THEN
3274: CLOSE CQUER;
3275: JTF_FM_UTL_V.HANDLE_ERROR('JTF_FM_API_CONT_NOT_QUERY',p_content_id);
3276: RAISE FND_API.G_EXC_ERROR;
3277: ELSE
3278:
3279: IF ((INSTR(UPPER(p_media_type), 'E') > 0) OR (INSTR(UPPER(p_media_type), 'F') > 0)) THEN-- If Email or Fax
3276: RAISE FND_API.G_EXC_ERROR;
3277: ELSE
3278:
3279: IF ((INSTR(UPPER(p_media_type), 'E') > 0) OR (INSTR(UPPER(p_media_type), 'F') > 0)) THEN-- If Email or Fax
3280: IF (JTF_FM_UTL_V.CONFIRM_RTF(l_file_id)) THEN -- If RTF
3281: l_Error_Msg := 'Cant send an RTF through Email or Fax';
3282: JTF_FM_UTL_V.PRINT_MESSAGE('Cant send an RTF through Email or Fax' ,JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
3283: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3284: FND_MESSAGE.set_name('JTF', 'JTF_FM_API_RTF_EMAIL_FAX');
3278:
3279: IF ((INSTR(UPPER(p_media_type), 'E') > 0) OR (INSTR(UPPER(p_media_type), 'F') > 0)) THEN-- If Email or Fax
3280: IF (JTF_FM_UTL_V.CONFIRM_RTF(l_file_id)) THEN -- If RTF
3281: l_Error_Msg := 'Cant send an RTF through Email or Fax';
3282: JTF_FM_UTL_V.PRINT_MESSAGE('Cant send an RTF through Email or Fax' ,JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
3283: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3284: FND_MESSAGE.set_name('JTF', 'JTF_FM_API_RTF_EMAIL_FAX');
3285: FND_MSG_PUB.Add;
3286: END IF; -- IF FND_MSG_PUB.check_msg_level
3284: FND_MESSAGE.set_name('JTF', 'JTF_FM_API_RTF_EMAIL_FAX');
3285: FND_MSG_PUB.Add;
3286: END IF; -- IF FND_MSG_PUB.check_msg_level
3287: RAISE FND_API.G_EXC_ERROR;
3288: ELSIF(JTF_FM_UTL_V.CONFIRM_PDF(l_file_id)) THEN -- IF PDF
3289: l_Error_Msg := 'Cant send a PDF through Email or Fax';
3290: JTF_FM_UTL_V.PRINT_MESSAGE('Cant send a PDF through Email or Fax' ,JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
3291: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3292: FND_MESSAGE.set_name('JTF', 'JTF_FM_API_PDF_EMAIL_FAX');
3286: END IF; -- IF FND_MSG_PUB.check_msg_level
3287: RAISE FND_API.G_EXC_ERROR;
3288: ELSIF(JTF_FM_UTL_V.CONFIRM_PDF(l_file_id)) THEN -- IF PDF
3289: l_Error_Msg := 'Cant send a PDF through Email or Fax';
3290: JTF_FM_UTL_V.PRINT_MESSAGE('Cant send a PDF through Email or Fax' ,JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
3291: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3292: FND_MESSAGE.set_name('JTF', 'JTF_FM_API_PDF_EMAIL_FAX');
3293: FND_MSG_PUB.Add;
3294: END IF; -- IF FND_MSG_PUB.check_msg_level
3292: FND_MESSAGE.set_name('JTF', 'JTF_FM_API_PDF_EMAIL_FAX');
3293: FND_MSG_PUB.Add;
3294: END IF; -- IF FND_MSG_PUB.check_msg_level
3295: RAISE FND_API.G_EXC_ERROR;
3296: ELSIF(JTF_FM_UTL_V.CONFIRM_TEXT_HTML(l_file_id)) THEN -- If it is a Text or HTML
3297: x_html := x_html ||'
3299: INSERT_REQUEST_CONTENTS(
3300: p_request_id,
3313:
3314: ELSE -- Some other Content Type
3315:
3316: l_Error_Msg := 'The Content Type of the document is not supported';
3317: JTF_FM_UTL_V.PRINT_MESSAGE('The Content Type of the document is not supported' ,JTF_FM_UTL_V.G_LEVEL_PROCEDURE,l_full_name );
3318: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3319: FND_MESSAGE.set_name('JTF', 'JTF_FM_API_CONTENT_TYPE');
3320: FND_MSG_PUB.Add;
3321: END IF; -- IF FND_MSG_PUB.check_msg_level
3320: FND_MSG_PUB.Add;
3321: END IF; -- IF FND_MSG_PUB.check_msg_level
3322: RAISE FND_API.G_EXC_ERROR;
3323:
3324: END IF; -- JTF_FM_UTL_V.CONFIRM_RTF, PDF, TEXT_HTML
3325:
3326: ELSE -- If Print media_type
3327:
3328: IF (JTF_FM_UTL_V.CONFIRM_RTF(l_file_id)) THEN -- If the File is an RTF
3324: END IF; -- JTF_FM_UTL_V.CONFIRM_RTF, PDF, TEXT_HTML
3325:
3326: ELSE -- If Print media_type
3327:
3328: IF (JTF_FM_UTL_V.CONFIRM_RTF(l_file_id)) THEN -- If the File is an RTF
3329: x_html := x_html ||'
3331: INSERT_REQUEST_CONTENTS(
3332: p_request_id,
3340: p_quantity,
3341: p_media_type,
3342: 'mes' ,
3343: l_file_id);
3344: ELSIF(JTF_FM_UTL_V.CONFIRM_PDF(l_file_id)) THEN -- If the File is an PDF
3345: x_html := x_html ||'
3347: INSERT_REQUEST_CONTENTS(
3348: p_request_id,
3356: p_quantity,
3357: p_media_type,
3358: 'mes' ,
3359: l_file_id);
3360: ELSIF(JTF_FM_UTL_V.CONFIRM_TEXT_HTML(l_file_id)) -- If the File is HTML or TEXT
3361: THEN
3362: x_html := x_html ||'
3364: INSERT_REQUEST_CONTENTS(
3377:
3378: ELSE -- If the File is of some other format
3379:
3380: l_Error_Msg := 'The Content Type of the document is not supported';
3381: JTF_FM_UTL_V.PRINT_MESSAGE('The Content Type of the document is not supported' ,JTF_FM_UTL_V.G_LEVEL_PROCEDURE,l_full_name );
3382: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
3383: THEN
3384: FND_MESSAGE.set_name('JTF', 'JTF_FM_API_CONTENT_TYPE');
3385: FND_MSG_PUB.Add;
3385: FND_MSG_PUB.Add;
3386: END IF; -- IF FND_MSG_PUB.check_msg_level
3387: RAISE FND_API.G_EXC_ERROR;
3388:
3389: END IF; -- JTF_FM_UTL_V.CONFIRM_RTF, PDF, TEXT_HTML
3390: END IF; -- EMAIL, PRINTER, FAX
3391:
3392: --Gagan's code ends here
3393:
3393:
3394: select file_id into l_query_file_id from jtf_fm_queries_all where query_id = x_query_id;
3395:
3396: IF l_query_file_id IS NOT NULL THEN
3397: JTF_FM_UTL_V.PRINT_MESSAGE('Query has file id :' || l_query_file_id,JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
3398: CHECK_AND_INSERT_QUERY(x_query_id, l_query_file_id, x_query_file_id);
3399: ELSE
3400: JTF_FM_UTL_V.PRINT_MESSAGE('Query IS NULL' ,JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
3401: INSERT_QUERY(x_query_id, x_query_file_id);
3396: IF l_query_file_id IS NOT NULL THEN
3397: JTF_FM_UTL_V.PRINT_MESSAGE('Query has file id :' || l_query_file_id,JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
3398: CHECK_AND_INSERT_QUERY(x_query_id, l_query_file_id, x_query_file_id);
3399: ELSE
3400: JTF_FM_UTL_V.PRINT_MESSAGE('Query IS NULL' ,JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
3401: INSERT_QUERY(x_query_id, x_query_file_id);
3402: END IF;
3403:
3404: x_html := x_html ||' query_id="'||x_query_file_id ||'" ' ;
3413:
3414:
3415:
3416: ELSE
3417: JTF_FM_UTL_V.PRINT_MESSAGE('In else Loop',JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
3418:
3419:
3420: -- OPEN CCONT;
3421:
3420: -- OPEN CCONT;
3421:
3422: l_count := 0;
3423: FOR CCONT_rec IN CCONT LOOP
3424: JTF_FM_UTL_V.PRINT_MESSAGE('In for Loop',JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
3425:
3426: l_count := l_count + 1;
3427: IF l_count = 1
3428: THEN
3430: END IF;
3431:
3432: IF (CCONT%NOTFOUND)
3433: THEN
3434: JTF_FM_UTL_V.PRINT_MESSAGE('Could not find content_id',JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
3435:
3436: CLOSE CCONT;
3437: l_Error_Msg := 'Could not find content in the database';
3438: JTF_FM_UTL_V.HANDLE_ERROR('JTF_FM_DISP_CONTENT_NOT_FOUND',p_content_id);
3434: JTF_FM_UTL_V.PRINT_MESSAGE('Could not find content_id',JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
3435:
3436: CLOSE CCONT;
3437: l_Error_Msg := 'Could not find content in the database';
3438: JTF_FM_UTL_V.HANDLE_ERROR('JTF_FM_DISP_CONTENT_NOT_FOUND',p_content_id);
3439:
3440: END IF;
3441:
3442: l_file_id := CCONT_rec.file_id;
3440: END IF;
3441:
3442: l_file_id := CCONT_rec.file_id;
3443: l_content_nm := CCONT_rec.file_name;
3444: JTF_FM_UTL_V.PRINT_MESSAGE('file_id is :' || l_file_id,JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
3445:
3446:
3447:
3448: IF (JTF_FM_UTL_V.CONFIRM_RTF(l_file_id)) THEN
3444: JTF_FM_UTL_V.PRINT_MESSAGE('file_id is :' || l_file_id,JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
3445:
3446:
3447:
3448: IF (JTF_FM_UTL_V.CONFIRM_RTF(l_file_id)) THEN
3449: l_file_id_type := ' rtf_id = " ';
3450: l_file_type := 'APPLICATION/RTF';
3451: l_body := 'no';
3452: l_body2 := 'N';
3449: l_file_id_type := ' rtf_id = " ';
3450: l_file_type := 'APPLICATION/RTF';
3451: l_body := 'no';
3452: l_body2 := 'N';
3453: ELSIF(JTF_FM_UTL_V.CONFIRM_PDF(l_file_id)) THEN
3454: l_file_id_type := ' pdf_id = "';
3455: l_file_type := 'APPLICATION/PDF';
3456: l_body := 'no';
3457: l_body2 := 'N';
3454: l_file_id_type := ' pdf_id = "';
3455: l_file_type := 'APPLICATION/PDF';
3456: l_body := 'no';
3457: l_body2 := 'N';
3458: ELSIF(JTF_FM_UTL_V.CONFIRM_TEXT_HTML(l_file_id)) THEN
3459: l_file_id_type := ' id = "';
3460: l_file_type := 'TEXT/HTML';
3461: IF (upper(P_CONTENT_TYPE) = 'DATA') THEN
3462: l_body := 'merge';
3504: END LOOP;
3505: IF l_count >0
3506: THEN
3507: x_html := x_html ||'' || '';
3508: JTF_FM_UTL_V.PRINT_MESSAGE('x_html is' || x_html,JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
3509:
3510:
3511: ELSE
3512: JTF_FM_UTL_V.PRINT_MESSAGE('could not find Content_id' ,JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
3508: JTF_FM_UTL_V.PRINT_MESSAGE('x_html is' || x_html,JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
3509:
3510:
3511: ELSE
3512: JTF_FM_UTL_V.PRINT_MESSAGE('could not find Content_id' ,JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
3513:
3514:
3515: JTF_FM_UTL_V.HANDLE_ERROR('JTF_FM_DISP_CONTENT_NOT_FOUND',p_content_id);
3516: RAISE FND_API.G_EXC_ERROR;
3511: ELSE
3512: JTF_FM_UTL_V.PRINT_MESSAGE('could not find Content_id' ,JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
3513:
3514:
3515: JTF_FM_UTL_V.HANDLE_ERROR('JTF_FM_DISP_CONTENT_NOT_FOUND',p_content_id);
3516: RAISE FND_API.G_EXC_ERROR;
3517:
3518: END IF;
3519:
3519:
3520: --CLOSE CCONT;
3521: END IF;
3522:
3523: JTF_FM_UTL_V.PRINT_MESSAGE('END PROCEDURE GET_MES_ITEM_DETAILS' ,JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
3524:
3525: EXCEPTION
3526: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
3527: THEN
3527: THEN
3528:
3529: x_citem_name := NULL;
3530: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3531: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, l_Error_Msg);
3532: -- Standard call to get message count and if count=1, get the message
3533: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.g_false,
3534: p_count => x_msg_count,
3535: p_data => x_msg_data
3533: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.g_false,
3534: p_count => x_msg_count,
3535: p_data => x_msg_data
3536: );
3537: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
3538:
3539: WHEN FND_API.G_EXC_ERROR
3540: THEN
3541: x_citem_name := NULL;
3539: WHEN FND_API.G_EXC_ERROR
3540: THEN
3541: x_citem_name := NULL;
3542: x_return_status := FND_API.G_RET_STS_ERROR;
3543: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, l_Error_Msg);
3544: -- Standard call to get message count and if count=1, get the message
3545: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.g_false,
3546: p_count => x_msg_count,
3547: p_data => x_msg_data
3545: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.g_false,
3546: p_count => x_msg_count,
3547: p_data => x_msg_data
3548: );
3549: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
3550:
3551: WHEN OTHERS
3552: THEN
3553:
3552: THEN
3553:
3554: x_citem_name := NULL;
3555: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3556: JTF_FM_UTL_V.PRINT_MESSAGE(SQLERRM ,JTF_FM_UTL_V.G_LEVEL_ERROR ,l_full_name);
3557:
3558: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3559: THEN
3560: FND_MSG_PUB.Add_Exc_Msg('JTF_FM_REQUEST_GRP', l_api_name);
3564: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.g_false,
3565: p_count => x_msg_count,
3566: p_data => x_msg_data
3567: );
3568: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
3569:
3570: JTF_FM_UTL_V.PRINT_MESSAGE('END' || l_full_name, JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
3571: END GET_MES_ITEM_DETAILS;
3572:
3566: p_data => x_msg_data
3567: );
3568: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
3569:
3570: JTF_FM_UTL_V.PRINT_MESSAGE('END' || l_full_name, JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
3571: END GET_MES_ITEM_DETAILS;
3572:
3573: ---------------------------------------------------------------
3574: -- PROCEDURE
3599: l_Error_Msg VARCHAR2(2000);
3600: --
3601: BEGIN
3602:
3603: JTF_FM_UTL_V.PRINT_MESSAGE('BEGIN' || l_full_name, JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
3604:
3605: -- Standard begin of API savepoint
3606: SAVEPOINT Start_request;
3607:
3627:
3628: -- Initialize API return status to success
3629: x_return_status := FND_API.G_RET_STS_SUCCESS;
3630:
3631: JTF_FM_UTL_V.PRINT_MESSAGE('Start_Request called by ' || to_number(FND_GLOBAL.USER_ID) ,JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
3632:
3633: SELECT JTF_FM_REQUESTHISTID_S.NEXTVAL INTO x_request_id FROM DUAL;
3634:
3635: -- Success message
3642: --Standard check of commit
3643: IF FND_API.To_Boolean ( p_commit ) THEN
3644: COMMIT WORK;
3645: END IF;
3646: JTF_FM_UTL_V.PRINT_MESSAGE('End procedure start_request ' ,JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
3647:
3648: -- Debug Message
3649: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
3650: FND_MESSAGE.Set_Name('JTF', 'JTF_FM_API_DEBUG_MESSAGE');
3661: EXCEPTION
3662: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3663: ROLLBACK TO Start_Request;
3664: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3665: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, l_Error_Msg);
3666: -- Standard call to get message count and if count=1, get the message
3667: FND_MSG_PUB.count_and_get(
3668: p_encoded => FND_API.g_false,
3669: p_count => x_msg_count,
3668: p_encoded => FND_API.g_false,
3669: p_count => x_msg_count,
3670: p_data => x_msg_data
3671: );
3672: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
3673: WHEN FND_API.G_EXC_ERROR THEN
3674: ROLLBACK TO Start_Request;
3675: x_return_status := FND_API.G_RET_STS_ERROR;
3676: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, l_Error_Msg);
3672: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
3673: WHEN FND_API.G_EXC_ERROR THEN
3674: ROLLBACK TO Start_Request;
3675: x_return_status := FND_API.G_RET_STS_ERROR;
3676: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, l_Error_Msg);
3677: -- Standard call to get message count and if count=1, get the message
3678: FND_MSG_PUB.count_and_get(
3679: p_encoded => FND_API.g_false,
3680: p_count => x_msg_count,
3679: p_encoded => FND_API.g_false,
3680: p_count => x_msg_count,
3681: p_data => x_msg_data
3682: );
3683: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
3684: WHEN OTHERS THEN
3685: ROLLBACK TO Start_Request;
3686: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3687: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, SQLERRM);
3683: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
3684: WHEN OTHERS THEN
3685: ROLLBACK TO Start_Request;
3686: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3687: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, SQLERRM);
3688: IF FND_MSG_PUB.Check_Msg_Level
3689: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3690: THEN
3691: FND_MSG_PUB.Add_Exc_Msg
3696: p_encoded => FND_API.g_false,
3697: p_count => x_msg_count,
3698: p_data => x_msg_data
3699: );
3700: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
3701: END Start_Request;
3702:
3703:
3704: ---------------------------------------------------------------
3771: -- Moved all cursors to JTF_FM_UTILITY PACKAGE
3772:
3773: BEGIN
3774:
3775: JTF_FM_UTL_V.PRINT_MESSAGE('BEGIN' || l_full_name, JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
3776:
3777: -- Standard begin of API savepoint
3778: SAVEPOINT Content_XML;
3779:
3812: -- unique identifier for getting the document from MES tables
3813: IF (p_content_id IS NULL)
3814: THEN
3815: l_Error_Msg := 'Must pass p_content_id parameter';
3816: JTF_FM_UTL_V.PRINT_MESSAGE('Must pass p_content_id parameter ' ,JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
3817:
3818: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
3819: THEN
3820: FND_MESSAGE.set_name('JTF', 'JTF_FM_API_MISSING_CONTENT_ID');
3827: -- request without a media_type
3828: ELSIF (p_media_type IS NULL) -- IF (p_media_type IS NULL)
3829: THEN
3830: l_Error_Msg := 'Must pass p_media_type parameters';
3831: JTF_FM_UTL_V.PRINT_MESSAGE('Must pass p_media_type parameter ' ,JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
3832:
3833: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3834: FND_MESSAGE.set_name('JTF', 'JTF_FM_API_MISSING_MEDIA_TYPE');
3835: FND_MSG_PUB.Add;
3839: -- Must pass a request_type
3840: ELSIF (p_content_type IS NULL) -- IF (p_content_id IS NULL)
3841: THEN
3842: l_Error_Msg := 'Must pass p_content_type parameters';
3843: JTF_FM_UTL_V.PRINT_MESSAGE('Must pass p_content_type parameter ' ,JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
3844:
3845: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3846: FND_MESSAGE.set_name('JTF', 'JTF_FM_API_MISSING_CONTENTTYPE');
3847: FND_MSG_PUB.Add;
3850: RAISE FND_API.G_EXC_ERROR;
3851: ELSIF (p_request_id IS NULL) -- IF (p_request_id IS NULL)
3852: THEN
3853: l_Error_Msg := 'Must pass p_request_id parameters';
3854: JTF_FM_UTL_V.PRINT_MESSAGE('Must pass p_request_id parameter ' ,JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
3855:
3856: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3857: FND_MESSAGE.set_name('JTF', 'JTF_FM_API_MISSING_REQUEST_ID');
3858: FND_MSG_PUB.Add;
3910: -- Check if atleast one valid media type has been specified
3911: IF (l_temp = 0)
3912: THEN
3913: l_Error_Msg := 'Invalid media type specified. Allowed media_types are EMAIL, FAX, PRINTER';
3914: JTF_FM_UTL_V.PRINT_MESSAGE('Invalid media type specified. Allowed media_types are EMAIL, FAX, PRINTER' ,JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
3915:
3916: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
3917: THEN
3918: FND_MESSAGE.set_name('JTF', 'JTF_FM_API_INVALID_MEDIATYPE');
3925:
3926: l_message := l_message||' '||a;
3927:
3928: -- New XML code added by sxkrishn 10-25-02
3929: JTF_FM_UTL_V.PRINT_MESSAGE('Right after media has been formed' ,JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
3930:
3931:
3932: l_message := l_message||'
3939: END IF;
3940:
3941: l_message := l_message|| ' >'||a;
3942:
3943: l_media := JTF_FM_UTL_V.GET_MEDIA(l_message);
3944: --dbms_output.PUT_LINE('media type is :' || l_media);
3945:
3946:
3947: -- Fill in based on whether it is OCM or MES
3960: END IF;
3961:
3962: --- First try to get the Renditons
3963: -- If that is unsuccessful, then use the old method to get the OCM details
3964: JTF_FM_UTL_V.PRINT_MESSAGE('Trying to get OCM Renditions detail',
3965: JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
3966:
3967: JTF_FM_OCM_REND_REQ.GET_OCM_REND_DETAILS(
3968: p_content_id,
3961:
3962: --- First try to get the Renditons
3963: -- If that is unsuccessful, then use the old method to get the OCM details
3964: JTF_FM_UTL_V.PRINT_MESSAGE('Trying to get OCM Renditions detail',
3965: JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
3966:
3967: JTF_FM_OCM_REND_REQ.GET_OCM_REND_DETAILS(
3968: p_content_id,
3969: p_request_id,
3981: x_msg_data);
3982:
3983: IF(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
3984:
3985: JTF_FM_UTL_V.PRINT_MESSAGE('Got back the details from Renditons Successfully',JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
3986: JTF_FM_UTL_V.PRINT_MESSAGE('Item present in OCM Rend Repository' ,JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
3987:
3988: l_message := l_message|| x_html;
3989:
3982:
3983: IF(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
3984:
3985: JTF_FM_UTL_V.PRINT_MESSAGE('Got back the details from Renditons Successfully',JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
3986: JTF_FM_UTL_V.PRINT_MESSAGE('Item present in OCM Rend Repository' ,JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
3987:
3988: l_message := l_message|| x_html;
3989:
3990: ELSE
3987:
3988: l_message := l_message|| x_html;
3989:
3990: ELSE
3991: JTF_FM_UTL_V.PRINT_MESSAGE('No details from Renditons',JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
3992: JTF_FM_UTL_V.PRINT_MESSAGE('So, will try to get them the old way',JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
3993:
3994: GET_OCM_ITEM_DETAILS(p_content_id,
3995: p_request_id,
3988: l_message := l_message|| x_html;
3989:
3990: ELSE
3991: JTF_FM_UTL_V.PRINT_MESSAGE('No details from Renditons',JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
3992: JTF_FM_UTL_V.PRINT_MESSAGE('So, will try to get them the old way',JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
3993:
3994: GET_OCM_ITEM_DETAILS(p_content_id,
3995: p_request_id,
3996: p_user_note,
4005: x_msg_count ,
4006: x_msg_data
4007: );
4008: IF(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4009: JTF_FM_UTL_V.PRINT_MESSAGE('Got OCM Items details the old way successfully',JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
4010: JTF_FM_UTL_V.PRINT_MESSAGE('Item present in OCM Repository' ,JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
4011:
4012: l_message := l_message|| x_html;
4013: ELSIF(x_return_status = FND_API.G_RET_STS_ERROR) THEN
4006: x_msg_data
4007: );
4008: IF(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
4009: JTF_FM_UTL_V.PRINT_MESSAGE('Got OCM Items details the old way successfully',JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
4010: JTF_FM_UTL_V.PRINT_MESSAGE('Item present in OCM Repository' ,JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
4011:
4012: l_message := l_message|| x_html;
4013: ELSIF(x_return_status = FND_API.G_RET_STS_ERROR) THEN
4014: RAISE FND_API.G_EXC_ERROR;
4014: RAISE FND_API.G_EXC_ERROR;
4015: ELSE
4016: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4017:
4018: JTF_FM_UTL_V.PRINT_MESSAGE('Item NOT present in OCM Repository',JTF_FM_UTL_V.G_LEVEL_PROCEDURE,l_full_name);
4019: END IF;
4020: END IF;
4021:
4022: ELSE
4019: END IF;
4020: END IF;
4021:
4022: ELSE
4023: JTF_FM_UTL_V.PRINT_MESSAGE('Check MES Repository',JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
4024: GET_MES_ITEM_DETAILS(p_content_id,
4025: p_content_type,
4026: p_request_id,
4027: p_user_note,
4035: x_msg_data
4036: );
4037: IF(x_return_status = FND_API.G_RET_STS_SUCCESS)
4038: THEN
4039: JTF_FM_UTL_V.PRINT_MESSAGE('Item present in MES Repository',JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
4040: l_message := l_message|| x_html;
4041: ELSIF(x_return_status = FND_API.G_RET_STS_ERROR)
4042: THEN
4043: JTF_FM_UTL_V.PRINT_MESSAGE('Item NOT present in MES Repository',JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
4039: JTF_FM_UTL_V.PRINT_MESSAGE('Item present in MES Repository',JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
4040: l_message := l_message|| x_html;
4041: ELSIF(x_return_status = FND_API.G_RET_STS_ERROR)
4042: THEN
4043: JTF_FM_UTL_V.PRINT_MESSAGE('Item NOT present in MES Repository',JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
4044: RAISE FND_API.G_EXC_ERROR;
4045: ELSE
4046: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4047: JTF_FM_UTL_V.PRINT_MESSAGE('Item NOT present in MES Repository',JTF_FM_UTL_V.G_LEVEL_PROCEDURE,l_full_name);
4043: JTF_FM_UTL_V.PRINT_MESSAGE('Item NOT present in MES Repository',JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
4044: RAISE FND_API.G_EXC_ERROR;
4045: ELSE
4046: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4047: JTF_FM_UTL_V.PRINT_MESSAGE('Item NOT present in MES Repository',JTF_FM_UTL_V.G_LEVEL_PROCEDURE,l_full_name);
4048: END IF;
4049: END IF;
4050:
4051:
4125: THEN
4126: ROLLBACK TO Content_XML;
4127: x_content_xml := NULL;
4128: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4129: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, l_Error_Msg);
4130: -- Standard call to get message count and if count=1, get the message
4131: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.g_false,
4132: p_count => x_msg_count,
4133: p_data => x_msg_data
4131: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.g_false,
4132: p_count => x_msg_count,
4133: p_data => x_msg_data
4134: );
4135: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
4136:
4137: WHEN FND_API.G_EXC_ERROR
4138: THEN
4139: ROLLBACK TO Content_XML;
4138: THEN
4139: ROLLBACK TO Content_XML;
4140: x_content_xml := NULL;
4141: x_return_status := FND_API.G_RET_STS_ERROR;
4142: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, l_Error_Msg);
4143: -- Standard call to get message count and if count=1, get the message
4144: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.g_false,
4145: p_count => x_msg_count,
4146: p_data => x_msg_data
4144: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.g_false,
4145: p_count => x_msg_count,
4146: p_data => x_msg_data
4147: );
4148: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
4149:
4150: WHEN OTHERS
4151: THEN
4152: ROLLBACK TO Content_XML;
4151: THEN
4152: ROLLBACK TO Content_XML;
4153: x_content_xml := NULL;
4154: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4155: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, SQLERRM);
4156:
4157: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4158: THEN
4159: FND_MSG_PUB.Add_Exc_Msg
4164: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.g_false,
4165: p_count => x_msg_count,
4166: p_data => x_msg_data
4167: );
4168: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
4169:
4170: JTF_FM_UTL_V.PRINT_MESSAGE('END ' || l_full_name , JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
4171:
4172: END Get_Content_XML;
4166: p_data => x_msg_data
4167: );
4168: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
4169:
4170: JTF_FM_UTL_V.PRINT_MESSAGE('END ' || l_full_name , JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
4171:
4172: END Get_Content_XML;
4173:
4174: ---------------------------------------------------------------
4211: l_api_name CONSTANT varchar2(100) := 'GET_CONTENT_XML';
4212: l_full_name CONSTANT varchar2(2000) := G_PKG_NAME || '.' || l_api_name;
4213:
4214: BEGIN
4215: JTF_FM_UTL_V.PRINT_MESSAGE('BEGIN' || l_full_name, JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
4216: Get_Content_XML
4217: (
4218: p_api_version,
4219: p_init_msg_list,
4288: l_api_name CONSTANT VARCHAR2(30) := 'Submit_Single_Request';
4289: l_api_version CONSTANT NUMBER := 1.0;
4290: l_full_name CONSTANT VARCHAR2(2000) := G_PKG_NAME ||'.'|| l_api_name;
4291: l_fulfill_electronic_rec JTF_FM_OCM_REQUEST_GRP.FULFILL_ELECTRONIC_REC_TYPE;
4292: l_fm_pvt_rec JTF_FM_UTL_V.FM_PVT_REC_TYPE;
4293: l_error_msg VARCHAR2(2000);
4294:
4295: BEGIN
4296: -- Standard begin of API savepoint
4293: l_error_msg VARCHAR2(2000);
4294:
4295: BEGIN
4296: -- Standard begin of API savepoint
4297: JTF_FM_UTL_V.PRINT_MESSAGE('BEGIN ' || l_full_name , JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
4298: --
4299: SAVEPOINT SEND_Request;
4300:
4301: IF p_template_id <> FND_API.G_MISS_NUM THEN
4366: -- This flag bypasses the TCA check list
4367:
4368: l_fulfill_electronic_rec.stop_list_bypass := 'stoplist';
4369:
4370: JTF_FM_UTL_V.FM_SUBMIT_REQ_V1
4371: (p_api_version ,
4372: p_init_msg_list,
4373: p_commit,
4374: x_return_status,
4420: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
4421: THEN
4422: ROLLBACK TO Send_Request;
4423: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4424: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, l_Error_Msg);
4425: -- Standard call to get message count and if count=1, get the message
4426: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.g_false,
4427: p_count => x_msg_count,
4428: p_data => x_msg_data
4426: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.g_false,
4427: p_count => x_msg_count,
4428: p_data => x_msg_data
4429: );
4430: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
4431:
4432: WHEN FND_API.G_EXC_ERROR
4433: THEN
4434: ROLLBACK TO Send_Request;
4432: WHEN FND_API.G_EXC_ERROR
4433: THEN
4434: ROLLBACK TO Send_Request;
4435: x_return_status := FND_API.G_RET_STS_ERROR;
4436: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, l_Error_Msg);
4437: JTF_FM_UTL_V.PRINT_MESSAGE('Expected Error Occured'||l_Error_Msg,JTF_FM_UTL_V.G_LEVEL_STATEMENT,l_full_name);
4438: -- Standard call to get message count and if count=1, get the message
4439: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.g_false,
4440: p_count => x_msg_count,
4433: THEN
4434: ROLLBACK TO Send_Request;
4435: x_return_status := FND_API.G_RET_STS_ERROR;
4436: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, l_Error_Msg);
4437: JTF_FM_UTL_V.PRINT_MESSAGE('Expected Error Occured'||l_Error_Msg,JTF_FM_UTL_V.G_LEVEL_STATEMENT,l_full_name);
4438: -- Standard call to get message count and if count=1, get the message
4439: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.g_false,
4440: p_count => x_msg_count,
4441: p_data => x_msg_data
4439: FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.g_false,
4440: p_count => x_msg_count,
4441: p_data => x_msg_data
4442: );
4443: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
4444:
4445: WHEN OTHERS
4446: THEN
4447: ROLLBACK TO Send_Request;
4445: WHEN OTHERS
4446: THEN
4447: ROLLBACK TO Send_Request;
4448: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4449: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, SQLERRM);
4450:
4451: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4452: THEN
4453: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
4457: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.g_false,
4458: p_count => x_msg_count,
4459: p_data => x_msg_data
4460: );
4461: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
4462: JTF_FM_UTL_V.PRINT_MESSAGE('END'||l_full_name,JTF_FM_UTL_V.G_LEVEL_PROCEDURE,l_full_name);
4463: END Send_Request;
4464:
4465:
4458: p_count => x_msg_count,
4459: p_data => x_msg_data
4460: );
4461: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
4462: JTF_FM_UTL_V.PRINT_MESSAGE('END'||l_full_name,JTF_FM_UTL_V.G_LEVEL_PROCEDURE,l_full_name);
4463: END Send_Request;
4464:
4465:
4466: ------------------------------------------------------------------------------------------------
4502: l_api_name CONSTANT varchar2(100) := 'SUBMIT_REQUEST';
4503: l_full_name CONSTANT varchar2(2000) := G_PKG_NAME || '.' || l_api_name;
4504: --
4505: BEGIN
4506: JTF_FM_UTL_V.PRINT_MESSAGE('BEGIN'||l_full_name,JTF_FM_UTL_V.G_LEVEL_PROCEDURE,l_full_name);
4507: JTF_FM_UTL_V.PRINT_MESSAGE('CALLING SEND_REQUEST:',JTF_FM_UTL_V.G_LEVEL_PROCEDURE,l_full_name);
4508: Send_Request(p_api_version,
4509: p_init_msg_list,
4510: p_commit,
4503: l_full_name CONSTANT varchar2(2000) := G_PKG_NAME || '.' || l_api_name;
4504: --
4505: BEGIN
4506: JTF_FM_UTL_V.PRINT_MESSAGE('BEGIN'||l_full_name,JTF_FM_UTL_V.G_LEVEL_PROCEDURE,l_full_name);
4507: JTF_FM_UTL_V.PRINT_MESSAGE('CALLING SEND_REQUEST:',JTF_FM_UTL_V.G_LEVEL_PROCEDURE,l_full_name);
4508: Send_Request(p_api_version,
4509: p_init_msg_list,
4510: p_commit,
4511: p_validation_level,
4532: p_request_id,
4533: FND_API.G_FALSE
4534: );
4535:
4536: JTF_FM_UTL_V.PRINT_MESSAGE('END '|| l_full_name,JTF_FM_UTL_V.G_LEVEL_PROCEDURE,l_full_name);
4537: END Submit_Request;
4538:
4539: ---------------------------------------------------------------
4540: -- PROCEDURE
4598: HIST_REQ_ID = p_request_id;
4599:
4600: BEGIN
4601:
4602: JTF_FM_UTL_V.PRINT_MESSAGE('BEGIN '|| l_full_name,JTF_FM_UTL_V.G_LEVEL_PROCEDURE,l_full_name);
4603: -- Standard begin of API savepoint
4604: SAVEPOINT Previewed;
4605:
4606: IF NOT FND_API.Compatible_API_Call (
4648: IF (GETREQUEST%NOTFOUND)
4649: THEN
4650: CLOSE GETREQUEST;
4651: l_Error_Msg := 'Could not find REQUEST DATA in the database';
4652: JTF_FM_UTL_V.HANDLE_ERROR('JTF_FM_API_REQUEST_NOTFOUND', p_request_id);
4653:
4654: RAISE FND_API.G_EXC_ERROR;
4655: ELSE
4656: -- dbms_output.put_line('server id : ' || l_server_id);
4665: IF(CREQ%NOTFOUND)
4666: THEN
4667: CLOSE CREQ;
4668: l_Error_Msg := 'Could not find queue_names in the database';
4669: JTF_FM_UTL_V.HANDLE_ERROR('JTF_FM_API_QUEUE_NOTFOUND',l_server_id);
4670:
4671: RAISE FND_API.G_EXC_ERROR;
4672: ELSE
4673: -- dbms_output.put_line('request queue : ' || l_request_queue);
4737: request_id = p_request_id
4738: AND
4739: submit_dt_tm = l_submit_dt;
4740:
4741: JTF_FM_UTL_V.PRINT_MESSAGE('Successfully enqueued the request',JTF_FM_UTL_V.G_LEVEL_STATEMENT,l_full_name);
4742:
4743: -- Had not been previewed
4744: ELSE
4745: l_Error_Msg := 'Trying to submit a non-previewed request';
4742:
4743: -- Had not been previewed
4744: ELSE
4745: l_Error_Msg := 'Trying to submit a non-previewed request';
4746: JTF_FM_UTL_V.HANDLE_ERROR('JTF_FM_API_NOT_PREVIEWED' ,p_request_id);
4747:
4748: END IF; -- IF (INSTR(l_status, 'PREVIEWED') > 0)
4749: CLOSE CREQ;
4750: END IF; -- IF(CREQ%NOTFOUND)
4785: EXCEPTION
4786: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4787: ROLLBACK TO Previewed;
4788: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4789: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, l_Error_Msg);
4790: -- Standard call to get message count and if count=1, get the message
4791: FND_MSG_PUB.Count_And_Get (
4792: p_encoded => FND_API.g_false,
4793: p_count => x_msg_count,
4792: p_encoded => FND_API.g_false,
4793: p_count => x_msg_count,
4794: p_data => x_msg_data
4795: );
4796: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
4797: WHEN FND_API.G_EXC_ERROR THEN
4798: ROLLBACK TO Previewed;
4799: x_return_status := FND_API.G_RET_STS_ERROR;
4800: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, l_Error_Msg);
4796: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
4797: WHEN FND_API.G_EXC_ERROR THEN
4798: ROLLBACK TO Previewed;
4799: x_return_status := FND_API.G_RET_STS_ERROR;
4800: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, l_Error_Msg);
4801: -- Standard call to get message count and if count=1, get the message
4802: FND_MSG_PUB.Count_And_Get (
4803: p_encoded => FND_API.g_false,
4804: p_count => x_msg_count,
4803: p_encoded => FND_API.g_false,
4804: p_count => x_msg_count,
4805: p_data => x_msg_data
4806: );
4807: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
4808: WHEN OTHERS THEN
4809: ROLLBACK TO Previewed;
4810: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4811: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, SQLERRM);
4807: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
4808: WHEN OTHERS THEN
4809: ROLLBACK TO Previewed;
4810: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4811: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, SQLERRM);
4812: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4813: THEN
4814: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
4815: END IF;
4818: p_encoded => FND_API.g_false,
4819: p_count => x_msg_count,
4820: p_data => x_msg_data
4821: );
4822: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
4823:
4824: JTF_FM_UTL_V.PRINT_MESSAGE('END '|| l_full_name,JTF_FM_UTL_V.G_LEVEL_PROCEDURE,l_full_name);
4825: END Submit_Previewed_Request;
4826:
4820: p_data => x_msg_data
4821: );
4822: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
4823:
4824: JTF_FM_UTL_V.PRINT_MESSAGE('END '|| l_full_name,JTF_FM_UTL_V.G_LEVEL_PROCEDURE,l_full_name);
4825: END Submit_Previewed_Request;
4826:
4827: ---------------------------------------------------------------
4828: -- PROCEDURE
4922: WHERE
4923: HIST_REQ_ID = p_request_id;
4924:
4925: BEGIN
4926: JTF_FM_UTL_V.PRINT_MESSAGE('BEGIN '|| l_full_name,JTF_FM_UTL_V.G_LEVEL_PROCEDURE,l_full_name);
4927: -- Standard begin of API savepoint
4928: SAVEPOINT Resubmit;
4929:
4930: IF NOT FND_API.Compatible_API_Call (
4982: l_request_type,
4983: l_media_type;
4984:
4985:
4986: JTF_FM_UTL_V.PRINT_MESSAGE('REQUEST PARAMS' || l_priority||l_template_id || l_request_type || l_media_type,JTF_FM_UTL_V.G_LEVEL_STATEMENT,l_full_name);
4987: IF(CDATA%NOTFOUND) THEN
4988: CLOSE CDATA;
4989: l_Error_Msg := 'Could not find REQUEST DATA in the database';
4990: JTF_FM_UTL_V.HANDLE_ERROR('JTF_FM_API_REQUEST_NOTFOUND' ,p_request_id);
4986: JTF_FM_UTL_V.PRINT_MESSAGE('REQUEST PARAMS' || l_priority||l_template_id || l_request_type || l_media_type,JTF_FM_UTL_V.G_LEVEL_STATEMENT,l_full_name);
4987: IF(CDATA%NOTFOUND) THEN
4988: CLOSE CDATA;
4989: l_Error_Msg := 'Could not find REQUEST DATA in the database';
4990: JTF_FM_UTL_V.HANDLE_ERROR('JTF_FM_API_REQUEST_NOTFOUND' ,p_request_id);
4991: RAISE FND_API.G_EXC_ERROR;
4992: ELSE
4993: -- Get the new request id for the resubmitted Request
4994: SELECT JTF_FM_REQUESTHISTID_S.NEXTVAL INTO x_request_id FROM DUAL;
4999: FROM JTF_FM_SERVICE
5000: WHERE
5001: SERVER_ID = l_server_id;
5002:
5003: JTF_FM_UTL_V.PRINT_MESSAGE('QUEUE is :' || l_request_queue,JTF_FM_UTL_V.G_LEVEL_STATEMENT,l_full_name);
5004: -- Check if the queue names were available for the server_id
5005: IF(l_request_queue IS NULL) THEN
5006:
5007: l_Error_Msg := 'Could not find queue_names in the database';
5004: -- Check if the queue names were available for the server_id
5005: IF(l_request_queue IS NULL) THEN
5006:
5007: l_Error_Msg := 'Could not find queue_names in the database';
5008: JTF_FM_UTL_V.HANDLE_ERROR('JTF_FM_API_QUEUE_NOTFOUND',l_server_id);
5009:
5010: RAISE FND_API.G_EXC_ERROR;
5011: ELSE
5012: -- Read the XML request from the CLOB
5010: RAISE FND_API.G_EXC_ERROR;
5011: ELSE
5012: -- Read the XML request from the CLOB
5013: l_amount := DBMS_LOB.GETLENGTH(l_request);
5014: JTF_FM_UTL_V.PRINT_MESSAGE('LOB LEngth' || l_amount,JTF_FM_UTL_V.G_LEVEL_STATEMENT,l_full_name);
5015: DBMS_LOB.READ (l_request, l_amount, 1, l_buffer);
5016: l_message_properties.priority := l_priority;
5017:
5018:
5047: -- Following modifications by sxkrishn
5048: --- Get a new request id for the resubmitted request
5049:
5050: INSERT_REQ_CONTENTS(p_request_id,x_request_id);
5051: l_media_type := JTF_FM_UTL_V.GET_MEDIA_TYPE(l_message1);
5052:
5053: INSERT INTO JTF_FM_REQUEST_HISTORY_ALL
5054: (
5055: MESSAGE_ID,
5163: x_request_id,
5164: l_org_id,
5165: 1);
5166:
5167: JTF_FM_UTL_V.PRINT_MESSAGE('Successfully enqueued the request',JTF_FM_UTL_V.G_LEVEL_STATEMENT,l_full_name);
5168:
5169: JTF_FM_UTL_V.INSERT_EMAIL_STATS(x_request_id);
5170:
5171:
5165: 1);
5166:
5167: JTF_FM_UTL_V.PRINT_MESSAGE('Successfully enqueued the request',JTF_FM_UTL_V.G_LEVEL_STATEMENT,l_full_name);
5168:
5169: JTF_FM_UTL_V.INSERT_EMAIL_STATS(x_request_id);
5170:
5171:
5172:
5173: END IF;
5202: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.g_msg_lvl_success) THEN
5203: FND_MESSAGE.Set_Name('JTF','JTF_FM_API_RESUBMIT_SUCCESS');
5204: FND_MSG_PUB.Add;
5205: END IF;
5206: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
5207: EXCEPTION
5208: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5209: ROLLBACK TO Resubmit;
5210: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5207: EXCEPTION
5208: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5209: ROLLBACK TO Resubmit;
5210: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5211: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, l_Error_Msg);
5212: -- Standard call to get message count and if count=1, get the message
5213: FND_MSG_PUB.Count_And_Get (
5214: p_encoded => FND_API.g_false,
5215: p_count => x_msg_count,
5214: p_encoded => FND_API.g_false,
5215: p_count => x_msg_count,
5216: p_data => x_msg_data
5217: );
5218: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
5219: WHEN FND_API.G_EXC_ERROR THEN
5220: ROLLBACK TO Resubmit;
5221: x_return_status := FND_API.G_RET_STS_ERROR;
5222: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, l_Error_Msg);
5218: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
5219: WHEN FND_API.G_EXC_ERROR THEN
5220: ROLLBACK TO Resubmit;
5221: x_return_status := FND_API.G_RET_STS_ERROR;
5222: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, l_Error_Msg);
5223: -- Standard call to get message count and if count=1, get the message
5224: FND_MSG_PUB.Count_And_Get (
5225: p_encoded => FND_API.g_false,
5226: p_count => x_msg_count,
5225: p_encoded => FND_API.g_false,
5226: p_count => x_msg_count,
5227: p_data => x_msg_data
5228: );
5229: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
5230: WHEN OTHERS THEN
5231: ROLLBACK TO Resubmit;
5232: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5233: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, SQLERRM);
5229: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
5230: WHEN OTHERS THEN
5231: ROLLBACK TO Resubmit;
5232: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5233: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, SQLERRM);
5234: IF FND_MSG_PUB.Check_Msg_Level
5235: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5236: THEN
5237: FND_MSG_PUB.Add_Exc_Msg
5242: p_encoded => FND_API.g_false,
5243: p_count => x_msg_count,
5244: p_data => x_msg_data
5245: );
5246: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
5247: JTF_FM_UTL_V.PRINT_MESSAGE('END '|| l_full_name,JTF_FM_UTL_V.G_LEVEL_PROCEDURE,l_full_name);
5248: END Resubmit_Request;
5249:
5250:
5243: p_count => x_msg_count,
5244: p_data => x_msg_data
5245: );
5246: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
5247: JTF_FM_UTL_V.PRINT_MESSAGE('END '|| l_full_name,JTF_FM_UTL_V.G_LEVEL_PROCEDURE,l_full_name);
5248: END Resubmit_Request;
5249:
5250:
5251: ---------------------------------------------------------------
5274: x_request_id NUMBER;
5275: l_api_name CONSTANT varchar2(100) := 'RESUBMIT_REQUEST';
5276: l_full_name CONSTANT varchar2(2000) := G_PKG_NAME || '.' || l_api_name;
5277: BEGIN
5278: JTF_FM_UTL_V.PRINT_MESSAGE('BEGIN '|| l_full_name,JTF_FM_UTL_V.G_LEVEL_PROCEDURE,l_full_name);
5279: Resubmit_Request(
5280: p_api_version ,
5281: p_init_msg_list,
5282: p_commit ,
5287: p_request_id ,
5288: x_request_id
5289:
5290: ) ;
5291: JTF_FM_UTL_V.PRINT_MESSAGE('END '|| l_full_name,JTF_FM_UTL_V.G_LEVEL_PROCEDURE,l_full_name);
5292: END Resubmit_Request;
5293:
5294: --------------------------------------------------------------
5295: -- RESUBMIT_JOB
5421:
5422:
5423: BEGIN
5424:
5425: JTF_FM_UTL_V.PRINT_MESSAGE('BEGIN '|| l_full_name,JTF_FM_UTL_V.G_LEVEL_PROCEDURE,l_full_name);
5426: -- Standard begin of API savepoint
5427: SAVEPOINT Resubmit_job;
5428:
5429: IF NOT FND_API.Compatible_API_Call (
5453:
5454: -- check if job id is present
5455: IF(p_job_id IS NULL or p_job_id = FND_API.G_MISS_NUM ) THEN
5456: l_ERROR_MSG := 'Must pass job id parmeter';
5457: JTF_FM_UTL_V.HANDLE_ERROR('JTF_FM_API_MISSING_JOB_ID');
5458:
5459: END IF;
5460: -- check if media type is present
5461: IF(p_media_type IS NULL or p_media_type = FND_API.G_MISS_CHAR or p_media_type = '') THEN
5459: END IF;
5460: -- check if media type is present
5461: IF(p_media_type IS NULL or p_media_type = FND_API.G_MISS_CHAR or p_media_type = '') THEN
5462: l_ERROR_MSG := 'Must pass media type parmeter';
5463: JTF_FM_UTL_V.HANDLE_ERROR('JTF_FM_API_MISSING_MEDIA_TYPE');
5464: ELSE
5465: IF(upper(TRIM(p_media_type))) ='EMAIL' OR (upper(TRIM(p_media_type))) = 'FAX'
5466: OR (upper(TRIM(p_media_type))) = 'PRINTER' THEN
5467: NULL; -- Allowed media tyoe
5466: OR (upper(TRIM(p_media_type))) = 'PRINTER' THEN
5467: NULL; -- Allowed media tyoe
5468: ELSE
5469: l_ERROR_MSG := 'Invalid Media Type Passed';
5470: JTF_FM_UTL_V.HANDLE_ERROR('JTF_FM_API_INV_MEDIA_TYPE');
5471: END IF;
5472:
5473: END IF;
5474: -- check media address is present
5473: END IF;
5474: -- check media address is present
5475: IF(p_media_address IS NULL or p_media_address = FND_API.G_MISS_CHAR or p_media_address = '') THEN
5476: l_ERROR_MSG := 'Must pass media type parmeter';
5477: JTF_FM_UTL_V.HANDLE_ERROR('JTF_FM_API_MISSING_MEDIA_ADD');
5478:
5479: END IF;
5480:
5481: IF (p_request_id IS NULL) THEN
5506: l_request_type,
5507: l_media_type;
5508:
5509:
5510: JTF_FM_UTL_V.PRINT_MESSAGE('REQUEST PARAMS' || l_priority||l_template_id || l_request_type || l_media_type,JTF_FM_UTL_V.G_LEVEL_STATEMENT,l_full_name);
5511: IF(CDATA%NOTFOUND) THEN
5512: CLOSE CDATA;
5513: l_Error_Msg := 'Could not find REQUEST DATA in the database';
5514: JTF_FM_UTL_V.HANDLE_ERROR('JTF_FM_API_REQUEST_NOTFOUND' ,p_request_id);
5510: JTF_FM_UTL_V.PRINT_MESSAGE('REQUEST PARAMS' || l_priority||l_template_id || l_request_type || l_media_type,JTF_FM_UTL_V.G_LEVEL_STATEMENT,l_full_name);
5511: IF(CDATA%NOTFOUND) THEN
5512: CLOSE CDATA;
5513: l_Error_Msg := 'Could not find REQUEST DATA in the database';
5514: JTF_FM_UTL_V.HANDLE_ERROR('JTF_FM_API_REQUEST_NOTFOUND' ,p_request_id);
5515: RAISE FND_API.G_EXC_ERROR;
5516: ELSE
5517: -- Get the new request id for the resubmitted Request
5518: SELECT JTF_FM_REQUESTHISTID_S.NEXTVAL INTO x_request_id FROM DUAL;
5523: FROM JTF_FM_SERVICE
5524: WHERE
5525: SERVER_ID = l_server_id;
5526:
5527: JTF_FM_UTL_V.PRINT_MESSAGE('QUEUE is :' || l_request_queue,JTF_FM_UTL_V.G_LEVEL_STATEMENT,l_full_name);
5528: -- Check if the queue names were available for the server_id
5529: IF(l_request_queue IS NULL) THEN
5530:
5531: l_Error_Msg := 'Could not find queue_names in the database';
5528: -- Check if the queue names were available for the server_id
5529: IF(l_request_queue IS NULL) THEN
5530:
5531: l_Error_Msg := 'Could not find queue_names in the database';
5532: JTF_FM_UTL_V.HANDLE_ERROR('JTF_FM_API_QUEUE_NOTFOUND',l_server_id);
5533:
5534: RAISE FND_API.G_EXC_ERROR;
5535: ELSE
5536: -- Read the XML request from the CLOB
5534: RAISE FND_API.G_EXC_ERROR;
5535: ELSE
5536: -- Read the XML request from the CLOB
5537: l_amount := DBMS_LOB.GETLENGTH(l_request);
5538: JTF_FM_UTL_V.PRINT_MESSAGE('LOB LEngth' || l_amount,JTF_FM_UTL_V.G_LEVEL_STATEMENT,l_full_name);
5539: DBMS_LOB.READ (l_request, l_amount, 1, l_buffer);
5540: l_message_properties.priority := l_priority;
5541:
5542:
5580:
5581: l_pos2 := instr(newXML, '
5583:
5584: JTF_FM_UTL_V.PRINT_MESSAGE('1:' ||l_pos1,JTF_FM_UTL_V.G_LEVEL_STATEMENT,l_full_name);
5585: JTF_FM_UTL_V.PRINT_MESSAGE('2:' ||l_pos2,JTF_FM_UTL_V.G_LEVEL_STATEMENT,l_full_name);
5586:
5587: IF l_pos1 <= 0 OR l_pos2 <= 0 THEN
5588: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5581: l_pos2 := instr(newXML, '
5583:
5584: JTF_FM_UTL_V.PRINT_MESSAGE('1:' ||l_pos1,JTF_FM_UTL_V.G_LEVEL_STATEMENT,l_full_name);
5585: JTF_FM_UTL_V.PRINT_MESSAGE('2:' ||l_pos2,JTF_FM_UTL_V.G_LEVEL_STATEMENT,l_full_name);
5586:
5587: IF l_pos1 <= 0 OR l_pos2 <= 0 THEN
5588: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5589: ELSE
5614:
5615:
5616:
5617:
5618: JTF_FM_UTL_V.Get_Dtd(l_dtd);
5619:
5620: -- validate the xml
5621: -- While validating the xml, PI(processing instruction) instructions(?xml tags) need to be at the beg
5622: -- But our request XML already has this tag
5662:
5663:
5664: -- Following modifications by sxkrishn
5665: --- Get a new request id for the resubmitted request
5666: l_media_type := JTF_FM_UTL_V.GET_MEDIA_TYPE(newXML);
5667:
5668:
5669: INSERT INTO JTF_FM_REQUEST_HISTORY_ALL
5670: (
5792: UPDATE JTF_FM_EMAIL_STATS
5793: SET RESUBMITTED_JOB_COUNT = RESUBMITTED_JOB_COUNT+1
5794: where request_id = p_request_id;
5795:
5796: JTF_FM_UTL_V.INSERT_EMAIL_STATS(x_request_id);
5797:
5798: UPDATE_RESUBMITTED(p_request_id,p_job_id,x_request_id);
5799:
5800: JTF_FM_UTL_V.PRINT_MESSAGE('Successfully enqueued the request',JTF_FM_UTL_V.G_LEVEL_STATEMENT,l_full_name);
5796: JTF_FM_UTL_V.INSERT_EMAIL_STATS(x_request_id);
5797:
5798: UPDATE_RESUBMITTED(p_request_id,p_job_id,x_request_id);
5799:
5800: JTF_FM_UTL_V.PRINT_MESSAGE('Successfully enqueued the request',JTF_FM_UTL_V.G_LEVEL_STATEMENT,l_full_name);
5801: -- Get the position of the timestamp(submit_date) and
5802:
5803:
5804:
5836: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.g_msg_lvl_success) THEN
5837: FND_MESSAGE.Set_Name('JTF','JTF_FM_API_RESUBMIT_SUCCESS');
5838: FND_MSG_PUB.Add;
5839: END IF;
5840: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
5841: EXCEPTION
5842: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5843: ROLLBACK TO Resubmit_job;
5844: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5841: EXCEPTION
5842: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5843: ROLLBACK TO Resubmit_job;
5844: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5845: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, l_Error_Msg);
5846: -- Standard call to get message count and if count=1, get the message
5847: FND_MSG_PUB.Count_And_Get (
5848: p_encoded => FND_API.g_false,
5849: p_count => x_msg_count,
5848: p_encoded => FND_API.g_false,
5849: p_count => x_msg_count,
5850: p_data => x_msg_data
5851: );
5852: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
5853: WHEN FND_API.G_EXC_ERROR THEN
5854: ROLLBACK TO Resubmit_job;
5855: x_return_status := FND_API.G_RET_STS_ERROR;
5856: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, l_Error_Msg);
5852: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
5853: WHEN FND_API.G_EXC_ERROR THEN
5854: ROLLBACK TO Resubmit_job;
5855: x_return_status := FND_API.G_RET_STS_ERROR;
5856: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, l_Error_Msg);
5857: -- Standard call to get message count and if count=1, get the message
5858: FND_MSG_PUB.Count_And_Get (
5859: p_encoded => FND_API.g_false,
5860: p_count => x_msg_count,
5859: p_encoded => FND_API.g_false,
5860: p_count => x_msg_count,
5861: p_data => x_msg_data
5862: );
5863: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
5864: WHEN OTHERS THEN
5865: ROLLBACK TO Resubmit_job;
5866: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5867: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, SQLERRM);
5863: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
5864: WHEN OTHERS THEN
5865: ROLLBACK TO Resubmit_job;
5866: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5867: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, SQLERRM);
5868: IF FND_MSG_PUB.Check_Msg_Level
5869: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5870: THEN
5871: FND_MSG_PUB.Add_Exc_Msg
5876: p_encoded => FND_API.g_false,
5877: p_count => x_msg_count,
5878: p_data => x_msg_data
5879: );
5880: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
5881: JTF_FM_UTL_V.PRINT_MESSAGE('END '|| l_full_name,JTF_FM_UTL_V.G_LEVEL_PROCEDURE,l_full_name);
5882:
5883: END RESUBMIT_JOB;
5884:
5877: p_count => x_msg_count,
5878: p_data => x_msg_data
5879: );
5880: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
5881: JTF_FM_UTL_V.PRINT_MESSAGE('END '|| l_full_name,JTF_FM_UTL_V.G_LEVEL_PROCEDURE,l_full_name);
5882:
5883: END RESUBMIT_JOB;
5884:
5885:
5894: l_full_name CONSTANT VARCHAR2(2000) := G_PKG_NAME || '.' || l_api_name;
5895: l_error_msg VARCHAR2(2000) := '';
5896:
5897: BEGIN
5898: JTF_FM_UTL_V.PRINT_MESSAGE('BEGIN' || l_full_name, JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
5899: SAVEPOINT pre_correction;
5900: -- Initialize API return status to success
5901: x_return_status := FND_API.G_RET_STS_SUCCESS;
5902:
5921: EXCEPTION
5922: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5923: ROLLBACK TO pre_correction;
5924: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5925: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, l_Error_Msg);
5926:
5927: WHEN FND_API.G_EXC_ERROR THEN
5928: ROLLBACK TO pre_correction;
5929: x_return_status := FND_API.G_RET_STS_ERROR;
5926:
5927: WHEN FND_API.G_EXC_ERROR THEN
5928: ROLLBACK TO pre_correction;
5929: x_return_status := FND_API.G_RET_STS_ERROR;
5930: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, l_Error_Msg);
5931:
5932: WHEN OTHERS THEN
5933: ROLLBACK TO pre_correction;
5934: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5931:
5932: WHEN OTHERS THEN
5933: ROLLBACK TO pre_correction;
5934: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5935: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, SQLERRM);
5936: IF FND_MSG_PUB.Check_Msg_Level
5937: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5938: THEN
5939: FND_MSG_PUB.Add_Exc_Msg
5939: FND_MSG_PUB.Add_Exc_Msg
5940: (G_PKG_NAME, l_api_name);
5941: END IF;
5942:
5943: JTF_FM_UTL_V.PRINT_MESSAGE('END '|| l_full_name,JTF_FM_UTL_V.G_LEVEL_PROCEDURE,l_full_name);
5944:
5945:
5946: END CORRECT_MALFORM_JOB;
5947:
5964: l_job_count NUMBER := 0;
5965: l_add_count NUMBER := 0;
5966:
5967: BEGIN
5968: JTF_FM_UTL_V.PRINT_MESSAGE('BEGIN' || l_full_name, JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
5969: SAVEPOINT pre_correction;
5970: -- Initialize API return status to success
5971: x_return_status := FND_API.G_RET_STS_SUCCESS;
5972:
5976: IF l_job_count <> l_add_count THEN
5977: -- Every job should have its corrected email address
5978: -- If not throw an error
5979: l_Error_Msg := 'Should pass corrected address for each job in the list';
5980: JTF_FM_UTL_V.PRINT_MESSAGE('The number of JOB IDs must be the same as the list of addrsses ' ,JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
5981:
5982: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
5983: THEN
5984: FND_MESSAGE.set_name('JTF', 'JTF_FM_API_MISSING_REQ_INFO');
6016: EXCEPTION
6017: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6018: ROLLBACK TO pre_correction;
6019: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6020: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, l_Error_Msg);
6021:
6022: WHEN FND_API.G_EXC_ERROR THEN
6023: ROLLBACK TO pre_correction;
6024: x_return_status := FND_API.G_RET_STS_ERROR;
6021:
6022: WHEN FND_API.G_EXC_ERROR THEN
6023: ROLLBACK TO pre_correction;
6024: x_return_status := FND_API.G_RET_STS_ERROR;
6025: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, l_Error_Msg);
6026:
6027: WHEN OTHERS THEN
6028: ROLLBACK TO pre_correction;
6029: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6026:
6027: WHEN OTHERS THEN
6028: ROLLBACK TO pre_correction;
6029: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6030: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, SQLERRM);
6031: IF FND_MSG_PUB.Check_Msg_Level
6032: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6033: THEN
6034: FND_MSG_PUB.Add_Exc_Msg
6034: FND_MSG_PUB.Add_Exc_Msg
6035: (G_PKG_NAME, l_api_name);
6036: END IF;
6037:
6038: JTF_FM_UTL_V.PRINT_MESSAGE('END '|| l_full_name,JTF_FM_UTL_V.G_LEVEL_PROCEDURE,l_full_name);
6039:
6040:
6041: END CORRECT_MALFORMED;
6042:
6069: AND CORRECTED_FLAG = 'Y'
6070: and MEDIA_TYPE = 'EMAIL'
6071: and FAILURE = 'MALFORMED_ADDRESS';
6072: BEGIN
6073: JTF_FM_UTL_V.PRINT_MESSAGE('BEGIN' || l_full_name, JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
6074:
6075: -- Initialize API return status to success
6076: x_return_status := FND_API.G_RET_STS_SUCCESS;
6077:
6082:
6083:
6084: IF (CGET_MALFORMED_CORRECTED%NOTFOUND)
6085: THEN
6086: JTF_FM_UTL_V.PRINT_MESSAGE('Invalid request_id',JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
6087:
6088: CLOSE CGET_MALFORMED_CORRECTED;
6089: l_Error_Msg := 'Could not find any corrected address for the malformed request';
6090: JTF_FM_UTL_V.HANDLE_ERROR('JTF_FM_NO_MAL_CORRECTION_FOUND',p_request_id);
6086: JTF_FM_UTL_V.PRINT_MESSAGE('Invalid request_id',JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
6087:
6088: CLOSE CGET_MALFORMED_CORRECTED;
6089: l_Error_Msg := 'Could not find any corrected address for the malformed request';
6090: JTF_FM_UTL_V.HANDLE_ERROR('JTF_FM_NO_MAL_CORRECTION_FOUND',p_request_id);
6091:
6092: RAISE FND_API.G_EXC_ERROR;
6093: END IF;
6094: LOOP
6093: END IF;
6094: LOOP
6095: FETCH CGET_MALFORMED_CORRECTED INTO l_job, l_corrected_address;
6096: EXIT WHEN CGET_MALFORMED_CORRECTED%NOTFOUND;
6097: JTF_FM_UTL_V.PRINT_MESSAGE('Fetching corrected jobs',JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
6098:
6099: l_count := l_count + 1;
6100: JTF_FM_UTL_V.PRINT_MESSAGE('Found some corrected jobs. Resubmitting them.',JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
6101: RESUBMIT_JOB (
6096: EXIT WHEN CGET_MALFORMED_CORRECTED%NOTFOUND;
6097: JTF_FM_UTL_V.PRINT_MESSAGE('Fetching corrected jobs',JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
6098:
6099: l_count := l_count + 1;
6100: JTF_FM_UTL_V.PRINT_MESSAGE('Found some corrected jobs. Resubmitting them.',JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
6101: RESUBMIT_JOB (
6102: p_api_version,
6103: p_init_msg_list,
6104: p_commit,
6150: EXCEPTION
6151: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6152: ROLLBACK TO pre_resubmit;
6153: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6154: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, l_Error_Msg);
6155:
6156: WHEN FND_API.G_EXC_ERROR THEN
6157: ROLLBACK TO pre_resubmit;
6158: x_return_status := FND_API.G_RET_STS_ERROR;
6155:
6156: WHEN FND_API.G_EXC_ERROR THEN
6157: ROLLBACK TO pre_resubmit;
6158: x_return_status := FND_API.G_RET_STS_ERROR;
6159: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, l_Error_Msg);
6160:
6161: WHEN OTHERS THEN
6162: ROLLBACK TO pre_resubmit;
6163: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6160:
6161: WHEN OTHERS THEN
6162: ROLLBACK TO pre_resubmit;
6163: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6164: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, SQLERRM);
6165: IF FND_MSG_PUB.Check_Msg_Level
6166: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6167: THEN
6168: FND_MSG_PUB.Add_Exc_Msg
6168: FND_MSG_PUB.Add_Exc_Msg
6169: (G_PKG_NAME, l_api_name);
6170: END IF;
6171:
6172: JTF_FM_UTL_V.PRINT_MESSAGE('END' || l_full_name, JTF_FM_UTL_V.G_LEVEL_PROCEDURE ,l_full_name);
6173: END RESUBMIT_MALFORMED;
6174:
6175:
6176:
6246: FROM JTF_FM_REQUESTS_AQ
6247: WHERE REQUEST_ID = p_request_id;
6248:
6249: BEGIN
6250: JTF_FM_UTL_V.PRINT_MESSAGE('BEGIN '|| l_full_name,JTF_FM_UTL_V.G_LEVEL_PROCEDURE,l_full_name);
6251: -- Standard begin of API savepoint
6252: SAVEPOINT Cancel;
6253:
6254: IF NOT FND_API.Compatible_API_Call (
6273: END IF;
6274:
6275: -- Initialize API return status to success
6276: x_return_status := FND_API.G_RET_STS_SUCCESS;
6277: JTF_FM_UTL_V.PRINT_MESSAGE('Entering If condition',JTF_FM_UTL_V.G_LEVEL_STATEMENT,l_full_name);
6278: IF (p_request_id IS NULL) THEN
6279: l_Error_Msg := 'Must pass p_request_id parameter';
6280: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
6281: FND_MESSAGE.set_name('JTF', 'JTF_FM_API_MISSING_REQUEST_ID');
6289: FETCH CMESG INTO l_message_handle, l_server_id, l_request_type,l_request_status;
6290: IF(CMESG%NOTFOUND) THEN
6291: CLOSE CMESG;
6292: l_Error_Msg := 'Could not find REQUEST DATA in the database';
6293: JTF_FM_UTL_V.HANDLE_ERROR('JTF_FM_API_REQUEST_NOTFOUND' ,p_request_id);
6294: RAISE FND_API.G_EXC_ERROR;
6295: END IF;
6296: --dbms_output.put_line('serverId, req type , req status is:' || l_server_id ||':' || l_request_type || ':' || l_request_status);
6297: CLOSE CMESG;
6303: FROM JTF_FM_SERVICE_ALL
6304: WHERE
6305: SERVER_ID = l_server_id;
6306:
6307: JTF_FM_UTL_V.PRINT_MESSAGE('Queue found ' || l_request_queue,JTF_FM_UTL_V.G_LEVEL_STATEMENT,l_full_name);
6308: --dbms_output.put_line('Queue found ' || l_request_queue);
6309: IF(l_request_queue IS NULL) THEN
6310:
6311: l_Error_Msg := 'Could not find queue_names in the database';
6308: --dbms_output.put_line('Queue found ' || l_request_queue);
6309: IF(l_request_queue IS NULL) THEN
6310:
6311: l_Error_Msg := 'Could not find queue_names in the database';
6312: JTF_FM_UTL_V.HANDLE_ERROR('JTF_FM_API_QUEUE_NOTFOUND',l_server_id);
6313:
6314: RAISE FND_API.G_EXC_ERROR;
6315: END IF;
6316:
6336: payload => l_mesg, msgid => l_message_handle);
6337: EXCEPTION
6338: WHEN OTHERS THEN
6339: l_Error_Msg := 'Could not find the payload for request_id ' || p_request_id || ' in the Queue Table';
6340: JTF_FM_UTL_V.PRINT_MESSAGE(l_api_name, JTF_FM_UTL_V.G_LEVEL_ERROR,l_error_msg);
6341: END;
6342: ELSIF l_request_status = 'CANCELLED' THEN
6343: l_Error_Msg := 'The request has already been canceled. ';
6344: JTF_FM_UTL_V.HANDLE_ERROR('JTF_FM_API_ALREADY_CANCELED', to_char(p_request_id));
6340: JTF_FM_UTL_V.PRINT_MESSAGE(l_api_name, JTF_FM_UTL_V.G_LEVEL_ERROR,l_error_msg);
6341: END;
6342: ELSIF l_request_status = 'CANCELLED' THEN
6343: l_Error_Msg := 'The request has already been canceled. ';
6344: JTF_FM_UTL_V.HANDLE_ERROR('JTF_FM_API_ALREADY_CANCELED', to_char(p_request_id));
6345:
6346: ELSE
6347:
6348: -- Mass request, so get records from JTF_FM_REQUESTS_AQ and dequeue them
6353: THEN
6354:
6355: CLOSE CMASSMSG;
6356: l_Error_Msg := 'Could not find REQUEST DATA in the database';
6357: JTF_FM_UTL_V.HANDLE_ERROR('JTF_FM_API_REQUEST_NOTFOUND',p_request_id);
6358: RAISE FND_API.G_EXC_ERROR;
6359: END IF;
6360:
6361:
6385: payload => l_mesg, msgid => l_message_handle);
6386: EXCEPTION
6387: WHEN OTHERS THEN
6388: l_Error_Msg := 'Could not find the payload for request_id ' || p_request_id || ' in the Queue Table';
6389: JTF_FM_UTL_V.PRINT_MESSAGE(l_api_name, JTF_FM_UTL_V.G_LEVEL_ERROR,l_error_msg);
6390: END;
6391: END IF; --End IF l_request_type = 'M'
6392:
6393: -- Delete the entry from the status table
6433: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
6434: FND_MESSAGE.Set_Name('JTF','JTF_FM_API_CANCEL_SUCCESS');
6435: FND_MSG_PUB.Add;
6436: END IF;
6437: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
6438: EXCEPTION
6439: WHEN L_MESSAGE_NOT_FOUND OR L_NO_MESSAGES THEN
6440: ROLLBACK TO Cancel;
6441: x_return_status := FND_API.G_RET_STS_ERROR;
6440: ROLLBACK TO Cancel;
6441: x_return_status := FND_API.G_RET_STS_ERROR;
6442: IF l_count > 0 THEN
6443: l_Error_Msg := 'Successfully cancelled some messages';
6444: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, l_Error_Msg);
6445: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.g_msg_lvl_success) THEN
6446: FND_MESSAGE.Set_Name('JTF','JTF_FM_API_CANCEL_SUCCESS');
6447: FND_MSG_PUB.Add;
6448: END IF;
6447: FND_MSG_PUB.Add;
6448: END IF;
6449: ELSE
6450: l_Error_Msg := 'Message not found in the request queue';
6451: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, l_Error_Msg);
6452: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
6453: FND_MESSAGE.Set_Name('JTF','JTF_FM_API_CANCEL_FAILED');
6454: FND_MSG_PUB.Add;
6455: END IF;
6459: p_encoded => FND_API.g_false,
6460: p_count => x_msg_count,
6461: p_data => x_msg_data
6462: );
6463: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
6464: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6465: ROLLBACK TO Cancel;
6466: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6467: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, l_Error_Msg);
6463: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
6464: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6465: ROLLBACK TO Cancel;
6466: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6467: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, l_Error_Msg);
6468: -- Standard call to get message count and if count=1, get the message
6469: FND_MSG_PUB.Count_And_Get (
6470: p_encoded => FND_API.g_false,
6471: p_count => x_msg_count,
6470: p_encoded => FND_API.g_false,
6471: p_count => x_msg_count,
6472: p_data => x_msg_data
6473: );
6474: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
6475: WHEN FND_API.G_EXC_ERROR THEN
6476: ROLLBACK TO Cancel;
6477: x_return_status := FND_API.G_RET_STS_ERROR;
6478: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, l_Error_Msg);
6474: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
6475: WHEN FND_API.G_EXC_ERROR THEN
6476: ROLLBACK TO Cancel;
6477: x_return_status := FND_API.G_RET_STS_ERROR;
6478: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, l_Error_Msg);
6479: -- Standard call to get message count and if count=1, get the message
6480: FND_MSG_PUB.Count_And_Get (
6481: p_encoded => FND_API.g_false,
6482: p_count => x_msg_count,
6481: p_encoded => FND_API.g_false,
6482: p_count => x_msg_count,
6483: p_data => x_msg_data
6484: );
6485: JTF_FM_UTL_V.PRINT_MESSAGE('x_message: '||x_msg_data,JTF_FM_UTL_V.G_LEVEL_STATEMENT,l_full_name);
6486: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
6487: WHEN OTHERS THEN
6488: ROLLBACK TO Cancel;
6489: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6482: p_count => x_msg_count,
6483: p_data => x_msg_data
6484: );
6485: JTF_FM_UTL_V.PRINT_MESSAGE('x_message: '||x_msg_data,JTF_FM_UTL_V.G_LEVEL_STATEMENT,l_full_name);
6486: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
6487: WHEN OTHERS THEN
6488: ROLLBACK TO Cancel;
6489: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6490: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, SQLERRM);
6486: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
6487: WHEN OTHERS THEN
6488: ROLLBACK TO Cancel;
6489: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6490: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, SQLERRM);
6491: IF FND_MSG_PUB.Check_Msg_Level
6492: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6493: THEN
6494: FND_MSG_PUB.Add_Exc_Msg
6499: p_encoded => FND_API.g_false,
6500: p_count => x_msg_count,
6501: p_data => x_msg_data
6502: );
6503: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
6504: JTF_FM_UTL_V.PRINT_MESSAGE('END '|| l_full_name,JTF_FM_UTL_V.G_LEVEL_PROCEDURE,l_full_name);
6505: END Cancel_Request;
6506:
6507: ---------------------------------------------------------------
6500: p_count => x_msg_count,
6501: p_data => x_msg_data
6502: );
6503: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
6504: JTF_FM_UTL_V.PRINT_MESSAGE('END '|| l_full_name,JTF_FM_UTL_V.G_LEVEL_PROCEDURE,l_full_name);
6505: END Cancel_Request;
6506:
6507: ---------------------------------------------------------------
6508: -- PROCEDURE
6565: l_message VARCHAR2(32767);
6566: --
6567: BEGIN
6568: -- Standard begin of API savepoint
6569: JTF_FM_UTL_V.PRINT_MESSAGE('BEGIN '|| l_full_name,JTF_FM_UTL_V.G_LEVEL_PROCEDURE,l_full_name);
6570: SAVEPOINT Attachment_XML;
6571:
6572: IF NOT FND_API.Compatible_API_Call (
6573: l_api_version,
6677: l_message := l_message||'
6678: l_destination := l_destination ||', '|| l_fax;
6679: l_temp := l_temp + 1;
6680: END IF;
6681: JTF_FM_UTL_V.PRINT_MESSAGE('Forming the Content XML3',JTF_FM_UTL_V.G_LEVEL_STATEMENT,l_full_name);
6682: -- Check if atleast one valid media type has been specified
6683: IF (l_temp = 0) THEN
6684: l_Error_Msg := 'Invalid media type specified. Allowed media_types are EMAIL, FAX, PRINTER ';
6685: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
6768: EXCEPTION
6769: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6770: ROLLBACK TO Attachment_XML;
6771: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6772: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, l_Error_Msg);
6773: -- Standard call to get message count and if count=1, get the message
6774: FND_MSG_PUB.Count_And_Get (
6775: p_encoded => FND_API.g_false,
6776: p_count => x_msg_count,
6775: p_encoded => FND_API.g_false,
6776: p_count => x_msg_count,
6777: p_data => x_msg_data
6778: );
6779: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
6780: WHEN FND_API.G_EXC_ERROR THEN
6781: ROLLBACK TO Attachment_XML;
6782: x_return_status := FND_API.G_RET_STS_ERROR;
6783: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, l_Error_Msg);
6779: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
6780: WHEN FND_API.G_EXC_ERROR THEN
6781: ROLLBACK TO Attachment_XML;
6782: x_return_status := FND_API.G_RET_STS_ERROR;
6783: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, l_Error_Msg);
6784: -- Standard call to get message count and if count=1, get the message
6785: FND_MSG_PUB.Count_And_Get (
6786: p_encoded => FND_API.g_false,
6787: p_count => x_msg_count,
6786: p_encoded => FND_API.g_false,
6787: p_count => x_msg_count,
6788: p_data => x_msg_data
6789: );
6790: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
6791: WHEN OTHERS THEN
6792: ROLLBACK TO Attachment_XML;
6793: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6794: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, SQLERRM);
6790: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
6791: WHEN OTHERS THEN
6792: ROLLBACK TO Attachment_XML;
6793: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6794: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, SQLERRM);
6795: IF FND_MSG_PUB.Check_Msg_Level
6796: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6797: THEN
6798: FND_MSG_PUB.Add_Exc_Msg
6803: p_encoded => FND_API.g_false,
6804: p_count => x_msg_count,
6805: p_data => x_msg_data
6806: );
6807: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
6808: JTF_FM_UTL_V.PRINT_MESSAGE('END: '|| l_full_name,JTF_FM_UTL_V.G_LEVEL_PROCEDURE,l_full_name);
6809: END Get_Multiple_Content_XML;
6810:
6811: ---------------------------------------------------------------
6804: p_count => x_msg_count,
6805: p_data => x_msg_data
6806: );
6807: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
6808: JTF_FM_UTL_V.PRINT_MESSAGE('END: '|| l_full_name,JTF_FM_UTL_V.G_LEVEL_PROCEDURE,l_full_name);
6809: END Get_Multiple_Content_XML;
6810:
6811: ---------------------------------------------------------------
6812: -- PROCEDURE
6868: l_email_count INTEGER;
6869: l_queue_response VARCHAR2(2) := 'B';
6870: --
6871: BEGIN
6872: JTF_FM_UTL_V.PRINT_MESSAGE('BEGIN '|| l_full_name,JTF_FM_UTL_V.G_LEVEL_PROCEDURE,l_full_name);
6873: -- Standard begin of API savepoint
6874: SAVEPOINT Batch_Request;
6875:
6876: IF NOT FND_API.Compatible_API_Call (
6925: FND_MSG_PUB.Add;
6926: END IF;
6927: RAISE FND_API.G_EXC_ERROR;
6928: ELSE
6929: JTF_FM_UTL_V.PRINT_MESSAGE('Creating View XML ..',JTF_FM_UTL_V.G_LEVEL_STATEMENT,l_full_name);
6930: l_message := l_message || '
6931: l_message := l_message || '
6932: l_message := l_message || '
6933: END IF;
6933: END IF;
6934:
6935: ELSIF (upper(p_list_type) = 'ADDRESS') THEN
6936:
6937: JTF_FM_UTL_V.PRINT_MESSAGE('Creating Batch XML ..',JTF_FM_UTL_V.G_LEVEL_STATEMENT,l_full_name);
6938: l_index := 0;
6939: -- Get the greatest index of the last entry in all the address tables.
6940: IF l_index < p_printer.LAST THEN
6941: l_index := p_printer.LAST;
6948: END IF;
6949: IF l_index < p_file_path.LAST THEN
6950: l_index := p_file_path.LAST;
6951: END IF;
6952: JTF_FM_UTL_V.PRINT_MESSAGE (to_char(l_index),JTF_FM_UTL_V.G_LEVEL_STATEMENT,l_full_name);
6953:
6954: -- Get the greatest index of the last entry in all the address tables.
6955: --SELECT GREATEST(l_email_count, l_printer_count, l_file_path_count, l_fax_count)
6956: --INTO l_index FROM DUAL;
6963: END IF;
6964: RAISE FND_API.G_EXC_ERROR;
6965: ELSE
6966: l_message := l_message||'';
6967: JTF_FM_UTL_V.PRINT_MESSAGE('Getting the greatest value ..'||TO_CHAR(l_index),JTF_FM_UTL_V.G_LEVEL_STATEMENT,l_full_name);
6968: FOR i IN 1..l_index LOOP
6969:
6970: -- Check if atleast one destination address has been passed
6971: IF(p_printer.EXISTS(i) OR p_email.EXISTS(i) OR p_file_path.EXISTS(i) OR p_fax.EXISTS(i)) THEN
7004: l_message := l_message||'';
7005: END IF;
7006: ELSE
7007: l_Error_Msg := 'The value of p_list_type parameter must be either "VIEW" or "ADDRESS"';
7008: JTF_FM_UTL_V.HANDLE_ERROR('JTF_FM_API_INVALID_LISTTYPE',p_list_type);
7009: RAISE FND_API.G_EXC_ERROR;
7010: END IF;
7011:
7012: -- Check if the agent wants detailed history
7068: EXCEPTION
7069: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7070: ROLLBACK TO Batch_Request;
7071: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7072: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, l_Error_Msg);
7073: -- Standard call to get message count and if count=1, get the message
7074: FND_MSG_PUB.Count_And_Get (
7075: p_encoded => FND_API.g_false,
7076: p_count => x_msg_count,
7075: p_encoded => FND_API.g_false,
7076: p_count => x_msg_count,
7077: p_data => x_msg_data
7078: );
7079: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
7080: WHEN FND_API.G_EXC_ERROR THEN
7081: ROLLBACK TO Batch_Request;
7082: x_return_status := FND_API.G_RET_STS_ERROR;
7083: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, l_Error_Msg);
7079: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
7080: WHEN FND_API.G_EXC_ERROR THEN
7081: ROLLBACK TO Batch_Request;
7082: x_return_status := FND_API.G_RET_STS_ERROR;
7083: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, l_Error_Msg);
7084: -- Standard call to get message count and if count=1, get the message
7085: FND_MSG_PUB.Count_And_Get (
7086: p_encoded => FND_API.g_false,
7087: p_count => x_msg_count,
7086: p_encoded => FND_API.g_false,
7087: p_count => x_msg_count,
7088: p_data => x_msg_data
7089: );
7090: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
7091: WHEN OTHERS THEN
7092: ROLLBACK TO Batch_Request;
7093: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7094: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, SQLERRM);
7090: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
7091: WHEN OTHERS THEN
7092: ROLLBACK TO Batch_Request;
7093: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7094: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, SQLERRM);
7095: IF FND_MSG_PUB.Check_Msg_Level
7096: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
7097: THEN
7098: FND_MSG_PUB.Add_Exc_Msg
7103: p_encoded => FND_API.g_false,
7104: p_count => x_msg_count,
7105: p_data => x_msg_data
7106: );
7107: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
7108:
7109: JTF_FM_UTL_V.PRINT_MESSAGE('END '|| l_full_name,JTF_FM_UTL_V.G_LEVEL_PROCEDURE,l_full_name);
7110: END SUBMIT_BATCH_REQUEST;
7111:
7105: p_data => x_msg_data
7106: );
7107: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
7108:
7109: JTF_FM_UTL_V.PRINT_MESSAGE('END '|| l_full_name,JTF_FM_UTL_V.G_LEVEL_PROCEDURE,l_full_name);
7110: END SUBMIT_BATCH_REQUEST;
7111:
7112: ---------------------------------------------------------------
7113: -- PROCEDURE
7182:
7183:
7184: --
7185: BEGIN
7186: JTF_FM_UTL_V.PRINT_MESSAGE('BEGIN '|| l_full_name,JTF_FM_UTL_V.G_LEVEL_PROCEDURE,l_full_name);
7187:
7188: -- Standard begin of API savepoint
7189: SAVEPOINT Mass_Request;
7190:
7228:
7229: -- Proceed
7230: IF(INSTR(p_content_xml,'query_id') >0)
7231: THEN
7232: JTF_FM_UTL_V.PRINT_MESSAGE('Item item has a valid query ',JTF_FM_UTL_V.G_LEVEL_STATEMENT,l_full_name);
7233: l_message := '
7234: ELSE
7235: -- throw error, item should have a query assoc for mass requests
7236: l_Error_Msg := 'Content must have a valid query associated with it.';
7233: l_message := '
7234: ELSE
7235: -- throw error, item should have a query assoc for mass requests
7236: l_Error_Msg := 'Content must have a valid query associated with it.';
7237: JTF_FM_UTL_V.HANDLE_ERROR('JTF_FM_API_MISSING_OCM_QUERY',l_content_id);
7238: RAISE FND_API.G_EXC_ERROR;
7239: END IF;
7240:
7241: END IF;
7245: IF p_per_user_history = FND_API.G_FALSE THEN
7246: l_party_id := -229929;
7247: END IF;
7248:
7249: JTF_FM_UTL_V.Print_message('Before Submit Request',JTF_FM_UTL_V.G_LEVEL_STATEMENT,l_full_name);
7250:
7251: JTF_FM_UTL_V.Print_message('Message: ' || substr(l_message, 1, 200),JTF_FM_UTL_V.G_LEVEL_STATEMENT,l_full_name);
7252:
7253: Send_Request
7247: END IF;
7248:
7249: JTF_FM_UTL_V.Print_message('Before Submit Request',JTF_FM_UTL_V.G_LEVEL_STATEMENT,l_full_name);
7250:
7251: JTF_FM_UTL_V.Print_message('Message: ' || substr(l_message, 1, 200),JTF_FM_UTL_V.G_LEVEL_STATEMENT,l_full_name);
7252:
7253: Send_Request
7254: ( p_api_version => p_api_version,
7255: p_init_msg_list => p_init_msg_list,
7302: EXCEPTION
7303: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7304: ROLLBACK TO Mass_Request;
7305: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7306: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, l_Error_Msg);
7307: -- Standard call to get message count and if count=1, get the message
7308: FND_MSG_PUB.Count_And_Get (
7309: p_encoded => FND_API.g_false,
7310: p_count => x_msg_count,
7309: p_encoded => FND_API.g_false,
7310: p_count => x_msg_count,
7311: p_data => x_msg_data
7312: );
7313: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
7314: WHEN FND_API.G_EXC_ERROR THEN
7315: ROLLBACK TO Mass_Request;
7316: x_return_status := FND_API.G_RET_STS_ERROR;
7317: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, l_Error_Msg);
7313: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
7314: WHEN FND_API.G_EXC_ERROR THEN
7315: ROLLBACK TO Mass_Request;
7316: x_return_status := FND_API.G_RET_STS_ERROR;
7317: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, l_Error_Msg);
7318: -- Standard call to get message count and if count=1, get the message
7319: FND_MSG_PUB.Count_And_Get (
7320: p_encoded => FND_API.g_false,
7321: p_count => x_msg_count,
7320: p_encoded => FND_API.g_false,
7321: p_count => x_msg_count,
7322: p_data => x_msg_data
7323: );
7324: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
7325: WHEN OTHERS THEN
7326: ROLLBACK TO Mass_Request;
7327: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7328: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, SQLERRM);
7324: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
7325: WHEN OTHERS THEN
7326: ROLLBACK TO Mass_Request;
7327: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7328: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, SQLERRM);
7329: IF FND_MSG_PUB.Check_Msg_Level
7330: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
7331: THEN
7332: FND_MSG_PUB.Add_Exc_Msg
7337: p_encoded => FND_API.g_false,
7338: p_count => x_msg_count,
7339: p_data => x_msg_data
7340: );
7341: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
7342: JTF_FM_UTL_V.PRINT_MESSAGE('END '|| l_full_name,JTF_FM_UTL_V.G_LEVEL_PROCEDURE,l_full_name);
7343: END Submit_Mass_Request;
7344:
7345: -----------------------------------------------------------
7338: p_count => x_msg_count,
7339: p_data => x_msg_data
7340: );
7341: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
7342: JTF_FM_UTL_V.PRINT_MESSAGE('END '|| l_full_name,JTF_FM_UTL_V.G_LEVEL_PROCEDURE,l_full_name);
7343: END Submit_Mass_Request;
7344:
7345: -----------------------------------------------------------
7346: -- PROCEDURE
7403: WHERE HIST_REQ_ID = p_request_id;
7404:
7405:
7406: BEGIN
7407: JTF_FM_UTL_V.PRINT_MESSAGE('BEGIN: '|| l_full_name,JTF_FM_UTL_V.G_LEVEL_PROCEDURE,l_full_name);
7408: -- Standard begin of API savepoint
7409: SAVEPOINT PAUSE_RESUME;
7410: -- Initialize API return status to success
7411: x_return_status := FND_API.G_RET_STS_SUCCESS;
7418: IF(CSTATUS%NOTFOUND)
7419: THEN
7420: CLOSE CSTATUS;
7421: l_Error_Msg := 'Could not find REQUEST DATA in the database';
7422: JTF_FM_UTL_V.Handle_ERROR('JTF_FM_API_REQUEST_NOTFOUND' ,to_char(p_request_id));
7423:
7424: END IF; -- End IF(CSTATUS%NOTFOUND) THEN
7425: CLOSE CSTATUS;
7426:
7456: IF(CMASSMSG%NOTFOUND)
7457: THEN
7458: CLOSE CMASSMSG;
7459: l_Error_Msg := 'Could not find REQUEST DATA in the database';
7460: JTF_FM_UTL_V.HANDLE_ERROR('JTF_FM_API_REQUEST_NOTFOUND',to_char(p_request_id));
7461: END IF; -- End IF(CMASSMSG%NOTFOUND)
7462: l_dequeue_name := GET_QUEUE_NAME('B',l_server_id);
7463: l_enqueue_name := GET_QUEUE_NAME('BP',l_server_id);
7464:
7484: ---??? Doesn't make sense to update new msg
7485: --handle info as the mass has been split into batch
7486: ELSIF l_request_status = 'PAUSED' THEN
7487: l_Error_Msg := 'The request has already been paused. ';
7488: JTF_FM_UTL_V.HANDLE_ERROR('JTF_FM_API_ALREADY_PAUSED', to_char(p_request_id));
7489:
7490: ELSE -- ELSIF l_request_status = 'IN_PROCESS'
7491:
7492: l_Error_Msg := 'Too Late, Request has already been processed. ';
7489:
7490: ELSE -- ELSIF l_request_status = 'IN_PROCESS'
7491:
7492: l_Error_Msg := 'Too Late, Request has already been processed. ';
7493: JTF_FM_UTL_V.HANDLE_ERROR('JTF_FM_API_PAUSE_RES_TOO_LATE', to_char(p_request_id));
7494:
7495: END IF; -- ELSIF l_request_status
7496:
7497: ELSIF upper(p_what_to_do) = 'RESUME'
7554: payload => UTL_RAW.CAST_TO_RAW(l_footprint_xml), msgid => l_message_handle);
7555:
7556: ELSIF l_request_status = 'RESUMED' THEN
7557: l_Error_Msg := 'The request has already been resumed. ';
7558: JTF_FM_UTL_V.HANDLE_ERROR('JTF_FM_API_ALREADY_RESUMED', to_char(p_request_id));
7559:
7560: ---??? Doesn't make sense to update new msg handle info as the mass has been split into batch
7561: ELSE -- IF NOT l_request_status = 'PAUSED'
7562: -- Throw Error
7560: ---??? Doesn't make sense to update new msg handle info as the mass has been split into batch
7561: ELSE -- IF NOT l_request_status = 'PAUSED'
7562: -- Throw Error
7563: l_Error_Msg := 'Only paused requests can be resumed';
7564: JTF_FM_UTL_V.HANDLE_ERROR('JTF_FM_INVALID_RESUME_REQUEST', to_char(p_request_id));
7565: END IF; -- END IF l_request_status = 'PAUSED'
7566:
7567: ELSE -- p_what_to_do
7568: l_Error_Msg := 'Pause_resume can be called only for Mass Requests. ';
7566:
7567: ELSE -- p_what_to_do
7568: l_Error_Msg := 'Pause_resume can be called only for Mass Requests. ';
7569:
7570: JTF_FM_UTL_V.HANDLE_ERROR('JTF_FM_API_INVALID_RESUME_REQUEST', to_char(p_request_id));
7571:
7572: END IF; -- End p_what_to_do
7573:
7574: ELSE
7573:
7574: ELSE
7575: -- Throw error
7576: l_Error_Msg := 'Pause_resume can be called only for Mass Requests. ';
7577: JTF_FM_UTL_V.HANDLE_ERROR('JTF_FM_INVALID_RESUME_REQUEST', to_char(p_request_id));
7578:
7579: END IF;
7580:
7581: -- Success message
7586: FND_MESSAGE.Set_Name('JTF', 'JTF_FM_API_SUCCESS_MESSAGE');
7587: FND_MESSAGE.Set_Token('ARG1', l_full_name);
7588: FND_MSG_PUB.Add;
7589: END IF;
7590: --JTF_FM_UTL_V.HANDLE_ERROR('JTF_FM_API_SUCCESS_MESSAGE', l_full_name);
7591: --Standard check of commit
7592: IF FND_API.To_Boolean ( p_commit )
7593: THEN
7594: COMMIT WORK;
7605: THEN
7606: FND_MESSAGE.Set_Name('JTF','JTF_FM_API_PAUSE_RESUME_SUCCES');
7607: FND_MSG_PUB.Add;
7608: END IF;
7609: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
7610: EXCEPTION
7611: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7612: ROLLBACK TO PAUSE_RESUME;
7613: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7610: EXCEPTION
7611: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7612: ROLLBACK TO PAUSE_RESUME;
7613: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7614: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, l_Error_Msg);
7615: -- Standard call to get message count and if count=1, get the message
7616: FND_MSG_PUB.Count_And_Get (
7617: p_encoded => FND_API.g_false,
7618: p_count => x_msg_count,
7617: p_encoded => FND_API.g_false,
7618: p_count => x_msg_count,
7619: p_data => x_msg_data
7620: );
7621: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
7622: WHEN FND_API.G_EXC_ERROR THEN
7623: ROLLBACK TO PAUSE_RESUME;
7624: x_return_status := FND_API.G_RET_STS_ERROR;
7625: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, l_Error_Msg);
7621: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
7622: WHEN FND_API.G_EXC_ERROR THEN
7623: ROLLBACK TO PAUSE_RESUME;
7624: x_return_status := FND_API.G_RET_STS_ERROR;
7625: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, l_Error_Msg);
7626: -- Standard call to get message count and if count=1, get the message
7627: FND_MSG_PUB.Count_And_Get (
7628: p_encoded => FND_API.g_false,
7629: p_count => x_msg_count,
7628: p_encoded => FND_API.g_false,
7629: p_count => x_msg_count,
7630: p_data => x_msg_data
7631: );
7632: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
7633: WHEN OTHERS THEN
7634: ROLLBACK TO PAUSE_RESUME;
7635: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7636: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, SQLERRM);
7632: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
7633: WHEN OTHERS THEN
7634: ROLLBACK TO PAUSE_RESUME;
7635: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7636: JTF_FM_UTL_V.ADD_ERROR_MESSAGE (l_api_name, SQLERRM);
7637: IF FND_MSG_PUB.Check_Msg_Level
7638: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
7639: THEN
7640: FND_MSG_PUB.Add_Exc_Msg
7645: p_encoded => FND_API.g_false,
7646: p_count => x_msg_count,
7647: p_data => x_msg_data
7648: );
7649: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
7650:
7651: JTF_FM_UTL_V.PRINT_MESSAGE('END: '|| l_full_name,JTF_FM_UTL_V.G_LEVEL_PROCEDURE,l_full_name);
7652: END PAUSE_RESUME_REQUEST;
7653:
7647: p_data => x_msg_data
7648: );
7649: JTF_FM_UTL_V.GET_ERROR_MESSAGE(x_msg_data);
7650:
7651: JTF_FM_UTL_V.PRINT_MESSAGE('END: '|| l_full_name,JTF_FM_UTL_V.G_LEVEL_PROCEDURE,l_full_name);
7652: END PAUSE_RESUME_REQUEST;
7653:
7654: END JTF_FM_Request_GRP;