14: x_release_control t_release_control_type;
15: x_release_parameters t_release_parameters_type;
16: BEGIN
17: IF (g_po_wf_debug = 'Y') THEN
18: PO_WF_DEBUG_PKG.insert_debug(ITEMTYPE, ITEMKEY,
19: '*** In Procedure: chord_release ***' );
20: END IF;
21:
22: If funcmode <> 'RUN' THEN
30:
31: set_wf_release_control(itemtype, itemkey, x_release_control);
32:
33: IF (g_po_wf_debug = 'Y') THEN
34: PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
35: '*** Finish: chord_release ***' );
36: END IF;
37:
38: result := wf_engine.eng_completed || ':' || 'ACTIVITY_PERFORMED';
54: IS
55: x_po_release_id NUMBER;
56: BEGIN
57: IF (g_po_wf_debug = 'Y') THEN
58: PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
59: '*** In Procedure check_release_change ***');
60: END IF;
61:
62: x_release_control.agent_id :='N';
180: x_release_control.release_total_change:=release_total_change(x_po_release_id);
181:
182:
183: IF (g_po_wf_debug = 'Y') THEN
184: PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
185: '*** Finish check_release_change ***');
186: END IF;
187: EXCEPTION
188:
337: x_release_control IN t_release_control_type)
338: IS
339: BEGIN
340: IF (g_po_wf_debug = 'Y') THEN
341: PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY, '*** In procedure set_wf_release_control ***');
342: END IF;
343:
344: wf_engine.SetItemAttrText(itemtype,
345: itemkey,
373:
374: debug_release_control(itemtype, itemkey, x_release_control);
375:
376: IF (g_po_wf_debug = 'Y') THEN
377: PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
378: '*** Finish set_wf_release_control ***');
379: END IF;
380:
381:
391: x_release_control IN OUT NOCOPY t_release_control_type)
392: IS
393: BEGIN
394: IF (g_po_wf_debug = 'Y') THEN
395: PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
396: '*** In procedure get_wf_release_control ***');
397: END IF;
398:
399: x_release_control.agent_id :=
430:
431: debug_release_control(itemtype, itemkey, x_release_control);
432:
433: IF (g_po_wf_debug = 'Y') THEN
434: PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
435: '*** FINISH: get_wf_release_control ***');
436: END IF;
437: EXCEPTION
438:
448: x_release_control IN t_release_control_type)
449: IS
450: BEGIN
451: IF (g_po_wf_debug = 'Y') THEN
452: PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
453: '*** In procedure: debug_release_control ***');
454: END IF;
455:
456: IF (g_po_wf_debug = 'Y') THEN
453: '*** In procedure: debug_release_control ***');
454: END IF;
455:
456: IF (g_po_wf_debug = 'Y') THEN
457: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,
458: 'agent_id : ' ||x_release_control.agent_id);
459: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,
460: 'acceptance_required_flag : ' ||x_release_control.acceptance_required_flag);
461: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,
455:
456: IF (g_po_wf_debug = 'Y') THEN
457: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,
458: 'agent_id : ' ||x_release_control.agent_id);
459: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,
460: 'acceptance_required_flag : ' ||x_release_control.acceptance_required_flag);
461: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,
462: 'acceptance_due_date : ' ||x_release_control.acceptance_due_date);
463: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,
457: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,
458: 'agent_id : ' ||x_release_control.agent_id);
459: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,
460: 'acceptance_required_flag : ' ||x_release_control.acceptance_required_flag);
461: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,
462: 'acceptance_due_date : ' ||x_release_control.acceptance_due_date);
463: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,
464: 'release_num : ' ||x_release_control.release_num);
465: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,
459: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,
460: 'acceptance_required_flag : ' ||x_release_control.acceptance_required_flag);
461: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,
462: 'acceptance_due_date : ' ||x_release_control.acceptance_due_date);
463: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,
464: 'release_num : ' ||x_release_control.release_num);
465: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,
466: 'release_date : ' ||x_release_control.release_date);
467: END IF;
461: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,
462: 'acceptance_due_date : ' ||x_release_control.acceptance_due_date);
463: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,
464: 'release_num : ' ||x_release_control.release_num);
465: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,
466: 'release_date : ' ||x_release_control.release_date);
467: END IF;
468:
469: IF (g_po_wf_debug = 'Y') THEN
466: 'release_date : ' ||x_release_control.release_date);
467: END IF;
468:
469: IF (g_po_wf_debug = 'Y') THEN
470: PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
471: '*** Finished: debug_release_control ***');
472: END IF;
473: EXCEPTION
474:
482: x_release_parameters IN OUT NOCOPY t_release_parameters_type)
483: IS
484: BEGIN
485: IF (g_po_wf_debug = 'Y') THEN
486: PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
487: '*** In procedure get_wf_release_parameters ***');
488: END IF;
489:
490: x_release_parameters.po_release_id :=
492: itemkey,
493: 'DOCUMENT_ID');
494:
495: IF (g_po_wf_debug = 'Y') THEN
496: PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
497: 'po_release_id = '|| to_char(x_release_parameters.po_release_id));
498: END IF;
499:
500: IF (g_po_wf_debug = 'Y') THEN
497: 'po_release_id = '|| to_char(x_release_parameters.po_release_id));
498: END IF;
499:
500: IF (g_po_wf_debug = 'Y') THEN
501: PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
502: '*** FINISH: get_wf_release_parameters ***');
503: END IF;
504:
505: EXCEPTION