eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.PA_BILLING_PUB dependencies on PA_BILLING

Line 1: Package BODY pa_billing_pub AS

1: Package BODY pa_billing_pub AS
2: /* $Header: PAXIPUBB.pls 120.5 2006/02/02 00:14:28 rgandhi noship $ */
3:
4: --------------------------------------
5: -- PROCEDURE/FUNCTION IMPLEMENTATIONS

Line 71: PA_MCB_INVOICE_PKG.log_message('Entering pa_billing_pub.get_budget_amount: ');

67: cost_budget_not_baselined EXCEPTION;
68:
69: BEGIN
70: IF g1_debug_mode = 'Y' THEN
71: PA_MCB_INVOICE_PKG.log_message('Entering pa_billing_pub.get_budget_amount: ');
72: END IF;
73: X_status := 0;
74: X_error_message := NULL;
75: BEGIN

Line 93: FROM pa_billing_extensions

89: INTO l_cost_budget_type_code,
90: l_rev_budget_type_code,
91: l_cost_plan_type_id,
92: l_rev_plan_type_id
93: FROM pa_billing_extensions
94: WHERE billing_extension_id=pa_billing.GetBillingExtensionId;
95:
96: END IF;
97:

Line 94: WHERE billing_extension_id=pa_billing.GetBillingExtensionId;

90: l_rev_budget_type_code,
91: l_cost_plan_type_id,
92: l_rev_plan_type_id
93: FROM pa_billing_extensions
94: WHERE billing_extension_id=pa_billing.GetBillingExtensionId;
95:
96: END IF;
97:
98:

Line 278: PA_MCB_INVOICE_PKG.log_message('Exiting pa_billing_pub.get_budget_amount: ');

274:
275: -- If any exception then raise it to the calling pl/sql block
276: --
277: IF g1_debug_mode = 'Y' THEN
278: PA_MCB_INVOICE_PKG.log_message('Exiting pa_billing_pub.get_budget_amount: ');
279: END IF;
280: EXCEPTION
281: WHEN invalid_cost_budget_code THEN
282: status := pa_billing_values.get_message('INVALID_COST_BUDGET_TYPE');

Line 282: status := pa_billing_values.get_message('INVALID_COST_BUDGET_TYPE');

278: PA_MCB_INVOICE_PKG.log_message('Exiting pa_billing_pub.get_budget_amount: ');
279: END IF;
280: EXCEPTION
281: WHEN invalid_cost_budget_code THEN
282: status := pa_billing_values.get_message('INVALID_COST_BUDGET_TYPE');
283: l_status := 1;
284: RAISE_APPLICATION_ERROR(-20101,status);
285: WHEN invalid_rev_budget_code THEN
286: status := pa_billing_values.get_message('INVALID_REV_BUDGET_TYPE');

Line 286: status := pa_billing_values.get_message('INVALID_REV_BUDGET_TYPE');

282: status := pa_billing_values.get_message('INVALID_COST_BUDGET_TYPE');
283: l_status := 1;
284: RAISE_APPLICATION_ERROR(-20101,status);
285: WHEN invalid_rev_budget_code THEN
286: status := pa_billing_values.get_message('INVALID_REV_BUDGET_TYPE');
287: l_status := 2;
288: RAISE_APPLICATION_ERROR(-20101,status);
289: WHEN rev_budget_not_baselined THEN
290: status := pa_billing_values.get_message('REV_BUDGET_NOT_BASELINED');

Line 290: status := pa_billing_values.get_message('REV_BUDGET_NOT_BASELINED');

286: status := pa_billing_values.get_message('INVALID_REV_BUDGET_TYPE');
287: l_status := 2;
288: RAISE_APPLICATION_ERROR(-20101,status);
289: WHEN rev_budget_not_baselined THEN
290: status := pa_billing_values.get_message('REV_BUDGET_NOT_BASELINED');
291: l_status := 3;
292: RAISE_APPLICATION_ERROR(-20101,status);
293: WHEN cost_budget_not_baselined THEN
294: status := pa_billing_values.get_message('COST_BUDGET_NOT_BASELINED');

Line 294: status := pa_billing_values.get_message('COST_BUDGET_NOT_BASELINED');

290: status := pa_billing_values.get_message('REV_BUDGET_NOT_BASELINED');
291: l_status := 3;
292: RAISE_APPLICATION_ERROR(-20101,status);
293: WHEN cost_budget_not_baselined THEN
294: status := pa_billing_values.get_message('COST_BUDGET_NOT_BASELINED');
295: l_status := 4;
296: RAISE_APPLICATION_ERROR(-20101,status);
297: WHEN OTHERS THEN
298: status := substr(SQLERRM,1,240);

Line 317: (X_inserting_procedure_name =>'pa_billing_pub.get_budget_amount',

313: X_error_message := status;
314: X_status := l_status;
315:
316: insert_message
317: (X_inserting_procedure_name =>'pa_billing_pub.get_budget_amount',
318: X_attribute1 => l_cost_budget_type_code,
319: X_attribute2 => l_rev_budget_type_code,
320: X_message => status,
321: X_error_message=>err_msg,

Line 497: PA_MCB_INVOICE_PKG.log_message('Entering pa_billing_pub.get_amount: ');

493:
494: BEGIN
495:
496: IF g1_debug_mode = 'Y' THEN
497: PA_MCB_INVOICE_PKG.log_message('Entering pa_billing_pub.get_amount: ');
498: END IF;
499: total_amount := 0;
500:
501: IF (X_Request_id IS NULL) THEN -->No RqstId given

Line 506: nvl(pa_billing_amount.rdl_amount(X_which_amount,

502:
503: IF (X_which_amount = 'I' OR X_which_amount = 'R') THEN -->Want Inv/Rev amts
504: FOR Proj_rec IN ByProject LOOP
505: total_amount := total_amount +
506: nvl(pa_billing_amount.rdl_amount(X_which_amount,
507: Proj_rec.eid, X_calling_place, Proj_rec.ei_adj),0);
508: END LOOP;
509: ELSE -->Want cost amounts
510: FOR Proj_rec IN ByProject LOOP

Line 533: PA_MCB_INVOICE_PKG.log_message('Exiting pa_billing_pub.get_amount: ');

529: END IF;
530: X_amount := pa_currency.round_currency_amt(total_amount);
531:
532: IF g1_debug_mode = 'Y' THEN
533: PA_MCB_INVOICE_PKG.log_message('Exiting pa_billing_pub.get_amount: ');
534: END IF;
535: EXCEPTION
536: WHEN NO_DATA_FOUND THEN
537: -- DBMS_OUTPUT.PUT_LINE(SQLERRM);

Line 578: PA_MCB_INVOICE_PKG.log_message('Entering pa_billing_pub.insert_message: ');

574: xo_line_num NUMBER(15);
575:
576: BEGIN
577: IF g1_debug_mode = 'Y' THEN
578: PA_MCB_INVOICE_PKG.log_message('Entering pa_billing_pub.insert_message: ');
579: END IF;
580: x_created_by := FND_GLOBAL.USER_ID;
581: x_last_updated_by := FND_GLOBAL.USER_ID;
582: x_last_update_login := FND_GLOBAL.LOGIN_ID;

Line 591: FROM PA_BILLING_MESSAGES BM

587: X_error_message := NULL;
588:
589: SELECT max(BM.line_num)
590: INTO xo_line_num
591: FROM PA_BILLING_MESSAGES BM
592: WHERE BM.project_id = pa_billing.GlobVars.ProjectId
593: AND nvl(BM.task_Id,0) = nvl(pa_billing.GlobVars.TaskId,0)
594: AND BM.calling_place = pa_billing.GlobVars.CallingPlace
595: AND BM.calling_process = pa_billing.GlobVars.CallingProcess

Line 592: WHERE BM.project_id = pa_billing.GlobVars.ProjectId

588:
589: SELECT max(BM.line_num)
590: INTO xo_line_num
591: FROM PA_BILLING_MESSAGES BM
592: WHERE BM.project_id = pa_billing.GlobVars.ProjectId
593: AND nvl(BM.task_Id,0) = nvl(pa_billing.GlobVars.TaskId,0)
594: AND BM.calling_place = pa_billing.GlobVars.CallingPlace
595: AND BM.calling_process = pa_billing.GlobVars.CallingProcess
596: AND BM.request_id = pa_billing.GlobVars.ReqId;

Line 593: AND nvl(BM.task_Id,0) = nvl(pa_billing.GlobVars.TaskId,0)

589: SELECT max(BM.line_num)
590: INTO xo_line_num
591: FROM PA_BILLING_MESSAGES BM
592: WHERE BM.project_id = pa_billing.GlobVars.ProjectId
593: AND nvl(BM.task_Id,0) = nvl(pa_billing.GlobVars.TaskId,0)
594: AND BM.calling_place = pa_billing.GlobVars.CallingPlace
595: AND BM.calling_process = pa_billing.GlobVars.CallingProcess
596: AND BM.request_id = pa_billing.GlobVars.ReqId;
597:

Line 594: AND BM.calling_place = pa_billing.GlobVars.CallingPlace

590: INTO xo_line_num
591: FROM PA_BILLING_MESSAGES BM
592: WHERE BM.project_id = pa_billing.GlobVars.ProjectId
593: AND nvl(BM.task_Id,0) = nvl(pa_billing.GlobVars.TaskId,0)
594: AND BM.calling_place = pa_billing.GlobVars.CallingPlace
595: AND BM.calling_process = pa_billing.GlobVars.CallingProcess
596: AND BM.request_id = pa_billing.GlobVars.ReqId;
597:
598: IF (xo_line_num IS NULL) THEN

Line 595: AND BM.calling_process = pa_billing.GlobVars.CallingProcess

591: FROM PA_BILLING_MESSAGES BM
592: WHERE BM.project_id = pa_billing.GlobVars.ProjectId
593: AND nvl(BM.task_Id,0) = nvl(pa_billing.GlobVars.TaskId,0)
594: AND BM.calling_place = pa_billing.GlobVars.CallingPlace
595: AND BM.calling_process = pa_billing.GlobVars.CallingProcess
596: AND BM.request_id = pa_billing.GlobVars.ReqId;
597:
598: IF (xo_line_num IS NULL) THEN
599: xo_line_num := 1;

Line 596: AND BM.request_id = pa_billing.GlobVars.ReqId;

592: WHERE BM.project_id = pa_billing.GlobVars.ProjectId
593: AND nvl(BM.task_Id,0) = nvl(pa_billing.GlobVars.TaskId,0)
594: AND BM.calling_place = pa_billing.GlobVars.CallingPlace
595: AND BM.calling_process = pa_billing.GlobVars.CallingProcess
596: AND BM.request_id = pa_billing.GlobVars.ReqId;
597:
598: IF (xo_line_num IS NULL) THEN
599: xo_line_num := 1;
600: ELSE xo_line_num := xo_line_num + 1;

Line 603: INSERT INTO PA_BILLING_MESSAGES

599: xo_line_num := 1;
600: ELSE xo_line_num := xo_line_num + 1;
601: END IF;
602:
603: INSERT INTO PA_BILLING_MESSAGES
604: (inserting_procedure_name,
605: Billing_Assignment_Id,
606: Project_Id,
607: Task_Id,

Line 635: pa_billing.GlobVars.BillingAssignmentId,

631: attribute14,
632: attribute15)
633: VALUES (
634: X_inserting_procedure_name,
635: pa_billing.GlobVars.BillingAssignmentId,
636: pa_billing.GlobVars.ProjectId,
637: pa_billing.GlobVars.TaskId,
638: pa_billing.GlobVars.CallingPlace,
639: pa_billing.GlobVars.CallingProcess,

Line 636: pa_billing.GlobVars.ProjectId,

632: attribute15)
633: VALUES (
634: X_inserting_procedure_name,
635: pa_billing.GlobVars.BillingAssignmentId,
636: pa_billing.GlobVars.ProjectId,
637: pa_billing.GlobVars.TaskId,
638: pa_billing.GlobVars.CallingPlace,
639: pa_billing.GlobVars.CallingProcess,
640: pa_billing.GlobVars.ReqId,

Line 637: pa_billing.GlobVars.TaskId,

633: VALUES (
634: X_inserting_procedure_name,
635: pa_billing.GlobVars.BillingAssignmentId,
636: pa_billing.GlobVars.ProjectId,
637: pa_billing.GlobVars.TaskId,
638: pa_billing.GlobVars.CallingPlace,
639: pa_billing.GlobVars.CallingProcess,
640: pa_billing.GlobVars.ReqId,
641: xo_line_num,

Line 638: pa_billing.GlobVars.CallingPlace,

634: X_inserting_procedure_name,
635: pa_billing.GlobVars.BillingAssignmentId,
636: pa_billing.GlobVars.ProjectId,
637: pa_billing.GlobVars.TaskId,
638: pa_billing.GlobVars.CallingPlace,
639: pa_billing.GlobVars.CallingProcess,
640: pa_billing.GlobVars.ReqId,
641: xo_line_num,
642: X_message,

Line 639: pa_billing.GlobVars.CallingProcess,

635: pa_billing.GlobVars.BillingAssignmentId,
636: pa_billing.GlobVars.ProjectId,
637: pa_billing.GlobVars.TaskId,
638: pa_billing.GlobVars.CallingPlace,
639: pa_billing.GlobVars.CallingProcess,
640: pa_billing.GlobVars.ReqId,
641: xo_line_num,
642: X_message,
643: sysdate,

Line 640: pa_billing.GlobVars.ReqId,

636: pa_billing.GlobVars.ProjectId,
637: pa_billing.GlobVars.TaskId,
638: pa_billing.GlobVars.CallingPlace,
639: pa_billing.GlobVars.CallingProcess,
640: pa_billing.GlobVars.ReqId,
641: xo_line_num,
642: X_message,
643: sysdate,
644: x_created_by,

Line 667: PA_MCB_INVOICE_PKG.log_message('Exiting pa_billing_pub.insert_message: ');

663:
664: --commit;
665:
666: IF g1_debug_mode = 'Y' THEN
667: PA_MCB_INVOICE_PKG.log_message('Exiting pa_billing_pub.insert_message: ');
668: END IF;
669: EXCEPTION
670: WHEN OTHERS THEN
671: -- DBMS_OUTPUT.PUT(SQLERRM);

Line 810: PA_MCB_INVOICE_PKG.log_message('Entering pa_billing_pub.insert_event:' );

806:
807: BEGIN
808: BEGIN
809: IF g1_debug_mode = 'Y' THEN
810: PA_MCB_INVOICE_PKG.log_message('Entering pa_billing_pub.insert_event:' );
811: END IF;
812: -- Assigning who columns for insertion into PA_EVENTS.
813:
814: created_by := FND_GLOBAL.USER_ID;

Line 823: IF (pa_billing.GlobVars.BillingAssignmentId IS NULL OR

819:
820: X_status := 0;
821: X_error_message := NULL;
822: -- Validate Mandatory Parameters
823: IF (pa_billing.GlobVars.BillingAssignmentId IS NULL OR
824: pa_billing.GlobVars.ReqId IS NULL OR
825: pa_billing.GlobVars.CallingPlace IS NULL OR
826: pa_billing.GlobVars.CallingProcess IS NULL) THEN
827: raise mandatory_prm_missing;

Line 824: pa_billing.GlobVars.ReqId IS NULL OR

820: X_status := 0;
821: X_error_message := NULL;
822: -- Validate Mandatory Parameters
823: IF (pa_billing.GlobVars.BillingAssignmentId IS NULL OR
824: pa_billing.GlobVars.ReqId IS NULL OR
825: pa_billing.GlobVars.CallingPlace IS NULL OR
826: pa_billing.GlobVars.CallingProcess IS NULL) THEN
827: raise mandatory_prm_missing;
828: END IF;

Line 825: pa_billing.GlobVars.CallingPlace IS NULL OR

821: X_error_message := NULL;
822: -- Validate Mandatory Parameters
823: IF (pa_billing.GlobVars.BillingAssignmentId IS NULL OR
824: pa_billing.GlobVars.ReqId IS NULL OR
825: pa_billing.GlobVars.CallingPlace IS NULL OR
826: pa_billing.GlobVars.CallingProcess IS NULL) THEN
827: raise mandatory_prm_missing;
828: END IF;
829:

Line 826: pa_billing.GlobVars.CallingProcess IS NULL) THEN

822: -- Validate Mandatory Parameters
823: IF (pa_billing.GlobVars.BillingAssignmentId IS NULL OR
824: pa_billing.GlobVars.ReqId IS NULL OR
825: pa_billing.GlobVars.CallingPlace IS NULL OR
826: pa_billing.GlobVars.CallingProcess IS NULL) THEN
827: raise mandatory_prm_missing;
828: END IF;
829:
830: /* The following logic has been added for MCB2 functionality */

Line 831: l_project_id := nvl(X_project_id, pa_billing.GlobVars.ProjectId);

827: raise mandatory_prm_missing;
828: END IF;
829:
830: /* The following logic has been added for MCB2 functionality */
831: l_project_id := nvl(X_project_id, pa_billing.GlobVars.ProjectId);
832: PA_MULTI_CURRENCY_BILLING.get_project_defaults (
833: p_project_id => l_project_id,
834: x_multi_currency_billing_flag => l_multi_currency_billing_flag,
835: x_baseline_funding_flag => l_baseline_funding_flag,

Line 875: PA_MCB_INVOICE_PKG.log_message('after pa_billing_pub.insert_event: rev amt'||to_char(XD_bill_trans_rev_amt));

871:
872: /* Rounding the transaction amount upto the precision of transaction currency for MCB2 */
873: XD_bill_trans_rev_amt := PA_MULTI_CURRENCY_BILLING.ROUND_TRANS_CURRENCY_AMT(NVL(X_rev_amt, 0),l_txn_currency_code);
874: IF g1_debug_mode = 'Y' THEN
875: PA_MCB_INVOICE_PKG.log_message('after pa_billing_pub.insert_event: rev amt'||to_char(XD_bill_trans_rev_amt));
876: END IF;
877: XD_bill_trans_bill_amt := PA_MULTI_CURRENCY_BILLING.ROUND_TRANS_CURRENCY_AMT(NVL(X_bill_amt,0),l_txn_currency_code);
878: IF g1_debug_mode = 'Y' THEN
879: PA_MCB_INVOICE_PKG.log_message('after pa_billing_pub.insert_event: inv amt'||to_char(XD_bill_trans_bill_amt));

Line 879: PA_MCB_INVOICE_PKG.log_message('after pa_billing_pub.insert_event: inv amt'||to_char(XD_bill_trans_bill_amt));

875: PA_MCB_INVOICE_PKG.log_message('after pa_billing_pub.insert_event: rev amt'||to_char(XD_bill_trans_rev_amt));
876: END IF;
877: XD_bill_trans_bill_amt := PA_MULTI_CURRENCY_BILLING.ROUND_TRANS_CURRENCY_AMT(NVL(X_bill_amt,0),l_txn_currency_code);
878: IF g1_debug_mode = 'Y' THEN
879: PA_MCB_INVOICE_PKG.log_message('after pa_billing_pub.insert_event: inv amt'||to_char(XD_bill_trans_bill_amt));
880: END IF;
881: /* The following amounts have been commented for MCB2, the above amounts are satisfying the same requirement */
882: /* XD_bill_trans_rev_amt := (NVL(X_rev_amt, 0));
883: XD_bill_trans_bill_amt := (NVL(X_bill_amt,0)); */

Line 887: to_date(pa_billing.GlobVars.AccrueThruDate,'YYYY/MM/DD'));

883: XD_bill_trans_bill_amt := (NVL(X_bill_amt,0)); */
884:
885: -- Get defaults for other non-mandatory parameters
886: XD_completion_date := nvl(X_completion_date,
887: to_date(pa_billing.GlobVars.AccrueThruDate,'YYYY/MM/DD'));
888:
889:
890: -- Added check to prevent event creation from other calling places like 'PRE' 'POST'
891: -- 'DEL' etc.

Line 893: IF (pa_billing.GlobVars.CallingPlace NOT IN ('REG','ADJ','POST-REG')) THEN

889:
890: -- Added check to prevent event creation from other calling places like 'PRE' 'POST'
891: -- 'DEL' etc.
892: --
893: IF (pa_billing.GlobVars.CallingPlace NOT IN ('REG','ADJ','POST-REG')) THEN
894: raise invalid_calling_place;
895: END IF;
896:
897:

Line 899: XD_organization_id := pa_billing_values.get_dflt_org(

895: END IF;
896:
897:
898: IF (X_organization_id IS NULL) THEN
899: XD_organization_id := pa_billing_values.get_dflt_org(
900: nvl(X_project_id,
901: pa_billing.GlobVars.ProjectId),
902: nvl(X_top_task_id,
903: pa_billing.GlobVars.TaskId));

Line 901: pa_billing.GlobVars.ProjectId),

897:
898: IF (X_organization_id IS NULL) THEN
899: XD_organization_id := pa_billing_values.get_dflt_org(
900: nvl(X_project_id,
901: pa_billing.GlobVars.ProjectId),
902: nvl(X_top_task_id,
903: pa_billing.GlobVars.TaskId));
904: ELSE
905: XD_organization_id := X_organization_id;

Line 903: pa_billing.GlobVars.TaskId));

899: XD_organization_id := pa_billing_values.get_dflt_org(
900: nvl(X_project_id,
901: pa_billing.GlobVars.ProjectId),
902: nvl(X_top_task_id,
903: pa_billing.GlobVars.TaskId));
904: ELSE
905: XD_organization_id := X_organization_id;
906: END IF;
907:

Line 910: pa_billing_values.get_dflt_desc(pa_billing.GlobVars.BillingAssignmentId,

906: END IF;
907:
908: IF (X_event_description IS NULL OR
909: X_event_type IS NULL) THEN
910: pa_billing_values.get_dflt_desc(pa_billing.GlobVars.BillingAssignmentId,
911: XD_event_type, XD_event_description);
912: XD_event_description := nvl(X_event_description,
913: XD_event_description);
914: XD_event_type := nvl(X_event_type, XD_event_type);

Line 927: IF (pa_billing_validate.valid_proj_task_extn(

923:
924:
925: -- Validate Id's
926:
927: IF (pa_billing_validate.valid_proj_task_extn(
928: nvl(X_project_id, pa_billing.GlobVars.ProjectId),
929: nvl(X_top_task_id, pa_billing.GlobVars.TaskId),
930: pa_billing.GlobVars.BillingAssignmentId) AND
931: pa_billing_validate.valid_organization(XD_organization_id)) THEN

Line 928: nvl(X_project_id, pa_billing.GlobVars.ProjectId),

924:
925: -- Validate Id's
926:
927: IF (pa_billing_validate.valid_proj_task_extn(
928: nvl(X_project_id, pa_billing.GlobVars.ProjectId),
929: nvl(X_top_task_id, pa_billing.GlobVars.TaskId),
930: pa_billing.GlobVars.BillingAssignmentId) AND
931: pa_billing_validate.valid_organization(XD_organization_id)) THEN
932: NULL;

Line 929: nvl(X_top_task_id, pa_billing.GlobVars.TaskId),

925: -- Validate Id's
926:
927: IF (pa_billing_validate.valid_proj_task_extn(
928: nvl(X_project_id, pa_billing.GlobVars.ProjectId),
929: nvl(X_top_task_id, pa_billing.GlobVars.TaskId),
930: pa_billing.GlobVars.BillingAssignmentId) AND
931: pa_billing_validate.valid_organization(XD_organization_id)) THEN
932: NULL;
933: ELSE

Line 930: pa_billing.GlobVars.BillingAssignmentId) AND

926:
927: IF (pa_billing_validate.valid_proj_task_extn(
928: nvl(X_project_id, pa_billing.GlobVars.ProjectId),
929: nvl(X_top_task_id, pa_billing.GlobVars.TaskId),
930: pa_billing.GlobVars.BillingAssignmentId) AND
931: pa_billing_validate.valid_organization(XD_organization_id)) THEN
932: NULL;
933: ELSE
934: RAISE INVALID_ID;

Line 931: pa_billing_validate.valid_organization(XD_organization_id)) THEN

927: IF (pa_billing_validate.valid_proj_task_extn(
928: nvl(X_project_id, pa_billing.GlobVars.ProjectId),
929: nvl(X_top_task_id, pa_billing.GlobVars.TaskId),
930: pa_billing.GlobVars.BillingAssignmentId) AND
931: pa_billing_validate.valid_organization(XD_organization_id)) THEN
932: NULL;
933: ELSE
934: RAISE INVALID_ID;
935: END IF;

Line 941: IF (nvl(X_top_task_id, pa_billing.GlobVars.TaskId) IS NULL) THEN

937:
938:
939: -- Validate funding level
940:
941: IF (nvl(X_top_task_id, pa_billing.GlobVars.TaskId) IS NULL) THEN
942: IF (pa_billing_values.funding_level(nvl(X_project_id,
943: pa_billing.GlobVars.ProjectId))
944: <> 'PROJECT') THEN
945: RAISE invalid_project_event;

Line 942: IF (pa_billing_values.funding_level(nvl(X_project_id,

938:
939: -- Validate funding level
940:
941: IF (nvl(X_top_task_id, pa_billing.GlobVars.TaskId) IS NULL) THEN
942: IF (pa_billing_values.funding_level(nvl(X_project_id,
943: pa_billing.GlobVars.ProjectId))
944: <> 'PROJECT') THEN
945: RAISE invalid_project_event;
946: END IF;

Line 943: pa_billing.GlobVars.ProjectId))

939: -- Validate funding level
940:
941: IF (nvl(X_top_task_id, pa_billing.GlobVars.TaskId) IS NULL) THEN
942: IF (pa_billing_values.funding_level(nvl(X_project_id,
943: pa_billing.GlobVars.ProjectId))
944: <> 'PROJECT') THEN
945: RAISE invalid_project_event;
946: END IF;
947: END IF;

Line 957: pa_billing.GlobVars.CallingProcess = 'Revenue') OR

953: -- Validate amounts based on which process is calling.
954: IF ((((XD_bill_trans_rev_amt = 0) AND (nvl(X_zero_revenue_amount_flag,'N') = 'N')) AND
955: (XD_bill_trans_bill_amt = 0)) OR
956: ((XD_bill_trans_rev_amt = 0) AND (nvl(X_zero_revenue_amount_flag,'N') = 'N') AND
957: pa_billing.GlobVars.CallingProcess = 'Revenue') OR
958: ((XD_bill_trans_bill_amt = 0) AND
959: pa_billing.GlobVars.CallingProcess = 'Invoice')) THEN
960: RAISE zero_amounts;
961: END IF;

Line 959: pa_billing.GlobVars.CallingProcess = 'Invoice')) THEN

955: (XD_bill_trans_bill_amt = 0)) OR
956: ((XD_bill_trans_rev_amt = 0) AND (nvl(X_zero_revenue_amount_flag,'N') = 'N') AND
957: pa_billing.GlobVars.CallingProcess = 'Revenue') OR
958: ((XD_bill_trans_bill_amt = 0) AND
959: pa_billing.GlobVars.CallingProcess = 'Invoice')) THEN
960: RAISE zero_amounts;
961: END IF;
962:
963: -- Check original event num for the ADJ automatic events.

Line 964: IF (PA_BILLING.GetCallPlace = 'ADJ' AND

960: RAISE zero_amounts;
961: END IF;
962:
963: -- Check original event num for the ADJ automatic events.
964: IF (PA_BILLING.GetCallPlace = 'ADJ' AND
965: pa_billing.GlobVars.CallingProcess = 'Invoice' AND
966: nvl(X_event_num_reversed, 0) = 0) THEN
967: RAISE no_orig_event;
968: END IF;

Line 965: pa_billing.GlobVars.CallingProcess = 'Invoice' AND

961: END IF;
962:
963: -- Check original event num for the ADJ automatic events.
964: IF (PA_BILLING.GetCallPlace = 'ADJ' AND
965: pa_billing.GlobVars.CallingProcess = 'Invoice' AND
966: nvl(X_event_num_reversed, 0) = 0) THEN
967: RAISE no_orig_event;
968: END IF;
969:

Line 970: event_num := pa_billing_seq.next_eventnum(

966: nvl(X_event_num_reversed, 0) = 0) THEN
967: RAISE no_orig_event;
968: END IF;
969:
970: event_num := pa_billing_seq.next_eventnum(
971: nvl(X_project_id, pa_billing.GlobVars.ProjectId),
972: nvl(X_top_task_id, pa_billing.GlobVars.TaskId));
973:
974:

Line 971: nvl(X_project_id, pa_billing.GlobVars.ProjectId),

967: RAISE no_orig_event;
968: END IF;
969:
970: event_num := pa_billing_seq.next_eventnum(
971: nvl(X_project_id, pa_billing.GlobVars.ProjectId),
972: nvl(X_top_task_id, pa_billing.GlobVars.TaskId));
973:
974:
975: /* Adding validation of newly added columns in event table for project contract integration */

Line 972: nvl(X_top_task_id, pa_billing.GlobVars.TaskId));

968: END IF;
969:
970: event_num := pa_billing_seq.next_eventnum(
971: nvl(X_project_id, pa_billing.GlobVars.ProjectId),
972: nvl(X_top_task_id, pa_billing.GlobVars.TaskId));
973:
974:
975: /* Adding validation of newly added columns in event table for project contract integration */
976: -- Validating inventory_org_id and inventory_item_id

Line 979: IF (pa_billing_validate.valid_organization(x_inventory_org_id)) THEN

975: /* Adding validation of newly added columns in event table for project contract integration */
976: -- Validating inventory_org_id and inventory_item_id
977:
978: IF (x_inventory_org_id IS NOT NULL) THEN
979: IF (pa_billing_validate.valid_organization(x_inventory_org_id)) THEN
980: NULL;
981: ELSE
982: RAISE INVALID_INVENT_ID;
983: END IF;

Line 1211: IF (pa_billing_validate.automatic_event(XD_event_type)) THEN

1207: l_revproc_exchange_rate := l_projfunc_bil_exchange_rate;
1208: END IF;
1209:
1210: /* MCB2: Removed Revenue amount and Bill amount because,these amounts are being used only for transactions */
1211: IF (pa_billing_validate.automatic_event(XD_event_type)) THEN
1212: insert into pa_events
1213: (PROJECT_ID, TASK_ID, ORGANIZATION_ID, EVENT_NUM, EVENT_TYPE, -- 1
1214: REVENUE_AMOUNT,BILL_AMOUNT,COMPLETION_DATE, REQUEST_ID, -- 2
1215: DESCRIPTION, BILL_HOLD_FLAG, REV_DIST_REJECTION_CODE, -- 3

Line 1278: (nvl(X_project_id, pa_billing.GlobVars.ProjectId), nvl(X_top_task_id,pa_billing.GlobVars.TaskId),

1274: AUDIT_COST_PLAN_TYPE_ID, /* Added for Fin Plan impact */
1275: AUDIT_REV_PLAN_TYPE_ID /* Added for Fin Plan impact */
1276: )
1277: values
1278: (nvl(X_project_id, pa_billing.GlobVars.ProjectId), nvl(X_top_task_id,pa_billing.GlobVars.TaskId),
1279: XD_organization_id, event_num, XD_event_type, -- 1
1280: 0,0,XD_completion_date, pa_billing.GlobVars.ReqId, -- 2
1281: XD_event_description, 'N', NULL, -- 3
1282: 'N', program_application_id,program_id, -- 4

Line 1280: 0,0,XD_completion_date, pa_billing.GlobVars.ReqId, -- 2

1276: )
1277: values
1278: (nvl(X_project_id, pa_billing.GlobVars.ProjectId), nvl(X_top_task_id,pa_billing.GlobVars.TaskId),
1279: XD_organization_id, event_num, XD_event_type, -- 1
1280: 0,0,XD_completion_date, pa_billing.GlobVars.ReqId, -- 2
1281: XD_event_description, 'N', NULL, -- 3
1282: 'N', program_application_id,program_id, -- 4
1283: sysdate, sysdate, nvl(last_updated_by,0), -- 5
1284: sysdate, nvl(created_by,0), nvl(last_update_login,0),

Line 1290: pa_billing.GlobVars.BillingAssignmentId, pa_billing.GlobVars.CallingPlace,

1286: X_attribute1, X_attribute2, X_attribute3, X_attribute4,
1287: X_attribute5, -- 7
1288: X_attribute6, X_attribute7, X_attribute8, X_attribute9,
1289: X_attribute10, -- 8
1290: pa_billing.GlobVars.BillingAssignmentId, pa_billing.GlobVars.CallingPlace,
1291: pa_billing.GlobVars.CallingProcess, -- 9
1292: X_event_num_reversed, -- 10
1293: pa_currency.round_currency_amt(X_audit_amount1),
1294: pa_currency.round_currency_amt(X_audit_amount2),

Line 1291: pa_billing.GlobVars.CallingProcess, -- 9

1287: X_attribute5, -- 7
1288: X_attribute6, X_attribute7, X_attribute8, X_attribute9,
1289: X_attribute10, -- 8
1290: pa_billing.GlobVars.BillingAssignmentId, pa_billing.GlobVars.CallingPlace,
1291: pa_billing.GlobVars.CallingProcess, -- 9
1292: X_event_num_reversed, -- 10
1293: pa_currency.round_currency_amt(X_audit_amount1),
1294: pa_currency.round_currency_amt(X_audit_amount2),
1295: pa_currency.round_currency_amt(X_audit_amount3),

Line 1352: PA_MCB_INVOICE_PKG.log_message('Exiting pa_billing_pub.insert_events: ');

1348: END IF;
1349: -- COMMIT;
1350:
1351: IF g1_debug_mode = 'Y' THEN
1352: PA_MCB_INVOICE_PKG.log_message('Exiting pa_billing_pub.insert_events: ');
1353: END IF;
1354: EXCEPTION
1355: WHEN mandatory_prm_missing THEN
1356: status := pa_billing_values.get_message('MANDATORY_PRM_MISSING');

Line 1356: status := pa_billing_values.get_message('MANDATORY_PRM_MISSING');

1352: PA_MCB_INVOICE_PKG.log_message('Exiting pa_billing_pub.insert_events: ');
1353: END IF;
1354: EXCEPTION
1355: WHEN mandatory_prm_missing THEN
1356: status := pa_billing_values.get_message('MANDATORY_PRM_MISSING');
1357: l_status := 1;
1358: RAISE;
1359: WHEN invalid_id THEN
1360: status := pa_billing_values.get_message('INVALID_ID');

Line 1360: status := pa_billing_values.get_message('INVALID_ID');

1356: status := pa_billing_values.get_message('MANDATORY_PRM_MISSING');
1357: l_status := 1;
1358: RAISE;
1359: WHEN invalid_id THEN
1360: status := pa_billing_values.get_message('INVALID_ID');
1361: l_status := 2;
1362: RAISE;
1363: WHEN invalid_project_event THEN
1364: status := pa_billing_values.get_message('INVALID_PROJECT_EVENT');

Line 1364: status := pa_billing_values.get_message('INVALID_PROJECT_EVENT');

1360: status := pa_billing_values.get_message('INVALID_ID');
1361: l_status := 2;
1362: RAISE;
1363: WHEN invalid_project_event THEN
1364: status := pa_billing_values.get_message('INVALID_PROJECT_EVENT');
1365: l_status := 3;
1366: RAISE;
1367: /*WHEN event_type_error THEN commenting this for bug 3492506
1368: status := pa_billing_values.get_message('EVENT_TYPE_ERROR');

Line 1368: status := pa_billing_values.get_message('EVENT_TYPE_ERROR');

1364: status := pa_billing_values.get_message('INVALID_PROJECT_EVENT');
1365: l_status := 3;
1366: RAISE;
1367: /*WHEN event_type_error THEN commenting this for bug 3492506
1368: status := pa_billing_values.get_message('EVENT_TYPE_ERROR');
1369: RAISE;*/
1370: WHEN null_event_type_error THEN
1371: status := pa_billing_values.get_message('NULL_EVENT_TYPE_ERROR');
1372: l_status := 4;

Line 1371: status := pa_billing_values.get_message('NULL_EVENT_TYPE_ERROR');

1367: /*WHEN event_type_error THEN commenting this for bug 3492506
1368: status := pa_billing_values.get_message('EVENT_TYPE_ERROR');
1369: RAISE;*/
1370: WHEN null_event_type_error THEN
1371: status := pa_billing_values.get_message('NULL_EVENT_TYPE_ERROR');
1372: l_status := 4;
1373: RAISE;
1374: WHEN zero_amounts THEN
1375: status := pa_billing_values.get_message('ZERO_AMOUNTS');

Line 1375: status := pa_billing_values.get_message('ZERO_AMOUNTS');

1371: status := pa_billing_values.get_message('NULL_EVENT_TYPE_ERROR');
1372: l_status := 4;
1373: RAISE;
1374: WHEN zero_amounts THEN
1375: status := pa_billing_values.get_message('ZERO_AMOUNTS');
1376: l_status := 5;
1377: RAISE;
1378: WHEN no_orig_event THEN
1379: status := pa_billing_values.get_message('NO_ORIG_EVENT');

Line 1379: status := pa_billing_values.get_message('NO_ORIG_EVENT');

1375: status := pa_billing_values.get_message('ZERO_AMOUNTS');
1376: l_status := 5;
1377: RAISE;
1378: WHEN no_orig_event THEN
1379: status := pa_billing_values.get_message('NO_ORIG_EVENT');
1380: l_status := 6;
1381: RAISE;
1382: WHEN invalid_calling_place THEN
1383: status := pa_billing_values.get_message('INVALID_CALLING_PLACE');

Line 1383: status := pa_billing_values.get_message('INVALID_CALLING_PLACE');

1379: status := pa_billing_values.get_message('NO_ORIG_EVENT');
1380: l_status := 6;
1381: RAISE;
1382: WHEN invalid_calling_place THEN
1383: status := pa_billing_values.get_message('INVALID_CALLING_PLACE');
1384: l_status := 7;
1385: RAISE;
1386: WHEN invalid_invent_id THEN
1387: status := pa_billing_values.get_message('INVALID_INVENT_ID');

Line 1387: status := pa_billing_values.get_message('INVALID_INVENT_ID');

1383: status := pa_billing_values.get_message('INVALID_CALLING_PLACE');
1384: l_status := 7;
1385: RAISE;
1386: WHEN invalid_invent_id THEN
1387: status := pa_billing_values.get_message('INVALID_INVENT_ID');
1388: l_status := 8;
1389: RAISE;
1390: WHEN l_func_exch_rate_not_passd THEN /* Added for MCB2 */
1391: status := pa_billing_values.get_message('PA_FUNC_EXCH_RATE_NOT_PASSD');

Line 1391: status := pa_billing_values.get_message('PA_FUNC_EXCH_RATE_NOT_PASSD');

1387: status := pa_billing_values.get_message('INVALID_INVENT_ID');
1388: l_status := 8;
1389: RAISE;
1390: WHEN l_func_exch_rate_not_passd THEN /* Added for MCB2 */
1391: status := pa_billing_values.get_message('PA_FUNC_EXCH_RATE_NOT_PASSD');
1392: l_status := 9;
1393: RAISE;
1394: WHEN l_proj_exch_rate_not_passd THEN /* Added for MCB2 */
1395: status := pa_billing_values.get_message('PA_PROJ_EXCH_RATE_NOT_PASSD');

Line 1395: status := pa_billing_values.get_message('PA_PROJ_EXCH_RATE_NOT_PASSD');

1391: status := pa_billing_values.get_message('PA_FUNC_EXCH_RATE_NOT_PASSD');
1392: l_status := 9;
1393: RAISE;
1394: WHEN l_proj_exch_rate_not_passd THEN /* Added for MCB2 */
1395: status := pa_billing_values.get_message('PA_PROJ_EXCH_RATE_NOT_PASSD');
1396: l_status := 10;
1397: RAISE;
1398: WHEN l_fund_exch_rate_not_passd THEN /* Added for MCB2 */
1399: status := pa_billing_values.get_message('PA_FUND_EXCH_RATE_NOT_PASSD');

Line 1399: status := pa_billing_values.get_message('PA_FUND_EXCH_RATE_NOT_PASSD');

1395: status := pa_billing_values.get_message('PA_PROJ_EXCH_RATE_NOT_PASSD');
1396: l_status := 10;
1397: RAISE;
1398: WHEN l_fund_exch_rate_not_passd THEN /* Added for MCB2 */
1399: status := pa_billing_values.get_message('PA_FUND_EXCH_RATE_NOT_PASSD');
1400: l_status := 11;
1401: RAISE;
1402: WHEN l_func_invalid_rate_type THEN /* Added for MCB2 */
1403: status := pa_billing_values.get_message('PA_FUNC_INVALID_RATE_TYPE');

Line 1403: status := pa_billing_values.get_message('PA_FUNC_INVALID_RATE_TYPE');

1399: status := pa_billing_values.get_message('PA_FUND_EXCH_RATE_NOT_PASSD');
1400: l_status := 11;
1401: RAISE;
1402: WHEN l_func_invalid_rate_type THEN /* Added for MCB2 */
1403: status := pa_billing_values.get_message('PA_FUNC_INVALID_RATE_TYPE');
1404: l_status := 12;
1405: RAISE;
1406: WHEN l_proj_invalid_rate_type THEN /* Added for MCB2 */
1407: status := pa_billing_values.get_message('PA_PROJ_INVALID_RATE_TYPE');

Line 1407: status := pa_billing_values.get_message('PA_PROJ_INVALID_RATE_TYPE');

1403: status := pa_billing_values.get_message('PA_FUNC_INVALID_RATE_TYPE');
1404: l_status := 12;
1405: RAISE;
1406: WHEN l_proj_invalid_rate_type THEN /* Added for MCB2 */
1407: status := pa_billing_values.get_message('PA_PROJ_INVALID_RATE_TYPE');
1408: l_status := 13;
1409: RAISE;
1410: WHEN l_fund_invalid_rate_type THEN /* Added for MCB2 */
1411: status := pa_billing_values.get_message('PA_FUND_INVALID_RATE_TYPE');

Line 1411: status := pa_billing_values.get_message('PA_FUND_INVALID_RATE_TYPE');

1407: status := pa_billing_values.get_message('PA_PROJ_INVALID_RATE_TYPE');
1408: l_status := 13;
1409: RAISE;
1410: WHEN l_fund_invalid_rate_type THEN /* Added for MCB2 */
1411: status := pa_billing_values.get_message('PA_FUND_INVALID_RATE_TYPE');
1412: l_status := 14;
1413: RAISE;
1414: WHEN l_invalid_currency THEN /* Added for MCB2 */
1415: status := pa_billing_values.get_message('PA_CURR_NOT_VALID_BC');

Line 1415: status := pa_billing_values.get_message('PA_CURR_NOT_VALID_BC');

1411: status := pa_billing_values.get_message('PA_FUND_INVALID_RATE_TYPE');
1412: l_status := 14;
1413: RAISE;
1414: WHEN l_invalid_currency THEN /* Added for MCB2 */
1415: status := pa_billing_values.get_message('PA_CURR_NOT_VALID_BC');
1416: l_status := 15;
1417: RAISE;
1418: WHEN event_type_error THEN /* adding this here for bug 3492506 */
1419: status := pa_billing_values.get_message('EVENT_TYPE_ERROR');

Line 1419: status := pa_billing_values.get_message('EVENT_TYPE_ERROR');

1415: status := pa_billing_values.get_message('PA_CURR_NOT_VALID_BC');
1416: l_status := 15;
1417: RAISE;
1418: WHEN event_type_error THEN /* adding this here for bug 3492506 */
1419: status := pa_billing_values.get_message('EVENT_TYPE_ERROR');
1420: l_status := 16;
1421: RAISE;
1422: WHEN OTHERS THEN
1423: status := substr(SQLERRM,1,240);

Line 1435: insert_message(X_inserting_procedure_name => 'pa_billing_pub.insert_event',

1431: -- DBMS_OUTPUT.PUT_LINE(SQLERRM);
1432: X_error_message := status;
1433: X_status := l_status;
1434:
1435: insert_message(X_inserting_procedure_name => 'pa_billing_pub.insert_event',
1436: X_attribute1 => XD_bill_trans_rev_amt,
1437: X_attribute2 => XD_bill_trans_bill_amt,
1438: X_message => status,
1439: X_status => err_status,

Line 1512: END pa_billing_pub;

1508: End Get_Inv_Method_Override_Flag;
1509:
1510: -- End of APIs added for FP_M changes => Customer at Top Task
1511:
1512: END pa_billing_pub;