374:
375: -- if still null and its required then raise appropriate error
376: if (argument(arg_cnt) is null) and arg_required_flag = 'Y' then
377: if arg_value = 'UNSUPPORTED' then
378: FND_MESSAGE.Set_Name('OE','WSH_UNSUPPORTED_ARG');
379: FND_MESSAGE.Set_Token('ARGUMENT',arg_name);
380: FND_MESSAGE.Set_Token('DOCUMENT',
381: document.user_concurrent_program_name);
382: WSH_UTIL.Write_Log('WSH_UNSUPPORTED_ARG IN DOC '||
375: -- if still null and its required then raise appropriate error
376: if (argument(arg_cnt) is null) and arg_required_flag = 'Y' then
377: if arg_value = 'UNSUPPORTED' then
378: FND_MESSAGE.Set_Name('OE','WSH_UNSUPPORTED_ARG');
379: FND_MESSAGE.Set_Token('ARGUMENT',arg_name);
380: FND_MESSAGE.Set_Token('DOCUMENT',
381: document.user_concurrent_program_name);
382: WSH_UTIL.Write_Log('WSH_UNSUPPORTED_ARG IN DOC '||
383: arg_name||' '||
376: if (argument(arg_cnt) is null) and arg_required_flag = 'Y' then
377: if arg_value = 'UNSUPPORTED' then
378: FND_MESSAGE.Set_Name('OE','WSH_UNSUPPORTED_ARG');
379: FND_MESSAGE.Set_Token('ARGUMENT',arg_name);
380: FND_MESSAGE.Set_Token('DOCUMENT',
381: document.user_concurrent_program_name);
382: WSH_UTIL.Write_Log('WSH_UNSUPPORTED_ARG IN DOC '||
383: arg_name||' '||
384: document.user_concurrent_program_name);
382: WSH_UTIL.Write_Log('WSH_UNSUPPORTED_ARG IN DOC '||
383: arg_name||' '||
384: document.user_concurrent_program_name);
385: else
386: FND_MESSAGE.Set_Name('OE','WSH_NULL_ARG_IN_DOC');
387: FND_MESSAGE.Set_Token('ARGUMENT',arg_name);
388: FND_MESSAGE.Set_Token('DOCUMENT',
389: document.user_concurrent_program_name);
390: WSH_UTIL.Write_Log('WSH_NULL_ARG IN DOC '||arg_name||' '||
383: arg_name||' '||
384: document.user_concurrent_program_name);
385: else
386: FND_MESSAGE.Set_Name('OE','WSH_NULL_ARG_IN_DOC');
387: FND_MESSAGE.Set_Token('ARGUMENT',arg_name);
388: FND_MESSAGE.Set_Token('DOCUMENT',
389: document.user_concurrent_program_name);
390: WSH_UTIL.Write_Log('WSH_NULL_ARG IN DOC '||arg_name||' '||
391: x_concurrent_program_name);
384: document.user_concurrent_program_name);
385: else
386: FND_MESSAGE.Set_Name('OE','WSH_NULL_ARG_IN_DOC');
387: FND_MESSAGE.Set_Token('ARGUMENT',arg_name);
388: FND_MESSAGE.Set_Token('DOCUMENT',
389: document.user_concurrent_program_name);
390: WSH_UTIL.Write_Log('WSH_NULL_ARG IN DOC '||arg_name||' '||
391: x_concurrent_program_name);
392: end if;
482: -- probably because there werent any in the set (but may have had problems
483: -- in fnd_request function
484:
485: WSH_UTIL.Write_Log('no documents in document set');
486: FND_MESSAGE.Set_Name('OE','WSH_NO_DOCS');
487: status := FALSE;
488:
489: else
490: -- everthing worked: any documents not submitted resulted
492: status := TRUE;
493: WSH_UTIL.Write_Log('Submitted '||to_char(submitted_docs)||
494: ' out of '||to_char(total_docs));
495:
496: FND_MESSAGE.Set_Name('OE','WSH_DOCS_SUBMITTED');
497: FND_MESSAGE.Set_Token('SUBMITTED_DOCS',submitted_docs);
498: FND_MESSAGE.Set_Token('TOTAL_DOCS',total_docs);
499: end if;
500:
493: WSH_UTIL.Write_Log('Submitted '||to_char(submitted_docs)||
494: ' out of '||to_char(total_docs));
495:
496: FND_MESSAGE.Set_Name('OE','WSH_DOCS_SUBMITTED');
497: FND_MESSAGE.Set_Token('SUBMITTED_DOCS',submitted_docs);
498: FND_MESSAGE.Set_Token('TOTAL_DOCS',total_docs);
499: end if;
500:
501: message_string := FND_MESSAGE.get;
494: ' out of '||to_char(total_docs));
495:
496: FND_MESSAGE.Set_Name('OE','WSH_DOCS_SUBMITTED');
497: FND_MESSAGE.Set_Token('SUBMITTED_DOCS',submitted_docs);
498: FND_MESSAGE.Set_Token('TOTAL_DOCS',total_docs);
499: end if;
500:
501: message_string := FND_MESSAGE.get;
502:
497: FND_MESSAGE.Set_Token('SUBMITTED_DOCS',submitted_docs);
498: FND_MESSAGE.Set_Token('TOTAL_DOCS',total_docs);
499: end if;
500:
501: message_string := FND_MESSAGE.get;
502:
503:
504: EXCEPTION
505: WHEN NO_REPORTSET_TO_PROCESS THEN
505: WHEN NO_REPORTSET_TO_PROCESS THEN
506: WSH_UTIL.Write_Log('No Reports to process');
507: null;
508: WHEN OTHERS THEN
509: FND_MESSAGE.Set_Name('OE','OE_QUERY_ERROR');
510: FND_MESSAGE.Set_Token('PACKAGE','WSH_DOC_SETS.Print_document_sets');
511: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
512: FND_MESSAGE.Set_Token('ORA_TEXT','Unexpected exception');
513: message_string := FND_MESSAGE.get;
506: WSH_UTIL.Write_Log('No Reports to process');
507: null;
508: WHEN OTHERS THEN
509: FND_MESSAGE.Set_Name('OE','OE_QUERY_ERROR');
510: FND_MESSAGE.Set_Token('PACKAGE','WSH_DOC_SETS.Print_document_sets');
511: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
512: FND_MESSAGE.Set_Token('ORA_TEXT','Unexpected exception');
513: message_string := FND_MESSAGE.get;
514: end;
507: null;
508: WHEN OTHERS THEN
509: FND_MESSAGE.Set_Name('OE','OE_QUERY_ERROR');
510: FND_MESSAGE.Set_Token('PACKAGE','WSH_DOC_SETS.Print_document_sets');
511: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
512: FND_MESSAGE.Set_Token('ORA_TEXT','Unexpected exception');
513: message_string := FND_MESSAGE.get;
514: end;
515: END Print_Document_sets;
508: WHEN OTHERS THEN
509: FND_MESSAGE.Set_Name('OE','OE_QUERY_ERROR');
510: FND_MESSAGE.Set_Token('PACKAGE','WSH_DOC_SETS.Print_document_sets');
511: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
512: FND_MESSAGE.Set_Token('ORA_TEXT','Unexpected exception');
513: message_string := FND_MESSAGE.get;
514: end;
515: END Print_Document_sets;
516:
509: FND_MESSAGE.Set_Name('OE','OE_QUERY_ERROR');
510: FND_MESSAGE.Set_Token('PACKAGE','WSH_DOC_SETS.Print_document_sets');
511: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
512: FND_MESSAGE.Set_Token('ORA_TEXT','Unexpected exception');
513: message_string := FND_MESSAGE.get;
514: end;
515: END Print_Document_sets;
516:
517: END WSH_DOC_SETS;