162: IF (diagn_debug_msg_flag) AND (G_DIR is NOT NULL ) THEN
163: diagn_debug_msg('Create_And_Start_Wf: ' || 'Executing Start_Approval_Workflow for request_id '||
164: to_char(p_request_Id));
165: END IF;
166: wf_engine.CreateProcess( itemtype => p_item_type,
167: itemkey => p_item_key,
168: process => 'GL_SD_ALLOCATION_PROCESS' );
169:
170: IF (diagn_debug_msg_flag) AND (G_DIR is NOT NULL ) THEN
175: Fetch coa_id into l_chart_of_accounts_id;
176: CLOSE coa_id;
177:
178: -- Set item user key
179: wf_engine.SetItemUserKey( itemtype => p_item_type,
180: itemkey => p_item_key,
181: userkey => l_allocation_set_name );
182:
183:
180: itemkey => p_item_key,
181: userkey => l_allocation_set_name );
182:
183:
184: wf_engine.SetItemAttrText(itemtype => p_item_type,
185: itemkey => p_item_key,
186: aname => 'SET_NAME',
187: avalue => l_allocation_set_name );
188:
185: itemkey => p_item_key,
186: aname => 'SET_NAME',
187: avalue => l_allocation_set_name );
188:
189: wf_engine.SetItemAttrNumber( itemtype => p_item_type,
190: itemkey => p_item_key,
191: aname => 'SET_REQ_ID',
192: avalue => p_request_Id );
193:
205: fetch f_user_name into fnd_user_name;
206: close f_user_name;
207:
208: -- Set the process owner
209: wf_engine.SetItemOwner( itemtype => p_item_type,
210: itemkey => p_item_key,
211: owner => fnd_user_name );
212:
213: FND_PROFILE.GET('GL_JRNL_REVW_REQUIRED', l_value);
210: itemkey => p_item_key,
211: owner => fnd_user_name );
212:
213: FND_PROFILE.GET('GL_JRNL_REVW_REQUIRED', l_value);
214: wf_engine.SetItemAttrText( itemtype => p_item_type,
215: itemkey => p_item_key,
216: aname => 'GL_JRNL_REVW_REQUIRED',
217: avalue => l_value );
218:
224: Else
225: l_continue_next_step := 'N';
226: End If;
227:
228: wf_engine.SetItemAttrText( itemtype => p_item_type,
229: itemkey => p_item_key,
230: aname => 'CONTINUE_NEXT_STEP',
231: avalue => l_continue_next_step);
232:
229: itemkey => p_item_key,
230: aname => 'CONTINUE_NEXT_STEP',
231: avalue => l_continue_next_step);
232:
233: wf_engine.SetItemAttrNumber( itemtype => p_item_type,
234: itemkey => p_item_key,
235: aname => 'USER_ID',
236: avalue => l_user_id );
237:
234: itemkey => p_item_key,
235: aname => 'USER_ID',
236: avalue => l_user_id );
237:
238: wf_engine.SetItemAttrNumber( itemtype => p_item_type,
239: itemkey => p_item_key,
240: aname => 'ORG_ID',
241: avalue => l_org_id );
242:
239: itemkey => p_item_key,
240: aname => 'ORG_ID',
241: avalue => l_org_id );
242:
243: wf_engine.SetItemAttrNumber( itemtype => p_item_type,
244: itemkey => p_item_key,
245: aname => 'RESP_ID',
246: avalue => l_resp_id );
247:
244: itemkey => p_item_key,
245: aname => 'RESP_ID',
246: avalue => l_resp_id );
247:
248: wf_engine.SetItemAttrNumber( itemtype => p_item_type,
249: itemkey => p_item_key,
250: aname => 'BUSINESS_GROUP_ID',
251: avalue => l_business_group_id );
252:
249: itemkey => p_item_key,
250: aname => 'BUSINESS_GROUP_ID',
251: avalue => l_business_group_id );
252:
253: wf_engine.SetItemAttrText( itemtype => p_item_type,
254: itemkey => p_item_key,
255: aname => 'GL_ALLOW_PREPARER_APPROVAL',
256: avalue => l_gl_allow_preparer_approval );
257:
254: itemkey => p_item_key,
255: aname => 'GL_ALLOW_PREPARER_APPROVAL',
256: avalue => l_gl_allow_preparer_approval );
257:
258: wf_engine.SetItemAttrNumber( itemtype => p_item_type,
259: itemkey => p_item_key,
260: aname => 'RESP_APPL_ID',
261: avalue => l_resp_appl_id );
262:
269: Exception
270: When others then
271: l_monitor_url := 'Invalid URL';
272: end;
273: wf_engine.SetItemAttrText( itemtype => p_item_type,
274: itemkey => p_item_key,
275: aname => 'MONITOR_URL',
276: avalue => l_monitor_url);
277: IF (diagn_debug_msg_flag) AND (G_DIR is NOT NULL ) THEN
281: SET MONITOR_URL = l_monitor_url
282: Where Request_Id = to_number(p_item_key);
283:
284:
285: wf_engine.SetItemAttrText( itemtype => p_item_type,
286: itemkey => p_item_key,
287: aname => 'ROLLBACK_ALLOWED',
288: avalue => l_rollback_allowed);
289:
290: IF (diagn_debug_msg_flag) AND (G_DIR is NOT NULL ) THEN
291: diagn_debug_msg('Create_And_Start_Wf: ' || 'Attribute Roolback_Allowed = ' ||l_rollback_allowed);
292: END IF;
293:
294: --wf_engine.SetItemAttrText( itemtype => p_item_type,
295: -- itemkey => p_item_key,
296: -- aname => 'BUD_CONTROL_FLAG',
297: -- avalue => l_ENABLE_BUDGETARY_CON_FLAG);
298:
295: -- itemkey => p_item_key,
296: -- aname => 'BUD_CONTROL_FLAG',
297: -- avalue => l_ENABLE_BUDGETARY_CON_FLAG);
298:
299: --wf_engine.SetItemAttrText( itemtype => p_item_type,
300: -- itemkey => p_item_key,
301: -- aname => 'AUTOMATIC_TAX_FLAG',
302: -- avalue => l_ENABLE_AUTOMATIC_TAX_FLAG);
303:
300: -- itemkey => p_item_key,
301: -- aname => 'AUTOMATIC_TAX_FLAG',
302: -- avalue => l_ENABLE_AUTOMATIC_TAX_FLAG);
303:
304: --wf_engine.SetItemAttrNumber( itemtype => p_item_type,
305: -- itemkey => p_item_key,
306: -- aname => 'LATEST_ENCUMBRANCE_YEAR',
307: -- avalue => l_LATEST_ENCUMBRANCE_YEAR);
308:
306: -- aname => 'LATEST_ENCUMBRANCE_YEAR',
307: -- avalue => l_LATEST_ENCUMBRANCE_YEAR);
308:
309:
310: wf_engine.SetItemAttrText( itemtype => p_item_type,
311: itemkey => p_item_key,
312: aname => 'STEP_CONTACT',
313: avalue => l_OWNER);
314:
311: itemkey => p_item_key,
312: aname => 'STEP_CONTACT',
313: avalue => l_OWNER);
314:
315: wf_engine.SetItemAttrNumber( itemtype => p_item_type,
316: itemkey => p_item_key,
317: aname => 'LEDGER_ID',
318: avalue => l_LEDGER_ID);
319:
320: IF (diagn_debug_msg_flag) AND (G_DIR is NOT NULL ) THEN
321: diagn_debug_msg('Create_And_Start_Wf: ' || 'Attribute LEDGER_ID = ' || to_char(l_LEDGER_ID));
322: END IF;
323:
324: wf_engine.SetItemAttrText( itemtype => p_item_type,
325: itemkey => p_item_key,
326: aname => 'LEDGER_CURRENCY',
327: avalue => l_LEDGER_CURRENCY);
328:
329: IF (diagn_debug_msg_flag) AND (G_DIR is NOT NULL ) THEN
330: diagn_debug_msg('Create_And_Start_Wf: ' || 'Attribute LEDGER_CURRENCY = ' || l_LEDGER_CURRENCY);
331: END IF;
332:
333: wf_engine.SetItemAttrNumber( itemtype => p_item_type,
334: itemkey => p_item_key,
335: aname => 'ACCESS_SET_ID',
336: avalue => l_ACCESS_SET_ID);
337:
338: IF (diagn_debug_msg_flag) AND (G_DIR is NOT NULL ) THEN
339: diagn_debug_msg('Create_And_Start_Wf: ' || 'Attribute ACCESS_SET_ID = ' || to_char(l_ACCESS_SET_ID));
340: END IF;
341:
342: wf_engine.SetItemAttrText( itemtype => p_item_type,
343: itemkey => p_item_key,
344: aname => 'BALANCING_SEGMENT_VALUE',
345: avalue => l_BALANCING_SEGMENT_VALUE);
346:
347: IF (diagn_debug_msg_flag) AND (G_DIR is NOT NULL ) THEN
348: diagn_debug_msg('Create_And_Start_Wf: ' || 'Attribute BALANCING_SEGMENT_VALUE = ' || l_BALANCING_SEGMENT_VALUE);
349: END IF;
350:
351: wf_engine.SetItemAttrNumber( itemtype => p_item_type,
352: itemkey => p_item_key,
353: aname => 'CHART_OF_ACCOUNTS_ID',
354: avalue => l_CHART_OF_ACCOUNTS_ID);
355:
356: IF (diagn_debug_msg_flag) AND (G_DIR is NOT NULL ) THEN
357: diagn_debug_msg('Create_And_Start_Wf: ' || 'Attribute CHART_OF_ACCOUNTS_ID = ' || to_char(l_CHART_OF_ACCOUNTS_ID));
358: END IF;
359:
360: wf_engine.SetItemAttrText( itemtype => p_item_type,
361: itemkey => p_item_key,
362: aname => 'PERIOD_NAME',
363: avalue => l_PERIOD_NAME);
364: IF (diagn_debug_msg_flag) AND (G_DIR is NOT NULL ) THEN
364: IF (diagn_debug_msg_flag) AND (G_DIR is NOT NULL ) THEN
365: diagn_debug_msg('Create_And_Start_Wf: ' || 'Attribute PERIOD_NAME = ' ||l_PERIOD_NAME);
366: END IF;
367:
368: wf_engine.SetItemAttrNumber( itemtype => p_item_type,
369: itemkey => p_item_key,
370: aname => 'BUDGET_VERSION_ID',
371: avalue => l_BUDGET_VERSION_ID);
372:
374: diagn_debug_msg('Create_And_Start_Wf: ' || 'Attribute BUDGET_VERSION_ID = ' ||
375: to_char(l_BUDGET_VERSION_ID));
376: END IF;
377:
378: wf_engine.SetItemAttrDate( itemtype => p_item_type,
379: itemkey => p_item_key,
380: aname => 'JOURNAL_EFFECTIVE_DATE',
381: avalue => l_JOURNAL_EFFECTIVE_DATE);
382: IF (diagn_debug_msg_flag) AND (G_DIR is NOT NULL ) THEN
383: diagn_debug_msg('Create_And_Start_Wf: ' || 'Attribute JOURNAL_EFFECTIVE_DATE = ' ||
384: to_char(l_JOURNAL_EFFECTIVE_DATE));
385: END IF;
386:
387: wf_engine.SetItemAttrDate( itemtype => p_item_type,
388: itemkey => p_item_key,
389: aname => 'CALCULATION_EFFECTIVE_DATE',
390: avalue => l_CALCULATION_EFFECTIVE_DATE);
391: IF (diagn_debug_msg_flag) AND (G_DIR is NOT NULL ) THEN
392: diagn_debug_msg('Create_And_Start_Wf: ' || 'Attribute CALCULATION_EFFECTIVE_DATE = ' ||
393: to_char(l_CALCULATION_EFFECTIVE_DATE));
394: END IF;
395:
396: wf_engine.SetItemAttrDate( itemtype => p_item_type,
397: itemkey => p_item_key,
398: aname => 'EXPENDITURE_ITEM_DATE',
399: avalue => l_EXPENDITURE_ITEM_DATE);
400: IF (diagn_debug_msg_flag) AND (G_DIR is NOT NULL ) THEN
401: diagn_debug_msg('Create_And_Start_Wf: ' || 'Attribute EXPENDITURE_ITEM_DATE = ' ||
402: to_char(l_EXPENDITURE_ITEM_DATE));
403: END IF;
404:
405: wf_engine.SetItemAttrText( itemtype => p_item_type,
406: itemkey => p_item_key,
407: aname => 'USAGE_CODE',
408: avalue => l_USAGE_CODE);
409: IF (diagn_debug_msg_flag) AND (G_DIR is NOT NULL ) THEN
409: IF (diagn_debug_msg_flag) AND (G_DIR is NOT NULL ) THEN
410: diagn_debug_msg('Create_And_Start_Wf: ' || 'Attribute USAGE_CODE = ' ||l_USAGE_CODE);
411: END IF;
412:
413: wf_engine.SetItemAttrText( itemtype => p_item_type,
414: itemkey => p_item_key,
415: aname => 'GL_PERIOD_NAME',
416: avalue => l_GL_PERIOD_NAME);
417: IF (diagn_debug_msg_flag) AND (G_DIR is NOT NULL ) THEN
418: diagn_debug_msg('Create_And_Start_Wf: ' || 'Attribute GL_PERIOD_NAME = ' ||l_GL_PERIOD_NAME);
419: END IF;
420:
421:
422: wf_engine.SetItemAttrText( itemtype => p_item_type,
423: itemkey => p_item_key,
424: aname => 'PA_PERIOD_NAME',
425: avalue => l_PA_PERIOD_NAME);
426: IF (diagn_debug_msg_flag) AND (G_DIR is NOT NULL ) THEN
426: IF (diagn_debug_msg_flag) AND (G_DIR is NOT NULL ) THEN
427: diagn_debug_msg('Create_And_Start_Wf: ' || 'Attribute PA_PERIOD_NAME = ' ||l_PA_PERIOD_NAME);
428: END IF;
429:
430: wf_engine.SetItemAttrNumber( itemtype => p_item_type,
431: itemkey => p_item_key,
432: aname => 'CREATED_BY',
433: avalue => l_CREATED_BY);
434: IF (diagn_debug_msg_flag) AND (G_DIR is NOT NULL ) THEN
434: IF (diagn_debug_msg_flag) AND (G_DIR is NOT NULL ) THEN
435: diagn_debug_msg('Create_And_Start_Wf: ' || 'Attribute CREATED_BY = ' ||to_char(l_CREATED_BY));
436: END IF;
437:
438: wf_engine.SetItemAttrNumber( itemtype => p_item_type,
439: itemkey => p_item_key,
440: aname => 'LAST_UPDATED_BY',
441: avalue => l_LAST_UPDATED_BY);
442: IF (diagn_debug_msg_flag) AND (G_DIR is NOT NULL ) THEN
443: diagn_debug_msg('Create_And_Start_Wf: ' || 'Attribute CREATED_BY = ' ||to_char(l_LAST_UPDATED_BY));
444: END IF;
445:
446:
447: wf_engine.SetItemAttrNumber( itemtype => p_item_type,
448: itemkey => p_item_key,
449: aname => 'LAST_UPDATE_LOGIN',
450: avalue => l_LAST_UPDATE_LOGIN);
451: IF (diagn_debug_msg_flag) AND (G_DIR is NOT NULL ) THEN
451: IF (diagn_debug_msg_flag) AND (G_DIR is NOT NULL ) THEN
452: diagn_debug_msg('Create_And_Start_Wf: ' || 'Attribute LAST_UPDATE_LOGIN = ' ||to_char(l_LAST_UPDATE_LOGIN));
453: diagn_debug_msg('Create_And_Start_Wf: ' || 'Process GL_SD_ALLOCATION_PROCESS starting');
454: END IF;
455: wf_engine.StartProcess( itemtype => p_item_type,
456: itemkey => p_item_key );
457:
458:
459: End If;
518: GL_AUTO_ALLOC_WF_PKG.p_item_key := p_item_key;
519: IF (diagn_debug_msg_flag) AND (G_DIR is NOT NULL ) THEN
520: diagn_debug_msg('Executing: Next_Step_Type');
521: END IF;
522: l_step := WF_ENGINE.GetItemAttrNumber
523: (p_item_type,
524: p_item_key,
525: 'STEP_NUMBER');
526:
529: l_step <> 0 Then
530: IF (diagn_debug_msg_flag) AND (G_DIR is NOT NULL ) THEN
531: diagn_debug_msg('Next_Step_Type: ' || 'Previous step = '||To_Char(l_step));
532: END IF;
533: l_batch_id := WF_ENGINE.GetItemAttrNumber
534: (p_item_type,
535: p_item_key,
536: 'BATCH_ID');
537:
534: (p_item_type,
535: p_item_key,
536: 'BATCH_ID');
537:
538: l_batch_type_code := WF_ENGINE.GetItemAttrText
539: (p_item_type,
540: p_item_key,
541: 'BATCH_TYPE_CODE');
542:
619: diagn_debug_msg('Next_Step_Type: ' || 'FETCHED NEXT STEP = '||to_char(f_step_number)||
620: ' Batch_Type_Code = '||f_batch_type_code);
621: diagn_debug_msg('Next_Step_Type: ' || '***********************************************');
622: END IF;
623: wf_engine.SetItemAttrNumber(
624: itemtype => p_item_type,
625: ITEMkey => p_item_key,
626: aname => 'STEP_NUMBER',
627: avalue => f_step_number );
625: ITEMkey => p_item_key,
626: aname => 'STEP_NUMBER',
627: avalue => f_step_number );
628:
629: wf_engine.SetItemAttrtext(
630: itemtype => p_item_type,
631: itemkey => p_item_key,
632: aname => 'BATCH_TYPE_CODE',
633: avalue => f_batch_type_code );
631: itemkey => p_item_key,
632: aname => 'BATCH_TYPE_CODE',
633: avalue => f_batch_type_code );
634:
635: wf_engine.SetItemAttrNumber(
636: itemtype => p_item_type,
637: itemkey => p_item_key,
638: aname => 'BATCH_ID',
639: avalue => f_batch_id );
637: itemkey => p_item_key,
638: aname => 'BATCH_ID',
639: avalue => f_batch_id );
640:
641: wf_engine.SetItemAttrtext(
642: itemtype => p_item_type,
643: itemkey => p_item_key,
644: aname => 'ALLOCATION_METHOD_CODE',
645: avalue => f_allocation_method_code );
643: itemkey => p_item_key,
644: aname => 'ALLOCATION_METHOD_CODE',
645: avalue => f_allocation_method_code );
646:
647: wf_engine.SetItemAttrtext(
648: itemtype => p_item_type,
649: itemkey => p_item_key,
650: aname => 'STEP_CONTACT',
651: avalue => f_owner );
661: Else
662: f_batch_name := NULL;
663: End If;
664:
665: wf_engine.SetItemAttrtext(
666: itemtype => p_item_type,
667: itemkey => p_item_key,
668: aname => 'BATCH_NAME',
669: avalue => f_batch_name );
713: IF (diagn_debug_msg_flag) AND (G_DIR is NOT NULL ) THEN
714: diagn_debug_msg('Started Find_Je_Batch_Type');
715: END IF;
716:
717: l_Batch_Type_Code := WF_ENGINE.GetItemAttrText
718: (p_item_type,
719: p_item_key,
720: 'BATCH_TYPE_CODE');
721: l_batch_id := WF_ENGINE.GetItemAttrNumber
717: l_Batch_Type_Code := WF_ENGINE.GetItemAttrText
718: (p_item_type,
719: p_item_key,
720: 'BATCH_TYPE_CODE');
721: l_batch_id := WF_ENGINE.GetItemAttrNumber
722: (p_item_type,
723: p_item_key,
724: 'BATCH_ID');
725: l_step_number := WF_ENGINE.GetItemAttrNumber
721: l_batch_id := WF_ENGINE.GetItemAttrNumber
722: (p_item_type,
723: p_item_key,
724: 'BATCH_ID');
725: l_step_number := WF_ENGINE.GetItemAttrNumber
726: (p_item_type,
727: p_item_key,
728: 'STEP_NUMBER');
729:
750: diagn_debug_msg('Find_Je_Batch_Type: ' || 'Incorrect batch type = '||l_Batch_Type_Code);
751: END IF;
752: End if;
753:
754: wf_engine.SetItemAttrText
755: ( itemtype => p_item_type,
756: itemkey => p_item_key,
757: aname => 'DEFINITION_FORM',
758: avalue => l_definition_form );
792: GL_AUTO_ALLOC_WF_PKG.p_item_key := p_item_key;
793: IF (diagn_debug_msg_flag) AND (G_DIR is NOT NULL ) THEN
794: diagn_debug_msg('Started Is_Review_Required');
795: END IF;
796: l_step_number := WF_ENGINE.GetItemAttrNumber
797: (p_item_type,
798: p_item_key,
799: 'STEP_NUMBER');
800:
797: (p_item_type,
798: p_item_key,
799: 'STEP_NUMBER');
800:
801: l_rollback_allowed := WF_ENGINE.GetItemAttrText(
802: p_item_type,
803: p_item_key,
804: 'ROLLBACK_ALLOWED');
805:
802: p_item_type,
803: p_item_key,
804: 'ROLLBACK_ALLOWED');
805:
806: l_batch_review_required := WF_ENGINE.GetItemAttrText(
807: p_item_type,
808: p_item_key,
809: 'GL_JRNL_REVW_REQUIRED');
810:
818: Else
819: l_message_name := 'GLALLOC:BATCH_REVIEW_REQUIRED_NRB';
820: End If;
821:
822: wf_engine.SetItemAttrText(itemtype => p_item_type,
823: itemkey => p_item_key,
824: aname => 'MESSAGE_NAME',
825: avalue => l_message_Name );
826:
886: GL_AUTO_ALLOC_WF_PKG.p_item_key := p_item_key;
887: IF (diagn_debug_msg_flag) AND (G_DIR is NOT NULL ) THEN
888: diagn_debug_msg('Started Is_Approval_Required');
889: END IF;
890: --l_gen_batch_id := WF_ENGINE.GetItemAttrNumber
891: -- (p_item_type,
892: -- p_item_key,
893: -- 'GEN_BATCH_ID');
894: l_step_number := WF_ENGINE.GetItemAttrNumber
890: --l_gen_batch_id := WF_ENGINE.GetItemAttrNumber
891: -- (p_item_type,
892: -- p_item_key,
893: -- 'GEN_BATCH_ID');
894: l_step_number := WF_ENGINE.GetItemAttrNumber
895: (p_item_type,
896: p_item_key,
897: 'STEP_NUMBER');
898:
986: IF (diagn_debug_msg_flag) AND (G_DIR is NOT NULL ) THEN
987: diagn_debug_msg('Started Launch_JE_Approval');
988: END IF;
989:
990: l_step_number := WF_ENGINE.GetItemAttrNumber
991: (p_item_type,
992: p_item_key,
993: 'STEP_NUMBER');
994:
991: (p_item_type,
992: p_item_key,
993: 'STEP_NUMBER');
994:
995: l_user_id := WF_ENGINE.GetItemAttrNumber
996: (p_item_type,
997: p_item_key,
998: 'USER_ID');
999:
996: (p_item_type,
997: p_item_key,
998: 'USER_ID');
999:
1000: l_resp_id := WF_ENGINE.GetItemAttrNumber
1001: (p_item_type,
1002: p_item_key,
1003: 'RESP_ID');
1004:
1001: (p_item_type,
1002: p_item_key,
1003: 'RESP_ID');
1004:
1005: l_org_id := WF_ENGINE.GetItemAttrNumber
1006: (p_item_type,
1007: p_item_key,
1008: 'ORG_ID');
1009:
1007: p_item_key,
1008: 'ORG_ID');
1009:
1010:
1011: l_resp_appl_id := WF_ENGINE.GetItemAttrNumber
1012: (p_item_type,
1013: p_item_key,
1014: 'RESP_APPL_ID');
1015:
1012: (p_item_type,
1013: p_item_key,
1014: 'RESP_APPL_ID');
1015:
1016: l_business_group_id := WF_ENGINE.GetItemAttrNumber
1017: (p_item_type,
1018: p_item_key,
1019: 'BUSINESS_GROUP_ID');
1020:
1017: (p_item_type,
1018: p_item_key,
1019: 'BUSINESS_GROUP_ID');
1020:
1021: l_gl_allow_preparer_approval := WF_ENGINE.GetItemAttrText
1022: (p_item_type,
1023: p_item_key,
1024: 'GL_ALLOW_PREPARER_APPROVAL');
1025:
1099: IF (diagn_debug_msg_flag) AND (G_DIR is NOT NULL ) THEN
1100: diagn_debug_msg('Started Is_Batch_Approved');
1101: END IF;
1102:
1103: l_step_number := WF_ENGINE.GetItemAttrNumber
1104: (p_item_type,
1105: p_item_key,
1106: 'STEP_NUMBER');
1107: l_rollback_allowed := WF_ENGINE.GetItemAttrText(
1103: l_step_number := WF_ENGINE.GetItemAttrNumber
1104: (p_item_type,
1105: p_item_key,
1106: 'STEP_NUMBER');
1107: l_rollback_allowed := WF_ENGINE.GetItemAttrText(
1108: p_item_type,
1109: p_item_key,
1110: 'ROLLBACK_ALLOWED');
1111:
1141: Else
1142: l_message_name := 'GLALLOC:JOURNAL_APPROVAL_REQUIRED_NRB';
1143: End If;
1144:
1145: wf_engine.SetItemAttrText(itemtype => p_item_type,
1146: itemkey => p_item_key,
1147: aname => 'MESSAGE_NAME',
1148: avalue => l_message_Name );
1149:
1218: IF (diagn_debug_msg_flag) AND (G_DIR is NOT NULL ) THEN
1219: diagn_debug_msg('Started Is_Batch_Generated');
1220: END IF;
1221:
1222: l_step_number := WF_ENGINE.GetItemAttrNumber
1223: (p_item_type,
1224: p_item_key,
1225: 'STEP_NUMBER');
1226:
1223: (p_item_type,
1224: p_item_key,
1225: 'STEP_NUMBER');
1226:
1227: l_access_set_id := WF_ENGINE.GetItemAttrNumber
1228: (p_item_type,
1229: p_item_key,
1230: 'ACCESS_SET_ID');
1231:
1229: p_item_key,
1230: 'ACCESS_SET_ID');
1231:
1232:
1233: l_batch_id := WF_ENGINE.GetItemAttrNumber
1234: (p_item_type,
1235: p_item_key,
1236: 'BATCH_ID');
1237:
1234: (p_item_type,
1235: p_item_key,
1236: 'BATCH_ID');
1237:
1238: l_batch_type_code := WF_ENGINE.GetItemAttrText(
1239: p_item_type,
1240: p_item_key,
1241: 'BATCH_TYPE_CODE');
1242:
1240: p_item_key,
1241: 'BATCH_TYPE_CODE');
1242:
1243:
1244: l_rollback_allowed := WF_ENGINE.GetItemAttrText(
1245: p_item_type,
1246: p_item_key,
1247: 'ROLLBACK_ALLOWED');
1248:
1264: '"' || ' autoquery_criteria=' || to_char(l_generated_je_batch_id) ||
1265: ' autoquery_access_id=' || to_char(l_access_set_id);
1266: END IF;
1267:
1268: wf_engine.SetItemAttrText ( itemtype => p_item_type,
1269: itemkey => p_item_key,
1270: aname => 'ENTER_JOURNALS_FORM',
1271: avalue => l_enter_journals );
1272:
1289: --Else
1290: -- l_message_name := 'GLALLOC:NO_BATCH_GENERATED_NRB';
1291: --End If;
1292:
1293: --wf_engine.SetItemAttrText(itemtype => p_item_type,
1294: -- itemkey => p_item_key,
1295: -- aname => 'MESSAGE_NAME',
1296: -- avalue => l_message_Name );
1297:
1361: IF (diagn_debug_msg_flag) AND (G_DIR is NOT NULL ) THEN
1362: diagn_debug_msg('Started Select_And_Validate_Batch');
1363: END IF;
1364:
1365: l_step_number := WF_ENGINE.GetItemAttrNumber
1366: (p_item_type,
1367: p_item_key,
1368: 'STEP_NUMBER');
1369: l_rollback_allowed := WF_ENGINE.GetItemAttrText(
1365: l_step_number := WF_ENGINE.GetItemAttrNumber
1366: (p_item_type,
1367: p_item_key,
1368: 'STEP_NUMBER');
1369: l_rollback_allowed := WF_ENGINE.GetItemAttrText(
1370: p_item_type,
1371: p_item_key,
1372: 'ROLLBACK_ALLOWED');
1373: OPEN get_all_batches_C;
1419: Else
1420: l_message_name := 'GLALLOC:GEN_BATCH_NOT_POSTABLE_NRB';
1421: End If;
1422:
1423: wf_engine.SetItemAttrText(itemtype => p_item_type,
1424: itemkey => p_item_key,
1425: aname => 'MESSAGE_NAME',
1426: avalue => l_message_Name );
1427:
1430: END IF;
1431:
1432: l_batches_not_valid := substrb(l_batches_not_valid,1,2000);
1433:
1434: wf_engine.SetItemAttrText(
1435: itemtype => p_item_type,
1436: itemkey => p_item_key,
1437: aname => 'ERROR_BATCHES',
1438: avalue => l_batches_not_valid );
1493: IF (diagn_debug_msg_flag) AND (G_DIR is NOT NULL ) THEN
1494: diagn_debug_msg('Started Is_Batch_Posted');
1495: END IF;
1496:
1497: l_step_number := WF_ENGINE.GetItemAttrNumber
1498: (p_item_type,
1499: p_item_key,
1500: 'STEP_NUMBER');
1501: l_rollback_allowed := WF_ENGINE.GetItemAttrText(
1497: l_step_number := WF_ENGINE.GetItemAttrNumber
1498: (p_item_type,
1499: p_item_key,
1500: 'STEP_NUMBER');
1501: l_rollback_allowed := WF_ENGINE.GetItemAttrText(
1502: p_item_type,
1503: p_item_key,
1504: 'ROLLBACK_ALLOWED');
1505:
1533: Else
1534: l_message_name := 'GLALLOC:GEN_BATCH_NOT_POSTED_NRB';
1535: End If;
1536:
1537: wf_engine.SetItemAttrText(itemtype => p_item_type,
1538: itemkey => p_item_key,
1539: aname => 'MESSAGE_NAME',
1540: avalue => l_message_Name );
1541: IF (diagn_debug_msg_flag) AND (G_DIR is NOT NULL ) THEN
1737: GL_AUTO_ALLOC_WF_PKG.p_item_key := p_item_key;
1738: IF (diagn_debug_msg_flag) AND (G_DIR is NOT NULL ) THEN
1739: diagn_debug_msg('Rollback:Started Are_More_JE_Reverse');
1740: END IF;
1741: l_step_number := WF_ENGINE.GetItemAttrNumber
1742: (p_item_type,
1743: p_item_key,
1744: 'STEP_NUMBER');
1745:
1743: p_item_key,
1744: 'STEP_NUMBER');
1745:
1746:
1747: l_gen_batch_id := WF_ENGINE.GetItemAttrNumber
1748: (p_item_type,
1749: p_item_key,
1750: 'GEN_BATCH_ID');
1751:
1754: Fetch Get_Headers_C Into f_je_header_id;
1755: Close Get_Headers_C;
1756:
1757: If f_je_header_id IS NOT NULL Then
1758: WF_ENGINE.SetItemAttrNumber
1759: (p_item_type,
1760: p_item_key,
1761: 'JE_HEADER_ID'
1762: ,f_je_header_id);
1791:
1792: End If; /* f_je_header_id is not null */
1793:
1794: Loop
1795: l_step_number := WF_ENGINE.GetItemAttrNumber
1796: (p_item_type,
1797: p_item_key,
1798: 'STEP_NUMBER');
1799:
1796: (p_item_type,
1797: p_item_key,
1798: 'STEP_NUMBER');
1799:
1800: l_gen_batch_id := WF_ENGINE.GetItemAttrNumber
1801: (p_item_type,
1802: p_item_key,
1803: 'GEN_BATCH_ID');
1804:
1804:
1805: Open Get_Batches_C;
1806: Fetch Get_Batches_C into l_step_number, l_gen_batch_id;
1807:
1808: wf_engine.SetItemAttrNumber( itemtype => p_item_type,
1809: itemkey => p_item_key,
1810: aname => 'GEN_BATCH_ID',
1811: avalue => l_gen_batch_id );
1812:
1809: itemkey => p_item_key,
1810: aname => 'GEN_BATCH_ID',
1811: avalue => l_gen_batch_id );
1812:
1813: wf_engine.SetItemAttrNumber( itemtype => p_item_type,
1814: itemkey => p_item_key,
1815: aname => 'STEP_NUMBER',
1816: avalue => l_step_number );
1817:
1836: Open Get_Headers_C;
1837: Fetch Get_Headers_C Into f_je_header_id;
1838: Close Get_Headers_C;
1839: If f_je_header_id IS NOT NULL Then
1840: WF_ENGINE.SetItemAttrNumber
1841: (p_item_type,
1842: p_item_key,
1843: 'JE_HEADER_ID'
1844: ,f_je_header_id);
2003: GL_AUTO_ALLOC_WF_PKG.p_item_key := p_item_key;
2004: IF (diagn_debug_msg_flag) AND (G_DIR is NOT NULL ) THEN
2005: diagn_debug_msg('Started Is_Jrnl_Reversed');
2006: END IF;
2007: l_je_header_id := WF_ENGINE.GetItemAttrNumber
2008: (p_item_type,
2009: p_item_key,
2010: 'JE_HEADER_ID');
2011: l_step_number := WF_ENGINE.GetItemAttrNumber
2007: l_je_header_id := WF_ENGINE.GetItemAttrNumber
2008: (p_item_type,
2009: p_item_key,
2010: 'JE_HEADER_ID');
2011: l_step_number := WF_ENGINE.GetItemAttrNumber
2012: (p_item_type,
2013: p_item_key,
2014: 'STEP_NUMBER');
2015:
2025: diagn_debug_msg('Is_Jrnl_Reversed: ' || 'Sending Notification. Journal not reversed');
2026: END IF;
2027:
2028: l_message_Name := 'GLALLOC:JRNL_NOT_REVERSED';
2029: wf_engine.SetItemAttrText(itemtype => p_item_type,
2030: itemkey => p_item_key,
2031: aname => 'MESSAGE_NAME',
2032: avalue => l_message_Name );
2033:
2152: diagn_debug_msg('Select_And_Validate_AllBatches: ' || 'Rollback:Batches not valid for posting = '||l_batches_not_valid||
2153: ' Sending Notification' );
2154: END IF;
2155: l_message_name := 'GLALLOC:JE_BATCHES_NOT_POSTABLE';
2156: wf_engine.SetItemAttrText(itemtype => p_item_type,
2157: itemkey => p_item_key,
2158: aname => 'MESSAGE_NAME',
2159: avalue => l_message_Name );
2160: IF (diagn_debug_msg_flag) AND (G_DIR is NOT NULL ) THEN
2162: END IF;
2163:
2164: --max length for text variable in WF is 2000
2165: l_batches_not_valid := substrb(l_batches_not_valid,1,2000);
2166: wf_engine.SetItemAttrText(itemtype => p_item_type,
2167: itemkey => p_item_key,
2168: aname => 'ERROR_BATCHES',
2169: avalue => l_batches_not_valid );
2170: p_result := 'COMPLETE:FAIL';
2247: IF (diagn_debug_msg_flag) AND (G_DIR is NOT NULL ) THEN
2248: diagn_debug_msg('Are_All_Batches_Posted: ' || 'Rollback:Failed batches = '||l_fail_batches||' Sending Notification ');
2249: END IF;
2250: l_message_name := 'GLALLOC:GEN_BATCHES_NOT_POSTED';
2251: wf_engine.SetItemAttrText(itemtype => p_item_type,
2252: itemkey => p_item_key,
2253: aname => 'MESSAGE_NAME',
2254: avalue => l_message_Name );
2255: IF (diagn_debug_msg_flag) AND (G_DIR is NOT NULL ) THEN
2306: GL_AUTO_ALLOC_WF_PKG.p_item_key := p_item_key;
2307: IF (diagn_debug_msg_flag) AND (G_DIR is NOT NULL ) THEN
2308: diagn_debug_msg('Started Is_Rollback_Allowed');
2309: END IF;
2310: l_Rollback_Allowed := WF_ENGINE.GetItemAttrText
2311: (p_item_type,
2312: p_item_key,
2313: 'ROLLBACK_ALLOWED');
2314:
2362: IF (diagn_debug_msg_flag) AND (G_DIR is NOT NULL ) THEN
2363: diagn_debug_msg('Started SUBMIT_MA_PROGRAM');
2364: END IF;
2365:
2366: l_step_number := WF_ENGINE.GetItemAttrNumber
2367: (p_item_type,
2368: p_item_key,
2369: 'STEP_NUMBER');
2370:
2367: (p_item_type,
2368: p_item_key,
2369: 'STEP_NUMBER');
2370:
2371: l_usage_code := WF_ENGINE.GetItemAttrText
2372: (p_item_type,
2373: p_item_key,
2374: 'USAGE_CODE');
2375:
2378: Else
2379: l_usage_num := 0;
2380: End if;
2381:
2382: t_allocation_method_code := WF_ENGINE.GetItemAttrText
2383: (p_item_type,
2384: p_item_key,
2385: 'ALLOCATION_METHOD_CODE');
2386:
2389: Else
2390: l_allocation_method_code := 'N';
2391: End If;
2392:
2393: l_access_set_id := WF_ENGINE.GetItemAttrNumber
2394: (p_item_type,
2395: p_item_key,
2396: 'ACCESS_SET_ID');
2397:
2394: (p_item_type,
2395: p_item_key,
2396: 'ACCESS_SET_ID');
2397:
2398: l_ledger_id := WF_ENGINE.GetItemAttrNumber
2399: (p_item_type,
2400: p_item_key,
2401: 'LEDGER_ID');
2402:
2399: (p_item_type,
2400: p_item_key,
2401: 'LEDGER_ID');
2402:
2403: l_ledger_currency := WF_ENGINE.GetItemAttrText
2404: (p_item_type,
2405: p_item_key,
2406: 'LEDGER_CURRENCY');
2407:
2404: (p_item_type,
2405: p_item_key,
2406: 'LEDGER_CURRENCY');
2407:
2408: l_balancing_segment_value := WF_ENGINE.GetItemAttrText
2409: (p_item_type,
2410: p_item_key,
2411: 'BALANCING_SEGMENT_VALUE');
2412:
2409: (p_item_type,
2410: p_item_key,
2411: 'BALANCING_SEGMENT_VALUE');
2412:
2413: l_batch_id := WF_ENGINE.GetItemAttrNumber
2414: (p_item_type,
2415: p_item_key,
2416: 'BATCH_ID');
2417:
2414: (p_item_type,
2415: p_item_key,
2416: 'BATCH_ID');
2417:
2418: l_period_name := WF_ENGINE.GetItemAttrText
2419: (p_item_type,
2420: p_item_key,
2421: 'PERIOD_NAME');
2422: l_journal_effective_date := WF_ENGINE.GetItemAttrDate
2418: l_period_name := WF_ENGINE.GetItemAttrText
2419: (p_item_type,
2420: p_item_key,
2421: 'PERIOD_NAME');
2422: l_journal_effective_date := WF_ENGINE.GetItemAttrDate
2423: (p_item_type,
2424: p_item_key,
2425: 'JOURNAL_EFFECTIVE_DATE');
2426: l_calc_effective_date := WF_ENGINE.GetItemAttrDate
2422: l_journal_effective_date := WF_ENGINE.GetItemAttrDate
2423: (p_item_type,
2424: p_item_key,
2425: 'JOURNAL_EFFECTIVE_DATE');
2426: l_calc_effective_date := WF_ENGINE.GetItemAttrDate
2427: (p_item_type,
2428: p_item_key,
2429: 'CALCULATION_EFFECTIVE_DATE');
2430:
2506: IF (diagn_debug_msg_flag) AND (G_DIR is NOT NULL ) THEN
2507: diagn_debug_msg('Started SUBMIT_POSTING_PROGRAM');
2508: END IF;
2509:
2510: l_operating_mode := wf_engine.GetItemAttrText
2511: ( itemtype => p_item_type,
2512: itemkey => p_item_key,
2513: aname => 'OPERATING_MODE');
2514:
2511: ( itemtype => p_item_type,
2512: itemkey => p_item_key,
2513: aname => 'OPERATING_MODE');
2514:
2515: l_coa_id := WF_ENGINE.GetItemAttrNumber
2516: (p_item_type,
2517: p_item_key,
2518: 'CHART_OF_ACCOUNTS_ID');
2519:
2516: (p_item_type,
2517: p_item_key,
2518: 'CHART_OF_ACCOUNTS_ID');
2519:
2520: l_access_set_id := WF_ENGINE.GetItemAttrNumber
2521: (p_item_type,
2522: p_item_key,
2523: 'ACCESS_SET_ID');
2524:
2524:
2525: If l_operating_mode = 'R' then
2526: l_step_number := -1;
2527: Else
2528: l_step_number := WF_ENGINE.GetItemAttrNumber
2529: (p_item_type,
2530: p_item_key,
2531: 'STEP_NUMBER');
2532: End If;
2552: diagn_debug_msg('SUBMIT_POSTING_PROGRAM: ' || 'Inserting req id = '||to_char(l_batch_request_id)||
2553: ' into histroy detail');
2554: END IF;
2555:
2556: wf_engine.SetItemAttrText(
2557: itemtype => p_item_type,
2558: itemkey => p_item_key,
2559: aname => 'CONC_PRG_CODE',
2560: avalue => 'GLPPOS');
2558: itemkey => p_item_key,
2559: aname => 'CONC_PRG_CODE',
2560: avalue => 'GLPPOS');
2561:
2562: wf_engine.SetItemAttrNumber( itemtype => p_item_type,
2563: itemkey => p_item_key,
2564: aname => 'CONC_REQUEST_ID',
2565: avalue => l_batch_request_id );
2566:
2758: l_invalid_error := FND_MESSAGE.Get;
2759: result := 'N';
2760: return;
2761: Elsif l_approval_status_code = 'R' Then
2762: l_operating_mode := wf_engine.GetItemAttrText
2763: ( itemtype => p_item_type,
2764: itemkey => p_item_key,
2765: aname => 'OPERATING_MODE');
2766: If l_operating_mode = 'R' Then
2960: IF (diagn_debug_msg_flag) AND (G_DIR is NOT NULL ) THEN
2961: diagn_debug_msg('Started SUBMIT_RJE_PROGRAM');
2962: END IF;
2963:
2964: l_usage_code := WF_ENGINE.GetItemAttrText
2965: (p_item_type,
2966: p_item_key,
2967: 'USAGE_CODE');
2968: l_access_set_id := WF_ENGINE.GetItemAttrNumber
2964: l_usage_code := WF_ENGINE.GetItemAttrText
2965: (p_item_type,
2966: p_item_key,
2967: 'USAGE_CODE');
2968: l_access_set_id := WF_ENGINE.GetItemAttrNumber
2969: (p_item_type,
2970: p_item_key,
2971: 'ACCESS_SET_ID');
2972: l_batch_id := WF_ENGINE.GetItemAttrNumber
2968: l_access_set_id := WF_ENGINE.GetItemAttrNumber
2969: (p_item_type,
2970: p_item_key,
2971: 'ACCESS_SET_ID');
2972: l_batch_id := WF_ENGINE.GetItemAttrNumber
2973: (p_item_type,
2974: p_item_key,
2975: 'BATCH_ID');
2976: l_step_number := WF_ENGINE.GetItemAttrNumber
2972: l_batch_id := WF_ENGINE.GetItemAttrNumber
2973: (p_item_type,
2974: p_item_key,
2975: 'BATCH_ID');
2976: l_step_number := WF_ENGINE.GetItemAttrNumber
2977: (p_item_type,
2978: p_item_key,
2979: 'STEP_NUMBER');
2980: l_period_name := WF_ENGINE.GetItemAttrText
2976: l_step_number := WF_ENGINE.GetItemAttrNumber
2977: (p_item_type,
2978: p_item_key,
2979: 'STEP_NUMBER');
2980: l_period_name := WF_ENGINE.GetItemAttrText
2981: (p_item_type,
2982: p_item_key,
2983: 'PERIOD_NAME');
2984: l_journal_effective_date := WF_ENGINE.GetItemAttrDate
2980: l_period_name := WF_ENGINE.GetItemAttrText
2981: (p_item_type,
2982: p_item_key,
2983: 'PERIOD_NAME');
2984: l_journal_effective_date := WF_ENGINE.GetItemAttrDate
2985: (p_item_type,
2986: p_item_key,
2987: 'JOURNAL_EFFECTIVE_DATE');
2988: l_calc_effective_date := WF_ENGINE.GetItemAttrDate
2984: l_journal_effective_date := WF_ENGINE.GetItemAttrDate
2985: (p_item_type,
2986: p_item_key,
2987: 'JOURNAL_EFFECTIVE_DATE');
2988: l_calc_effective_date := WF_ENGINE.GetItemAttrDate
2989: (p_item_type,
2990: p_item_key,
2991: 'CALCULATION_EFFECTIVE_DATE');
2992:
2989: (p_item_type,
2990: p_item_key,
2991: 'CALCULATION_EFFECTIVE_DATE');
2992:
2993: l_budget_version_id := wf_engine.getItemAttrNumber
2994: ( p_item_type,
2995: p_item_key,
2996: 'BUDGET_VERSION_ID');
2997: Submit_Request( l_parent_req_id
3061: IF (diagn_debug_msg_flag) AND (G_DIR is NOT NULL ) THEN
3062: diagn_debug_msg('Started SUBMIT_REV_PROGRAM');
3063: END IF;
3064:
3065: l_access_set_id := WF_ENGINE.GetItemAttrNumber
3066: (p_item_type,
3067: p_item_key,
3068: 'ACCESS_SET_ID');
3069:
3066: (p_item_type,
3067: p_item_key,
3068: 'ACCESS_SET_ID');
3069:
3070: l_je_header_id := WF_ENGINE.GetItemAttrNumber
3071: (p_item_type,
3072: p_item_key,
3073: 'JE_HEADER_ID');
3074: l_step_number := WF_ENGINE.GetItemAttrNumber
3070: l_je_header_id := WF_ENGINE.GetItemAttrNumber
3071: (p_item_type,
3072: p_item_key,
3073: 'JE_HEADER_ID');
3074: l_step_number := WF_ENGINE.GetItemAttrNumber
3075: (p_item_type,
3076: p_item_key,
3077: 'STEP_NUMBER');
3078:
3096: If submit_request_id = 0 Then
3097: p_result := 'COMPLETE:FAIL';
3098: Return;
3099: Else
3100: l_period_name := WF_ENGINE.GetItemAttrText
3101: (p_item_type,
3102: p_item_key,
3103: 'PERIOD_NAME');
3104:
3175: IF (diagn_debug_msg_flag) AND (G_DIR is NOT NULL ) THEN
3176: diagn_debug_msg('Started WAITING_TO_COMPLETE');
3177: END IF;
3178:
3179: l_request_id := WF_ENGINE.GetItemAttrNumber
3180: (p_item_type,
3181: p_item_key,
3182: 'CONC_REQUEST_ID');
3183: l_step_number := WF_ENGINE.GetItemAttrNumber
3179: l_request_id := WF_ENGINE.GetItemAttrNumber
3180: (p_item_type,
3181: p_item_key,
3182: 'CONC_REQUEST_ID');
3183: l_step_number := WF_ENGINE.GetItemAttrNumber
3184: (p_item_type,
3185: p_item_key,
3186: 'STEP_NUMBER');
3187:
3184: (p_item_type,
3185: p_item_key,
3186: 'STEP_NUMBER');
3187:
3188: l_conc_prg_code := WF_ENGINE.GetItemAttrText
3189: (p_item_type,
3190: p_item_key,
3191: 'CONC_PRG_CODE');
3192: IF (diagn_debug_msg_flag) AND (G_DIR is NOT NULL ) THEN
3191: 'CONC_PRG_CODE');
3192: IF (diagn_debug_msg_flag) AND (G_DIR is NOT NULL ) THEN
3193: diagn_debug_msg('WAITING_TO_COMPLETE: ' || 'l_conc_prg_code = '||l_conc_prg_code);
3194: END IF;
3195: l_rollback_allowed := WF_ENGINE.GetItemAttrText(
3196: p_item_type,
3197: p_item_key,
3198: 'ROLLBACK_ALLOWED');
3199:
3196: p_item_type,
3197: p_item_key,
3198: 'ROLLBACK_ALLOWED');
3199:
3200: l_user_id := WF_ENGINE.GetItemAttrNumber
3201: (p_item_type,
3202: p_item_key,
3203: 'USER_ID');
3204:
3201: (p_item_type,
3202: p_item_key,
3203: 'USER_ID');
3204:
3205: l_org_id := WF_ENGINE.GetItemAttrNumber
3206: (p_item_type,
3207: p_item_key,
3208: 'ORG_ID');
3209:
3206: (p_item_type,
3207: p_item_key,
3208: 'ORG_ID');
3209:
3210: l_resp_id := WF_ENGINE.GetItemAttrNumber
3211: (p_item_type,
3212: p_item_key,
3213: 'RESP_ID');
3214:
3211: (p_item_type,
3212: p_item_key,
3213: 'RESP_ID');
3214:
3215: l_resp_appl_id := WF_ENGINE.GetItemAttrNumber
3216: (p_item_type,
3217: p_item_key,
3218: 'RESP_APPL_ID');
3219:
3295: ,l_step_number
3296: ,l_status_code
3297: );
3298:
3299: wf_engine.SetItemAttrText(itemtype => p_item_type,
3300: itemkey => p_item_key,
3301: aname => 'MESSAGE_NAME',
3302: avalue => l_message_name );
3303:
3379: diagn_debug_msg('***************************************');
3380: diagn_debug_msg('Rollback Started VAL_SET_FOR_ROLLBACK');
3381: diagn_debug_msg('***************************************');
3382: END IF;
3383: wf_engine.SetItemAttrText( itemtype => p_item_type,
3384: itemkey => p_item_key,
3385: aname => 'OPERATING_MODE',
3386: avalue => 'R');
3387: Open Validate_Steps_C;
3459:
3460: IF (diagn_debug_msg_flag) AND (G_DIR is NOT NULL ) THEN
3461: diagn_debug_msg('VAL_SET_FOR_ROLLBACK: ' || 'Setting up context now');
3462: END IF;
3463: wf_engine.SetItemAttrNumber(
3464: itemtype => p_item_type,
3465: itemkey => p_item_key,
3466: aname => 'BATCH_ID',
3467: avalue => l_batch_id );
3465: itemkey => p_item_key,
3466: aname => 'BATCH_ID',
3467: avalue => l_batch_id );
3468:
3469: wf_engine.SetItemAttrtext(
3470: itemtype => p_item_type,
3471: itemkey => p_item_key,
3472: aname => 'BATCH_TYPE_CODE',
3473: avalue => l_batch_type_code );
3471: itemkey => p_item_key,
3472: aname => 'BATCH_TYPE_CODE',
3473: avalue => l_batch_type_code );
3474:
3475: wf_engine.SetItemAttrNumber(
3476: itemtype => p_item_type,
3477: ITEMkey => p_item_key,
3478: aname => 'STEP_NUMBER',
3479: avalue => l_step_number );
3477: ITEMkey => p_item_key,
3478: aname => 'STEP_NUMBER',
3479: avalue => l_step_number );
3480:
3481: wf_engine.SetItemAttrNumber(
3482: itemtype => p_item_type,
3483: itemkey => p_item_key,
3484: aname => 'GEN_BATCH_ID',
3485: avalue => l_gen_batch_id );
3483: itemkey => p_item_key,
3484: aname => 'GEN_BATCH_ID',
3485: avalue => l_gen_batch_id );
3486:
3487: wf_engine.SetItemAttrtext(
3488: itemtype => p_item_type,
3489: itemkey => p_item_key,
3490: aname => 'GEN_BATCH_NAME',
3491: avalue => l_gen_batch_name );
3531: GL_AUTO_ALLOC_WF_PKG.p_item_key := p_item_key;
3532: IF (diagn_debug_msg_flag) AND (G_DIR is NOT NULL ) THEN
3533: diagn_debug_msg('Entering end_fail');
3534: END IF;
3535: l_operating_mode := WF_ENGINE.GetItemAttrText
3536: (p_item_type,
3537: p_item_key,
3538: 'OPERATING_MODE');
3539: l_step_number := WF_ENGINE.GetItemAttrNumber
3535: l_operating_mode := WF_ENGINE.GetItemAttrText
3536: (p_item_type,
3537: p_item_key,
3538: 'OPERATING_MODE');
3539: l_step_number := WF_ENGINE.GetItemAttrNumber
3540: (p_item_type,
3541: p_item_key,
3542: 'STEP_NUMBER');
3543:
3699: l_CREATED_BY OUT NOCOPY NUMBER
3700: ,l_LAST_UPDATED_BY OUT NOCOPY NUMBER
3701: ,l_LAST_UPDATE_LOGIN OUT NOCOPY NUMBER ) IS
3702: Begin
3703: l_CREATED_BY:= WF_ENGINE.GetItemAttrNumber
3704: (p_item_type,
3705: p_item_key,
3706: 'CREATED_BY');
3707:
3704: (p_item_type,
3705: p_item_key,
3706: 'CREATED_BY');
3707:
3708: l_LAST_UPDATED_BY:= WF_ENGINE.GetItemAttrNumber
3709: (p_item_type,
3710: p_item_key,
3711: 'LAST_UPDATED_BY');
3712:
3709: (p_item_type,
3710: p_item_key,
3711: 'LAST_UPDATED_BY');
3712:
3713: l_LAST_UPDATE_LOGIN:= WF_ENGINE.GetItemAttrNumber
3714: (p_item_type,
3715: p_item_key,
3716: 'LAST_UPDATE_LOGIN');
3717:
3809:
3810: l_operating_mode Varchar2(2);
3811:
3812: Begin
3813: l_operating_mode := WF_ENGINE.GetItemAttrText
3814: (p_item_type,
3815: p_item_key,
3816: 'OPERATING_MODE');
3817: IF (diagn_debug_msg_flag) AND (G_DIR is NOT NULL ) THEN
3925: diagn_debug_msg('Submit_Request: ' || 'p_attribute12='||p_attribute12);
3926: diagn_debug_msg('Submit_Request: ' || 'Prog_Code='||Prog_Code);
3927: END IF;
3928:
3929: l_operating_mode := wf_engine.GetItemAttrText
3930: ( itemtype => p_item_type,
3931: itemkey => p_item_key,
3932: aname => 'OPERATING_MODE');
3933:
3931: itemkey => p_item_key,
3932: aname => 'OPERATING_MODE');
3933:
3934:
3935: l_rollback_allowed := WF_ENGINE.GetItemAttrText(
3936: p_item_type,
3937: p_item_key,
3938: 'ROLLBACK_ALLOWED');
3939:
3936: p_item_type,
3937: p_item_key,
3938: 'ROLLBACK_ALLOWED');
3939:
3940: l_user_id := WF_ENGINE.GetItemAttrNumber
3941: (p_item_type,
3942: p_item_key,
3943: 'USER_ID');
3944:
3941: (p_item_type,
3942: p_item_key,
3943: 'USER_ID');
3944:
3945: l_org_id := WF_ENGINE.GetItemAttrNumber
3946: (p_item_type,
3947: p_item_key,
3948: 'ORG_ID');
3949:
3946: (p_item_type,
3947: p_item_key,
3948: 'ORG_ID');
3949:
3950: l_resp_id := WF_ENGINE.GetItemAttrNumber
3951: (p_item_type,
3952: p_item_key,
3953: 'RESP_ID');
3954:
3951: (p_item_type,
3952: p_item_key,
3953: 'RESP_ID');
3954:
3955: l_resp_appl_id := WF_ENGINE.GetItemAttrNumber
3956: (p_item_type,
3957: p_item_key,
3958: 'RESP_APPL_ID');
3959:
4000: '','','','','','','','','','','','','','','',
4001: '','','','','','','','','','','','','','','',
4002: '','','');
4003:
4004: wf_engine.SetItemAttrText(
4005: itemtype => p_item_type,
4006: itemkey => p_item_key,
4007: aname => 'CONC_PRG_CODE',
4008: avalue => Prog_Code );
4011: Open conc_prog_name_C;
4012: Fetch conc_prog_name_C into l_conc_prg_name;
4013: Close conc_prog_name_C;
4014:
4015: wf_engine.SetItemAttrText(
4016: itemtype => p_item_type,
4017: itemkey => p_item_key,
4018: aname => 'CONC_PRG_NAME',
4019: avalue => l_conc_prg_name );
4023: -- Request Submission failed
4024: IF (diagn_debug_msg_flag) AND (G_DIR is NOT NULL ) THEN
4025: diagn_debug_msg('Submit_Request: ' || 'Sending Notification.Fatal Error: Conc program not submitted');
4026: END IF;
4027: wf_engine.SetItemAttrNumber( itemtype => p_item_type,
4028: itemkey => p_item_key,
4029: aname => 'CONC_REQUEST_ID',
4030: avalue => -1 );
4031:
4040: ,p_step_number
4041: ,l_status_code
4042: );
4043:
4044: wf_engine.SetItemAttrText(itemtype => p_item_type,
4045: itemkey => p_item_key,
4046: aname => 'MESSAGE_NAME',
4047: avalue => l_message_name );
4048: IF (diagn_debug_msg_flag) AND (G_DIR is NOT NULL ) THEN
4054: IF (diagn_debug_msg_flag) AND (G_DIR is NOT NULL ) THEN
4055: diagn_debug_msg('Inserting req id = '||to_char(l_submit_request_id)||
4056: ' into histroy detail');
4057: END IF;
4058: wf_engine.SetItemAttrNumber( itemtype => p_item_type,
4059: itemkey => p_item_key,
4060: aname => 'CONC_REQUEST_ID',
4061: avalue => l_submit_request_id );
4062:
4134: IF (diagn_debug_msg_flag) AND (G_DIR is NOT NULL ) THEN
4135: diagn_debug_msg('Started Continue_Next_Step');
4136: END IF;
4137:
4138: l_step_number := WF_ENGINE.GetItemAttrNumber
4139: (p_item_type,
4140: p_item_key,
4141: 'STEP_NUMBER');
4142:
4139: (p_item_type,
4140: p_item_key,
4141: 'STEP_NUMBER');
4142:
4143: l_rollback_allowed := WF_ENGINE.GetItemAttrText(
4144: p_item_type,
4145: p_item_key,
4146: 'ROLLBACK_ALLOWED');
4147:
4144: p_item_type,
4145: p_item_key,
4146: 'ROLLBACK_ALLOWED');
4147:
4148: l_continue_next_step := WF_ENGINE.GetItemAttrText(
4149: p_item_type,
4150: p_item_key,
4151: 'CONTINUE_NEXT_STEP');
4152:
4170: Else
4171: l_message_name := 'GLALLOC:NO_BATCH_GENERATED_NRB';
4172: End If;
4173:
4174: wf_engine.SetItemAttrText(itemtype => p_item_type,
4175: itemkey => p_item_key,
4176: aname => 'MESSAGE_NAME',
4177: avalue => l_message_Name );
4178: