[Home] [Help]
1: PACKAGE BODY PO_ENCUMBRANCE_POSTPROCESSING AS
2: -- $Header: POXENC2B.pls 120.59.12020000.7 2013/04/10 14:26:21 gjyothi ship $
3:
4: G_PKG_NAME CONSTANT varchar2(30) := 'PO_ENCUMBRANCE_POSTPROCESSING';
5:
1: PACKAGE BODY PO_ENCUMBRANCE_POSTPROCESSING AS
2: -- $Header: POXENC2B.pls 120.59.12020000.7 2013/04/10 14:26:21 gjyothi ship $
3:
4: G_PKG_NAME CONSTANT varchar2(30) := 'PO_ENCUMBRANCE_POSTPROCESSING';
5:
6: g_log_head CONSTANT VARCHAR2(50) := 'po.plsql.'|| G_PKG_NAME || '.' ;
7:
8: -- Read the profile option that enables/disables the debug log
1171: /*FND_MESSAGE.set_name('PO', 'PO_API_ERROR');
1172: FND_MESSAGE.set_token('PROC_CALLED',
1173: 'PSA_BC_XLA_PUB.Budgetary_Control');
1174: FND_MESSAGE.set_token('PROC_CALLER',
1175: 'PO_ENCUMBRANCE_POSTPROCESSING.execute_gl_call');
1176: fnd_msg_pub.add;
1177: IF g_debug_unexp THEN
1178: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_code',x_return_code);
1179: END IF; */
1176: fnd_msg_pub.add;
1177: IF g_debug_unexp THEN
1178: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_code',x_return_code);
1179: END IF; */
1180: RAISE PO_ENCUMBRANCE_POSTPROCESSING.g_EXECUTE_GL_CALL_API_EXC;
1181: --
1182:
1183: WHEN OTHERS THEN
1184: --add message to the stack and log a debug msg if necessary
1480: GLBC.result_code RESULT_CODE,
1481: nvl(GLBC.automatic_encumbrance_flag, 'Y') AUTOMATIC_ENCUMBRANCE_FLAG,
1482: GLBC.SOURCE_DISTRIBUTION_ID_NUM_1 SOURCE_DISTRIBUTION_ID_NUM_1,
1483: GLBC.SOURCE_DISTRIBUTION_TYPE SOURCE_DISTRIBUTION_TYPE,
1484: PO_ENCUMBRANCE_POSTPROCESSING.get_sign_for_amount(pbd.event_type_code,
1485: pbd.main_or_backing_code,
1486: pbd.adjustment_status,
1487: pbd.distribution_type) *
1488: PBD.accounted_amt TRANSACTION_AMOUNT,
1518: GLBCH.result_code RESULT_CODE,
1519: nvl(GLBCH.automatic_encumbrance_flag, 'Y') AUTOMATIC_ENCUMBRANCE_FLAG,
1520: GLBCH.SOURCE_DISTRIBUTION_ID_NUM_1 SOURCE_DISTRIBUTION_ID_NUM_1,
1521: GLBCH.SOURCE_DISTRIBUTION_TYPE SOURCE_DISTRIBUTION_TYPE,
1522: PO_ENCUMBRANCE_POSTPROCESSING.get_sign_for_amount(pbd.event_type_code,
1523: pbd.main_or_backing_code,
1524: pbd.adjustment_status,
1525: pbd.distribution_type) *
1526: PBD.accounted_amt TRANSACTION_AMOUNT,
1579: AUTOMATIC_ENCUMBRANCE_FLAG,
1580: GLBC.SOURCE_DISTRIBUTION_ID_NUM_1
1581: SOURCE_DISTRIBUTION_ID_NUM_1,
1582: GLBC.SOURCE_DISTRIBUTION_TYPE SOURCE_DISTRIBUTION_TYPE,
1583: PO_ENCUMBRANCE_POSTPROCESSING.GET_SIGN_FOR_AMOUNT (
1584: PBD.EVENT_TYPE_CODE,
1585: PBD.MAIN_OR_BACKING_CODE,
1586: PBD.ADJUSTMENT_STATUS,
1587: PBD.DISTRIBUTION_TYPE
1604: AUTOMATIC_ENCUMBRANCE_FLAG,
1605: GLBCH.SOURCE_DISTRIBUTION_ID_NUM_1
1606: SOURCE_DISTRIBUTION_ID_NUM_1,
1607: GLBCH.SOURCE_DISTRIBUTION_TYPE SOURCE_DISTRIBUTION_TYPE,
1608: PO_ENCUMBRANCE_POSTPROCESSING.GET_SIGN_FOR_AMOUNT (
1609: PBD.EVENT_TYPE_CODE,
1610: PBD.MAIN_OR_BACKING_CODE,
1611: PBD.ADJUSTMENT_STATUS,
1612: PBD.DISTRIBUTION_TYPE
4202: , pba.ENCODED_MSG
4203: , 'Y' --
4204: , poh.segment1
4205: from psa_xla_accounting_errors pba,po_headers_all poh
4206: where pba.event_id = PO_ENCUMBRANCE_POSTPROCESSING.g_event_id
4207: and pba.source_id_int_1 = poh.po_header_id
4208:
4209: UNION ALL
4210:
4219: , pba.ENCODED_MSG
4220: , 'Y' --
4221: , prh.segment1
4222: from psa_xla_accounting_errors pba,po_requisition_headers_all prh
4223: where pba.event_id = PO_ENCUMBRANCE_POSTPROCESSING.g_event_id
4224: and pba.source_id_int_1 = prh.requisition_header_id;
4225: else
4226:
4227: -- l_single_message_flag indicates what type of detailed message we show.
5070:
5071: END get_event_and_entity_codes;
5072:
5073: --
5074: END PO_ENCUMBRANCE_POSTPROCESSING;