[Home] [Help]
PACKAGE BODY: APPS.PJI_CALC_ENGINE
Source
1 PACKAGE BODY Pji_Calc_Engine AS
2 /* $Header: PJIRX16B.pls 120.1 2005/05/31 08:03:21 appldev $ */
3 PROCEDURE Compute_FP_Measures( p_seeded_measures SYSTEM.PA_Num_Tbl_Type,
4 x_custom_measures OUT NOCOPY SYSTEM.PA_Num_Tbl_Type,
5 x_return_status IN OUT NOCOPY VARCHAR2 ,
6 x_msg_count IN OUT NOCOPY NUMBER ,
7 x_msg_data IN OUT NOCOPY VARCHAR2 ) IS PPF_MSR_BEH_COL NUMBER := p_seeded_measures(1);
8 BillableCost NUMBER := p_seeded_measures(2);
9 BillLaborHrs NUMBER := p_seeded_measures(3);
10 CurBudget2Cost NUMBER := p_seeded_measures(4);
11 CurBudget2EquipHrs NUMBER := p_seeded_measures(5);
12 CurBudget2PeopleHrs NUMBER := p_seeded_measures(6);
13 CurBudget2Revenue NUMBER := p_seeded_measures(7);
14 CurBudgetCost NUMBER := p_seeded_measures(8);
15 CurBudgetEquipHrs NUMBER := p_seeded_measures(9);
16 CurBudgetPeopleHrs NUMBER := p_seeded_measures(10);
17 CurBudgetRevenue NUMBER := p_seeded_measures(11);
18 ForecastCost NUMBER := p_seeded_measures(12);
19 FcstEquipHrs NUMBER := p_seeded_measures(13);
20 FcstPeopleHrs NUMBER := p_seeded_measures(14);
21 FctRevenue NUMBER := p_seeded_measures(15);
22 PeopleRawCost NUMBER := p_seeded_measures(16);
23 NonBillPeopleHrs NUMBER := p_seeded_measures(17);
24 OrigBudget2Cost NUMBER := p_seeded_measures(18);
25 OrigBudget2EquipHrs NUMBER := p_seeded_measures(19);
26 OrigBudget2PeopleHrs NUMBER := p_seeded_measures(20);
27 OrigBudget2Revenue NUMBER := p_seeded_measures(21);
28 OrigBudgetCost NUMBER := p_seeded_measures(22);
29 OrigBudgetEquipHrs NUMBER := p_seeded_measures(23);
30 OrigBudgetPeopleHrs NUMBER := p_seeded_measures(24);
31 OrigBudgetRevenue NUMBER := p_seeded_measures(25);
32 OthCommittedCost NUMBER := p_seeded_measures(26);
33 PoCommittedCost NUMBER := p_seeded_measures(27);
34 Revenue NUMBER := p_seeded_measures(28);
35 RawCost NUMBER := p_seeded_measures(29);
36 SupInvCommittedCost NUMBER := p_seeded_measures(30);
37 TotalBurdenedCost NUMBER := p_seeded_measures(31);
38 TotalEquipHrs NUMBER := p_seeded_measures(32);
39 LaborBurdenedCost NUMBER := p_seeded_measures(33);
40 TotalPeopleHrs NUMBER := p_seeded_measures(34);
41 BEGIN x_custom_measures := SYSTEM.PA_Num_Tbl_Type();
42 x_custom_measures.extend(15);
43 x_custom_measures(1) := BillableCost + CurBudgetCost;
44 x_custom_measures(2) := 0;
45 x_custom_measures(3) := 0;
46 x_custom_measures(4) := 0;
47 x_custom_measures(5) := 0;
48 x_custom_measures(6) := 0;
49 x_custom_measures(7) := 0;
50 x_custom_measures(8) := 0;
51 x_custom_measures(9) := 0;
52 x_custom_measures(10) := 0;
53 x_custom_measures(11) := 0;
54 x_custom_measures(12) := 0;
55 x_custom_measures(13) := 0;
56 x_custom_measures(14) := 0;
57 x_custom_measures(15) := 0;
58 END Compute_FP_Measures;
59
60 PROCEDURE Compute_AC_Measures( p_seeded_measures SYSTEM.PA_Num_Tbl_Type,
61 x_custom_measures OUT NOCOPY SYSTEM.PA_Num_Tbl_Type,
62 x_return_status IN OUT NOCOPY VARCHAR2 ,
63 x_msg_count IN OUT NOCOPY NUMBER ,
64 x_msg_data IN OUT NOCOPY VARCHAR2 ) IS AdditionalFundingAmount NUMBER := p_seeded_measures(1);
65 ArInvoiceAmount NUMBER := p_seeded_measures(2);
66 ArCreditMemoAmount NUMBER := p_seeded_measures(3);
67 PPF_MSR_CP_COL NUMBER := p_seeded_measures(4);
68 FundingAdjustmentAmount NUMBER := p_seeded_measures(5);
69 CancelledFundingAmount NUMBER := p_seeded_measures(6);
70 ArInvoiceWriteoffAmount NUMBER := p_seeded_measures(7);
71 InitialFundingAmount NUMBER := p_seeded_measures(8);
72 ArAmountDue NUMBER := p_seeded_measures(9);
73 OUT_OF_SCOPE NUMBER := p_seeded_measures(10);
74 RevenueAtRisk NUMBER := p_seeded_measures(11);
75 RevenueWriteoff NUMBER := p_seeded_measures(12);
76 BEGIN x_custom_measures := SYSTEM.PA_Num_Tbl_Type();
77 x_custom_measures.extend(15);
78 x_custom_measures(1) := 0;
79 x_custom_measures(2) := 0;
80 x_custom_measures(3) := 0;
81 x_custom_measures(4) := 0;
82 x_custom_measures(5) := 0;
83 x_custom_measures(6) := 0;
84 x_custom_measures(7) := 0;
85 x_custom_measures(8) := 0;
86 x_custom_measures(9) := 0;
87 x_custom_measures(10) := 0;
88 x_custom_measures(11) := 0;
89 x_custom_measures(12) := 0;
90 x_custom_measures(13) := 0;
91 x_custom_measures(14) := 0;
92 x_custom_measures(15) := 0;
93 END Compute_AC_Measures;
94 END Pji_Calc_Engine;