1: PACKAGE BODY PO_ACCOUNT_HELPER AS
2: -- $Header: PO_ACCOUNT_HELPER.plb 120.8.12020000.6 2013/04/26 08:21:10 yuandli ship $
3:
4: --
5: d_pkg_name CONSTANT varchar2(50) := PO_LOG.get_package_base('PO_ACCOUNT_HELPER');
1: PACKAGE BODY PO_ACCOUNT_HELPER AS
2: -- $Header: PO_ACCOUNT_HELPER.plb 120.8.12020000.6 2013/04/26 08:21:10 yuandli ship $
3:
4: --
5: d_pkg_name CONSTANT varchar2(50) := PO_LOG.get_package_base('PO_ACCOUNT_HELPER');
6:
1: PACKAGE BODY PO_ACCOUNT_HELPER AS
2: -- $Header: PO_ACCOUNT_HELPER.plb 120.8.12020000.6 2013/04/26 08:21:10 yuandli ship $
3:
4: --
5: d_pkg_name CONSTANT varchar2(50) := PO_LOG.get_package_base('PO_ACCOUNT_HELPER');
6:
7: --
8: PROCEDURE INSERT_REPORT_AUTONOMOUS(
9: P_MESSAGE_TEXT IN VARCHAR2
192:
193: BEGIN
194:
195: -- establish savepoint to roll back to (general exception)
196: SAVEPOINT PO_ACCOUNT_HELPER_BEGIN_SP;
197:
198: l_gms_processing_required := (p_award_number IS NOT NULL);
199:
200: IF l_gms_processing_required THEN
199:
200: IF l_gms_processing_required THEN
201:
202: -- savepoint for award distribution creation
203: SAVEPOINT PO_ACCOUNT_HELPER_GMS_SP;
204:
205: -- Create/update the Award Distributions before calling the Account
206: -- Generator.
207: PO_GMS_INTEGRATION_PVT.maintain_po_adl(
348: );
349:
350: IF l_gms_processing_required THEN
351: -- Revert the Award Distribution changes back to the saved state.
352: ROLLBACK TO PO_ACCOUNT_HELPER_GMS_SP;
353: END IF;
354:
355: RETURN(l_success);
356:
355: RETURN(l_success);
356:
357: EXCEPTION
358: WHEN OTHERS THEN
359: ROLLBACK TO PO_ACCOUNT_HELPER_BEGIN_SP;
360: RAISE;
361:
362: END build_accounts;
363:
1108: PO_LOG.proc_begin(d_module, 'p_draft_id', p_draft_id);
1109: END IF;
1110:
1111: -- establish savepoint to roll back to (general exception)
1112: SAVEPOINT PO_ACCOUNT_HELPER_RB_ACC_SP;
1113: -- START MAIN LOGIC
1114:
1115: SELECT PO_ONLINE_REPORT_TEXT_S.nextval
1116: INTO l_report_id
1437: END IF;
1438:
1439: --#6: call workflow
1440: l_code_combination_id := NULL;
1441: l_success := PO_ACCOUNT_HELPER.build_accounts(
1442: --IN Params:
1443: x_purchasing_ou_id => l_dists.header_org_id,
1444: x_transaction_flow_header_id => l_dists.transaction_flow_header_id,
1445: --IN OUT Params:
1836:
1837: EXCEPTION
1838: WHEN OTHERS THEN
1839: x_return_status := 'E';
1840: ROLLBACK TO PO_ACCOUNT_HELPER_RB_ACC_SP;
1841: po_message_s.sql_error(d_pkg_name, d_api_name, d_position, SQLCODE, SQLERRM);
1842: fnd_msg_pub.add;
1843: RAISE;
1844: END online_rebuild_accounts;
2144: PO_LOG.stmt(d_module,d_position,'No Of records ',l_count);
2145: END IF;
2146:
2147:
2148: PO_ACCOUNT_HELPER.BUILD_ACRN(p_header_id=>p_header_id,
2149: P_DIST_ID_TBL =>L_DIST_ID_TBL,
2150: P_CODE_ID_TBL=>L_CODE_ID_TBL,
2151: P_ACRN_TBL=>L_ACRN_TBL,
2152: P_LOA_TBL=>L_LOA_TBL,
2232: END IF;
2233: RAISE;
2234: END BUILD_ACRN_WRAP;
2235: --Bug 16518955
2236: END PO_ACCOUNT_HELPER;