[Home] [Help]
1: PACKAGE BODY EDR_PSIG_RULE AS
2: /* $Header: EDRRULEB.pls 120.22.12010000.2 2008/12/09 20:18:51 srpuri ship $ */
3:
4: /* Global varaibles */
5:
204: FND_MESSAGE.SET_NAME('EDR','EDR_FWK_PAGEFLOW_PROC_EVT');
205: FND_MESSAGE.SET_TOKEN('EVENT_NAME',l_event_name);
206: FND_MESSAGE.SET_TOKEN('EVENT_KEY',l_event_key);
207: FND_LOG.MESSAGE(FND_LOG.LEVEL_EVENT,
208: 'edr.plsql.EDR_PSIG_RULE.CREATE_PAGEFLOW',
209: FALSE
210: );
211: end if;
212: --Diagnostics End
211: end if;
212: --Diagnostics End
213:
214: /* Insert into Temp tables for Further Processing */
215: wf_log_pkg.string(1, 'EDR_PSIG_rule.create_pageflow','Event Name Assigned');
216: wf_log_pkg.string(1, 'EDR_PSIG_rule.create_pageflow','CLOB Assignment Complete and insert being executed');
217:
218: INSERT INTO EDR_ERECORDS(EVENT_ID,
219: EVENT_NAME,
212: --Diagnostics End
213:
214: /* Insert into Temp tables for Further Processing */
215: wf_log_pkg.string(1, 'EDR_PSIG_rule.create_pageflow','Event Name Assigned');
216: wf_log_pkg.string(1, 'EDR_PSIG_rule.create_pageflow','CLOB Assignment Complete and insert being executed');
217:
218: INSERT INTO EDR_ERECORDS(EVENT_ID,
219: EVENT_NAME,
220: EVENT_KEY,
242: p_audit_group,
243: l_transaction_audit_id);
244:
245:
246: wf_log_pkg.string(1, 'EDR_PSIG_rule.create_pageflow','Insertion Complete in EDR_ERECORDS');
247: -- Bug Fix 3143107
248: -- Removed Open Docement
249: -- Post document parameters
250: -- Change status
258: FND_MESSAGE.SET_TOKEN('EVENT_NAME',l_event_name);
259: FND_MESSAGE.SET_TOKEN('EVENT_KEY',l_event_key);
260: FND_MESSAGE.SET_TOKEN('ERECORD_ID',l_document_id);
261: FND_LOG.MESSAGE(FND_LOG.LEVEL_EVENT,
262: 'edr.plsql.EDR_PSIG_RULE.CREATE_PAGEFLOW',
263: FALSE
264: );
265: end if;
266: --Diagnostics End
265: end if;
266: --Diagnostics End
267:
268:
269: wf_log_pkg.string(1, 'EDR_PSIG_rule.create_pageflow','Set the Document ID '||l_document_ID ||' as Event Parameter');
270: wf_event.AddParameterToList('PSIG_DOCUMENT_ID', l_document_id,p_eventP.Parameter_List); /* Document_ID*/
271: wf_log_pkg.string(1, 'EDR_PSIG_rule.create_pageflow','Document ID added to event parameters ' );
272:
273: /* 24-FEB-2003: CJ : add the attachment item attribute to the workflow so that the attachments
267:
268:
269: wf_log_pkg.string(1, 'EDR_PSIG_rule.create_pageflow','Set the Document ID '||l_document_ID ||' as Event Parameter');
270: wf_event.AddParameterToList('PSIG_DOCUMENT_ID', l_document_id,p_eventP.Parameter_List); /* Document_ID*/
271: wf_log_pkg.string(1, 'EDR_PSIG_rule.create_pageflow','Document ID added to event parameters ' );
272:
273: /* 24-FEB-2003: CJ : add the attachment item attribute to the workflow so that the attachments
274: of the eRecord show up in the workflow notification sent out to the signer*/
275:
275:
276:
277: /* Attachments_ID*/
278: wf_event.AddParameterToList('#ATTACHMENTS', 'FND:entity=ERECORD'||'&'||'pk1name=DOCUMENT_ID'||'&'||'pk1value='||l_document_id,p_eventP.Parameter_List);
279: wf_log_pkg.string(3, 'EDR_PSIG_rule.create_pageflow','Attachments added to event parameters ' );
280: /* 24-FEB-2003: CJ: end */
281:
282: for i in 1 .. P_approverlist.count loop
283:
283:
284: --Bug 2674799: start
285: --New AME approvers table has the WF Directory name of user.
286: l_fnd_user := P_approverList(i).name;
287: wf_log_pkg.string(1, 'EDR_PSIG_rule.create_pageflow','AME Approver '||P_approverlist(i).occurrence||'-'||l_fnd_user);
288: wf_log_pkg.string(1, 'EDR_PSIG_rule.create_pageflow','Figuring out overriding approver for '||l_fnd_user);
289: --Bug 4160412: Start
290: --Find the overriding details only if a user name is provided.
291: if length(l_fnd_user) > 0 and instr(l_fnd_user,'#') = 0 then
284: --Bug 2674799: start
285: --New AME approvers table has the WF Directory name of user.
286: l_fnd_user := P_approverList(i).name;
287: wf_log_pkg.string(1, 'EDR_PSIG_rule.create_pageflow','AME Approver '||P_approverlist(i).occurrence||'-'||l_fnd_user);
288: wf_log_pkg.string(1, 'EDR_PSIG_rule.create_pageflow','Figuring out overriding approver for '||l_fnd_user);
289: --Bug 4160412: Start
290: --Find the overriding details only if a user name is provided.
291: if length(l_fnd_user) > 0 and instr(l_fnd_user,'#') = 0 then
292: EDR_STANDARD.FIND_WF_NTF_RECIPIENT(l_fnd_user,'EDRPSIGF','PSIG_EREC_MESSAGE_BLAF',
313: FND_MESSAGE.SET_TOKEN('ERECORD_ID',l_document_id);
314: FND_MESSAGE.SET_TOKEN('APPROVER_NO',i);
315: FND_MESSAGE.SET_TOKEN('APPROVER_COUNT',p_approverlist.count);
316: FND_LOG.MESSAGE(FND_LOG.LEVEL_EVENT,
317: 'edr.plsql.EDR_PSIG_RULE.CREATE_PAGEFLOW',
318: FALSE
319: );
320: end if;
321: --Diagnostics End
319: );
320: end if;
321: --Diagnostics End
322:
323: wf_log_pkg.string(1, 'EDR_PSIG_rule.create_pageflow','Figured out overriding approver for '||l_fnd_user||' as '||l_overriding_approver);
324:
325: /* Insert into Temp tables for Further Processing */
326: SELECT EDR_ESIGNATURES_S.NEXTVAL into l_edr_signature_id from DUAL;
327: wf_log_pkg.string(3, 'EDR_PSIG_rule.create_pageflow','Signature Sequence Fetched '||l_edr_signature_id);
323: wf_log_pkg.string(1, 'EDR_PSIG_rule.create_pageflow','Figured out overriding approver for '||l_fnd_user||' as '||l_overriding_approver);
324:
325: /* Insert into Temp tables for Further Processing */
326: SELECT EDR_ESIGNATURES_S.NEXTVAL into l_edr_signature_id from DUAL;
327: wf_log_pkg.string(3, 'EDR_PSIG_rule.create_pageflow','Signature Sequence Fetched '||l_edr_signature_id);
328:
329: INSERT into EDR_ESIGNATURES(SIGNATURE_ID,
330: EVENT_ID,
331: EVENT_NAME,
352: FND_MESSAGE.SET_TOKEN('EVENT_KEY',l_event_key);
353: FND_MESSAGE.SET_TOKEN('ERECORD_ID',l_document_id);
354: FND_MESSAGE.SET_TOKEN('APPROVER',l_overriding_approver);
355: FND_LOG.MESSAGE(FND_LOG.LEVEL_EVENT,
356: 'edr.plsql.EDR_PSIG_RULE.CREATE_PAGEFLOW',
357: FALSE
358: );
359: end if;
360: --Diagnostics End
359: end if;
360: --Diagnostics End
361:
362:
363: wf_log_pkg.string(3, 'EDR_PSIG_rule.create_pageflow','Insert Complete into EDR_ESIGNATURES');
364: wf_log_pkg.string(3, 'EDR_PSIG_rule.create_pageflow','Requesting Signatures in PSIG evidance Store');
365:
366: --Bug 2674799: start
367: --Store the approver order number in EDR_PSIG_DETAILS
360: --Diagnostics End
361:
362:
363: wf_log_pkg.string(3, 'EDR_PSIG_rule.create_pageflow','Insert Complete into EDR_ESIGNATURES');
364: wf_log_pkg.string(3, 'EDR_PSIG_rule.create_pageflow','Requesting Signatures in PSIG evidance Store');
365:
366: --Bug 2674799: start
367: --Store the approver order number in EDR_PSIG_DETAILS
368: --Bug 4160412: Start
394: FND_MESSAGE.SET_TOKEN('EVENT_KEY',l_event_key);
395: FND_MESSAGE.SET_TOKEN('ERECORD_ID',l_document_id);
396: FND_MESSAGE.SET_TOKEN('APPROVER',l_overriding_approver);
397: FND_LOG.MESSAGE(FND_LOG.LEVEL_EVENT,
398: 'edr.plsql.EDR_PSIG_RULE.CREATE_PAGEFLOW',
399: FALSE
400: );
401: end if;
402: --Diagnostics End
400: );
401: end if;
402: --Diagnostics End
403:
404: wf_log_pkg.string(1, 'EDR_PSIG_rule.create_pageflow','PSIG id for' ||l_fnd_user||' is '||l_signature_id);
405:
406: /* Clear the entries */
407: l_overriding_comments:=NULL;
408: l_overriding_approver:=NULL;
411: end loop;
412:
413: /* END Approver List */
414:
415: wf_log_pkg.string(3, 'EDR_PSIG_RULE.create_pageflow','AME Approver list inserted into temp table');
416: /*call Workflow dEfault Rule funciton */
417:
418: l_return_status:=WF_RULE.DEFAULT_RULE(p_subscription_guid=>p_subscription_guid,p_event=>p_eventP);
419:
428: l_error_msg := p_eventP.GETERRORMESSAGE;
429: RAISE DEFAULT_RULE_ERROR;
430: ELSE
431: COMMIT;
432: wf_log_pkg.string(3, 'EDR_PSIG_RULE.create_pageflow','COMMIT Completed in Create pageflow');
433:
434: --Diagnostics Start
435: if (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
436: FND_MESSAGE.SET_NAME('EDR','EDR_FWK_PAGEFLOW_SUCCESS_EVT');
437: FND_MESSAGE.SET_TOKEN('EVENT_NAME',l_event_name);
438: FND_MESSAGE.SET_TOKEN('EVENT_KEY',l_event_key);
439: FND_MESSAGE.SET_TOKEN('ERECORD_ID',l_document_id);
440: FND_LOG.MESSAGE(FND_LOG.LEVEL_EVENT,
441: 'edr.plsql.EDR_PSIG_RULE.CREATE_PAGEFLOW',
442: FALSE
443: );
444: end if;
445: --Diagnostics End
454: when BAD_RULE then
455:
456: /* Update workflow threshold to saved value */
457: WF_ENGINE.THRESHOLD := l_cur_threshold;
458: Wf_Core.Context('EDR_PSIG_RULE', 'CREATE_PAGEFLOW', p_eventP.getEventName(), p_subscription_guid);
459: wf_event.setErrorInfo(p_eventP,'ERROR');
460: ROLLBACK;
461: p_err_code:=l_error;
462: p_err_msg:=l_error_msg;
463:
464: --Diagnostics Start
465: FND_MESSAGE.SET_NAME('FND','FND_AS_UNEXPECTED_ERROR');
466: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',nvl(l_error_msg,SQLERRM));
467: FND_MESSAGE.SET_TOKEN('PKG_NAME','EDR_PSIG_RULE');
468: FND_MESSAGE.SET_TOKEN('PROCEDURE_NAME','CREATE_PAGEFLOW');
469: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
470: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,
471: 'edr.plsql.EDR_PSIG_RULE.CREATE_PAGEFLOW',
467: FND_MESSAGE.SET_TOKEN('PKG_NAME','EDR_PSIG_RULE');
468: FND_MESSAGE.SET_TOKEN('PROCEDURE_NAME','CREATE_PAGEFLOW');
469: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
470: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,
471: 'edr.plsql.EDR_PSIG_RULE.CREATE_PAGEFLOW',
472: FALSE
473: );
474: end if;
475: --Diagnostics End
478:
479: when DEFAULT_RULE_ERROR then
480: /* Update workflow threshold to saved value */
481: WF_ENGINE.THRESHOLD := l_cur_threshold;
482: Wf_Core.Context('EDR_PSIG_RULE', 'CREATE_PAGEFLOW', p_eventP.getEventName(), p_subscription_guid);
483: wf_event.setErrorInfo(p_eventP,'ERROR');
484: ROLLBACK;
485: p_err_code:=l_error;
486: p_err_msg:= l_error_msg;
487:
488: --Diagnostics Start
489: FND_MESSAGE.SET_NAME('FND','FND_AS_UNEXPECTED_ERROR');
490: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',nvl(l_error_msg,SQLERRM));
491: FND_MESSAGE.SET_TOKEN('PKG_NAME','EDR_PSIG_RULE');
492: FND_MESSAGE.SET_TOKEN('PROCEDURE_NAME','CREATE_PAGEFLOW');
493: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
494: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,
495: 'edr.plsql.EDR_PSIG_RULE.CREATE_PAGEFLOW',
491: FND_MESSAGE.SET_TOKEN('PKG_NAME','EDR_PSIG_RULE');
492: FND_MESSAGE.SET_TOKEN('PROCEDURE_NAME','CREATE_PAGEFLOW');
493: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
494: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,
495: 'edr.plsql.EDR_PSIG_RULE.CREATE_PAGEFLOW',
496: FALSE
497: );
498: end if;
499: --Diagnostics End
504: /* Udate workflow threshold to saved value */
505: Wf_Core.get_ERROR(l_error,l_error_msg,l_error_stack);
506: wf_log_pkg.string(6,'in when others of create_pageflow'||l_error,l_error_msg||substr(l_error_stack,1,100));
507: WF_ENGINE.THRESHOLD := l_cur_threshold;
508: Wf_Core.Context('EDR_PSIG_RULE', 'CREATE_PAGEFLOW', p_eventP.getEventName(), p_subscription_guid);
509: wf_event.setErrorInfo(p_eventP,'ERROR');
510: ROLLBACK;
511: p_err_code:=l_error;
512: p_err_msg:=l_error_msg;
512: p_err_msg:=l_error_msg;
513: --Diagnostics Start
514: FND_MESSAGE.SET_NAME('FND','FND_AS_UNEXPECTED_ERROR');
515: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',nvl(l_error_msg,SQLERRM));
516: FND_MESSAGE.SET_TOKEN('PKG_NAME','EDR_PSIG_RULE');
517: FND_MESSAGE.SET_TOKEN('PROCEDURE_NAME','CREATE_PAGEFLOW');
518: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
519: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,
520: 'edr.plsql.EDR_PSIG_RULE.CREATE_PAGEFLOW',
516: FND_MESSAGE.SET_TOKEN('PKG_NAME','EDR_PSIG_RULE');
517: FND_MESSAGE.SET_TOKEN('PROCEDURE_NAME','CREATE_PAGEFLOW');
518: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
519: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,
520: 'edr.plsql.EDR_PSIG_RULE.CREATE_PAGEFLOW',
521: FALSE
522: );
523: end if;
524: --Diagnostics End
636: FND_MESSAGE.SET_NAME('EDR','EDR_FWK_ST_ERECORD_PROC_EVT');
637: FND_MESSAGE.SET_TOKEN('EVENT_NAME',l_event_name);
638: FND_MESSAGE.SET_TOKEN('EVENT_KEY',l_event_key);
639: FND_LOG.MESSAGE(FND_LOG.LEVEL_EVENT,
640: 'edr.plsql.EDR_PSIG_RULE.STORE_ERECORD',
641: FALSE
642: );
643: end if;
644: --Diagnostics End
644: --Diagnostics End
645:
646: /* Only eRecord Required. Generate the eRecord output Output and post it in temp tables */
647: L_EREC_OUTPUT:=P_XML_DOCUMENT;
648: wf_log_pkg.string(3, 'EDR_PSIG_RULE.STORE_ERECORD','Start of store erecord');
649: l_requester := wf_event.getValueForParameter('#WF_SIGN_REQUESTER',x_event.Parameter_List);
650:
651: --Bug 3170251 : Start- EREC_TEMPLATE TYPE from Workflow
652: /* Find the Style Sheet Type from Workflow Parameter EREC_TEMPLATE_TYPE */
661: P_ERROR_MSG => l_error_msg);
662: -- Bug 3170251 : End
663:
664: IF l_error is NOT NULL THEN
665: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','open document errored out with code '||l_error);
666: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','open document Error Msg '||l_error_msg);
667: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Opened Document in eRecords Repository with Document ID '||l_document_id);
668: RAISE ERECORD_CREATION_ERROR;
669: END IF;
662: -- Bug 3170251 : End
663:
664: IF l_error is NOT NULL THEN
665: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','open document errored out with code '||l_error);
666: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','open document Error Msg '||l_error_msg);
667: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Opened Document in eRecords Repository with Document ID '||l_document_id);
668: RAISE ERECORD_CREATION_ERROR;
669: END IF;
670:
663:
664: IF l_error is NOT NULL THEN
665: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','open document errored out with code '||l_error);
666: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','open document Error Msg '||l_error_msg);
667: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Opened Document in eRecords Repository with Document ID '||l_document_id);
668: RAISE ERECORD_CREATION_ERROR;
669: END IF;
670:
671: wf_log_pkg.string(3, 'EDR_PSIG_RULE.store_erecord','committing the transaction in store erecord');
667: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Opened Document in eRecords Repository with Document ID '||l_document_id);
668: RAISE ERECORD_CREATION_ERROR;
669: END IF;
670:
671: wf_log_pkg.string(3, 'EDR_PSIG_RULE.store_erecord','committing the transaction in store erecord');
672: commit;
673:
674: --Diagnostics Start
675: if (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
677: FND_MESSAGE.SET_TOKEN('EVENT_NAME',l_event_name);
678: FND_MESSAGE.SET_TOKEN('EVENT_KEY',l_event_key);
679: FND_MESSAGE.SET_TOKEN('ERECORD_ID',l_document_id);
680: FND_LOG.MESSAGE(FND_LOG.LEVEL_EVENT,
681: 'edr.plsql.EDR_PSIG_RULE.STORE_ERECORD',
682: FALSE
683: );
684: end if;
685: --Diagnostics End
685: --Diagnostics End
686:
687: -- Bug 3761813 : start
688: l_redline_required := wf_event.getValueForParameter('REDLINE_REQUIRED',x_event.Parameter_List);
689: wf_log_pkg.string(3, 'EDR_PSIG_RULE.store_erecord','REDLINE_REQUIRED'||l_redline_required);
690: -- Bug 3761813 : end
691:
692:
693: -- Bug 3170251 : Start- if EREC_TEMPLATE TYPE isRTF then call EDR_XDOC_UTIL_PKG.GENERATE_ERECORD procedure.
710: FND_MESSAGE.SET_TOKEN('ERECORD_ID',l_document_id);
711: FND_MESSAGE.SET_TOKEN('TEMPLATE_NAME',p_style_sheet);
712: FND_MESSAGE.SET_TOKEN('TEMPLATE_VER',p_style_sheet_ver);
713: FND_LOG.MESSAGE(FND_LOG.LEVEL_EVENT,
714: 'edr.plsql.EDR_PSIG_RULE.STORE_ERECORD',
715: FALSE
716: );
717: end if;
718: --Diagnostics End
756: IF l_error = 10 THEN
757: -- This error means either the XSLFO for given template is missing i.e. due to
758: -- approval process missing or converision error OR Template is not uploaded
759: -- in the respective repository.
760: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Error Code from PDF e-record generation process: '||l_error);
761: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Error Msg from PDF e-record generation process: '||l_error_msg);
762: RAISE ERECORD_GEN_XSLFOMISS_ERR;
763: END IF;
764:
757: -- This error means either the XSLFO for given template is missing i.e. due to
758: -- approval process missing or converision error OR Template is not uploaded
759: -- in the respective repository.
760: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Error Code from PDF e-record generation process: '||l_error);
761: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Error Msg from PDF e-record generation process: '||l_error_msg);
762: RAISE ERECORD_GEN_XSLFOMISS_ERR;
763: END IF;
764:
765: IF l_error = 20 THEN
762: RAISE ERECORD_GEN_XSLFOMISS_ERR;
763: END IF;
764:
765: IF l_error = 20 THEN
766: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Error Code from PDF e-record generation process: '||l_error);
767: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Error Msg from PDF e-record generation process: '||l_error_msg);
768: RAISE ERECORD_CREATION_ERROR;
769: END IF;
770:
763: END IF;
764:
765: IF l_error = 20 THEN
766: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Error Code from PDF e-record generation process: '||l_error);
767: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Error Msg from PDF e-record generation process: '||l_error_msg);
768: RAISE ERECORD_CREATION_ERROR;
769: END IF;
770:
771: IF l_error = 30 THEN
768: RAISE ERECORD_CREATION_ERROR;
769: END IF;
770:
771: IF l_error = 30 THEN
772: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Error Code from PDF e-record generation process: '||l_error);
773: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Error Msg from PDF e-record generation process: '||l_error_msg);
774: RAISE ERECORD_GEN_FATALERR;
775: END IF;
776:
769: END IF;
770:
771: IF l_error = 30 THEN
772: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Error Code from PDF e-record generation process: '||l_error);
773: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Error Msg from PDF e-record generation process: '||l_error_msg);
774: RAISE ERECORD_GEN_FATALERR;
775: END IF;
776:
777: IF l_error = 40 THEN
774: RAISE ERECORD_GEN_FATALERR;
775: END IF;
776:
777: IF l_error = 40 THEN
778: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Error Code from PDF e-record generation process: '||l_error);
779: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Error Msg from PDF e-record generation process: '||l_error_msg);
780: RAISE ERECORD_GEN_XDOERR;
781: END IF;
782:
775: END IF;
776:
777: IF l_error = 40 THEN
778: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Error Code from PDF e-record generation process: '||l_error);
779: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Error Msg from PDF e-record generation process: '||l_error_msg);
780: RAISE ERECORD_GEN_XDOERR;
781: END IF;
782:
783: IF l_error = 100 THEN
780: RAISE ERECORD_GEN_XDOERR;
781: END IF;
782:
783: IF l_error = 100 THEN
784: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Error Code from PDF e-record generation process: '||l_error);
785: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Error Msg from PDF e-record generation process: '||l_error_msg);
786: RAISE ERECORD_GEN_UNKNWN_ERR;
787: END IF;
788:
781: END IF;
782:
783: IF l_error = 100 THEN
784: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Error Code from PDF e-record generation process: '||l_error);
785: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Error Msg from PDF e-record generation process: '||l_error_msg);
786: RAISE ERECORD_GEN_UNKNWN_ERR;
787: END IF;
788:
789: IF l_error = 505 THEN
786: RAISE ERECORD_GEN_UNKNWN_ERR;
787: END IF;
788:
789: IF l_error = 505 THEN
790: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Error Code from PDF e-record generation process: '||l_error);
791: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Error Msg from PDF e-record generation process: '||l_error_msg);
792: RAISE ERECORD_GEN_JSPMSNG_ERR;
793: END IF;
794:
787: END IF;
788:
789: IF l_error = 505 THEN
790: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Error Code from PDF e-record generation process: '||l_error);
791: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Error Msg from PDF e-record generation process: '||l_error_msg);
792: RAISE ERECORD_GEN_JSPMSNG_ERR;
793: END IF;
794:
795: IF l_error = 500 THEN
792: RAISE ERECORD_GEN_JSPMSNG_ERR;
793: END IF;
794:
795: IF l_error = 500 THEN
796: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Error Code from PDF e-record generation process: '||l_error);
797: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Error Msg from PDF e-record generation process: '||l_error_msg);
798: RAISE ERECORD_GEN_JSPRQFAIL_ERR;
799: END IF;
800:
793: END IF;
794:
795: IF l_error = 500 THEN
796: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Error Code from PDF e-record generation process: '||l_error);
797: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Error Msg from PDF e-record generation process: '||l_error_msg);
798: RAISE ERECORD_GEN_JSPRQFAIL_ERR;
799: END IF;
800:
801: /* Set the E-Record Notification Details to Message for PDF E-Records */
814: FND_MESSAGE.SET_TOKEN('EVENT_NAME',l_event_name);
815: FND_MESSAGE.SET_TOKEN('EVENT_KEY',l_event_key);
816: FND_MESSAGE.SET_TOKEN('ERECORD_ID',l_document_id);
817: FND_LOG.MESSAGE(FND_LOG.LEVEL_EVENT,
818: 'edr.plsql.EDR_PSIG_RULE.STORE_ERECORD',
819: FALSE
820: );
821: end if;
822: --Diagnostics End
835: FND_MESSAGE.SET_TOKEN('ERECORD_ID',l_document_id);
836: FND_MESSAGE.SET_TOKEN('TEMPLATE_NAME',p_style_sheet);
837: FND_MESSAGE.SET_TOKEN('TEMPLATE_VER',p_style_sheet_ver);
838: FND_LOG.MESSAGE(FND_LOG.LEVEL_EVENT,
839: 'edr.plsql.EDR_PSIG_RULE.STORE_ERECORD',
840: FALSE
841: );
842: end if;
843: --Diagnostics End
864: x_output_format => l_output_format,
865: x_error_code => l_error,
866: x_error_msg => l_error_msg);
867:
868: wf_log_pkg.string(1, 'EDR_PSIG_RULE.store_erecord',' generate_ERecord for redline. Error '||l_error );
869:
870: wf_log_pkg.string(1, 'EDR_PSIG_RULE.store_erecord',' generate_ERecord for redline. l_error_msg '||l_error_msg );
871:
872: dbms_lob.createtemporary(X_DIFF_XML,TRUE);
866: x_error_msg => l_error_msg);
867:
868: wf_log_pkg.string(1, 'EDR_PSIG_RULE.store_erecord',' generate_ERecord for redline. Error '||l_error );
869:
870: wf_log_pkg.string(1, 'EDR_PSIG_RULE.store_erecord',' generate_ERecord for redline. l_error_msg '||l_error_msg );
871:
872: dbms_lob.createtemporary(X_DIFF_XML,TRUE);
873: dbms_lob.open( X_DIFF_XML, dbms_lob.lob_readwrite );
874:
885: dbms_lob.close(X_DIFF_XML);
886: dbms_lob.freeTemporary(X_DIFF_XML );
887:
888: IF nvl(l_error,0) <> 0 THEN
889: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Template Type : text ');
890: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Error Code '||l_error);
891: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Error Msg '||l_error_msg);
892: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','eRecord generated');
893: RAISE ERECORD_GEN_XSLT_ERR;
886: dbms_lob.freeTemporary(X_DIFF_XML );
887:
888: IF nvl(l_error,0) <> 0 THEN
889: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Template Type : text ');
890: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Error Code '||l_error);
891: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Error Msg '||l_error_msg);
892: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','eRecord generated');
893: RAISE ERECORD_GEN_XSLT_ERR;
894: END IF;
887:
888: IF nvl(l_error,0) <> 0 THEN
889: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Template Type : text ');
890: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Error Code '||l_error);
891: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Error Msg '||l_error_msg);
892: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','eRecord generated');
893: RAISE ERECORD_GEN_XSLT_ERR;
894: END IF;
895:
888: IF nvl(l_error,0) <> 0 THEN
889: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Template Type : text ');
890: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Error Code '||l_error);
891: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Error Msg '||l_error_msg);
892: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','eRecord generated');
893: RAISE ERECORD_GEN_XSLT_ERR;
894: END IF;
895:
896: IF l_error = 10 THEN
896: IF l_error = 10 THEN
897: -- This error means either the XSLFO for given template is missing i.e. due to
898: -- approval process missing or converision error OR Template is not uploaded
899: -- in the respective repository.
900: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Error Code XSL '||l_error);
901: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Error Msg '||l_error_msg);
902: RAISE ERECORD_GEN_XSLFOMISS_ERR;
903: END IF;
904:
897: -- This error means either the XSLFO for given template is missing i.e. due to
898: -- approval process missing or converision error OR Template is not uploaded
899: -- in the respective repository.
900: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Error Code XSL '||l_error);
901: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Error Msg '||l_error_msg);
902: RAISE ERECORD_GEN_XSLFOMISS_ERR;
903: END IF;
904:
905: IF l_error = 20 THEN
902: RAISE ERECORD_GEN_XSLFOMISS_ERR;
903: END IF;
904:
905: IF l_error = 20 THEN
906: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Error Code XSL'||l_error);
907: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Error Msg '||l_error_msg);
908: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','eRecord generated');
909: RAISE ERECORD_CREATION_ERROR;
910: END IF;
903: END IF;
904:
905: IF l_error = 20 THEN
906: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Error Code XSL'||l_error);
907: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Error Msg '||l_error_msg);
908: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','eRecord generated');
909: RAISE ERECORD_CREATION_ERROR;
910: END IF;
911:
904:
905: IF l_error = 20 THEN
906: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Error Code XSL'||l_error);
907: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Error Msg '||l_error_msg);
908: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','eRecord generated');
909: RAISE ERECORD_CREATION_ERROR;
910: END IF;
911:
912: IF l_error = 30 THEN
909: RAISE ERECORD_CREATION_ERROR;
910: END IF;
911:
912: IF l_error = 30 THEN
913: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Error Code XSL'||l_error);
914: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Error Msg '||l_error_msg);
915: RAISE ERECORD_GEN_FATALERR;
916: END IF;
917:
910: END IF;
911:
912: IF l_error = 30 THEN
913: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Error Code XSL'||l_error);
914: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Error Msg '||l_error_msg);
915: RAISE ERECORD_GEN_FATALERR;
916: END IF;
917:
918: IF l_error = 40 THEN
915: RAISE ERECORD_GEN_FATALERR;
916: END IF;
917:
918: IF l_error = 40 THEN
919: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Error CodeXSL '||l_error);
920: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Error Msg '||l_error_msg);
921: RAISE ERECORD_GEN_XDOERR;
922: END IF;
923:
916: END IF;
917:
918: IF l_error = 40 THEN
919: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Error CodeXSL '||l_error);
920: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Error Msg '||l_error_msg);
921: RAISE ERECORD_GEN_XDOERR;
922: END IF;
923:
924: IF l_error = 100 THEN
921: RAISE ERECORD_GEN_XDOERR;
922: END IF;
923:
924: IF l_error = 100 THEN
925: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Error Code XSL'||l_error);
926: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Error Msg '||l_error_msg);
927: RAISE ERECORD_GEN_UNKNWN_ERR;
928: END IF;
929:
922: END IF;
923:
924: IF l_error = 100 THEN
925: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Error Code XSL'||l_error);
926: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Error Msg '||l_error_msg);
927: RAISE ERECORD_GEN_UNKNWN_ERR;
928: END IF;
929:
930: IF l_error = 505 THEN
927: RAISE ERECORD_GEN_UNKNWN_ERR;
928: END IF;
929:
930: IF l_error = 505 THEN
931: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Error Code XSL'||l_error);
932: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Error Msg '||l_error_msg);
933: RAISE ERECORD_GEN_JSPMSNG_ERR;
934: END IF;
935:
928: END IF;
929:
930: IF l_error = 505 THEN
931: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Error Code XSL'||l_error);
932: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Error Msg '||l_error_msg);
933: RAISE ERECORD_GEN_JSPMSNG_ERR;
934: END IF;
935:
936: IF l_error = 500 THEN
933: RAISE ERECORD_GEN_JSPMSNG_ERR;
934: END IF;
935:
936: IF l_error = 500 THEN
937: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Error Code XSL'||l_error);
938: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Error Msg '||l_error_msg);
939: RAISE ERECORD_GEN_JSPRQFAIL_ERR;
940: END IF;
941: END IF;
934: END IF;
935:
936: IF l_error = 500 THEN
937: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Error Code XSL'||l_error);
938: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Error Msg '||l_error_msg);
939: RAISE ERECORD_GEN_JSPRQFAIL_ERR;
940: END IF;
941: END IF;
942: --Bug 4306292: End
957: -- so for consistency we pass the text/plain document format.
958: l_output_format := WF_NOTIFICATION.doc_text;
959: -- Bug 4862464: End
960: IF nvl(l_error,0) <> 0 THEN
961: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','XSL Transformation Error Code '||l_error);
962: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','XSL Transformation Error Msg '||l_error_msg);
963: RAISE ERECORD_GEN_XSLT_ERR;
964: END IF;
965:
958: l_output_format := WF_NOTIFICATION.doc_text;
959: -- Bug 4862464: End
960: IF nvl(l_error,0) <> 0 THEN
961: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','XSL Transformation Error Code '||l_error);
962: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','XSL Transformation Error Msg '||l_error_msg);
963: RAISE ERECORD_GEN_XSLT_ERR;
964: END IF;
965:
966: --Diagnostics Start
969: FND_MESSAGE.SET_TOKEN('EVENT_NAME',l_event_name);
970: FND_MESSAGE.SET_TOKEN('EVENT_KEY',l_event_key);
971: FND_MESSAGE.SET_TOKEN('ERECORD_ID',l_document_id);
972: FND_LOG.MESSAGE(FND_LOG.LEVEL_EVENT,
973: 'edr.plsql.EDR_PSIG_RULE.STORE_ERECORD',
974: FALSE
975: );
976: end if;
977: --Diagnostics End
981:
982:
983: -- Check if template type is one of the valid types.
984: IF ((UPPER(l_style_sheet_type) <> 'XSL') AND (UPPER(l_style_sheet_type) <> 'RTF')) THEN
985: wf_log_pkg.string(5, 'EDR_PSIG_RULE.store_erecord','Wrong Stylesheet Type ' || l_style_sheet_type );
986: RAISE ERECORD_UNKWN_TMPL_TYPE;
987: END IF;
988:
989: /* Get Payload Attributes required by Rule function */
992: l_source_application := wf_event.getValueForParameter('#WF_SOURCE_APPLICATION_TYPE',x_event.Parameter_List);
993: l_requester := wf_event.getValueForParameter('#WF_SIGN_REQUESTER',x_event.Parameter_List);
994:
995: /* Call Repository API's */
996: wf_log_pkg.string(3, 'EDR_PSIG_RULE.store_erecord','Posting Document in eRecords Repository');
997:
998: EDR_PSIG.updateDocument(P_DOCUMENT_ID => l_document_id,
999: P_PSIG_XML => L_XML_DOCUMENT,
1000: P_PSIG_DOCUMENT => L_EREC_OUTPUT,
1006: P_WF_NID => NULL,
1007: P_ERROR => l_error,
1008: P_ERROR_MSG => l_error_msg);
1009: IF l_error is NOT NULL THEN
1010: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Error Code during update document '||l_error);
1011: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Error Msg during update document '||l_error_msg);
1012: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Updated Document in eRecords Repository with Document ID '||l_document_id);
1013: RAISE ERECORD_CREATION_ERROR;
1014: END IF;
1007: P_ERROR => l_error,
1008: P_ERROR_MSG => l_error_msg);
1009: IF l_error is NOT NULL THEN
1010: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Error Code during update document '||l_error);
1011: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Error Msg during update document '||l_error_msg);
1012: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Updated Document in eRecords Repository with Document ID '||l_document_id);
1013: RAISE ERECORD_CREATION_ERROR;
1014: END IF;
1015:
1008: P_ERROR_MSG => l_error_msg);
1009: IF l_error is NOT NULL THEN
1010: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Error Code during update document '||l_error);
1011: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Error Msg during update document '||l_error_msg);
1012: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Updated Document in eRecords Repository with Document ID '||l_document_id);
1013: RAISE ERECORD_CREATION_ERROR;
1014: END IF;
1015:
1016: --Diagnostics Start
1019: FND_MESSAGE.SET_TOKEN('EVENT_NAME',l_event_name);
1020: FND_MESSAGE.SET_TOKEN('EVENT_KEY',l_event_key);
1021: FND_MESSAGE.SET_TOKEN('ERECORD_ID',l_document_id);
1022: FND_LOG.MESSAGE(FND_LOG.LEVEL_EVENT,
1023: 'edr.plsql.EDR_PSIG_RULE.STORE_ERECORD',
1024: FALSE
1025: );
1026: end if;
1027: --Diagnostics End
1034: update fnd_attached_documents
1035: set pk1_value = l_document_id
1036: where entity_name = EDR_CONSTANTS_GRP.g_erecord_entity_name
1037: and pk1_value = p_edr_event_id; */
1038: wf_log_pkg.string(1, 'EDR_PSIG_RULE.store_erecord','Before Moving attachments from Temp entity to eRecord '
1039: ||'from '||p_edr_event_id||' to '||l_document_id);
1040:
1041: --Bug 4381237: Start
1042: --Change the call to EDR attachment API
1063: X_automatically_added_flag => 'N',
1064: X_from_category_id => null,
1065: X_to_category_id => null);
1066:
1067: wf_log_pkg.string(3, 'EDR_PSIG_RULE.store_erecord','After Moving attachments from Temp entity to eRecord '
1068: ||'from '||p_edr_event_id||' to '||l_document_id);
1069:
1070: wf_log_pkg.string(1, 'EDR_PSIG_RULE.store_erecord','Before Deleting attachments from Temp entity '
1071: ||'from '||p_edr_event_id);
1066:
1067: wf_log_pkg.string(3, 'EDR_PSIG_RULE.store_erecord','After Moving attachments from Temp entity to eRecord '
1068: ||'from '||p_edr_event_id||' to '||l_document_id);
1069:
1070: wf_log_pkg.string(1, 'EDR_PSIG_RULE.store_erecord','Before Deleting attachments from Temp entity '
1071: ||'from '||p_edr_event_id);
1072:
1073:
1074: -- Bug 3863541 : Start
1092: --Bug 4381237: End
1093: X_automatically_added_flag => 'N');
1094: --Bug 3863541 : End
1095:
1096: wf_log_pkg.string(3, 'EDR_PSIG_RULE.store_erecord','After Deleting attachments from Temp entity '
1097: ||'from '||p_edr_event_id);
1098:
1099:
1100: --Diagnostics Start
1104: FND_MESSAGE.SET_TOKEN('EVENT_KEY',l_event_key);
1105: FND_MESSAGE.SET_TOKEN('ERECORD_ID',l_document_id);
1106: FND_MESSAGE.SET_TOKEN('ATTACHMENT_ID',p_edr_event_id);
1107: FND_LOG.MESSAGE(FND_LOG.LEVEL_EVENT,
1108: 'edr.plsql.EDR_PSIG_RULE.STORE_ERECORD',
1109: FALSE
1110: );
1111: end if;
1112: --Diagnostics End
1116: --ER # 2966866 start
1117: wf_event.AddParameterToList('#ERECORD_ID',
1118: l_document_id,
1119: x_event.Parameter_List);
1120: wf_log_pkg.string(1, 'EDR_PSIG_RULE.store_erecord','eRecord Id added to payload: '||l_document_id);
1121:
1122: --ER # 2966866 end
1123: /* Add Document Parameters */
1124: l_params(1).param_name:='PSIG_USER_KEY_LABEL';
1159: l_params(5).param_value := 'FND:entity=ERECORD'||'&'||'pk1name=DOCUMENT_ID'||'&'||'pk1value='||l_document_id;
1160:
1161: --Bug 4755255: End
1162:
1163: wf_log_pkg.string(1, 'EDR_PSIG_RULE.psig_rule','Posting Document Parameters');
1164:
1165: EDR_PSIG.POSTDOCUMENTPARAMETER(P_DOCUMENT_ID => l_document_id,
1166: P_PARAMETERS => l_params,
1167: P_ERROR => l_error,
1167: P_ERROR => l_error,
1168: P_ERROR_MSG => l_error_msg);
1169:
1170: IF l_error is NOT NULL THEN
1171: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Error Code during posting doc params '||l_error);
1172: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Error Msg during posting doc params '||l_error_msg);
1173: RAISE ERECORD_PARAM_ERROR;
1174: END IF;
1175:
1168: P_ERROR_MSG => l_error_msg);
1169:
1170: IF l_error is NOT NULL THEN
1171: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Error Code during posting doc params '||l_error);
1172: wf_log_pkg.string(4, 'EDR_PSIG_RULE.store_erecord','Error Msg during posting doc params '||l_error_msg);
1173: RAISE ERECORD_PARAM_ERROR;
1174: END IF;
1175:
1176: --Diagnostics Start
1179: FND_MESSAGE.SET_TOKEN('EVENT_NAME',l_event_name);
1180: FND_MESSAGE.SET_TOKEN('EVENT_KEY',l_event_key);
1181: FND_MESSAGE.SET_TOKEN('ERECORD_ID',l_document_id);
1182: FND_LOG.MESSAGE(FND_LOG.LEVEL_EVENT,
1183: 'edr.plsql.EDR_PSIG_RULE.STORE_ERECORD',
1184: FALSE
1185: );
1186: end if;
1187: --Diagnostics End
1195: --Bug 4150616: End
1196: EDR_PSIG.closeDocument(P_DOCUMENT_ID => l_document_id,
1197: P_ERROR => l_error,
1198: P_ERROR_MSG => l_error_msg);
1199: wf_log_pkg.string(3, 'EDR_PSIG_RULE.store_erecord','Document Closed');
1200:
1201: ELSIF p_esign_required = 'Y' THEN
1202: EDR_PSIG.CHANGEDOCUMENTSTATUS(P_DOCUMENT_ID => l_document_id,
1203: P_STATUS => 'ERROR',
1202: EDR_PSIG.CHANGEDOCUMENTSTATUS(P_DOCUMENT_ID => l_document_id,
1203: P_STATUS => 'ERROR',
1204: P_ERROR => L_ERROR,
1205: P_ERROR_MSG => l_error_msg);
1206: wf_log_pkg.string(3, 'EDR_PSIG_RULE.store_erecord','Changed Document Status to an Intermediate Status');
1207: END IF;
1208: -- END Bug Fix 3143107
1209:
1210: -- If everything went fine, commiting the ERECORD Contents by commiting this autonomous transaction
1216: FND_MESSAGE.SET_TOKEN('EVENT_NAME',l_event_name);
1217: FND_MESSAGE.SET_TOKEN('EVENT_KEY',l_event_key);
1218: FND_MESSAGE.SET_TOKEN('ERECORD_ID',l_document_id);
1219: FND_LOG.MESSAGE(FND_LOG.LEVEL_EVENT,
1220: 'edr.plsql.EDR_PSIG_RULE.STORE_ERECORD',
1221: FALSE
1222: );
1223: end if;
1224: --Diagnostics End
1222: );
1223: end if;
1224: --Diagnostics End
1225:
1226: wf_log_pkg.string(3, 'EDR_PSIG_RULE.store_erecord','Store_erecord completed successfully');
1227:
1228: EXCEPTION
1229: when ERECORD_GENERATION_ERROR then
1230: ROLLBACK;
1227:
1228: EXCEPTION
1229: when ERECORD_GENERATION_ERROR then
1230: ROLLBACK;
1231: Wf_Core.Context('EDR_PSIG_RULE', 'STORE_ERECORD', x_event.getEventName(), p_subscription_guid);
1232: wf_event.setErrorInfo(x_event,SQLERRM || 'ERROR');
1233: FND_MESSAGE.SET_NAME('FND','FND_AS_UNEXPECTED_ERROR');
1234: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',nvl(l_error_msg,SQLERRM));
1235: FND_MESSAGE.SET_TOKEN('PKG_NAME','EDR_PSIG_RULE');
1231: Wf_Core.Context('EDR_PSIG_RULE', 'STORE_ERECORD', x_event.getEventName(), p_subscription_guid);
1232: wf_event.setErrorInfo(x_event,SQLERRM || 'ERROR');
1233: FND_MESSAGE.SET_NAME('FND','FND_AS_UNEXPECTED_ERROR');
1234: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',nvl(l_error_msg,SQLERRM));
1235: FND_MESSAGE.SET_TOKEN('PKG_NAME','EDR_PSIG_RULE');
1236: FND_MESSAGE.SET_TOKEN('PROCEDURE_NAME','PSIG_RULE');
1237:
1238: --Diagnostics Start
1239: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1237:
1238: --Diagnostics Start
1239: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1240: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,
1241: 'edr.plsql.EDR_PSIG_RULE.STORE_ERECORD',
1242: FALSE
1243: );
1244: end if;
1245: --Diagnostics End
1246:
1247: APP_EXCEPTION.RAISE_EXCEPTION;
1248: when ERECORD_CREATION_ERROR then
1249: ROLLBACK;
1250: Wf_Core.Context('EDR_PSIG_RULE', 'STORE_ERECORD', x_event.getEventName(), p_subscription_guid);
1251: wf_event.setErrorInfo(x_event,SQLERRM || 'ERROR');
1252: FND_MESSAGE.SET_NAME('FND','FND_AS_UNEXPECTED_ERROR');
1253: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',nvl(l_error_msg,SQLERRM));
1254: FND_MESSAGE.SET_TOKEN('PKG_NAME','EDR_PSIG_RULE');
1250: Wf_Core.Context('EDR_PSIG_RULE', 'STORE_ERECORD', x_event.getEventName(), p_subscription_guid);
1251: wf_event.setErrorInfo(x_event,SQLERRM || 'ERROR');
1252: FND_MESSAGE.SET_NAME('FND','FND_AS_UNEXPECTED_ERROR');
1253: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',nvl(l_error_msg,SQLERRM));
1254: FND_MESSAGE.SET_TOKEN('PKG_NAME','EDR_PSIG_RULE');
1255: FND_MESSAGE.SET_TOKEN('PROCEDURE_NAME','STORE_ERECORD');
1256:
1257: --Diagnostics Start
1258: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1256:
1257: --Diagnostics Start
1258: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1259: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,
1260: 'edr.plsql.EDR_PSIG_RULE.STORE_ERECORD',
1261: FALSE
1262: );
1263: end if;
1264: --Diagnostics End
1265:
1266: APP_EXCEPTION.RAISE_EXCEPTION;
1267: when ERECORD_PARAM_ERROR then
1268: ROLLBACK;
1269: Wf_Core.Context('EDR_PSIG_RULE', 'STORE_ERECORD', x_event.getEventName(), p_subscription_guid);
1270: wf_event.setErrorInfo(x_event,SQLERRM || 'ERROR');
1271: FND_MESSAGE.SET_NAME('FND','FND_AS_UNEXPECTED_ERROR');
1272: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',nvl(l_error_msg,SQLERRM));
1273: FND_MESSAGE.SET_TOKEN('PKG_NAME','EDR_PSIG_RULE');
1269: Wf_Core.Context('EDR_PSIG_RULE', 'STORE_ERECORD', x_event.getEventName(), p_subscription_guid);
1270: wf_event.setErrorInfo(x_event,SQLERRM || 'ERROR');
1271: FND_MESSAGE.SET_NAME('FND','FND_AS_UNEXPECTED_ERROR');
1272: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',nvl(l_error_msg,SQLERRM));
1273: FND_MESSAGE.SET_TOKEN('PKG_NAME','EDR_PSIG_RULE');
1274: FND_MESSAGE.SET_TOKEN('PROCEDURE_NAME','STORE_ERECORD');
1275: --Diagnostics Start
1276: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1277: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,
1274: FND_MESSAGE.SET_TOKEN('PROCEDURE_NAME','STORE_ERECORD');
1275: --Diagnostics Start
1276: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1277: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,
1278: 'edr.plsql.EDR_PSIG_RULE.STORE_ERECORD',
1279: FALSE
1280: );
1281: end if;
1282: --Diagnostics End
1285:
1286: -- Bug 3170251 : Start - Added following new exceptions for error handling
1287: when ERECORD_GEN_XSLFOMISS_ERR then
1288: ROLLBACK;
1289: Wf_Core.Context('EDR_PSIG_RULE', 'PSIG_RULE', x_event.getEventName(), p_subscription_guid);
1290: Wf_event.setErrorInfo(x_event,SQLERRM || 'ERROR XSLFO MISSING');
1291: FND_MESSAGE.SET_NAME('EDR','EDR_EREC_XSLFO_MISSING_ERR');
1292: fnd_message.set_token( 'TEMPLATE_NAME',p_style_sheet);
1293: fnd_message.set_token( 'TEMPLATE_VER',p_style_sheet_ver);
1293: fnd_message.set_token( 'TEMPLATE_VER',p_style_sheet_ver);
1294: --Diagnostics Start
1295: if (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1296: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,
1297: 'edr.plsql.EDR_PSIG_RULE.STORE_ERECORD',
1298: FALSE
1299: );
1300: end if;
1301: --Diagnostics End
1302: APP_EXCEPTION.RAISE_EXCEPTION;
1303:
1304: when ERECORD_GEN_FATALERR then
1305: ROLLBACK;
1306: Wf_Core.Context('EDR_PSIG_RULE', 'PSIG_RULE', x_event.getEventName(), p_subscription_guid);
1307: wf_event.setErrorInfo(x_event,SQLERRM || 'ERROR');
1308:
1309: wf_log_pkg.string(5, 'EDR_PSIG_RULE.store_erecord','There is a fatal error during e-record creation using XDO API');
1310:
1305: ROLLBACK;
1306: Wf_Core.Context('EDR_PSIG_RULE', 'PSIG_RULE', x_event.getEventName(), p_subscription_guid);
1307: wf_event.setErrorInfo(x_event,SQLERRM || 'ERROR');
1308:
1309: wf_log_pkg.string(5, 'EDR_PSIG_RULE.store_erecord','There is a fatal error during e-record creation using XDO API');
1310:
1311: FND_MESSAGE.SET_NAME('FND','FND_AS_UNEXPECTED_ERROR');
1312: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',nvl(l_error_msg,SQLERRM));
1313: FND_MESSAGE.SET_TOKEN('PKG_NAME','EDR_PSIG_RULE');
1309: wf_log_pkg.string(5, 'EDR_PSIG_RULE.store_erecord','There is a fatal error during e-record creation using XDO API');
1310:
1311: FND_MESSAGE.SET_NAME('FND','FND_AS_UNEXPECTED_ERROR');
1312: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',nvl(l_error_msg,SQLERRM));
1313: FND_MESSAGE.SET_TOKEN('PKG_NAME','EDR_PSIG_RULE');
1314: FND_MESSAGE.SET_TOKEN('PROCEDURE_NAME','STORE_ERECORD');
1315:
1316: --Diagnostics Start
1317: if (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1315:
1316: --Diagnostics Start
1317: if (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1318: FND_LOG.MESSAGE(FND_LOG.LEVEL_ERROR,
1319: 'edr.plsql.EDR_PSIG_RULE.STORE_ERECORD',
1320: FALSE
1321: );
1322: end if;
1323: --Diagnostics End
1324:
1325: APP_EXCEPTION.RAISE_EXCEPTION;
1326: when ERECORD_GEN_UNKNWN_ERR then
1327: ROLLBACK;
1328: Wf_Core.Context('EDR_PSIG_RULE', 'PSIG_RULE', x_event.getEventName(), p_subscription_guid);
1329: wf_event.setErrorInfo(x_event,SQLERRM || 'ERROR');
1330: FND_MESSAGE.SET_NAME('FND','FND_AS_UNEXPECTED_ERROR');
1331: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',nvl(l_error_msg,SQLERRM));
1332: FND_MESSAGE.SET_TOKEN('PKG_NAME','EDR_PSIG_RULE');
1328: Wf_Core.Context('EDR_PSIG_RULE', 'PSIG_RULE', x_event.getEventName(), p_subscription_guid);
1329: wf_event.setErrorInfo(x_event,SQLERRM || 'ERROR');
1330: FND_MESSAGE.SET_NAME('FND','FND_AS_UNEXPECTED_ERROR');
1331: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',nvl(l_error_msg,SQLERRM));
1332: FND_MESSAGE.SET_TOKEN('PKG_NAME','EDR_PSIG_RULE');
1333: FND_MESSAGE.SET_TOKEN('PROCEDURE_NAME','STORE_ERECORD');
1334:
1335: --Diagnostics Start
1336: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1334:
1335: --Diagnostics Start
1336: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1337: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,
1338: 'edr.plsql.EDR_PSIG_RULE.STORE_ERECORD',
1339: FALSE
1340: );
1341: end if;
1342: --Diagnostics End
1343:
1344: APP_EXCEPTION.RAISE_EXCEPTION;
1345: when ERECORD_GEN_XDOERR then
1346: ROLLBACK;
1347: Wf_Core.Context('EDR_PSIG_RULE', 'PSIG_RULE', x_event.getEventName(), p_subscription_guid);
1348: wf_event.setErrorInfo(x_event,SQLERRM || 'ERROR IN XDO');
1349: FND_MESSAGE.SET_NAME('EDR','EDR_EREC_XDO_ERR');
1350: fnd_message.set_token( 'TEMPLATE_NAME',p_style_sheet);
1351: fnd_message.set_token( 'TEMPLATE_VER',p_style_sheet_ver);
1352:
1353: --Diagnostics Start
1354: if (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1355: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,
1356: 'edr.plsql.EDR_PSIG_RULE.STORE_ERECORD',
1357: FALSE
1358: );
1359: end if;
1360: --Diagnostics End
1361:
1362: APP_EXCEPTION.RAISE_EXCEPTION;
1363: when ERECORD_UNKWN_TMPL_TYPE then
1364: ROLLBACK;
1365: Wf_Core.Context('EDR_PSIG_RULE', 'PSIG_RULE', x_event.getEventName(), p_subscription_guid);
1366: wf_event.setErrorInfo(x_event,SQLERRM || 'Unknown Template Type'|| l_style_sheet_type);
1367: FND_MESSAGE.SET_NAME('EDR','EDR_EREC_TMPL_TYPE_ERR');
1368: fnd_message.set_token( 'TEMPLATE_NAME',p_style_sheet);
1369: fnd_message.set_token( 'TEMPLATE_VER',p_style_sheet_ver);
1370:
1371: --Diagnostics Start
1372: if (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1373: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,
1374: 'edr.plsql.EDR_PSIG_RULE.STORE_ERECORD',
1375: FALSE
1376: );
1377: end if;
1378: --Diagnostics End
1380: APP_EXCEPTION.RAISE_EXCEPTION;
1381:
1382: when ERECORD_GEN_JSPMSNG_ERR then
1383: ROLLBACK;
1384: Wf_Core.Context('EDR_PSIG_RULE', 'PSIG_RULE', x_event.getEventName(), p_subscription_guid);
1385: Wf_event.setErrorInfo(x_event,SQLERRM || 'ERROR JSP MISSING');
1386: FND_MESSAGE.SET_NAME('EDR','EDR_EREC_JSP_MISSING_ERR');
1387:
1388: --Diagnostics Start
1387:
1388: --Diagnostics Start
1389: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1390: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,
1391: 'edr.plsql.EDR_PSIG_RULE.STORE_ERECORD',
1392: FALSE
1393: );
1394: end if;
1395: --Diagnostics End
1396:
1397: APP_EXCEPTION.RAISE_EXCEPTION;
1398: when ERECORD_GEN_JSPRQFAIL_ERR then
1399: ROLLBACK;
1400: Wf_Core.Context('EDR_PSIG_RULE', 'PSIG_RULE', x_event.getEventName(), p_subscription_guid);
1401: Wf_event.setErrorInfo(x_event,SQLERRM || 'ERROR JSP UTL_HTTP REQUEST FAILED');
1402: FND_MESSAGE.SET_NAME('EDR','EDR_EREC_JSPREQFAIL_ERR');
1403:
1404: --Diagnostics Start
1403:
1404: --Diagnostics Start
1405: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1406: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,
1407: 'edr.plsql.EDR_PSIG_RULE.STORE_ERECORD',
1408: FALSE
1409: );
1410: end if;
1411: --Diagnostics End
1415:
1416: -- Bug 3390571 : Start
1417: when ERECORD_GEN_XSLT_ERR then
1418: ROLLBACK;
1419: wf_core.context('EDR_PSIG_RULE', 'PSIG_RULE', x_event.getEventName(), p_subscription_guid);
1420: Wf_event.setErrorInfo(x_event,SQLERRM || 'ERROR : XSLT Transformation error');
1421: FND_MESSAGE.SET_NAME('EDR','EDR_EREC_XSLTTRANS_ERR');
1422: fnd_message.set_token( 'TEMPLATE_NAME',p_style_sheet);
1423: fnd_message.set_token( 'TEMPLATE_VER',p_style_sheet_ver);
1423: fnd_message.set_token( 'TEMPLATE_VER',p_style_sheet_ver);
1424: --Diagnostics Start
1425: if (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1426: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,
1427: 'edr.plsql.EDR_PSIG_RULE.STORE_ERECORD',
1428: FALSE
1429: );
1430: end if;
1431: --Diagnostics End
1438: FND_MESSAGE.SET_NAME('EDR','EDR_MSCA_TMPL_ERR');
1439: --Diagnostics Start
1440: if (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1441: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,
1442: 'edr.plsql.EDR_PSIG_RULE.STORE_ERECORD',
1443: FALSE
1444: );
1445: end if;
1446: APP_EXCEPTION.RAISE_EXCEPTION;
1449:
1450:
1451: when OTHERS then
1452: ROLLBACK;
1453: Wf_Core.Context('EDR_PSIG_RULE', 'PSIG_RULE', x_event.getEventName(), p_subscription_guid);
1454: wf_event.setErrorInfo(x_event,SQLERRM || 'ERROR');
1455: FND_MESSAGE.SET_NAME('FND','FND_AS_UNEXPECTED_ERROR');
1456: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',nvl(l_error_msg,SQLERRM));
1457: FND_MESSAGE.SET_TOKEN('PKG_NAME','EDR_PSIG_RULE');
1453: Wf_Core.Context('EDR_PSIG_RULE', 'PSIG_RULE', x_event.getEventName(), p_subscription_guid);
1454: wf_event.setErrorInfo(x_event,SQLERRM || 'ERROR');
1455: FND_MESSAGE.SET_NAME('FND','FND_AS_UNEXPECTED_ERROR');
1456: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',nvl(l_error_msg,SQLERRM));
1457: FND_MESSAGE.SET_TOKEN('PKG_NAME','EDR_PSIG_RULE');
1458: FND_MESSAGE.SET_TOKEN('PROCEDURE_NAME','STORE_ERECORD');
1459: --Diagnostics Start
1460: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1461: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,
1458: FND_MESSAGE.SET_TOKEN('PROCEDURE_NAME','STORE_ERECORD');
1459: --Diagnostics Start
1460: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1461: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,
1462: 'edr.plsql.EDR_PSIG_RULE.STORE_ERECORD',
1463: FALSE
1464: );
1465: end if;
1466: --Diagnostics End
1738: --Bug 5891879: Start
1739: --Read the source application type
1740: l_source_application_type := wf_event.getValueForParameter('#WF_SOURCE_APPLICATION_TYPE',p_event.Parameter_List);
1741: --Bug 5891879 : End
1742: wf_log_pkg.string(3, 'EDR_PSIG_RULE.psig_rule','Start of the rule function');
1743:
1744: --Bug 4150616: Start
1745: IF l_eres_profile_value = 'Y' OR l_force_erecord = 'Y' THEN
1746: --Bug 4150616: End
1754: l_ame_transaction_type := NVL(wf_event.getValueForParameter('EDR_AME_TRANSACTION_TYPE',p_event.Parameter_List),
1755: P_EVENT.getEventName());
1756: -- END IF;
1757:
1758: wf_log_pkg.string(1, 'EDR_PSIG_RULE.psig_rule','AME transaction Type :'||l_ame_transaction_type );
1759:
1760: --Diagnostics Start
1761: if (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1762: FND_MESSAGE.SET_NAME('EDR','EDR_FWKRULE_START_EVT');
1763: FND_MESSAGE.SET_TOKEN('EVENT_NAME',p_event.getEventName());
1764: FND_MESSAGE.SET_TOKEN('EVENT_KEY',p_event.getEventKey());
1765: FND_MESSAGE.SET_TOKEN('AME_TYPE',l_ame_transaction_type);
1766: FND_LOG.MESSAGE(FND_LOG.LEVEL_EVENT,
1767: 'edr.plsql.EDR_PSIG_RULE.PSIG_RULE',
1768: FALSE
1769: );
1770: end if;
1771: --Diagnostics End
1773: --ER # 2966866 start
1774:
1775: --get the PARENT_EVENT_NAME parameter
1776: l_parent_event := wf_event.getValueForParameter(EDR_CONSTANTS_GRP.g_parent_event_name ,p_event.Parameter_List);
1777: wf_log_pkg.string(1, 'EDR_PSIG_rule.psig_rule','Parent Event Name:'||l_parent_event);
1778:
1779: --get the PARENT_EVENT_KEY parameter
1780: l_parent_key := wf_event.getValueForParameter(EDR_CONSTANTS_GRP.g_parent_event_key,p_event.Parameter_List);
1781:
1778:
1779: --get the PARENT_EVENT_KEY parameter
1780: l_parent_key := wf_event.getValueForParameter(EDR_CONSTANTS_GRP.g_parent_event_key,p_event.Parameter_List);
1781:
1782: wf_log_pkg.string(1, 'EDR_PSIG_rule.psig_rule','Parent Event Key:'||l_parent_key);
1783:
1784: --get the PARENT_ERECORD_ID parameter
1785: l_parent_erecord_id := wf_event.getValueForParameter(EDR_CONSTANTS_GRP.g_parent_erecord_id,p_event.Parameter_List);
1786:
1783:
1784: --get the PARENT_ERECORD_ID parameter
1785: l_parent_erecord_id := wf_event.getValueForParameter(EDR_CONSTANTS_GRP.g_parent_erecord_id,p_event.Parameter_List);
1786:
1787: wf_log_pkg.string(1, 'EDR_PSIG_rule.psig_rule','Parent eRecord ID:'||l_parent_erecord_id);
1788:
1789: --find out if the requisite parameters are passed in the payload so as
1790: --to make it an inter event. either the parent event name AND parent event
1791: --key have to be passed in the payload OR all three, to make this an inter
1805: l_inter_event_mode := 'N';
1806:
1807: END IF;
1808:
1809: wf_log_pkg.string(1, 'EDR_PSIG_rule.psig_rule','Inter Event Mode: '||l_inter_event_mode);
1810:
1811: if (l_inter_event_mode = 'Y') then
1812: --Diagnostics Start
1813: if (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1817: FND_MESSAGE.SET_TOKEN('PARENT_NAME',nvl(l_parent_event,'NULL'));
1818: FND_MESSAGE.SET_TOKEN('PARENT_KEY',nvl(l_parent_key,'NULL'));
1819: FND_MESSAGE.SET_TOKEN('PARENT_EREC_ID',l_parent_erecord_id);
1820: FND_LOG.MESSAGE(FND_LOG.LEVEL_EVENT,
1821: 'edr.plsql.EDR_PSIG_RULE.PSIG_RULE',
1822: FALSE
1823: );
1824: end if;
1825: --Diagnostics End
1842: select count(*) INTO l_no_enabled_eres_sub
1843: from wf_events a, wf_event_subscriptions b
1844: where a.GUID = b.EVENT_FILTER_GUID
1845: and a.name = l_parent_event
1846: and b.RULE_FUNCTION='EDR_PSIG_RULE.PSIG_RULE'
1847: --Bug No 4912782- Start
1848: and b.source_type = 'LOCAL'
1849: and b.system_guid = hextoraw(wf_core.translate('WF_SYSTEM_GUID')) ;
1850: --Bug No 4912782- End
1860: select count(*) INTO l_no_enabled_eres_sub
1861: from wf_events a, wf_event_subscriptions b
1862: where a.GUID = b.EVENT_FILTER_GUID
1863: and a.name = l_parent_event
1864: and b.RULE_FUNCTION='EDR_PSIG_RULE.PSIG_RULE'
1865: and b.STATUS = 'ENABLED'
1866: --Bug No 4912782- Start
1867: and b.source_type = 'LOCAL'
1868: and b.system_guid = hextoraw(wf_core.translate('WF_SYSTEM_GUID')) ;
1895: FND_MESSAGE.SET_TOKEN('CHILD_NAME',p_event.getEventName());
1896: FND_MESSAGE.SET_TOKEN('PARENT_EVENT',l_parent_event);
1897: FND_MESSAGE.SET_TOKEN('RELATION',l_relationship);
1898: FND_LOG.MESSAGE(FND_LOG.LEVEL_EVENT,
1899: 'edr.plsql.EDR_PSIG_RULE.PSIG_RULE',
1900: FALSE
1901: );
1902: end if;
1903: --Diagnostics End
1901: );
1902: end if;
1903: --Diagnostics End
1904:
1905: wf_log_pkg.string(1, 'EDR_PSIG_rule.psig_rule','Relationship between parent and child:'||l_relationship);
1906:
1907: --l_relationship can have three possible values
1908: --EVALUATE_NORMAL, IGNORE_SIGNATURE, ERECORD_ONLY
1909: end if;
1917: select count(*) INTO l_no_enabled_eres_sub
1918: from wf_events a, wf_event_subscriptions b
1919: where a.GUID = b.EVENT_FILTER_GUID
1920: and a.name = p_event.event_name
1921: and b.RULE_FUNCTION='EDR_PSIG_RULE.PSIG_RULE'
1922: and b.STATUS = 'ENABLED'
1923: --Bug No 4912782- Start
1924: and b.source_type = 'LOCAL'
1925: and b.system_guid = hextoraw(wf_core.translate('WF_SYSTEM_GUID')) ;
1938: FROM FND_APPLICATION A, WF_EVENTS B
1939: WHERE A.APPLICATION_SHORT_NAME = B.OWNER_TAG
1940: AND B.NAME=P_EVENT.getEventName( );
1941:
1942: wf_log_pkg.string(1, 'EDR_PSIG_RULE.psig_rule','Application_id :'||l_application_id );
1943: wf_log_pkg.string(1, 'EDR_PSIG_RULE.psig_rule','event key :'||P_EVENT.getEventKey( ));
1944: wf_log_pkg.string(1, 'EDR_PSIG_RULE.psig_rule','Trans Type :'||NVL(l_ame_transaction_type,P_EVENT.getEventName( )) );
1945:
1946: /* AME Enhancement Code. Determine if singature is need or not and also get approvers */
1939: WHERE A.APPLICATION_SHORT_NAME = B.OWNER_TAG
1940: AND B.NAME=P_EVENT.getEventName( );
1941:
1942: wf_log_pkg.string(1, 'EDR_PSIG_RULE.psig_rule','Application_id :'||l_application_id );
1943: wf_log_pkg.string(1, 'EDR_PSIG_RULE.psig_rule','event key :'||P_EVENT.getEventKey( ));
1944: wf_log_pkg.string(1, 'EDR_PSIG_RULE.psig_rule','Trans Type :'||NVL(l_ame_transaction_type,P_EVENT.getEventName( )) );
1945:
1946: /* AME Enhancement Code. Determine if singature is need or not and also get approvers */
1947: -- if the inter event mode is on and the relationship is ERECORD_ONLY then
1940: AND B.NAME=P_EVENT.getEventName( );
1941:
1942: wf_log_pkg.string(1, 'EDR_PSIG_RULE.psig_rule','Application_id :'||l_application_id );
1943: wf_log_pkg.string(1, 'EDR_PSIG_RULE.psig_rule','event key :'||P_EVENT.getEventKey( ));
1944: wf_log_pkg.string(1, 'EDR_PSIG_RULE.psig_rule','Trans Type :'||NVL(l_ame_transaction_type,P_EVENT.getEventName( )) );
1945:
1946: /* AME Enhancement Code. Determine if singature is need or not and also get approvers */
1947: -- if the inter event mode is on and the relationship is ERECORD_ONLY then
1948: -- also we need to go to AME to get the transaction type
1977: FND_MESSAGE.SET_TOKEN('EVENT_NAME',p_event.getEventName());
1978: FND_MESSAGE.SET_TOKEN('EVENT_KEY',p_event.getEventKey());
1979: FND_MESSAGE.SET_TOKEN('DATA_SOURCE','VIEW OBJECT');
1980: FND_LOG.MESSAGE(FND_LOG.LEVEL_EVENT,
1981: 'edr.plsql.EDR_PSIG_RULE.PSIG_RULE',
1982: FALSE
1983: );
1984: end if;
1985: --Diagnostics End
1990: delete edr_erecord_id_temp;
1991:
1992: SELECT EDR_ERECORDS_S.NEXTVAL into l_edr_Event_id from DUAL;
1993: INSERT into edr_erecord_id_temp (document_id) values (l_edr_Event_id);
1994: wf_log_pkg.string(3, 'EDR_PSIG_RULE.psig_rule','eRecord id: '||l_edr_Event_id||' will be sent to ECX');
1995:
1996: --Bug 3893101: Start
1997: --Obtain the value of transform xml parameter.
1998: l_transform_xml := NVL(wf_event.getValueForParameter('TRANSFORM_XML',p_event.Parameter_List),
2009: i_log_file => l_log_file,
2010: o_payload => l_erecord_data
2011: );
2012:
2013: wf_log_pkg.string(3, 'EDR_PSIG_RULE.psig_rule','ecx inbound trig called');
2014:
2015: --If it is set to 'N' then do not perform the XML to XML transformation.
2016: --Take the source XML as the target itself.
2017: elsif l_transform_xml = 'N' then
2023: if l_attachment_string_details is not null then
2024: EDR_ATTACHMENTS_GRP.ADD_ERP_ATTACH(p_attachment_string => l_attachment_string_details);
2025: end if;
2026:
2027: wf_log_pkg.string(3, 'EDR_PSIG_RULE.psig_rule','no ecx transformation required');
2028: else
2029: raise TRANSFORM_XML_VAR_ERROR;
2030: end if;
2031: --Bug 3893101: End
2048: FND_MESSAGE.SET_TOKEN('EVENT_KEY',p_event.getEventKey());
2049: FND_MESSAGE.SET_TOKEN('XML_MAP_CODE',l_xml_map_code);
2050: FND_MESSAGE.SET_TOKEN('TRANS','XML TO XML');
2051: FND_LOG.MESSAGE(FND_LOG.LEVEL_EVENT,
2052: 'edr.plsql.EDR_PSIG_RULE.PSIG_RULE',
2053: FALSE
2054: );
2055: end if;
2056: --Diagnostics End
2060: FND_MESSAGE.SET_NAME('EDR','EDR_FWKRULE_NO_XML_TRANS_EVT');
2061: FND_MESSAGE.SET_TOKEN('EVENT_NAME',p_event.getEventName());
2062: FND_MESSAGE.SET_TOKEN('EVENT_KEY',p_event.getEventKey());
2063: FND_LOG.MESSAGE(FND_LOG.LEVEL_EVENT,
2064: 'edr.plsql.EDR_PSIG_RULE.PSIG_RULE',
2065: FALSE
2066: );
2067: end if;
2068: --Diagnostics End
2076: set event_xml = l_erecord_data
2077: where event_name = l_event_name
2078: and event_key = l_event_key;
2079:
2080: wf_log_pkg.string(3, 'EDR_PSIG_RULE.psig_rule','updated edr_final_xml_gt with the final xml');
2081: else
2082: --Diagnostics Start
2083: if (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
2084: FND_MESSAGE.SET_NAME('EDR','EDR_FWKRULE_DATA_SOURCE_EVT');
2085: FND_MESSAGE.SET_TOKEN('EVENT_NAME',p_event.getEventName());
2086: FND_MESSAGE.SET_TOKEN('EVENT_KEY',p_event.getEventKey());
2087: FND_MESSAGE.SET_TOKEN('DATA_SOURCE','DATABASE');
2088: FND_LOG.MESSAGE(FND_LOG.LEVEL_EVENT,
2089: 'edr.plsql.EDR_PSIG_RULE.PSIG_RULE',
2090: FALSE
2091: );
2092: end if;
2093: --Diagnostics End
2101:
2102: -- Bug 2674799 : start
2103: if (l_inter_event_mode = 'Y' and l_relationship = EDR_CONSTANTS_GRP.g_erecord_only) then
2104: l_trans_value_only := 'Y';
2105: wf_log_pkg.string(1, 'EDR_PSIG_RULE.psig_rule','no need to find out approvers form ame as interevent relationship forces erecord_only');
2106: else
2107: EDR_UTILITIES.GET_APPROVERS(P_APPLICATION_ID => l_application_id,
2108: P_TRANSACTION_ID => p_event.getEventKey(),
2109: P_TRANSACTION_TYPE => NVL(l_ame_transaction_type,p_event.getEventName()),
2109: P_TRANSACTION_TYPE => NVL(l_ame_transaction_type,p_event.getEventName()),
2110: X_approvers => approverList,
2111: X_rule_Ids => l_ruleids,
2112: X_rule_Descriptions => l_rulenames);
2113: wf_log_pkg.string(1, 'EDR_PSIG_RULE.psig_rule','called ame to get the approvers');
2114: END IF ;
2115: -- Bug 2674799: end
2116:
2117: -- Bug 4126932 : END
2118:
2119: --clean up temp table
2120: delete from EDR_FINAL_XML_GT where event_name = l_event_name and event_key=l_event_key;
2121:
2122: wf_log_pkg.string(3, 'EDR_PSIG_RULE.psig_rule','AME API Called. Total Approver '||approverlist.count);
2123:
2124: -- get the Application Name
2125: select ltrim(rtrim(application_name)) into l_application_name
2126: from ame_Calling_Apps
2145: FND_MESSAGE.SET_NAME('EDR','EDR_FWKRULE_NO_APPROVERS_EVT');
2146: FND_MESSAGE.SET_TOKEN('EVENT_NAME',p_event.getEventName());
2147: FND_MESSAGE.SET_TOKEN('EVENT_KEY',p_event.getEventKey());
2148: FND_LOG.MESSAGE(FND_LOG.LEVEL_EVENT,
2149: 'edr.plsql.EDR_PSIG_RULE.PSIG_RULE',
2150: FALSE
2151: );
2152: end if;
2153: --Diagnostics End
2270: -- event1=ERECORD_ONLY then we need to capture eRecord unconditionaly
2271: -- by setting l_erecord_required = 'Y' we will achieve this.
2272: --
2273: l_erecord_required := 'Y';
2274: wf_log_pkg.string(3, 'EDR_PSIG_rule.psig_rule','Get Only the input variables at txn level');
2275: end if;
2276: --ER # 2966866 end
2277:
2278: for i in 1..l_ruleids.count loop
2283: else
2284: l_rule_id := l_ruleids(i);
2285: end if;
2286:
2287: wf_log_pkg.string(1, 'EDR_PSIG_RULE.psig_rule','Rule_id: '||l_ruleids(i)||' Rule '||l_rulenames(i));
2288:
2289: -- Bug 3214495 : Start
2290:
2291: EDR_STANDARD.GET_AMERULE_INPUT_VARIABLES( transactiontypeid =>NVL(l_ame_transaction_type,P_EVENT.getEventName( )),
2294: ameruleinputvalues=>l_rulevalues);
2295:
2296: -- Bug 3214495 : End
2297:
2298: wf_log_pkg.string(3, 'EDR_PSIG_RULE.psig_rule','Total Input Values '||l_rulevalues.count );
2299: if l_rulevalues.count > 0 then
2300: for i in 1..l_rulevalues.count loop
2301: if l_rulevalues(i).input_name = 'ESIG_REQUIRED' then
2302: l_rule_esign_required:=upper(l_rulevalues(i).input_value);
2356: --Start Bug 5158772
2357: IF l_force_erecord = 'Y' then
2358: l_style_sheet := l_temp_style_sheet;
2359: l_style_sheet_ver := l_temp_style_sheet_ver;
2360: wf_log_pkg.string(3, 'EDR_PSIG_rule.psig_rule','Force Ereocrd setting style sheet and version');
2361: end if;
2362: --End Bug 5158772
2363: end loop;
2364:
2377: l_style_sheet := l_temp_style_sheet;
2378: l_style_sheet_ver := l_temp_style_sheet_ver;
2379: -- Bug : 3499326 - end
2380:
2381: wf_log_pkg.string(3, 'EDR_PSIG_rule.psig_rule','Inter Event Mode and No eSignature');
2382: end if;
2383: --ER # 2966866 end
2384:
2385:
2388: L_STYLE_SHEET_TYPE := UPPER(SUBSTR(L_STYLE_SHEET,LENGTH(L_STYLE_SHEET)-2,LENGTH(L_STYLE_SHEET)));
2389: -- Bug 3456399 : End
2390: --Bug: 3170251 : End
2391:
2392: wf_log_pkg.string(1, 'EDR_PSIG_RULE.psig_rule','Signature Required :'||l_esign_required);
2393: wf_log_pkg.string(1, 'EDR_PSIG_RULE.psig_rule','eRecord Required :'||l_erecord_required);
2394: wf_log_pkg.string(1, 'EDR_PSIG_RULE.psig_rule','Style Sheet :'||l_style_sheet);
2395: wf_log_pkg.string(1, 'EDR_PSIG_RULE.psig_rule','StyleSheet Version :'||l_style_sheet_ver);
2396: wf_log_pkg.string(1, 'EDR_PSIG_RULE.psig_rule','StyleSheet repository :'||l_style_sheet_repository);
2389: -- Bug 3456399 : End
2390: --Bug: 3170251 : End
2391:
2392: wf_log_pkg.string(1, 'EDR_PSIG_RULE.psig_rule','Signature Required :'||l_esign_required);
2393: wf_log_pkg.string(1, 'EDR_PSIG_RULE.psig_rule','eRecord Required :'||l_erecord_required);
2394: wf_log_pkg.string(1, 'EDR_PSIG_RULE.psig_rule','Style Sheet :'||l_style_sheet);
2395: wf_log_pkg.string(1, 'EDR_PSIG_RULE.psig_rule','StyleSheet Version :'||l_style_sheet_ver);
2396: wf_log_pkg.string(1, 'EDR_PSIG_RULE.psig_rule','StyleSheet repository :'||l_style_sheet_repository);
2397:
2390: --Bug: 3170251 : End
2391:
2392: wf_log_pkg.string(1, 'EDR_PSIG_RULE.psig_rule','Signature Required :'||l_esign_required);
2393: wf_log_pkg.string(1, 'EDR_PSIG_RULE.psig_rule','eRecord Required :'||l_erecord_required);
2394: wf_log_pkg.string(1, 'EDR_PSIG_RULE.psig_rule','Style Sheet :'||l_style_sheet);
2395: wf_log_pkg.string(1, 'EDR_PSIG_RULE.psig_rule','StyleSheet Version :'||l_style_sheet_ver);
2396: wf_log_pkg.string(1, 'EDR_PSIG_RULE.psig_rule','StyleSheet repository :'||l_style_sheet_repository);
2397:
2398: --Diagnostics Start
2391:
2392: wf_log_pkg.string(1, 'EDR_PSIG_RULE.psig_rule','Signature Required :'||l_esign_required);
2393: wf_log_pkg.string(1, 'EDR_PSIG_RULE.psig_rule','eRecord Required :'||l_erecord_required);
2394: wf_log_pkg.string(1, 'EDR_PSIG_RULE.psig_rule','Style Sheet :'||l_style_sheet);
2395: wf_log_pkg.string(1, 'EDR_PSIG_RULE.psig_rule','StyleSheet Version :'||l_style_sheet_ver);
2396: wf_log_pkg.string(1, 'EDR_PSIG_RULE.psig_rule','StyleSheet repository :'||l_style_sheet_repository);
2397:
2398: --Diagnostics Start
2399: if (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
2392: wf_log_pkg.string(1, 'EDR_PSIG_RULE.psig_rule','Signature Required :'||l_esign_required);
2393: wf_log_pkg.string(1, 'EDR_PSIG_RULE.psig_rule','eRecord Required :'||l_erecord_required);
2394: wf_log_pkg.string(1, 'EDR_PSIG_RULE.psig_rule','Style Sheet :'||l_style_sheet);
2395: wf_log_pkg.string(1, 'EDR_PSIG_RULE.psig_rule','StyleSheet Version :'||l_style_sheet_ver);
2396: wf_log_pkg.string(1, 'EDR_PSIG_RULE.psig_rule','StyleSheet repository :'||l_style_sheet_repository);
2397:
2398: --Diagnostics Start
2399: if (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
2400: FND_MESSAGE.SET_NAME('EDR','EDR_FWKRULE_PARAM_LIST_EVT');
2406: FND_MESSAGE.SET_TOKEN('STYLE_VER',l_style_sheet_ver);
2407: FND_MESSAGE.SET_TOKEN('STYLE_REP',l_style_sheet_repository);
2408: FND_MESSAGE.SET_TOKEN('XML_MAP_CODE',l_xml_map_code);
2409: FND_LOG.MESSAGE(FND_LOG.LEVEL_EVENT,
2410: 'edr.plsql.EDR_PSIG_RULE.PSIG_RULE',
2411: FALSE
2412: );
2413: end if;
2414: --Diagnostics End
2436:
2437: l_audit_group := NVL(wf_event.getValueForParameter('EDR_AUDIT_GROUP',p_event.Parameter_List),
2438: P_EVENT.getEventName( ));
2439:
2440: wf_log_pkg.string(1, 'EDR_PSIG_RULE.psig_rule','XML Map Code :'||l_xml_map_code );
2441: wf_log_pkg.string(1, 'EDR_PSIG_RULE.psig_rule','Audit Group :'||l_audit_group );
2442: wf_log_pkg.string(1, 'EDR_PSIG_RULE.psig_rule','Setting ECX parameter');
2443:
2444: /* Set Additional Parameters required by Esignature */
2437: l_audit_group := NVL(wf_event.getValueForParameter('EDR_AUDIT_GROUP',p_event.Parameter_List),
2438: P_EVENT.getEventName( ));
2439:
2440: wf_log_pkg.string(1, 'EDR_PSIG_RULE.psig_rule','XML Map Code :'||l_xml_map_code );
2441: wf_log_pkg.string(1, 'EDR_PSIG_RULE.psig_rule','Audit Group :'||l_audit_group );
2442: wf_log_pkg.string(1, 'EDR_PSIG_RULE.psig_rule','Setting ECX parameter');
2443:
2444: /* Set Additional Parameters required by Esignature */
2445: /* wf_event.AddParameterToList('SUB_GUID', p_subscription_guid,p_event.Parameter_List); Subscription ID */
2438: P_EVENT.getEventName( ));
2439:
2440: wf_log_pkg.string(1, 'EDR_PSIG_RULE.psig_rule','XML Map Code :'||l_xml_map_code );
2441: wf_log_pkg.string(1, 'EDR_PSIG_RULE.psig_rule','Audit Group :'||l_audit_group );
2442: wf_log_pkg.string(1, 'EDR_PSIG_RULE.psig_rule','Setting ECX parameter');
2443:
2444: /* Set Additional Parameters required by Esignature */
2445: /* wf_event.AddParameterToList('SUB_GUID', p_subscription_guid,p_event.Parameter_List); Subscription ID */
2446: wf_event.AddParameterToList('ECX_MAP_CODE', l_xml_map_code,p_event.Parameter_List); /* XML Map Code*/
2469:
2470: -- Bug 5158510 :start
2471: wf_event.AddParameterToList(EDR_CONSTANTS_GRP.G_SIGNATURE_MODE, l_signature_mode,p_event.Parameter_List);
2472: -- Bug 5158510 :end
2473: wf_log_pkg.string(1, 'EDR_PSIG_RULE.psig_rule','ECX Parameter set have been set' );
2474:
2475: /* Generate XML Document */
2476: wf_log_pkg.string(3, 'EDR_PSIG_RULE.psig_rule','Calling ECX Standard package to generate XML' );
2477: -- Bug 3960236 : Start
2472: -- Bug 5158510 :end
2473: wf_log_pkg.string(1, 'EDR_PSIG_RULE.psig_rule','ECX Parameter set have been set' );
2474:
2475: /* Generate XML Document */
2476: wf_log_pkg.string(3, 'EDR_PSIG_RULE.psig_rule','Calling ECX Standard package to generate XML' );
2477: -- Bug 3960236 : Start
2478: -- Fetch the payload parameter
2479: L_XML_GENERATION_API := wf_event.getValueForParameter('XML_GENERATION_API',p_event.Parameter_List);
2480:
2544: --Commenting changes made for red lining.
2545:
2546: if ( nvl(l_redline_required,'N') = 'Y') then
2547: l_snapstatus:= PRE_TX_SNAPSHOT(l_edr_Event_id,l_xml_map_code,P_EVENT.getEventKey());
2548: wf_log_pkg.string(3, 'EDR_PSIG_RULE.psig_rule','After Calling Snapshot to generate XML'||P_EVENT.getEventKey( ));
2549: END IF;
2550: --Bug 4306292: End
2551: -- Bug 3761813 : end
2552:
2550: --Bug 4306292: End
2551: -- Bug 3761813 : end
2552:
2553: INSERT into edr_erecord_id_temp (document_id) values (l_edr_Event_id);
2554: wf_log_pkg.string(3, 'EDR_PSIG_RULE.psig_rule','eRecord id: '||l_edr_Event_id||' has been sent to ECX');
2555:
2556: L_XML_DOCUMENT:=ECX_STANDARD.GENERATE(p_event_name => P_EVENT.getEventName(),
2557: p_event_key => P_EVENT.getEventKey(),
2558: p_parameter_list => p_event.Parameter_List);
2564: FND_MESSAGE.SET_TOKEN('EVENT_KEY',p_event.getEventKey());
2565: FND_MESSAGE.SET_TOKEN('XML_MAP_CODE',l_xml_map_code);
2566: FND_MESSAGE.SET_TOKEN('TRANS','DB TO XML');
2567: FND_LOG.MESSAGE(FND_LOG.LEVEL_EVENT,
2568: 'edr.plsql.EDR_PSIG_RULE.PSIG_RULE',
2569: FALSE
2570: );
2571: end if;
2572: --Diagnostics End
2573:
2574: end if;
2575: --Bug 3667036 : End
2576:
2577: wf_log_pkg.string(3, 'EDR_PSIG_RULE.psig_rule','XML Document Generated' );
2578:
2579: --Bug 5724159 :Start
2580: --When the number of approvers is 0,Adhoc signer capability is ALL or ADHOC and the
2581: --Signature mode is SHORT,Error message needs to displayed. E-Record will not be captured in this scenario.
2631: end if;
2632: --Bug 4306292: End
2633: --Bug 3761813 : end
2634:
2635: wf_log_pkg.string(3, 'EDR_PSIG_RULE.psig_rule','XML Document Set to event Data' );
2636:
2637: /* GET Approver List.
2638: ame_api.getAllApprovers(applicationIdIn=>l_application_Id,
2639: transactionIdIn=>P_EVENT.getEventKey( ),
2646: FND_MESSAGE.SET_TOKEN('EVENT_NAME',p_event.getEventName());
2647: FND_MESSAGE.SET_TOKEN('EVENT_KEY',p_event.getEventKey());
2648: FND_MESSAGE.SET_TOKEN('COUNT',approverList.count);
2649: FND_LOG.MESSAGE(FND_LOG.LEVEL_EVENT,
2650: 'edr.plsql.EDR_PSIG_RULE.PSIG_RULE',
2651: FALSE
2652: );
2653: end if;
2654: --Diagnostics End
2710: FND_MESSAGE.SET_NAME('EDR','EDR_EINITIALS_SIGN_MODE_EVT');
2711: FND_MESSAGE.SET_TOKEN('EVENT_NAME',p_event.getEventName());
2712: FND_MESSAGE.SET_TOKEN('EVENT_KEY',p_event.getEventKey());
2713: FND_LOG.MESSAGE(FND_LOG.LEVEL_EVENT,
2714: 'edr.plsql.EDR_PSIG_RULE.PSIG_RULE',
2715: FALSE
2716: );
2717: end if;
2718: --Diagnostics End
2736: FND_MESSAGE.SET_TOKEN('EVENT_NAME',p_event.getEventName());
2737: FND_MESSAGE.SET_TOKEN('EVENT_KEY',p_event.getEventKey());
2738: FND_MESSAGE.SET_TOKEN('APPROVER_LIST',l_approver_list);
2739: FND_LOG.MESSAGE(FND_LOG.LEVEL_EVENT,
2740: 'edr.plsql.EDR_PSIG_RULE.PSIG_RULE',
2741: FALSE
2742: );
2743: end if;
2744: --Diagnostics End
2778: FND_MESSAGE.SET_TOKEN('EVENT_NAME',p_event.getEventName());
2779: FND_MESSAGE.SET_TOKEN('EVENT_KEY',p_event.getEventKey());
2780: FND_MESSAGE.SET_TOKEN('APPROVER_COUNT',l_approver_count);
2781: FND_LOG.MESSAGE(FND_LOG.LEVEL_EVENT,
2782: 'edr.plsql.EDR_PSIG_RULE.PSIG_RULE',
2783: FALSE
2784: );
2785: end if;
2786: --Diagnostics End
2831: FND_MESSAGE.SET_TOKEN('EVENT_NAME',p_event.getEventName());
2832: FND_MESSAGE.SET_TOKEN('EVENT_KEY',p_event.getEventKey());
2833: FND_MESSAGE.SET_TOKEN('DEFER_MODE',l_einitials_defer_mode);
2834: FND_LOG.MESSAGE(FND_LOG.LEVEL_EVENT,
2835: 'edr.plsql.EDR_PSIG_RULE.PSIG_RULE',
2836: FALSE
2837: );
2838: end if;
2839: --Diagnostics End
2862: wf_event.AddParameterToList('#WF_PAGEFLOW_ITEMPROCESS', l_wfprocess,p_event.Parameter_List); /* Page Flow Workflow process*/
2863: wf_event.AddParameterToList('#WF_PAGEFLOW_ITEMKEY', l_edr_event_id,p_event.Parameter_List); /* Item Key*/
2864:
2865: /* CAll Page Flow Creation API */
2866: wf_log_pkg.string(3, 'EDR_PSIG_RULE.psig_rule','Calling Page Flow Creation Procedure');
2867:
2868: --Diagnostics Start
2869: if (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
2870: FND_MESSAGE.SET_NAME('EDR','EDR_FWKRULE_WF_PARAMS_EVT');
2873: FND_MESSAGE.SET_TOKEN('ITEM_TYPE',l_wftype);
2874: FND_MESSAGE.SET_TOKEN('ITEM_KEY',l_edr_event_id);
2875: FND_MESSAGE.SET_TOKEN('PROCESS',l_wfprocess);
2876: FND_LOG.MESSAGE(FND_LOG.LEVEL_EVENT,
2877: 'edr.plsql.EDR_PSIG_RULE.PSIG_RULE',
2878: FALSE
2879: );
2880: end if;
2881: --Diagnostics End
2937: p_subscription_guid => p_subscription_guid,
2938: P_approverlist => approverList,
2939: P_ERR_CODE => l_error,
2940: P_ERR_MSG => l_error_msg);
2941: wf_log_pkg.string(3, 'EDR_PSIG_RULE.psig_rule','Page Flow Returned '||l_return_status);
2942:
2943: IF l_return_status = 'ERROR' OR L_ERROR is not null then
2944: raise PAGE_FLOW_FAILED;
2945: ELSE
2970: fnd_message.set_token( 'EVENT', l_error_event);
2971: --Diagnostics Start
2972: if (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
2973: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,
2974: 'edr.plsql.EDR_PSIG_RULE.PSIG_RULE',
2975: FALSE
2976: );
2977: end if;
2978: --Diagnostics End
2985:
2986: --Diagnostics Start
2987: if (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
2988: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,
2989: 'edr.plsql.EDR_PSIG_RULE.PSIG_RULE',
2990: FALSE
2991: );
2992: end if;
2993: --Diagnostics End
3000: fnd_message.set_token( 'EVENT',l_error_event);
3001: --Diagnostics Start
3002: if (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
3003: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,
3004: 'edr.plsql.EDR_PSIG_RULE.PSIG_RULE',
3005: FALSE
3006: );
3007: end if;
3008: --Diagnostics End
3010: APP_EXCEPTION.RAISE_EXCEPTION;
3011: return EDR_CONSTANTS_GRP.g_error_status;
3012:
3013: when PAGE_FLOW_FAILED then
3014: Wf_Core.Context('EDR_PSIG_RULE', 'PSIG_RULE', p_event.getEventName(), p_subscription_guid);
3015: wf_event.setErrorInfo(p_event,SQLERRM || 'ERROR');
3016: FND_MESSAGE.SET_NAME('FND','FND_AS_UNEXPECTED_ERROR');
3017: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',nvl(l_error_msg,SQLERRM));
3018: FND_MESSAGE.SET_TOKEN('PKG_NAME','EDR_PSIG_RULE');
3014: Wf_Core.Context('EDR_PSIG_RULE', 'PSIG_RULE', p_event.getEventName(), p_subscription_guid);
3015: wf_event.setErrorInfo(p_event,SQLERRM || 'ERROR');
3016: FND_MESSAGE.SET_NAME('FND','FND_AS_UNEXPECTED_ERROR');
3017: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',nvl(l_error_msg,SQLERRM));
3018: FND_MESSAGE.SET_TOKEN('PKG_NAME','EDR_PSIG_RULE');
3019: FND_MESSAGE.SET_TOKEN('PROCEDURE_NAME','PSIG_RULE');
3020: --Diagnostics Start
3021: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
3022: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,
3019: FND_MESSAGE.SET_TOKEN('PROCEDURE_NAME','PSIG_RULE');
3020: --Diagnostics Start
3021: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
3022: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,
3023: 'edr.plsql.EDR_PSIG_RULE.PSIG_RULE',
3024: FALSE
3025: );
3026: end if;
3027: --Diagnostics End
3036: FND_MESSAGE.SET_TOKEN('LOG',l_log_file);
3037: --Diagnostics Start
3038: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
3039: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,
3040: 'edr.plsql.EDR_PSIG_RULE.PSIG_RULE',
3041: FALSE
3042: );
3043: end if;
3044: --Diagnostics End
3053: FND_MESSAGE.SET_TOKEN('EVENT_KEY',p_event.getEventKey());
3054: --Diagnostics Start
3055: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
3056: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,
3057: 'edr.plsql.EDR_PSIG_RULE.PSIG_RULE',
3058: FALSE
3059: );
3060: end if;
3061: --Diagnostics End
3070: FND_MESSAGE.SET_TOKEN('EVENT_KEY',p_event.getEventKey());
3071: --Diagnostics Start
3072: if (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
3073: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,
3074: 'edr.plsql.EDR_PSIG_RULE.PSIG_RULE',
3075: FALSE
3076: );
3077: end if;
3078: --Diagnostics End
3086: FND_MESSAGE.SET_TOKEN('APPROVER_NAMES',l_invalid_approvers);
3087: --Diagnostics Start
3088: if (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
3089: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,
3090: 'edr.plsql.EDR_PSIG_RULE.PSIG_RULE',
3091: FALSE
3092: );
3093: end if;
3094: --Diagnostics End
3102: FND_MESSAGE.SET_TOKEN('STRING',l_approver_list);
3103: --Diagnostics Start
3104: if (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
3105: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,
3106: 'edr.plsql.EDR_PSIG_RULE.PSIG_RULE',
3107: FALSE
3108: );
3109: end if;
3110: --Diagnostics End
3119:
3120: --Diagnostics Start
3121: if (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
3122: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,
3123: 'edr.plsql.EDR_PSIG_RULE.PSIG_RULE',
3124: FALSE
3125: );
3126: end if;
3127: --Diagnostics End
3135:
3136: --Diagnostics Start
3137: if (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
3138: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,
3139: 'edr.plsql.EDR_PSIG_RULE.PSIG_RULE',
3140: FALSE
3141: );
3142: end if;
3143: --Diagnostics End
3153: FND_MESSAGE.SET_TOKEN('APINAME',SQLERRM||': '||l_xml_generation_api);
3154: --Diagnostics Start
3155: if (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
3156: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,
3157: 'edr.plsql.EDR_PSIG_RULE.PSIG_RULE',
3158: FALSE
3159: );
3160: end if;
3161: --Diagnostics End
3171: FND_MESSAGE.SET_TOKEN('APINAME',SQLERRM);
3172: --Diagnostics Start
3173: if (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
3174: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,
3175: 'edr.plsql.EDR_PSIG_RULE.PSIG_RULE',
3176: FALSE
3177: );
3178: end if;
3179: --Diagnostics End
3190: FND_MESSAGE.SET_TOKEN('EVENT_KEY',p_event.getEventKey());
3191: --Diagnostics Start
3192: if (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
3193: FND_LOG.MESSAGE(FND_LOG.LEVEL_EXCEPTION,
3194: 'edr.plsql.EDR_PSIG_RULE.PSIG_RULE',
3195: FALSE
3196: );
3197: end if;
3198: --Diagnostics End
3200: return EDR_CONSTANTS_GRP.g_error_status;
3201: --Bug 5724159 :End
3202:
3203: when others then
3204: Wf_Core.Context('EDR_PSIG_RULE', 'PSIG_RULE', p_event.getEventName(), p_subscription_guid);
3205: wf_event.setErrorInfo(p_event,SQLERRM || 'ERROR');
3206: FND_MESSAGE.SET_NAME('FND','FND_AS_UNEXPECTED_ERROR');
3207: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',nvl(l_error_msg,SQLERRM));
3208: FND_MESSAGE.SET_TOKEN('PKG_NAME','EDR_PSIG_RULE');
3204: Wf_Core.Context('EDR_PSIG_RULE', 'PSIG_RULE', p_event.getEventName(), p_subscription_guid);
3205: wf_event.setErrorInfo(p_event,SQLERRM || 'ERROR');
3206: FND_MESSAGE.SET_NAME('FND','FND_AS_UNEXPECTED_ERROR');
3207: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',nvl(l_error_msg,SQLERRM));
3208: FND_MESSAGE.SET_TOKEN('PKG_NAME','EDR_PSIG_RULE');
3209: FND_MESSAGE.SET_TOKEN('PROCEDURE_NAME','PSIG_RULE');
3210: --Diagnostics Start
3211: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
3212: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,
3209: FND_MESSAGE.SET_TOKEN('PROCEDURE_NAME','PSIG_RULE');
3210: --Diagnostics Start
3211: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
3212: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,
3213: 'edr.plsql.EDR_PSIG_RULE.PSIG_RULE',
3214: FALSE
3215: );
3216: end if;
3217: --Diagnostics End
3220: return EDR_CONSTANTS_GRP.g_error_status;
3221:
3222: end PSIG_RULE;
3223:
3224: end EDR_PSIG_RULE;