1: PACKAGE BODY PO_ACCOUNT_HELPER AS
2: -- $Header: PO_ACCOUNT_HELPER.plb 120.1 2005/08/31 16:57 jmellen noship $
3:
4: -----------------------------------------------------------------------
5: -- Procedure: build_accounts
1: PACKAGE BODY PO_ACCOUNT_HELPER AS
2: -- $Header: PO_ACCOUNT_HELPER.plb 120.1 2005/08/31 16:57 jmellen noship $
3:
4: -----------------------------------------------------------------------
5: -- Procedure: build_accounts
6: --
166:
167: BEGIN
168:
169: -- establish savepoint to roll back to (general exception)
170: SAVEPOINT PO_ACCOUNT_HELPER_BEGIN_SP;
171:
172: l_gms_processing_required := (p_award_number IS NOT NULL);
173:
174: IF l_gms_processing_required THEN
173:
174: IF l_gms_processing_required THEN
175:
176: -- savepoint for award distribution creation
177: SAVEPOINT PO_ACCOUNT_HELPER_GMS_SP;
178:
179: -- Create/update the Award Distributions before calling the Account
180: -- Generator.
181: PO_GMS_INTEGRATION_PVT.maintain_po_adl(
321: );
322:
323: IF l_gms_processing_required THEN
324: -- Revert the Award Distribution changes back to the saved state.
325: ROLLBACK TO PO_ACCOUNT_HELPER_GMS_SP;
326: END IF;
327:
328: RETURN(l_success);
329:
328: RETURN(l_success);
329:
330: EXCEPTION
331: WHEN OTHERS THEN
332: ROLLBACK TO PO_ACCOUNT_HELPER_BEGIN_SP;
333: RAISE;
334:
335: END build_accounts;
336:
333: RAISE;
334:
335: END build_accounts;
336:
337: END PO_ACCOUNT_HELPER;