1: PACKAGE BODY OKE_CHG_REQUESTS_WF AS
2: /* $Header: OKEWCRQB.pls 120.1 2011/05/27 08:10:43 skuchima ship $ */
3:
4: --
5: -- Private Functions and Procedures
183: WHEN OTHERS THEN
184: ResultOut := 'ERROR';
185: WF_Engine.SetItemAttrText
186: ( ItemType => ItemType , ItemKey => ItemKey , AName => 'ERRORTEXT' , AValue => sqlerrm );
187: WF_Core.Context( 'OKE_CHG_REQUESTS_WF'
188: , 'INITIALIZE'
189: , ItemType , ItemKey , to_char(ActID) , FuncMode , ResultOut );
190: RAISE;
191:
280: WHEN OTHERS THEN
281: ResultOut := 'ERROR:';
282: WF_Engine.SetItemAttrText
283: ( ItemType => ItemType , ItemKey => ItemKey , AName => 'ERRORTEXT' , AValue => sqlerrm );
284: WF_Core.Context( 'OKE_CHG_REQUESTS_WF'
285: , 'SELECT_NEXT_APPROVER'
286: , ItemType , ItemKey , to_char(ActID) , FuncMode , ResultOut );
287: RAISE;
288:
361: WHEN OTHERS THEN
362: ResultOut := 'ERROR:';
363: WF_Engine.SetItemAttrText
364: ( ItemType => ItemType , ItemKey => ItemKey , AName => 'ERRORTEXT' , AValue => sqlerrm );
365: WF_Core.Context( 'OKE_CHG_REQUESTS_WF'
366: , 'SELECT_NEXT_INFORMED'
367: , ItemType , ItemKey , to_char(ActID) , FuncMode , ResultOut );
368: RAISE;
369:
425: WHEN OTHERS THEN
426: ResultOut := 'ERROR:';
427: WF_Engine.SetItemAttrText
428: ( ItemType => ItemType , ItemKey => ItemKey , AName => 'ERRORTEXT' , AValue => sqlerrm );
429: WF_Core.Context( 'OKE_CHG_REQUESTS_WF'
430: , 'REJ_NOTE_FILLED'
431: , ItemType , ItemKey , to_char(ActID) , FuncMode , ResultOut );
432: RAISE;
433:
489: WHEN OTHERS THEN
490: ResultOut := 'ERROR:';
491: WF_Engine.SetItemAttrText
492: ( ItemType => ItemType , ItemKey => ItemKey , AName => 'ERRORTEXT' , AValue => sqlerrm );
493: WF_Core.Context( 'OKE_CHG_REQUESTS_WF'
494: , 'IMPACT_FUNDING'
495: , ItemType , ItemKey , to_char(ActID) , FuncMode , ResultOut );
496: RAISE;
497:
618: ResultOut := 'ERROR:';
619: WF_Engine.SetItemAttrText
620: ( ItemType => ItemType , ItemKey => ItemKey , AName => 'ERRORTEXT'
621: , AValue => FND_MESSAGE.Get_String('OKE' , 'OKE_CHGREQ_NODEF_APPR_STS') );
622: WF_Core.Context( 'OKE_CHG_REQUESTS_WF'
623: , 'SET_APPROVED_STATUS'
624: , ItemType , ItemKey , to_char(ActID) , FuncMode , ResultOut );
625: RAISE;
626:
627: WHEN OTHERS THEN
628: ResultOut := 'ERROR:';
629: WF_Engine.SetItemAttrText
630: ( ItemType => ItemType , ItemKey => ItemKey , AName => 'ERRORTEXT' , AValue => sqlerrm );
631: WF_Core.Context( 'OKE_CHG_REQUESTS_WF'
632: , 'SET_APPROVED_STATUS'
633: , ItemType , ItemKey , to_char(ActID) , FuncMode , ResultOut );
634: RAISE;
635:
758: ResultOut := 'ERROR:';
759: WF_Engine.SetItemAttrText
760: ( ItemType => ItemType , ItemKey => ItemKey , AName => 'ERRORTEXT'
761: , AValue => FND_MESSAGE.Get_String('OKE' , 'OKE_CHGREQ_NODEF_REJ_STS') );
762: WF_Core.Context( 'OKE_CHG_REQUESTS_WF'
763: , 'SET_APPROVED_STATUS'
764: , ItemType , ItemKey , to_char(ActID) , FuncMode , ResultOut );
765: RAISE;
766:
767: WHEN OTHERS THEN
768: ResultOut := 'ERROR';
769: WF_Engine.SetItemAttrText
770: ( ItemType => ItemType , ItemKey => ItemKey , AName => 'ERRORTEXT' , AValue => sqlerrm );
771: WF_Core.Context( 'OKE_CHG_REQUESTS_WF'
772: , 'SET_REJECTED_STATUS'
773: , ItemType , ItemKey , to_char(ActID) , FuncMode , ResultOut );
774: RAISE;
775:
775:
776: END Set_Rejected_Status;
777:
778:
779: END OKE_CHG_REQUESTS_WF;