286: and data_extract_id = p_data_extract_id;
287:
288: BEGIN
289:
290: if ((nvl(PSB_WS_POS1.g_data_extract_id, FND_API.G_MISS_NUM) <> p_data_extract_id) or
291: (nvl(PSB_WS_POS1.g_business_group_id, FND_API.G_MISS_NUM) <> p_business_group_id)) then
292: begin
293:
294: PSB_WS_POS1.Cache_Elements
287:
288: BEGIN
289:
290: if ((nvl(PSB_WS_POS1.g_data_extract_id, FND_API.G_MISS_NUM) <> p_data_extract_id) or
291: (nvl(PSB_WS_POS1.g_business_group_id, FND_API.G_MISS_NUM) <> p_business_group_id)) then
292: begin
293:
294: PSB_WS_POS1.Cache_Elements
295: (p_return_status => l_return_status,
290: if ((nvl(PSB_WS_POS1.g_data_extract_id, FND_API.G_MISS_NUM) <> p_data_extract_id) or
291: (nvl(PSB_WS_POS1.g_business_group_id, FND_API.G_MISS_NUM) <> p_business_group_id)) then
292: begin
293:
294: PSB_WS_POS1.Cache_Elements
295: (p_return_status => l_return_status,
296: p_data_extract_id => p_data_extract_id,
297: p_business_group_id => p_business_group_id,
298: p_worksheet_id => p_worksheet_id);
303:
304: end;
305: end if;
306:
307: if nvl(PSB_WS_POS1.g_attr_busgrp_id, FND_API.G_MISS_NUM) <> p_business_group_id then
308: begin
309:
310: PSB_WS_POS1.Cache_Named_Attributes
311: (p_return_status => l_return_status,
306:
307: if nvl(PSB_WS_POS1.g_attr_busgrp_id, FND_API.G_MISS_NUM) <> p_business_group_id then
308: begin
309:
310: PSB_WS_POS1.Cache_Named_Attributes
311: (p_return_status => l_return_status,
312: p_business_group_id => p_business_group_id);
313:
314: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
367: commit work;
368:
369: for c_Positions_Rec in c_Positions loop
370:
371: PSB_WS_POS1.g_salary_budget_group_id := null;
372:
373: PSB_WS_POS1.Cache_Salary_Dist
374: (p_return_status => l_return_status,
375: p_worksheet_id => p_global_worksheet_id,
369: for c_Positions_Rec in c_Positions loop
370:
371: PSB_WS_POS1.g_salary_budget_group_id := null;
372:
373: PSB_WS_POS1.Cache_Salary_Dist
374: (p_return_status => l_return_status,
375: p_worksheet_id => p_global_worksheet_id,
376: p_root_budget_group_id => p_root_budget_group_id,
377: p_flex_code => p_flex_code,
384: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
385: raise FND_API.G_EXC_ERROR;
386: end if;
387:
388: PSB_WS_POS1.Create_Position_Lines
389: (p_api_version => 1.0,
390: p_return_status => l_return_status,
391: p_position_line_id => l_position_line_id,
392: p_worksheet_id => p_worksheet_id,
390: p_return_status => l_return_status,
391: p_position_line_id => l_position_line_id,
392: p_worksheet_id => p_worksheet_id,
393: p_position_id => c_Positions_Rec.position_id,
394: p_budget_group_id => PSB_WS_POS1.g_salary_budget_group_id);
395:
396: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
397: raise FND_API.G_EXC_ERROR;
398: end if;
692: -- Fixed bug # 3683644
693: FND_NUMBER.canonical_to_number(attribute_value) attribute_value,
694: attribute_value_id
695: from PSB_POSITION_ASSIGNMENTS
696: where attribute_id in (PSB_WS_POS1.g_fte_id, PSB_WS_POS1.g_default_wklyhrs_id)
697: and (worksheet_id is null or worksheet_id = l_assign_worksheet_id)
698: and assignment_type = 'ATTRIBUTE'
699: and (((effective_start_date <= l_end_date)
700: and (effective_end_date is null))
890:
891: if FND_API.to_Boolean(p_recalculate_flag) then
892: begin
893:
894: PSB_WS_POS1.g_salary_budget_group_id := null;
895:
896: PSB_WS_POS1.Cache_Salary_Dist
897: (p_return_status => l_return_status,
898: p_worksheet_id => l_global_worksheet_id,
892: begin
893:
894: PSB_WS_POS1.g_salary_budget_group_id := null;
895:
896: PSB_WS_POS1.Cache_Salary_Dist
897: (p_return_status => l_return_status,
898: p_worksheet_id => l_global_worksheet_id,
899: p_root_budget_group_id => l_root_budget_group_id,
900: p_flex_code => l_flex_code,
907: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
908: raise FND_API.G_EXC_ERROR;
909: end if;
910:
911: PSB_WS_POS1.Create_Position_Lines
912: (p_api_version => 1.0,
913: p_return_status => l_return_status,
914: p_position_line_id => l_position_line_id,
915: p_worksheet_id => p_worksheet_id,
913: p_return_status => l_return_status,
914: p_position_line_id => l_position_line_id,
915: p_worksheet_id => p_worksheet_id,
916: p_position_id => l_position_id,
917: p_budget_group_id => PSB_WS_POS1.g_salary_budget_group_id);
918:
919: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
920: raise FND_API.G_EXC_ERROR;
921: end if;
968: end loop;
969:
970: g_num_poswkh_assignments := 0;
971:
972: if nvl(PSB_WS_POS1.g_attr_busgrp_id, FND_API.G_MISS_NUM) <> l_business_group_id then
973: begin
974:
975: PSB_WS_POS1.Cache_Named_Attributes
976: (p_return_status => l_return_status,
971:
972: if nvl(PSB_WS_POS1.g_attr_busgrp_id, FND_API.G_MISS_NUM) <> l_business_group_id then
973: begin
974:
975: PSB_WS_POS1.Cache_Named_Attributes
976: (p_return_status => l_return_status,
977: p_business_group_id => l_business_group_id);
978:
979: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
982:
983: end;
984: end if;
985:
986: PSB_WS_POS1.Cache_Named_Attribute_Values
987: (p_return_status => l_return_status,
988: p_worksheet_id => l_assign_worksheet_id,
989: p_data_extract_id => l_data_extract_id,
990: p_position_id => l_position_id);
992: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
993: raise FND_API.G_EXC_ERROR;
994: end if;
995:
996: if ((nvl(PSB_WS_POS1.g_data_extract_id, FND_API.G_MISS_NUM) <> l_data_extract_id) or
997: (nvl(PSB_WS_POS1.g_business_group_id, FND_API.G_MISS_NUM) <> l_business_group_id)) then
998: begin
999:
1000: PSB_WS_POS1.Cache_Elements
993: raise FND_API.G_EXC_ERROR;
994: end if;
995:
996: if ((nvl(PSB_WS_POS1.g_data_extract_id, FND_API.G_MISS_NUM) <> l_data_extract_id) or
997: (nvl(PSB_WS_POS1.g_business_group_id, FND_API.G_MISS_NUM) <> l_business_group_id)) then
998: begin
999:
1000: PSB_WS_POS1.Cache_Elements
1001: (p_return_status => l_return_status,
996: if ((nvl(PSB_WS_POS1.g_data_extract_id, FND_API.G_MISS_NUM) <> l_data_extract_id) or
997: (nvl(PSB_WS_POS1.g_business_group_id, FND_API.G_MISS_NUM) <> l_business_group_id)) then
998: begin
999:
1000: PSB_WS_POS1.Cache_Elements
1001: (p_return_status => l_return_status,
1002: p_data_extract_id => l_data_extract_id,
1003: p_business_group_id => l_business_group_id,
1004: p_worksheet_id => p_worksheet_id);
1025: g_poselem_assignments(g_num_poselem_assignments).use_in_calc := FALSE;
1026:
1027: end loop;
1028:
1029: for l_element_index in 1..PSB_WS_POS1.g_num_elements loop
1030:
1031: l_element_found := FALSE;
1032:
1033: for l_elemassign_index in 1..g_num_poselem_assignments loop
1031: l_element_found := FALSE;
1032:
1033: for l_elemassign_index in 1..g_num_poselem_assignments loop
1034:
1035: if ((g_poselem_assignments(l_elemassign_index).pay_element_id = PSB_WS_POS1.g_elements(l_element_index).pay_element_id) and
1036: (g_poselem_assignments(l_elemassign_index).worksheet_id is not null)) then
1037: begin
1038: l_element_found := TRUE;
1039: g_poselem_assignments(l_elemassign_index).use_in_calc := TRUE;
1046: begin
1047:
1048: for l_elemassign_index in 1..g_num_poselem_assignments loop
1049:
1050: if ((g_poselem_assignments(l_elemassign_index).pay_element_id = PSB_WS_POS1.g_elements(l_element_index).pay_element_id) and
1051: (g_poselem_assignments(l_elemassign_index).worksheet_id is null)) then
1052: g_poselem_assignments(l_elemassign_index).use_in_calc := TRUE;
1053: end if;
1054:
1082: if ((c_Attributes_Rec.attribute_value is null) and (c_Attributes_Rec.attribute_value_id is not null)) then
1083: l_attribute_value := Get_Attribute_Value(c_Attributes_Rec.attribute_value_id);
1084: end if;
1085:
1086: if c_Attributes_Rec.attribute_id = PSB_WS_POS1.g_fte_id then
1087: begin
1088:
1089: g_num_posfte_assignments := g_num_posfte_assignments + 1;
1090:
1093: g_posfte_assignments(g_num_posfte_assignments).end_date := c_Attributes_Rec.effective_end_date;
1094: g_posfte_assignments(g_num_posfte_assignments).fte := nvl(c_Attributes_Rec.attribute_value, l_attribute_value);
1095:
1096: end;
1097: elsif c_Attributes_Rec.attribute_id = PSB_WS_POS1.g_default_wklyhrs_id then
1098: begin
1099:
1100: g_num_poswkh_assignments := g_num_poswkh_assignments + 1;
1101:
1111:
1112: if g_num_poselem_assignments > 0 then
1113: begin
1114:
1115: PSB_WS_POS1.Initialize_Calc;
1116:
1117: PSB_WS_POS1.Initialize_Dist;
1118:
1119: /*For Bug No : 2811698 Start*/
1113: begin
1114:
1115: PSB_WS_POS1.Initialize_Calc;
1116:
1117: PSB_WS_POS1.Initialize_Dist;
1118:
1119: /*For Bug No : 2811698 Start*/
1120: --Call the folowing procedure when FTE profile option is set to 'Y'
1121: if g_fte_profile_option = 'Y' then
1285: begin
1286:
1287: l_num_budget_years := least(ceil(months_between(nvl(l_position_end_date, PSB_WS_ACCT1.g_end_est_date),
1288: nvl(l_position_start_date, PSB_WS_ACCT1.g_startdate_pp)) / 12),
1289: nvl(greatest(nvl(l_ws_num_years, 0), nvl(PSB_WS_POS1.g_budget_group_numyrs, 0)),
1290: PSB_WS_ACCT1.g_max_num_years));
1291:
1292: if (l_num_proposed_years < (l_num_budget_years + 1)) then
1293: begin
1308: p_stage_set_id => l_stage_set_id,
1309: p_start_stage_seq => l_start_stage_seq,
1310: p_current_stage_seq => l_current_stage_seq,
1311: p_budget_year_id => p_budget_year_id,
1312: p_budget_group_id => PSB_WS_POS1.g_salary_budget_group_id);
1313:
1314: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1315: raise FND_API.G_EXC_ERROR;
1316: end if;
1333: BEGIN
1334:
1335: l_num_budget_years := least(ceil(months_between(nvl(l_position_end_date, PSB_WS_ACCT1.g_end_est_date),
1336: nvl(l_position_start_date, PSB_WS_ACCT1.g_startdate_pp)) / 12),
1337: nvl(greatest(nvl(l_ws_num_years, 0), nvl(PSB_WS_POS1.g_budget_group_numyrs, 0)),
1338: PSB_WS_ACCT1.g_max_num_years));
1339:
1340: if (l_num_proposed_years < (l_num_budget_years + 1)) then
1341: begin
1356: p_stage_set_id => l_stage_set_id,
1357: p_start_stage_seq => l_start_stage_seq,
1358: p_current_stage_seq => l_current_stage_seq,
1359: p_budget_year_id => PSB_WS_ACCT1.g_budget_years(l_year_index).budget_year_id,
1360: p_budget_group_id => PSB_WS_POS1.g_salary_budget_group_id);
1361:
1362: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1363: raise FND_API.G_EXC_ERROR;
1364: end if;
1434: CURSOR l_default_weekly_hrs_csr IS
1435: -- Fixed bug # 3683644
1436: SELECT MAX(FND_NUMBER.canonical_TO_NUMBER(attribute_value)) attribute_value
1437: FROM psb_position_assignments
1438: WHERE attribute_id = PSB_WS_POS1.g_default_wklyhrs_id
1439: AND (worksheet_id IS NULL OR worksheet_id = g_weekly_hours_worksheet_id)
1440: AND assignment_type = 'ATTRIBUTE'
1441: AND position_id = p_position_id ;
1442: --
1444: -- Fixed bug # 3683644
1445: SELECT MAX(FND_NUMBER.canonical_TO_NUMBER(vals.attribute_value)) attribute_value
1446: FROM psb_position_assignments asgn ,
1447: psb_attribute_values vals
1448: WHERE asgn.attribute_id = PSB_WS_POS1.g_default_wklyhrs_id
1449: AND ( asgn.worksheet_id IS NULL
1450: OR
1451: asgn.worksheet_id = g_weekly_hours_worksheet_id
1452: )
1541:
1542: l_num_salary_indexes := 0;
1543: l_salary_element_value := 0;
1544:
1545: for l_element_index in 1..PSB_WS_POS1.g_num_elements loop
1546:
1547: l_pay_element_id := PSB_WS_POS1.g_elements(l_element_index).pay_element_id;
1548: l_element_name := PSB_WS_POS1.g_elements(l_element_index).element_name;
1549: l_processing_type :=PSB_WS_POS1.g_elements(l_element_index).processing_type;
1543: l_salary_element_value := 0;
1544:
1545: for l_element_index in 1..PSB_WS_POS1.g_num_elements loop
1546:
1547: l_pay_element_id := PSB_WS_POS1.g_elements(l_element_index).pay_element_id;
1548: l_element_name := PSB_WS_POS1.g_elements(l_element_index).element_name;
1549: l_processing_type :=PSB_WS_POS1.g_elements(l_element_index).processing_type;
1550: l_element_assigned := FND_API.G_FALSE;
1551: l_nonrec_calculated := FND_API.G_FALSE;
1544:
1545: for l_element_index in 1..PSB_WS_POS1.g_num_elements loop
1546:
1547: l_pay_element_id := PSB_WS_POS1.g_elements(l_element_index).pay_element_id;
1548: l_element_name := PSB_WS_POS1.g_elements(l_element_index).element_name;
1549: l_processing_type :=PSB_WS_POS1.g_elements(l_element_index).processing_type;
1550: l_element_assigned := FND_API.G_FALSE;
1551: l_nonrec_calculated := FND_API.G_FALSE;
1552:
1545: for l_element_index in 1..PSB_WS_POS1.g_num_elements loop
1546:
1547: l_pay_element_id := PSB_WS_POS1.g_elements(l_element_index).pay_element_id;
1548: l_element_name := PSB_WS_POS1.g_elements(l_element_index).element_name;
1549: l_processing_type :=PSB_WS_POS1.g_elements(l_element_index).processing_type;
1550: l_element_assigned := FND_API.G_FALSE;
1551: l_nonrec_calculated := FND_API.G_FALSE;
1552:
1553: for l_assign_index in 1..g_num_poselem_assignments loop
1579: END IF;
1580: END LOOP;
1581: /* Bug 5065066 End */
1582:
1583: if nvl(PSB_WS_POS1.g_elements(l_element_index).process_period_type, 'FIRST') = 'FIRST' then
1584: /* Bug 5065066 Start */
1585: -- l_assign_period_index := 1;
1586: IF l_year_start_date < g_pos_start_date THEN
1587: l_period_ctr := 0;
1608: else
1609: l_assign_period_index := l_last_period_index;
1610: end if;
1611:
1612: PSB_WS_POS1.g_num_pc_costs := PSB_WS_POS1.g_num_pc_costs + 1;
1613:
1614: PSB_WS_POS1.Initialize_Calc
1615: (p_init_index => PSB_WS_POS1.g_num_pc_costs);
1616:
1610: end if;
1611:
1612: PSB_WS_POS1.g_num_pc_costs := PSB_WS_POS1.g_num_pc_costs + 1;
1613:
1614: PSB_WS_POS1.Initialize_Calc
1615: (p_init_index => PSB_WS_POS1.g_num_pc_costs);
1616:
1617: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).pay_element_id := l_pay_element_id;
1618: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).budget_year_id := p_budget_year_id;
1611:
1612: PSB_WS_POS1.g_num_pc_costs := PSB_WS_POS1.g_num_pc_costs + 1;
1613:
1614: PSB_WS_POS1.Initialize_Calc
1615: (p_init_index => PSB_WS_POS1.g_num_pc_costs);
1616:
1617: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).pay_element_id := l_pay_element_id;
1618: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).budget_year_id := p_budget_year_id;
1619:
1613:
1614: PSB_WS_POS1.Initialize_Calc
1615: (p_init_index => PSB_WS_POS1.g_num_pc_costs);
1616:
1617: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).pay_element_id := l_pay_element_id;
1618: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).budget_year_id := p_budget_year_id;
1619:
1620: l_ytd_element_cost := 0;
1621:
1614: PSB_WS_POS1.Initialize_Calc
1615: (p_init_index => PSB_WS_POS1.g_num_pc_costs);
1616:
1617: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).pay_element_id := l_pay_element_id;
1618: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).budget_year_id := p_budget_year_id;
1619:
1620: l_ytd_element_cost := 0;
1621:
1622: l_calculate_from_salary := FND_API.G_FALSE;
1817: /* Bug No 1920021 Start */
1818: if l_default_weekly_hours is NULL and l_pay_basis = 'HOURLY'
1819: then
1820:
1821: IF PSB_WS_POS1.g_default_wklyhrs_vt_flag = 'N' THEN
1822: --
1823: for l_default_weekly_hrs_rec in l_default_weekly_hrs_csr
1824: loop
1825: l_default_weekly_hours :=
1825: l_default_weekly_hours :=
1826: l_default_weekly_hrs_rec.attribute_value ;
1827: end loop;
1828: --
1829: ELSIF PSB_WS_POS1.g_default_wklyhrs_vt_flag = 'Y' THEN
1830: --
1831: for l_default_weekly_hrs_rec in l_default_weekly_hrs_vt_csr
1832: loop
1833: l_default_weekly_hours :=
1840: /* Bug No 1920021 End */
1841:
1842: if l_element_value_type = 'PI' then
1843: message_token('ELEMENT_VALUE_TYPE', l_element_value_type);
1844: message_token('ELEMENT', PSB_WS_POS1.g_elements(l_element_index).element_name);
1845: message_token('POSITION', p_position_name);
1846: add_message('PSB', 'PSB_INVALID_ASSIGNMENT_TYPE');
1847: raise FND_API.G_EXC_ERROR;
1848: end if;
1864: end if;
1865: end if;
1866: /*For Bug No : 2811698 End*/
1867:
1868: if PSB_WS_POS1.g_elements(l_element_index).salary_flag = 'Y' then
1869: begin
1870:
1871: /* start bug 2622404 */
1872: IF l_element_value IS NULL THEN
1882:
1883: if l_pay_basis = 'ANNUAL' then
1884: begin
1885:
1886: PSB_WS_POS1.HRMS_Factor
1887: (p_return_status => l_return_status,
1888: p_hrms_period_type => 'Y',
1889: p_budget_period_type => l_calc_period_type,
1890: p_position_name => p_position_name,
1910: end;
1911: elsif l_pay_basis = 'HOURLY' then
1912: begin
1913:
1914: PSB_WS_POS1.HRMS_Factor
1915: (p_return_status => l_return_status,
1916: p_hrms_period_type => 'W',
1917: p_budget_period_type => l_calc_period_type,
1918: p_position_name => p_position_name,
1947: end;
1948: elsif l_pay_basis = 'MONTHLY' then
1949: begin
1950:
1951: PSB_WS_POS1.HRMS_Factor
1952: (p_return_status => l_return_status,
1953: p_hrms_period_type => 'CM',
1954: p_budget_period_type => l_calc_period_type,
1955: p_position_name => p_position_name,
1975: end;
1976: elsif l_pay_basis = 'PERIOD' then
1977: begin
1978:
1979: PSB_WS_POS1.HRMS_Factor
1980: (p_return_status => l_return_status,
1981: p_hrms_period_type => PSB_WS_POS1.g_elements(l_element_index).period_type,
1982: p_budget_period_type => l_calc_period_type,
1983: p_position_name => p_position_name,
1977: begin
1978:
1979: PSB_WS_POS1.HRMS_Factor
1980: (p_return_status => l_return_status,
1981: p_hrms_period_type => PSB_WS_POS1.g_elements(l_element_index).period_type,
1982: p_budget_period_type => l_calc_period_type,
1983: p_position_name => p_position_name,
1984: p_element_name => l_element_name,
1985: p_start_date => l_calc_start_date,
2041: l_element_cost := l_element_value;
2042: else
2043: begin
2044:
2045: PSB_WS_POS1.HRMS_Factor
2046: (p_return_status => l_return_status,
2047: p_hrms_period_type => PSB_WS_POS1.g_elements(l_element_index).period_type,
2048: p_budget_period_type => l_calc_period_type,
2049: p_position_name => p_position_name,
2043: begin
2044:
2045: PSB_WS_POS1.HRMS_Factor
2046: (p_return_status => l_return_status,
2047: p_hrms_period_type => PSB_WS_POS1.g_elements(l_element_index).period_type,
2048: p_budget_period_type => l_calc_period_type,
2049: p_position_name => p_position_name,
2050: p_element_name => l_element_name,
2051: p_start_date => l_calc_start_date,
2098: --
2099: -- Bug#3140849: Enforce maximum element value by FTE.
2100: --
2101: --pd('l_element_name:' || l_element_name);
2102: IF PSB_WS_POS1.g_elements(l_element_index).max_element_value_type
2103: = 'A'
2104: THEN
2105: l_max_elem_value_per_fte :=
2106: PSB_WS_POS1.g_elements(l_element_index).max_element_value;
2102: IF PSB_WS_POS1.g_elements(l_element_index).max_element_value_type
2103: = 'A'
2104: THEN
2105: l_max_elem_value_per_fte :=
2106: PSB_WS_POS1.g_elements(l_element_index).max_element_value;
2107: ELSE
2108:
2109: -- bug 3786457. commented out the following IF
2110: /* IF PSB_WS_POS1.g_elements(l_element_index).max_element_value < 1
2106: PSB_WS_POS1.g_elements(l_element_index).max_element_value;
2107: ELSE
2108:
2109: -- bug 3786457. commented out the following IF
2110: /* IF PSB_WS_POS1.g_elements(l_element_index).max_element_value < 1
2111: THEN
2112: l_max_elem_value_per_fte := PSB_WS_POS1.g_elements(l_element_index).max_element_value * l_salary_element_value;
2113: ELSE
2114: l_max_elem_value_per_fte := PSB_WS_POS1.g_elements(l_element_index).max_element_value * l_salary_element_value / 100;
2108:
2109: -- bug 3786457. commented out the following IF
2110: /* IF PSB_WS_POS1.g_elements(l_element_index).max_element_value < 1
2111: THEN
2112: l_max_elem_value_per_fte := PSB_WS_POS1.g_elements(l_element_index).max_element_value * l_salary_element_value;
2113: ELSE
2114: l_max_elem_value_per_fte := PSB_WS_POS1.g_elements(l_element_index).max_element_value * l_salary_element_value / 100;
2115: END IF ; */
2116:
2110: /* IF PSB_WS_POS1.g_elements(l_element_index).max_element_value < 1
2111: THEN
2112: l_max_elem_value_per_fte := PSB_WS_POS1.g_elements(l_element_index).max_element_value * l_salary_element_value;
2113: ELSE
2114: l_max_elem_value_per_fte := PSB_WS_POS1.g_elements(l_element_index).max_element_value * l_salary_element_value / 100;
2115: END IF ; */
2116:
2117: l_max_elem_value_per_fte := PSB_WS_POS1.g_elements(l_element_index).max_element_value * l_salary_element_value / 100;
2118:
2113: ELSE
2114: l_max_elem_value_per_fte := PSB_WS_POS1.g_elements(l_element_index).max_element_value * l_salary_element_value / 100;
2115: END IF ; */
2116:
2117: l_max_elem_value_per_fte := PSB_WS_POS1.g_elements(l_element_index).max_element_value * l_salary_element_value / 100;
2118:
2119: --
2120: END IF ;
2121:
2121:
2122: -- Set variable as it is used in all subsequence processing.
2123: l_max_element_value := l_max_elem_value_per_fte ;
2124:
2125: IF PSB_WS_POS1.g_elements(l_element_index).max_element_value_type
2126: = 'A'
2127: THEN
2128: l_max_element_value := l_max_elem_value_per_fte * l_fte_profile ;
2129: END IF ;
2145:
2146: if l_long_index = 1 and (fnd_api.to_boolean(l_nonelm_calc_flag)) then
2147: begin
2148:
2149: l_element_cost := PSB_WS_POS1.g_pc_costs(l_salary_indexes(l_salary_index)).period1_amount * l_element_value;
2150:
2151: if l_element_cost <> 0 then
2152: begin
2153:
2156: if l_ytd_element_cost > nvl(l_max_element_value, l_ytd_element_cost) then
2157: l_element_cost := greatest((l_max_element_value - (l_ytd_element_cost - l_element_cost)), 0);
2158: end if;
2159:
2160: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period1_amount := l_element_cost;
2161:
2162: end;
2163: end if;
2164:
2165: end;
2166: elsif l_long_index = 2 and (fnd_api.to_boolean(l_nonelm_calc_flag)) then
2167: begin
2168:
2169: l_element_cost := PSB_WS_POS1.g_pc_costs(l_salary_indexes(l_salary_index)).period2_amount * l_element_value;
2170:
2171: if l_element_cost <> 0 then
2172: begin
2173:
2176: if l_ytd_element_cost > nvl(l_max_element_value, l_ytd_element_cost) then
2177: l_element_cost := greatest((l_max_element_value - (l_ytd_element_cost - l_element_cost)), 0);
2178: end if;
2179:
2180: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period2_amount := l_element_cost;
2181:
2182: end;
2183: end if;
2184:
2185: end;
2186: elsif l_long_index = 3 and (fnd_api.to_boolean(l_nonelm_calc_flag)) then
2187: begin
2188:
2189: l_element_cost := PSB_WS_POS1.g_pc_costs(l_salary_indexes(l_salary_index)).period3_amount * l_element_value;
2190:
2191: if l_element_cost <> 0 then
2192: begin
2193:
2196: if l_ytd_element_cost > nvl(l_max_element_value, l_ytd_element_cost) then
2197: l_element_cost := greatest((l_max_element_value - (l_ytd_element_cost - l_element_cost)), 0);
2198: end if;
2199:
2200: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period3_amount := l_element_cost;
2201:
2202: end;
2203: end if;
2204:
2205: end;
2206: elsif l_long_index = 4 and (fnd_api.to_boolean(l_nonelm_calc_flag)) then
2207: begin
2208:
2209: l_element_cost := PSB_WS_POS1.g_pc_costs(l_salary_indexes(l_salary_index)).period4_amount * l_element_value;
2210:
2211: if l_element_cost <> 0 then
2212: begin
2213:
2216: if l_ytd_element_cost > nvl(l_max_element_value, l_ytd_element_cost) then
2217: l_element_cost := greatest((l_max_element_value - (l_ytd_element_cost - l_element_cost)), 0);
2218: end if;
2219:
2220: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period4_amount := l_element_cost;
2221:
2222: end;
2223: end if;
2224:
2225: end;
2226: elsif l_long_index = 5 and (fnd_api.to_boolean(l_nonelm_calc_flag)) then
2227: begin
2228:
2229: l_element_cost := PSB_WS_POS1.g_pc_costs(l_salary_indexes(l_salary_index)).period5_amount * l_element_value;
2230:
2231: if l_element_cost <> 0 then
2232: begin
2233:
2236: if l_ytd_element_cost > nvl(l_max_element_value, l_ytd_element_cost) then
2237: l_element_cost := greatest((l_max_element_value - (l_ytd_element_cost - l_element_cost)), 0);
2238: end if;
2239:
2240: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period5_amount := l_element_cost;
2241:
2242: end;
2243: end if;
2244:
2245: end;
2246: elsif l_long_index = 6 and (fnd_api.to_boolean(l_nonelm_calc_flag)) then
2247: begin
2248:
2249: l_element_cost := PSB_WS_POS1.g_pc_costs(l_salary_indexes(l_salary_index)).period6_amount * l_element_value;
2250:
2251: if l_element_cost <> 0 then
2252: begin
2253:
2256: if l_ytd_element_cost > nvl(l_max_element_value, l_ytd_element_cost) then
2257: l_element_cost := greatest((l_max_element_value - (l_ytd_element_cost - l_element_cost)), 0);
2258: end if;
2259:
2260: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period6_amount := l_element_cost;
2261:
2262: end;
2263: end if;
2264:
2265: end;
2266: elsif l_long_index = 7 and (fnd_api.to_boolean(l_nonelm_calc_flag)) then
2267: begin
2268:
2269: l_element_cost := PSB_WS_POS1.g_pc_costs(l_salary_indexes(l_salary_index)).period7_amount * l_element_value;
2270:
2271: if l_element_cost <> 0 then
2272: begin
2273:
2276: if l_ytd_element_cost > nvl(l_max_element_value, l_ytd_element_cost) then
2277: l_element_cost := greatest((l_max_element_value - (l_ytd_element_cost - l_element_cost)), 0);
2278: end if;
2279:
2280: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period7_amount := l_element_cost;
2281:
2282: end;
2283: end if;
2284:
2285: end;
2286: elsif l_long_index = 8 and (fnd_api.to_boolean(l_nonelm_calc_flag)) then
2287: begin
2288:
2289: l_element_cost := PSB_WS_POS1.g_pc_costs(l_salary_indexes(l_salary_index)).period8_amount * l_element_value;
2290:
2291: if l_element_cost <> 0 then
2292: begin
2293:
2296: if l_ytd_element_cost > nvl(l_max_element_value, l_ytd_element_cost) then
2297: l_element_cost := greatest((l_max_element_value - (l_ytd_element_cost - l_element_cost)), 0);
2298: end if;
2299:
2300: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period8_amount := l_element_cost;
2301:
2302: end;
2303: end if;
2304:
2305: end;
2306: elsif l_long_index = 9 and (fnd_api.to_boolean(l_nonelm_calc_flag)) then
2307: begin
2308:
2309: l_element_cost := PSB_WS_POS1.g_pc_costs(l_salary_indexes(l_salary_index)).period9_amount * l_element_value;
2310:
2311: if l_element_cost <> 0 then
2312: begin
2313:
2316: if l_ytd_element_cost > nvl(l_max_element_value, l_ytd_element_cost) then
2317: l_element_cost := greatest((l_max_element_value - (l_ytd_element_cost - l_element_cost)), 0);
2318: end if;
2319:
2320: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period9_amount := l_element_cost;
2321:
2322: end;
2323: end if;
2324:
2325: end;
2326: elsif l_long_index = 10 and (fnd_api.to_boolean(l_nonelm_calc_flag)) then
2327: begin
2328:
2329: l_element_cost := PSB_WS_POS1.g_pc_costs(l_salary_indexes(l_salary_index)).period10_amount * l_element_value;
2330:
2331: if l_element_cost <> 0 then
2332: begin
2333:
2336: if l_ytd_element_cost > nvl(l_max_element_value, l_ytd_element_cost) then
2337: l_element_cost := greatest((l_max_element_value - (l_ytd_element_cost - l_element_cost)), 0);
2338: end if;
2339:
2340: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period10_amount := l_element_cost;
2341:
2342: end;
2343: end if;
2344:
2345: end;
2346: elsif l_long_index = 11 and (fnd_api.to_boolean(l_nonelm_calc_flag)) then
2347: begin
2348:
2349: l_element_cost := PSB_WS_POS1.g_pc_costs(l_salary_indexes(l_salary_index)).period11_amount * l_element_value;
2350:
2351: if l_element_cost <> 0 then
2352: begin
2353:
2356: if l_ytd_element_cost > nvl(l_max_element_value, l_ytd_element_cost) then
2357: l_element_cost := greatest((l_max_element_value - (l_ytd_element_cost - l_element_cost)), 0);
2358: end if;
2359:
2360: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period11_amount := l_element_cost;
2361:
2362: end;
2363: end if;
2364:
2365: end;
2366: elsif l_long_index = 12 and (fnd_api.to_boolean(l_nonelm_calc_flag)) then
2367: begin
2368:
2369: l_element_cost := PSB_WS_POS1.g_pc_costs(l_salary_indexes(l_salary_index)).period12_amount * l_element_value;
2370:
2371: if l_element_cost <> 0 then
2372: begin
2373:
2376: if l_ytd_element_cost > nvl(l_max_element_value, l_ytd_element_cost) then
2377: l_element_cost := greatest((l_max_element_value - (l_ytd_element_cost - l_element_cost)), 0);
2378: end if;
2379:
2380: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period12_amount := l_element_cost;
2381:
2382: end;
2383: end if;
2384:
2385: end;
2386: elsif l_long_index = 13 and (fnd_api.to_boolean(l_nonelm_calc_flag)) then
2387: begin
2388:
2389: l_element_cost := PSB_WS_POS1.g_pc_costs(l_salary_indexes(l_salary_index)).period13_amount * l_element_value;
2390:
2391: if l_element_cost <> 0 then
2392: begin
2393:
2396: if l_ytd_element_cost > nvl(l_max_element_value, l_ytd_element_cost) then
2397: l_element_cost := greatest((l_max_element_value - (l_ytd_element_cost - l_element_cost)), 0);
2398: end if;
2399:
2400: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period13_amount := l_element_cost;
2401:
2402: end;
2403: end if;
2404:
2405: end;
2406: elsif l_long_index = 14 and (fnd_api.to_boolean(l_nonelm_calc_flag)) then
2407: begin
2408:
2409: l_element_cost := PSB_WS_POS1.g_pc_costs(l_salary_indexes(l_salary_index)).period14_amount * l_element_value;
2410:
2411: if l_element_cost <> 0 then
2412: begin
2413:
2416: if l_ytd_element_cost > nvl(l_max_element_value, l_ytd_element_cost) then
2417: l_element_cost := greatest((l_max_element_value - (l_ytd_element_cost - l_element_cost)), 0);
2418: end if;
2419:
2420: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period14_amount := l_element_cost;
2421:
2422: end;
2423: end if;
2424:
2425: end;
2426: elsif l_long_index = 15 and (fnd_api.to_boolean(l_nonelm_calc_flag)) then
2427: begin
2428:
2429: l_element_cost := PSB_WS_POS1.g_pc_costs(l_salary_indexes(l_salary_index)).period15_amount * l_element_value;
2430:
2431: if l_element_cost <> 0 then
2432: begin
2433:
2436: if l_ytd_element_cost > nvl(l_max_element_value, l_ytd_element_cost) then
2437: l_element_cost := greatest((l_max_element_value - (l_ytd_element_cost - l_element_cost)), 0);
2438: end if;
2439:
2440: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period15_amount := l_element_cost;
2441:
2442: end;
2443: end if;
2444:
2445: end;
2446: elsif l_long_index = 16 and (fnd_api.to_boolean(l_nonelm_calc_flag)) then
2447: begin
2448:
2449: l_element_cost := PSB_WS_POS1.g_pc_costs(l_salary_indexes(l_salary_index)).period16_amount * l_element_value;
2450:
2451: if l_element_cost <> 0 then
2452: begin
2453:
2456: if l_ytd_element_cost > nvl(l_max_element_value, l_ytd_element_cost) then
2457: l_element_cost := greatest((l_max_element_value - (l_ytd_element_cost - l_element_cost)), 0);
2458: end if;
2459:
2460: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period16_amount := l_element_cost;
2461:
2462: end;
2463: end if;
2464:
2465: end;
2466: elsif l_long_index = 17 and (fnd_api.to_boolean(l_nonelm_calc_flag)) then
2467: begin
2468:
2469: l_element_cost := PSB_WS_POS1.g_pc_costs(l_salary_indexes(l_salary_index)).period17_amount * l_element_value;
2470:
2471: if l_element_cost <> 0 then
2472: begin
2473:
2476: if l_ytd_element_cost > nvl(l_max_element_value, l_ytd_element_cost) then
2477: l_element_cost := greatest((l_max_element_value - (l_ytd_element_cost - l_element_cost)), 0);
2478: end if;
2479:
2480: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period17_amount := l_element_cost;
2481:
2482: end;
2483: end if;
2484:
2485: end;
2486: elsif l_long_index = 18 and (fnd_api.to_boolean(l_nonelm_calc_flag)) then
2487: begin
2488:
2489: l_element_cost := PSB_WS_POS1.g_pc_costs(l_salary_indexes(l_salary_index)).period18_amount * l_element_value;
2490:
2491: if l_element_cost <> 0 then
2492: begin
2493:
2496: if l_ytd_element_cost > nvl(l_max_element_value, l_ytd_element_cost) then
2497: l_element_cost := greatest((l_max_element_value - (l_ytd_element_cost - l_element_cost)), 0);
2498: end if;
2499:
2500: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period18_amount := l_element_cost;
2501:
2502: end;
2503: end if;
2504:
2505: end;
2506: elsif l_long_index = 19 and (fnd_api.to_boolean(l_nonelm_calc_flag)) then
2507: begin
2508:
2509: l_element_cost := PSB_WS_POS1.g_pc_costs(l_salary_indexes(l_salary_index)).period19_amount * l_element_value;
2510:
2511: if l_element_cost <> 0 then
2512: begin
2513:
2516: if l_ytd_element_cost > nvl(l_max_element_value, l_ytd_element_cost) then
2517: l_element_cost := greatest((l_max_element_value - (l_ytd_element_cost - l_element_cost)), 0);
2518: end if;
2519:
2520: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period19_amount := l_element_cost;
2521:
2522: end;
2523: end if;
2524:
2525: end;
2526: elsif l_long_index = 20 and (fnd_api.to_boolean(l_nonelm_calc_flag)) then
2527: begin
2528:
2529: l_element_cost := PSB_WS_POS1.g_pc_costs(l_salary_indexes(l_salary_index)).period20_amount * l_element_value;
2530:
2531: if l_element_cost <> 0 then
2532: begin
2533:
2536: if l_ytd_element_cost > nvl(l_max_element_value, l_ytd_element_cost) then
2537: l_element_cost := greatest((l_max_element_value - (l_ytd_element_cost - l_element_cost)), 0);
2538: end if;
2539:
2540: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period20_amount := l_element_cost;
2541:
2542: end;
2543: end if;
2544:
2545: end;
2546: elsif l_long_index = 21 and (fnd_api.to_boolean(l_nonelm_calc_flag)) then
2547: begin
2548:
2549: l_element_cost := PSB_WS_POS1.g_pc_costs(l_salary_indexes(l_salary_index)).period21_amount * l_element_value;
2550:
2551: if l_element_cost <> 0 then
2552: begin
2553:
2556: if l_ytd_element_cost > nvl(l_max_element_value, l_ytd_element_cost) then
2557: l_element_cost := greatest((l_max_element_value - (l_ytd_element_cost - l_element_cost)), 0);
2558: end if;
2559:
2560: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period21_amount := l_element_cost;
2561:
2562: end;
2563: end if;
2564:
2565: end;
2566: elsif l_long_index = 22 and (fnd_api.to_boolean(l_nonelm_calc_flag)) then
2567: begin
2568:
2569: l_element_cost := PSB_WS_POS1.g_pc_costs(l_salary_indexes(l_salary_index)).period22_amount * l_element_value;
2570:
2571: if l_element_cost <> 0 then
2572: begin
2573:
2576: if l_ytd_element_cost > nvl(l_max_element_value, l_ytd_element_cost) then
2577: l_element_cost := greatest((l_max_element_value - (l_ytd_element_cost - l_element_cost)), 0);
2578: end if;
2579:
2580: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period22_amount := l_element_cost;
2581:
2582: end;
2583: end if;
2584:
2585: end;
2586: elsif l_long_index = 23 and (fnd_api.to_boolean(l_nonelm_calc_flag)) then
2587: begin
2588:
2589: l_element_cost := PSB_WS_POS1.g_pc_costs(l_salary_indexes(l_salary_index)).period23_amount * l_element_value;
2590:
2591: if l_element_cost <> 0 then
2592: begin
2593:
2596: if l_ytd_element_cost > nvl(l_max_element_value, l_ytd_element_cost) then
2597: l_element_cost := greatest((l_max_element_value - (l_ytd_element_cost - l_element_cost)), 0);
2598: end if;
2599:
2600: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period23_amount := l_element_cost;
2601:
2602: end;
2603: end if;
2604:
2605: end;
2606: elsif l_long_index = 24 and (fnd_api.to_boolean(l_nonelm_calc_flag)) then
2607: begin
2608:
2609: l_element_cost := PSB_WS_POS1.g_pc_costs(l_salary_indexes(l_salary_index)).period24_amount * l_element_value;
2610:
2611: if l_element_cost <> 0 then
2612: begin
2613:
2616: if l_ytd_element_cost > nvl(l_max_element_value, l_ytd_element_cost) then
2617: l_element_cost := greatest((l_max_element_value - (l_ytd_element_cost - l_element_cost)), 0);
2618: end if;
2619:
2620: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period24_amount := l_element_cost;
2621:
2622: end;
2623: end if;
2624:
2625: end;
2626: elsif l_long_index = 25 and (fnd_api.to_boolean(l_nonelm_calc_flag)) then
2627: begin
2628:
2629: l_element_cost := PSB_WS_POS1.g_pc_costs(l_salary_indexes(l_salary_index)).period25_amount * l_element_value;
2630:
2631: if l_element_cost <> 0 then
2632: begin
2633:
2636: if l_ytd_element_cost > nvl(l_max_element_value, l_ytd_element_cost) then
2637: l_element_cost := greatest((l_max_element_value - (l_ytd_element_cost - l_element_cost)), 0);
2638: end if;
2639:
2640: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period25_amount := l_element_cost;
2641:
2642: end;
2643: end if;
2644:
2645: end;
2646: elsif l_long_index = 26 and (fnd_api.to_boolean(l_nonelm_calc_flag)) then
2647: begin
2648:
2649: l_element_cost := PSB_WS_POS1.g_pc_costs(l_salary_indexes(l_salary_index)).period26_amount * l_element_value;
2650:
2651: if l_element_cost <> 0 then
2652: begin
2653:
2656: if l_ytd_element_cost > nvl(l_max_element_value, l_ytd_element_cost) then
2657: l_element_cost := greatest((l_max_element_value - (l_ytd_element_cost - l_element_cost)), 0);
2658: end if;
2659:
2660: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period26_amount := l_element_cost;
2661:
2662: end;
2663: end if;
2664:
2665: end;
2666: elsif l_long_index = 27 and (fnd_api.to_boolean(l_nonelm_calc_flag)) then
2667: begin
2668:
2669: l_element_cost := PSB_WS_POS1.g_pc_costs(l_salary_indexes(l_salary_index)).period27_amount * l_element_value;
2670:
2671: if l_element_cost <> 0 then
2672: begin
2673:
2676: if l_ytd_element_cost > nvl(l_max_element_value, l_ytd_element_cost) then
2677: l_element_cost := greatest((l_max_element_value - (l_ytd_element_cost - l_element_cost)), 0);
2678: end if;
2679:
2680: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period27_amount := l_element_cost;
2681:
2682: end;
2683: end if;
2684:
2685: end;
2686: elsif l_long_index = 28 and (fnd_api.to_boolean(l_nonelm_calc_flag)) then
2687: begin
2688:
2689: l_element_cost := PSB_WS_POS1.g_pc_costs(l_salary_indexes(l_salary_index)).period28_amount * l_element_value;
2690:
2691: if l_element_cost <> 0 then
2692: begin
2693:
2696: if l_ytd_element_cost > nvl(l_max_element_value, l_ytd_element_cost) then
2697: l_element_cost := greatest((l_max_element_value - (l_ytd_element_cost - l_element_cost)), 0);
2698: end if;
2699:
2700: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period28_amount := l_element_cost;
2701:
2702: end;
2703: end if;
2704:
2705: end;
2706: elsif l_long_index = 29 and (fnd_api.to_boolean(l_nonelm_calc_flag)) then
2707: begin
2708:
2709: l_element_cost := PSB_WS_POS1.g_pc_costs(l_salary_indexes(l_salary_index)).period29_amount * l_element_value;
2710:
2711: if l_element_cost <> 0 then
2712: begin
2713:
2716: if l_ytd_element_cost > nvl(l_max_element_value, l_ytd_element_cost) then
2717: l_element_cost := greatest((l_max_element_value - (l_ytd_element_cost - l_element_cost)), 0);
2718: end if;
2719:
2720: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period29_amount := l_element_cost;
2721:
2722: end;
2723: end if;
2724:
2725: end;
2726: elsif l_long_index = 30 and (fnd_api.to_boolean(l_nonelm_calc_flag)) then
2727: begin
2728:
2729: l_element_cost := PSB_WS_POS1.g_pc_costs(l_salary_indexes(l_salary_index)).period30_amount * l_element_value;
2730:
2731: if l_element_cost <> 0 then
2732: begin
2733:
2736: if l_ytd_element_cost > nvl(l_max_element_value, l_ytd_element_cost) then
2737: l_element_cost := greatest((l_max_element_value - (l_ytd_element_cost - l_element_cost)), 0);
2738: end if;
2739:
2740: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period30_amount := l_element_cost;
2741:
2742: end;
2743: end if;
2744:
2745: end;
2746: elsif l_long_index = 31 and (fnd_api.to_boolean(l_nonelm_calc_flag)) then
2747: begin
2748:
2749: l_element_cost := PSB_WS_POS1.g_pc_costs(l_salary_indexes(l_salary_index)).period31_amount * l_element_value;
2750:
2751: if l_element_cost <> 0 then
2752: begin
2753:
2756: if l_ytd_element_cost > nvl(l_max_element_value, l_ytd_element_cost) then
2757: l_element_cost := greatest((l_max_element_value - (l_ytd_element_cost - l_element_cost)), 0);
2758: end if;
2759:
2760: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period31_amount := l_element_cost;
2761:
2762: end;
2763: end if;
2764:
2765: end;
2766: elsif l_long_index = 32 and (fnd_api.to_boolean(l_nonelm_calc_flag)) then
2767: begin
2768:
2769: l_element_cost := PSB_WS_POS1.g_pc_costs(l_salary_indexes(l_salary_index)).period32_amount * l_element_value;
2770:
2771: if l_element_cost <> 0 then
2772: begin
2773:
2776: if l_ytd_element_cost > nvl(l_max_element_value, l_ytd_element_cost) then
2777: l_element_cost := greatest((l_max_element_value - (l_ytd_element_cost - l_element_cost)), 0);
2778: end if;
2779:
2780: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period32_amount := l_element_cost;
2781:
2782: end;
2783: end if;
2784:
2785: end;
2786: elsif l_long_index = 33 and (fnd_api.to_boolean(l_nonelm_calc_flag)) then
2787: begin
2788:
2789: l_element_cost := PSB_WS_POS1.g_pc_costs(l_salary_indexes(l_salary_index)).period33_amount * l_element_value;
2790:
2791: if l_element_cost <> 0 then
2792: begin
2793:
2796: if l_ytd_element_cost > nvl(l_max_element_value, l_ytd_element_cost) then
2797: l_element_cost := greatest((l_max_element_value - (l_ytd_element_cost - l_element_cost)), 0);
2798: end if;
2799:
2800: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period33_amount := l_element_cost;
2801:
2802: end;
2803: end if;
2804:
2805: end;
2806: elsif l_long_index = 34 and (fnd_api.to_boolean(l_nonelm_calc_flag)) then
2807: begin
2808:
2809: l_element_cost := PSB_WS_POS1.g_pc_costs(l_salary_indexes(l_salary_index)).period34_amount * l_element_value;
2810:
2811: if l_element_cost <> 0 then
2812: begin
2813:
2816: if l_ytd_element_cost > nvl(l_max_element_value, l_ytd_element_cost) then
2817: l_element_cost := greatest((l_max_element_value - (l_ytd_element_cost - l_element_cost)), 0);
2818: end if;
2819:
2820: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period34_amount := l_element_cost;
2821:
2822: end;
2823: end if;
2824:
2825: end;
2826: elsif l_long_index = 35 and (fnd_api.to_boolean(l_nonelm_calc_flag)) then
2827: begin
2828:
2829: l_element_cost := PSB_WS_POS1.g_pc_costs(l_salary_indexes(l_salary_index)).period35_amount * l_element_value;
2830:
2831: if l_element_cost <> 0 then
2832: begin
2833:
2836: if l_ytd_element_cost > nvl(l_max_element_value, l_ytd_element_cost) then
2837: l_element_cost := greatest((l_max_element_value - (l_ytd_element_cost - l_element_cost)), 0);
2838: end if;
2839:
2840: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period35_amount := l_element_cost;
2841:
2842: end;
2843: end if;
2844:
2845: end;
2846: elsif l_long_index = 36 and (fnd_api.to_boolean(l_nonelm_calc_flag)) then
2847: begin
2848:
2849: l_element_cost := PSB_WS_POS1.g_pc_costs(l_salary_indexes(l_salary_index)).period36_amount * l_element_value;
2850:
2851: if l_element_cost <> 0 then
2852: begin
2853:
2856: if l_ytd_element_cost > nvl(l_max_element_value, l_ytd_element_cost) then
2857: l_element_cost := greatest((l_max_element_value - (l_ytd_element_cost - l_element_cost)), 0);
2858: end if;
2859:
2860: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period36_amount := l_element_cost;
2861:
2862: end;
2863: end if;
2864:
2865: end;
2866: elsif l_long_index = 37 and (fnd_api.to_boolean(l_nonelm_calc_flag)) then
2867: begin
2868:
2869: l_element_cost := PSB_WS_POS1.g_pc_costs(l_salary_indexes(l_salary_index)).period37_amount * l_element_value;
2870:
2871: if l_element_cost <> 0 then
2872: begin
2873:
2876: if l_ytd_element_cost > nvl(l_max_element_value, l_ytd_element_cost) then
2877: l_element_cost := greatest((l_max_element_value - (l_ytd_element_cost - l_element_cost)), 0);
2878: end if;
2879:
2880: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period37_amount := l_element_cost;
2881:
2882: end;
2883: end if;
2884:
2885: end;
2886: elsif l_long_index = 38 and (fnd_api.to_boolean(l_nonelm_calc_flag)) then
2887: begin
2888:
2889: l_element_cost := PSB_WS_POS1.g_pc_costs(l_salary_indexes(l_salary_index)).period38_amount * l_element_value;
2890:
2891: if l_element_cost <> 0 then
2892: begin
2893:
2896: if l_ytd_element_cost > nvl(l_max_element_value, l_ytd_element_cost) then
2897: l_element_cost := greatest((l_max_element_value - (l_ytd_element_cost - l_element_cost)), 0);
2898: end if;
2899:
2900: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period38_amount := l_element_cost;
2901:
2902: end;
2903: end if;
2904:
2905: end;
2906: elsif l_long_index = 39 and (fnd_api.to_boolean(l_nonelm_calc_flag)) then
2907: begin
2908:
2909: l_element_cost := PSB_WS_POS1.g_pc_costs(l_salary_indexes(l_salary_index)).period39_amount * l_element_value;
2910:
2911: if l_element_cost <> 0 then
2912: begin
2913:
2916: if l_ytd_element_cost > nvl(l_max_element_value, l_ytd_element_cost) then
2917: l_element_cost := greatest((l_max_element_value - (l_ytd_element_cost - l_element_cost)), 0);
2918: end if;
2919:
2920: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period39_amount := l_element_cost;
2921:
2922: end;
2923: end if;
2924:
2925: end;
2926: elsif l_long_index = 40 and (fnd_api.to_boolean(l_nonelm_calc_flag)) and (fnd_api.to_boolean(l_nonelm_calc_flag)) then
2927: begin
2928:
2929: l_element_cost := PSB_WS_POS1.g_pc_costs(l_salary_indexes(l_salary_index)).period40_amount * l_element_value;
2930:
2931: if l_element_cost <> 0 then
2932: begin
2933:
2936: if l_ytd_element_cost > nvl(l_max_element_value, l_ytd_element_cost) then
2937: l_element_cost := greatest((l_max_element_value - (l_ytd_element_cost - l_element_cost)), 0);
2938: end if;
2939:
2940: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period40_amount := l_element_cost;
2941:
2942: end;
2943: end if;
2944:
2945: end;
2946: elsif l_long_index = 41 then
2947: begin
2948:
2949: l_element_cost := PSB_WS_POS1.g_pc_costs(l_salary_indexes(l_salary_index)).period41_amount * l_element_value;
2950:
2951: if l_element_cost <> 0 then
2952: begin
2953:
2956: if l_ytd_element_cost > nvl(l_max_element_value, l_ytd_element_cost) then
2957: l_element_cost := greatest((l_max_element_value - (l_ytd_element_cost - l_element_cost)), 0);
2958: end if;
2959:
2960: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period41_amount := l_element_cost;
2961:
2962: end;
2963: end if;
2964:
2965: end;
2966: elsif l_long_index = 42 and (fnd_api.to_boolean(l_nonelm_calc_flag)) then
2967: begin
2968:
2969: l_element_cost := PSB_WS_POS1.g_pc_costs(l_salary_indexes(l_salary_index)).period42_amount * l_element_value;
2970:
2971: if l_element_cost <> 0 then
2972: begin
2973:
2976: if l_ytd_element_cost > nvl(l_max_element_value, l_ytd_element_cost) then
2977: l_element_cost := greatest((l_max_element_value - (l_ytd_element_cost - l_element_cost)), 0);
2978: end if;
2979:
2980: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period42_amount := l_element_cost;
2981:
2982: end;
2983: end if;
2984:
2985: end;
2986: elsif l_long_index = 43 and (fnd_api.to_boolean(l_nonelm_calc_flag)) then
2987: begin
2988:
2989: l_element_cost := PSB_WS_POS1.g_pc_costs(l_salary_indexes(l_salary_index)).period43_amount * l_element_value;
2990:
2991: if l_element_cost <> 0 then
2992: begin
2993:
2996: if l_ytd_element_cost > nvl(l_max_element_value, l_ytd_element_cost) then
2997: l_element_cost := greatest((l_max_element_value - (l_ytd_element_cost - l_element_cost)), 0);
2998: end if;
2999:
3000: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period43_amount := l_element_cost;
3001:
3002: end;
3003: end if;
3004:
3005: end;
3006: elsif l_long_index = 44 and (fnd_api.to_boolean(l_nonelm_calc_flag)) then
3007: begin
3008:
3009: l_element_cost := PSB_WS_POS1.g_pc_costs(l_salary_indexes(l_salary_index)).period44_amount * l_element_value;
3010:
3011: if l_element_cost <> 0 then
3012: begin
3013:
3016: if l_ytd_element_cost > nvl(l_max_element_value, l_ytd_element_cost) then
3017: l_element_cost := greatest((l_max_element_value - (l_ytd_element_cost - l_element_cost)), 0);
3018: end if;
3019:
3020: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period44_amount := l_element_cost;
3021:
3022: end;
3023: end if;
3024:
3025: end;
3026: elsif l_long_index = 45 and (fnd_api.to_boolean(l_nonelm_calc_flag)) then
3027: begin
3028:
3029: l_element_cost := PSB_WS_POS1.g_pc_costs(l_salary_indexes(l_salary_index)).period45_amount * l_element_value;
3030:
3031: if l_element_cost <> 0 then
3032: begin
3033:
3036: if l_ytd_element_cost > nvl(l_max_element_value, l_ytd_element_cost) then
3037: l_element_cost := greatest((l_max_element_value - (l_ytd_element_cost - l_element_cost)), 0);
3038: end if;
3039:
3040: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period45_amount := l_element_cost;
3041:
3042: end;
3043: end if;
3044:
3045: end;
3046: elsif l_long_index = 46 and (fnd_api.to_boolean(l_nonelm_calc_flag)) then
3047: begin
3048:
3049: l_element_cost := PSB_WS_POS1.g_pc_costs(l_salary_indexes(l_salary_index)).period46_amount * l_element_value;
3050:
3051: if l_element_cost <> 0 then
3052: begin
3053:
3056: if l_ytd_element_cost > nvl(l_max_element_value, l_ytd_element_cost) then
3057: l_element_cost := greatest((l_max_element_value - (l_ytd_element_cost - l_element_cost)), 0);
3058: end if;
3059:
3060: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period46_amount := l_element_cost;
3061:
3062: end;
3063: end if;
3064:
3065: end;
3066: elsif l_long_index = 47 and (fnd_api.to_boolean(l_nonelm_calc_flag)) then
3067: begin
3068:
3069: l_element_cost := PSB_WS_POS1.g_pc_costs(l_salary_indexes(l_salary_index)).period47_amount * l_element_value;
3070:
3071: if l_element_cost <> 0 then
3072: begin
3073:
3076: if l_ytd_element_cost > nvl(l_max_element_value, l_ytd_element_cost) then
3077: l_element_cost := greatest((l_max_element_value - (l_ytd_element_cost - l_element_cost)), 0);
3078: end if;
3079:
3080: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period47_amount := l_element_cost;
3081:
3082: end;
3083: end if;
3084:
3085: end;
3086: elsif l_long_index = 48 and (fnd_api.to_boolean(l_nonelm_calc_flag)) then
3087: begin
3088:
3089: l_element_cost := PSB_WS_POS1.g_pc_costs(l_salary_indexes(l_salary_index)).period48_amount * l_element_value;
3090:
3091: if l_element_cost <> 0 then
3092: begin
3093:
3096: if l_ytd_element_cost > nvl(l_max_element_value, l_ytd_element_cost) then
3097: l_element_cost := greatest((l_max_element_value - (l_ytd_element_cost - l_element_cost)), 0);
3098: end if;
3099:
3100: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period48_amount := l_element_cost;
3101:
3102: end;
3103: end if;
3104:
3105: end;
3106: elsif l_long_index = 49 and (fnd_api.to_boolean(l_nonelm_calc_flag)) then
3107: begin
3108:
3109: l_element_cost := PSB_WS_POS1.g_pc_costs(l_salary_indexes(l_salary_index)).period49_amount * l_element_value;
3110:
3111: if l_element_cost <> 0 then
3112: begin
3113:
3116: if l_ytd_element_cost > nvl(l_max_element_value, l_ytd_element_cost) then
3117: l_element_cost := greatest((l_max_element_value - (l_ytd_element_cost - l_element_cost)), 0);
3118: end if;
3119:
3120: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period49_amount := l_element_cost;
3121:
3122: end;
3123: end if;
3124:
3125: end;
3126: elsif l_long_index = 50 and (fnd_api.to_boolean(l_nonelm_calc_flag)) then
3127: begin
3128:
3129: l_element_cost := PSB_WS_POS1.g_pc_costs(l_salary_indexes(l_salary_index)).period50_amount * l_element_value;
3130:
3131: if l_element_cost <> 0 then
3132: begin
3133:
3136: if l_ytd_element_cost > nvl(l_max_element_value, l_ytd_element_cost) then
3137: l_element_cost := greatest((l_max_element_value - (l_ytd_element_cost - l_element_cost)), 0);
3138: end if;
3139:
3140: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period50_amount := l_element_cost;
3141:
3142: end;
3143: end if;
3144:
3145: end;
3146: elsif l_long_index = 51 and (fnd_api.to_boolean(l_nonelm_calc_flag)) then
3147: begin
3148:
3149: l_element_cost := PSB_WS_POS1.g_pc_costs(l_salary_indexes(l_salary_index)).period51_amount * l_element_value;
3150:
3151: if l_element_cost <> 0 then
3152: begin
3153:
3156: if l_ytd_element_cost > nvl(l_max_element_value, l_ytd_element_cost) then
3157: l_element_cost := greatest((l_max_element_value - (l_ytd_element_cost - l_element_cost)), 0);
3158: end if;
3159:
3160: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period51_amount := l_element_cost;
3161:
3162: end;
3163: end if;
3164:
3165: end;
3166: elsif l_long_index = 52 and (fnd_api.to_boolean(l_nonelm_calc_flag)) then
3167: begin
3168:
3169: l_element_cost := PSB_WS_POS1.g_pc_costs(l_salary_indexes(l_salary_index)).period52_amount * l_element_value;
3170:
3171: if l_element_cost <> 0 then
3172: begin
3173:
3176: if l_ytd_element_cost > nvl(l_max_element_value, l_ytd_element_cost) then
3177: l_element_cost := greatest((l_max_element_value - (l_ytd_element_cost - l_element_cost)), 0);
3178: end if;
3179:
3180: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period52_amount := l_element_cost;
3181:
3182: end;
3183: end if;
3184:
3185: end;
3186: elsif l_long_index = 53 and (fnd_api.to_boolean(l_nonelm_calc_flag)) then
3187: begin
3188:
3189: l_element_cost := PSB_WS_POS1.g_pc_costs(l_salary_indexes(l_salary_index)).period53_amount * l_element_value;
3190:
3191: if l_element_cost <> 0 then
3192: begin
3193:
3196: if l_ytd_element_cost > nvl(l_max_element_value, l_ytd_element_cost) then
3197: l_element_cost := greatest((l_max_element_value - (l_ytd_element_cost - l_element_cost)), 0);
3198: end if;
3199:
3200: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period53_amount := l_element_cost;
3201:
3202: end;
3203: end if;
3204:
3205: end;
3206: elsif l_long_index = 54 and (fnd_api.to_boolean(l_nonelm_calc_flag)) then
3207: begin
3208:
3209: l_element_cost := PSB_WS_POS1.g_pc_costs(l_salary_indexes(l_salary_index)).period54_amount * l_element_value;
3210:
3211: if l_element_cost <> 0 then
3212: begin
3213:
3216: if l_ytd_element_cost > nvl(l_max_element_value, l_ytd_element_cost) then
3217: l_element_cost := greatest((l_max_element_value - (l_ytd_element_cost - l_element_cost)), 0);
3218: end if;
3219:
3220: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period54_amount := l_element_cost;
3221:
3222: end;
3223: end if;
3224:
3225: end;
3226: elsif l_long_index = 55 and (fnd_api.to_boolean(l_nonelm_calc_flag)) then
3227: begin
3228:
3229: l_element_cost := PSB_WS_POS1.g_pc_costs(l_salary_indexes(l_salary_index)).period55_amount * l_element_value;
3230:
3231: if l_element_cost <> 0 then
3232: begin
3233:
3236: if l_ytd_element_cost > nvl(l_max_element_value, l_ytd_element_cost) then
3237: l_element_cost := greatest((l_max_element_value - (l_ytd_element_cost - l_element_cost)), 0);
3238: end if;
3239:
3240: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period55_amount := l_element_cost;
3241:
3242: end;
3243: end if;
3244:
3245: end;
3246: elsif l_long_index = 56 and (fnd_api.to_boolean(l_nonelm_calc_flag)) then
3247: begin
3248:
3249: l_element_cost := PSB_WS_POS1.g_pc_costs(l_salary_indexes(l_salary_index)).period56_amount * l_element_value;
3250:
3251: if l_element_cost <> 0 then
3252: begin
3253:
3256: if l_ytd_element_cost > nvl(l_max_element_value, l_ytd_element_cost) then
3257: l_element_cost := greatest((l_max_element_value - (l_ytd_element_cost - l_element_cost)), 0);
3258: end if;
3259:
3260: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period56_amount := l_element_cost;
3261:
3262: end;
3263: end if;
3264:
3265: end;
3266: elsif l_long_index = 57 and (fnd_api.to_boolean(l_nonelm_calc_flag)) then
3267: begin
3268:
3269: l_element_cost := PSB_WS_POS1.g_pc_costs(l_salary_indexes(l_salary_index)).period57_amount * l_element_value;
3270:
3271: if l_element_cost <> 0 then
3272: begin
3273:
3276: if l_ytd_element_cost > nvl(l_max_element_value, l_ytd_element_cost) then
3277: l_element_cost := greatest((l_max_element_value - (l_ytd_element_cost - l_element_cost)), 0);
3278: end if;
3279:
3280: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period57_amount := l_element_cost;
3281:
3282: end;
3283: end if;
3284:
3285: end;
3286: elsif l_long_index = 58 and (fnd_api.to_boolean(l_nonelm_calc_flag)) then
3287: begin
3288:
3289: l_element_cost := PSB_WS_POS1.g_pc_costs(l_salary_indexes(l_salary_index)).period58_amount * l_element_value;
3290:
3291: if l_element_cost <> 0 then
3292: begin
3293:
3296: if l_ytd_element_cost > nvl(l_max_element_value, l_ytd_element_cost) then
3297: l_element_cost := greatest((l_max_element_value - (l_ytd_element_cost - l_element_cost)), 0);
3298: end if;
3299:
3300: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period58_amount := l_element_cost;
3301:
3302: end;
3303: end if;
3304:
3305: end;
3306: elsif l_long_index = 59 and (fnd_api.to_boolean(l_nonelm_calc_flag)) then
3307: begin
3308:
3309: l_element_cost := PSB_WS_POS1.g_pc_costs(l_salary_indexes(l_salary_index)).period59_amount * l_element_value;
3310:
3311: if l_element_cost <> 0 then
3312: begin
3313:
3316: if l_ytd_element_cost > nvl(l_max_element_value, l_ytd_element_cost) then
3317: l_element_cost := greatest((l_max_element_value - (l_ytd_element_cost - l_element_cost)), 0);
3318: end if;
3319:
3320: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period59_amount := l_element_cost;
3321:
3322: end;
3323: end if;
3324:
3325: end;
3326: elsif l_long_index = 60 and (fnd_api.to_boolean(l_nonelm_calc_flag)) then
3327: begin
3328:
3329: l_element_cost := PSB_WS_POS1.g_pc_costs(l_salary_indexes(l_salary_index)).period60_amount * l_element_value;
3330:
3331: if l_element_cost <> 0 then
3332: begin
3333:
3336: if l_ytd_element_cost > nvl(l_max_element_value, l_ytd_element_cost) then
3337: l_element_cost := greatest((l_max_element_value - (l_ytd_element_cost - l_element_cost)), 0);
3338: end if;
3339:
3340: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period60_amount := l_element_cost;
3341:
3342: end;
3343: end if;
3344:
3360: l_element_cost := greatest((l_max_element_value - (l_ytd_element_cost - l_element_cost)), 0);
3361: end if;
3362:
3363: if l_long_index = 1 then
3364: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period1_amount := l_element_cost;
3365: elsif l_long_index = 2 then
3366: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period2_amount := l_element_cost;
3367: elsif l_long_index = 3 then
3368: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period3_amount := l_element_cost;
3362:
3363: if l_long_index = 1 then
3364: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period1_amount := l_element_cost;
3365: elsif l_long_index = 2 then
3366: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period2_amount := l_element_cost;
3367: elsif l_long_index = 3 then
3368: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period3_amount := l_element_cost;
3369: elsif l_long_index = 4 then
3370: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period4_amount := l_element_cost;
3364: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period1_amount := l_element_cost;
3365: elsif l_long_index = 2 then
3366: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period2_amount := l_element_cost;
3367: elsif l_long_index = 3 then
3368: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period3_amount := l_element_cost;
3369: elsif l_long_index = 4 then
3370: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period4_amount := l_element_cost;
3371: elsif l_long_index = 5 then
3372: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period5_amount := l_element_cost;
3366: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period2_amount := l_element_cost;
3367: elsif l_long_index = 3 then
3368: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period3_amount := l_element_cost;
3369: elsif l_long_index = 4 then
3370: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period4_amount := l_element_cost;
3371: elsif l_long_index = 5 then
3372: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period5_amount := l_element_cost;
3373: elsif l_long_index = 6 then
3374: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period6_amount := l_element_cost;
3368: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period3_amount := l_element_cost;
3369: elsif l_long_index = 4 then
3370: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period4_amount := l_element_cost;
3371: elsif l_long_index = 5 then
3372: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period5_amount := l_element_cost;
3373: elsif l_long_index = 6 then
3374: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period6_amount := l_element_cost;
3375: elsif l_long_index = 7 then
3376: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period7_amount := l_element_cost;
3370: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period4_amount := l_element_cost;
3371: elsif l_long_index = 5 then
3372: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period5_amount := l_element_cost;
3373: elsif l_long_index = 6 then
3374: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period6_amount := l_element_cost;
3375: elsif l_long_index = 7 then
3376: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period7_amount := l_element_cost;
3377: elsif l_long_index = 8 then
3378: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period8_amount := l_element_cost;
3372: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period5_amount := l_element_cost;
3373: elsif l_long_index = 6 then
3374: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period6_amount := l_element_cost;
3375: elsif l_long_index = 7 then
3376: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period7_amount := l_element_cost;
3377: elsif l_long_index = 8 then
3378: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period8_amount := l_element_cost;
3379: elsif l_long_index = 9 then
3380: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period9_amount := l_element_cost;
3374: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period6_amount := l_element_cost;
3375: elsif l_long_index = 7 then
3376: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period7_amount := l_element_cost;
3377: elsif l_long_index = 8 then
3378: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period8_amount := l_element_cost;
3379: elsif l_long_index = 9 then
3380: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period9_amount := l_element_cost;
3381: elsif l_long_index = 10 then
3382: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period10_amount := l_element_cost;
3376: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period7_amount := l_element_cost;
3377: elsif l_long_index = 8 then
3378: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period8_amount := l_element_cost;
3379: elsif l_long_index = 9 then
3380: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period9_amount := l_element_cost;
3381: elsif l_long_index = 10 then
3382: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period10_amount := l_element_cost;
3383: elsif l_long_index = 11 then
3384: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period11_amount := l_element_cost;
3378: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period8_amount := l_element_cost;
3379: elsif l_long_index = 9 then
3380: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period9_amount := l_element_cost;
3381: elsif l_long_index = 10 then
3382: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period10_amount := l_element_cost;
3383: elsif l_long_index = 11 then
3384: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period11_amount := l_element_cost;
3385: elsif l_long_index = 12 then
3386: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period12_amount := l_element_cost;
3380: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period9_amount := l_element_cost;
3381: elsif l_long_index = 10 then
3382: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period10_amount := l_element_cost;
3383: elsif l_long_index = 11 then
3384: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period11_amount := l_element_cost;
3385: elsif l_long_index = 12 then
3386: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period12_amount := l_element_cost;
3387: elsif l_long_index = 13 then
3388: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period13_amount := l_element_cost;
3382: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period10_amount := l_element_cost;
3383: elsif l_long_index = 11 then
3384: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period11_amount := l_element_cost;
3385: elsif l_long_index = 12 then
3386: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period12_amount := l_element_cost;
3387: elsif l_long_index = 13 then
3388: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period13_amount := l_element_cost;
3389: elsif l_long_index = 14 then
3390: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period14_amount := l_element_cost;
3384: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period11_amount := l_element_cost;
3385: elsif l_long_index = 12 then
3386: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period12_amount := l_element_cost;
3387: elsif l_long_index = 13 then
3388: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period13_amount := l_element_cost;
3389: elsif l_long_index = 14 then
3390: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period14_amount := l_element_cost;
3391: elsif l_long_index = 15 then
3392: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period15_amount := l_element_cost;
3386: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period12_amount := l_element_cost;
3387: elsif l_long_index = 13 then
3388: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period13_amount := l_element_cost;
3389: elsif l_long_index = 14 then
3390: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period14_amount := l_element_cost;
3391: elsif l_long_index = 15 then
3392: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period15_amount := l_element_cost;
3393: elsif l_long_index = 16 then
3394: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period16_amount := l_element_cost;
3388: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period13_amount := l_element_cost;
3389: elsif l_long_index = 14 then
3390: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period14_amount := l_element_cost;
3391: elsif l_long_index = 15 then
3392: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period15_amount := l_element_cost;
3393: elsif l_long_index = 16 then
3394: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period16_amount := l_element_cost;
3395: elsif l_long_index = 17 then
3396: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period17_amount := l_element_cost;
3390: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period14_amount := l_element_cost;
3391: elsif l_long_index = 15 then
3392: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period15_amount := l_element_cost;
3393: elsif l_long_index = 16 then
3394: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period16_amount := l_element_cost;
3395: elsif l_long_index = 17 then
3396: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period17_amount := l_element_cost;
3397: elsif l_long_index = 18 then
3398: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period18_amount := l_element_cost;
3392: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period15_amount := l_element_cost;
3393: elsif l_long_index = 16 then
3394: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period16_amount := l_element_cost;
3395: elsif l_long_index = 17 then
3396: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period17_amount := l_element_cost;
3397: elsif l_long_index = 18 then
3398: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period18_amount := l_element_cost;
3399: elsif l_long_index = 19 then
3400: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period19_amount := l_element_cost;
3394: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period16_amount := l_element_cost;
3395: elsif l_long_index = 17 then
3396: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period17_amount := l_element_cost;
3397: elsif l_long_index = 18 then
3398: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period18_amount := l_element_cost;
3399: elsif l_long_index = 19 then
3400: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period19_amount := l_element_cost;
3401: elsif l_long_index = 20 then
3402: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period20_amount := l_element_cost;
3396: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period17_amount := l_element_cost;
3397: elsif l_long_index = 18 then
3398: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period18_amount := l_element_cost;
3399: elsif l_long_index = 19 then
3400: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period19_amount := l_element_cost;
3401: elsif l_long_index = 20 then
3402: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period20_amount := l_element_cost;
3403: elsif l_long_index = 21 then
3404: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period21_amount := l_element_cost;
3398: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period18_amount := l_element_cost;
3399: elsif l_long_index = 19 then
3400: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period19_amount := l_element_cost;
3401: elsif l_long_index = 20 then
3402: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period20_amount := l_element_cost;
3403: elsif l_long_index = 21 then
3404: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period21_amount := l_element_cost;
3405: elsif l_long_index = 22 then
3406: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period22_amount := l_element_cost;
3400: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period19_amount := l_element_cost;
3401: elsif l_long_index = 20 then
3402: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period20_amount := l_element_cost;
3403: elsif l_long_index = 21 then
3404: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period21_amount := l_element_cost;
3405: elsif l_long_index = 22 then
3406: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period22_amount := l_element_cost;
3407: elsif l_long_index = 23 then
3408: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period23_amount := l_element_cost;
3402: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period20_amount := l_element_cost;
3403: elsif l_long_index = 21 then
3404: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period21_amount := l_element_cost;
3405: elsif l_long_index = 22 then
3406: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period22_amount := l_element_cost;
3407: elsif l_long_index = 23 then
3408: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period23_amount := l_element_cost;
3409: elsif l_long_index = 24 then
3410: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period24_amount := l_element_cost;
3404: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period21_amount := l_element_cost;
3405: elsif l_long_index = 22 then
3406: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period22_amount := l_element_cost;
3407: elsif l_long_index = 23 then
3408: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period23_amount := l_element_cost;
3409: elsif l_long_index = 24 then
3410: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period24_amount := l_element_cost;
3411: elsif l_long_index = 25 then
3412: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period25_amount := l_element_cost;
3406: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period22_amount := l_element_cost;
3407: elsif l_long_index = 23 then
3408: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period23_amount := l_element_cost;
3409: elsif l_long_index = 24 then
3410: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period24_amount := l_element_cost;
3411: elsif l_long_index = 25 then
3412: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period25_amount := l_element_cost;
3413: elsif l_long_index = 26 then
3414: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period26_amount := l_element_cost;
3408: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period23_amount := l_element_cost;
3409: elsif l_long_index = 24 then
3410: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period24_amount := l_element_cost;
3411: elsif l_long_index = 25 then
3412: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period25_amount := l_element_cost;
3413: elsif l_long_index = 26 then
3414: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period26_amount := l_element_cost;
3415: elsif l_long_index = 27 then
3416: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period27_amount := l_element_cost;
3410: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period24_amount := l_element_cost;
3411: elsif l_long_index = 25 then
3412: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period25_amount := l_element_cost;
3413: elsif l_long_index = 26 then
3414: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period26_amount := l_element_cost;
3415: elsif l_long_index = 27 then
3416: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period27_amount := l_element_cost;
3417: elsif l_long_index = 28 then
3418: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period28_amount := l_element_cost;
3412: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period25_amount := l_element_cost;
3413: elsif l_long_index = 26 then
3414: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period26_amount := l_element_cost;
3415: elsif l_long_index = 27 then
3416: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period27_amount := l_element_cost;
3417: elsif l_long_index = 28 then
3418: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period28_amount := l_element_cost;
3419: elsif l_long_index = 29 then
3420: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period29_amount := l_element_cost;
3414: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period26_amount := l_element_cost;
3415: elsif l_long_index = 27 then
3416: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period27_amount := l_element_cost;
3417: elsif l_long_index = 28 then
3418: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period28_amount := l_element_cost;
3419: elsif l_long_index = 29 then
3420: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period29_amount := l_element_cost;
3421: elsif l_long_index = 30 then
3422: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period30_amount := l_element_cost;
3416: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period27_amount := l_element_cost;
3417: elsif l_long_index = 28 then
3418: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period28_amount := l_element_cost;
3419: elsif l_long_index = 29 then
3420: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period29_amount := l_element_cost;
3421: elsif l_long_index = 30 then
3422: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period30_amount := l_element_cost;
3423: elsif l_long_index = 31 then
3424: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period31_amount := l_element_cost;
3418: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period28_amount := l_element_cost;
3419: elsif l_long_index = 29 then
3420: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period29_amount := l_element_cost;
3421: elsif l_long_index = 30 then
3422: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period30_amount := l_element_cost;
3423: elsif l_long_index = 31 then
3424: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period31_amount := l_element_cost;
3425: elsif l_long_index = 32 then
3426: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period32_amount := l_element_cost;
3420: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period29_amount := l_element_cost;
3421: elsif l_long_index = 30 then
3422: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period30_amount := l_element_cost;
3423: elsif l_long_index = 31 then
3424: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period31_amount := l_element_cost;
3425: elsif l_long_index = 32 then
3426: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period32_amount := l_element_cost;
3427: elsif l_long_index = 33 then
3428: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period33_amount := l_element_cost;
3422: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period30_amount := l_element_cost;
3423: elsif l_long_index = 31 then
3424: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period31_amount := l_element_cost;
3425: elsif l_long_index = 32 then
3426: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period32_amount := l_element_cost;
3427: elsif l_long_index = 33 then
3428: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period33_amount := l_element_cost;
3429: elsif l_long_index = 34 then
3430: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period34_amount := l_element_cost;
3424: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period31_amount := l_element_cost;
3425: elsif l_long_index = 32 then
3426: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period32_amount := l_element_cost;
3427: elsif l_long_index = 33 then
3428: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period33_amount := l_element_cost;
3429: elsif l_long_index = 34 then
3430: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period34_amount := l_element_cost;
3431: elsif l_long_index = 35 then
3432: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period35_amount := l_element_cost;
3426: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period32_amount := l_element_cost;
3427: elsif l_long_index = 33 then
3428: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period33_amount := l_element_cost;
3429: elsif l_long_index = 34 then
3430: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period34_amount := l_element_cost;
3431: elsif l_long_index = 35 then
3432: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period35_amount := l_element_cost;
3433: elsif l_long_index = 36 then
3434: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period36_amount := l_element_cost;
3428: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period33_amount := l_element_cost;
3429: elsif l_long_index = 34 then
3430: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period34_amount := l_element_cost;
3431: elsif l_long_index = 35 then
3432: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period35_amount := l_element_cost;
3433: elsif l_long_index = 36 then
3434: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period36_amount := l_element_cost;
3435: elsif l_long_index = 37 then
3436: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period37_amount := l_element_cost;
3430: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period34_amount := l_element_cost;
3431: elsif l_long_index = 35 then
3432: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period35_amount := l_element_cost;
3433: elsif l_long_index = 36 then
3434: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period36_amount := l_element_cost;
3435: elsif l_long_index = 37 then
3436: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period37_amount := l_element_cost;
3437: elsif l_long_index = 38 then
3438: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period38_amount := l_element_cost;
3432: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period35_amount := l_element_cost;
3433: elsif l_long_index = 36 then
3434: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period36_amount := l_element_cost;
3435: elsif l_long_index = 37 then
3436: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period37_amount := l_element_cost;
3437: elsif l_long_index = 38 then
3438: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period38_amount := l_element_cost;
3439: elsif l_long_index = 39 then
3440: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period39_amount := l_element_cost;
3434: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period36_amount := l_element_cost;
3435: elsif l_long_index = 37 then
3436: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period37_amount := l_element_cost;
3437: elsif l_long_index = 38 then
3438: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period38_amount := l_element_cost;
3439: elsif l_long_index = 39 then
3440: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period39_amount := l_element_cost;
3441: elsif l_long_index = 40 then
3442: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period40_amount := l_element_cost;
3436: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period37_amount := l_element_cost;
3437: elsif l_long_index = 38 then
3438: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period38_amount := l_element_cost;
3439: elsif l_long_index = 39 then
3440: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period39_amount := l_element_cost;
3441: elsif l_long_index = 40 then
3442: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period40_amount := l_element_cost;
3443: elsif l_long_index = 41 then
3444: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period41_amount := l_element_cost;
3438: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period38_amount := l_element_cost;
3439: elsif l_long_index = 39 then
3440: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period39_amount := l_element_cost;
3441: elsif l_long_index = 40 then
3442: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period40_amount := l_element_cost;
3443: elsif l_long_index = 41 then
3444: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period41_amount := l_element_cost;
3445: elsif l_long_index = 42 then
3446: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period42_amount := l_element_cost;
3440: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period39_amount := l_element_cost;
3441: elsif l_long_index = 40 then
3442: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period40_amount := l_element_cost;
3443: elsif l_long_index = 41 then
3444: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period41_amount := l_element_cost;
3445: elsif l_long_index = 42 then
3446: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period42_amount := l_element_cost;
3447: elsif l_long_index = 43 then
3448: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period43_amount := l_element_cost;
3442: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period40_amount := l_element_cost;
3443: elsif l_long_index = 41 then
3444: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period41_amount := l_element_cost;
3445: elsif l_long_index = 42 then
3446: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period42_amount := l_element_cost;
3447: elsif l_long_index = 43 then
3448: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period43_amount := l_element_cost;
3449: elsif l_long_index = 44 then
3450: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period44_amount := l_element_cost;
3444: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period41_amount := l_element_cost;
3445: elsif l_long_index = 42 then
3446: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period42_amount := l_element_cost;
3447: elsif l_long_index = 43 then
3448: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period43_amount := l_element_cost;
3449: elsif l_long_index = 44 then
3450: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period44_amount := l_element_cost;
3451: elsif l_long_index = 45 then
3452: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period45_amount := l_element_cost;
3446: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period42_amount := l_element_cost;
3447: elsif l_long_index = 43 then
3448: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period43_amount := l_element_cost;
3449: elsif l_long_index = 44 then
3450: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period44_amount := l_element_cost;
3451: elsif l_long_index = 45 then
3452: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period45_amount := l_element_cost;
3453: elsif l_long_index = 46 then
3454: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period46_amount := l_element_cost;
3448: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period43_amount := l_element_cost;
3449: elsif l_long_index = 44 then
3450: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period44_amount := l_element_cost;
3451: elsif l_long_index = 45 then
3452: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period45_amount := l_element_cost;
3453: elsif l_long_index = 46 then
3454: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period46_amount := l_element_cost;
3455: elsif l_long_index = 47 then
3456: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period47_amount := l_element_cost;
3450: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period44_amount := l_element_cost;
3451: elsif l_long_index = 45 then
3452: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period45_amount := l_element_cost;
3453: elsif l_long_index = 46 then
3454: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period46_amount := l_element_cost;
3455: elsif l_long_index = 47 then
3456: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period47_amount := l_element_cost;
3457: elsif l_long_index = 48 then
3458: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period48_amount := l_element_cost;
3452: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period45_amount := l_element_cost;
3453: elsif l_long_index = 46 then
3454: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period46_amount := l_element_cost;
3455: elsif l_long_index = 47 then
3456: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period47_amount := l_element_cost;
3457: elsif l_long_index = 48 then
3458: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period48_amount := l_element_cost;
3459: elsif l_long_index = 49 then
3460: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period49_amount := l_element_cost;
3454: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period46_amount := l_element_cost;
3455: elsif l_long_index = 47 then
3456: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period47_amount := l_element_cost;
3457: elsif l_long_index = 48 then
3458: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period48_amount := l_element_cost;
3459: elsif l_long_index = 49 then
3460: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period49_amount := l_element_cost;
3461: elsif l_long_index = 50 then
3462: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period50_amount := l_element_cost;
3456: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period47_amount := l_element_cost;
3457: elsif l_long_index = 48 then
3458: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period48_amount := l_element_cost;
3459: elsif l_long_index = 49 then
3460: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period49_amount := l_element_cost;
3461: elsif l_long_index = 50 then
3462: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period50_amount := l_element_cost;
3463: elsif l_long_index = 51 then
3464: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period51_amount := l_element_cost;
3458: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period48_amount := l_element_cost;
3459: elsif l_long_index = 49 then
3460: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period49_amount := l_element_cost;
3461: elsif l_long_index = 50 then
3462: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period50_amount := l_element_cost;
3463: elsif l_long_index = 51 then
3464: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period51_amount := l_element_cost;
3465: elsif l_long_index = 52 then
3466: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period52_amount := l_element_cost;
3460: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period49_amount := l_element_cost;
3461: elsif l_long_index = 50 then
3462: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period50_amount := l_element_cost;
3463: elsif l_long_index = 51 then
3464: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period51_amount := l_element_cost;
3465: elsif l_long_index = 52 then
3466: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period52_amount := l_element_cost;
3467: elsif l_long_index = 53 then
3468: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period53_amount := l_element_cost;
3462: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period50_amount := l_element_cost;
3463: elsif l_long_index = 51 then
3464: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period51_amount := l_element_cost;
3465: elsif l_long_index = 52 then
3466: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period52_amount := l_element_cost;
3467: elsif l_long_index = 53 then
3468: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period53_amount := l_element_cost;
3469: elsif l_long_index = 54 then
3470: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period54_amount := l_element_cost;
3464: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period51_amount := l_element_cost;
3465: elsif l_long_index = 52 then
3466: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period52_amount := l_element_cost;
3467: elsif l_long_index = 53 then
3468: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period53_amount := l_element_cost;
3469: elsif l_long_index = 54 then
3470: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period54_amount := l_element_cost;
3471: elsif l_long_index = 55 then
3472: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period55_amount := l_element_cost;
3466: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period52_amount := l_element_cost;
3467: elsif l_long_index = 53 then
3468: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period53_amount := l_element_cost;
3469: elsif l_long_index = 54 then
3470: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period54_amount := l_element_cost;
3471: elsif l_long_index = 55 then
3472: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period55_amount := l_element_cost;
3473: elsif l_long_index = 56 then
3474: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period56_amount := l_element_cost;
3468: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period53_amount := l_element_cost;
3469: elsif l_long_index = 54 then
3470: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period54_amount := l_element_cost;
3471: elsif l_long_index = 55 then
3472: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period55_amount := l_element_cost;
3473: elsif l_long_index = 56 then
3474: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period56_amount := l_element_cost;
3475: elsif l_long_index = 57 then
3476: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period57_amount := l_element_cost;
3470: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period54_amount := l_element_cost;
3471: elsif l_long_index = 55 then
3472: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period55_amount := l_element_cost;
3473: elsif l_long_index = 56 then
3474: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period56_amount := l_element_cost;
3475: elsif l_long_index = 57 then
3476: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period57_amount := l_element_cost;
3477: elsif l_long_index = 58 then
3478: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period58_amount := l_element_cost;
3472: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period55_amount := l_element_cost;
3473: elsif l_long_index = 56 then
3474: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period56_amount := l_element_cost;
3475: elsif l_long_index = 57 then
3476: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period57_amount := l_element_cost;
3477: elsif l_long_index = 58 then
3478: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period58_amount := l_element_cost;
3479: elsif l_long_index = 59 then
3480: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period59_amount := l_element_cost;
3474: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period56_amount := l_element_cost;
3475: elsif l_long_index = 57 then
3476: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period57_amount := l_element_cost;
3477: elsif l_long_index = 58 then
3478: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period58_amount := l_element_cost;
3479: elsif l_long_index = 59 then
3480: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period59_amount := l_element_cost;
3481: elsif l_long_index = 60 then
3482: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period60_amount := l_element_cost;
3476: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period57_amount := l_element_cost;
3477: elsif l_long_index = 58 then
3478: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period58_amount := l_element_cost;
3479: elsif l_long_index = 59 then
3480: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period59_amount := l_element_cost;
3481: elsif l_long_index = 60 then
3482: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period60_amount := l_element_cost;
3483: end if;
3484:
3478: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period58_amount := l_element_cost;
3479: elsif l_long_index = 59 then
3480: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period59_amount := l_element_cost;
3481: elsif l_long_index = 60 then
3482: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period60_amount := l_element_cost;
3483: end if;
3484:
3485: end;
3486: end if;
3500: l_ytd_element_cost := l_max_element_value;
3501: end if;
3502:
3503: if l_assign_period_index = 1 then
3504: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period1_amount := l_ytd_element_cost;
3505: elsif l_assign_period_index = 2 then
3506: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period2_amount := l_ytd_element_cost;
3507: elsif l_assign_period_index = 3 then
3508: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period3_amount := l_ytd_element_cost;
3502:
3503: if l_assign_period_index = 1 then
3504: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period1_amount := l_ytd_element_cost;
3505: elsif l_assign_period_index = 2 then
3506: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period2_amount := l_ytd_element_cost;
3507: elsif l_assign_period_index = 3 then
3508: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period3_amount := l_ytd_element_cost;
3509: elsif l_assign_period_index = 4 then
3510: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period4_amount := l_ytd_element_cost;
3504: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period1_amount := l_ytd_element_cost;
3505: elsif l_assign_period_index = 2 then
3506: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period2_amount := l_ytd_element_cost;
3507: elsif l_assign_period_index = 3 then
3508: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period3_amount := l_ytd_element_cost;
3509: elsif l_assign_period_index = 4 then
3510: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period4_amount := l_ytd_element_cost;
3511: elsif l_assign_period_index = 5 then
3512: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period5_amount := l_ytd_element_cost;
3506: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period2_amount := l_ytd_element_cost;
3507: elsif l_assign_period_index = 3 then
3508: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period3_amount := l_ytd_element_cost;
3509: elsif l_assign_period_index = 4 then
3510: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period4_amount := l_ytd_element_cost;
3511: elsif l_assign_period_index = 5 then
3512: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period5_amount := l_ytd_element_cost;
3513: elsif l_assign_period_index = 6 then
3514: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period6_amount := l_ytd_element_cost;
3508: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period3_amount := l_ytd_element_cost;
3509: elsif l_assign_period_index = 4 then
3510: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period4_amount := l_ytd_element_cost;
3511: elsif l_assign_period_index = 5 then
3512: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period5_amount := l_ytd_element_cost;
3513: elsif l_assign_period_index = 6 then
3514: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period6_amount := l_ytd_element_cost;
3515: elsif l_assign_period_index = 7 then
3516: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period7_amount := l_ytd_element_cost;
3510: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period4_amount := l_ytd_element_cost;
3511: elsif l_assign_period_index = 5 then
3512: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period5_amount := l_ytd_element_cost;
3513: elsif l_assign_period_index = 6 then
3514: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period6_amount := l_ytd_element_cost;
3515: elsif l_assign_period_index = 7 then
3516: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period7_amount := l_ytd_element_cost;
3517: elsif l_assign_period_index = 8 then
3518: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period8_amount := l_ytd_element_cost;
3512: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period5_amount := l_ytd_element_cost;
3513: elsif l_assign_period_index = 6 then
3514: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period6_amount := l_ytd_element_cost;
3515: elsif l_assign_period_index = 7 then
3516: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period7_amount := l_ytd_element_cost;
3517: elsif l_assign_period_index = 8 then
3518: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period8_amount := l_ytd_element_cost;
3519: elsif l_assign_period_index = 9 then
3520: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period9_amount := l_ytd_element_cost;
3514: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period6_amount := l_ytd_element_cost;
3515: elsif l_assign_period_index = 7 then
3516: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period7_amount := l_ytd_element_cost;
3517: elsif l_assign_period_index = 8 then
3518: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period8_amount := l_ytd_element_cost;
3519: elsif l_assign_period_index = 9 then
3520: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period9_amount := l_ytd_element_cost;
3521: elsif l_assign_period_index = 10 then
3522: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period10_amount := l_ytd_element_cost;
3516: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period7_amount := l_ytd_element_cost;
3517: elsif l_assign_period_index = 8 then
3518: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period8_amount := l_ytd_element_cost;
3519: elsif l_assign_period_index = 9 then
3520: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period9_amount := l_ytd_element_cost;
3521: elsif l_assign_period_index = 10 then
3522: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period10_amount := l_ytd_element_cost;
3523: elsif l_assign_period_index = 11 then
3524: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period11_amount := l_ytd_element_cost;
3518: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period8_amount := l_ytd_element_cost;
3519: elsif l_assign_period_index = 9 then
3520: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period9_amount := l_ytd_element_cost;
3521: elsif l_assign_period_index = 10 then
3522: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period10_amount := l_ytd_element_cost;
3523: elsif l_assign_period_index = 11 then
3524: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period11_amount := l_ytd_element_cost;
3525: elsif l_assign_period_index = 12 then
3526: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period12_amount := l_ytd_element_cost;
3520: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period9_amount := l_ytd_element_cost;
3521: elsif l_assign_period_index = 10 then
3522: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period10_amount := l_ytd_element_cost;
3523: elsif l_assign_period_index = 11 then
3524: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period11_amount := l_ytd_element_cost;
3525: elsif l_assign_period_index = 12 then
3526: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period12_amount := l_ytd_element_cost;
3527: elsif l_assign_period_index = 13 then
3528: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period13_amount := l_ytd_element_cost;
3522: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period10_amount := l_ytd_element_cost;
3523: elsif l_assign_period_index = 11 then
3524: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period11_amount := l_ytd_element_cost;
3525: elsif l_assign_period_index = 12 then
3526: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period12_amount := l_ytd_element_cost;
3527: elsif l_assign_period_index = 13 then
3528: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period13_amount := l_ytd_element_cost;
3529: elsif l_assign_period_index = 14 then
3530: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period14_amount := l_ytd_element_cost;
3524: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period11_amount := l_ytd_element_cost;
3525: elsif l_assign_period_index = 12 then
3526: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period12_amount := l_ytd_element_cost;
3527: elsif l_assign_period_index = 13 then
3528: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period13_amount := l_ytd_element_cost;
3529: elsif l_assign_period_index = 14 then
3530: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period14_amount := l_ytd_element_cost;
3531: elsif l_assign_period_index = 15 then
3532: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period15_amount := l_ytd_element_cost;
3526: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period12_amount := l_ytd_element_cost;
3527: elsif l_assign_period_index = 13 then
3528: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period13_amount := l_ytd_element_cost;
3529: elsif l_assign_period_index = 14 then
3530: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period14_amount := l_ytd_element_cost;
3531: elsif l_assign_period_index = 15 then
3532: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period15_amount := l_ytd_element_cost;
3533: elsif l_assign_period_index = 16 then
3534: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period16_amount := l_ytd_element_cost;
3528: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period13_amount := l_ytd_element_cost;
3529: elsif l_assign_period_index = 14 then
3530: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period14_amount := l_ytd_element_cost;
3531: elsif l_assign_period_index = 15 then
3532: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period15_amount := l_ytd_element_cost;
3533: elsif l_assign_period_index = 16 then
3534: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period16_amount := l_ytd_element_cost;
3535: elsif l_assign_period_index = 17 then
3536: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period17_amount := l_ytd_element_cost;
3530: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period14_amount := l_ytd_element_cost;
3531: elsif l_assign_period_index = 15 then
3532: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period15_amount := l_ytd_element_cost;
3533: elsif l_assign_period_index = 16 then
3534: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period16_amount := l_ytd_element_cost;
3535: elsif l_assign_period_index = 17 then
3536: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period17_amount := l_ytd_element_cost;
3537: elsif l_assign_period_index = 18 then
3538: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period18_amount := l_ytd_element_cost;
3532: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period15_amount := l_ytd_element_cost;
3533: elsif l_assign_period_index = 16 then
3534: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period16_amount := l_ytd_element_cost;
3535: elsif l_assign_period_index = 17 then
3536: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period17_amount := l_ytd_element_cost;
3537: elsif l_assign_period_index = 18 then
3538: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period18_amount := l_ytd_element_cost;
3539: elsif l_assign_period_index = 19 then
3540: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period19_amount := l_ytd_element_cost;
3534: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period16_amount := l_ytd_element_cost;
3535: elsif l_assign_period_index = 17 then
3536: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period17_amount := l_ytd_element_cost;
3537: elsif l_assign_period_index = 18 then
3538: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period18_amount := l_ytd_element_cost;
3539: elsif l_assign_period_index = 19 then
3540: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period19_amount := l_ytd_element_cost;
3541: elsif l_assign_period_index = 20 then
3542: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period20_amount := l_ytd_element_cost;
3536: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period17_amount := l_ytd_element_cost;
3537: elsif l_assign_period_index = 18 then
3538: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period18_amount := l_ytd_element_cost;
3539: elsif l_assign_period_index = 19 then
3540: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period19_amount := l_ytd_element_cost;
3541: elsif l_assign_period_index = 20 then
3542: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period20_amount := l_ytd_element_cost;
3543: elsif l_assign_period_index = 21 then
3544: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period21_amount := l_ytd_element_cost;
3538: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period18_amount := l_ytd_element_cost;
3539: elsif l_assign_period_index = 19 then
3540: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period19_amount := l_ytd_element_cost;
3541: elsif l_assign_period_index = 20 then
3542: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period20_amount := l_ytd_element_cost;
3543: elsif l_assign_period_index = 21 then
3544: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period21_amount := l_ytd_element_cost;
3545: elsif l_assign_period_index = 22 then
3546: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period22_amount := l_ytd_element_cost;
3540: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period19_amount := l_ytd_element_cost;
3541: elsif l_assign_period_index = 20 then
3542: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period20_amount := l_ytd_element_cost;
3543: elsif l_assign_period_index = 21 then
3544: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period21_amount := l_ytd_element_cost;
3545: elsif l_assign_period_index = 22 then
3546: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period22_amount := l_ytd_element_cost;
3547: elsif l_assign_period_index = 23 then
3548: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period23_amount := l_ytd_element_cost;
3542: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period20_amount := l_ytd_element_cost;
3543: elsif l_assign_period_index = 21 then
3544: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period21_amount := l_ytd_element_cost;
3545: elsif l_assign_period_index = 22 then
3546: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period22_amount := l_ytd_element_cost;
3547: elsif l_assign_period_index = 23 then
3548: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period23_amount := l_ytd_element_cost;
3549: elsif l_assign_period_index = 24 then
3550: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period24_amount := l_ytd_element_cost;
3544: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period21_amount := l_ytd_element_cost;
3545: elsif l_assign_period_index = 22 then
3546: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period22_amount := l_ytd_element_cost;
3547: elsif l_assign_period_index = 23 then
3548: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period23_amount := l_ytd_element_cost;
3549: elsif l_assign_period_index = 24 then
3550: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period24_amount := l_ytd_element_cost;
3551: elsif l_assign_period_index = 25 then
3552: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period25_amount := l_ytd_element_cost;
3546: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period22_amount := l_ytd_element_cost;
3547: elsif l_assign_period_index = 23 then
3548: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period23_amount := l_ytd_element_cost;
3549: elsif l_assign_period_index = 24 then
3550: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period24_amount := l_ytd_element_cost;
3551: elsif l_assign_period_index = 25 then
3552: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period25_amount := l_ytd_element_cost;
3553: elsif l_assign_period_index = 26 then
3554: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period26_amount := l_ytd_element_cost;
3548: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period23_amount := l_ytd_element_cost;
3549: elsif l_assign_period_index = 24 then
3550: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period24_amount := l_ytd_element_cost;
3551: elsif l_assign_period_index = 25 then
3552: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period25_amount := l_ytd_element_cost;
3553: elsif l_assign_period_index = 26 then
3554: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period26_amount := l_ytd_element_cost;
3555: elsif l_assign_period_index = 27 then
3556: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period27_amount := l_ytd_element_cost;
3550: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period24_amount := l_ytd_element_cost;
3551: elsif l_assign_period_index = 25 then
3552: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period25_amount := l_ytd_element_cost;
3553: elsif l_assign_period_index = 26 then
3554: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period26_amount := l_ytd_element_cost;
3555: elsif l_assign_period_index = 27 then
3556: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period27_amount := l_ytd_element_cost;
3557: elsif l_assign_period_index = 28 then
3558: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period28_amount := l_ytd_element_cost;
3552: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period25_amount := l_ytd_element_cost;
3553: elsif l_assign_period_index = 26 then
3554: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period26_amount := l_ytd_element_cost;
3555: elsif l_assign_period_index = 27 then
3556: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period27_amount := l_ytd_element_cost;
3557: elsif l_assign_period_index = 28 then
3558: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period28_amount := l_ytd_element_cost;
3559: elsif l_assign_period_index = 29 then
3560: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period29_amount := l_ytd_element_cost;
3554: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period26_amount := l_ytd_element_cost;
3555: elsif l_assign_period_index = 27 then
3556: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period27_amount := l_ytd_element_cost;
3557: elsif l_assign_period_index = 28 then
3558: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period28_amount := l_ytd_element_cost;
3559: elsif l_assign_period_index = 29 then
3560: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period29_amount := l_ytd_element_cost;
3561: elsif l_assign_period_index = 30 then
3562: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period30_amount := l_ytd_element_cost;
3556: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period27_amount := l_ytd_element_cost;
3557: elsif l_assign_period_index = 28 then
3558: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period28_amount := l_ytd_element_cost;
3559: elsif l_assign_period_index = 29 then
3560: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period29_amount := l_ytd_element_cost;
3561: elsif l_assign_period_index = 30 then
3562: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period30_amount := l_ytd_element_cost;
3563: elsif l_assign_period_index = 31 then
3564: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period31_amount := l_ytd_element_cost;
3558: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period28_amount := l_ytd_element_cost;
3559: elsif l_assign_period_index = 29 then
3560: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period29_amount := l_ytd_element_cost;
3561: elsif l_assign_period_index = 30 then
3562: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period30_amount := l_ytd_element_cost;
3563: elsif l_assign_period_index = 31 then
3564: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period31_amount := l_ytd_element_cost;
3565: elsif l_assign_period_index = 32 then
3566: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period32_amount := l_ytd_element_cost;
3560: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period29_amount := l_ytd_element_cost;
3561: elsif l_assign_period_index = 30 then
3562: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period30_amount := l_ytd_element_cost;
3563: elsif l_assign_period_index = 31 then
3564: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period31_amount := l_ytd_element_cost;
3565: elsif l_assign_period_index = 32 then
3566: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period32_amount := l_ytd_element_cost;
3567: elsif l_assign_period_index = 33 then
3568: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period33_amount := l_ytd_element_cost;
3562: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period30_amount := l_ytd_element_cost;
3563: elsif l_assign_period_index = 31 then
3564: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period31_amount := l_ytd_element_cost;
3565: elsif l_assign_period_index = 32 then
3566: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period32_amount := l_ytd_element_cost;
3567: elsif l_assign_period_index = 33 then
3568: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period33_amount := l_ytd_element_cost;
3569: elsif l_assign_period_index = 34 then
3570: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period34_amount := l_ytd_element_cost;
3564: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period31_amount := l_ytd_element_cost;
3565: elsif l_assign_period_index = 32 then
3566: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period32_amount := l_ytd_element_cost;
3567: elsif l_assign_period_index = 33 then
3568: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period33_amount := l_ytd_element_cost;
3569: elsif l_assign_period_index = 34 then
3570: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period34_amount := l_ytd_element_cost;
3571: elsif l_assign_period_index = 35 then
3572: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period35_amount := l_ytd_element_cost;
3566: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period32_amount := l_ytd_element_cost;
3567: elsif l_assign_period_index = 33 then
3568: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period33_amount := l_ytd_element_cost;
3569: elsif l_assign_period_index = 34 then
3570: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period34_amount := l_ytd_element_cost;
3571: elsif l_assign_period_index = 35 then
3572: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period35_amount := l_ytd_element_cost;
3573: elsif l_assign_period_index = 36 then
3574: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period36_amount := l_ytd_element_cost;
3568: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period33_amount := l_ytd_element_cost;
3569: elsif l_assign_period_index = 34 then
3570: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period34_amount := l_ytd_element_cost;
3571: elsif l_assign_period_index = 35 then
3572: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period35_amount := l_ytd_element_cost;
3573: elsif l_assign_period_index = 36 then
3574: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period36_amount := l_ytd_element_cost;
3575: elsif l_assign_period_index = 37 then
3576: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period37_amount := l_ytd_element_cost;
3570: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period34_amount := l_ytd_element_cost;
3571: elsif l_assign_period_index = 35 then
3572: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period35_amount := l_ytd_element_cost;
3573: elsif l_assign_period_index = 36 then
3574: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period36_amount := l_ytd_element_cost;
3575: elsif l_assign_period_index = 37 then
3576: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period37_amount := l_ytd_element_cost;
3577: elsif l_assign_period_index = 38 then
3578: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period38_amount := l_ytd_element_cost;
3572: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period35_amount := l_ytd_element_cost;
3573: elsif l_assign_period_index = 36 then
3574: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period36_amount := l_ytd_element_cost;
3575: elsif l_assign_period_index = 37 then
3576: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period37_amount := l_ytd_element_cost;
3577: elsif l_assign_period_index = 38 then
3578: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period38_amount := l_ytd_element_cost;
3579: elsif l_assign_period_index = 39 then
3580: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period39_amount := l_ytd_element_cost;
3574: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period36_amount := l_ytd_element_cost;
3575: elsif l_assign_period_index = 37 then
3576: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period37_amount := l_ytd_element_cost;
3577: elsif l_assign_period_index = 38 then
3578: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period38_amount := l_ytd_element_cost;
3579: elsif l_assign_period_index = 39 then
3580: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period39_amount := l_ytd_element_cost;
3581: elsif l_assign_period_index = 40 then
3582: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period40_amount := l_ytd_element_cost;
3576: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period37_amount := l_ytd_element_cost;
3577: elsif l_assign_period_index = 38 then
3578: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period38_amount := l_ytd_element_cost;
3579: elsif l_assign_period_index = 39 then
3580: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period39_amount := l_ytd_element_cost;
3581: elsif l_assign_period_index = 40 then
3582: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period40_amount := l_ytd_element_cost;
3583: elsif l_assign_period_index = 41 then
3584: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period41_amount := l_ytd_element_cost;
3578: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period38_amount := l_ytd_element_cost;
3579: elsif l_assign_period_index = 39 then
3580: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period39_amount := l_ytd_element_cost;
3581: elsif l_assign_period_index = 40 then
3582: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period40_amount := l_ytd_element_cost;
3583: elsif l_assign_period_index = 41 then
3584: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period41_amount := l_ytd_element_cost;
3585: elsif l_assign_period_index = 42 then
3586: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period42_amount := l_ytd_element_cost;
3580: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period39_amount := l_ytd_element_cost;
3581: elsif l_assign_period_index = 40 then
3582: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period40_amount := l_ytd_element_cost;
3583: elsif l_assign_period_index = 41 then
3584: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period41_amount := l_ytd_element_cost;
3585: elsif l_assign_period_index = 42 then
3586: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period42_amount := l_ytd_element_cost;
3587: elsif l_assign_period_index = 43 then
3588: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period43_amount := l_ytd_element_cost;
3582: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period40_amount := l_ytd_element_cost;
3583: elsif l_assign_period_index = 41 then
3584: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period41_amount := l_ytd_element_cost;
3585: elsif l_assign_period_index = 42 then
3586: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period42_amount := l_ytd_element_cost;
3587: elsif l_assign_period_index = 43 then
3588: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period43_amount := l_ytd_element_cost;
3589: elsif l_assign_period_index = 44 then
3590: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period44_amount := l_ytd_element_cost;
3584: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period41_amount := l_ytd_element_cost;
3585: elsif l_assign_period_index = 42 then
3586: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period42_amount := l_ytd_element_cost;
3587: elsif l_assign_period_index = 43 then
3588: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period43_amount := l_ytd_element_cost;
3589: elsif l_assign_period_index = 44 then
3590: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period44_amount := l_ytd_element_cost;
3591: elsif l_assign_period_index = 45 then
3592: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period45_amount := l_ytd_element_cost;
3586: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period42_amount := l_ytd_element_cost;
3587: elsif l_assign_period_index = 43 then
3588: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period43_amount := l_ytd_element_cost;
3589: elsif l_assign_period_index = 44 then
3590: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period44_amount := l_ytd_element_cost;
3591: elsif l_assign_period_index = 45 then
3592: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period45_amount := l_ytd_element_cost;
3593: elsif l_assign_period_index = 46 then
3594: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period46_amount := l_ytd_element_cost;
3588: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period43_amount := l_ytd_element_cost;
3589: elsif l_assign_period_index = 44 then
3590: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period44_amount := l_ytd_element_cost;
3591: elsif l_assign_period_index = 45 then
3592: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period45_amount := l_ytd_element_cost;
3593: elsif l_assign_period_index = 46 then
3594: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period46_amount := l_ytd_element_cost;
3595: elsif l_assign_period_index = 47 then
3596: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period47_amount := l_ytd_element_cost;
3590: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period44_amount := l_ytd_element_cost;
3591: elsif l_assign_period_index = 45 then
3592: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period45_amount := l_ytd_element_cost;
3593: elsif l_assign_period_index = 46 then
3594: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period46_amount := l_ytd_element_cost;
3595: elsif l_assign_period_index = 47 then
3596: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period47_amount := l_ytd_element_cost;
3597: elsif l_assign_period_index = 48 then
3598: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period48_amount := l_ytd_element_cost;
3592: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period45_amount := l_ytd_element_cost;
3593: elsif l_assign_period_index = 46 then
3594: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period46_amount := l_ytd_element_cost;
3595: elsif l_assign_period_index = 47 then
3596: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period47_amount := l_ytd_element_cost;
3597: elsif l_assign_period_index = 48 then
3598: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period48_amount := l_ytd_element_cost;
3599: elsif l_assign_period_index = 49 then
3600: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period49_amount := l_ytd_element_cost;
3594: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period46_amount := l_ytd_element_cost;
3595: elsif l_assign_period_index = 47 then
3596: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period47_amount := l_ytd_element_cost;
3597: elsif l_assign_period_index = 48 then
3598: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period48_amount := l_ytd_element_cost;
3599: elsif l_assign_period_index = 49 then
3600: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period49_amount := l_ytd_element_cost;
3601: elsif l_assign_period_index = 50 then
3602: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period50_amount := l_ytd_element_cost;
3596: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period47_amount := l_ytd_element_cost;
3597: elsif l_assign_period_index = 48 then
3598: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period48_amount := l_ytd_element_cost;
3599: elsif l_assign_period_index = 49 then
3600: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period49_amount := l_ytd_element_cost;
3601: elsif l_assign_period_index = 50 then
3602: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period50_amount := l_ytd_element_cost;
3603: elsif l_assign_period_index = 51 then
3604: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period51_amount := l_ytd_element_cost;
3598: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period48_amount := l_ytd_element_cost;
3599: elsif l_assign_period_index = 49 then
3600: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period49_amount := l_ytd_element_cost;
3601: elsif l_assign_period_index = 50 then
3602: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period50_amount := l_ytd_element_cost;
3603: elsif l_assign_period_index = 51 then
3604: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period51_amount := l_ytd_element_cost;
3605: elsif l_assign_period_index = 52 then
3606: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period52_amount := l_ytd_element_cost;
3600: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period49_amount := l_ytd_element_cost;
3601: elsif l_assign_period_index = 50 then
3602: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period50_amount := l_ytd_element_cost;
3603: elsif l_assign_period_index = 51 then
3604: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period51_amount := l_ytd_element_cost;
3605: elsif l_assign_period_index = 52 then
3606: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period52_amount := l_ytd_element_cost;
3607: elsif l_assign_period_index = 53 then
3608: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period53_amount := l_ytd_element_cost;
3602: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period50_amount := l_ytd_element_cost;
3603: elsif l_assign_period_index = 51 then
3604: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period51_amount := l_ytd_element_cost;
3605: elsif l_assign_period_index = 52 then
3606: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period52_amount := l_ytd_element_cost;
3607: elsif l_assign_period_index = 53 then
3608: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period53_amount := l_ytd_element_cost;
3609: elsif l_assign_period_index = 54 then
3610: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period54_amount := l_ytd_element_cost;
3604: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period51_amount := l_ytd_element_cost;
3605: elsif l_assign_period_index = 52 then
3606: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period52_amount := l_ytd_element_cost;
3607: elsif l_assign_period_index = 53 then
3608: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period53_amount := l_ytd_element_cost;
3609: elsif l_assign_period_index = 54 then
3610: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period54_amount := l_ytd_element_cost;
3611: elsif l_assign_period_index = 55 then
3612: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period55_amount := l_ytd_element_cost;
3606: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period52_amount := l_ytd_element_cost;
3607: elsif l_assign_period_index = 53 then
3608: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period53_amount := l_ytd_element_cost;
3609: elsif l_assign_period_index = 54 then
3610: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period54_amount := l_ytd_element_cost;
3611: elsif l_assign_period_index = 55 then
3612: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period55_amount := l_ytd_element_cost;
3613: elsif l_assign_period_index = 56 then
3614: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period56_amount := l_ytd_element_cost;
3608: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period53_amount := l_ytd_element_cost;
3609: elsif l_assign_period_index = 54 then
3610: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period54_amount := l_ytd_element_cost;
3611: elsif l_assign_period_index = 55 then
3612: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period55_amount := l_ytd_element_cost;
3613: elsif l_assign_period_index = 56 then
3614: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period56_amount := l_ytd_element_cost;
3615: elsif l_assign_period_index = 57 then
3616: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period57_amount := l_ytd_element_cost;
3610: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period54_amount := l_ytd_element_cost;
3611: elsif l_assign_period_index = 55 then
3612: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period55_amount := l_ytd_element_cost;
3613: elsif l_assign_period_index = 56 then
3614: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period56_amount := l_ytd_element_cost;
3615: elsif l_assign_period_index = 57 then
3616: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period57_amount := l_ytd_element_cost;
3617: elsif l_assign_period_index = 58 then
3618: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period58_amount := l_ytd_element_cost;
3612: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period55_amount := l_ytd_element_cost;
3613: elsif l_assign_period_index = 56 then
3614: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period56_amount := l_ytd_element_cost;
3615: elsif l_assign_period_index = 57 then
3616: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period57_amount := l_ytd_element_cost;
3617: elsif l_assign_period_index = 58 then
3618: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period58_amount := l_ytd_element_cost;
3619: elsif l_assign_period_index = 59 then
3620: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period59_amount := l_ytd_element_cost;
3614: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period56_amount := l_ytd_element_cost;
3615: elsif l_assign_period_index = 57 then
3616: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period57_amount := l_ytd_element_cost;
3617: elsif l_assign_period_index = 58 then
3618: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period58_amount := l_ytd_element_cost;
3619: elsif l_assign_period_index = 59 then
3620: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period59_amount := l_ytd_element_cost;
3621: elsif l_assign_period_index = 60 then
3622: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period60_amount := l_ytd_element_cost;
3616: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period57_amount := l_ytd_element_cost;
3617: elsif l_assign_period_index = 58 then
3618: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period58_amount := l_ytd_element_cost;
3619: elsif l_assign_period_index = 59 then
3620: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period59_amount := l_ytd_element_cost;
3621: elsif l_assign_period_index = 60 then
3622: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period60_amount := l_ytd_element_cost;
3623: end if;
3624:
3618: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period58_amount := l_ytd_element_cost;
3619: elsif l_assign_period_index = 59 then
3620: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period59_amount := l_ytd_element_cost;
3621: elsif l_assign_period_index = 60 then
3622: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).period60_amount := l_ytd_element_cost;
3623: end if;
3624:
3625: end;
3626: end if;
3627:
3628: /* For Bug No : 2115867 Start */
3629: --The following one line has been commented because of the maximum value
3630: -- has to be taken when YTD_Amount is more than it
3631: -- PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).element_cost := l_ytd_element_cost;
3632:
3633: if l_ytd_element_cost > nvl(l_max_element_value, l_ytd_element_cost) then
3634: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).element_cost := l_max_element_value;
3635: else
3630: -- has to be taken when YTD_Amount is more than it
3631: -- PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).element_cost := l_ytd_element_cost;
3632:
3633: if l_ytd_element_cost > nvl(l_max_element_value, l_ytd_element_cost) then
3634: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).element_cost := l_max_element_value;
3635: else
3636: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).element_cost := l_ytd_element_cost;
3637: end if;
3638: /* For Bug No : 2115867 End */
3632:
3633: if l_ytd_element_cost > nvl(l_max_element_value, l_ytd_element_cost) then
3634: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).element_cost := l_max_element_value;
3635: else
3636: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).element_cost := l_ytd_element_cost;
3637: end if;
3638: /* For Bug No : 2115867 End */
3639:
3640: if PSB_WS_POS1.g_elements(l_element_index).salary_flag = 'Y' then
3636: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).element_cost := l_ytd_element_cost;
3637: end if;
3638: /* For Bug No : 2115867 End */
3639:
3640: if PSB_WS_POS1.g_elements(l_element_index).salary_flag = 'Y' then
3641: l_salary_defined := FND_API.G_TRUE;
3642: l_num_salary_indexes := l_num_salary_indexes + 1;
3643:
3644: -- Bug#3140849: Enforce maximum element value by FTE.
3645: -- Fixing the following statement. We need to use value computed in
3646: -- the immediate prior IF statement.
3647: /*l_salary_element_value:=l_salary_element_value+l_ytd_element_cost;*/
3648: l_salary_element_value := l_salary_element_value +
3649: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).element_cost;
3650: --
3651: l_salary_indexes(l_num_salary_indexes) := PSB_WS_POS1.g_num_pc_costs;
3652: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).element_type := 'S';
3653: end if;
3647: /*l_salary_element_value:=l_salary_element_value+l_ytd_element_cost;*/
3648: l_salary_element_value := l_salary_element_value +
3649: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).element_cost;
3650: --
3651: l_salary_indexes(l_num_salary_indexes) := PSB_WS_POS1.g_num_pc_costs;
3652: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).element_type := 'S';
3653: end if;
3654:
3655: if PSB_WS_POS1.g_elements(l_element_index).follow_salary = 'Y' then
3648: l_salary_element_value := l_salary_element_value +
3649: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).element_cost;
3650: --
3651: l_salary_indexes(l_num_salary_indexes) := PSB_WS_POS1.g_num_pc_costs;
3652: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).element_type := 'S';
3653: end if;
3654:
3655: if PSB_WS_POS1.g_elements(l_element_index).follow_salary = 'Y' then
3656: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).element_type := 'F';
3651: l_salary_indexes(l_num_salary_indexes) := PSB_WS_POS1.g_num_pc_costs;
3652: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).element_type := 'S';
3653: end if;
3654:
3655: if PSB_WS_POS1.g_elements(l_element_index).follow_salary = 'Y' then
3656: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).element_type := 'F';
3657: end if;
3658:
3659: end;
3652: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).element_type := 'S';
3653: end if;
3654:
3655: if PSB_WS_POS1.g_elements(l_element_index).follow_salary = 'Y' then
3656: PSB_WS_POS1.g_pc_costs(PSB_WS_POS1.g_num_pc_costs).element_type := 'F';
3657: end if;
3658:
3659: end;
3660: end if;
3907: l_api_name CONSTANT VARCHAR2(30) := 'Distribute_Position_Cost';
3908:
3909: BEGIN
3910:
3911: for l_element_index in 1..PSB_WS_POS1.g_num_elements loop
3912:
3913: if PSB_WS_POS1.g_elements(l_element_index).salary_flag = 'Y' then
3914: begin
3915:
3909: BEGIN
3910:
3911: for l_element_index in 1..PSB_WS_POS1.g_num_elements loop
3912:
3913: if PSB_WS_POS1.g_elements(l_element_index).salary_flag = 'Y' then
3914: begin
3915:
3916: Distribute_Salary
3917: (p_return_status => l_return_status,
3914: begin
3915:
3916: Distribute_Salary
3917: (p_return_status => l_return_status,
3918: p_pay_element_id => PSB_WS_POS1.g_elements(l_element_index).pay_element_id,
3919: p_root_budget_group_id => p_root_budget_group_id,
3920: p_data_extract_id => p_data_extract_id,
3921: p_flex_code => p_flex_code,
3922: p_rounding_factor => p_rounding_factor,
3933: end;
3934: else
3935: begin
3936:
3937: if PSB_WS_POS1.g_elements(l_element_index).follow_salary = 'Y' then
3938: begin
3939:
3940: PSB_WS_POS1.Distribute_Following_Elements
3941: (p_return_status => l_return_status,
3936:
3937: if PSB_WS_POS1.g_elements(l_element_index).follow_salary = 'Y' then
3938: begin
3939:
3940: PSB_WS_POS1.Distribute_Following_Elements
3941: (p_return_status => l_return_status,
3942: p_pay_element_id => PSB_WS_POS1.g_elements(l_element_index).pay_element_id,
3943: p_data_extract_id => p_data_extract_id,
3944: p_flex_code => p_flex_code,
3938: begin
3939:
3940: PSB_WS_POS1.Distribute_Following_Elements
3941: (p_return_status => l_return_status,
3942: p_pay_element_id => PSB_WS_POS1.g_elements(l_element_index).pay_element_id,
3943: p_data_extract_id => p_data_extract_id,
3944: p_flex_code => p_flex_code,
3945: p_business_group_id => p_business_group_id,
3946: p_rounding_factor => p_rounding_factor,
3959: begin
3960:
3961: Distribute_Other_Elements
3962: (p_return_status => l_return_status,
3963: p_pay_element_id => PSB_WS_POS1.g_elements(l_element_index).pay_element_id,
3964: p_data_extract_id => p_data_extract_id,
3965: p_flex_code => p_flex_code,
3966: p_rounding_factor => p_rounding_factor,
3967: p_position_line_id => p_position_line_id,
4055: l_api_name CONSTANT VARCHAR2(30) := 'Distribute_Salary';
4056:
4057: BEGIN
4058:
4059: for l_calc_index in 1..PSB_WS_POS1.g_num_pc_costs loop
4060:
4061: if ((PSB_WS_POS1.g_pc_costs(l_calc_index).budget_year_id = p_budget_year_id) and
4062: (PSB_WS_POS1.g_pc_costs(l_calc_index).pay_element_id = p_pay_element_id)) then
4063: l_salary_index := l_calc_index;
4057: BEGIN
4058:
4059: for l_calc_index in 1..PSB_WS_POS1.g_num_pc_costs loop
4060:
4061: if ((PSB_WS_POS1.g_pc_costs(l_calc_index).budget_year_id = p_budget_year_id) and
4062: (PSB_WS_POS1.g_pc_costs(l_calc_index).pay_element_id = p_pay_element_id)) then
4063: l_salary_index := l_calc_index;
4064: l_elem_found := FND_API.G_TRUE;
4065: exit;
4058:
4059: for l_calc_index in 1..PSB_WS_POS1.g_num_pc_costs loop
4060:
4061: if ((PSB_WS_POS1.g_pc_costs(l_calc_index).budget_year_id = p_budget_year_id) and
4062: (PSB_WS_POS1.g_pc_costs(l_calc_index).pay_element_id = p_pay_element_id)) then
4063: l_salary_index := l_calc_index;
4064: l_elem_found := FND_API.G_TRUE;
4065: exit;
4066: end if;
4070: if FND_API.to_Boolean(l_elem_found) then
4071: begin
4072:
4073: /* Bug No 2278216 Start */
4074: PSB_WS_POS1.Initialize_Period_Dist;
4075: /* Bug No 2278216 End */
4076:
4077: PSB_WS_POS1.g_pc_costs(l_salary_index).element_set_id := p_pay_element_id;
4078:
4073: /* Bug No 2278216 Start */
4074: PSB_WS_POS1.Initialize_Period_Dist;
4075: /* Bug No 2278216 End */
4076:
4077: PSB_WS_POS1.g_pc_costs(l_salary_index).element_set_id := p_pay_element_id;
4078:
4079: l_rounding_difference := 0;
4080:
4081: for l_saldist_index in 1..PSB_WS_POS1.g_num_salary_dist loop
4077: PSB_WS_POS1.g_pc_costs(l_salary_index).element_set_id := p_pay_element_id;
4078:
4079: l_rounding_difference := 0;
4080:
4081: for l_saldist_index in 1..PSB_WS_POS1.g_num_salary_dist loop
4082:
4083: l_update_dist := FALSE;
4084:
4085: if (((PSB_WS_POS1.g_salary_dist(l_saldist_index).start_date <= p_end_date) and
4081: for l_saldist_index in 1..PSB_WS_POS1.g_num_salary_dist loop
4082:
4083: l_update_dist := FALSE;
4084:
4085: if (((PSB_WS_POS1.g_salary_dist(l_saldist_index).start_date <= p_end_date) and
4086: (PSB_WS_POS1.g_salary_dist(l_saldist_index).end_date is null)) or
4087: ((PSB_WS_POS1.g_salary_dist(l_saldist_index).start_date between p_start_date and p_end_date) or
4088: (PSB_WS_POS1.g_salary_dist(l_saldist_index).end_date between p_start_date and p_end_date) or
4089: ((PSB_WS_POS1.g_salary_dist(l_saldist_index).start_date < p_start_date) and
4082:
4083: l_update_dist := FALSE;
4084:
4085: if (((PSB_WS_POS1.g_salary_dist(l_saldist_index).start_date <= p_end_date) and
4086: (PSB_WS_POS1.g_salary_dist(l_saldist_index).end_date is null)) or
4087: ((PSB_WS_POS1.g_salary_dist(l_saldist_index).start_date between p_start_date and p_end_date) or
4088: (PSB_WS_POS1.g_salary_dist(l_saldist_index).end_date between p_start_date and p_end_date) or
4089: ((PSB_WS_POS1.g_salary_dist(l_saldist_index).start_date < p_start_date) and
4090: (PSB_WS_POS1.g_salary_dist(l_saldist_index).end_date > p_end_date)))) then
4083: l_update_dist := FALSE;
4084:
4085: if (((PSB_WS_POS1.g_salary_dist(l_saldist_index).start_date <= p_end_date) and
4086: (PSB_WS_POS1.g_salary_dist(l_saldist_index).end_date is null)) or
4087: ((PSB_WS_POS1.g_salary_dist(l_saldist_index).start_date between p_start_date and p_end_date) or
4088: (PSB_WS_POS1.g_salary_dist(l_saldist_index).end_date between p_start_date and p_end_date) or
4089: ((PSB_WS_POS1.g_salary_dist(l_saldist_index).start_date < p_start_date) and
4090: (PSB_WS_POS1.g_salary_dist(l_saldist_index).end_date > p_end_date)))) then
4091: begin
4084:
4085: if (((PSB_WS_POS1.g_salary_dist(l_saldist_index).start_date <= p_end_date) and
4086: (PSB_WS_POS1.g_salary_dist(l_saldist_index).end_date is null)) or
4087: ((PSB_WS_POS1.g_salary_dist(l_saldist_index).start_date between p_start_date and p_end_date) or
4088: (PSB_WS_POS1.g_salary_dist(l_saldist_index).end_date between p_start_date and p_end_date) or
4089: ((PSB_WS_POS1.g_salary_dist(l_saldist_index).start_date < p_start_date) and
4090: (PSB_WS_POS1.g_salary_dist(l_saldist_index).end_date > p_end_date)))) then
4091: begin
4092:
4085: if (((PSB_WS_POS1.g_salary_dist(l_saldist_index).start_date <= p_end_date) and
4086: (PSB_WS_POS1.g_salary_dist(l_saldist_index).end_date is null)) or
4087: ((PSB_WS_POS1.g_salary_dist(l_saldist_index).start_date between p_start_date and p_end_date) or
4088: (PSB_WS_POS1.g_salary_dist(l_saldist_index).end_date between p_start_date and p_end_date) or
4089: ((PSB_WS_POS1.g_salary_dist(l_saldist_index).start_date < p_start_date) and
4090: (PSB_WS_POS1.g_salary_dist(l_saldist_index).end_date > p_end_date)))) then
4091: begin
4092:
4093: l_new_start_date := greatest(p_start_date, PSB_WS_POS1.g_salary_dist(l_saldist_index).start_date);
4086: (PSB_WS_POS1.g_salary_dist(l_saldist_index).end_date is null)) or
4087: ((PSB_WS_POS1.g_salary_dist(l_saldist_index).start_date between p_start_date and p_end_date) or
4088: (PSB_WS_POS1.g_salary_dist(l_saldist_index).end_date between p_start_date and p_end_date) or
4089: ((PSB_WS_POS1.g_salary_dist(l_saldist_index).start_date < p_start_date) and
4090: (PSB_WS_POS1.g_salary_dist(l_saldist_index).end_date > p_end_date)))) then
4091: begin
4092:
4093: l_new_start_date := greatest(p_start_date, PSB_WS_POS1.g_salary_dist(l_saldist_index).start_date);
4094: l_new_end_date := least(p_end_date, nvl(PSB_WS_POS1.g_salary_dist(l_saldist_index).end_date, p_end_date));
4089: ((PSB_WS_POS1.g_salary_dist(l_saldist_index).start_date < p_start_date) and
4090: (PSB_WS_POS1.g_salary_dist(l_saldist_index).end_date > p_end_date)))) then
4091: begin
4092:
4093: l_new_start_date := greatest(p_start_date, PSB_WS_POS1.g_salary_dist(l_saldist_index).start_date);
4094: l_new_end_date := least(p_end_date, nvl(PSB_WS_POS1.g_salary_dist(l_saldist_index).end_date, p_end_date));
4095:
4096: -- commented for bug # 4502946
4097: /*if PSB_WS_POS1.g_salary_dist(l_saldist_index).percent < 1 then
4090: (PSB_WS_POS1.g_salary_dist(l_saldist_index).end_date > p_end_date)))) then
4091: begin
4092:
4093: l_new_start_date := greatest(p_start_date, PSB_WS_POS1.g_salary_dist(l_saldist_index).start_date);
4094: l_new_end_date := least(p_end_date, nvl(PSB_WS_POS1.g_salary_dist(l_saldist_index).end_date, p_end_date));
4095:
4096: -- commented for bug # 4502946
4097: /*if PSB_WS_POS1.g_salary_dist(l_saldist_index).percent < 1 then
4098: l_percent := PSB_WS_POS1.g_salary_dist(l_saldist_index).percent;
4093: l_new_start_date := greatest(p_start_date, PSB_WS_POS1.g_salary_dist(l_saldist_index).start_date);
4094: l_new_end_date := least(p_end_date, nvl(PSB_WS_POS1.g_salary_dist(l_saldist_index).end_date, p_end_date));
4095:
4096: -- commented for bug # 4502946
4097: /*if PSB_WS_POS1.g_salary_dist(l_saldist_index).percent < 1 then
4098: l_percent := PSB_WS_POS1.g_salary_dist(l_saldist_index).percent;
4099: else
4100: l_percent := PSB_WS_POS1.g_salary_dist(l_saldist_index).percent / 100;
4101: end if;*/
4094: l_new_end_date := least(p_end_date, nvl(PSB_WS_POS1.g_salary_dist(l_saldist_index).end_date, p_end_date));
4095:
4096: -- commented for bug # 4502946
4097: /*if PSB_WS_POS1.g_salary_dist(l_saldist_index).percent < 1 then
4098: l_percent := PSB_WS_POS1.g_salary_dist(l_saldist_index).percent;
4099: else
4100: l_percent := PSB_WS_POS1.g_salary_dist(l_saldist_index).percent / 100;
4101: end if;*/
4102:
4096: -- commented for bug # 4502946
4097: /*if PSB_WS_POS1.g_salary_dist(l_saldist_index).percent < 1 then
4098: l_percent := PSB_WS_POS1.g_salary_dist(l_saldist_index).percent;
4099: else
4100: l_percent := PSB_WS_POS1.g_salary_dist(l_saldist_index).percent / 100;
4101: end if;*/
4102:
4103: -- added for bug # 4502946
4104: l_percent := PSB_WS_POS1.g_salary_dist(l_saldist_index).percent / 100;
4100: l_percent := PSB_WS_POS1.g_salary_dist(l_saldist_index).percent / 100;
4101: end if;*/
4102:
4103: -- added for bug # 4502946
4104: l_percent := PSB_WS_POS1.g_salary_dist(l_saldist_index).percent / 100;
4105:
4106: for j in 1..PSB_WS_POS1.g_num_pd_costs loop
4107:
4108: if ((PSB_WS_POS1.g_pd_costs(j).ccid = PSB_WS_POS1.g_salary_dist(l_saldist_index).ccid) and
4102:
4103: -- added for bug # 4502946
4104: l_percent := PSB_WS_POS1.g_salary_dist(l_saldist_index).percent / 100;
4105:
4106: for j in 1..PSB_WS_POS1.g_num_pd_costs loop
4107:
4108: if ((PSB_WS_POS1.g_pd_costs(j).ccid = PSB_WS_POS1.g_salary_dist(l_saldist_index).ccid) and
4109: (PSB_WS_POS1.g_pd_costs(j).element_set_id = p_pay_element_id) and
4110: (PSB_WS_POS1.g_pd_costs(j).budget_year_id = p_budget_year_id)) then
4104: l_percent := PSB_WS_POS1.g_salary_dist(l_saldist_index).percent / 100;
4105:
4106: for j in 1..PSB_WS_POS1.g_num_pd_costs loop
4107:
4108: if ((PSB_WS_POS1.g_pd_costs(j).ccid = PSB_WS_POS1.g_salary_dist(l_saldist_index).ccid) and
4109: (PSB_WS_POS1.g_pd_costs(j).element_set_id = p_pay_element_id) and
4110: (PSB_WS_POS1.g_pd_costs(j).budget_year_id = p_budget_year_id)) then
4111: /*For Bug No : 2782604 Start*/
4112: --PSB_WS_POS1.g_num_pd_costs := j;
4105:
4106: for j in 1..PSB_WS_POS1.g_num_pd_costs loop
4107:
4108: if ((PSB_WS_POS1.g_pd_costs(j).ccid = PSB_WS_POS1.g_salary_dist(l_saldist_index).ccid) and
4109: (PSB_WS_POS1.g_pd_costs(j).element_set_id = p_pay_element_id) and
4110: (PSB_WS_POS1.g_pd_costs(j).budget_year_id = p_budget_year_id)) then
4111: /*For Bug No : 2782604 Start*/
4112: --PSB_WS_POS1.g_num_pd_costs := j;
4113: /*For Bug No : 2782604 End*/
4106: for j in 1..PSB_WS_POS1.g_num_pd_costs loop
4107:
4108: if ((PSB_WS_POS1.g_pd_costs(j).ccid = PSB_WS_POS1.g_salary_dist(l_saldist_index).ccid) and
4109: (PSB_WS_POS1.g_pd_costs(j).element_set_id = p_pay_element_id) and
4110: (PSB_WS_POS1.g_pd_costs(j).budget_year_id = p_budget_year_id)) then
4111: /*For Bug No : 2782604 Start*/
4112: --PSB_WS_POS1.g_num_pd_costs := j;
4113: /*For Bug No : 2782604 End*/
4114: l_update_dist := TRUE;
4108: if ((PSB_WS_POS1.g_pd_costs(j).ccid = PSB_WS_POS1.g_salary_dist(l_saldist_index).ccid) and
4109: (PSB_WS_POS1.g_pd_costs(j).element_set_id = p_pay_element_id) and
4110: (PSB_WS_POS1.g_pd_costs(j).budget_year_id = p_budget_year_id)) then
4111: /*For Bug No : 2782604 Start*/
4112: --PSB_WS_POS1.g_num_pd_costs := j;
4113: /*For Bug No : 2782604 End*/
4114: l_update_dist := TRUE;
4115: exit;
4116: end if;
4122:
4123: if not (l_update_dist) then
4124: begin
4125:
4126: PSB_WS_POS1.g_num_pd_costs := PSB_WS_POS1.g_num_pd_costs + 1;
4127:
4128: PSB_WS_POS1.g_pd_costs(PSB_WS_POS1.g_num_pd_costs).ccid := PSB_WS_POS1.g_salary_dist(l_saldist_index).ccid;
4129: PSB_WS_POS1.g_pd_costs(PSB_WS_POS1.g_num_pd_costs).budget_year_id := p_budget_year_id;
4130: PSB_WS_POS1.g_pd_costs(PSB_WS_POS1.g_num_pd_costs).element_type := 'S';
4124: begin
4125:
4126: PSB_WS_POS1.g_num_pd_costs := PSB_WS_POS1.g_num_pd_costs + 1;
4127:
4128: PSB_WS_POS1.g_pd_costs(PSB_WS_POS1.g_num_pd_costs).ccid := PSB_WS_POS1.g_salary_dist(l_saldist_index).ccid;
4129: PSB_WS_POS1.g_pd_costs(PSB_WS_POS1.g_num_pd_costs).budget_year_id := p_budget_year_id;
4130: PSB_WS_POS1.g_pd_costs(PSB_WS_POS1.g_num_pd_costs).element_type := 'S';
4131: PSB_WS_POS1.g_pd_costs(PSB_WS_POS1.g_num_pd_costs).element_set_id := p_pay_element_id;
4132:
4125:
4126: PSB_WS_POS1.g_num_pd_costs := PSB_WS_POS1.g_num_pd_costs + 1;
4127:
4128: PSB_WS_POS1.g_pd_costs(PSB_WS_POS1.g_num_pd_costs).ccid := PSB_WS_POS1.g_salary_dist(l_saldist_index).ccid;
4129: PSB_WS_POS1.g_pd_costs(PSB_WS_POS1.g_num_pd_costs).budget_year_id := p_budget_year_id;
4130: PSB_WS_POS1.g_pd_costs(PSB_WS_POS1.g_num_pd_costs).element_type := 'S';
4131: PSB_WS_POS1.g_pd_costs(PSB_WS_POS1.g_num_pd_costs).element_set_id := p_pay_element_id;
4132:
4133: end;
4126: PSB_WS_POS1.g_num_pd_costs := PSB_WS_POS1.g_num_pd_costs + 1;
4127:
4128: PSB_WS_POS1.g_pd_costs(PSB_WS_POS1.g_num_pd_costs).ccid := PSB_WS_POS1.g_salary_dist(l_saldist_index).ccid;
4129: PSB_WS_POS1.g_pd_costs(PSB_WS_POS1.g_num_pd_costs).budget_year_id := p_budget_year_id;
4130: PSB_WS_POS1.g_pd_costs(PSB_WS_POS1.g_num_pd_costs).element_type := 'S';
4131: PSB_WS_POS1.g_pd_costs(PSB_WS_POS1.g_num_pd_costs).element_set_id := p_pay_element_id;
4132:
4133: end;
4134: end if;
4127:
4128: PSB_WS_POS1.g_pd_costs(PSB_WS_POS1.g_num_pd_costs).ccid := PSB_WS_POS1.g_salary_dist(l_saldist_index).ccid;
4129: PSB_WS_POS1.g_pd_costs(PSB_WS_POS1.g_num_pd_costs).budget_year_id := p_budget_year_id;
4130: PSB_WS_POS1.g_pd_costs(PSB_WS_POS1.g_num_pd_costs).element_type := 'S';
4131: PSB_WS_POS1.g_pd_costs(PSB_WS_POS1.g_num_pd_costs).element_set_id := p_pay_element_id;
4132:
4133: end;
4134: end if;
4135:
4132:
4133: end;
4134: end if;
4135:
4136: PSB_WS_POS1.g_num_periods := PSB_WS_POS1.g_num_periods + 1;
4137:
4138: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).ccid := PSB_WS_POS1.g_salary_dist(l_saldist_index).ccid;
4139: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).budget_year_id := p_budget_year_id;
4140: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).element_type := 'S';
4134: end if;
4135:
4136: PSB_WS_POS1.g_num_periods := PSB_WS_POS1.g_num_periods + 1;
4137:
4138: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).ccid := PSB_WS_POS1.g_salary_dist(l_saldist_index).ccid;
4139: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).budget_year_id := p_budget_year_id;
4140: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).element_type := 'S';
4141: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).element_set_id := p_pay_element_id;
4142: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).percent := l_percent;
4135:
4136: PSB_WS_POS1.g_num_periods := PSB_WS_POS1.g_num_periods + 1;
4137:
4138: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).ccid := PSB_WS_POS1.g_salary_dist(l_saldist_index).ccid;
4139: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).budget_year_id := p_budget_year_id;
4140: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).element_type := 'S';
4141: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).element_set_id := p_pay_element_id;
4142: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).percent := l_percent;
4143: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).period_start_date := l_new_start_date;
4136: PSB_WS_POS1.g_num_periods := PSB_WS_POS1.g_num_periods + 1;
4137:
4138: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).ccid := PSB_WS_POS1.g_salary_dist(l_saldist_index).ccid;
4139: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).budget_year_id := p_budget_year_id;
4140: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).element_type := 'S';
4141: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).element_set_id := p_pay_element_id;
4142: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).percent := l_percent;
4143: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).period_start_date := l_new_start_date;
4144: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).period_end_date := l_new_end_date;
4137:
4138: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).ccid := PSB_WS_POS1.g_salary_dist(l_saldist_index).ccid;
4139: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).budget_year_id := p_budget_year_id;
4140: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).element_type := 'S';
4141: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).element_set_id := p_pay_element_id;
4142: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).percent := l_percent;
4143: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).period_start_date := l_new_start_date;
4144: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).period_end_date := l_new_end_date;
4145:
4138: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).ccid := PSB_WS_POS1.g_salary_dist(l_saldist_index).ccid;
4139: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).budget_year_id := p_budget_year_id;
4140: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).element_type := 'S';
4141: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).element_set_id := p_pay_element_id;
4142: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).percent := l_percent;
4143: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).period_start_date := l_new_start_date;
4144: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).period_end_date := l_new_end_date;
4145:
4146: end;
4139: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).budget_year_id := p_budget_year_id;
4140: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).element_type := 'S';
4141: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).element_set_id := p_pay_element_id;
4142: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).percent := l_percent;
4143: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).period_start_date := l_new_start_date;
4144: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).period_end_date := l_new_end_date;
4145:
4146: end;
4147: end if;
4140: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).element_type := 'S';
4141: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).element_set_id := p_pay_element_id;
4142: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).percent := l_percent;
4143: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).period_start_date := l_new_start_date;
4144: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).period_end_date := l_new_end_date;
4145:
4146: end;
4147: end if;
4148:
4147: end if;
4148:
4149: end loop;
4150:
4151: for l_dist_index in 1..PSB_WS_POS1.g_num_pd_costs loop
4152:
4153: if ((PSB_WS_POS1.g_pd_costs(l_dist_index).budget_year_id = p_budget_year_id)
4154: and (PSB_WS_POS1.g_pd_costs(l_dist_index).element_type = 'S')
4155: and (PSB_WS_POS1.g_pd_costs(l_dist_index).element_set_id = p_pay_element_id)) then
4149: end loop;
4150:
4151: for l_dist_index in 1..PSB_WS_POS1.g_num_pd_costs loop
4152:
4153: if ((PSB_WS_POS1.g_pd_costs(l_dist_index).budget_year_id = p_budget_year_id)
4154: and (PSB_WS_POS1.g_pd_costs(l_dist_index).element_type = 'S')
4155: and (PSB_WS_POS1.g_pd_costs(l_dist_index).element_set_id = p_pay_element_id)) then
4156:
4157: for l_period_index in 1..PSB_WS_POS1.g_num_periods loop
4150:
4151: for l_dist_index in 1..PSB_WS_POS1.g_num_pd_costs loop
4152:
4153: if ((PSB_WS_POS1.g_pd_costs(l_dist_index).budget_year_id = p_budget_year_id)
4154: and (PSB_WS_POS1.g_pd_costs(l_dist_index).element_type = 'S')
4155: and (PSB_WS_POS1.g_pd_costs(l_dist_index).element_set_id = p_pay_element_id)) then
4156:
4157: for l_period_index in 1..PSB_WS_POS1.g_num_periods loop
4158:
4151: for l_dist_index in 1..PSB_WS_POS1.g_num_pd_costs loop
4152:
4153: if ((PSB_WS_POS1.g_pd_costs(l_dist_index).budget_year_id = p_budget_year_id)
4154: and (PSB_WS_POS1.g_pd_costs(l_dist_index).element_type = 'S')
4155: and (PSB_WS_POS1.g_pd_costs(l_dist_index).element_set_id = p_pay_element_id)) then
4156:
4157: for l_period_index in 1..PSB_WS_POS1.g_num_periods loop
4158:
4159: if ((PSB_WS_POS1.g_periods(l_period_index).ccid = PSB_WS_POS1.g_pd_costs(l_dist_index).ccid)
4153: if ((PSB_WS_POS1.g_pd_costs(l_dist_index).budget_year_id = p_budget_year_id)
4154: and (PSB_WS_POS1.g_pd_costs(l_dist_index).element_type = 'S')
4155: and (PSB_WS_POS1.g_pd_costs(l_dist_index).element_set_id = p_pay_element_id)) then
4156:
4157: for l_period_index in 1..PSB_WS_POS1.g_num_periods loop
4158:
4159: if ((PSB_WS_POS1.g_periods(l_period_index).ccid = PSB_WS_POS1.g_pd_costs(l_dist_index).ccid)
4160: and (PSB_WS_POS1.g_periods(l_period_index).element_set_id = PSB_WS_POS1.g_pd_costs(l_dist_index).element_set_id)
4161: and (PSB_WS_POS1.g_periods(l_period_index).element_type = 'S')
4155: and (PSB_WS_POS1.g_pd_costs(l_dist_index).element_set_id = p_pay_element_id)) then
4156:
4157: for l_period_index in 1..PSB_WS_POS1.g_num_periods loop
4158:
4159: if ((PSB_WS_POS1.g_periods(l_period_index).ccid = PSB_WS_POS1.g_pd_costs(l_dist_index).ccid)
4160: and (PSB_WS_POS1.g_periods(l_period_index).element_set_id = PSB_WS_POS1.g_pd_costs(l_dist_index).element_set_id)
4161: and (PSB_WS_POS1.g_periods(l_period_index).element_type = 'S')
4162: and (PSB_WS_POS1.g_periods(l_period_index).budget_year_id = PSB_WS_POS1.g_pd_costs(l_dist_index).budget_year_id)) then
4163:
4156:
4157: for l_period_index in 1..PSB_WS_POS1.g_num_periods loop
4158:
4159: if ((PSB_WS_POS1.g_periods(l_period_index).ccid = PSB_WS_POS1.g_pd_costs(l_dist_index).ccid)
4160: and (PSB_WS_POS1.g_periods(l_period_index).element_set_id = PSB_WS_POS1.g_pd_costs(l_dist_index).element_set_id)
4161: and (PSB_WS_POS1.g_periods(l_period_index).element_type = 'S')
4162: and (PSB_WS_POS1.g_periods(l_period_index).budget_year_id = PSB_WS_POS1.g_pd_costs(l_dist_index).budget_year_id)) then
4163:
4164: PSB_WS_POS1.Distribute_Periods
4157: for l_period_index in 1..PSB_WS_POS1.g_num_periods loop
4158:
4159: if ((PSB_WS_POS1.g_periods(l_period_index).ccid = PSB_WS_POS1.g_pd_costs(l_dist_index).ccid)
4160: and (PSB_WS_POS1.g_periods(l_period_index).element_set_id = PSB_WS_POS1.g_pd_costs(l_dist_index).element_set_id)
4161: and (PSB_WS_POS1.g_periods(l_period_index).element_type = 'S')
4162: and (PSB_WS_POS1.g_periods(l_period_index).budget_year_id = PSB_WS_POS1.g_pd_costs(l_dist_index).budget_year_id)) then
4163:
4164: PSB_WS_POS1.Distribute_Periods
4165: (p_return_status => l_return_status,
4158:
4159: if ((PSB_WS_POS1.g_periods(l_period_index).ccid = PSB_WS_POS1.g_pd_costs(l_dist_index).ccid)
4160: and (PSB_WS_POS1.g_periods(l_period_index).element_set_id = PSB_WS_POS1.g_pd_costs(l_dist_index).element_set_id)
4161: and (PSB_WS_POS1.g_periods(l_period_index).element_type = 'S')
4162: and (PSB_WS_POS1.g_periods(l_period_index).budget_year_id = PSB_WS_POS1.g_pd_costs(l_dist_index).budget_year_id)) then
4163:
4164: PSB_WS_POS1.Distribute_Periods
4165: (p_return_status => l_return_status,
4166: p_ccid => PSB_WS_POS1.g_pd_costs(l_dist_index).ccid,
4160: and (PSB_WS_POS1.g_periods(l_period_index).element_set_id = PSB_WS_POS1.g_pd_costs(l_dist_index).element_set_id)
4161: and (PSB_WS_POS1.g_periods(l_period_index).element_type = 'S')
4162: and (PSB_WS_POS1.g_periods(l_period_index).budget_year_id = PSB_WS_POS1.g_pd_costs(l_dist_index).budget_year_id)) then
4163:
4164: PSB_WS_POS1.Distribute_Periods
4165: (p_return_status => l_return_status,
4166: p_ccid => PSB_WS_POS1.g_pd_costs(l_dist_index).ccid,
4167: p_element_type => 'S',
4168: p_element_set_id => PSB_WS_POS1.g_pd_costs(l_dist_index).element_set_id,
4162: and (PSB_WS_POS1.g_periods(l_period_index).budget_year_id = PSB_WS_POS1.g_pd_costs(l_dist_index).budget_year_id)) then
4163:
4164: PSB_WS_POS1.Distribute_Periods
4165: (p_return_status => l_return_status,
4166: p_ccid => PSB_WS_POS1.g_pd_costs(l_dist_index).ccid,
4167: p_element_type => 'S',
4168: p_element_set_id => PSB_WS_POS1.g_pd_costs(l_dist_index).element_set_id,
4169: p_budget_year_id => p_budget_year_id,
4170: p_dist_start_date => PSB_WS_POS1.g_periods(l_period_index).period_start_date,
4164: PSB_WS_POS1.Distribute_Periods
4165: (p_return_status => l_return_status,
4166: p_ccid => PSB_WS_POS1.g_pd_costs(l_dist_index).ccid,
4167: p_element_type => 'S',
4168: p_element_set_id => PSB_WS_POS1.g_pd_costs(l_dist_index).element_set_id,
4169: p_budget_year_id => p_budget_year_id,
4170: p_dist_start_date => PSB_WS_POS1.g_periods(l_period_index).period_start_date,
4171: p_dist_end_date => PSB_WS_POS1.g_periods(l_period_index).period_end_date,
4172: p_start_date => p_start_date,
4166: p_ccid => PSB_WS_POS1.g_pd_costs(l_dist_index).ccid,
4167: p_element_type => 'S',
4168: p_element_set_id => PSB_WS_POS1.g_pd_costs(l_dist_index).element_set_id,
4169: p_budget_year_id => p_budget_year_id,
4170: p_dist_start_date => PSB_WS_POS1.g_periods(l_period_index).period_start_date,
4171: p_dist_end_date => PSB_WS_POS1.g_periods(l_period_index).period_end_date,
4172: p_start_date => p_start_date,
4173: p_end_date => p_end_date,
4174: p_element_index => l_salary_index,
4167: p_element_type => 'S',
4168: p_element_set_id => PSB_WS_POS1.g_pd_costs(l_dist_index).element_set_id,
4169: p_budget_year_id => p_budget_year_id,
4170: p_dist_start_date => PSB_WS_POS1.g_periods(l_period_index).period_start_date,
4171: p_dist_end_date => PSB_WS_POS1.g_periods(l_period_index).period_end_date,
4172: p_start_date => p_start_date,
4173: p_end_date => p_end_date,
4174: p_element_index => l_salary_index,
4175: p_dist_index => l_dist_index,
4172: p_start_date => p_start_date,
4173: p_end_date => p_end_date,
4174: p_element_index => l_salary_index,
4175: p_dist_index => l_dist_index,
4176: p_percent => PSB_WS_POS1.g_periods(l_period_index).percent);
4177:
4178: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
4179: raise FND_API.G_EXC_ERROR;
4180: end if;
4189: /* Bug No 2278216 End */
4190:
4191: if p_rounding_factor is not null then
4192: l_rounding_difference := l_rounding_difference +
4193: (round(PSB_WS_POS1.g_pc_costs(l_salary_index).element_cost / p_rounding_factor)
4194: * p_rounding_factor - PSB_WS_POS1.g_pc_costs(l_salary_index).element_cost);
4195: end if;
4196:
4197: PSB_WS_POS1.g_pc_costs(l_salary_index).element_cost := PSB_WS_POS1.g_pc_costs(l_salary_index).element_cost +
4190:
4191: if p_rounding_factor is not null then
4192: l_rounding_difference := l_rounding_difference +
4193: (round(PSB_WS_POS1.g_pc_costs(l_salary_index).element_cost / p_rounding_factor)
4194: * p_rounding_factor - PSB_WS_POS1.g_pc_costs(l_salary_index).element_cost);
4195: end if;
4196:
4197: PSB_WS_POS1.g_pc_costs(l_salary_index).element_cost := PSB_WS_POS1.g_pc_costs(l_salary_index).element_cost +
4198: l_rounding_difference;
4193: (round(PSB_WS_POS1.g_pc_costs(l_salary_index).element_cost / p_rounding_factor)
4194: * p_rounding_factor - PSB_WS_POS1.g_pc_costs(l_salary_index).element_cost);
4195: end if;
4196:
4197: PSB_WS_POS1.g_pc_costs(l_salary_index).element_cost := PSB_WS_POS1.g_pc_costs(l_salary_index).element_cost +
4198: l_rounding_difference;
4199:
4200: end;
4201: end if;
4294: order by a.distribution_percent desc;
4295:
4296: BEGIN
4297:
4298: for l_calc_index in 1..PSB_WS_POS1.g_num_pc_costs loop
4299:
4300: if ((PSB_WS_POS1.g_pc_costs(l_calc_index).budget_year_id = p_budget_year_id) and
4301: (PSB_WS_POS1.g_pc_costs(l_calc_index).pay_element_id = p_pay_element_id)) then
4302: l_element_index := l_calc_index;
4296: BEGIN
4297:
4298: for l_calc_index in 1..PSB_WS_POS1.g_num_pc_costs loop
4299:
4300: if ((PSB_WS_POS1.g_pc_costs(l_calc_index).budget_year_id = p_budget_year_id) and
4301: (PSB_WS_POS1.g_pc_costs(l_calc_index).pay_element_id = p_pay_element_id)) then
4302: l_element_index := l_calc_index;
4303: l_elem_found := FND_API.G_TRUE;
4304: exit;
4297:
4298: for l_calc_index in 1..PSB_WS_POS1.g_num_pc_costs loop
4299:
4300: if ((PSB_WS_POS1.g_pc_costs(l_calc_index).budget_year_id = p_budget_year_id) and
4301: (PSB_WS_POS1.g_pc_costs(l_calc_index).pay_element_id = p_pay_element_id)) then
4302: l_element_index := l_calc_index;
4303: l_elem_found := FND_API.G_TRUE;
4304: exit;
4305: end if;
4309: if FND_API.to_Boolean(l_elem_found) then
4310: begin
4311:
4312: /* Bug No 2278216 Start */
4313: PSB_WS_POS1.Initialize_Period_Dist;
4314: /* Bug No 2278216 End */
4315:
4316: l_rounding_difference := 0;
4317:
4328: begin
4329: l_start_date := greatest(p_start_date, c_Dist_Rec.effective_start_date);
4330: l_end_date := least(p_end_date, nvl(c_Dist_Rec.effective_end_date, p_end_date));
4331:
4332: PSB_WS_POS1.g_pc_costs(l_element_index).element_set_id := p_pay_element_id;
4333:
4334: -- commented for bug # 4502946
4335: /*if c_Dist_Rec.distribution_percent < 1 then
4336: l_percent := c_Dist_Rec.distribution_percent;
4340:
4341: -- added for bug # 4502946
4342: l_percent := c_Dist_Rec.distribution_percent / 100;
4343:
4344: for j in 1..PSB_WS_POS1.g_num_pd_costs loop
4345: if ((PSB_WS_POS1.g_pd_costs(j).ccid = c_Dist_Rec.code_combination_id) and
4346: (PSB_WS_POS1.g_pd_costs(j).element_set_id = p_pay_element_id) and
4347: (PSB_WS_POS1.g_pd_costs(j).budget_year_id = p_budget_year_id)) then
4348: /*For Bug No : 2782604 Start*/
4341: -- added for bug # 4502946
4342: l_percent := c_Dist_Rec.distribution_percent / 100;
4343:
4344: for j in 1..PSB_WS_POS1.g_num_pd_costs loop
4345: if ((PSB_WS_POS1.g_pd_costs(j).ccid = c_Dist_Rec.code_combination_id) and
4346: (PSB_WS_POS1.g_pd_costs(j).element_set_id = p_pay_element_id) and
4347: (PSB_WS_POS1.g_pd_costs(j).budget_year_id = p_budget_year_id)) then
4348: /*For Bug No : 2782604 Start*/
4349: --PSB_WS_POS1.g_num_pd_costs := j;
4342: l_percent := c_Dist_Rec.distribution_percent / 100;
4343:
4344: for j in 1..PSB_WS_POS1.g_num_pd_costs loop
4345: if ((PSB_WS_POS1.g_pd_costs(j).ccid = c_Dist_Rec.code_combination_id) and
4346: (PSB_WS_POS1.g_pd_costs(j).element_set_id = p_pay_element_id) and
4347: (PSB_WS_POS1.g_pd_costs(j).budget_year_id = p_budget_year_id)) then
4348: /*For Bug No : 2782604 Start*/
4349: --PSB_WS_POS1.g_num_pd_costs := j;
4350: /*For Bug No : 2782604 End*/
4343:
4344: for j in 1..PSB_WS_POS1.g_num_pd_costs loop
4345: if ((PSB_WS_POS1.g_pd_costs(j).ccid = c_Dist_Rec.code_combination_id) and
4346: (PSB_WS_POS1.g_pd_costs(j).element_set_id = p_pay_element_id) and
4347: (PSB_WS_POS1.g_pd_costs(j).budget_year_id = p_budget_year_id)) then
4348: /*For Bug No : 2782604 Start*/
4349: --PSB_WS_POS1.g_num_pd_costs := j;
4350: /*For Bug No : 2782604 End*/
4351: l_update_dist := TRUE;
4345: if ((PSB_WS_POS1.g_pd_costs(j).ccid = c_Dist_Rec.code_combination_id) and
4346: (PSB_WS_POS1.g_pd_costs(j).element_set_id = p_pay_element_id) and
4347: (PSB_WS_POS1.g_pd_costs(j).budget_year_id = p_budget_year_id)) then
4348: /*For Bug No : 2782604 Start*/
4349: --PSB_WS_POS1.g_num_pd_costs := j;
4350: /*For Bug No : 2782604 End*/
4351: l_update_dist := TRUE;
4352: exit;
4353: end if;
4357: -- Created a separate procedure for calculating period amounts
4358:
4359: if not (l_update_dist) then
4360: begin
4361: PSB_WS_POS1.g_num_pd_costs := PSB_WS_POS1.g_num_pd_costs + 1;
4362:
4363: PSB_WS_POS1.g_pd_costs(PSB_WS_POS1.g_num_pd_costs).budget_year_id := p_budget_year_id;
4364: PSB_WS_POS1.g_pd_costs(PSB_WS_POS1.g_num_pd_costs).element_type := 'O';
4365: PSB_WS_POS1.g_pd_costs(PSB_WS_POS1.g_num_pd_costs).ccid := c_Dist_Rec.code_combination_id;
4359: if not (l_update_dist) then
4360: begin
4361: PSB_WS_POS1.g_num_pd_costs := PSB_WS_POS1.g_num_pd_costs + 1;
4362:
4363: PSB_WS_POS1.g_pd_costs(PSB_WS_POS1.g_num_pd_costs).budget_year_id := p_budget_year_id;
4364: PSB_WS_POS1.g_pd_costs(PSB_WS_POS1.g_num_pd_costs).element_type := 'O';
4365: PSB_WS_POS1.g_pd_costs(PSB_WS_POS1.g_num_pd_costs).ccid := c_Dist_Rec.code_combination_id;
4366: PSB_WS_POS1.g_pd_costs(PSB_WS_POS1.g_num_pd_costs).element_set_id := p_pay_element_id;
4367: end;
4360: begin
4361: PSB_WS_POS1.g_num_pd_costs := PSB_WS_POS1.g_num_pd_costs + 1;
4362:
4363: PSB_WS_POS1.g_pd_costs(PSB_WS_POS1.g_num_pd_costs).budget_year_id := p_budget_year_id;
4364: PSB_WS_POS1.g_pd_costs(PSB_WS_POS1.g_num_pd_costs).element_type := 'O';
4365: PSB_WS_POS1.g_pd_costs(PSB_WS_POS1.g_num_pd_costs).ccid := c_Dist_Rec.code_combination_id;
4366: PSB_WS_POS1.g_pd_costs(PSB_WS_POS1.g_num_pd_costs).element_set_id := p_pay_element_id;
4367: end;
4368: end if;
4361: PSB_WS_POS1.g_num_pd_costs := PSB_WS_POS1.g_num_pd_costs + 1;
4362:
4363: PSB_WS_POS1.g_pd_costs(PSB_WS_POS1.g_num_pd_costs).budget_year_id := p_budget_year_id;
4364: PSB_WS_POS1.g_pd_costs(PSB_WS_POS1.g_num_pd_costs).element_type := 'O';
4365: PSB_WS_POS1.g_pd_costs(PSB_WS_POS1.g_num_pd_costs).ccid := c_Dist_Rec.code_combination_id;
4366: PSB_WS_POS1.g_pd_costs(PSB_WS_POS1.g_num_pd_costs).element_set_id := p_pay_element_id;
4367: end;
4368: end if;
4369:
4362:
4363: PSB_WS_POS1.g_pd_costs(PSB_WS_POS1.g_num_pd_costs).budget_year_id := p_budget_year_id;
4364: PSB_WS_POS1.g_pd_costs(PSB_WS_POS1.g_num_pd_costs).element_type := 'O';
4365: PSB_WS_POS1.g_pd_costs(PSB_WS_POS1.g_num_pd_costs).ccid := c_Dist_Rec.code_combination_id;
4366: PSB_WS_POS1.g_pd_costs(PSB_WS_POS1.g_num_pd_costs).element_set_id := p_pay_element_id;
4367: end;
4368: end if;
4369:
4370: PSB_WS_POS1.g_num_periods := PSB_WS_POS1.g_num_periods + 1;
4366: PSB_WS_POS1.g_pd_costs(PSB_WS_POS1.g_num_pd_costs).element_set_id := p_pay_element_id;
4367: end;
4368: end if;
4369:
4370: PSB_WS_POS1.g_num_periods := PSB_WS_POS1.g_num_periods + 1;
4371:
4372: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).ccid := c_Dist_Rec.code_combination_id;
4373: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).budget_year_id := p_budget_year_id;
4374: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).element_type := 'O';
4368: end if;
4369:
4370: PSB_WS_POS1.g_num_periods := PSB_WS_POS1.g_num_periods + 1;
4371:
4372: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).ccid := c_Dist_Rec.code_combination_id;
4373: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).budget_year_id := p_budget_year_id;
4374: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).element_type := 'O';
4375: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).element_set_id := p_pay_element_id;
4376: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).percent := l_percent;
4369:
4370: PSB_WS_POS1.g_num_periods := PSB_WS_POS1.g_num_periods + 1;
4371:
4372: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).ccid := c_Dist_Rec.code_combination_id;
4373: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).budget_year_id := p_budget_year_id;
4374: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).element_type := 'O';
4375: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).element_set_id := p_pay_element_id;
4376: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).percent := l_percent;
4377: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).period_start_date := l_start_date;
4370: PSB_WS_POS1.g_num_periods := PSB_WS_POS1.g_num_periods + 1;
4371:
4372: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).ccid := c_Dist_Rec.code_combination_id;
4373: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).budget_year_id := p_budget_year_id;
4374: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).element_type := 'O';
4375: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).element_set_id := p_pay_element_id;
4376: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).percent := l_percent;
4377: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).period_start_date := l_start_date;
4378: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).period_end_date := l_end_date;
4371:
4372: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).ccid := c_Dist_Rec.code_combination_id;
4373: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).budget_year_id := p_budget_year_id;
4374: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).element_type := 'O';
4375: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).element_set_id := p_pay_element_id;
4376: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).percent := l_percent;
4377: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).period_start_date := l_start_date;
4378: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).period_end_date := l_end_date;
4379:
4372: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).ccid := c_Dist_Rec.code_combination_id;
4373: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).budget_year_id := p_budget_year_id;
4374: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).element_type := 'O';
4375: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).element_set_id := p_pay_element_id;
4376: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).percent := l_percent;
4377: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).period_start_date := l_start_date;
4378: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).period_end_date := l_end_date;
4379:
4380: end;
4373: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).budget_year_id := p_budget_year_id;
4374: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).element_type := 'O';
4375: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).element_set_id := p_pay_element_id;
4376: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).percent := l_percent;
4377: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).period_start_date := l_start_date;
4378: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).period_end_date := l_end_date;
4379:
4380: end;
4381: end if;
4374: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).element_type := 'O';
4375: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).element_set_id := p_pay_element_id;
4376: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).percent := l_percent;
4377: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).period_start_date := l_start_date;
4378: PSB_WS_POS1.g_periods(PSB_WS_POS1.g_num_periods).period_end_date := l_end_date;
4379:
4380: end;
4381: end if;
4382:
4381: end if;
4382:
4383: end loop;
4384:
4385: for l_dist_index in 1..PSB_WS_POS1.g_num_pd_costs loop
4386:
4387: if ((PSB_WS_POS1.g_pd_costs(l_dist_index).budget_year_id = p_budget_year_id)
4388: and (PSB_WS_POS1.g_pd_costs(l_dist_index).element_type = 'O')
4389: and (PSB_WS_POS1.g_pd_costs(l_dist_index).element_set_id = p_pay_element_id)) then
4383: end loop;
4384:
4385: for l_dist_index in 1..PSB_WS_POS1.g_num_pd_costs loop
4386:
4387: if ((PSB_WS_POS1.g_pd_costs(l_dist_index).budget_year_id = p_budget_year_id)
4388: and (PSB_WS_POS1.g_pd_costs(l_dist_index).element_type = 'O')
4389: and (PSB_WS_POS1.g_pd_costs(l_dist_index).element_set_id = p_pay_element_id)) then
4390:
4391: for l_period_index in 1..PSB_WS_POS1.g_num_periods loop
4384:
4385: for l_dist_index in 1..PSB_WS_POS1.g_num_pd_costs loop
4386:
4387: if ((PSB_WS_POS1.g_pd_costs(l_dist_index).budget_year_id = p_budget_year_id)
4388: and (PSB_WS_POS1.g_pd_costs(l_dist_index).element_type = 'O')
4389: and (PSB_WS_POS1.g_pd_costs(l_dist_index).element_set_id = p_pay_element_id)) then
4390:
4391: for l_period_index in 1..PSB_WS_POS1.g_num_periods loop
4392:
4385: for l_dist_index in 1..PSB_WS_POS1.g_num_pd_costs loop
4386:
4387: if ((PSB_WS_POS1.g_pd_costs(l_dist_index).budget_year_id = p_budget_year_id)
4388: and (PSB_WS_POS1.g_pd_costs(l_dist_index).element_type = 'O')
4389: and (PSB_WS_POS1.g_pd_costs(l_dist_index).element_set_id = p_pay_element_id)) then
4390:
4391: for l_period_index in 1..PSB_WS_POS1.g_num_periods loop
4392:
4393: if ((PSB_WS_POS1.g_periods(l_period_index).ccid = PSB_WS_POS1.g_pd_costs(l_dist_index).ccid)
4387: if ((PSB_WS_POS1.g_pd_costs(l_dist_index).budget_year_id = p_budget_year_id)
4388: and (PSB_WS_POS1.g_pd_costs(l_dist_index).element_type = 'O')
4389: and (PSB_WS_POS1.g_pd_costs(l_dist_index).element_set_id = p_pay_element_id)) then
4390:
4391: for l_period_index in 1..PSB_WS_POS1.g_num_periods loop
4392:
4393: if ((PSB_WS_POS1.g_periods(l_period_index).ccid = PSB_WS_POS1.g_pd_costs(l_dist_index).ccid)
4394: and (PSB_WS_POS1.g_periods(l_period_index).element_set_id = PSB_WS_POS1.g_pd_costs(l_dist_index).element_set_id)
4395: and (PSB_WS_POS1.g_periods(l_period_index).element_type = 'O')
4389: and (PSB_WS_POS1.g_pd_costs(l_dist_index).element_set_id = p_pay_element_id)) then
4390:
4391: for l_period_index in 1..PSB_WS_POS1.g_num_periods loop
4392:
4393: if ((PSB_WS_POS1.g_periods(l_period_index).ccid = PSB_WS_POS1.g_pd_costs(l_dist_index).ccid)
4394: and (PSB_WS_POS1.g_periods(l_period_index).element_set_id = PSB_WS_POS1.g_pd_costs(l_dist_index).element_set_id)
4395: and (PSB_WS_POS1.g_periods(l_period_index).element_type = 'O')
4396: and (PSB_WS_POS1.g_periods(l_period_index).budget_year_id = PSB_WS_POS1.g_pd_costs(l_dist_index).budget_year_id)) then
4397:
4390:
4391: for l_period_index in 1..PSB_WS_POS1.g_num_periods loop
4392:
4393: if ((PSB_WS_POS1.g_periods(l_period_index).ccid = PSB_WS_POS1.g_pd_costs(l_dist_index).ccid)
4394: and (PSB_WS_POS1.g_periods(l_period_index).element_set_id = PSB_WS_POS1.g_pd_costs(l_dist_index).element_set_id)
4395: and (PSB_WS_POS1.g_periods(l_period_index).element_type = 'O')
4396: and (PSB_WS_POS1.g_periods(l_period_index).budget_year_id = PSB_WS_POS1.g_pd_costs(l_dist_index).budget_year_id)) then
4397:
4398: PSB_WS_POS1.Distribute_Periods
4391: for l_period_index in 1..PSB_WS_POS1.g_num_periods loop
4392:
4393: if ((PSB_WS_POS1.g_periods(l_period_index).ccid = PSB_WS_POS1.g_pd_costs(l_dist_index).ccid)
4394: and (PSB_WS_POS1.g_periods(l_period_index).element_set_id = PSB_WS_POS1.g_pd_costs(l_dist_index).element_set_id)
4395: and (PSB_WS_POS1.g_periods(l_period_index).element_type = 'O')
4396: and (PSB_WS_POS1.g_periods(l_period_index).budget_year_id = PSB_WS_POS1.g_pd_costs(l_dist_index).budget_year_id)) then
4397:
4398: PSB_WS_POS1.Distribute_Periods
4399: (p_return_status => l_return_status,
4392:
4393: if ((PSB_WS_POS1.g_periods(l_period_index).ccid = PSB_WS_POS1.g_pd_costs(l_dist_index).ccid)
4394: and (PSB_WS_POS1.g_periods(l_period_index).element_set_id = PSB_WS_POS1.g_pd_costs(l_dist_index).element_set_id)
4395: and (PSB_WS_POS1.g_periods(l_period_index).element_type = 'O')
4396: and (PSB_WS_POS1.g_periods(l_period_index).budget_year_id = PSB_WS_POS1.g_pd_costs(l_dist_index).budget_year_id)) then
4397:
4398: PSB_WS_POS1.Distribute_Periods
4399: (p_return_status => l_return_status,
4400: p_ccid => PSB_WS_POS1.g_pd_costs(l_dist_index).ccid,
4394: and (PSB_WS_POS1.g_periods(l_period_index).element_set_id = PSB_WS_POS1.g_pd_costs(l_dist_index).element_set_id)
4395: and (PSB_WS_POS1.g_periods(l_period_index).element_type = 'O')
4396: and (PSB_WS_POS1.g_periods(l_period_index).budget_year_id = PSB_WS_POS1.g_pd_costs(l_dist_index).budget_year_id)) then
4397:
4398: PSB_WS_POS1.Distribute_Periods
4399: (p_return_status => l_return_status,
4400: p_ccid => PSB_WS_POS1.g_pd_costs(l_dist_index).ccid,
4401: p_element_type => 'O',
4402: p_element_set_id => PSB_WS_POS1.g_pd_costs(l_dist_index).element_set_id,
4396: and (PSB_WS_POS1.g_periods(l_period_index).budget_year_id = PSB_WS_POS1.g_pd_costs(l_dist_index).budget_year_id)) then
4397:
4398: PSB_WS_POS1.Distribute_Periods
4399: (p_return_status => l_return_status,
4400: p_ccid => PSB_WS_POS1.g_pd_costs(l_dist_index).ccid,
4401: p_element_type => 'O',
4402: p_element_set_id => PSB_WS_POS1.g_pd_costs(l_dist_index).element_set_id,
4403: p_budget_year_id => p_budget_year_id,
4404: p_dist_start_date => PSB_WS_POS1.g_periods(l_period_index).period_start_date,
4398: PSB_WS_POS1.Distribute_Periods
4399: (p_return_status => l_return_status,
4400: p_ccid => PSB_WS_POS1.g_pd_costs(l_dist_index).ccid,
4401: p_element_type => 'O',
4402: p_element_set_id => PSB_WS_POS1.g_pd_costs(l_dist_index).element_set_id,
4403: p_budget_year_id => p_budget_year_id,
4404: p_dist_start_date => PSB_WS_POS1.g_periods(l_period_index).period_start_date,
4405: p_dist_end_date => PSB_WS_POS1.g_periods(l_period_index).period_end_date,
4406: p_start_date => p_start_date,
4400: p_ccid => PSB_WS_POS1.g_pd_costs(l_dist_index).ccid,
4401: p_element_type => 'O',
4402: p_element_set_id => PSB_WS_POS1.g_pd_costs(l_dist_index).element_set_id,
4403: p_budget_year_id => p_budget_year_id,
4404: p_dist_start_date => PSB_WS_POS1.g_periods(l_period_index).period_start_date,
4405: p_dist_end_date => PSB_WS_POS1.g_periods(l_period_index).period_end_date,
4406: p_start_date => p_start_date,
4407: p_end_date => p_end_date,
4408: p_element_index => l_element_index,
4401: p_element_type => 'O',
4402: p_element_set_id => PSB_WS_POS1.g_pd_costs(l_dist_index).element_set_id,
4403: p_budget_year_id => p_budget_year_id,
4404: p_dist_start_date => PSB_WS_POS1.g_periods(l_period_index).period_start_date,
4405: p_dist_end_date => PSB_WS_POS1.g_periods(l_period_index).period_end_date,
4406: p_start_date => p_start_date,
4407: p_end_date => p_end_date,
4408: p_element_index => l_element_index,
4409: p_dist_index => l_dist_index,
4406: p_start_date => p_start_date,
4407: p_end_date => p_end_date,
4408: p_element_index => l_element_index,
4409: p_dist_index => l_dist_index,
4410: p_percent => PSB_WS_POS1.g_periods(l_period_index).percent);
4411:
4412: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
4413: raise FND_API.G_EXC_ERROR;
4414: end if;
4423: /* Bug No 2278216 End */
4424:
4425: if p_rounding_factor is not null then
4426: l_rounding_difference := l_rounding_difference +
4427: (round(PSB_WS_POS1.g_pc_costs(l_element_index).element_cost / p_rounding_factor)
4428: * p_rounding_factor - PSB_WS_POS1.g_pc_costs(l_element_index).element_cost);
4429: end if;
4430:
4431: PSB_WS_POS1.g_pc_costs(l_element_index).element_cost := PSB_WS_POS1.g_pc_costs(l_element_index).element_cost +
4424:
4425: if p_rounding_factor is not null then
4426: l_rounding_difference := l_rounding_difference +
4427: (round(PSB_WS_POS1.g_pc_costs(l_element_index).element_cost / p_rounding_factor)
4428: * p_rounding_factor - PSB_WS_POS1.g_pc_costs(l_element_index).element_cost);
4429: end if;
4430:
4431: PSB_WS_POS1.g_pc_costs(l_element_index).element_cost := PSB_WS_POS1.g_pc_costs(l_element_index).element_cost +
4432: l_rounding_difference;
4427: (round(PSB_WS_POS1.g_pc_costs(l_element_index).element_cost / p_rounding_factor)
4428: * p_rounding_factor - PSB_WS_POS1.g_pc_costs(l_element_index).element_cost);
4429: end if;
4430:
4431: PSB_WS_POS1.g_pc_costs(l_element_index).element_cost := PSB_WS_POS1.g_pc_costs(l_element_index).element_cost +
4432: l_rounding_difference;
4433:
4434: end;
4435: end if;
4635: for l_init_index in 1..PSB_WS_ACCT1.g_max_num_amounts loop
4636: l_period_fte(l_init_index) := null;
4637: end loop;
4638:
4639: for l_elemcost_index in 1..PSB_WS_POS1.g_num_pc_costs loop
4640:
4641: if ((PSB_WS_POS1.g_pc_costs(l_elemcost_index).budget_year_id = p_budget_year_id) and
4642: (PSB_WS_POS1.g_pc_costs(l_elemcost_index).element_set_id is not null)) then
4643: l_year_calculated := TRUE;
4637: end loop;
4638:
4639: for l_elemcost_index in 1..PSB_WS_POS1.g_num_pc_costs loop
4640:
4641: if ((PSB_WS_POS1.g_pc_costs(l_elemcost_index).budget_year_id = p_budget_year_id) and
4642: (PSB_WS_POS1.g_pc_costs(l_elemcost_index).element_set_id is not null)) then
4643: l_year_calculated := TRUE;
4644: exit;
4645: end if;
4638:
4639: for l_elemcost_index in 1..PSB_WS_POS1.g_num_pc_costs loop
4640:
4641: if ((PSB_WS_POS1.g_pc_costs(l_elemcost_index).budget_year_id = p_budget_year_id) and
4642: (PSB_WS_POS1.g_pc_costs(l_elemcost_index).element_set_id is not null)) then
4643: l_year_calculated := TRUE;
4644: exit;
4645: end if;
4646:
4789: begin
4790:
4791: g_pf_recalc_fte(l_fte_index).ratio := l_annual_fte;
4792:
4793: PSB_WS_POS1.Create_FTE_Lines
4794: (p_api_version => 1.0,
4795: p_return_status => l_return_status,
4796: p_worksheet_id => p_worksheet_id,
4797: p_fte_line_id => g_pf_recalc_fte(l_fte_index).fte_line_id,
4819: end;
4820: else
4821: begin
4822:
4823: PSB_WS_POS1.Create_FTE_Lines
4824: (p_api_version => 1.0,
4825: p_return_status => l_return_status,
4826: p_fte_line_id => l_fte_line_id,
4827: p_check_spfl_exists => FND_API.G_FALSE,
4849:
4850: end;
4851: end if;
4852:
4853: for l_elemcost_index in 1..PSB_WS_POS1.g_num_pc_costs loop
4854:
4855: if ((PSB_WS_POS1.g_pc_costs(l_elemcost_index).budget_year_id = p_budget_year_id) and
4856: (PSB_WS_POS1.g_pc_costs(l_elemcost_index).element_set_id is not null)) then
4857: begin
4851: end if;
4852:
4853: for l_elemcost_index in 1..PSB_WS_POS1.g_num_pc_costs loop
4854:
4855: if ((PSB_WS_POS1.g_pc_costs(l_elemcost_index).budget_year_id = p_budget_year_id) and
4856: (PSB_WS_POS1.g_pc_costs(l_elemcost_index).element_set_id is not null)) then
4857: begin
4858:
4859: l_element_set_id := PSB_WS_POS1.g_pc_costs(l_elemcost_index).element_set_id;
4852:
4853: for l_elemcost_index in 1..PSB_WS_POS1.g_num_pc_costs loop
4854:
4855: if ((PSB_WS_POS1.g_pc_costs(l_elemcost_index).budget_year_id = p_budget_year_id) and
4856: (PSB_WS_POS1.g_pc_costs(l_elemcost_index).element_set_id is not null)) then
4857: begin
4858:
4859: l_element_set_id := PSB_WS_POS1.g_pc_costs(l_elemcost_index).element_set_id;
4860: l_elemdist_exists := FALSE;
4855: if ((PSB_WS_POS1.g_pc_costs(l_elemcost_index).budget_year_id = p_budget_year_id) and
4856: (PSB_WS_POS1.g_pc_costs(l_elemcost_index).element_set_id is not null)) then
4857: begin
4858:
4859: l_element_set_id := PSB_WS_POS1.g_pc_costs(l_elemcost_index).element_set_id;
4860: l_elemdist_exists := FALSE;
4861:
4862: for l_element_index in 1..PSB_WS_POS1.g_num_elements loop
4863:
4858:
4859: l_element_set_id := PSB_WS_POS1.g_pc_costs(l_elemcost_index).element_set_id;
4860: l_elemdist_exists := FALSE;
4861:
4862: for l_element_index in 1..PSB_WS_POS1.g_num_elements loop
4863:
4864: if PSB_WS_POS1.g_elements(l_element_index).pay_element_id = PSB_WS_POS1.g_pc_costs(l_elemcost_index).pay_element_id then
4865: l_processing_type := PSB_WS_POS1.g_elements(l_element_index).processing_type;
4866: exit;
4860: l_elemdist_exists := FALSE;
4861:
4862: for l_element_index in 1..PSB_WS_POS1.g_num_elements loop
4863:
4864: if PSB_WS_POS1.g_elements(l_element_index).pay_element_id = PSB_WS_POS1.g_pc_costs(l_elemcost_index).pay_element_id then
4865: l_processing_type := PSB_WS_POS1.g_elements(l_element_index).processing_type;
4866: exit;
4867: end if;
4868:
4861:
4862: for l_element_index in 1..PSB_WS_POS1.g_num_elements loop
4863:
4864: if PSB_WS_POS1.g_elements(l_element_index).pay_element_id = PSB_WS_POS1.g_pc_costs(l_elemcost_index).pay_element_id then
4865: l_processing_type := PSB_WS_POS1.g_elements(l_element_index).processing_type;
4866: exit;
4867: end if;
4868:
4869: end loop;
4878: else
4879: l_factor := g_pf_recalc_fte(l_fte_index).ratio;
4880: end if;
4881:
4882: for l_dist_index in 1..PSB_WS_POS1.g_num_pd_costs loop
4883:
4884: if ((PSB_WS_POS1.g_pd_costs(l_dist_index).budget_year_id = p_budget_year_id) and
4885: (PSB_WS_POS1.g_pd_costs(l_dist_index).element_set_id = l_element_set_id)) then
4886: begin
4880: end if;
4881:
4882: for l_dist_index in 1..PSB_WS_POS1.g_num_pd_costs loop
4883:
4884: if ((PSB_WS_POS1.g_pd_costs(l_dist_index).budget_year_id = p_budget_year_id) and
4885: (PSB_WS_POS1.g_pd_costs(l_dist_index).element_set_id = l_element_set_id)) then
4886: begin
4887:
4888: l_elemdist_exists := TRUE;
4881:
4882: for l_dist_index in 1..PSB_WS_POS1.g_num_pd_costs loop
4883:
4884: if ((PSB_WS_POS1.g_pd_costs(l_dist_index).budget_year_id = p_budget_year_id) and
4885: (PSB_WS_POS1.g_pd_costs(l_dist_index).element_set_id = l_element_set_id)) then
4886: begin
4887:
4888: l_elemdist_exists := TRUE;
4889:
4890: for l_init_index in 1..PSB_WS_ACCT1.g_max_num_amounts loop
4891: l_period_amount(l_init_index) := null;
4892: end loop;
4893:
4894: l_period_amount(1) := PSB_WS_POS1.g_pd_costs(l_dist_index).period1_amount;
4895: l_period_amount(2) := PSB_WS_POS1.g_pd_costs(l_dist_index).period2_amount;
4896: l_period_amount(3) := PSB_WS_POS1.g_pd_costs(l_dist_index).period3_amount;
4897: l_period_amount(4) := PSB_WS_POS1.g_pd_costs(l_dist_index).period4_amount;
4898: l_period_amount(5) := PSB_WS_POS1.g_pd_costs(l_dist_index).period5_amount;
4891: l_period_amount(l_init_index) := null;
4892: end loop;
4893:
4894: l_period_amount(1) := PSB_WS_POS1.g_pd_costs(l_dist_index).period1_amount;
4895: l_period_amount(2) := PSB_WS_POS1.g_pd_costs(l_dist_index).period2_amount;
4896: l_period_amount(3) := PSB_WS_POS1.g_pd_costs(l_dist_index).period3_amount;
4897: l_period_amount(4) := PSB_WS_POS1.g_pd_costs(l_dist_index).period4_amount;
4898: l_period_amount(5) := PSB_WS_POS1.g_pd_costs(l_dist_index).period5_amount;
4899: l_period_amount(6) := PSB_WS_POS1.g_pd_costs(l_dist_index).period6_amount;
4892: end loop;
4893:
4894: l_period_amount(1) := PSB_WS_POS1.g_pd_costs(l_dist_index).period1_amount;
4895: l_period_amount(2) := PSB_WS_POS1.g_pd_costs(l_dist_index).period2_amount;
4896: l_period_amount(3) := PSB_WS_POS1.g_pd_costs(l_dist_index).period3_amount;
4897: l_period_amount(4) := PSB_WS_POS1.g_pd_costs(l_dist_index).period4_amount;
4898: l_period_amount(5) := PSB_WS_POS1.g_pd_costs(l_dist_index).period5_amount;
4899: l_period_amount(6) := PSB_WS_POS1.g_pd_costs(l_dist_index).period6_amount;
4900: l_period_amount(7) := PSB_WS_POS1.g_pd_costs(l_dist_index).period7_amount;
4893:
4894: l_period_amount(1) := PSB_WS_POS1.g_pd_costs(l_dist_index).period1_amount;
4895: l_period_amount(2) := PSB_WS_POS1.g_pd_costs(l_dist_index).period2_amount;
4896: l_period_amount(3) := PSB_WS_POS1.g_pd_costs(l_dist_index).period3_amount;
4897: l_period_amount(4) := PSB_WS_POS1.g_pd_costs(l_dist_index).period4_amount;
4898: l_period_amount(5) := PSB_WS_POS1.g_pd_costs(l_dist_index).period5_amount;
4899: l_period_amount(6) := PSB_WS_POS1.g_pd_costs(l_dist_index).period6_amount;
4900: l_period_amount(7) := PSB_WS_POS1.g_pd_costs(l_dist_index).period7_amount;
4901: l_period_amount(8) := PSB_WS_POS1.g_pd_costs(l_dist_index).period8_amount;
4894: l_period_amount(1) := PSB_WS_POS1.g_pd_costs(l_dist_index).period1_amount;
4895: l_period_amount(2) := PSB_WS_POS1.g_pd_costs(l_dist_index).period2_amount;
4896: l_period_amount(3) := PSB_WS_POS1.g_pd_costs(l_dist_index).period3_amount;
4897: l_period_amount(4) := PSB_WS_POS1.g_pd_costs(l_dist_index).period4_amount;
4898: l_period_amount(5) := PSB_WS_POS1.g_pd_costs(l_dist_index).period5_amount;
4899: l_period_amount(6) := PSB_WS_POS1.g_pd_costs(l_dist_index).period6_amount;
4900: l_period_amount(7) := PSB_WS_POS1.g_pd_costs(l_dist_index).period7_amount;
4901: l_period_amount(8) := PSB_WS_POS1.g_pd_costs(l_dist_index).period8_amount;
4902: l_period_amount(9) := PSB_WS_POS1.g_pd_costs(l_dist_index).period9_amount;
4895: l_period_amount(2) := PSB_WS_POS1.g_pd_costs(l_dist_index).period2_amount;
4896: l_period_amount(3) := PSB_WS_POS1.g_pd_costs(l_dist_index).period3_amount;
4897: l_period_amount(4) := PSB_WS_POS1.g_pd_costs(l_dist_index).period4_amount;
4898: l_period_amount(5) := PSB_WS_POS1.g_pd_costs(l_dist_index).period5_amount;
4899: l_period_amount(6) := PSB_WS_POS1.g_pd_costs(l_dist_index).period6_amount;
4900: l_period_amount(7) := PSB_WS_POS1.g_pd_costs(l_dist_index).period7_amount;
4901: l_period_amount(8) := PSB_WS_POS1.g_pd_costs(l_dist_index).period8_amount;
4902: l_period_amount(9) := PSB_WS_POS1.g_pd_costs(l_dist_index).period9_amount;
4903: l_period_amount(10) := PSB_WS_POS1.g_pd_costs(l_dist_index).period10_amount;
4896: l_period_amount(3) := PSB_WS_POS1.g_pd_costs(l_dist_index).period3_amount;
4897: l_period_amount(4) := PSB_WS_POS1.g_pd_costs(l_dist_index).period4_amount;
4898: l_period_amount(5) := PSB_WS_POS1.g_pd_costs(l_dist_index).period5_amount;
4899: l_period_amount(6) := PSB_WS_POS1.g_pd_costs(l_dist_index).period6_amount;
4900: l_period_amount(7) := PSB_WS_POS1.g_pd_costs(l_dist_index).period7_amount;
4901: l_period_amount(8) := PSB_WS_POS1.g_pd_costs(l_dist_index).period8_amount;
4902: l_period_amount(9) := PSB_WS_POS1.g_pd_costs(l_dist_index).period9_amount;
4903: l_period_amount(10) := PSB_WS_POS1.g_pd_costs(l_dist_index).period10_amount;
4904: l_period_amount(11) := PSB_WS_POS1.g_pd_costs(l_dist_index).period11_amount;
4897: l_period_amount(4) := PSB_WS_POS1.g_pd_costs(l_dist_index).period4_amount;
4898: l_period_amount(5) := PSB_WS_POS1.g_pd_costs(l_dist_index).period5_amount;
4899: l_period_amount(6) := PSB_WS_POS1.g_pd_costs(l_dist_index).period6_amount;
4900: l_period_amount(7) := PSB_WS_POS1.g_pd_costs(l_dist_index).period7_amount;
4901: l_period_amount(8) := PSB_WS_POS1.g_pd_costs(l_dist_index).period8_amount;
4902: l_period_amount(9) := PSB_WS_POS1.g_pd_costs(l_dist_index).period9_amount;
4903: l_period_amount(10) := PSB_WS_POS1.g_pd_costs(l_dist_index).period10_amount;
4904: l_period_amount(11) := PSB_WS_POS1.g_pd_costs(l_dist_index).period11_amount;
4905: l_period_amount(12) := PSB_WS_POS1.g_pd_costs(l_dist_index).period12_amount;
4898: l_period_amount(5) := PSB_WS_POS1.g_pd_costs(l_dist_index).period5_amount;
4899: l_period_amount(6) := PSB_WS_POS1.g_pd_costs(l_dist_index).period6_amount;
4900: l_period_amount(7) := PSB_WS_POS1.g_pd_costs(l_dist_index).period7_amount;
4901: l_period_amount(8) := PSB_WS_POS1.g_pd_costs(l_dist_index).period8_amount;
4902: l_period_amount(9) := PSB_WS_POS1.g_pd_costs(l_dist_index).period9_amount;
4903: l_period_amount(10) := PSB_WS_POS1.g_pd_costs(l_dist_index).period10_amount;
4904: l_period_amount(11) := PSB_WS_POS1.g_pd_costs(l_dist_index).period11_amount;
4905: l_period_amount(12) := PSB_WS_POS1.g_pd_costs(l_dist_index).period12_amount;
4906: l_period_amount(13) := PSB_WS_POS1.g_pd_costs(l_dist_index).period13_amount;
4899: l_period_amount(6) := PSB_WS_POS1.g_pd_costs(l_dist_index).period6_amount;
4900: l_period_amount(7) := PSB_WS_POS1.g_pd_costs(l_dist_index).period7_amount;
4901: l_period_amount(8) := PSB_WS_POS1.g_pd_costs(l_dist_index).period8_amount;
4902: l_period_amount(9) := PSB_WS_POS1.g_pd_costs(l_dist_index).period9_amount;
4903: l_period_amount(10) := PSB_WS_POS1.g_pd_costs(l_dist_index).period10_amount;
4904: l_period_amount(11) := PSB_WS_POS1.g_pd_costs(l_dist_index).period11_amount;
4905: l_period_amount(12) := PSB_WS_POS1.g_pd_costs(l_dist_index).period12_amount;
4906: l_period_amount(13) := PSB_WS_POS1.g_pd_costs(l_dist_index).period13_amount;
4907: l_period_amount(14) := PSB_WS_POS1.g_pd_costs(l_dist_index).period14_amount;
4900: l_period_amount(7) := PSB_WS_POS1.g_pd_costs(l_dist_index).period7_amount;
4901: l_period_amount(8) := PSB_WS_POS1.g_pd_costs(l_dist_index).period8_amount;
4902: l_period_amount(9) := PSB_WS_POS1.g_pd_costs(l_dist_index).period9_amount;
4903: l_period_amount(10) := PSB_WS_POS1.g_pd_costs(l_dist_index).period10_amount;
4904: l_period_amount(11) := PSB_WS_POS1.g_pd_costs(l_dist_index).period11_amount;
4905: l_period_amount(12) := PSB_WS_POS1.g_pd_costs(l_dist_index).period12_amount;
4906: l_period_amount(13) := PSB_WS_POS1.g_pd_costs(l_dist_index).period13_amount;
4907: l_period_amount(14) := PSB_WS_POS1.g_pd_costs(l_dist_index).period14_amount;
4908: l_period_amount(15) := PSB_WS_POS1.g_pd_costs(l_dist_index).period15_amount;
4901: l_period_amount(8) := PSB_WS_POS1.g_pd_costs(l_dist_index).period8_amount;
4902: l_period_amount(9) := PSB_WS_POS1.g_pd_costs(l_dist_index).period9_amount;
4903: l_period_amount(10) := PSB_WS_POS1.g_pd_costs(l_dist_index).period10_amount;
4904: l_period_amount(11) := PSB_WS_POS1.g_pd_costs(l_dist_index).period11_amount;
4905: l_period_amount(12) := PSB_WS_POS1.g_pd_costs(l_dist_index).period12_amount;
4906: l_period_amount(13) := PSB_WS_POS1.g_pd_costs(l_dist_index).period13_amount;
4907: l_period_amount(14) := PSB_WS_POS1.g_pd_costs(l_dist_index).period14_amount;
4908: l_period_amount(15) := PSB_WS_POS1.g_pd_costs(l_dist_index).period15_amount;
4909: l_period_amount(16) := PSB_WS_POS1.g_pd_costs(l_dist_index).period16_amount;
4902: l_period_amount(9) := PSB_WS_POS1.g_pd_costs(l_dist_index).period9_amount;
4903: l_period_amount(10) := PSB_WS_POS1.g_pd_costs(l_dist_index).period10_amount;
4904: l_period_amount(11) := PSB_WS_POS1.g_pd_costs(l_dist_index).period11_amount;
4905: l_period_amount(12) := PSB_WS_POS1.g_pd_costs(l_dist_index).period12_amount;
4906: l_period_amount(13) := PSB_WS_POS1.g_pd_costs(l_dist_index).period13_amount;
4907: l_period_amount(14) := PSB_WS_POS1.g_pd_costs(l_dist_index).period14_amount;
4908: l_period_amount(15) := PSB_WS_POS1.g_pd_costs(l_dist_index).period15_amount;
4909: l_period_amount(16) := PSB_WS_POS1.g_pd_costs(l_dist_index).period16_amount;
4910: l_period_amount(17) := PSB_WS_POS1.g_pd_costs(l_dist_index).period17_amount;
4903: l_period_amount(10) := PSB_WS_POS1.g_pd_costs(l_dist_index).period10_amount;
4904: l_period_amount(11) := PSB_WS_POS1.g_pd_costs(l_dist_index).period11_amount;
4905: l_period_amount(12) := PSB_WS_POS1.g_pd_costs(l_dist_index).period12_amount;
4906: l_period_amount(13) := PSB_WS_POS1.g_pd_costs(l_dist_index).period13_amount;
4907: l_period_amount(14) := PSB_WS_POS1.g_pd_costs(l_dist_index).period14_amount;
4908: l_period_amount(15) := PSB_WS_POS1.g_pd_costs(l_dist_index).period15_amount;
4909: l_period_amount(16) := PSB_WS_POS1.g_pd_costs(l_dist_index).period16_amount;
4910: l_period_amount(17) := PSB_WS_POS1.g_pd_costs(l_dist_index).period17_amount;
4911: l_period_amount(18) := PSB_WS_POS1.g_pd_costs(l_dist_index).period18_amount;
4904: l_period_amount(11) := PSB_WS_POS1.g_pd_costs(l_dist_index).period11_amount;
4905: l_period_amount(12) := PSB_WS_POS1.g_pd_costs(l_dist_index).period12_amount;
4906: l_period_amount(13) := PSB_WS_POS1.g_pd_costs(l_dist_index).period13_amount;
4907: l_period_amount(14) := PSB_WS_POS1.g_pd_costs(l_dist_index).period14_amount;
4908: l_period_amount(15) := PSB_WS_POS1.g_pd_costs(l_dist_index).period15_amount;
4909: l_period_amount(16) := PSB_WS_POS1.g_pd_costs(l_dist_index).period16_amount;
4910: l_period_amount(17) := PSB_WS_POS1.g_pd_costs(l_dist_index).period17_amount;
4911: l_period_amount(18) := PSB_WS_POS1.g_pd_costs(l_dist_index).period18_amount;
4912: l_period_amount(19) := PSB_WS_POS1.g_pd_costs(l_dist_index).period19_amount;
4905: l_period_amount(12) := PSB_WS_POS1.g_pd_costs(l_dist_index).period12_amount;
4906: l_period_amount(13) := PSB_WS_POS1.g_pd_costs(l_dist_index).period13_amount;
4907: l_period_amount(14) := PSB_WS_POS1.g_pd_costs(l_dist_index).period14_amount;
4908: l_period_amount(15) := PSB_WS_POS1.g_pd_costs(l_dist_index).period15_amount;
4909: l_period_amount(16) := PSB_WS_POS1.g_pd_costs(l_dist_index).period16_amount;
4910: l_period_amount(17) := PSB_WS_POS1.g_pd_costs(l_dist_index).period17_amount;
4911: l_period_amount(18) := PSB_WS_POS1.g_pd_costs(l_dist_index).period18_amount;
4912: l_period_amount(19) := PSB_WS_POS1.g_pd_costs(l_dist_index).period19_amount;
4913: l_period_amount(20) := PSB_WS_POS1.g_pd_costs(l_dist_index).period20_amount;
4906: l_period_amount(13) := PSB_WS_POS1.g_pd_costs(l_dist_index).period13_amount;
4907: l_period_amount(14) := PSB_WS_POS1.g_pd_costs(l_dist_index).period14_amount;
4908: l_period_amount(15) := PSB_WS_POS1.g_pd_costs(l_dist_index).period15_amount;
4909: l_period_amount(16) := PSB_WS_POS1.g_pd_costs(l_dist_index).period16_amount;
4910: l_period_amount(17) := PSB_WS_POS1.g_pd_costs(l_dist_index).period17_amount;
4911: l_period_amount(18) := PSB_WS_POS1.g_pd_costs(l_dist_index).period18_amount;
4912: l_period_amount(19) := PSB_WS_POS1.g_pd_costs(l_dist_index).period19_amount;
4913: l_period_amount(20) := PSB_WS_POS1.g_pd_costs(l_dist_index).period20_amount;
4914: l_period_amount(21) := PSB_WS_POS1.g_pd_costs(l_dist_index).period21_amount;
4907: l_period_amount(14) := PSB_WS_POS1.g_pd_costs(l_dist_index).period14_amount;
4908: l_period_amount(15) := PSB_WS_POS1.g_pd_costs(l_dist_index).period15_amount;
4909: l_period_amount(16) := PSB_WS_POS1.g_pd_costs(l_dist_index).period16_amount;
4910: l_period_amount(17) := PSB_WS_POS1.g_pd_costs(l_dist_index).period17_amount;
4911: l_period_amount(18) := PSB_WS_POS1.g_pd_costs(l_dist_index).period18_amount;
4912: l_period_amount(19) := PSB_WS_POS1.g_pd_costs(l_dist_index).period19_amount;
4913: l_period_amount(20) := PSB_WS_POS1.g_pd_costs(l_dist_index).period20_amount;
4914: l_period_amount(21) := PSB_WS_POS1.g_pd_costs(l_dist_index).period21_amount;
4915: l_period_amount(22) := PSB_WS_POS1.g_pd_costs(l_dist_index).period22_amount;
4908: l_period_amount(15) := PSB_WS_POS1.g_pd_costs(l_dist_index).period15_amount;
4909: l_period_amount(16) := PSB_WS_POS1.g_pd_costs(l_dist_index).period16_amount;
4910: l_period_amount(17) := PSB_WS_POS1.g_pd_costs(l_dist_index).period17_amount;
4911: l_period_amount(18) := PSB_WS_POS1.g_pd_costs(l_dist_index).period18_amount;
4912: l_period_amount(19) := PSB_WS_POS1.g_pd_costs(l_dist_index).period19_amount;
4913: l_period_amount(20) := PSB_WS_POS1.g_pd_costs(l_dist_index).period20_amount;
4914: l_period_amount(21) := PSB_WS_POS1.g_pd_costs(l_dist_index).period21_amount;
4915: l_period_amount(22) := PSB_WS_POS1.g_pd_costs(l_dist_index).period22_amount;
4916: l_period_amount(23) := PSB_WS_POS1.g_pd_costs(l_dist_index).period23_amount;
4909: l_period_amount(16) := PSB_WS_POS1.g_pd_costs(l_dist_index).period16_amount;
4910: l_period_amount(17) := PSB_WS_POS1.g_pd_costs(l_dist_index).period17_amount;
4911: l_period_amount(18) := PSB_WS_POS1.g_pd_costs(l_dist_index).period18_amount;
4912: l_period_amount(19) := PSB_WS_POS1.g_pd_costs(l_dist_index).period19_amount;
4913: l_period_amount(20) := PSB_WS_POS1.g_pd_costs(l_dist_index).period20_amount;
4914: l_period_amount(21) := PSB_WS_POS1.g_pd_costs(l_dist_index).period21_amount;
4915: l_period_amount(22) := PSB_WS_POS1.g_pd_costs(l_dist_index).period22_amount;
4916: l_period_amount(23) := PSB_WS_POS1.g_pd_costs(l_dist_index).period23_amount;
4917: l_period_amount(24) := PSB_WS_POS1.g_pd_costs(l_dist_index).period24_amount;
4910: l_period_amount(17) := PSB_WS_POS1.g_pd_costs(l_dist_index).period17_amount;
4911: l_period_amount(18) := PSB_WS_POS1.g_pd_costs(l_dist_index).period18_amount;
4912: l_period_amount(19) := PSB_WS_POS1.g_pd_costs(l_dist_index).period19_amount;
4913: l_period_amount(20) := PSB_WS_POS1.g_pd_costs(l_dist_index).period20_amount;
4914: l_period_amount(21) := PSB_WS_POS1.g_pd_costs(l_dist_index).period21_amount;
4915: l_period_amount(22) := PSB_WS_POS1.g_pd_costs(l_dist_index).period22_amount;
4916: l_period_amount(23) := PSB_WS_POS1.g_pd_costs(l_dist_index).period23_amount;
4917: l_period_amount(24) := PSB_WS_POS1.g_pd_costs(l_dist_index).period24_amount;
4918: l_period_amount(25) := PSB_WS_POS1.g_pd_costs(l_dist_index).period25_amount;
4911: l_period_amount(18) := PSB_WS_POS1.g_pd_costs(l_dist_index).period18_amount;
4912: l_period_amount(19) := PSB_WS_POS1.g_pd_costs(l_dist_index).period19_amount;
4913: l_period_amount(20) := PSB_WS_POS1.g_pd_costs(l_dist_index).period20_amount;
4914: l_period_amount(21) := PSB_WS_POS1.g_pd_costs(l_dist_index).period21_amount;
4915: l_period_amount(22) := PSB_WS_POS1.g_pd_costs(l_dist_index).period22_amount;
4916: l_period_amount(23) := PSB_WS_POS1.g_pd_costs(l_dist_index).period23_amount;
4917: l_period_amount(24) := PSB_WS_POS1.g_pd_costs(l_dist_index).period24_amount;
4918: l_period_amount(25) := PSB_WS_POS1.g_pd_costs(l_dist_index).period25_amount;
4919: l_period_amount(26) := PSB_WS_POS1.g_pd_costs(l_dist_index).period26_amount;
4912: l_period_amount(19) := PSB_WS_POS1.g_pd_costs(l_dist_index).period19_amount;
4913: l_period_amount(20) := PSB_WS_POS1.g_pd_costs(l_dist_index).period20_amount;
4914: l_period_amount(21) := PSB_WS_POS1.g_pd_costs(l_dist_index).period21_amount;
4915: l_period_amount(22) := PSB_WS_POS1.g_pd_costs(l_dist_index).period22_amount;
4916: l_period_amount(23) := PSB_WS_POS1.g_pd_costs(l_dist_index).period23_amount;
4917: l_period_amount(24) := PSB_WS_POS1.g_pd_costs(l_dist_index).period24_amount;
4918: l_period_amount(25) := PSB_WS_POS1.g_pd_costs(l_dist_index).period25_amount;
4919: l_period_amount(26) := PSB_WS_POS1.g_pd_costs(l_dist_index).period26_amount;
4920: l_period_amount(27) := PSB_WS_POS1.g_pd_costs(l_dist_index).period27_amount;
4913: l_period_amount(20) := PSB_WS_POS1.g_pd_costs(l_dist_index).period20_amount;
4914: l_period_amount(21) := PSB_WS_POS1.g_pd_costs(l_dist_index).period21_amount;
4915: l_period_amount(22) := PSB_WS_POS1.g_pd_costs(l_dist_index).period22_amount;
4916: l_period_amount(23) := PSB_WS_POS1.g_pd_costs(l_dist_index).period23_amount;
4917: l_period_amount(24) := PSB_WS_POS1.g_pd_costs(l_dist_index).period24_amount;
4918: l_period_amount(25) := PSB_WS_POS1.g_pd_costs(l_dist_index).period25_amount;
4919: l_period_amount(26) := PSB_WS_POS1.g_pd_costs(l_dist_index).period26_amount;
4920: l_period_amount(27) := PSB_WS_POS1.g_pd_costs(l_dist_index).period27_amount;
4921: l_period_amount(28) := PSB_WS_POS1.g_pd_costs(l_dist_index).period28_amount;
4914: l_period_amount(21) := PSB_WS_POS1.g_pd_costs(l_dist_index).period21_amount;
4915: l_period_amount(22) := PSB_WS_POS1.g_pd_costs(l_dist_index).period22_amount;
4916: l_period_amount(23) := PSB_WS_POS1.g_pd_costs(l_dist_index).period23_amount;
4917: l_period_amount(24) := PSB_WS_POS1.g_pd_costs(l_dist_index).period24_amount;
4918: l_period_amount(25) := PSB_WS_POS1.g_pd_costs(l_dist_index).period25_amount;
4919: l_period_amount(26) := PSB_WS_POS1.g_pd_costs(l_dist_index).period26_amount;
4920: l_period_amount(27) := PSB_WS_POS1.g_pd_costs(l_dist_index).period27_amount;
4921: l_period_amount(28) := PSB_WS_POS1.g_pd_costs(l_dist_index).period28_amount;
4922: l_period_amount(29) := PSB_WS_POS1.g_pd_costs(l_dist_index).period29_amount;
4915: l_period_amount(22) := PSB_WS_POS1.g_pd_costs(l_dist_index).period22_amount;
4916: l_period_amount(23) := PSB_WS_POS1.g_pd_costs(l_dist_index).period23_amount;
4917: l_period_amount(24) := PSB_WS_POS1.g_pd_costs(l_dist_index).period24_amount;
4918: l_period_amount(25) := PSB_WS_POS1.g_pd_costs(l_dist_index).period25_amount;
4919: l_period_amount(26) := PSB_WS_POS1.g_pd_costs(l_dist_index).period26_amount;
4920: l_period_amount(27) := PSB_WS_POS1.g_pd_costs(l_dist_index).period27_amount;
4921: l_period_amount(28) := PSB_WS_POS1.g_pd_costs(l_dist_index).period28_amount;
4922: l_period_amount(29) := PSB_WS_POS1.g_pd_costs(l_dist_index).period29_amount;
4923: l_period_amount(30) := PSB_WS_POS1.g_pd_costs(l_dist_index).period30_amount;
4916: l_period_amount(23) := PSB_WS_POS1.g_pd_costs(l_dist_index).period23_amount;
4917: l_period_amount(24) := PSB_WS_POS1.g_pd_costs(l_dist_index).period24_amount;
4918: l_period_amount(25) := PSB_WS_POS1.g_pd_costs(l_dist_index).period25_amount;
4919: l_period_amount(26) := PSB_WS_POS1.g_pd_costs(l_dist_index).period26_amount;
4920: l_period_amount(27) := PSB_WS_POS1.g_pd_costs(l_dist_index).period27_amount;
4921: l_period_amount(28) := PSB_WS_POS1.g_pd_costs(l_dist_index).period28_amount;
4922: l_period_amount(29) := PSB_WS_POS1.g_pd_costs(l_dist_index).period29_amount;
4923: l_period_amount(30) := PSB_WS_POS1.g_pd_costs(l_dist_index).period30_amount;
4924: l_period_amount(31) := PSB_WS_POS1.g_pd_costs(l_dist_index).period31_amount;
4917: l_period_amount(24) := PSB_WS_POS1.g_pd_costs(l_dist_index).period24_amount;
4918: l_period_amount(25) := PSB_WS_POS1.g_pd_costs(l_dist_index).period25_amount;
4919: l_period_amount(26) := PSB_WS_POS1.g_pd_costs(l_dist_index).period26_amount;
4920: l_period_amount(27) := PSB_WS_POS1.g_pd_costs(l_dist_index).period27_amount;
4921: l_period_amount(28) := PSB_WS_POS1.g_pd_costs(l_dist_index).period28_amount;
4922: l_period_amount(29) := PSB_WS_POS1.g_pd_costs(l_dist_index).period29_amount;
4923: l_period_amount(30) := PSB_WS_POS1.g_pd_costs(l_dist_index).period30_amount;
4924: l_period_amount(31) := PSB_WS_POS1.g_pd_costs(l_dist_index).period31_amount;
4925: l_period_amount(32) := PSB_WS_POS1.g_pd_costs(l_dist_index).period32_amount;
4918: l_period_amount(25) := PSB_WS_POS1.g_pd_costs(l_dist_index).period25_amount;
4919: l_period_amount(26) := PSB_WS_POS1.g_pd_costs(l_dist_index).period26_amount;
4920: l_period_amount(27) := PSB_WS_POS1.g_pd_costs(l_dist_index).period27_amount;
4921: l_period_amount(28) := PSB_WS_POS1.g_pd_costs(l_dist_index).period28_amount;
4922: l_period_amount(29) := PSB_WS_POS1.g_pd_costs(l_dist_index).period29_amount;
4923: l_period_amount(30) := PSB_WS_POS1.g_pd_costs(l_dist_index).period30_amount;
4924: l_period_amount(31) := PSB_WS_POS1.g_pd_costs(l_dist_index).period31_amount;
4925: l_period_amount(32) := PSB_WS_POS1.g_pd_costs(l_dist_index).period32_amount;
4926: l_period_amount(33) := PSB_WS_POS1.g_pd_costs(l_dist_index).period33_amount;
4919: l_period_amount(26) := PSB_WS_POS1.g_pd_costs(l_dist_index).period26_amount;
4920: l_period_amount(27) := PSB_WS_POS1.g_pd_costs(l_dist_index).period27_amount;
4921: l_period_amount(28) := PSB_WS_POS1.g_pd_costs(l_dist_index).period28_amount;
4922: l_period_amount(29) := PSB_WS_POS1.g_pd_costs(l_dist_index).period29_amount;
4923: l_period_amount(30) := PSB_WS_POS1.g_pd_costs(l_dist_index).period30_amount;
4924: l_period_amount(31) := PSB_WS_POS1.g_pd_costs(l_dist_index).period31_amount;
4925: l_period_amount(32) := PSB_WS_POS1.g_pd_costs(l_dist_index).period32_amount;
4926: l_period_amount(33) := PSB_WS_POS1.g_pd_costs(l_dist_index).period33_amount;
4927: l_period_amount(34) := PSB_WS_POS1.g_pd_costs(l_dist_index).period34_amount;
4920: l_period_amount(27) := PSB_WS_POS1.g_pd_costs(l_dist_index).period27_amount;
4921: l_period_amount(28) := PSB_WS_POS1.g_pd_costs(l_dist_index).period28_amount;
4922: l_period_amount(29) := PSB_WS_POS1.g_pd_costs(l_dist_index).period29_amount;
4923: l_period_amount(30) := PSB_WS_POS1.g_pd_costs(l_dist_index).period30_amount;
4924: l_period_amount(31) := PSB_WS_POS1.g_pd_costs(l_dist_index).period31_amount;
4925: l_period_amount(32) := PSB_WS_POS1.g_pd_costs(l_dist_index).period32_amount;
4926: l_period_amount(33) := PSB_WS_POS1.g_pd_costs(l_dist_index).period33_amount;
4927: l_period_amount(34) := PSB_WS_POS1.g_pd_costs(l_dist_index).period34_amount;
4928: l_period_amount(35) := PSB_WS_POS1.g_pd_costs(l_dist_index).period35_amount;
4921: l_period_amount(28) := PSB_WS_POS1.g_pd_costs(l_dist_index).period28_amount;
4922: l_period_amount(29) := PSB_WS_POS1.g_pd_costs(l_dist_index).period29_amount;
4923: l_period_amount(30) := PSB_WS_POS1.g_pd_costs(l_dist_index).period30_amount;
4924: l_period_amount(31) := PSB_WS_POS1.g_pd_costs(l_dist_index).period31_amount;
4925: l_period_amount(32) := PSB_WS_POS1.g_pd_costs(l_dist_index).period32_amount;
4926: l_period_amount(33) := PSB_WS_POS1.g_pd_costs(l_dist_index).period33_amount;
4927: l_period_amount(34) := PSB_WS_POS1.g_pd_costs(l_dist_index).period34_amount;
4928: l_period_amount(35) := PSB_WS_POS1.g_pd_costs(l_dist_index).period35_amount;
4929: l_period_amount(36) := PSB_WS_POS1.g_pd_costs(l_dist_index).period36_amount;
4922: l_period_amount(29) := PSB_WS_POS1.g_pd_costs(l_dist_index).period29_amount;
4923: l_period_amount(30) := PSB_WS_POS1.g_pd_costs(l_dist_index).period30_amount;
4924: l_period_amount(31) := PSB_WS_POS1.g_pd_costs(l_dist_index).period31_amount;
4925: l_period_amount(32) := PSB_WS_POS1.g_pd_costs(l_dist_index).period32_amount;
4926: l_period_amount(33) := PSB_WS_POS1.g_pd_costs(l_dist_index).period33_amount;
4927: l_period_amount(34) := PSB_WS_POS1.g_pd_costs(l_dist_index).period34_amount;
4928: l_period_amount(35) := PSB_WS_POS1.g_pd_costs(l_dist_index).period35_amount;
4929: l_period_amount(36) := PSB_WS_POS1.g_pd_costs(l_dist_index).period36_amount;
4930: l_period_amount(37) := PSB_WS_POS1.g_pd_costs(l_dist_index).period37_amount;
4923: l_period_amount(30) := PSB_WS_POS1.g_pd_costs(l_dist_index).period30_amount;
4924: l_period_amount(31) := PSB_WS_POS1.g_pd_costs(l_dist_index).period31_amount;
4925: l_period_amount(32) := PSB_WS_POS1.g_pd_costs(l_dist_index).period32_amount;
4926: l_period_amount(33) := PSB_WS_POS1.g_pd_costs(l_dist_index).period33_amount;
4927: l_period_amount(34) := PSB_WS_POS1.g_pd_costs(l_dist_index).period34_amount;
4928: l_period_amount(35) := PSB_WS_POS1.g_pd_costs(l_dist_index).period35_amount;
4929: l_period_amount(36) := PSB_WS_POS1.g_pd_costs(l_dist_index).period36_amount;
4930: l_period_amount(37) := PSB_WS_POS1.g_pd_costs(l_dist_index).period37_amount;
4931: l_period_amount(38) := PSB_WS_POS1.g_pd_costs(l_dist_index).period38_amount;
4924: l_period_amount(31) := PSB_WS_POS1.g_pd_costs(l_dist_index).period31_amount;
4925: l_period_amount(32) := PSB_WS_POS1.g_pd_costs(l_dist_index).period32_amount;
4926: l_period_amount(33) := PSB_WS_POS1.g_pd_costs(l_dist_index).period33_amount;
4927: l_period_amount(34) := PSB_WS_POS1.g_pd_costs(l_dist_index).period34_amount;
4928: l_period_amount(35) := PSB_WS_POS1.g_pd_costs(l_dist_index).period35_amount;
4929: l_period_amount(36) := PSB_WS_POS1.g_pd_costs(l_dist_index).period36_amount;
4930: l_period_amount(37) := PSB_WS_POS1.g_pd_costs(l_dist_index).period37_amount;
4931: l_period_amount(38) := PSB_WS_POS1.g_pd_costs(l_dist_index).period38_amount;
4932: l_period_amount(39) := PSB_WS_POS1.g_pd_costs(l_dist_index).period39_amount;
4925: l_period_amount(32) := PSB_WS_POS1.g_pd_costs(l_dist_index).period32_amount;
4926: l_period_amount(33) := PSB_WS_POS1.g_pd_costs(l_dist_index).period33_amount;
4927: l_period_amount(34) := PSB_WS_POS1.g_pd_costs(l_dist_index).period34_amount;
4928: l_period_amount(35) := PSB_WS_POS1.g_pd_costs(l_dist_index).period35_amount;
4929: l_period_amount(36) := PSB_WS_POS1.g_pd_costs(l_dist_index).period36_amount;
4930: l_period_amount(37) := PSB_WS_POS1.g_pd_costs(l_dist_index).period37_amount;
4931: l_period_amount(38) := PSB_WS_POS1.g_pd_costs(l_dist_index).period38_amount;
4932: l_period_amount(39) := PSB_WS_POS1.g_pd_costs(l_dist_index).period39_amount;
4933: l_period_amount(40) := PSB_WS_POS1.g_pd_costs(l_dist_index).period40_amount;
4926: l_period_amount(33) := PSB_WS_POS1.g_pd_costs(l_dist_index).period33_amount;
4927: l_period_amount(34) := PSB_WS_POS1.g_pd_costs(l_dist_index).period34_amount;
4928: l_period_amount(35) := PSB_WS_POS1.g_pd_costs(l_dist_index).period35_amount;
4929: l_period_amount(36) := PSB_WS_POS1.g_pd_costs(l_dist_index).period36_amount;
4930: l_period_amount(37) := PSB_WS_POS1.g_pd_costs(l_dist_index).period37_amount;
4931: l_period_amount(38) := PSB_WS_POS1.g_pd_costs(l_dist_index).period38_amount;
4932: l_period_amount(39) := PSB_WS_POS1.g_pd_costs(l_dist_index).period39_amount;
4933: l_period_amount(40) := PSB_WS_POS1.g_pd_costs(l_dist_index).period40_amount;
4934: l_period_amount(41) := PSB_WS_POS1.g_pd_costs(l_dist_index).period41_amount;
4927: l_period_amount(34) := PSB_WS_POS1.g_pd_costs(l_dist_index).period34_amount;
4928: l_period_amount(35) := PSB_WS_POS1.g_pd_costs(l_dist_index).period35_amount;
4929: l_period_amount(36) := PSB_WS_POS1.g_pd_costs(l_dist_index).period36_amount;
4930: l_period_amount(37) := PSB_WS_POS1.g_pd_costs(l_dist_index).period37_amount;
4931: l_period_amount(38) := PSB_WS_POS1.g_pd_costs(l_dist_index).period38_amount;
4932: l_period_amount(39) := PSB_WS_POS1.g_pd_costs(l_dist_index).period39_amount;
4933: l_period_amount(40) := PSB_WS_POS1.g_pd_costs(l_dist_index).period40_amount;
4934: l_period_amount(41) := PSB_WS_POS1.g_pd_costs(l_dist_index).period41_amount;
4935: l_period_amount(42) := PSB_WS_POS1.g_pd_costs(l_dist_index).period42_amount;
4928: l_period_amount(35) := PSB_WS_POS1.g_pd_costs(l_dist_index).period35_amount;
4929: l_period_amount(36) := PSB_WS_POS1.g_pd_costs(l_dist_index).period36_amount;
4930: l_period_amount(37) := PSB_WS_POS1.g_pd_costs(l_dist_index).period37_amount;
4931: l_period_amount(38) := PSB_WS_POS1.g_pd_costs(l_dist_index).period38_amount;
4932: l_period_amount(39) := PSB_WS_POS1.g_pd_costs(l_dist_index).period39_amount;
4933: l_period_amount(40) := PSB_WS_POS1.g_pd_costs(l_dist_index).period40_amount;
4934: l_period_amount(41) := PSB_WS_POS1.g_pd_costs(l_dist_index).period41_amount;
4935: l_period_amount(42) := PSB_WS_POS1.g_pd_costs(l_dist_index).period42_amount;
4936: l_period_amount(43) := PSB_WS_POS1.g_pd_costs(l_dist_index).period43_amount;
4929: l_period_amount(36) := PSB_WS_POS1.g_pd_costs(l_dist_index).period36_amount;
4930: l_period_amount(37) := PSB_WS_POS1.g_pd_costs(l_dist_index).period37_amount;
4931: l_period_amount(38) := PSB_WS_POS1.g_pd_costs(l_dist_index).period38_amount;
4932: l_period_amount(39) := PSB_WS_POS1.g_pd_costs(l_dist_index).period39_amount;
4933: l_period_amount(40) := PSB_WS_POS1.g_pd_costs(l_dist_index).period40_amount;
4934: l_period_amount(41) := PSB_WS_POS1.g_pd_costs(l_dist_index).period41_amount;
4935: l_period_amount(42) := PSB_WS_POS1.g_pd_costs(l_dist_index).period42_amount;
4936: l_period_amount(43) := PSB_WS_POS1.g_pd_costs(l_dist_index).period43_amount;
4937: l_period_amount(44) := PSB_WS_POS1.g_pd_costs(l_dist_index).period44_amount;
4930: l_period_amount(37) := PSB_WS_POS1.g_pd_costs(l_dist_index).period37_amount;
4931: l_period_amount(38) := PSB_WS_POS1.g_pd_costs(l_dist_index).period38_amount;
4932: l_period_amount(39) := PSB_WS_POS1.g_pd_costs(l_dist_index).period39_amount;
4933: l_period_amount(40) := PSB_WS_POS1.g_pd_costs(l_dist_index).period40_amount;
4934: l_period_amount(41) := PSB_WS_POS1.g_pd_costs(l_dist_index).period41_amount;
4935: l_period_amount(42) := PSB_WS_POS1.g_pd_costs(l_dist_index).period42_amount;
4936: l_period_amount(43) := PSB_WS_POS1.g_pd_costs(l_dist_index).period43_amount;
4937: l_period_amount(44) := PSB_WS_POS1.g_pd_costs(l_dist_index).period44_amount;
4938: l_period_amount(45) := PSB_WS_POS1.g_pd_costs(l_dist_index).period45_amount;
4931: l_period_amount(38) := PSB_WS_POS1.g_pd_costs(l_dist_index).period38_amount;
4932: l_period_amount(39) := PSB_WS_POS1.g_pd_costs(l_dist_index).period39_amount;
4933: l_period_amount(40) := PSB_WS_POS1.g_pd_costs(l_dist_index).period40_amount;
4934: l_period_amount(41) := PSB_WS_POS1.g_pd_costs(l_dist_index).period41_amount;
4935: l_period_amount(42) := PSB_WS_POS1.g_pd_costs(l_dist_index).period42_amount;
4936: l_period_amount(43) := PSB_WS_POS1.g_pd_costs(l_dist_index).period43_amount;
4937: l_period_amount(44) := PSB_WS_POS1.g_pd_costs(l_dist_index).period44_amount;
4938: l_period_amount(45) := PSB_WS_POS1.g_pd_costs(l_dist_index).period45_amount;
4939: l_period_amount(46) := PSB_WS_POS1.g_pd_costs(l_dist_index).period46_amount;
4932: l_period_amount(39) := PSB_WS_POS1.g_pd_costs(l_dist_index).period39_amount;
4933: l_period_amount(40) := PSB_WS_POS1.g_pd_costs(l_dist_index).period40_amount;
4934: l_period_amount(41) := PSB_WS_POS1.g_pd_costs(l_dist_index).period41_amount;
4935: l_period_amount(42) := PSB_WS_POS1.g_pd_costs(l_dist_index).period42_amount;
4936: l_period_amount(43) := PSB_WS_POS1.g_pd_costs(l_dist_index).period43_amount;
4937: l_period_amount(44) := PSB_WS_POS1.g_pd_costs(l_dist_index).period44_amount;
4938: l_period_amount(45) := PSB_WS_POS1.g_pd_costs(l_dist_index).period45_amount;
4939: l_period_amount(46) := PSB_WS_POS1.g_pd_costs(l_dist_index).period46_amount;
4940: l_period_amount(47) := PSB_WS_POS1.g_pd_costs(l_dist_index).period47_amount;
4933: l_period_amount(40) := PSB_WS_POS1.g_pd_costs(l_dist_index).period40_amount;
4934: l_period_amount(41) := PSB_WS_POS1.g_pd_costs(l_dist_index).period41_amount;
4935: l_period_amount(42) := PSB_WS_POS1.g_pd_costs(l_dist_index).period42_amount;
4936: l_period_amount(43) := PSB_WS_POS1.g_pd_costs(l_dist_index).period43_amount;
4937: l_period_amount(44) := PSB_WS_POS1.g_pd_costs(l_dist_index).period44_amount;
4938: l_period_amount(45) := PSB_WS_POS1.g_pd_costs(l_dist_index).period45_amount;
4939: l_period_amount(46) := PSB_WS_POS1.g_pd_costs(l_dist_index).period46_amount;
4940: l_period_amount(47) := PSB_WS_POS1.g_pd_costs(l_dist_index).period47_amount;
4941: l_period_amount(48) := PSB_WS_POS1.g_pd_costs(l_dist_index).period48_amount;
4934: l_period_amount(41) := PSB_WS_POS1.g_pd_costs(l_dist_index).period41_amount;
4935: l_period_amount(42) := PSB_WS_POS1.g_pd_costs(l_dist_index).period42_amount;
4936: l_period_amount(43) := PSB_WS_POS1.g_pd_costs(l_dist_index).period43_amount;
4937: l_period_amount(44) := PSB_WS_POS1.g_pd_costs(l_dist_index).period44_amount;
4938: l_period_amount(45) := PSB_WS_POS1.g_pd_costs(l_dist_index).period45_amount;
4939: l_period_amount(46) := PSB_WS_POS1.g_pd_costs(l_dist_index).period46_amount;
4940: l_period_amount(47) := PSB_WS_POS1.g_pd_costs(l_dist_index).period47_amount;
4941: l_period_amount(48) := PSB_WS_POS1.g_pd_costs(l_dist_index).period48_amount;
4942: l_period_amount(49) := PSB_WS_POS1.g_pd_costs(l_dist_index).period49_amount;
4935: l_period_amount(42) := PSB_WS_POS1.g_pd_costs(l_dist_index).period42_amount;
4936: l_period_amount(43) := PSB_WS_POS1.g_pd_costs(l_dist_index).period43_amount;
4937: l_period_amount(44) := PSB_WS_POS1.g_pd_costs(l_dist_index).period44_amount;
4938: l_period_amount(45) := PSB_WS_POS1.g_pd_costs(l_dist_index).period45_amount;
4939: l_period_amount(46) := PSB_WS_POS1.g_pd_costs(l_dist_index).period46_amount;
4940: l_period_amount(47) := PSB_WS_POS1.g_pd_costs(l_dist_index).period47_amount;
4941: l_period_amount(48) := PSB_WS_POS1.g_pd_costs(l_dist_index).period48_amount;
4942: l_period_amount(49) := PSB_WS_POS1.g_pd_costs(l_dist_index).period49_amount;
4943: l_period_amount(50) := PSB_WS_POS1.g_pd_costs(l_dist_index).period50_amount;
4936: l_period_amount(43) := PSB_WS_POS1.g_pd_costs(l_dist_index).period43_amount;
4937: l_period_amount(44) := PSB_WS_POS1.g_pd_costs(l_dist_index).period44_amount;
4938: l_period_amount(45) := PSB_WS_POS1.g_pd_costs(l_dist_index).period45_amount;
4939: l_period_amount(46) := PSB_WS_POS1.g_pd_costs(l_dist_index).period46_amount;
4940: l_period_amount(47) := PSB_WS_POS1.g_pd_costs(l_dist_index).period47_amount;
4941: l_period_amount(48) := PSB_WS_POS1.g_pd_costs(l_dist_index).period48_amount;
4942: l_period_amount(49) := PSB_WS_POS1.g_pd_costs(l_dist_index).period49_amount;
4943: l_period_amount(50) := PSB_WS_POS1.g_pd_costs(l_dist_index).period50_amount;
4944: l_period_amount(51) := PSB_WS_POS1.g_pd_costs(l_dist_index).period51_amount;
4937: l_period_amount(44) := PSB_WS_POS1.g_pd_costs(l_dist_index).period44_amount;
4938: l_period_amount(45) := PSB_WS_POS1.g_pd_costs(l_dist_index).period45_amount;
4939: l_period_amount(46) := PSB_WS_POS1.g_pd_costs(l_dist_index).period46_amount;
4940: l_period_amount(47) := PSB_WS_POS1.g_pd_costs(l_dist_index).period47_amount;
4941: l_period_amount(48) := PSB_WS_POS1.g_pd_costs(l_dist_index).period48_amount;
4942: l_period_amount(49) := PSB_WS_POS1.g_pd_costs(l_dist_index).period49_amount;
4943: l_period_amount(50) := PSB_WS_POS1.g_pd_costs(l_dist_index).period50_amount;
4944: l_period_amount(51) := PSB_WS_POS1.g_pd_costs(l_dist_index).period51_amount;
4945: l_period_amount(52) := PSB_WS_POS1.g_pd_costs(l_dist_index).period52_amount;
4938: l_period_amount(45) := PSB_WS_POS1.g_pd_costs(l_dist_index).period45_amount;
4939: l_period_amount(46) := PSB_WS_POS1.g_pd_costs(l_dist_index).period46_amount;
4940: l_period_amount(47) := PSB_WS_POS1.g_pd_costs(l_dist_index).period47_amount;
4941: l_period_amount(48) := PSB_WS_POS1.g_pd_costs(l_dist_index).period48_amount;
4942: l_period_amount(49) := PSB_WS_POS1.g_pd_costs(l_dist_index).period49_amount;
4943: l_period_amount(50) := PSB_WS_POS1.g_pd_costs(l_dist_index).period50_amount;
4944: l_period_amount(51) := PSB_WS_POS1.g_pd_costs(l_dist_index).period51_amount;
4945: l_period_amount(52) := PSB_WS_POS1.g_pd_costs(l_dist_index).period52_amount;
4946: l_period_amount(53) := PSB_WS_POS1.g_pd_costs(l_dist_index).period53_amount;
4939: l_period_amount(46) := PSB_WS_POS1.g_pd_costs(l_dist_index).period46_amount;
4940: l_period_amount(47) := PSB_WS_POS1.g_pd_costs(l_dist_index).period47_amount;
4941: l_period_amount(48) := PSB_WS_POS1.g_pd_costs(l_dist_index).period48_amount;
4942: l_period_amount(49) := PSB_WS_POS1.g_pd_costs(l_dist_index).period49_amount;
4943: l_period_amount(50) := PSB_WS_POS1.g_pd_costs(l_dist_index).period50_amount;
4944: l_period_amount(51) := PSB_WS_POS1.g_pd_costs(l_dist_index).period51_amount;
4945: l_period_amount(52) := PSB_WS_POS1.g_pd_costs(l_dist_index).period52_amount;
4946: l_period_amount(53) := PSB_WS_POS1.g_pd_costs(l_dist_index).period53_amount;
4947: l_period_amount(54) := PSB_WS_POS1.g_pd_costs(l_dist_index).period54_amount;
4940: l_period_amount(47) := PSB_WS_POS1.g_pd_costs(l_dist_index).period47_amount;
4941: l_period_amount(48) := PSB_WS_POS1.g_pd_costs(l_dist_index).period48_amount;
4942: l_period_amount(49) := PSB_WS_POS1.g_pd_costs(l_dist_index).period49_amount;
4943: l_period_amount(50) := PSB_WS_POS1.g_pd_costs(l_dist_index).period50_amount;
4944: l_period_amount(51) := PSB_WS_POS1.g_pd_costs(l_dist_index).period51_amount;
4945: l_period_amount(52) := PSB_WS_POS1.g_pd_costs(l_dist_index).period52_amount;
4946: l_period_amount(53) := PSB_WS_POS1.g_pd_costs(l_dist_index).period53_amount;
4947: l_period_amount(54) := PSB_WS_POS1.g_pd_costs(l_dist_index).period54_amount;
4948: l_period_amount(55) := PSB_WS_POS1.g_pd_costs(l_dist_index).period55_amount;
4941: l_period_amount(48) := PSB_WS_POS1.g_pd_costs(l_dist_index).period48_amount;
4942: l_period_amount(49) := PSB_WS_POS1.g_pd_costs(l_dist_index).period49_amount;
4943: l_period_amount(50) := PSB_WS_POS1.g_pd_costs(l_dist_index).period50_amount;
4944: l_period_amount(51) := PSB_WS_POS1.g_pd_costs(l_dist_index).period51_amount;
4945: l_period_amount(52) := PSB_WS_POS1.g_pd_costs(l_dist_index).period52_amount;
4946: l_period_amount(53) := PSB_WS_POS1.g_pd_costs(l_dist_index).period53_amount;
4947: l_period_amount(54) := PSB_WS_POS1.g_pd_costs(l_dist_index).period54_amount;
4948: l_period_amount(55) := PSB_WS_POS1.g_pd_costs(l_dist_index).period55_amount;
4949: l_period_amount(56) := PSB_WS_POS1.g_pd_costs(l_dist_index).period56_amount;
4942: l_period_amount(49) := PSB_WS_POS1.g_pd_costs(l_dist_index).period49_amount;
4943: l_period_amount(50) := PSB_WS_POS1.g_pd_costs(l_dist_index).period50_amount;
4944: l_period_amount(51) := PSB_WS_POS1.g_pd_costs(l_dist_index).period51_amount;
4945: l_period_amount(52) := PSB_WS_POS1.g_pd_costs(l_dist_index).period52_amount;
4946: l_period_amount(53) := PSB_WS_POS1.g_pd_costs(l_dist_index).period53_amount;
4947: l_period_amount(54) := PSB_WS_POS1.g_pd_costs(l_dist_index).period54_amount;
4948: l_period_amount(55) := PSB_WS_POS1.g_pd_costs(l_dist_index).period55_amount;
4949: l_period_amount(56) := PSB_WS_POS1.g_pd_costs(l_dist_index).period56_amount;
4950: l_period_amount(57) := PSB_WS_POS1.g_pd_costs(l_dist_index).period57_amount;
4943: l_period_amount(50) := PSB_WS_POS1.g_pd_costs(l_dist_index).period50_amount;
4944: l_period_amount(51) := PSB_WS_POS1.g_pd_costs(l_dist_index).period51_amount;
4945: l_period_amount(52) := PSB_WS_POS1.g_pd_costs(l_dist_index).period52_amount;
4946: l_period_amount(53) := PSB_WS_POS1.g_pd_costs(l_dist_index).period53_amount;
4947: l_period_amount(54) := PSB_WS_POS1.g_pd_costs(l_dist_index).period54_amount;
4948: l_period_amount(55) := PSB_WS_POS1.g_pd_costs(l_dist_index).period55_amount;
4949: l_period_amount(56) := PSB_WS_POS1.g_pd_costs(l_dist_index).period56_amount;
4950: l_period_amount(57) := PSB_WS_POS1.g_pd_costs(l_dist_index).period57_amount;
4951: l_period_amount(58) := PSB_WS_POS1.g_pd_costs(l_dist_index).period58_amount;
4944: l_period_amount(51) := PSB_WS_POS1.g_pd_costs(l_dist_index).period51_amount;
4945: l_period_amount(52) := PSB_WS_POS1.g_pd_costs(l_dist_index).period52_amount;
4946: l_period_amount(53) := PSB_WS_POS1.g_pd_costs(l_dist_index).period53_amount;
4947: l_period_amount(54) := PSB_WS_POS1.g_pd_costs(l_dist_index).period54_amount;
4948: l_period_amount(55) := PSB_WS_POS1.g_pd_costs(l_dist_index).period55_amount;
4949: l_period_amount(56) := PSB_WS_POS1.g_pd_costs(l_dist_index).period56_amount;
4950: l_period_amount(57) := PSB_WS_POS1.g_pd_costs(l_dist_index).period57_amount;
4951: l_period_amount(58) := PSB_WS_POS1.g_pd_costs(l_dist_index).period58_amount;
4952: l_period_amount(59) := PSB_WS_POS1.g_pd_costs(l_dist_index).period59_amount;
4945: l_period_amount(52) := PSB_WS_POS1.g_pd_costs(l_dist_index).period52_amount;
4946: l_period_amount(53) := PSB_WS_POS1.g_pd_costs(l_dist_index).period53_amount;
4947: l_period_amount(54) := PSB_WS_POS1.g_pd_costs(l_dist_index).period54_amount;
4948: l_period_amount(55) := PSB_WS_POS1.g_pd_costs(l_dist_index).period55_amount;
4949: l_period_amount(56) := PSB_WS_POS1.g_pd_costs(l_dist_index).period56_amount;
4950: l_period_amount(57) := PSB_WS_POS1.g_pd_costs(l_dist_index).period57_amount;
4951: l_period_amount(58) := PSB_WS_POS1.g_pd_costs(l_dist_index).period58_amount;
4952: l_period_amount(59) := PSB_WS_POS1.g_pd_costs(l_dist_index).period59_amount;
4953: l_period_amount(60) := PSB_WS_POS1.g_pd_costs(l_dist_index).period60_amount;
4946: l_period_amount(53) := PSB_WS_POS1.g_pd_costs(l_dist_index).period53_amount;
4947: l_period_amount(54) := PSB_WS_POS1.g_pd_costs(l_dist_index).period54_amount;
4948: l_period_amount(55) := PSB_WS_POS1.g_pd_costs(l_dist_index).period55_amount;
4949: l_period_amount(56) := PSB_WS_POS1.g_pd_costs(l_dist_index).period56_amount;
4950: l_period_amount(57) := PSB_WS_POS1.g_pd_costs(l_dist_index).period57_amount;
4951: l_period_amount(58) := PSB_WS_POS1.g_pd_costs(l_dist_index).period58_amount;
4952: l_period_amount(59) := PSB_WS_POS1.g_pd_costs(l_dist_index).period59_amount;
4953: l_period_amount(60) := PSB_WS_POS1.g_pd_costs(l_dist_index).period60_amount;
4954:
4947: l_period_amount(54) := PSB_WS_POS1.g_pd_costs(l_dist_index).period54_amount;
4948: l_period_amount(55) := PSB_WS_POS1.g_pd_costs(l_dist_index).period55_amount;
4949: l_period_amount(56) := PSB_WS_POS1.g_pd_costs(l_dist_index).period56_amount;
4950: l_period_amount(57) := PSB_WS_POS1.g_pd_costs(l_dist_index).period57_amount;
4951: l_period_amount(58) := PSB_WS_POS1.g_pd_costs(l_dist_index).period58_amount;
4952: l_period_amount(59) := PSB_WS_POS1.g_pd_costs(l_dist_index).period59_amount;
4953: l_period_amount(60) := PSB_WS_POS1.g_pd_costs(l_dist_index).period60_amount;
4954:
4955: if PSB_WS_POS1.g_pd_costs(l_dist_index).element_type = 'S' then
4948: l_period_amount(55) := PSB_WS_POS1.g_pd_costs(l_dist_index).period55_amount;
4949: l_period_amount(56) := PSB_WS_POS1.g_pd_costs(l_dist_index).period56_amount;
4950: l_period_amount(57) := PSB_WS_POS1.g_pd_costs(l_dist_index).period57_amount;
4951: l_period_amount(58) := PSB_WS_POS1.g_pd_costs(l_dist_index).period58_amount;
4952: l_period_amount(59) := PSB_WS_POS1.g_pd_costs(l_dist_index).period59_amount;
4953: l_period_amount(60) := PSB_WS_POS1.g_pd_costs(l_dist_index).period60_amount;
4954:
4955: if PSB_WS_POS1.g_pd_costs(l_dist_index).element_type = 'S' then
4956: l_sal_account_line := FND_API.G_TRUE;
4949: l_period_amount(56) := PSB_WS_POS1.g_pd_costs(l_dist_index).period56_amount;
4950: l_period_amount(57) := PSB_WS_POS1.g_pd_costs(l_dist_index).period57_amount;
4951: l_period_amount(58) := PSB_WS_POS1.g_pd_costs(l_dist_index).period58_amount;
4952: l_period_amount(59) := PSB_WS_POS1.g_pd_costs(l_dist_index).period59_amount;
4953: l_period_amount(60) := PSB_WS_POS1.g_pd_costs(l_dist_index).period60_amount;
4954:
4955: if PSB_WS_POS1.g_pd_costs(l_dist_index).element_type = 'S' then
4956: l_sal_account_line := FND_API.G_TRUE;
4957: else
4951: l_period_amount(58) := PSB_WS_POS1.g_pd_costs(l_dist_index).period58_amount;
4952: l_period_amount(59) := PSB_WS_POS1.g_pd_costs(l_dist_index).period59_amount;
4953: l_period_amount(60) := PSB_WS_POS1.g_pd_costs(l_dist_index).period60_amount;
4954:
4955: if PSB_WS_POS1.g_pd_costs(l_dist_index).element_type = 'S' then
4956: l_sal_account_line := FND_API.G_TRUE;
4957: else
4958: l_sal_account_line := FND_API.G_FALSE;
4959: end if;
4966: for l_init_index in 1..PSB_WS_ACCT1.g_max_num_amounts loop
4967: l_period_amount(l_init_index) := l_period_amount(l_init_index) * l_factor;
4968: end loop;
4969:
4970: l_old_ytd_amount := PSB_WS_POS1.g_pd_costs(l_dist_index).ytd_amount;
4971: l_new_ytd_amount := PSB_WS_POS1.g_pd_costs(l_dist_index).ytd_amount * l_factor;
4972:
4973: if ((p_rounding_factor is not null) and
4974: (g_pf_recalc_fte(l_fte_index).service_package_id <> p_service_package_id)) then
4967: l_period_amount(l_init_index) := l_period_amount(l_init_index) * l_factor;
4968: end loop;
4969:
4970: l_old_ytd_amount := PSB_WS_POS1.g_pd_costs(l_dist_index).ytd_amount;
4971: l_new_ytd_amount := PSB_WS_POS1.g_pd_costs(l_dist_index).ytd_amount * l_factor;
4972:
4973: if ((p_rounding_factor is not null) and
4974: (g_pf_recalc_fte(l_fte_index).service_package_id <> p_service_package_id)) then
4975: l_old_rounding_diff := l_old_rounding_diff +
4983: end if;
4984:
4985: for l_recalc_dist_index in 1..g_num_pd_recalc_costs loop
4986:
4987: if ((PSB_WS_POS1.g_pd_costs(l_dist_index).ccid = g_pd_recalc_costs(l_recalc_dist_index).ccid) and
4988: (PSB_WS_POS1.g_pd_costs(l_dist_index).element_set_id = g_pd_recalc_costs(l_recalc_dist_index).element_set_id) and
4989: (PSB_WS_POS1.g_salary_budget_group_id = g_pd_recalc_costs(l_recalc_dist_index).budget_group_id) and
4990: (g_pf_recalc_fte(l_fte_index).service_package_id = g_pd_recalc_costs(l_recalc_dist_index).service_package_id)) then
4991: begin
4984:
4985: for l_recalc_dist_index in 1..g_num_pd_recalc_costs loop
4986:
4987: if ((PSB_WS_POS1.g_pd_costs(l_dist_index).ccid = g_pd_recalc_costs(l_recalc_dist_index).ccid) and
4988: (PSB_WS_POS1.g_pd_costs(l_dist_index).element_set_id = g_pd_recalc_costs(l_recalc_dist_index).element_set_id) and
4989: (PSB_WS_POS1.g_salary_budget_group_id = g_pd_recalc_costs(l_recalc_dist_index).budget_group_id) and
4990: (g_pf_recalc_fte(l_fte_index).service_package_id = g_pd_recalc_costs(l_recalc_dist_index).service_package_id)) then
4991: begin
4992:
4985: for l_recalc_dist_index in 1..g_num_pd_recalc_costs loop
4986:
4987: if ((PSB_WS_POS1.g_pd_costs(l_dist_index).ccid = g_pd_recalc_costs(l_recalc_dist_index).ccid) and
4988: (PSB_WS_POS1.g_pd_costs(l_dist_index).element_set_id = g_pd_recalc_costs(l_recalc_dist_index).element_set_id) and
4989: (PSB_WS_POS1.g_salary_budget_group_id = g_pd_recalc_costs(l_recalc_dist_index).budget_group_id) and
4990: (g_pf_recalc_fte(l_fte_index).service_package_id = g_pd_recalc_costs(l_recalc_dist_index).service_package_id)) then
4991: begin
4992:
4993: g_pd_recalc_costs(l_recalc_dist_index).redist_flag := 'Y';
5062: p_budget_calendar_id => null,
5063: p_rounding_factor => p_rounding_factor,
5064: p_stage_set_id => p_stage_set_id,
5065: p_budget_year_id => p_budget_year_id,
5066: p_budget_group_id => PSB_WS_POS1.g_salary_budget_group_id,
5067: p_ccid => PSB_WS_POS1.g_pd_costs(l_dist_index).ccid,
5068: p_currency_code => p_func_currency,
5069: p_balance_type => 'E',
5070: p_ytd_amount => l_new_ytd_amount,
5063: p_rounding_factor => p_rounding_factor,
5064: p_stage_set_id => p_stage_set_id,
5065: p_budget_year_id => p_budget_year_id,
5066: p_budget_group_id => PSB_WS_POS1.g_salary_budget_group_id,
5067: p_ccid => PSB_WS_POS1.g_pd_costs(l_dist_index).ccid,
5068: p_currency_code => p_func_currency,
5069: p_balance_type => 'E',
5070: p_ytd_amount => l_new_ytd_amount,
5071: p_annual_fte => l_annual_fte,--Bug 3140801
5070: p_ytd_amount => l_new_ytd_amount,
5071: p_annual_fte => l_annual_fte,--Bug 3140801
5072: p_period_amount => l_period_amount,
5073: p_position_line_id => p_position_line_id,
5074: p_element_set_id => PSB_WS_POS1.g_pd_costs(l_dist_index).element_set_id,
5075: p_salary_account_line => l_sal_account_line,
5076: p_service_package_id => g_pf_recalc_fte(l_fte_index).service_package_id,
5077: p_start_stage_seq => p_start_stage_seq,
5078: p_current_stage_seq => p_current_stage_seq);
5096:
5097: l_wel_index := null;
5098:
5099: if g_pf_recalc_fte(l_fte_index).service_package_id = p_service_package_id then
5100: l_element_cost := PSB_WS_POS1.g_pc_costs(l_elemcost_index).element_cost * l_factor;
5101: else
5102: l_element_cost := (PSB_WS_POS1.g_pc_costs(l_elemcost_index).element_cost - l_old_rounding_diff) * l_factor + l_new_rounding_diff;
5103: end if;
5104:
5098:
5099: if g_pf_recalc_fte(l_fte_index).service_package_id = p_service_package_id then
5100: l_element_cost := PSB_WS_POS1.g_pc_costs(l_elemcost_index).element_cost * l_factor;
5101: else
5102: l_element_cost := (PSB_WS_POS1.g_pc_costs(l_elemcost_index).element_cost - l_old_rounding_diff) * l_factor + l_new_rounding_diff;
5103: end if;
5104:
5105: for l_recalc_cost_index in 1..g_num_pc_recalc_costs loop
5106:
5103: end if;
5104:
5105: for l_recalc_cost_index in 1..g_num_pc_recalc_costs loop
5106:
5107: if ((PSB_WS_POS1.g_pc_costs(l_elemcost_index).pay_element_id = g_pc_recalc_costs(l_recalc_cost_index).pay_element_id) and
5108: (g_pf_recalc_fte(l_fte_index).service_package_id = g_pc_recalc_costs(l_recalc_cost_index).service_package_id)) then
5109: begin
5110:
5111: g_pc_recalc_costs(l_recalc_cost_index).recalc_flag := 'Y';
5110:
5111: g_pc_recalc_costs(l_recalc_cost_index).recalc_flag := 'Y';
5112: l_wel_index := l_recalc_cost_index;
5113:
5114: PSB_WS_POS1.Create_Element_Lines
5115: (p_api_version => 1.0,
5116: p_return_status => l_return_status,
5117: p_element_line_id => g_pc_recalc_costs(l_recalc_cost_index).element_line_id,
5118: p_current_stage_seq => p_current_stage_seq,
5129:
5130: if l_wel_index is null then
5131: begin
5132:
5133: PSB_WS_POS1.Create_Element_Lines
5134: (p_api_version => 1.0,
5135: p_return_status => l_return_status,
5136: p_element_line_id => l_element_line_id,
5137: p_check_spel_exists => FND_API.G_FALSE,
5136: p_element_line_id => l_element_line_id,
5137: p_check_spel_exists => FND_API.G_FALSE,
5138: p_position_line_id => p_position_line_id,
5139: p_budget_year_id => p_budget_year_id,
5140: p_pay_element_id => PSB_WS_POS1.g_pc_costs(l_elemcost_index).pay_element_id,
5141: p_currency_code => p_func_currency,
5142: p_element_cost => l_element_cost,
5143: p_element_set_id => PSB_WS_POS1.g_pc_costs(l_elemcost_index).element_set_id,
5144: p_service_package_id => g_pf_recalc_fte(l_fte_index).service_package_id,
5139: p_budget_year_id => p_budget_year_id,
5140: p_pay_element_id => PSB_WS_POS1.g_pc_costs(l_elemcost_index).pay_element_id,
5141: p_currency_code => p_func_currency,
5142: p_element_cost => l_element_cost,
5143: p_element_set_id => PSB_WS_POS1.g_pc_costs(l_elemcost_index).element_set_id,
5144: p_service_package_id => g_pf_recalc_fte(l_fte_index).service_package_id,
5145: p_stage_set_id => p_stage_set_id,
5146: p_start_stage_seq => p_start_stage_seq,
5147: p_current_stage_seq => p_current_stage_seq);
5174:
5175: /*
5176: for c_sp_rec in c_sp loop
5177:
5178: PSB_WS_POS1.Update_Annual_FTE
5179: (p_api_version => 1.0,
5180: p_return_status => l_return_status,
5181: p_worksheet_id => p_worksheet_id,
5182: p_position_line_id => p_position_line_id,
5204:
5205: if g_pc_recalc_costs(l_recalc_cost_index).recalc_flag is null then
5206: begin
5207:
5208: PSB_WS_POS1.Create_Element_Lines
5209: (p_api_version => 1.0,
5210: p_return_status => l_return_status,
5211: p_element_line_id => g_pc_recalc_costs(l_recalc_cost_index).element_line_id,
5212: p_current_stage_seq => p_current_stage_seq,
5253:
5254: -- for bug 4627338
5255: for c_sp_rec in c_sp loop
5256:
5257: PSB_WS_POS1.Update_Annual_FTE
5258: (p_api_version => 1.0,
5259: p_return_status => l_return_status,
5260: p_worksheet_id => p_worksheet_id,
5261: p_position_line_id => p_position_line_id,