DBA Data[Home] [Help]

APPS.POR_AMENDMENT_PKG dependencies on POR_AMENDMENT_PKG

Line 1: PACKAGE BODY por_amendment_pkg AS

1: PACKAGE BODY por_amendment_pkg AS
2: /* $Header: POR_AMENDMENT_PKG.plb 120.63.12020000.7 2013/06/04 06:39:38 bpulivar ship $ */
3:
4:
5: -- Logging Static Variables

Line 2: /* $Header: POR_AMENDMENT_PKG.plb 120.63.12020000.7 2013/06/04 06:39:38 bpulivar ship $ */

1: PACKAGE BODY por_amendment_pkg AS
2: /* $Header: POR_AMENDMENT_PKG.plb 120.63.12020000.7 2013/06/04 06:39:38 bpulivar ship $ */
3:
4:
5: -- Logging Static Variables
6: G_CURRENT_RUNTIME_LEVEL NUMBER;

Line 13: G_MODULE_NAME CONSTANT VARCHAR2(30) := 'ICX.PLSQL.POR_AMENDMENT_PKG';

9: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
10: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
11: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
12: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
13: G_MODULE_NAME CONSTANT VARCHAR2(30) := 'ICX.PLSQL.POR_AMENDMENT_PKG';
14:
15: g_po_wf_debug VARCHAR2(1) := NVL(FND_PROFILE.VALUE('PO_SET_DEBUG_WORKFLOW_ON'),'N');
16:
17: TYPE g_line_id_map IS TABLE OF NUMBER INDEX BY VARCHAR2(20);

Line 5040: x_progress := 'POR_AMENDMENT_PKG.CREATE_BASE_VERSION: 01';

5036: copy_doc_exception exception;
5037:
5038: BEGIN
5039:
5040: x_progress := 'POR_AMENDMENT_PKG.CREATE_BASE_VERSION: 01';
5041: IF (g_po_wf_debug = 'Y') THEN
5042: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
5043: END IF;
5044:

Line 5059: x_progress := 'POR_AMENDMENT_PKG.CREATE_BASE_VERSION: 02 - l_from_req_header_id= ' || l_from_req_header_id;

5055: l_from_req_header_id := wf_engine.GetItemAttrNumber (itemtype => itemtype,
5056: itemkey => itemkey,
5057: aname => 'DOCUMENT_ID');
5058:
5059: x_progress := 'POR_AMENDMENT_PKG.CREATE_BASE_VERSION: 02 - l_from_req_header_id= ' || l_from_req_header_id;
5060:
5061: create_base_copy( p_from_req_header_id => l_from_req_header_id,
5062: x_to_req_header_id => l_to_req_header_id,
5063: x_return_status => l_return_status,

Line 5067: x_progress := 'POR_AMENDMENT_PKG.CREATE_BASE_VERSION: 03 - Exception : l_return_msg';

5063: x_return_status => l_return_status,
5064: x_return_msg => l_return_msg);
5065:
5066: if(l_return_status <> FND_API.G_RET_STS_SUCCESS) then
5067: x_progress := 'POR_AMENDMENT_PKG.CREATE_BASE_VERSION: 03 - Exception : l_return_msg';
5068: raise copy_doc_exception;
5069: end if;
5070:
5071: EXCEPTION

Line 5074: wf_core.context('POR_AMENDMENT_PKG','CREATE_BASE_VERSION',x_progress);

5070:
5071: EXCEPTION
5072:
5073: WHEN OTHERS THEN
5074: wf_core.context('POR_AMENDMENT_PKG','CREATE_BASE_VERSION',x_progress);
5075: raise;
5076:
5077: END CREATE_BASE_VERSION;
5078:

Line 5093: x_progress := 'POR_AMENDMENT_PKG.MERGE_INTO_CONFORM_VERSION: 01';

5089: l_revision_num number;
5090:
5091: BEGIN
5092:
5093: x_progress := 'POR_AMENDMENT_PKG.MERGE_INTO_CONFORM_VERSION: 01';
5094: IF (g_po_wf_debug = 'Y') THEN
5095: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
5096: END IF;
5097:

Line 5123: wf_core.context('POR_AMENDMENT_PKG','MERGE_INTO_CONFORM_VERSION',x_progress);

5119:
5120: EXCEPTION
5121:
5122: WHEN OTHERS THEN
5123: wf_core.context('POR_AMENDMENT_PKG','MERGE_INTO_CONFORM_VERSION',x_progress);
5124: raise;
5125:
5126: END MERGE_INTO_CONFORM_VERSION;
5127:

Line 5140: x_progress := 'POR_AMENDMENT_PKG.AUTO_ACCEPT_AND_REJECT: 01';

5136: x_resultout varchar2(30);
5137: l_requisition_header_id number;
5138:
5139: BEGIN
5140: x_progress := 'POR_AMENDMENT_PKG.AUTO_ACCEPT_AND_REJECT: 01';
5141: IF (g_po_wf_debug = 'Y') THEN
5142: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
5143: END IF;
5144:

Line 5180: x_progress := 'POR_AMENDMENT_PKG.MORE_BUYER_TO_NOTIFY: 01';

5176: l_buyer_display_name VARCHAR2(240);
5177:
5178: BEGIN
5179:
5180: x_progress := 'POR_AMENDMENT_PKG.MORE_BUYER_TO_NOTIFY: 01';
5181: IF (g_po_wf_debug = 'Y') THEN
5182: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
5183: END IF;
5184:

Line 5203: x_progress := 'POR_AMENDMENT_PKG.MORE_BUYER_TO_NOTIFY: 02 : l_document_id :'||l_document_id||' : l_current_buyer_id : '||l_current_buyer_id;

5199: l_current_buyer_id := wf_engine.GetItemAttrNumber (itemtype => itemtype,
5200: itemkey => itemkey,
5201: aname => 'CURRENT_BUYER_ID');
5202:
5203: x_progress := 'POR_AMENDMENT_PKG.MORE_BUYER_TO_NOTIFY: 02 : l_document_id :'||l_document_id||' : l_current_buyer_id : '||l_current_buyer_id;
5204: IF (g_po_wf_debug = 'Y') THEN
5205: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
5206: END IF;
5207:

Line 5257: wf_core.context('POR_AMENDMENT_PKG','MORE_BUYER_TO_NOTIFY',x_progress);

5253: END IF;
5254: EXCEPTION
5255:
5256: WHEN OTHERS THEN
5257: wf_core.context('POR_AMENDMENT_PKG','MORE_BUYER_TO_NOTIFY',x_progress);
5258: raise;
5259:
5260: END MORE_BUYER_TO_NOTIFY;
5261:

Line 5281: x_progress := 'POR_AMENDMENT_PKG.MORE_SOURCING_OWNER_TO_NOTIFY: 01';

5277: l_ourcing_owner_display_name VARCHAR2(240);
5278:
5279: BEGIN
5280:
5281: x_progress := 'POR_AMENDMENT_PKG.MORE_SOURCING_OWNER_TO_NOTIFY: 01';
5282: IF (g_po_wf_debug = 'Y') THEN
5283: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
5284: END IF;
5285:

Line 5353: wf_core.context('POR_AMENDMENT_PKG','MORE_SOURCING_OWNER_TO_NOTIFY',x_progress);

5349: END IF;
5350: EXCEPTION
5351:
5352: WHEN OTHERS THEN
5353: wf_core.context('POR_AMENDMENT_PKG','MORE_SOURCING_OWNER_TO_NOTIFY',x_progress);
5354: raise;
5355:
5356: END MORE_SOURCING_OWNER_TO_NOTIFY;
5357:

Line 5407: x_progress := 'POR_AMENDMENT_PKG.SET_AMENDMENT_WF_ATTRIBUTES: 01';

5403: AND NVL(rl.modified_by_agent_flag, 'N') = 'N';
5404:
5405: BEGIN
5406:
5407: x_progress := 'POR_AMENDMENT_PKG.SET_AMENDMENT_WF_ATTRIBUTES: 01';
5408: IF (g_po_wf_debug = 'Y') THEN
5409: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
5410: END IF;
5411:

Line 5507: wf_core.context('POR_AMENDMENT_PKG','SET_AMENDMENT_WF_ATTRIBUTES',x_progress);

5503:
5504: EXCEPTION
5505:
5506: WHEN OTHERS THEN
5507: wf_core.context('POR_AMENDMENT_PKG','SET_AMENDMENT_WF_ATTRIBUTES',x_progress);
5508: raise;
5509:
5510: END SET_AMENDMENT_WF_ATTRIBUTES;
5511:

Line 5586: x_progress := 'POR_AMENDMENT_PKG.amendment_post_merge_actions: 01';

5582: l_result BOOLEAN;
5583: l_log_msg VARCHAR2(2000);
5584:
5585: BEGIN
5586: x_progress := 'POR_AMENDMENT_PKG.amendment_post_merge_actions: 01';
5587: IF (g_po_wf_debug = 'Y') THEN
5588: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
5589: END IF;
5590:

Line 5605: x_progress := 'POR_AMENDMENT_PKG.amendment_post_merge_actions: completed successfully';

5601: --Since this is an amendment flow, so we have to create/modify the
5602: --supply table based on the conformed_id
5603: l_result := PO_SUPPLY.create_req(l_conformed_id, 'REQ HDR');
5604:
5605: x_progress := 'POR_AMENDMENT_PKG.amendment_post_merge_actions: completed successfully';
5606: IF (g_po_wf_debug = 'Y') THEN
5607: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
5608: END IF;
5609:

Line 5617: wf_core.context('POR_AMENDMENT_PKG','amendment_post_merge_actions',x_progress);

5613: l_log_msg := x_progress||'CException: '||SQLERRM;
5614: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_api_name, l_log_msg);
5615:
5616: END IF;
5617: wf_core.context('POR_AMENDMENT_PKG','amendment_post_merge_actions',x_progress);
5618: raise;
5619:
5620: END amendment_post_merge_actions;
5621:

Line 7366: x_progress := 'POR_AMENDMENT_PKG.set_amendment_related_attrib: 01';

7362: l_amendment_flow VARCHAR2(1);
7363: l_amendment_approval VARCHAR2(1);
7364:
7365: BEGIN
7366: x_progress := 'POR_AMENDMENT_PKG.set_amendment_related_attrib: 01';
7367: IF (g_po_wf_debug = 'Y') THEN
7368: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
7369: END IF;
7370:

Line 7381: x_progress := 'POR_AMENDMENT_PKG.set_amendment_related_attrib: 02';

7377: l_amendment_approval := wf_engine.GetItemAttrText (itemtype => itemtype,
7378: itemkey => itemkey,
7379: aname => 'IS_AMENDMENT_APPROVAL');
7380:
7381: x_progress := 'POR_AMENDMENT_PKG.set_amendment_related_attrib: 02';
7382: IF (g_po_wf_debug = 'Y') THEN
7383: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
7384: END IF;
7385:

Line 7387: x_progress := 'POR_AMENDMENT_PKG.set_amendment_related_attrib: l_amendment_approval is not Y, so return';

7383: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
7384: END IF;
7385:
7386: IF (l_amendment_approval IS NULL OR l_amendment_approval = 'N') THEN
7387: x_progress := 'POR_AMENDMENT_PKG.set_amendment_related_attrib: l_amendment_approval is not Y, so return';
7388: IF (g_po_wf_debug = 'Y') THEN
7389: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
7390: END IF;
7391:

Line 7408: x_progress := 'POR_AMENDMENT_PKG.set_amendment_related_attrib: completed successfully';

7404: --Since this is an amendment flow, so we have to create/modify the
7405: --supply table based on the conformed_id
7406: update_amendment(l_conformed_id,l_revision_num);
7407:
7408: x_progress := 'POR_AMENDMENT_PKG.set_amendment_related_attrib: completed successfully';
7409: IF (g_po_wf_debug = 'Y') THEN
7410: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
7411: END IF;
7412:

Line 7420: wf_core.context('POR_AMENDMENT_PKG','set_amendment_related_attrib',x_progress);

7416: l_log_msg := x_progress||'CException: '||SQLERRM;
7417: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_api_name, l_log_msg);
7418:
7419: END IF;
7420: wf_core.context('POR_AMENDMENT_PKG','set_amendment_related_attrib',x_progress);
7421: raise;
7422:
7423: END set_amendment_related_attrib;
7424:

Line 7531: x_progress := 'POR_AMENDMENT_PKG.SET_CLM_FUNDS_OVERRIDE: 01';

7527: IS
7528: x_progress VARCHAR2(100);
7529:
7530: BEGIN
7531: x_progress := 'POR_AMENDMENT_PKG.SET_CLM_FUNDS_OVERRIDE: 01';
7532: IF (g_po_wf_debug = 'Y') THEN
7533: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
7534: END IF;
7535: -- Do nothing in cancel or timeout mode

Line 7542: x_progress := 'POR_AMENDMENT_PKG.SET_CLM_FUNDS_OVERRIDE: Setting Funds Override as Y : 02';

7538: resultout := wf_engine.eng_null;
7539: return;
7540: end if;
7541:
7542: x_progress := 'POR_AMENDMENT_PKG.SET_CLM_FUNDS_OVERRIDE: Setting Funds Override as Y : 02';
7543: IF (g_po_wf_debug = 'Y') THEN
7544: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
7545: END IF;
7546: -- Bug 9667861.

Line 7552: x_progress := 'POR_AMENDMENT_PKG.SET_CLM_FUNDS_OVERRIDE: Successful: 03';

7548: itemkey => itemkey,
7549: aname => 'CLM_FUNDS_OVERRIDE',
7550: avalue => 'Y');
7551:
7552: x_progress := 'POR_AMENDMENT_PKG.SET_CLM_FUNDS_OVERRIDE: Successful: 03';
7553: IF (g_po_wf_debug = 'Y') THEN
7554: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
7555: END IF;
7556: EXCEPTION

Line 7558: wf_core.context('POR_AMENDMENT_PKG','SET_CLM_FUNDS_OVERRIDE',x_progress || ', ' || sqlerrm);

7554: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
7555: END IF;
7556: EXCEPTION
7557: WHEN Others THEN
7558: wf_core.context('POR_AMENDMENT_PKG','SET_CLM_FUNDS_OVERRIDE',x_progress || ', ' || sqlerrm);
7559: raise;
7560: END SET_CLM_FUNDS_OVERRIDE;
7561:
7562: PROCEDURE Clm_req_merge_reserve

Line 7588: x_progress := 'POR_AMENDMENT_PKG.CLM_REQ_MERGE_RESERVE: 01';

7584: l_online_report_id NUMBER;
7585: l_warning_mesg VARCHAR2(2000) := NULL;
7586: l_req_encumbrance_on BOOLEAN;
7587: BEGIN
7588: x_progress := 'POR_AMENDMENT_PKG.CLM_REQ_MERGE_RESERVE: 01';
7589: IF (g_po_wf_debug = 'Y') THEN
7590: po_wf_debug_pkg.Insert_debug(itemtype,itemkey,x_progress);
7591: END IF;
7592: -- Do nothing in cancel or timeout mode

Line 7680: wf_core.Context('POR_AMENDMENT_PKG','CLM_REQ_MERGE_RESERVE', x_progress);

7676: RETURN;
7677:
7678: EXCEPTION
7679: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7680: wf_core.Context('POR_AMENDMENT_PKG','CLM_REQ_MERGE_RESERVE', x_progress);
7681: RAISE;
7682: WHEN OTHERS THEN
7683: x_progress := 'POR_AMENDMENT_PKG.CLM_REQ_MERGE_RESERVE: Do Reserve. Return Status.'||l_return_status;
7684: po_wf_debug_pkg.Insert_debug(itemtype,itemkey,x_progress);

Line 7683: x_progress := 'POR_AMENDMENT_PKG.CLM_REQ_MERGE_RESERVE: Do Reserve. Return Status.'||l_return_status;

7679: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7680: wf_core.Context('POR_AMENDMENT_PKG','CLM_REQ_MERGE_RESERVE', x_progress);
7681: RAISE;
7682: WHEN OTHERS THEN
7683: x_progress := 'POR_AMENDMENT_PKG.CLM_REQ_MERGE_RESERVE: Do Reserve. Return Status.'||l_return_status;
7684: po_wf_debug_pkg.Insert_debug(itemtype,itemkey,x_progress);
7685: RAISE;
7686: END Clm_req_merge_reserve;
7687:

Line 7789: wf_core.Context('POR_AMENDMENT_PKG','MERGE_INTO_CONFORM_VERSION', x_progress);

7785: ROLLBACK TO Clm_MergeReserve_Autonomous_SP;
7786: wf_core.context('PO_REQAPPROVAL_ACTION','ReserveAutonomous', x_progress);
7787: RAISE;
7788: WHEN OTHERS THEN
7789: wf_core.Context('POR_AMENDMENT_PKG','MERGE_INTO_CONFORM_VERSION', x_progress);
7790: ROLLBACK TO Clm_MergeReserve_Autonomous_SP;
7791: RAISE;
7792: END Clm_MergeReserve_Autonomous;
7793:

Line 8082: x_progress := 'POR_AMENDMENT_PKG.amendment_post_approval: 01';

8078: l_conf_hdr_id NUMBER;
8079: x_return_status VARCHAR2(100);
8080:
8081: BEGIN
8082: x_progress := 'POR_AMENDMENT_PKG.amendment_post_approval: 01';
8083: IF (g_po_wf_debug = 'Y') THEN
8084: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
8085: END IF;
8086:

Line 8114: x_progress := 'POR_AMENDMENT_PKG.amendment_post_approval: 02, finished';

8110:
8111: --Update reqs_in_pool_flag also
8112: po_req_lines_sv.update_reqs_in_pool_flag(NULL,l_conf_hdr_id,x_return_status);
8113:
8114: x_progress := 'POR_AMENDMENT_PKG.amendment_post_approval: 02, finished';
8115: IF (g_po_wf_debug = 'Y') THEN
8116: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
8117: END IF;
8118:

Line 8327: END por_amendment_pkg;

8323: x_return_status :='N';
8324:
8325: END is_federal_req;
8326:
8327: END por_amendment_pkg;