DBA Data[Home] [Help]

APPS.OKE_CHG_REQUESTS_WF dependencies on WF_ENGINE

Line 110: OPEN sts ( WF_ENGINE.GetItemAttrText(ItemType , ItemKey , 'OLD_STATUS_CODE') );

106: BEGIN
107:
108: IF ( FuncMode = 'RUN' ) THEN
109:
110: OPEN sts ( WF_ENGINE.GetItemAttrText(ItemType , ItemKey , 'OLD_STATUS_CODE') );
111: FETCH sts INTO OldStatus;
112: CLOSE sts;
113:
114: WF_ENGINE.SetItemAttrText( itemtype => ItemType

Line 114: WF_ENGINE.SetItemAttrText( itemtype => ItemType

110: OPEN sts ( WF_ENGINE.GetItemAttrText(ItemType , ItemKey , 'OLD_STATUS_CODE') );
111: FETCH sts INTO OldStatus;
112: CLOSE sts;
113:
114: WF_ENGINE.SetItemAttrText( itemtype => ItemType
115: , itemkey => ItemKey
116: , aname => 'OLD_STATUS'
117: , avalue => OldStatus );
118:

Line 119: OPEN sts ( WF_ENGINE.GetItemAttrText(ItemType , ItemKey , 'NEW_STATUS_CODE') );

115: , itemkey => ItemKey
116: , aname => 'OLD_STATUS'
117: , avalue => OldStatus );
118:
119: OPEN sts ( WF_ENGINE.GetItemAttrText(ItemType , ItemKey , 'NEW_STATUS_CODE') );
120: FETCH sts INTO NewStatus;
121: CLOSE sts;
122:
123: WF_ENGINE.SetItemAttrText( itemtype => ItemType

Line 123: WF_ENGINE.SetItemAttrText( itemtype => ItemType

119: OPEN sts ( WF_ENGINE.GetItemAttrText(ItemType , ItemKey , 'NEW_STATUS_CODE') );
120: FETCH sts INTO NewStatus;
121: CLOSE sts;
122:
123: WF_ENGINE.SetItemAttrText( itemtype => ItemType
124: , itemkey => ItemKey
125: , aname => 'NEW_STATUS'
126: , avalue => NewStatus );
127:

Line 129: , WF_ENGINE.GetItemAttrText(ItemType , ItemKey , 'CHG_TYPE_CODE')

125: , aname => 'NEW_STATUS'
126: , avalue => NewStatus );
127:
128: OPEN lu ( 'CHANGE_TYPE'
129: , WF_ENGINE.GetItemAttrText(ItemType , ItemKey , 'CHG_TYPE_CODE')
130: , 777);
131: FETCH lu INTO ChgType;
132: CLOSE lu;
133:

Line 134: WF_ENGINE.SetItemAttrText( itemtype => ItemType

130: , 777);
131: FETCH lu INTO ChgType;
132: CLOSE lu;
133:
134: WF_ENGINE.SetItemAttrText( itemtype => ItemType
135: , itemkey => ItemKey
136: , aname => 'CHG_TYPE'
137: , avalue => ChgType );
138:

Line 140: , WF_ENGINE.GetItemAttrText(ItemType , ItemKey , 'CHG_REASON_CODE')

136: , aname => 'CHG_TYPE'
137: , avalue => ChgType );
138:
139: OPEN lu ( 'CHANGE_REASON'
140: , WF_ENGINE.GetItemAttrText(ItemType , ItemKey , 'CHG_REASON_CODE')
141: , 777);
142: FETCH lu INTO ChgReason;
143: CLOSE lu;
144:

Line 145: WF_ENGINE.SetItemAttrText( itemtype => ItemType

141: , 777);
142: FETCH lu INTO ChgReason;
143: CLOSE lu;
144:
145: WF_ENGINE.SetItemAttrText( itemtype => ItemType
146: , itemkey => ItemKey
147: , aname => 'CHG_REASON'
148: , avalue => ChgReason );
149:

Line 150: -- OPEN kadmin ( WF_ENGINE.GetItemAttrNumber(ItemType , ItemKey , 'K_HEADER_ID') );

146: , itemkey => ItemKey
147: , aname => 'CHG_REASON'
148: , avalue => ChgReason );
149:
150: -- OPEN kadmin ( WF_ENGINE.GetItemAttrNumber(ItemType , ItemKey , 'K_HEADER_ID') );
151: -- FETCH kadmin INTO AdminName;
152: -- CLOSE kadmin;
153:
154: AdminName := OKE_UTILS.Retrieve_WF_Role_Name(WF_ENGINE.GetItemAttrNumber(ItemType , ItemKey , 'K_HEADER_ID'),701);

Line 154: AdminName := OKE_UTILS.Retrieve_WF_Role_Name(WF_ENGINE.GetItemAttrNumber(ItemType , ItemKey , 'K_HEADER_ID'),701);

150: -- OPEN kadmin ( WF_ENGINE.GetItemAttrNumber(ItemType , ItemKey , 'K_HEADER_ID') );
151: -- FETCH kadmin INTO AdminName;
152: -- CLOSE kadmin;
153:
154: AdminName := OKE_UTILS.Retrieve_WF_Role_Name(WF_ENGINE.GetItemAttrNumber(ItemType , ItemKey , 'K_HEADER_ID'),701);
155:
156: -- AdminName := Emp_To_UserName( AdminID );
157:
158: WF_ENGINE.SetItemAttrText( itemtype => ItemType

Line 158: WF_ENGINE.SetItemAttrText( itemtype => ItemType

154: AdminName := OKE_UTILS.Retrieve_WF_Role_Name(WF_ENGINE.GetItemAttrNumber(ItemType , ItemKey , 'K_HEADER_ID'),701);
155:
156: -- AdminName := Emp_To_UserName( AdminID );
157:
158: WF_ENGINE.SetItemAttrText( itemtype => ItemType
159: , itemkey => ItemKey
160: , aname => 'ADMINISTRATOR'
161: , avalue => AdminName );
162:

Line 185: WF_Engine.SetItemAttrText

181:
182: EXCEPTION
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 );

Line 228: LastAppr := WF_Engine.GetItemAttrText

224: IF ( FuncMode = 'RUN' ) THEN
225: --
226: -- Get Last Approver Information from Workflow
227: --
228: LastAppr := WF_Engine.GetItemAttrText
229: (ItemType , ItemKey , 'NEXT_APPROVER');
230:
231: IF ( LastAppr IS NULL ) THEN
232:

Line 233: Requestor := WF_Engine.GetItemAttrText

229: (ItemType , ItemKey , 'NEXT_APPROVER');
230:
231: IF ( LastAppr IS NULL ) THEN
232:
233: Requestor := WF_Engine.GetItemAttrText
234: (ItemType , ItemKey , 'REQUESTOR');
235: NextAppr := WF_Engine.GetItemAttrText
236: (ItemType , ItemKey , 'ADMINISTRATOR');
237:

Line 235: NextAppr := WF_Engine.GetItemAttrText

231: IF ( LastAppr IS NULL ) THEN
232:
233: Requestor := WF_Engine.GetItemAttrText
234: (ItemType , ItemKey , 'REQUESTOR');
235: NextAppr := WF_Engine.GetItemAttrText
236: (ItemType , ItemKey , 'ADMINISTRATOR');
237:
238: IF ( NextAppr = Requestor ) THEN
239: NextAppr := NULL;

Line 241: NextAppr := WF_Engine.GetItemAttrText

237:
238: IF ( NextAppr = Requestor ) THEN
239: NextAppr := NULL;
240: ELSE
241: NextAppr := WF_Engine.GetItemAttrText
242: (ItemType , ItemKey , 'ADMINISTRATOR');
243: END IF;
244:
245: ELSE

Line 247: WF_Engine.SetItemAttrText

243: END IF;
244:
245: ELSE
246:
247: WF_Engine.SetItemAttrText
248: (ItemType , ItemKey , 'PREV_PERFORMER' , LastAppr);
249: NextAppr := NULL;
250:
251: END IF;

Line 256: WF_Engine.SetItemAttrText

252:
253: IF ( NextAppr IS NULL ) THEN
254: ResultOut := 'COMPLETE:F';
255: ELSE
256: WF_Engine.SetItemAttrText
257: (ItemType , ItemKey , 'NEXT_APPROVER' , NextAppr);
258: ResultOut := 'COMPLETE:T';
259: END IF;
260:

Line 282: WF_Engine.SetItemAttrText

278:
279: EXCEPTION
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 );

Line 322: LastInformed := WF_Engine.GetItemAttrText

318: BEGIN
319:
320: IF ( FuncMode = 'RUN' ) THEN
321:
322: LastInformed := WF_Engine.GetItemAttrText
323: (ItemType , ItemKey , 'NEXT_INFORMED');
324:
325: IF ( LastInformed IS NULL ) THEN
326:

Line 327: NextInformed := WF_Engine.GetItemAttrText

323: (ItemType , ItemKey , 'NEXT_INFORMED');
324:
325: IF ( LastInformed IS NULL ) THEN
326:
327: NextInformed := WF_Engine.GetItemAttrText
328: (ItemType , ItemKey , 'REQUESTOR');
329:
330: ELSE
331:

Line 339: WF_Engine.SetItemAttrText

335:
336: IF ( NextInformed IS NULL ) THEN
337: ResultOut := 'COMPLETE:F';
338: ELSE
339: WF_Engine.SetItemAttrText
340: (ItemType , ItemKey , 'NEXT_INFORMED' , NextInformed );
341: ResultOut := 'COMPLETE:T';
342: END IF;
343:

Line 363: WF_Engine.SetItemAttrText

359:
360: EXCEPTION
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 );

Line 400: IF ( WF_Engine.GetItemAttrText(ItemType , ItemKey , 'WF_NOTE') IS NULL ) THEN

396: BEGIN
397:
398: IF ( FuncMode = 'RUN' ) THEN
399:
400: IF ( WF_Engine.GetItemAttrText(ItemType , ItemKey , 'WF_NOTE') IS NULL ) THEN
401: ResultOut := 'COMPLETE:F';
402: ELSE
403: ResultOut := 'COMPLETE:T';
404: END IF;

Line 427: WF_Engine.SetItemAttrText

423:
424: EXCEPTION
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 );

Line 464: IF ( WF_Engine.GetItemAttrText(ItemType , ItemKey , 'IMPACT_FUNDING_FLAG') = 'Y' ) THEN

460: BEGIN
461:
462: IF ( FuncMode = 'RUN' ) THEN
463:
464: IF ( WF_Engine.GetItemAttrText(ItemType , ItemKey , 'IMPACT_FUNDING_FLAG') = 'Y' ) THEN
465: ResultOut := 'COMPLETE:T';
466: ELSE
467: ResultOut := 'COMPLETE:F';
468: END IF;

Line 491: WF_Engine.SetItemAttrText

487:
488: EXCEPTION
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 );

Line 536: L_Chg_Request_ID := WF_ENGINE.GetItemAttrNumber

532: IF ( L_Approved_Status IS NULL ) THEN
533: RAISE NO_DATA_FOUND;
534: END IF;
535:
536: L_Chg_Request_ID := WF_ENGINE.GetItemAttrNumber
537: ( itemtype => ItemType
538: , ItemKey => ItemKey
539: , AName => 'CHG_REQUEST_ID' );
540:

Line 568: WF_Engine.SetItemAttrText

564:
565: EXCEPTION
566: WHEN NO_DATA_FOUND THEN
567: ResultOut := 'ERROR:';
568: WF_Engine.SetItemAttrText
569: ( ItemType => ItemType , ItemKey => ItemKey , AName => 'ERRORTEXT'
570: , AValue => FND_MESSAGE.Get_String('OKE' , 'OKE_CHGREQ_NODEF_APPR_STS') );
571: WF_Core.Context( 'OKE_CHG_REQUESTS_WF'
572: , 'SET_APPROVED_STATUS'

Line 578: WF_Engine.SetItemAttrText

574: RAISE;
575:
576: WHEN OTHERS THEN
577: ResultOut := 'ERROR:';
578: WF_Engine.SetItemAttrText
579: ( ItemType => ItemType , ItemKey => ItemKey , AName => 'ERRORTEXT' , AValue => sqlerrm );
580: WF_Core.Context( 'OKE_CHG_REQUESTS_WF'
581: , 'SET_APPROVED_STATUS'
582: , ItemType , ItemKey , to_char(ActID) , FuncMode , ResultOut );

Line 623: L_Chg_Request_ID := WF_ENGINE.GetItemAttrNumber

619: IF ( L_Rejected_Status IS NULL ) THEN
620: RAISE NO_DATA_FOUND;
621: END IF;
622:
623: L_Chg_Request_ID := WF_ENGINE.GetItemAttrNumber
624: ( itemtype => ItemType
625: , ItemKey => ItemKey
626: , AName => 'CHG_REQUEST_ID' );
627:

Line 655: WF_Engine.SetItemAttrText

651:
652: EXCEPTION
653: WHEN NO_DATA_FOUND THEN
654: ResultOut := 'ERROR:';
655: WF_Engine.SetItemAttrText
656: ( ItemType => ItemType , ItemKey => ItemKey , AName => 'ERRORTEXT'
657: , AValue => FND_MESSAGE.Get_String('OKE' , 'OKE_CHGREQ_NODEF_REJ_STS') );
658: WF_Core.Context( 'OKE_CHG_REQUESTS_WF'
659: , 'SET_APPROVED_STATUS'

Line 665: WF_Engine.SetItemAttrText

661: RAISE;
662:
663: WHEN OTHERS THEN
664: ResultOut := 'ERROR';
665: WF_Engine.SetItemAttrText
666: ( ItemType => ItemType , ItemKey => ItemKey , AName => 'ERRORTEXT' , AValue => sqlerrm );
667: WF_Core.Context( 'OKE_CHG_REQUESTS_WF'
668: , 'SET_REJECTED_STATUS'
669: , ItemType , ItemKey , to_char(ActID) , FuncMode , ResultOut );