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.
PACKAGE BODY: APPS.PO_CLM_CP_LABEL_EXT

Source


1 PACKAGE BODY PO_CLM_CP_LABEL_EXT AS
2 /* $Header: PO_CLM_CP_LABEL_EXT.plb 120.3.12020000.3 2013/02/10 23:38:22 vegajula ship $ */
3 
4   FUNCTION getHintLabelAmt(p_ContractType IN VARCHAR2,p_IDCType IN VARCHAR2) RETURN VARCHAR2 IS
5   l_amtlabel VARCHAR2(30);
6   l_label VARCHAR2(150);
7   BEGIN
8   l_amtlabel := CASE p_ContractType
9                     when g_FP_AWARD_FEE THEN FPAwardFeeAmt(p_IDCType).AMOUNTLABEL
10                     when g_FP_ECONOMIC_PRICE_ADJ THEN  FPEconomicPriceAdjAmt(p_IDCType).AMOUNTLABEL
11                     when g_FP_FIRM THEN firmfixedpriceAmt(p_IDCType).AMOUNTLABEL
12                     when g_FP_LEVEL_EFFORT THEN  FPLevelofEffortAmt(p_IDCType).AMOUNTLABEL
13                     when g_FP_PROSPECT_REDETERMINATION THEN   FPProspectRedeterminationAmt(p_IDCType).AMOUNTLABEL
14                     when g_FP_RETRO_REDETERMINATION THEN FCPRetroRedeterminationAmt(p_IDCType).AMOUNTLABEL
15                     when g_LABOR_HOUR THEN  LaborHourAmt(p_IDCType).AMOUNTLABEL
16                     when g_TIME_MATERIALS THEN  TimeNMaterialsAmt(p_IDCType).AMOUNTLABEL
17                     when g_AWARD_FEE then  AwardFeeAmt(p_IDCType).AMOUNTLABEL
18                     when g_COST_CONTRACT THEN CostContractAmt(p_IDCType).AMOUNTLABEL
19                     when g_COST_PLUS_AWARD_FEE  THEN CostPlusAwardFeeAmt(p_IDCType).AMOUNTLABEL
20                     when g_COST_PLUS_FIXED_FEE  THEN CostPlusFixedFeeAmt(p_IDCType).AMOUNTLABEL
21                     when g_COST_PLUS_INCENTIVE_FEE  THEN CostPlusIncentiveFeeAmt(p_IDCType).AMOUNTLABEL
22                     when g_COST_SHARING  THEN CostSharingAmt(p_IDCType).AMOUNTLABEL
23                     when g_FP_INCENTIVE_FIRM_TARGET  THEN FPIncentiveFirmTargetAmt(p_IDCType).AMOUNTLABEL
24                     when g_FP_INCENT_SUCCESSIVE_TARGET THEN  FPIncentiveSuccessiveTargetAmt(p_IDCType).AMOUNTLABEL
25                     when g_OTHERDIRECT_COSTS THEN OtherDirectCostAmt(p_IDCType).AMOUNTLABEL
26                     ELSE firmfixedpriceAmt(p_IDCType).AMOUNTLABEL
27                END;
28     l_label := CASE p_ContractType
29                     when g_FP_AWARD_FEE THEN FPAwardFeeAmt(p_IDCType).formula
30                     when g_FP_ECONOMIC_PRICE_ADJ THEN  FPEconomicPriceAdjAmt(p_IDCType).formula
31                     when g_FP_FIRM THEN firmfixedpriceAmt(p_IDCType).formula
32                     when g_FP_LEVEL_EFFORT THEN  FPLevelofEffortAmt(p_IDCType).formula
33                     when g_FP_PROSPECT_REDETERMINATION THEN   FPProspectRedeterminationAmt(p_IDCType).formula
34                     when g_FP_RETRO_REDETERMINATION THEN FCPRetroRedeterminationAmt(p_IDCType).formula
35                     when g_LABOR_HOUR THEN  LaborHourAmt(p_IDCType).formula
36                     when g_TIME_MATERIALS THEN  TimeNMaterialsAmt(p_IDCType).formula
37                     when g_AWARD_FEE then  AwardFeeAmt(p_IDCType).formula
38                     when g_COST_CONTRACT THEN CostContractAmt(p_IDCType).formula
39                     when g_COST_PLUS_AWARD_FEE  THEN CostPlusAwardFeeAmt(p_IDCType).formula
40                     when g_COST_PLUS_FIXED_FEE  THEN CostPlusFixedFeeAmt(p_IDCType).formula
41                     when g_COST_PLUS_INCENTIVE_FEE  THEN CostPlusIncentiveFeeAmt(p_IDCType).formula
42                     when g_COST_SHARING  THEN CostSharingAmt(p_IDCType).formula
43                     when g_FP_INCENTIVE_FIRM_TARGET  THEN FPIncentiveFirmTargetAmt(p_IDCType).formula
44                     when g_FP_INCENT_SUCCESSIVE_TARGET THEN  FPIncentiveSuccessiveTargetAmt(p_IDCType).formula
45                     when g_OTHERDIRECT_COSTS THEN OtherDirectCostAmt(p_IDCType).formula
46                     ELSE firmfixedpriceAmt(p_IDCType).formula
47                  END;
48    IF l_label IS NOT NULL THEN
49     l_label := '( '||l_amtlabel||' = ' ||l_label || ' )';
50    END IF;
51 
52    RETURN l_label;
53   END getHintLabelAmt;
54 
55 
56 FUNCTION getHintLabelQty(p_ContractType IN VARCHAR2,p_IDCType IN VARCHAR2) RETURN VARCHAR2 IS
57   l_amtlabel VARCHAR2(30);
58   l_label VARCHAR2(150);
59   BEGIN
60   l_amtlabel := CASE p_ContractType
61                     when g_FP_AWARD_FEE THEN FPAwardFeeQty(p_IDCType).AMOUNTLABEL
62                     when g_TIME_MATERIALS THEN  TimeNMaterialsQty(p_IDCType).AMOUNTLABEL
63                     ELSE firmfixedpriceAmt(p_IDCType).AMOUNTLABEL
64                 END;
65     l_label := CASE p_ContractType
66                     when g_FP_AWARD_FEE THEN FPAwardFeeQty(p_IDCType).formula
67                     when g_TIME_MATERIALS THEN  TimeNMaterialsQty(p_IDCType).formula
68                     ELSE firmfixedpriceAmt(p_IDCType).formula
69                  END;
70    IF l_label IS NOT NULL THEN
71     l_label := '( '||l_amtlabel||' = ' ||l_label || ' )';
72    END IF;
73 
74    RETURN l_label;
75 END getHintLabelQty;
76 
77   FUNCTION AmountLabelforQtyLineType(p_ContractType IN VARCHAR2,p_IDCType IN VARCHAR2 )
78   RETURN VARCHAR2 IS
79   l_label VARCHAR2(30);
80   BEGIN
81    l_label := CASE p_ContractType
82                     when g_FP_AWARD_FEE THEN FPAwardFeeQty(p_IDCType).AMOUNTLABEL
83                     when g_FP_ECONOMIC_PRICE_ADJ THEN  FPEconomicPriceAdjQty(p_IDCType).AMOUNTLABEL
84                     when g_FP_FIRM THEN firmfixedpriceQty(p_IDCType).AMOUNTLABEL
85                     when g_FP_LEVEL_EFFORT THEN  FPLevelofEffortQty(p_IDCType).AMOUNTLABEL
86                     when g_FP_PROSPECT_REDETERMINATION THEN   FPProspectRedeterminationQty(p_IDCType).AMOUNTLABEL
87                     when g_FP_RETRO_REDETERMINATION THEN FCPRetroRedeterminationQty(p_IDCType).AMOUNTLABEL
88                     when g_LABOR_HOUR THEN  LaborHourQty(p_IDCType).AMOUNTLABEL
89                     when g_TIME_MATERIALS THEN  TimeNMaterialsQty(p_IDCType).AMOUNTLABEL
90                     ELSE firmfixedpriceQty(p_IDCType).AMOUNTLABEL
91                END;
92    RETURN l_label;
93   END AmountLabelforQtyLineType;
94 
95   FUNCTION AmountLabelforAmtLineType(p_ContractType IN VARCHAR2,p_IDCType IN VARCHAR2 )
96   RETURN VARCHAR2 IS
97      l_label VARCHAR2(30);
98   BEGIN
99    l_label := CASE p_ContractType
100                     when g_FP_AWARD_FEE THEN FPAwardFeeAmt(p_IDCType).AMOUNTLABEL
101                     when g_FP_ECONOMIC_PRICE_ADJ THEN  FPEconomicPriceAdjAmt(p_IDCType).AMOUNTLABEL
102                     when g_FP_FIRM THEN firmfixedpriceAmt(p_IDCType).AMOUNTLABEL
103                     when g_FP_LEVEL_EFFORT THEN  FPLevelofEffortAmt(p_IDCType).AMOUNTLABEL
104                     when g_FP_PROSPECT_REDETERMINATION THEN   FPProspectRedeterminationAmt(p_IDCType).AMOUNTLABEL
105                     when g_FP_RETRO_REDETERMINATION THEN FCPRetroRedeterminationAmt(p_IDCType).AMOUNTLABEL
106                     when g_LABOR_HOUR THEN  LaborHourAmt(p_IDCType).AMOUNTLABEL
107                     when g_TIME_MATERIALS THEN  TimeNMaterialsAmt(p_IDCType).AMOUNTLABEL
108                     when g_AWARD_FEE then  AwardFeeAmt(p_IDCType).AMOUNTLABEL
109                     when g_COST_CONTRACT THEN CostContractAmt(p_IDCType).AMOUNTLABEL
110                     when g_COST_PLUS_AWARD_FEE  THEN CostPlusAwardFeeAmt(p_IDCType).AMOUNTLABEL
111                     when g_COST_PLUS_FIXED_FEE  THEN CostPlusFixedFeeAmt(p_IDCType).AMOUNTLABEL
112                     when g_COST_PLUS_INCENTIVE_FEE  THEN CostPlusIncentiveFeeAmt(p_IDCType).AMOUNTLABEL
113                     when g_COST_SHARING  THEN CostSharingAmt(p_IDCType).AMOUNTLABEL
114                     when g_FP_INCENTIVE_FIRM_TARGET  THEN FPIncentiveFirmTargetAmt(p_IDCType).AMOUNTLABEL
115                     when g_FP_INCENT_SUCCESSIVE_TARGET THEN  FPIncentiveSuccessiveTargetAmt(p_IDCType).AMOUNTLABEL
116                     when g_OTHERDIRECT_COSTS THEN OtherDirectCostAmt(p_IDCType).AMOUNTLABEL
117                     ELSE firmfixedpriceAmt(p_IDCType).AMOUNTLABEL
118                END;
119    RETURN l_label;
120 
121   END AmountLabelforAmtLineType;
122 
123   FUNCTION QuantityLABELforQtyLineType(p_ContractType IN VARCHAR2,p_IDCType IN VARCHAR2 )
124   RETURN VARCHAR2 IS
125   l_label VARCHAR2(30);
126   BEGIN
127    l_label := CASE p_ContractType
128                     when g_FP_AWARD_FEE THEN FPAwardFeeQty(p_IDCType).QTYLABEL
129                     when g_FP_ECONOMIC_PRICE_ADJ THEN  FPEconomicPriceAdjQty(p_IDCType).QTYLABEL
130                     when g_FP_FIRM THEN firmfixedpriceQty(p_IDCType).QTYLABEL
131                     when g_FP_LEVEL_EFFORT THEN  FPLevelofEffortQty(p_IDCType).QTYLABEL
132                     when g_FP_PROSPECT_REDETERMINATION THEN   FPProspectRedeterminationQty(p_IDCType).QTYLABEL
133                     when g_FP_RETRO_REDETERMINATION THEN FCPRetroRedeterminationQty(p_IDCType).QTYLABEL
134                     when g_LABOR_HOUR THEN  LaborHourQty(p_IDCType).QTYLABEL
135                     when g_TIME_MATERIALS THEN  TimeNMaterialsQty(p_IDCType).QTYLABEL
136                     ELSE firmfixedpriceQty(p_IDCType).QTYLABEL
137                END;
138    RETURN l_label;
139 
140   END QuantityLABELforQtyLineType;
141 
142   FUNCTION QuantityLABELforAmtLineType(p_ContractType IN VARCHAR2,p_IDCType IN VARCHAR2 )
143   RETURN VARCHAR2 IS
144   l_label VARCHAR2(30);
145   BEGIN
146    l_label := CASE p_ContractType
147                     when g_FP_AWARD_FEE THEN FPAwardFeeAmt(p_IDCType).QTYLABEL
148                     when g_FP_ECONOMIC_PRICE_ADJ THEN  FPEconomicPriceAdjAmt(p_IDCType).QTYLABEL
149                     when g_FP_FIRM THEN firmfixedpriceAmt(p_IDCType).QTYLABEL
150                     when g_FP_LEVEL_EFFORT THEN  FPLevelofEffortAmt(p_IDCType).QTYLABEL
151                     when g_FP_PROSPECT_REDETERMINATION THEN   FPProspectRedeterminationAmt(p_IDCType).QTYLABEL
152                     when g_FP_RETRO_REDETERMINATION THEN FCPRetroRedeterminationAmt(p_IDCType).QTYLABEL
153                     when g_LABOR_HOUR THEN  LaborHourAmt(p_IDCType).QTYLABEL
154                     when g_TIME_MATERIALS THEN  TimeNMaterialsAmt(p_IDCType).QTYLABEL
155                     --when g_AWARD_FEE then  AwardFeeAmt(p_IDCType).QTYLABEL
156                     when g_COST_CONTRACT THEN CostContractAmt(p_IDCType).AMOUNTLABEL
157                     when g_COST_PLUS_AWARD_FEE  THEN CostPlusAwardFeeAmt(p_IDCType).QTYLABEL
158                     when g_COST_PLUS_FIXED_FEE  THEN CostPlusFixedFeeAmt(p_IDCType).QTYLABEL
159                     when g_COST_PLUS_INCENTIVE_FEE  THEN CostPlusIncentiveFeeAmt(p_IDCType).QTYLABEL
160                     when g_COST_SHARING  THEN CostSharingAmt(p_IDCType).QTYLABEL
161                     when g_FP_INCENTIVE_FIRM_TARGET  THEN FPIncentiveFirmTargetAmt(p_IDCType).QTYLABEL
162                     when g_FP_INCENT_SUCCESSIVE_TARGET THEN  FPIncentiveSuccessiveTargetAmt(p_IDCType).QTYLABEL
163                     ELSE firmfixedpriceAmt(p_IDCType).QTYLABEL
164                END;
165    RETURN l_label;
166   END QuantityLABELforAmtLineType;
167 
168 
169 
170 
171   FUNCTION getAmountLabel(p_LineType IN VARCHAR2,p_ContractType IN VARCHAR2,p_IDCType IN VARCHAR2 )
172       RETURN VARCHAR2
173    IS
174    l_IDCType VARCHAR2(30) := Nvl(p_IDCType,g_idc_na);
175    BEGIN
176    IF p_LineType= 'QUANTITY' THEN
177     RETURN  AmountLabelforQtyLineType(p_ContractType,l_IDCType);
178    ELSIF p_LineType= 'AMOUNT' THEN
179     RETURN  AmountLabelforAmtLineType(p_ContractType,l_IDCType);
180    END IF;
181    RETURN g_extended_price;
182    END getAmountLabel;
183 
184   FUNCTION GetQuantityLabel(p_LineType IN VARCHAR2,p_ContractType IN VARCHAR2,p_IDCType IN VARCHAR2 )
185    RETURN VARCHAR2
186    IS
187    l_IDCType VARCHAR2(30) := Nvl(p_IDCType,g_idc_na);
188    BEGIN
189     IF p_LineType= 'QUANTITY' THEN
190     RETURN QuantityLABELforQtyLineType(p_ContractType,l_IDCType);
191    ELSIF p_LineType= 'AMOUNT' THEN
192     RETURN QuantityLABELforAmtLineType(p_ContractType,l_IDCType);
193    END IF;
194    RETURN g_quantity;
195    END GetQuantityLabel;
196 
197   FUNCTION getHintLabel(p_LineType IN VARCHAR2,p_ContractType IN VARCHAR2,p_IDCType IN VARCHAR2 )
198    RETURN VARCHAR2
199    IS
200     l_IDCType VARCHAR2(30) := Nvl(p_IDCType,g_idc_na);
201    BEGIN
202     IF p_LineType= 'QUANTITY' THEN
203       IF p_ContractType NOT IN (g_FP_AWARD_FEE,g_TIME_MATERIALS) THEN
204         RETURN fnd_message.get_string('PO', 'PO_MSG_EXTENDED_PRICE');
205       ELSE
206          RETURN getHintLabelQty(p_ContractType,l_IDCType);
207       END IF;
208    ELSIF p_LineType= 'AMOUNT' THEN
209     RETURN getHintLabelAmt(p_ContractType,l_IDCType);
210    END IF;
211      RETURN fnd_message.get_string('PO', 'PO_MSG_EXTENDED_PRICE');
212   END getHintLabel;
213 
214 
215 
216 
217 BEGIN
218 
219   /* Firm Fixed Amount Contract Type labels Initialization' */
220   firmfixedpriceAmt(g_idc_na).QTYLABEL := g_quantity;
221   firmfixedpriceAmt(g_idc_requirement).QTYLABEL := g_estimated_quantity;
222   firmfixedpriceAmt(g_idc_definite_qty).QTYLABEL := g_quantity;
223   firmfixedpriceAmt(g_idc_indefinite_qty).QTYLABEL :=  g_maximum_quantity;
224 
225   firmfixedpriceAmt(g_idc_na).AMOUNTLABEL := g_extended_price;
226   firmfixedpriceAmt(g_idc_requirement).AMOUNTLABEL := g_estimated_price;
227   firmfixedpriceAmt(g_idc_definite_qty).AMOUNTLABEL := g_extended_price;
228   firmfixedpriceAmt(g_idc_indefinite_qty).AMOUNTLABEL :=  g_maximum_price;
229 
230   firmfixedpriceAmt(g_idc_na).formula := g_quantity ||' * ' || g_unit_price;
231   firmfixedpriceAmt(g_idc_requirement).formula := g_estimated_quantity  ||' * ' || g_unit_price;
232   firmfixedpriceAmt(g_idc_definite_qty).formula := g_quantity ||' * ' || g_unit_price;
233   firmfixedpriceAmt(g_idc_indefinite_qty).formula :=  g_maximum_quantity ||' * ' || g_unit_price;
234 
235 
236   firmfixedpriceQty(g_idc_na).QTYLABEL := g_quantity;
237   firmfixedpriceQty(g_idc_requirement).QTYLABEL := g_estimated_quantity;
238   firmfixedpriceQty(g_idc_definite_qty).QTYLABEL := g_quantity;
239   firmfixedpriceQty(g_idc_indefinite_qty).QTYLABEL :=  g_maximum_quantity;
240 
241   firmfixedpriceQty(g_idc_na).AMOUNTLABEL := g_extended_price;
242   firmfixedpriceQty(g_idc_requirement).AMOUNTLABEL := g_estimated_price;
243   firmfixedpriceQty(g_idc_definite_qty).AMOUNTLABEL := g_extended_price;
244   firmfixedpriceQty(g_idc_indefinite_qty).AMOUNTLABEL :=  g_maximum_price;
245 
246   /* Fixed Price Level of Effort Contract Type labels Initialization' */
247   FPLevelofEffortAmt(g_idc_na).QTYLABEL := g_quantity;
248   FPLevelofEffortAmt(g_idc_requirement).QTYLABEL := g_estimated_quantity;
249   FPLevelofEffortAmt(g_idc_definite_qty).QTYLABEL := g_quantity;
250   FPLevelofEffortAmt(g_idc_indefinite_qty).QTYLABEL :=  g_maximum_quantity;
251 
252   FPLevelofEffortAmt(g_idc_na).AMOUNTLABEL := g_extended_price ;
253   FPLevelofEffortAmt(g_idc_requirement).AMOUNTLABEL := g_estimated_price;
254   FPLevelofEffortAmt(g_idc_definite_qty).AMOUNTLABEL := g_extended_price;
255   FPLevelofEffortAmt(g_idc_indefinite_qty).AMOUNTLABEL :=  g_maximum_price;
256 
257   FPLevelofEffortAmt(g_idc_na).formula := g_quantity ||' * ' || g_unit_price;
258   FPLevelofEffortAmt(g_idc_requirement).formula := g_estimated_quantity ||' * ' || g_unit_price;
259   FPLevelofEffortAmt(g_idc_definite_qty).formula := g_quantity||' * ' || g_unit_price;
260   FPLevelofEffortAmt(g_idc_indefinite_qty).formula :=  g_maximum_quantity||' * ' || g_unit_price;
261 
262   FPLevelofEffortQty(g_idc_na).QTYLABEL := g_quantity;
263   FPLevelofEffortQty(g_idc_requirement).QTYLABEL := g_estimated_quantity;
264   FPLevelofEffortQty(g_idc_definite_qty).QTYLABEL := g_quantity;
265   FPLevelofEffortQty(g_idc_indefinite_qty).QTYLABEL :=  g_maximum_quantity;
266 
267   FPLevelofEffortQty(g_idc_na).AMOUNTLABEL := g_extended_price;
268   FPLevelofEffortQty(g_idc_requirement).AMOUNTLABEL := g_estimated_price;
269   FPLevelofEffortQty(g_idc_definite_qty).AMOUNTLABEL := g_extended_price;
273   FPEconomicPriceAdjAmt(g_idc_na).QTYLABEL := g_quantity;
270   FPLevelofEffortQty(g_idc_indefinite_qty).AMOUNTLABEL :=  g_maximum_price;
271 
272   /* Fixed-Price Economic Price Adjustment Contract Type labels Initialization */
274   FPEconomicPriceAdjAmt(g_idc_requirement).QTYLABEL := g_estimated_quantity;
275   FPEconomicPriceAdjAmt(g_idc_definite_qty).QTYLABEL := g_quantity;
276   FPEconomicPriceAdjAmt(g_idc_indefinite_qty).QTYLABEL :=  g_maximum_quantity;
277 
278   FPEconomicPriceAdjAmt(g_idc_na).AMOUNTLABEL := g_extended_price ;
279   FPEconomicPriceAdjAmt(g_idc_requirement).AMOUNTLABEL := g_estimated_price;
280   FPEconomicPriceAdjAmt(g_idc_definite_qty).AMOUNTLABEL := g_extended_price;
281   FPEconomicPriceAdjAmt(g_idc_indefinite_qty).AMOUNTLABEL :=  g_maximum_price;
282 
283   FPEconomicPriceAdjAmt(g_idc_na).formula := g_quantity ||' * ' || g_unit_price;
284   FPEconomicPriceAdjAmt(g_idc_requirement).formula := g_estimated_quantity||' * ' || g_unit_price;
285   FPEconomicPriceAdjAmt(g_idc_definite_qty).formula := g_quantity ||' * ' || g_unit_price;
286   FPEconomicPriceAdjAmt(g_idc_indefinite_qty).formula :=  g_maximum_quantity ||' * ' || g_unit_price;
287 
288   FPEconomicPriceAdjQty(g_idc_na).QTYLABEL := g_quantity;
289   FPEconomicPriceAdjQty(g_idc_requirement).QTYLABEL := g_estimated_quantity;
290   FPEconomicPriceAdjQty(g_idc_definite_qty).QTYLABEL := g_quantity;
291   FPEconomicPriceAdjQty(g_idc_indefinite_qty).QTYLABEL :=  g_maximum_quantity;
292 
293   FPEconomicPriceAdjQty(g_idc_na).AMOUNTLABEL := g_extended_price;
294   FPEconomicPriceAdjQty(g_idc_requirement).AMOUNTLABEL := g_estimated_price;
295   FPEconomicPriceAdjQty(g_idc_definite_qty).AMOUNTLABEL := g_extended_price;
296   FPEconomicPriceAdjQty(g_idc_indefinite_qty).AMOUNTLABEL :=  g_maximum_price;
297 
298   /* Fixed-Price Prospective Price Redetermination Contract Type labels Initialization */
299    FPProspectRedeterminationAmt(g_idc_na).QTYLABEL := g_quantity;
300    FPProspectRedeterminationAmt(g_idc_requirement).QTYLABEL := g_estimated_quantity;
301    FPProspectRedeterminationAmt(g_idc_definite_qty).QTYLABEL := g_quantity;
302    FPProspectRedeterminationAmt(g_idc_indefinite_qty).QTYLABEL :=  g_maximum_quantity;
303 
304    FPProspectRedeterminationAmt(g_idc_na).AMOUNTLABEL := g_extended_price;
305    FPProspectRedeterminationAmt(g_idc_requirement).AMOUNTLABEL := g_estimated_price;
306    FPProspectRedeterminationAmt(g_idc_definite_qty).AMOUNTLABEL := g_extended_price;
307    FPProspectRedeterminationAmt(g_idc_indefinite_qty).AMOUNTLABEL :=  g_maximum_price;
308 
309    FPProspectRedeterminationAmt(g_idc_na).formula := g_quantity ||' * ' || g_unit_price;
310    FPProspectRedeterminationAmt(g_idc_requirement).formula := g_estimated_quantity ||' * ' || g_unit_price;
311    FPProspectRedeterminationAmt(g_idc_definite_qty).formula := g_quantity||' * ' || g_unit_price;
312    FPProspectRedeterminationAmt(g_idc_indefinite_qty).formula :=  g_maximum_quantity||' * ' || g_unit_price;
313 
314    FPProspectRedeterminationQty(g_idc_na).QTYLABEL := g_quantity;
315    FPProspectRedeterminationQty(g_idc_requirement).QTYLABEL := g_estimated_quantity;
316    FPProspectRedeterminationQty(g_idc_definite_qty).QTYLABEL := g_quantity;
317    FPProspectRedeterminationQty(g_idc_indefinite_qty).QTYLABEL :=  g_maximum_quantity;
318 
319    FPProspectRedeterminationQty(g_idc_na).AMOUNTLABEL := g_extended_price;
320    FPProspectRedeterminationQty(g_idc_requirement).AMOUNTLABEL := g_estimated_price;
321    FPProspectRedeterminationQty(g_idc_definite_qty).AMOUNTLABEL := g_extended_price;
322    FPProspectRedeterminationQty(g_idc_indefinite_qty).AMOUNTLABEL :=  g_maximum_price;
323 
324   /*  Fixed Ceiling Price Retro Price Redetermination Contract Type labels Initialization */
325   FCPRetroRedeterminationAmt(g_idc_na).QTYLABEL := g_quantity;
326   FCPRetroRedeterminationAmt(g_idc_requirement).QTYLABEL := g_estimated_quantity;
327   FCPRetroRedeterminationAmt(g_idc_definite_qty).QTYLABEL := g_quantity;
328   FCPRetroRedeterminationAmt(g_idc_indefinite_qty).QTYLABEL :=  g_maximum_quantity;
329 
330   FCPRetroRedeterminationAmt(g_idc_na).AMOUNTLABEL := g_extended_price;
331   FCPRetroRedeterminationAmt(g_idc_requirement).AMOUNTLABEL := g_estimated_price;
332   FCPRetroRedeterminationAmt(g_idc_definite_qty).AMOUNTLABEL := g_extended_price;
333   FCPRetroRedeterminationAmt(g_idc_indefinite_qty).AMOUNTLABEL :=  g_maximum_price;
334 
335   FCPRetroRedeterminationAmt(g_idc_na).formula := g_quantity||' * ' || g_unit_price;
336   FCPRetroRedeterminationAmt(g_idc_requirement).formula := g_estimated_quantity||' * ' || g_unit_price;
337   FCPRetroRedeterminationAmt(g_idc_definite_qty).formula := g_quantity||' * ' || g_unit_price;
338   FCPRetroRedeterminationAmt(g_idc_indefinite_qty).formula :=  g_maximum_quantity||' * ' || g_unit_price;
339 
340   FCPRetroRedeterminationQty(g_idc_na).QTYLABEL := g_quantity;
341   FCPRetroRedeterminationQty(g_idc_requirement).QTYLABEL := g_estimated_quantity;
342   FCPRetroRedeterminationQty(g_idc_definite_qty).QTYLABEL := g_quantity;
343   FCPRetroRedeterminationQty(g_idc_indefinite_qty).QTYLABEL :=  g_maximum_quantity;
344 
345   FCPRetroRedeterminationQty(g_idc_na).AMOUNTLABEL := g_extended_price;
346   FCPRetroRedeterminationQty(g_idc_requirement).AMOUNTLABEL := g_estimated_price;
347   FCPRetroRedeterminationQty(g_idc_definite_qty).AMOUNTLABEL := g_extended_price;
348   FCPRetroRedeterminationQty(g_idc_indefinite_qty).AMOUNTLABEL :=  g_maximum_price;
349 
350 
351   /* Fixed Priced Award Fee Contract Type labels Initialization' */
352   FPAwardFeeAmt(g_idc_na).QTYLABEL := g_quantity;
353   FPAwardFeeAmt(g_idc_requirement).QTYLABEL := g_estimated_quantity;
354   FPAwardFeeAmt(g_idc_definite_qty).QTYLABEL := g_quantity;
355   FPAwardFeeAmt(g_idc_indefinite_qty).QTYLABEL :=  g_quantity;
356 
357   FPAwardFeeAmt(g_idc_na).AMOUNTLABEL := g_extended_price;
358   FPAwardFeeAmt(g_idc_requirement).AMOUNTLABEL := g_estimated_price;
359   FPAwardFeeAmt(g_idc_definite_qty).AMOUNTLABEL := g_extended_price;
360   FPAwardFeeAmt(g_idc_indefinite_qty).AMOUNTLABEL :=  g_maximum_price;
361 
365   FPAwardFeeAmt(g_idc_indefinite_qty).formula :=  g_quantity||' * ' || g_unit_price ||'+' || g_award_fee_lbl;
362   FPAwardFeeAmt(g_idc_na).formula := g_quantity||' * ' || g_unit_price|| '+' || g_award_fee_lbl;
363   FPAwardFeeAmt(g_idc_requirement).formula := g_estimated_quantity||' * ' || g_unit_price ||'+' || g_award_fee_lbl;
364   FPAwardFeeAmt(g_idc_definite_qty).formula := g_quantity||' * ' || g_unit_price|| '+' || g_award_fee_lbl;
366 
367 
368 
369   FPAwardFeeQty(g_idc_na).QTYLABEL := g_quantity;
370   FPAwardFeeQty(g_idc_requirement).QTYLABEL := g_estimated_quantity;
371   FPAwardFeeQty(g_idc_definite_qty).QTYLABEL := g_quantity;
372   FPAwardFeeQty(g_idc_indefinite_qty).QTYLABEL :=  g_maximum_quantity;
373 
374   FPAwardFeeQty(g_idc_na).AMOUNTLABEL := g_extended_price;
375   FPAwardFeeQty(g_idc_requirement).AMOUNTLABEL := g_estimated_price;
376   FPAwardFeeQty(g_idc_definite_qty).AMOUNTLABEL := g_extended_price;
377   FPAwardFeeQty(g_idc_indefinite_qty).AMOUNTLABEL :=  g_maximum_price;
378 
379   FPAwardFeeQty(g_idc_na).formula := g_quantity ||' * ' || g_unit_price;
380   FPAwardFeeQty(g_idc_requirement).formula := g_estimated_quantity ||' * ' || g_unit_price;
381   FPAwardFeeQty(g_idc_definite_qty).formula := g_quantity ||' * ' || g_unit_price;
382   FPAwardFeeQty(g_idc_indefinite_qty).formula :=  g_maximum_quantity ||' * ' || g_unit_price;
383 
384 
385   /* Award Fee Contract Type labels Initialization' */
386   AwardFeeAmt(g_idc_na).QTYLABEL := g_quantity;
387   AwardFeeAmt(g_idc_requirement).QTYLABEL := g_estimated_quantity;
388   AwardFeeAmt(g_idc_definite_qty).QTYLABEL := g_quantity;
389   AwardFeeAmt(g_idc_indefinite_qty).QTYLABEL :=  g_maximum_quantity;
390 
391   AwardFeeAmt(g_idc_na).AMOUNTLABEL := g_TOTAL_AWARD_FEE;
392   AwardFeeAmt(g_idc_requirement).AMOUNTLABEL := g_TOTAL_AWARD_FEE;
393   AwardFeeAmt(g_idc_definite_qty).AMOUNTLABEL := g_TOTAL_AWARD_FEE;
394   AwardFeeAmt(g_idc_indefinite_qty).AMOUNTLABEL :=  g_TOTAL_AWARD_FEE;
395 
396     AwardFeeAmt(g_idc_na).formula := g_award_fee_lbl;
397     AwardFeeAmt(g_idc_requirement).formula := g_award_fee_lbl;
398     AwardFeeAmt(g_idc_definite_qty).formula := g_award_fee_lbl;
399     AwardFeeAmt(g_idc_indefinite_qty).formula :=  g_award_fee_lbl;
400 
401 
402   /* LaborHour Contract Type labels Initialization' */
403   LaborHourAmt(g_idc_na).QTYLABEL := g_quantity;
404   LaborHourAmt(g_idc_requirement).QTYLABEL := g_estimated_quantity;
405   LaborHourAmt(g_idc_definite_qty).QTYLABEL := g_quantity;
406   LaborHourAmt(g_idc_indefinite_qty).QTYLABEL :=  g_maximum_quantity;
407 
408   LaborHourAmt(g_idc_na).AMOUNTLABEL := g_extended_price;
409   LaborHourAmt(g_idc_requirement).AMOUNTLABEL := g_estimated_price;
410   LaborHourAmt(g_idc_definite_qty).AMOUNTLABEL := g_extended_price;
411   LaborHourAmt(g_idc_indefinite_qty).AMOUNTLABEL :=  g_maximum_price;
412 
413   LaborHourAmt(g_idc_na).formula := g_quantity||' * ' || g_unit_price;
414   LaborHourAmt(g_idc_requirement).formula := g_estimated_quantity||' * ' || g_unit_price;
415   LaborHourAmt(g_idc_definite_qty).formula := g_quantity||' * ' || g_unit_price;
416   LaborHourAmt(g_idc_indefinite_qty).formula :=  g_maximum_quantity||' * ' || g_unit_price;
417 
418 
419 
420   LaborHourQty(g_idc_na).QTYLABEL := g_quantity;
421   LaborHourQty(g_idc_requirement).QTYLABEL := g_estimated_quantity;
422   LaborHourQty(g_idc_definite_qty).QTYLABEL := g_quantity;
423   LaborHourQty(g_idc_indefinite_qty).QTYLABEL :=  g_maximum_quantity;
424 
425   LaborHourQty(g_idc_na).AMOUNTLABEL := g_extended_price;
426   LaborHourQty(g_idc_requirement).AMOUNTLABEL := g_estimated_price;
427   LaborHourQty(g_idc_definite_qty).AMOUNTLABEL := g_extended_price;
428   LaborHourQty(g_idc_indefinite_qty).AMOUNTLABEL :=  g_maximum_price;
429 
430 
431    /* Time-and-Materials Contract Type labels Initialization' */
432   TimeNMaterialsQty(g_idc_na).QTYLABEL := g_quantity;
433   TimeNMaterialsQty(g_idc_requirement).QTYLABEL := g_estimated_quantity;
434   TimeNMaterialsQty(g_idc_definite_qty).QTYLABEL := g_quantity;
435   TimeNMaterialsQty(g_idc_indefinite_qty).QTYLABEL :=  g_maximum_quantity;
436 
437   TimeNMaterialsQty(g_idc_na).AMOUNTLABEL := g_total_amount;
438   TimeNMaterialsQty(g_idc_requirement).AMOUNTLABEL := g_total_amount;
439   TimeNMaterialsQty(g_idc_definite_qty).AMOUNTLABEL := g_total_amount;
440   TimeNMaterialsQty(g_idc_indefinite_qty).AMOUNTLABEL :=  g_total_amount;
441 
442   TimeNMaterialsQty(g_idc_na).formula := g_quantity||' * ' || g_unit_price;
443   TimeNMaterialsQty(g_idc_requirement).formula := g_estimated_quantity||' * ' || g_unit_price;
444   TimeNMaterialsQty(g_idc_definite_qty).formula := g_quantity||' * ' || g_unit_price;
445   TimeNMaterialsQty(g_idc_indefinite_qty).formula :=  g_maximum_quantity||' * ' || g_unit_price;
446 
447 
448   /* Time-and-Materials Contract Type labels Initialization - Amount Based */
449   TimeNMaterialsAmt(g_idc_na).QTYLABEL := g_quantity;
450   TimeNMaterialsAmt(g_idc_requirement).QTYLABEL := g_quantity;
451   TimeNMaterialsAmt(g_idc_definite_qty).QTYLABEL := g_quantity;
452   TimeNMaterialsAmt(g_idc_indefinite_qty).QTYLABEL :=  g_maximum_quantity;
453 
454   TimeNMaterialsAmt(g_idc_na).AMOUNTLABEL := g_extended_price;
455   TimeNMaterialsAmt(g_idc_requirement).AMOUNTLABEL := g_estimated_price;
456   TimeNMaterialsAmt(g_idc_definite_qty).AMOUNTLABEL := g_extended_price;
457   TimeNMaterialsAmt(g_idc_indefinite_qty).AMOUNTLABEL :=  g_maximum_price;
458 
459   TimeNMaterialsAmt(g_idc_na).formula := g_quantity || ' * '|| g_unit_price ||' + ' || g_other_direct_costs;
460   TimeNMaterialsAmt(g_idc_requirement).formula :=   g_quantity || ' * '|| g_unit_price ||' + ' || g_other_direct_costs;
461   TimeNMaterialsAmt(g_idc_definite_qty).formula :=   g_quantity || ' * '|| g_unit_price ||' + ' || g_other_direct_costs;
462   TimeNMaterialsAmt(g_idc_indefinite_qty).formula :=   g_maximum_quantity || ' * '|| g_unit_price ||' + ' || g_other_direct_costs;
463 
464 
465   /* Other Direct costs */
466   OtherDirectCostAmt(g_idc_na).AMOUNTLABEL := g_extended_price;
470 
467   OtherDirectCostAmt(g_idc_requirement).AMOUNTLABEL := g_estimated_price;
468   OtherDirectCostAmt(g_idc_definite_qty).AMOUNTLABEL :=g_extended_price;
469   OtherDirectCostAmt(g_idc_indefinite_qty).AMOUNTLABEL :=   g_maximum_price;
471   OtherDirectCostAmt(g_idc_na).formula := g_other_direct_costs;
472   OtherDirectCostAmt(g_idc_requirement).formula := g_other_direct_costs;
473   OtherDirectCostAmt(g_idc_definite_qty).formula := g_other_direct_costs;
474   OtherDirectCostAmt(g_idc_indefinite_qty).formula :=  g_other_direct_costs;
475 
476   /* Fixed-Price Incentive (Firm Target)  Contract Type Initialization */
477   FPIncentiveFirmTargetAmt(g_idc_na).QTYLABEL := g_quantity;
478   FPIncentiveFirmTargetAmt(g_idc_requirement).QTYLABEL := g_quantity;
479   FPIncentiveFirmTargetAmt(g_idc_definite_qty).QTYLABEL := g_quantity;
480   FPIncentiveFirmTargetAmt(g_idc_indefinite_qty).QTYLABEL :=  g_quantity;
481 
482   FPIncentiveFirmTargetAmt(g_idc_na).AMOUNTLABEL := g_total_target_price;
483   FPIncentiveFirmTargetAmt(g_idc_requirement).AMOUNTLABEL := g_total_target_price;
484   FPIncentiveFirmTargetAmt(g_idc_definite_qty).AMOUNTLABEL := g_total_target_price;
485   FPIncentiveFirmTargetAmt(g_idc_indefinite_qty).AMOUNTLABEL :=  g_total_target_price;
486 
487   FPIncentiveFirmTargetAmt(g_idc_na).formula := g_target_cost ||' + '|| g_target_profit ;
488   FPIncentiveFirmTargetAmt(g_idc_requirement).formula := g_target_cost ||' + '|| g_target_profit;
489   FPIncentiveFirmTargetAmt(g_idc_definite_qty).formula := g_target_cost ||' + '|| g_target_profit;
490   FPIncentiveFirmTargetAmt(g_idc_indefinite_qty).formula :=  g_target_cost ||' + '|| g_target_profit;
491 
492   /*   Fixed-Price Incentive (Successive Targets) Contract Type Initialization */
493   FPIncentiveSuccessiveTargetAmt(g_idc_na).QTYLABEL := g_quantity;
494   FPIncentiveSuccessiveTargetAmt(g_idc_requirement).QTYLABEL := g_quantity;
495   FPIncentiveSuccessiveTargetAmt(g_idc_definite_qty).QTYLABEL := g_quantity;
496   FPIncentiveSuccessiveTargetAmt(g_idc_indefinite_qty).QTYLABEL :=  g_quantity;
497 
498   FPIncentiveSuccessiveTargetAmt(g_idc_na).AMOUNTLABEL := g_total_target_price;
499   FPIncentiveSuccessiveTargetAmt(g_idc_requirement).AMOUNTLABEL := g_total_target_price;
500   FPIncentiveSuccessiveTargetAmt(g_idc_definite_qty).AMOUNTLABEL := g_total_target_price;
501   FPIncentiveSuccessiveTargetAmt(g_idc_indefinite_qty).AMOUNTLABEL :=  g_total_target_price;
502 
503   FPIncentiveSuccessiveTargetAmt(g_idc_na).formula := g_target_cost ||' + '|| g_target_profit ;
504   FPIncentiveSuccessiveTargetAmt(g_idc_requirement).formula := g_target_cost ||' + '|| g_target_profit;
505   FPIncentiveSuccessiveTargetAmt(g_idc_definite_qty).formula := g_target_cost ||' + '|| g_target_profit;
506   FPIncentiveSuccessiveTargetAmt(g_idc_indefinite_qty).formula :=  g_target_cost ||' + '|| g_target_profit;
507 
508 
509  /*   Cost Contract Contract Type Initialization */
510   CostContractAmt(g_idc_na).QTYLABEL := g_quantity;
511   CostContractAmt(g_idc_requirement).QTYLABEL := g_quantity;
512   CostContractAmt(g_idc_definite_qty).QTYLABEL := g_quantity;
513   CostContractAmt(g_idc_indefinite_qty).QTYLABEL :=  g_quantity;
514 
515   CostContractAmt(g_idc_na).AMOUNTLABEL := g_estimated_cost;
516   CostContractAmt(g_idc_requirement).AMOUNTLABEL := g_estimated_cost;
517   CostContractAmt(g_idc_definite_qty).AMOUNTLABEL := g_estimated_cost;
518   CostContractAmt(g_idc_indefinite_qty).AMOUNTLABEL :=  g_estimated_max_cost;
519 
520   CostContractAmt(g_idc_na).formula := g_estimated_cost;
521   CostContractAmt(g_idc_requirement).formula := g_estimated_cost;
522   CostContractAmt(g_idc_definite_qty).formula := g_estimated_cost;
523   CostContractAmt(g_idc_indefinite_qty).formula :=  g_estimated_max_cost;
524 
525     /*    Cost-Plus-Award-Fee  Contract Type Initialization */
526   CostPlusAwardFeeAmt(g_idc_na).QTYLABEL := g_quantity;
527   CostPlusAwardFeeAmt(g_idc_requirement).QTYLABEL := g_quantity;
528   CostPlusAwardFeeAmt(g_idc_definite_qty).QTYLABEL := g_quantity;
529   CostPlusAwardFeeAmt(g_idc_indefinite_qty).QTYLABEL :=  g_quantity;
530 
531   CostPlusAwardFeeAmt(g_idc_na).AMOUNTLABEL := g_total_amount;
532   CostPlusAwardFeeAmt(g_idc_requirement).AMOUNTLABEL := g_total_amount;
533   CostPlusAwardFeeAmt(g_idc_definite_qty).AMOUNTLABEL := g_total_amount;
534   CostPlusAwardFeeAmt(g_idc_indefinite_qty).AMOUNTLABEL :=  g_total_amount;
535 
536   CostPlusAwardFeeAmt(g_idc_na).formula := g_estimated_cost||' + ' ||g_base_fee_lbl || ' + ' || g_award_fee_lbl;
537   CostPlusAwardFeeAmt(g_idc_requirement).formula := g_estimated_cost||' + ' ||g_base_fee_lbl || ' + ' || g_award_fee_lbl;
538   CostPlusAwardFeeAmt(g_idc_definite_qty).formula := g_estimated_cost||' + ' ||g_base_fee_lbl || ' + ' || g_award_fee_lbl;
539   CostPlusAwardFeeAmt(g_idc_indefinite_qty).formula :=  g_estimated_max_cost || ' + ' || g_base_fee_lbl || ' + ' || g_award_fee_lbl;
540 
541 
542    /*    Cost-Plus-Fixed-Fee  Contract Type Initialization */
543   CostPlusFixedFeeAmt(g_idc_na).QTYLABEL := g_quantity;
544   CostPlusFixedFeeAmt(g_idc_requirement).QTYLABEL := g_quantity;
545   CostPlusFixedFeeAmt(g_idc_definite_qty).QTYLABEL := g_quantity;
546   CostPlusFixedFeeAmt(g_idc_indefinite_qty).QTYLABEL :=  g_quantity;
547 
548   CostPlusFixedFeeAmt(g_idc_na).AMOUNTLABEL := g_total_amount;
549   CostPlusFixedFeeAmt(g_idc_requirement).AMOUNTLABEL := g_total_amount;
550   CostPlusFixedFeeAmt(g_idc_definite_qty).AMOUNTLABEL := g_total_amount;
551   CostPlusFixedFeeAmt(g_idc_indefinite_qty).AMOUNTLABEL :=  g_total_amount;
552 
553    CostPlusFixedFeeAmt(g_idc_na).formula := g_estimated_cost||' + ' ||g_fixed_fee;
554   CostPlusFixedFeeAmt(g_idc_requirement).formula := g_estimated_cost||' + ' ||g_fixed_fee;
555   CostPlusFixedFeeAmt(g_idc_definite_qty).formula := g_estimated_cost||' + ' ||g_fixed_fee;
556   CostPlusFixedFeeAmt(g_idc_indefinite_qty).formula :=  g_max_cost||' + ' ||g_fixed_fee;
557 
558 
559    /*    Cost-Plus-Incentive-Fee  Contract Type Initialization */
560   CostPlusIncentiveFeeAmt(g_idc_na).QTYLABEL := g_quantity;
561   CostPlusIncentiveFeeAmt(g_idc_requirement).QTYLABEL := g_quantity;
565   CostPlusIncentiveFeeAmt(g_idc_na).AMOUNTLABEL := g_total_amount;
562   CostPlusIncentiveFeeAmt(g_idc_definite_qty).QTYLABEL := g_quantity;
563   CostPlusIncentiveFeeAmt(g_idc_indefinite_qty).QTYLABEL :=  g_quantity;
564 
566   CostPlusIncentiveFeeAmt(g_idc_requirement).AMOUNTLABEL := g_total_amount;
567   CostPlusIncentiveFeeAmt(g_idc_definite_qty).AMOUNTLABEL := g_total_amount;
568   CostPlusIncentiveFeeAmt(g_idc_indefinite_qty).AMOUNTLABEL :=  g_total_amount;
569 
570   CostPlusIncentiveFeeAmt(g_idc_na).formula := g_target_cost||' + ' ||g_target_fee;
571   CostPlusIncentiveFeeAmt(g_idc_requirement).formula := g_target_cost||' + ' ||g_target_fee;
572   CostPlusIncentiveFeeAmt(g_idc_definite_qty).formula := g_target_cost||' + ' ||g_target_fee;
573   CostPlusIncentiveFeeAmt(g_idc_indefinite_qty).formula :=  g_target_cost||' + ' ||g_target_fee;
574 
575 
576   /*    Cost-Sharing Contract Type Initialization */
577   CostSharingAmt(g_idc_na).QTYLABEL := g_quantity;
578   CostSharingAmt(g_idc_requirement).QTYLABEL := g_quantity;
579   CostSharingAmt(g_idc_definite_qty).QTYLABEL := g_quantity;
580   CostSharingAmt(g_idc_indefinite_qty).QTYLABEL :=  g_quantity;
581 
582   CostSharingAmt(g_idc_na).formula := g_estimated_cost;
583   CostSharingAmt(g_idc_requirement).formula := g_estimated_cost;
584   CostSharingAmt(g_idc_definite_qty).formula := g_estimated_cost;
585   CostSharingAmt(g_idc_indefinite_qty).formula :=  g_estimated_max_cost;
586 
587   CostSharingAmt(g_idc_na).AMOUNTLABEL := g_estimated_cost;
588   CostSharingAmt(g_idc_requirement).AMOUNTLABEL := g_estimated_cost;
589   CostSharingAmt(g_idc_definite_qty).AMOUNTLABEL := g_estimated_cost;
590   CostSharingAmt(g_idc_indefinite_qty).AMOUNTLABEL :=  g_estimated_max_cost;
591 
592 
593 END;