[Home] [Help]
46: p_data_extract_id in NUMBER,
47: p_business_group_id in NUMBER,
48: p_set_of_books_id in NUMBER,
49: p_entry_grade_rule_id in NUMBER,
50: p_entry_step_id in NUMBER := FND_API.G_MISS_NUM,
51: p_entry_grade_id in NUMBER,
52: p_pay_basis_id in NUMBER);
53:
54: PROCEDURE Update_Worksheet_Values
92: p_api_name ) ;
93: END IF;
94: --
95: FND_MSG_PUB.Get( p_msg_index => 1 ,
96: p_encoded => FND_API.G_FALSE ,
97: p_data => l_msg_data ,
98: p_msg_index_out => l_msg_count
99: ) ;
100: --
139:
140: BEGIN
141:
142: -- Initialize API return status to success
143: p_return_status := FND_API.G_RET_STS_SUCCESS;
144:
145: Open C_org_Status;
146: Fetch C_org_Status BULK collect into
147: l_organization_id,l_org_status;
153:
154: EXCEPTION
155:
156: WHEN OTHERS THEN
157: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
158:
159: END cache_org_status;
160:
161: PROCEDURE set_global(g_var_name IN VARCHAR2,
216: p_data_extract_id in NUMBER,
217: p_business_group_id in NUMBER,
218: p_set_of_books_id in NUMBER,
219: p_entry_grade_rule_id in NUMBER,
220: p_entry_step_id in NUMBER := FND_API.G_MISS_NUM,
221: p_entry_grade_id in NUMBER,
222: p_pay_basis_id in NUMBER)
223: IS
224: --
537: p_created_by => l_created_by,
538: p_creation_date => l_creation_date
539: );
540:
541: iF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
542: RAISE FND_API.G_EXC_ERROR;
543: END IF;
544: end if;
545:
538: p_creation_date => l_creation_date
539: );
540:
541: iF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
542: RAISE FND_API.G_EXC_ERROR;
543: END IF;
544: end if;
545:
546: If (l_pay_element_option_id is null) then
576: p_created_by => l_created_by,
577: p_creation_date => l_creation_date
578: );
579:
580: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
581: RAISE FND_API.G_EXC_ERROR;
582: END IF;
583:
584:
577: p_creation_date => l_creation_date
578: );
579:
580: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
581: RAISE FND_API.G_EXC_ERROR;
582: END IF;
583:
584:
585: Select psb_pay_element_rates_s.nextval
623: p_created_by => l_created_by,
624: p_creation_date => l_creation_date
625: ) ;
626:
627: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
628: RAISE FND_API.G_EXC_ERROR;
629: END IF;
630:
631: end if;
624: p_creation_date => l_creation_date
625: ) ;
626:
627: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
628: RAISE FND_API.G_EXC_ERROR;
629: END IF;
630:
631: end if;
632: End Loop;
681: p_modify_flag => NULL,
682: p_mode => 'R'
683: );
684:
685: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
686: hr_utility.set_location('fail insert assignments - stat is ' ||
687: l_return_status,983);
688: RAISE FND_API.G_EXC_ERROR;
689: END IF;
684:
685: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
686: hr_utility.set_location('fail insert assignments - stat is ' ||
687: l_return_status,983);
688: RAISE FND_API.G_EXC_ERROR;
689: END IF;
690:
691: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
692: raise FND_API.G_EXC_ERROR;
687: l_return_status,983);
688: RAISE FND_API.G_EXC_ERROR;
689: END IF;
690:
691: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
692: raise FND_API.G_EXC_ERROR;
693: end if;
694:
695: END IF;
688: RAISE FND_API.G_EXC_ERROR;
689: END IF;
690:
691: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
692: raise FND_API.G_EXC_ERROR;
693: end if;
694:
695: END IF;
696:
695: END IF;
696:
697: hr_utility.set_location(' -------E N D S U CESS-------',333);
698: -- Initialize API return status to success
699: p_return_status := FND_API.G_RET_STS_SUCCESS;
700:
701: --hr_utility.trace_off;
702: EXCEPTION
703:
700:
701: --hr_utility.trace_off;
702: EXCEPTION
703:
704: WHEN FND_API.G_EXC_ERROR THEN
705: hr_utility.set_location(' salary G_EXC_ERROR ----------',333);
706: --hr_utility.trace_off;
707: p_return_status := FND_API.G_RET_STS_ERROR;
708:
703:
704: WHEN FND_API.G_EXC_ERROR THEN
705: hr_utility.set_location(' salary G_EXC_ERROR ----------',333);
706: --hr_utility.trace_off;
707: p_return_status := FND_API.G_RET_STS_ERROR;
708:
709: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
710: hr_utility.set_location(' G_EXC_UNEXPECTED_ERROR ------',333);
711: --hr_utility.trace_off;
705: hr_utility.set_location(' salary G_EXC_ERROR ----------',333);
706: --hr_utility.trace_off;
707: p_return_status := FND_API.G_RET_STS_ERROR;
708:
709: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
710: hr_utility.set_location(' G_EXC_UNEXPECTED_ERROR ------',333);
711: --hr_utility.trace_off;
712: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
713:
708:
709: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
710: hr_utility.set_location(' G_EXC_UNEXPECTED_ERROR ------',333);
711: --hr_utility.trace_off;
712: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
713:
714: WHEN OTHERS THEN
715: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
716: --hr_utility.trace_off;
711: --hr_utility.trace_off;
712: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
713:
714: WHEN OTHERS THEN
715: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
716: --hr_utility.trace_off;
717: hr_utility.set_location(' G_RET_STS_UNEXP_ERRORR ------',333);
718:
719: End Populate_Salary_Assignments;
726: PROCEDURE Populate_Attribute_Assignments
727: (
728: p_return_status OUT NOCOPY VARCHAR2,
729: p_new_position_id IN NUMBER ,
730: p_position_id IN NUMBER := FND_API.G_MISS_NUM,
731: p_position_transaction_id IN NUMBER := FND_API.G_MISS_NUM,
732: p_job_id IN NUMBER ,
733: p_organization_id IN NUMBER ,
734: p_fte IN NUMBER ,
727: (
728: p_return_status OUT NOCOPY VARCHAR2,
729: p_new_position_id IN NUMBER ,
730: p_position_id IN NUMBER := FND_API.G_MISS_NUM,
731: p_position_transaction_id IN NUMBER := FND_API.G_MISS_NUM,
732: p_job_id IN NUMBER ,
733: p_organization_id IN NUMBER ,
734: p_fte IN NUMBER ,
735: p_frequency IN VARCHAR2,
890:
891: BEGIN
892:
893: -- Initialize the standard parameters.
894: -- p_return_status := FND_API.G_RET_STS_SUCCESS ;
895:
896: -- This procedure will create assignments from incremental data extract. If
897: -- it is a system_attribute_type, then it is a candidate for adding to the
898: -- position_assignments.
1000:
1001: dbms_sql.parse(v_cursorid,l_sql_stmt,dbms_sql.v7);
1002: dbms_sql.define_column(v_cursorid,1,v_segment,80);
1003: elsif (l_definition_structure = 'Position Flexfield') then
1004: if (p_position_id = FND_API.G_MISS_NUM) then
1005: l_select_tab := 'PQH_POSITION_TRANSACTIONS';
1006: l_select_key := 'POSITION_TRANSACTION_ID';
1007: l_param_value := p_position_transaction_id;
1008: else
1054: and (Attr_Type_Rec.select_tab = 'HR_ALL_POSITIONS')) then
1055:
1056: l_valid_attribute := 'Y' ;
1057:
1058: if (p_position_id = FND_API.G_MISS_NUM) then
1059: l_select_tab := 'PQH_POSITION_TRANSACTIONS';
1060: l_select_key := 'POSITION_TRANSACTION_ID';
1061: l_param_value := p_position_transaction_id;
1062: else
1130: if ((Attr_Type_Rec.link_type = 'HR_ALL_POSITIONS') and
1131: (Attr_Type_Rec.select_tab = 'HR_ALL_POSITIONS')) then
1132:
1133: l_valid_attribute := 'Y' ;
1134: if (p_position_id = FND_API.G_MISS_NUM) then
1135: l_select_tab := 'PQH_POSITION_TRANSACTIONS';
1136: l_select_key := 'POSITION_TRANSACTION_ID';
1137: l_param_value := p_position_transaction_id;
1138: else
1201: if ((Attr_Type_Rec.link_type = 'HR_ALL_POSITIONS')
1202: and (Attr_Type_Rec.select_tab = 'HR_ALL_POSITIONS')) then
1203:
1204: l_valid_attribute := 'Y' ;
1205: if (p_position_id = FND_API.G_MISS_NUM) then
1206: l_select_tab := 'PQH_POSITION_TRANSACTIONS';
1207: l_select_key := 'POSITION_TRANSACTION_ID';
1208: l_param_value := p_position_transaction_id;
1209: else
1388: p_created_BY => l_created_by,
1389: p_creation_DATE => l_creation_date
1390: ) ;
1391:
1392: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1393: RAISE FND_API.G_EXC_ERROR;
1394: END IF;
1395:
1396: l_attribute_value := lp_attribute_value;
1389: p_creation_DATE => l_creation_date
1390: ) ;
1391:
1392: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1393: RAISE FND_API.G_EXC_ERROR;
1394: END IF;
1395:
1396: l_attribute_value := lp_attribute_value;
1397: else
1441: p_modify_flag => NULL,
1442: p_mode => 'R'
1443: ) ;
1444:
1445: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1446: RAISE FND_API.G_EXC_ERROR;
1447: END IF;
1448:
1449: END IF; -- end of l_valid_attribute
1442: p_mode => 'R'
1443: ) ;
1444:
1445: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1446: RAISE FND_API.G_EXC_ERROR;
1447: END IF;
1448:
1449: END IF; -- end of l_valid_attribute
1450: END IF; -- test of attribute val/id
1706: FND_MESSAGE.SET_TOKEN('POSITION_NAME',p_name );
1707: FND_MESSAGE.SET_TOKEN('ERR_MESG',l_msg);
1708: FND_MSG_PUB.Add;
1709: hr_utility.set_location('error in get segments',9867);
1710: RAISE FND_API.G_EXC_ERROR;
1711: end if;
1712:
1713: l_per_index := 1;
1714: l_init_index := 0;
1973: FND_MSG_PUB.Add;
1974: FND_MESSAGE.SET_NAME('PSB', 'PSB_INCREMENTAL_CCID_FAILURE');
1975: FND_MESSAGE.SET_TOKEN('ERRMESG',l_msg);
1976: hr_utility.set_location('error in get combination id',9867);
1977: RAISE FND_API.G_EXC_ERROR;
1978: end if;
1979:
1980: l_concat_pos_name := null;
1981: l_concat_pos_name := FND_FLEX_EXT.Get_Segs
2044: p_attribute_category => NULL,
2045: p_name => l_concat_pos_name,
2046: p_mode => 'R'
2047: );
2048: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2049: FND_MESSAGE.SET_NAME('PSB', 'PSB_PQH_INSERT_FAILURE');
2050: RAISE FND_API.G_EXC_ERROR;
2051: END IF;
2052:
2046: p_mode => 'R'
2047: );
2048: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2049: FND_MESSAGE.SET_NAME('PSB', 'PSB_PQH_INSERT_FAILURE');
2050: RAISE FND_API.G_EXC_ERROR;
2051: END IF;
2052:
2053: -- Addto position sets for WS recalc
2054: PSB_Budget_Position_Pvt.Add_Position_To_Position_Sets
2053: -- Addto position sets for WS recalc
2054: PSB_Budget_Position_Pvt.Add_Position_To_Position_Sets
2055: (
2056: p_api_version => 1.0,
2057: p_init_msg_list => FND_API.G_TRUE,
2058: p_commit => NULL,
2059: p_validation_level => NULL,
2060: p_return_status => l_return_status,
2061: p_msg_count => l_msg_count,
2080: p_entry_step_id => p_entry_step_id,
2081: p_entry_grade_id => p_entry_grade_id,
2082: p_pay_basis_id => p_pay_basis_id
2083: );
2084: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2085: FND_MESSAGE.SET_NAME('PSB', 'PSB_INCREMENTAL_SALARY_FAILURE');
2086: RAISE FND_API.G_EXC_ERROR;
2087: END IF;
2088:
2082: p_pay_basis_id => p_pay_basis_id
2083: );
2084: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2085: FND_MESSAGE.SET_NAME('PSB', 'PSB_INCREMENTAL_SALARY_FAILURE');
2086: RAISE FND_API.G_EXC_ERROR;
2087: END IF;
2088:
2089: Populate_Attribute_Assignments
2090: ( p_return_status => l_return_status,
2101: p_date_end => l_date_end,
2102: p_data_extract_id => l_data_extract_id,
2103: p_business_group_id => p_business_group_id
2104: ) ;
2105: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2106: FND_MESSAGE.SET_NAME('PSB', 'PSB_INCREMENTAL_ATTRIBUTE_FAIL');
2107: RAISE FND_API.G_EXC_ERROR;
2108: END IF;
2109:
2103: p_business_group_id => p_business_group_id
2104: ) ;
2105: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2106: FND_MESSAGE.SET_NAME('PSB', 'PSB_INCREMENTAL_ATTRIBUTE_FAIL');
2107: RAISE FND_API.G_EXC_ERROR;
2108: END IF;
2109:
2110: -- Update WS/BR; do only in add since org is cannot be diff than input
2111: Update_Worksheet_Values ( p_return_status => l_return_status,
2111: Update_Worksheet_Values ( p_return_status => l_return_status,
2112: p_position_id => l_position_id,
2113: p_org_id => p_organization_id
2114: ) ;
2115: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2116: hr_utility.set_location(' fail to update ws value ',888);
2117: FND_MESSAGE.SET_NAME('PSB', 'PSB_INCREMENTAL_WS_FAILURE' );
2118: RAISE FND_API.G_EXC_ERROR;
2119: END IF;
2114: ) ;
2115: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2116: hr_utility.set_location(' fail to update ws value ',888);
2117: FND_MESSAGE.SET_NAME('PSB', 'PSB_INCREMENTAL_WS_FAILURE' );
2118: RAISE FND_API.G_EXC_ERROR;
2119: END IF;
2120:
2121: hr_utility.set_location('>> END insert position trans',777);
2122: --hr_utility.trace_off;
2211: business_group_id
2212: FROM psb_data_extracts
2213: WHERE data_extract_id = l_data_extract_id;
2214:
2215: l_trn_exist VARCHAR2(1) := FND_API.G_FALSE;
2216: l_psb_position_id number := '';
2217: l_set_of_books_id number := '';
2218: l_validity_date date := null;
2219: l_availability_status varchar2(30);
2269: hr_utility.set_location('>> update position trans',777);
2270: hr_utility.set_location('>> p_position_transaction_id' || p_position_transaction_id,777);
2271:
2272: for c_trn_exist_rec in c_trn_exist loop
2273: l_trn_exist := FND_API.G_TRUE;
2274: end loop;
2275:
2276: if fnd_api.to_Boolean(l_trn_exist) THEN
2277: --++ main if ... do not process transaction if trn not in psb
2272: for c_trn_exist_rec in c_trn_exist loop
2273: l_trn_exist := FND_API.G_TRUE;
2274: end loop;
2275:
2276: if fnd_api.to_Boolean(l_trn_exist) THEN
2277: --++ main if ... do not process transaction if trn not in psb
2278: --++ update psb if called from create position and for apply process
2279: --++ for name and hr position id update (a)
2280:
2330: FND_MESSAGE.SET_TOKEN('POSITION_NAME',p_name );
2331: FND_MESSAGE.SET_TOKEN('ERR_MESG',l_msg);
2332: FND_MSG_PUB.Add;
2333: hr_utility.set_location('error in get segments',9850);
2334: RAISE FND_API.G_EXC_ERROR;
2335: end if;
2336:
2337: l_per_index := 1;
2338: l_init_index := 0;
2598: FND_MSG_PUB.Add;
2599: FND_MESSAGE.SET_NAME('PSB', 'PSB_INCREMENTAL_CCID_FAILURE');
2600: FND_MESSAGE.SET_TOKEN('ERRMESG',l_msg);
2601: hr_utility.set_location('error in get combination id',9867);
2602: RAISE FND_API.G_EXC_ERROR;
2603: end if;
2604:
2605: l_concat_pos_name := null;
2606: l_concat_pos_name := FND_FLEX_EXT.Get_Segs
2615:
2616: PSB_POSITIONS_PVT.UPDATE_ROW
2617: (
2618: p_api_version => 1.0,
2619: p_init_msg_lISt => FND_API.G_FALSE,
2620: p_commit => FND_API.G_FALSE,
2621: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2622: p_return_status => l_return_status,
2623: p_msg_count => l_msg_count,
2616: PSB_POSITIONS_PVT.UPDATE_ROW
2617: (
2618: p_api_version => 1.0,
2619: p_init_msg_lISt => FND_API.G_FALSE,
2620: p_commit => FND_API.G_FALSE,
2621: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2622: p_return_status => l_return_status,
2623: p_msg_count => l_msg_count,
2624: p_msg_data => l_msg_data,
2617: (
2618: p_api_version => 1.0,
2619: p_init_msg_lISt => FND_API.G_FALSE,
2620: p_commit => FND_API.G_FALSE,
2621: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2622: p_return_status => l_return_status,
2623: p_msg_count => l_msg_count,
2624: p_msg_data => l_msg_data,
2625: p_position_id => l_psb_position_id,
2665:
2666: --++ update name and hr_position_id; when applied hr_position_id is set
2667: --++ to hr's position id
2668:
2669: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2670: FND_MESSAGE.SET_NAME('PSB', 'PSB_PQH_UPDATE_FAILURE' );
2671:
2672: RAISE FND_API.G_EXC_ERROR;
2673: END IF;
2668:
2669: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2670: FND_MESSAGE.SET_NAME('PSB', 'PSB_PQH_UPDATE_FAILURE' );
2671:
2672: RAISE FND_API.G_EXC_ERROR;
2673: END IF;
2674:
2675: IF (p_transaction_status <> 'APPLIED') then
2676:
2690: p_entry_step_id => p_entry_step_id,
2691: p_entry_grade_id => p_entry_grade_id,
2692: p_pay_basis_id => p_pay_basis_id_o);
2693:
2694: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2695: FND_MESSAGE.SET_NAME('PSB', 'PSB_INCREMENTAL_SALARY_FAILURE' );
2696:
2697: RAISE FND_API.G_EXC_ERROR;
2698: end if;
2693:
2694: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2695: FND_MESSAGE.SET_NAME('PSB', 'PSB_INCREMENTAL_SALARY_FAILURE' );
2696:
2697: RAISE FND_API.G_EXC_ERROR;
2698: end if;
2699:
2700: Populate_Attribute_Assignments
2701: ( p_return_status => l_return_status,
2712: p_date_end => p_date_end,
2713: p_data_extract_id => c_pos_trx_rec.data_extract_id,
2714: p_business_group_id => p_business_group_id);
2715:
2716: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2717: FND_MESSAGE.SET_NAME('PSB', 'PSB_INCREMENTAL_ATTRIBUTE_FAIL' );
2718: RAISE FND_API.G_EXC_ERROR;
2719: end if;
2720:
2714: p_business_group_id => p_business_group_id);
2715:
2716: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2717: FND_MESSAGE.SET_NAME('PSB', 'PSB_INCREMENTAL_ATTRIBUTE_FAIL' );
2718: RAISE FND_API.G_EXC_ERROR;
2719: end if;
2720:
2721: end if; --end of p_transaction_status <> applied
2722:
2774:
2775: PSB_POSITIONS_PVT.DELETE_ROW
2776: (
2777: p_api_version => 1.0,
2778: p_init_msg_liSt => FND_API.G_FALSE,
2779: p_commit => FND_API.G_FALSE,
2780: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2781: p_return_status => l_return_status,
2782: p_msg_count => l_msg_count,
2775: PSB_POSITIONS_PVT.DELETE_ROW
2776: (
2777: p_api_version => 1.0,
2778: p_init_msg_liSt => FND_API.G_FALSE,
2779: p_commit => FND_API.G_FALSE,
2780: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2781: p_return_status => l_return_status,
2782: p_msg_count => l_msg_count,
2783: p_msg_data => l_msg_data,
2776: (
2777: p_api_version => 1.0,
2778: p_init_msg_liSt => FND_API.G_FALSE,
2779: p_commit => FND_API.G_FALSE,
2780: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2781: p_return_status => l_return_status,
2782: p_msg_count => l_msg_count,
2783: p_msg_data => l_msg_data,
2784: p_position_id => l_psb_position_id);
2782: p_msg_count => l_msg_count,
2783: p_msg_data => l_msg_data,
2784: p_position_id => l_psb_position_id);
2785:
2786: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2787: hr_utility.set_location('>> pos delete row Error ' ,1777);
2788: RAISE FND_API.G_EXC_ERROR;
2789: END IF;
2790: end if; -- end of rejecct
2784: p_position_id => l_psb_position_id);
2785:
2786: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2787: hr_utility.set_location('>> pos delete row Error ' ,1777);
2788: RAISE FND_API.G_EXC_ERROR;
2789: END IF;
2790: end if; -- end of rejecct
2791:
2792: end if; -- end of application_id test
2971: FND_MESSAGE.SET_TOKEN('POSITION_NAME',p_name );
2972: FND_MESSAGE.SET_TOKEN('ERR_MESG',l_msg);
2973: FND_MSG_PUB.Add;
2974: hr_utility.set_location('error in get segments',9850);
2975: RAISE FND_API.G_EXC_ERROR;
2976: end if;
2977:
2978: l_per_index := 1;
2979: l_init_index := 0;
3236: FND_MSG_PUB.ADD;
3237: FND_MESSAGE.SET_NAME('PSB', 'PSB_INCREMENTAL_CCID_FAILURE');
3238: FND_MESSAGE.SET_TOKEN('ERRMESG',l_msg);
3239: hr_utility.set_location('error in get combination id',9867);
3240: RAISE FND_API.G_EXC_ERROR;
3241: end if;
3242:
3243: hr_utility.set_location('pos id flex num in '||
3244: l_position_id_flex_num || ' ccid ' || l_ccid ,9867);
3328: p_name => l_concat_pos_name,
3329: p_mode => 'R'
3330: );
3331:
3332: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3333: hr_utility.set_location('error in insert position',9877);
3334: FND_MESSAGE.SET_NAME('PSB', 'PSB_POS_INSERT_FAILURE' );
3335:
3336: RAISE FND_API.G_EXC_ERROR;
3332: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3333: hr_utility.set_location('error in insert position',9877);
3334: FND_MESSAGE.SET_NAME('PSB', 'PSB_POS_INSERT_FAILURE' );
3335:
3336: RAISE FND_API.G_EXC_ERROR;
3337: END IF;
3338:
3339: --++ add to position sets for WS recalc
3340:
3339: --++ add to position sets for WS recalc
3340:
3341: PSB_Budget_Position_Pvt.Add_Position_To_Position_Sets (
3342: p_api_version => 1.0,
3343: p_init_msg_list => FND_API.G_TRUE,
3344: p_commit => NULL,
3345: p_validation_level => NULL,
3346: p_return_status => l_return_status,
3347: p_msg_count => l_msg_count,
3366: p_entry_step_id => p_entry_step_id,
3367: p_entry_grade_id => p_entry_grade_id,
3368: p_pay_basis_id => p_pay_basis_id);
3369:
3370: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3371: FND_MESSAGE.SET_NAME('PSB', 'PSB_INCREMENTAL_SALARY_FAILURE' );
3372:
3373: RAISE FND_API.G_EXC_ERROR;
3374: END IF;
3369:
3370: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3371: FND_MESSAGE.SET_NAME('PSB', 'PSB_INCREMENTAL_SALARY_FAILURE' );
3372:
3373: RAISE FND_API.G_EXC_ERROR;
3374: END IF;
3375:
3376: Populate_Attribute_Assignments
3377: ( p_return_status => l_return_status,
3389: p_data_extract_id => l_data_extract_id,
3390: p_business_group_id => p_business_group_id
3391: ) ;
3392: --
3393: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3394: FND_MESSAGE.SET_NAME('PSB', 'PSB_INCREMENTAL_ATTRIBUTE_FAIL' );
3395: RAISE FND_API.G_EXC_ERROR;
3396: END IF;
3397:
3391: ) ;
3392: --
3393: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3394: FND_MESSAGE.SET_NAME('PSB', 'PSB_INCREMENTAL_ATTRIBUTE_FAIL' );
3395: RAISE FND_API.G_EXC_ERROR;
3396: END IF;
3397:
3398: hr_utility.set_location(' org id is ' || get_global('G_PSB_ORG_ID') ,888);
3399: hr_utility.set_location(' bg id is ' || get_global('G_PSB_BUDGET_GROUP_ID') ,888);
3402: Update_Worksheet_Values ( p_return_status => l_return_status,
3403: p_position_id => l_position_id,
3404: p_org_id => p_organization_id);
3405:
3406: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3407: hr_utility.set_location(' fail to update ws value ',888);
3408: FND_MESSAGE.SET_NAME('PSB', 'PSB_INCREMENTAL_WS_FAILURE' );
3409: RAISE FND_API.G_EXC_ERROR;
3410:
3405:
3406: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3407: hr_utility.set_location(' fail to update ws value ',888);
3408: FND_MESSAGE.SET_NAME('PSB', 'PSB_INCREMENTAL_WS_FAILURE' );
3409: RAISE FND_API.G_EXC_ERROR;
3410:
3411: RAISE FND_API.G_EXC_ERROR;
3412: END IF;
3413: hr_utility.set_location(' Insert Position Info Success',555);
3407: hr_utility.set_location(' fail to update ws value ',888);
3408: FND_MESSAGE.SET_NAME('PSB', 'PSB_INCREMENTAL_WS_FAILURE' );
3409: RAISE FND_API.G_EXC_ERROR;
3410:
3411: RAISE FND_API.G_EXC_ERROR;
3412: END IF;
3413: hr_utility.set_location(' Insert Position Info Success',555);
3414:
3415: end if;
3603: FND_MESSAGE.SET_TOKEN('POSITION_NAME',p_name );
3604: FND_MESSAGE.SET_TOKEN('ERR_MESG',l_msg);
3605: FND_MSG_PUB.Add;
3606: hr_utility.set_location('error in get segments',9850);
3607: RAISE FND_API.G_EXC_ERROR;
3608: end if;
3609:
3610: l_per_index := 1;
3611: l_init_index := 0;
3871: FND_MSG_PUB.Add;
3872: FND_MESSAGE.SET_NAME('PSB', 'PSB_INCREMENTAL_CCID_FAILURE');
3873: FND_MESSAGE.SET_TOKEN('ERRMESG',l_msg);
3874: hr_utility.set_location('error in get combination id',9867);
3875: RAISE FND_API.G_EXC_ERROR;
3876: end if;
3877:
3878: hr_utility.set_location('pos id flex num in '||
3879: l_position_id_flex_num || ' ccid ' || l_ccid ,9867);
3911:
3912: PSB_POSITIONS_PVT.UPDATE_ROW
3913: (
3914: p_api_version => 1.0,
3915: p_init_msg_lISt => FND_API.G_FALSE,
3916: p_commit => FND_API.G_FALSE,
3917: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3918: p_return_status => l_return_status,
3919: p_msg_count => l_msg_count,
3912: PSB_POSITIONS_PVT.UPDATE_ROW
3913: (
3914: p_api_version => 1.0,
3915: p_init_msg_lISt => FND_API.G_FALSE,
3916: p_commit => FND_API.G_FALSE,
3917: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3918: p_return_status => l_return_status,
3919: p_msg_count => l_msg_count,
3920: p_msg_data => l_msg_data,
3913: (
3914: p_api_version => 1.0,
3915: p_init_msg_lISt => FND_API.G_FALSE,
3916: p_commit => FND_API.G_FALSE,
3917: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3918: p_return_status => l_return_status,
3919: p_msg_count => l_msg_count,
3920: p_msg_data => l_msg_data,
3921: p_position_id => l_psb_position_id,
3960: );
3961:
3962: hr_utility.set_location(' after update position', 1887);
3963:
3964: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3965: hr_utility.set_location(' posb fail after update position', 1887);
3966: FND_MESSAGE.SET_NAME('PSB', 'PSB_POS_UPDATE_FAILURE' );
3967:
3968: RAISE FND_API.G_EXC_ERROR;
3964: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3965: hr_utility.set_location(' posb fail after update position', 1887);
3966: FND_MESSAGE.SET_NAME('PSB', 'PSB_POS_UPDATE_FAILURE' );
3967:
3968: RAISE FND_API.G_EXC_ERROR;
3969: END IF;
3970:
3971: Delete psb_position_assignments
3972: where position_id = l_psb_position_id;
3983: p_entry_step_id => p_entry_step_id,
3984: p_entry_grade_id => p_entry_grade_id,
3985: p_pay_basis_id => p_pay_basis_id);
3986:
3987: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3988: FND_MESSAGE.SET_NAME('PSB', 'PSB_INCREMENTAL_SALARY_FAILURE' );
3989:
3990: RAISE FND_API.G_EXC_ERROR;
3991: END IF;
3986:
3987: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3988: FND_MESSAGE.SET_NAME('PSB', 'PSB_INCREMENTAL_SALARY_FAILURE' );
3989:
3990: RAISE FND_API.G_EXC_ERROR;
3991: END IF;
3992:
3993: Populate_Attribute_Assignments
3994: ( p_return_status => l_return_status,
4005: p_date_end => p_date_end,
4006: p_data_extract_id => c_pos_trx_rec.data_extract_id,
4007: p_business_group_id => p_business_group_id_o);
4008:
4009: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4010: RAISE FND_API.G_EXC_ERROR;
4011: FND_MESSAGE.SET_NAME('PSB', 'PSB_INCREMENTAL_ATTRIBUTE_FAIL' );
4012:
4013: END IF;
4006: p_data_extract_id => c_pos_trx_rec.data_extract_id,
4007: p_business_group_id => p_business_group_id_o);
4008:
4009: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4010: RAISE FND_API.G_EXC_ERROR;
4011: FND_MESSAGE.SET_NAME('PSB', 'PSB_INCREMENTAL_ATTRIBUTE_FAIL' );
4012:
4013: END IF;
4014:
4017: Update_Worksheet_Values ( p_return_status => l_return_status,
4018: p_position_id => l_psb_position_id,
4019: p_org_id => p_organization_id_o);
4020:
4021: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4022: hr_utility.set_location(' fail to update ws value ',888);
4023: FND_MESSAGE.SET_NAME('PSB', 'PSB_INCREMENTAL_WS_FAILURE' );
4024: RAISE FND_API.G_EXC_ERROR;
4025:
4020:
4021: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4022: hr_utility.set_location(' fail to update ws value ',888);
4023: FND_MESSAGE.SET_NAME('PSB', 'PSB_INCREMENTAL_WS_FAILURE' );
4024: RAISE FND_API.G_EXC_ERROR;
4025:
4026: RAISE FND_API.G_EXC_ERROR;
4027: END IF;
4028:
4022: hr_utility.set_location(' fail to update ws value ',888);
4023: FND_MESSAGE.SET_NAME('PSB', 'PSB_INCREMENTAL_WS_FAILURE' );
4024: RAISE FND_API.G_EXC_ERROR;
4025:
4026: RAISE FND_API.G_EXC_ERROR;
4027: END IF;
4028:
4029: end if;
4030:
4098: open bgorg;
4099: fetch bgorg into l_org_budget_group_id;
4100: if (bgorg%notfound) then
4101: close bgorg;
4102: raise FND_API.G_EXC_ERROR ;
4103: end if;
4104: close bgorg;
4105:
4106:
4108: IF get_global('G_PSB_CURRENT_FORM') = 'PSBWMPMD' THEN
4109: PSB_WS_POSITION_CR_LINES_I_PVT.Insert_Row
4110: (
4111: p_api_version => 1.0,
4112: p_init_msg_list => FND_API.G_TRUE,
4113: p_commit => FND_API.G_FALSE,
4114: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4115: p_return_status => l_return_status,
4116: p_msg_count => l_msg_count,
4109: PSB_WS_POSITION_CR_LINES_I_PVT.Insert_Row
4110: (
4111: p_api_version => 1.0,
4112: p_init_msg_list => FND_API.G_TRUE,
4113: p_commit => FND_API.G_FALSE,
4114: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4115: p_return_status => l_return_status,
4116: p_msg_count => l_msg_count,
4117: p_msg_data => l_msg_data,
4110: (
4111: p_api_version => 1.0,
4112: p_init_msg_list => FND_API.G_TRUE,
4113: p_commit => FND_API.G_FALSE,
4114: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4115: p_return_status => l_return_status,
4116: p_msg_count => l_msg_count,
4117: p_msg_data => l_msg_data,
4118: p_worksheet_id => PSB_HR_POPULATE_DATA_PVT.get_global('G_PSB_WORKSHEET_ID'),
4121: p_position_line_id => l_position_line_id);
4122:
4123: hr_utility.set_location(' l_position_line_id is ' || l_position_line_id,333);
4124:
4125: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
4126: hr_utility.set_location(' fail to insert row ',888);
4127: --hr_utility.trace_off;
4128: FND_MESSAGE.SET_NAME('PSB', 'PSB_INCR_INSERT_POS_WS_FAIL');
4129: raise FND_API.G_EXC_ERROR;
4125: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
4126: hr_utility.set_location(' fail to insert row ',888);
4127: --hr_utility.trace_off;
4128: FND_MESSAGE.SET_NAME('PSB', 'PSB_INCR_INSERT_POS_WS_FAIL');
4129: raise FND_API.G_EXC_ERROR;
4130: END IF;
4131: --++ end ws
4132: ELSE
4133:
4149: p_note_id => null,
4150: p_freeze_flag => 'N',
4151: p_view_line_flag => 'Y');
4152:
4153: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
4154: FND_MESSAGE.SET_NAME('PSB', 'PSB_INCR_INSERT_POS_REV_FAIL');
4155: raise FND_API.G_EXC_ERROR;
4156: else
4157: -- update the position table for system data extract with budget group ID
4151: p_view_line_flag => 'Y');
4152:
4153: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
4154: FND_MESSAGE.SET_NAME('PSB', 'PSB_INCR_INSERT_POS_REV_FAIL');
4155: raise FND_API.G_EXC_ERROR;
4156: else
4157: -- update the position table for system data extract with budget group ID
4158: -- start bug 3253644
4159:
4184: end if;
4185:
4186: END IF;
4187:
4188: p_return_status := FND_API.G_RET_STS_SUCCESS;
4189: --hr_utility.trace_off;
4190:
4191: EXCEPTION
4192:
4189: --hr_utility.trace_off;
4190:
4191: EXCEPTION
4192:
4193: WHEN FND_API.G_EXC_ERROR THEN
4194: p_return_status := FND_API.G_RET_STS_ERROR;
4195: --hr_utility.trace_off;
4196:
4197: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4190:
4191: EXCEPTION
4192:
4193: WHEN FND_API.G_EXC_ERROR THEN
4194: p_return_status := FND_API.G_RET_STS_ERROR;
4195: --hr_utility.trace_off;
4196:
4197: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4198: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4193: WHEN FND_API.G_EXC_ERROR THEN
4194: p_return_status := FND_API.G_RET_STS_ERROR;
4195: --hr_utility.trace_off;
4196:
4197: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4198: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4199: --hr_utility.trace_off;
4200:
4201: WHEN OTHERS THEN
4194: p_return_status := FND_API.G_RET_STS_ERROR;
4195: --hr_utility.trace_off;
4196:
4197: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4198: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4199: --hr_utility.trace_off;
4200:
4201: WHEN OTHERS THEN
4202: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4198: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4199: --hr_utility.trace_off;
4200:
4201: WHEN OTHERS THEN
4202: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4203: --hr_utility.trace_off;
4204:
4205: END Update_Worksheet_Values;
4206:
4275: p_position_start_DATE => c_Positions_Rec.effective_start_DATE,
4276: p_position_END_DATE => c_Positions_Rec.effective_END_DATE
4277: );
4278:
4279: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4280: RAISE FND_API.G_EXC_ERROR;
4281: END IF;
4282:
4283: if l_position_ctr = PSB_WS_ACCT1.g_checkpoint_save then
4276: p_position_END_DATE => c_Positions_Rec.effective_END_DATE
4277: );
4278:
4279: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4280: RAISE FND_API.G_EXC_ERROR;
4281: END IF;
4282:
4283: if l_position_ctr = PSB_WS_ACCT1.g_checkpoint_save then
4284: PSB_HR_EXTRACT_DATA_PVT.Update_Reentry
4291: p_process => 'PSB Costing',
4292: p_restart_id => c_Positions_Rec.position_id
4293: );
4294:
4295: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4296: raise FND_API.G_EXC_ERROR;
4297: end if;
4298: commit work;
4299: /*For Bug No : 2642012 Start*/
4292: p_restart_id => c_Positions_Rec.position_id
4293: );
4294:
4295: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4296: raise FND_API.G_EXC_ERROR;
4297: end if;
4298: commit work;
4299: /*For Bug No : 2642012 Start*/
4300: l_position_ctr := 0;
4314: p_process => 'PSB Costing',
4315: p_restart_id => l_fin_position_id
4316: );
4317:
4318: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4319: raise FND_API.G_EXC_ERROR;
4320: end if;
4321:
4322: -- Initialize API return status to success
4315: p_restart_id => l_fin_position_id
4316: );
4317:
4318: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4319: raise FND_API.G_EXC_ERROR;
4320: end if;
4321:
4322: -- Initialize API return status to success
4323: p_return_status := FND_API.G_RET_STS_SUCCESS;
4319: raise FND_API.G_EXC_ERROR;
4320: end if;
4321:
4322: -- Initialize API return status to success
4323: p_return_status := FND_API.G_RET_STS_SUCCESS;
4324:
4325: EXCEPTION
4326:
4327: WHEN FND_API.G_EXC_ERROR THEN
4323: p_return_status := FND_API.G_RET_STS_SUCCESS;
4324:
4325: EXCEPTION
4326:
4327: WHEN FND_API.G_EXC_ERROR THEN
4328: p_return_status := FND_API.G_RET_STS_ERROR;
4329: FND_MESSAGE.SET_NAME('PSB', 'PSB_POSITION_DETAILS');
4330: FND_MESSAGE.SET_TOKEN('POSITION_NAME',l_position_name );
4331: FND_MESSAGE.SET_TOKEN('EMPLOYEE_NAME',l_employee_name );
4324:
4325: EXCEPTION
4326:
4327: WHEN FND_API.G_EXC_ERROR THEN
4328: p_return_status := FND_API.G_RET_STS_ERROR;
4329: FND_MESSAGE.SET_NAME('PSB', 'PSB_POSITION_DETAILS');
4330: FND_MESSAGE.SET_TOKEN('POSITION_NAME',l_position_name );
4331: FND_MESSAGE.SET_TOKEN('EMPLOYEE_NAME',l_employee_name );
4332: FND_MSG_PUB.Add;
4330: FND_MESSAGE.SET_TOKEN('POSITION_NAME',l_position_name );
4331: FND_MESSAGE.SET_TOKEN('EMPLOYEE_NAME',l_employee_name );
4332: FND_MSG_PUB.Add;
4333:
4334: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4335: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4336: FND_MESSAGE.SET_NAME('PSB', 'PSB_POSITION_DETAILS');
4337: FND_MESSAGE.SET_TOKEN('POSITION_NAME',l_position_name );
4338: FND_MESSAGE.SET_TOKEN('EMPLOYEE_NAME',l_employee_name );
4331: FND_MESSAGE.SET_TOKEN('EMPLOYEE_NAME',l_employee_name );
4332: FND_MSG_PUB.Add;
4333:
4334: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4335: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4336: FND_MESSAGE.SET_NAME('PSB', 'PSB_POSITION_DETAILS');
4337: FND_MESSAGE.SET_TOKEN('POSITION_NAME',l_position_name );
4338: FND_MESSAGE.SET_TOKEN('EMPLOYEE_NAME',l_employee_name );
4339: FND_MSG_PUB.Add;
4338: FND_MESSAGE.SET_TOKEN('EMPLOYEE_NAME',l_employee_name );
4339: FND_MSG_PUB.Add;
4340:
4341: WHEN OTHERS THEN
4342: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4343: FND_MESSAGE.SET_NAME('PSB', 'PSB_POSITION_DETAILS');
4344: FND_MESSAGE.SET_TOKEN('POSITION_NAME',l_position_name );
4345: FND_MESSAGE.SET_TOKEN('EMPLOYEE_NAME',l_employee_name );
4346: FND_MSG_PUB.Add;
4926: p_code_combination_id => l_ccid,
4927: p_error_message => l_error_message
4928: );
4929: -- If API did not complete normally, raise error coming from called API.
4930: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4931: RAISE FND_API.G_EXC_ERROR;
4932: END IF ;
4933:
4934: -- Check if CCID got generated.
4927: p_error_message => l_error_message
4928: );
4929: -- If API did not complete normally, raise error coming from called API.
4930: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4931: RAISE FND_API.G_EXC_ERROR;
4932: END IF ;
4933:
4934: -- Check if CCID got generated.
4935: IF l_ccid IS NULL THEN
4979:
4980: -- If project_id is null, we generate CCID out of segment information.
4981: ELSIF (l_assignment(l_assign_index).project_id IS NULL) THEN
4982:
4983: IF l_flex_code <> NVL(PSB_WS_ACCT1.g_flex_code, FND_API.G_MISS_NUM) THEN
4984: --
4985: PSB_WS_ACCT1.Flex_Info
4986: ( p_flex_code => l_flex_code,
4987: p_return_status => l_return_status
4985: PSB_WS_ACCT1.Flex_Info
4986: ( p_flex_code => l_flex_code,
4987: p_return_status => l_return_status
4988: ) ;
4989: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4990: RAISE FND_API.G_EXC_ERROR;
4991: END IF;
4992: --
4993: END IF;
4986: ( p_flex_code => l_flex_code,
4987: p_return_status => l_return_status
4988: ) ;
4989: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4990: RAISE FND_API.G_EXC_ERROR;
4991: END IF;
4992: --
4993: END IF;
4994:
5514: -- End processing l_dist_csr cursor.
5515:
5516: PSB_POSITION_PAY_DISTR_PVT.Modify_Extract_Distribution
5517: ( p_api_version => 1.0,
5518: p_init_msg_list => FND_API.G_FALSE,
5519: p_commit => FND_API.G_FALSE,
5520: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5521: p_return_status => l_return_status,
5522: p_msg_count => l_msg_count,
5515:
5516: PSB_POSITION_PAY_DISTR_PVT.Modify_Extract_Distribution
5517: ( p_api_version => 1.0,
5518: p_init_msg_list => FND_API.G_FALSE,
5519: p_commit => FND_API.G_FALSE,
5520: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5521: p_return_status => l_return_status,
5522: p_msg_count => l_msg_count,
5523: p_msg_data => l_msg_data,
5516: PSB_POSITION_PAY_DISTR_PVT.Modify_Extract_Distribution
5517: ( p_api_version => 1.0,
5518: p_init_msg_list => FND_API.G_FALSE,
5519: p_commit => FND_API.G_FALSE,
5520: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
5521: p_return_status => l_return_status,
5522: p_msg_count => l_msg_count,
5523: p_msg_data => l_msg_data,
5524: p_position_id => p_position_id,
5526: p_chart_of_accounts_id => l_flex_code,
5527: p_distribution => lh_distribution
5528: ) ;
5529: --
5530: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5531: RAISE FND_API.G_EXC_ERROR;
5532: END IF;
5533:
5534: -- Initialize API return status to success
5527: p_distribution => lh_distribution
5528: ) ;
5529: --
5530: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5531: RAISE FND_API.G_EXC_ERROR;
5532: END IF;
5533:
5534: -- Initialize API return status to success
5535: p_return_status := FND_API.G_RET_STS_SUCCESS;
5531: RAISE FND_API.G_EXC_ERROR;
5532: END IF;
5533:
5534: -- Initialize API return status to success
5535: p_return_status := FND_API.G_RET_STS_SUCCESS;
5536:
5537: EXCEPTION
5538:
5539: WHEN FND_API.G_EXC_ERROR THEN
5535: p_return_status := FND_API.G_RET_STS_SUCCESS;
5536:
5537: EXCEPTION
5538:
5539: WHEN FND_API.G_EXC_ERROR THEN
5540: p_return_status := FND_API.G_RET_STS_ERROR;
5541:
5542: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5543: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5536:
5537: EXCEPTION
5538:
5539: WHEN FND_API.G_EXC_ERROR THEN
5540: p_return_status := FND_API.G_RET_STS_ERROR;
5541:
5542: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5543: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5544:
5538:
5539: WHEN FND_API.G_EXC_ERROR THEN
5540: p_return_status := FND_API.G_RET_STS_ERROR;
5541:
5542: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5543: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5544:
5545: WHEN OTHERS THEN
5546: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5539: WHEN FND_API.G_EXC_ERROR THEN
5540: p_return_status := FND_API.G_RET_STS_ERROR;
5541:
5542: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5543: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5544:
5545: WHEN OTHERS THEN
5546: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5547:
5542: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5543: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5544:
5545: WHEN OTHERS THEN
5546: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5547:
5548: END Create_Salary_Dist_Pos;
5549: /*---------------------------------------------------------------------------*/
5550:
5553: | PROCEDURE Populate_Position_Information |
5554: +===========================================================================*/
5555: PROCEDURE Populate_Position_Information
5556: ( p_api_version IN NUMBER,
5557: p_init_msg_lISt IN VARCHAR2 := FND_API.G_FALSE,
5558: p_commit IN VARCHAR2 := FND_API.G_FALSE,
5559: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
5560: p_return_status OUT NOCOPY VARCHAR2,
5561: p_msg_count OUT NOCOPY NUMBER,
5554: +===========================================================================*/
5555: PROCEDURE Populate_Position_Information
5556: ( p_api_version IN NUMBER,
5557: p_init_msg_lISt IN VARCHAR2 := FND_API.G_FALSE,
5558: p_commit IN VARCHAR2 := FND_API.G_FALSE,
5559: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
5560: p_return_status OUT NOCOPY VARCHAR2,
5561: p_msg_count OUT NOCOPY NUMBER,
5562: p_msg_data OUT NOCOPY VARCHAR2,
5555: PROCEDURE Populate_Position_Information
5556: ( p_api_version IN NUMBER,
5557: p_init_msg_lISt IN VARCHAR2 := FND_API.G_FALSE,
5558: p_commit IN VARCHAR2 := FND_API.G_FALSE,
5559: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
5560: p_return_status OUT NOCOPY VARCHAR2,
5561: p_msg_count OUT NOCOPY NUMBER,
5562: p_msg_data OUT NOCOPY VARCHAR2,
5563: p_data_extract_id IN NUMBER,
5799:
5800: BEGIN
5801: --
5802: Savepoint Populate_Position;
5803: IF NOT FND_API.Compatible_API_Call (l_api_version,
5804: p_api_version,
5805: l_api_name,
5806: G_PKG_NAME)
5807: THEN
5804: p_api_version,
5805: l_api_name,
5806: G_PKG_NAME)
5807: THEN
5808: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5809: END IF;
5810: --
5811: IF FND_API.to_Boolean (p_init_msg_lISt) THEN
5812: FND_MSG_PUB.initialize;
5807: THEN
5808: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5809: END IF;
5810: --
5811: IF FND_API.to_Boolean (p_init_msg_lISt) THEN
5812: FND_MSG_PUB.initialize;
5813: END IF;
5814: p_return_status := FND_API.G_RET_STS_SUCCESS;
5815:
5810: --
5811: IF FND_API.to_Boolean (p_init_msg_lISt) THEN
5812: FND_MSG_PUB.initialize;
5813: END IF;
5814: p_return_status := FND_API.G_RET_STS_SUCCESS;
5815:
5816: -- for bug 4213882
5817: PSB_HR_POPULATE_DATA_PVT.g_extract_method := p_extract_method;
5818: PSB_HR_POPULATE_DATA_PVT.g_pop_assignment := 'Y';
5837: p_data_extract_id,
5838: p_extract_by_org
5839: ) ;
5840: --
5841: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5842: RAISE FND_API.G_EXC_ERROR;
5843: END IF;
5844: --
5845: END IF;
5838: p_extract_by_org
5839: ) ;
5840: --
5841: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5842: RAISE FND_API.G_EXC_ERROR;
5843: END IF;
5844: --
5845: END IF;
5846:
5854: p_status => l_status,
5855: p_restart_id => l_restart_hr_position_id
5856: ) ;
5857: --
5858: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5859: RAISE FND_API.G_EXC_ERROR;
5860: END IF;
5861:
5862: -- SR:For testing only.
5855: p_restart_id => l_restart_hr_position_id
5856: ) ;
5857: --
5858: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5859: RAISE FND_API.G_EXC_ERROR;
5860: END IF;
5861:
5862: -- SR:For testing only.
5863: -- l_status := 'I'; l_restart_hr_position_id := 0;
6017: --rest of the data remains same.
6018: PSB_POSITIONS_PVT.UPDATE_ROW
6019: (
6020: p_api_version => 1.0,
6021: p_init_msg_lISt => FND_API.G_FALSE,
6022: p_commit => FND_API.G_FALSE,
6023: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6024: p_return_status => l_return_status,
6025: p_msg_count => l_msg_count,
6018: PSB_POSITIONS_PVT.UPDATE_ROW
6019: (
6020: p_api_version => 1.0,
6021: p_init_msg_lISt => FND_API.G_FALSE,
6022: p_commit => FND_API.G_FALSE,
6023: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6024: p_return_status => l_return_status,
6025: p_msg_count => l_msg_count,
6026: p_msg_data => l_msg_data,
6019: (
6020: p_api_version => 1.0,
6021: p_init_msg_lISt => FND_API.G_FALSE,
6022: p_commit => FND_API.G_FALSE,
6023: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6024: p_return_status => l_return_status,
6025: p_msg_count => l_msg_count,
6026: p_msg_data => l_msg_data,
6027: p_position_id => l_position_cache(j).position_id,
6164: p_process => 'PSB Positions',
6165: p_restart_id => prev_hr_position_id
6166: ) ;
6167: --
6168: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6169: raise FND_API.G_EXC_ERROR;
6170: end if;
6171: COMMIT WORK;
6172: l_last_success_flag := 'Y';
6165: p_restart_id => prev_hr_position_id
6166: ) ;
6167: --
6168: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6169: raise FND_API.G_EXC_ERROR;
6170: end if;
6171: COMMIT WORK;
6172: l_last_success_flag := 'Y';
6173: l_hr_position_ctr := 0;
6336: -4712, -4712, 'XXX', null, l_msg, SYSDATE, -1);
6337: /* end bug no 4170600 */
6338:
6339: FND_MSG_PUB.Add;
6340: --RAISE FND_API.G_EXC_ERROR;
6341:
6342: ELSE
6343:
6344: /* For Bug No: 3066598 Start */
6417: -- bug 4551061 added the in parameter p_availability_status
6418: PSB_POSITIONS_PVT.UPDATE_ROW
6419: (
6420: p_api_version => 1.0,
6421: p_init_msg_lISt => FND_API.G_FALSE,
6422: p_commit => FND_API.G_FALSE,
6423: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6424: p_return_status => l_return_status,
6425: p_msg_count => l_msg_count,
6418: PSB_POSITIONS_PVT.UPDATE_ROW
6419: (
6420: p_api_version => 1.0,
6421: p_init_msg_lISt => FND_API.G_FALSE,
6422: p_commit => FND_API.G_FALSE,
6423: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6424: p_return_status => l_return_status,
6425: p_msg_count => l_msg_count,
6426: p_msg_data => l_msg_data,
6419: (
6420: p_api_version => 1.0,
6421: p_init_msg_lISt => FND_API.G_FALSE,
6422: p_commit => FND_API.G_FALSE,
6423: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6424: p_return_status => l_return_status,
6425: p_msg_count => l_msg_count,
6426: p_msg_data => l_msg_data,
6427: p_position_id => l_position_i_cache(i).position_id,
6568: p_employee_id => NULL,
6569: p_primary_employee_flag => NULL
6570: );
6571: --
6572: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6573: RAISE FND_API.G_EXC_ERROR;
6574: END IF;
6575: --
6576:
6569: p_primary_employee_flag => NULL
6570: );
6571: --
6572: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6573: RAISE FND_API.G_EXC_ERROR;
6574: END IF;
6575: --
6576:
6577: /* start bug no 4213882 */
6702: p_modIFy_flag => NULL,
6703: p_mode => 'R'
6704: ) ;
6705: --
6706: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6707: RAISE FND_API.G_EXC_ERROR;
6708: END IF;
6709:
6710: END IF;
6703: p_mode => 'R'
6704: ) ;
6705: --
6706: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6707: RAISE FND_API.G_EXC_ERROR;
6708: END IF;
6709:
6710: END IF;
6711:
6817: p_process => 'PSB Positions',
6818: p_restart_id => prev_hr_position_id
6819: );
6820: --
6821: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6822: raise FND_API.G_EXC_ERROR;
6823: end if;
6824: --
6825: END IF;
6818: p_restart_id => prev_hr_position_id
6819: );
6820: --
6821: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6822: raise FND_API.G_EXC_ERROR;
6823: end if;
6824: --
6825: END IF;
6826:
6836: p_extract_method => p_extract_method,
6837: p_process => 'PSB Positions'
6838: );
6839: --
6840: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6841: RAISE FND_API.G_EXC_ERROR;
6842: END IF;
6843: --
6844: END IF;
6837: p_process => 'PSB Positions'
6838: );
6839: --
6840: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6841: RAISE FND_API.G_EXC_ERROR;
6842: END IF;
6843: --
6844: END IF;
6845:
6852: PSB_HR_POPULATE_DATA_PVT.g_pop_assignment := null;
6853:
6854: EXCEPTION
6855: --
6856: WHEN FND_API.G_EXC_ERROR THEN
6857: --
6858: ROLLBACK to Populate_Position;
6859: p_return_status := FND_API.G_RET_STS_ERROR;
6860: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
6855: --
6856: WHEN FND_API.G_EXC_ERROR THEN
6857: --
6858: ROLLBACK to Populate_Position;
6859: p_return_status := FND_API.G_RET_STS_ERROR;
6860: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
6861: p_data => p_msg_data);
6862: FND_MESSAGE.SET_NAME('PSB', 'PSB_POSITION_DETAILS');
6863: FND_MESSAGE.SET_TOKEN('POSITION_NAME',l_position_name );
6863: FND_MESSAGE.SET_TOKEN('POSITION_NAME',l_position_name );
6864: FND_MESSAGE.SET_TOKEN('EMPLOYEE_NAME',l_employee_name );
6865: FND_MSG_PUB.Add;
6866: --
6867: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6868: ROLLBACK to Populate_Position;
6869: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6870: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
6871: p_data => p_msg_data);
6865: FND_MSG_PUB.Add;
6866: --
6867: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6868: ROLLBACK to Populate_Position;
6869: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6870: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
6871: p_data => p_msg_data);
6872: FND_MESSAGE.SET_NAME('PSB', 'PSB_POSITION_DETAILS');
6873: FND_MESSAGE.SET_TOKEN('POSITION_NAME',l_position_name );
6876: --
6877: WHEN OTHERS THEN
6878: --
6879: ROLLBACK to Populate_Position;
6880: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6881: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
6882: p_data => p_msg_data);
6883:
6884: FND_MESSAGE.SET_NAME('PSB', 'PSB_POSITION_DETAILS');
6899:
6900: /* ----------------------------------------------------------------------- */
6901: PROCEDURE Populate_Employee_Information
6902: ( p_api_version IN NUMBER,
6903: p_init_msg_lISt IN VARCHAR2 := FND_API.G_FALSE,
6904: p_commit IN VARCHAR2 := FND_API.G_FALSE,
6905: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
6906: p_return_status OUT NOCOPY VARCHAR2,
6907: p_msg_count OUT NOCOPY NUMBER,
6900: /* ----------------------------------------------------------------------- */
6901: PROCEDURE Populate_Employee_Information
6902: ( p_api_version IN NUMBER,
6903: p_init_msg_lISt IN VARCHAR2 := FND_API.G_FALSE,
6904: p_commit IN VARCHAR2 := FND_API.G_FALSE,
6905: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
6906: p_return_status OUT NOCOPY VARCHAR2,
6907: p_msg_count OUT NOCOPY NUMBER,
6908: p_msg_data OUT NOCOPY VARCHAR2,
6901: PROCEDURE Populate_Employee_Information
6902: ( p_api_version IN NUMBER,
6903: p_init_msg_lISt IN VARCHAR2 := FND_API.G_FALSE,
6904: p_commit IN VARCHAR2 := FND_API.G_FALSE,
6905: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
6906: p_return_status OUT NOCOPY VARCHAR2,
6907: p_msg_count OUT NOCOPY NUMBER,
6908: p_msg_data OUT NOCOPY VARCHAR2,
6909: p_data_extract_id IN NUMBER,
7131: l_created_BY := FND_GLOBAL.USER_ID;
7132:
7133: -- StANDard call to check FOR call compatibility.
7134:
7135: IF NOT FND_API.Compatible_API_Call (l_api_version,
7136: p_api_version,
7137: l_api_name,
7138: G_PKG_NAME)
7139: THEN
7136: p_api_version,
7137: l_api_name,
7138: G_PKG_NAME)
7139: THEN
7140: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7141: END IF;
7142:
7143: -- Initialize message lISt IF p_init_msg_lISt IS set to TRUE.
7144:
7141: END IF;
7142:
7143: -- Initialize message lISt IF p_init_msg_lISt IS set to TRUE.
7144:
7145: IF FND_API.to_Boolean (p_init_msg_lISt) THEN
7146: FND_MSG_PUB.initialize;
7147: END IF;
7148:
7149: -- Initialize API return status to success
7147: END IF;
7148:
7149: -- Initialize API return status to success
7150:
7151: p_return_status := FND_API.G_RET_STS_SUCCESS;
7152:
7153: -- API body
7154:
7155: -- de by org
7166: p_data_extract_id,
7167: p_extract_by_org
7168: );
7169:
7170: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7171: RAISE FND_API.G_EXC_ERROR;
7172: END IF;
7173:
7174: END IF;
7167: p_extract_by_org
7168: );
7169:
7170: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7171: RAISE FND_API.G_EXC_ERROR;
7172: END IF;
7173:
7174: END IF;
7175:
7185: p_status => l_status,
7186: p_restart_id => l_restart_hr_position_id
7187: );
7188:
7189: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7190: RAISE FND_API.G_EXC_ERROR;
7191: END IF;
7192:
7193: IF (l_status = 'I') THEN
7186: p_restart_id => l_restart_hr_position_id
7187: );
7188:
7189: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7190: RAISE FND_API.G_EXC_ERROR;
7191: END IF;
7192:
7193: IF (l_status = 'I') THEN
7194:
7259: p_extract_method => p_extract_method,
7260: p_process => 'PSB Employees',
7261: p_restart_id => prev_hr_position_id
7262: );
7263: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7264: raise FND_API.G_EXC_ERROR;
7265: end if;
7266: commit work;
7267: l_hr_position_ctr := 0;
7260: p_process => 'PSB Employees',
7261: p_restart_id => prev_hr_position_id
7262: );
7263: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7264: raise FND_API.G_EXC_ERROR;
7265: end if;
7266: commit work;
7267: l_hr_position_ctr := 0;
7268: Savepoint Populate_Employee;
7370: p_created_BY => l_created_BY,
7371: p_creation_DATE => l_creation_DATE
7372: );
7373:
7374: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7375: RAISE FND_API.G_EXC_ERROR;
7376: END IF;
7377:
7378: END IF; -- Check IF (ln_pay_element_id = 0) to create a pay element.
7371: p_creation_DATE => l_creation_DATE
7372: );
7373:
7374: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7375: RAISE FND_API.G_EXC_ERROR;
7376: END IF;
7377:
7378: END IF; -- Check IF (ln_pay_element_id = 0) to create a pay element.
7379:
7510: p_employee_id => l_pos_assignment_rec.employee_id,
7511: p_primary_employee_flag => 'Y'
7512: );
7513:
7514: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7515: RAISE FND_API.G_EXC_ERROR;
7516: END IF;
7517:
7518: END LOOP; -- END upDATE position related assignment.
7511: p_primary_employee_flag => 'Y'
7512: );
7513:
7514: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7515: RAISE FND_API.G_EXC_ERROR;
7516: END IF;
7517:
7518: END LOOP; -- END upDATE position related assignment.
7519:
7579: p_modIFy_flag => NULL,
7580: p_mode => 'R'
7581: ) ;
7582:
7583: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7584: RAISE FND_API.G_EXC_ERROR;
7585: END IF;
7586:
7587: END LOOP; -- END refreshing position element assignments.
7580: p_mode => 'R'
7581: ) ;
7582:
7583: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7584: RAISE FND_API.G_EXC_ERROR;
7585: END IF;
7586:
7587: END LOOP; -- END refreshing position element assignments.
7588:
7673: p_modIFy_flag => NULL,
7674: p_mode => 'R'
7675: ) ;
7676:
7677: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7678: RAISE FND_API.G_EXC_ERROR;
7679: END IF;
7680:
7681: END IF; -- END creating 'EMPLOYEE' assignments in 'CREATE' mode.
7674: p_mode => 'R'
7675: ) ;
7676:
7677: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7678: RAISE FND_API.G_EXC_ERROR;
7679: END IF;
7680:
7681: END IF; -- END creating 'EMPLOYEE' assignments in 'CREATE' mode.
7682:
7724: p_modIFy_flag => NULL,
7725: p_mode => 'R'
7726: ) ;
7727:
7728: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7729: RAISE FND_API.G_EXC_ERROR;
7730: END IF;
7731:
7732: END IF; -- END creating 'ELEMENT' type assignments in 'CREATE' mode..
7725: p_mode => 'R'
7726: ) ;
7727:
7728: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7729: RAISE FND_API.G_EXC_ERROR;
7730: END IF;
7731:
7732: END IF; -- END creating 'ELEMENT' type assignments in 'CREATE' mode..
7733:
7773: p_extract_method => p_extract_method,
7774: p_process => 'PSB Employees',
7775: p_restart_id => prev_hr_position_id
7776: );
7777: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7778: raise FND_API.G_EXC_ERROR;
7779: end if;
7780:
7781: PSB_HR_EXTRACT_DATA_PVT.Reentrant_Process
7774: p_process => 'PSB Employees',
7775: p_restart_id => prev_hr_position_id
7776: );
7777: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7778: raise FND_API.G_EXC_ERROR;
7779: end if;
7780:
7781: PSB_HR_EXTRACT_DATA_PVT.Reentrant_Process
7782: ( p_api_version => 1.0 ,
7787: p_extract_method => p_extract_method,
7788: p_process => 'PSB Employees'
7789: );
7790:
7791: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7792: RAISE FND_API.G_EXC_ERROR;
7793: END IF;
7794:
7795: commit work;
7788: p_process => 'PSB Employees'
7789: );
7790:
7791: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7792: RAISE FND_API.G_EXC_ERROR;
7793: END IF;
7794:
7795: commit work;
7796:
7799: -- END of API body.
7800:
7801: EXCEPTION
7802:
7803: WHEN FND_API.G_EXC_ERROR THEN
7804: ROLLBACK to Populate_Employee;
7805: p_return_status := FND_API.G_RET_STS_ERROR;
7806: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
7807: p_data => p_msg_data);
7801: EXCEPTION
7802:
7803: WHEN FND_API.G_EXC_ERROR THEN
7804: ROLLBACK to Populate_Employee;
7805: p_return_status := FND_API.G_RET_STS_ERROR;
7806: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
7807: p_data => p_msg_data);
7808: FND_MESSAGE.SET_NAME('PSB', 'PSB_POSITION_DETAILS');
7809: FND_MESSAGE.SET_TOKEN('POSITION_NAME',l_position_name );
7809: FND_MESSAGE.SET_TOKEN('POSITION_NAME',l_position_name );
7810: FND_MESSAGE.SET_TOKEN('EMPLOYEE_NAME',l_employee_name );
7811: FND_MSG_PUB.Add;
7812:
7813: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7814: ROLLBACK to Populate_Employee;
7815: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7816: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
7817: p_data => p_msg_data);
7811: FND_MSG_PUB.Add;
7812:
7813: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7814: ROLLBACK to Populate_Employee;
7815: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7816: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
7817: p_data => p_msg_data);
7818: FND_MESSAGE.SET_NAME('PSB', 'PSB_POSITION_DETAILS');
7819: FND_MESSAGE.SET_TOKEN('POSITION_NAME',l_position_name );
7821: FND_MSG_PUB.Add;
7822:
7823: WHEN OTHERS THEN
7824: ROLLBACK to Populate_Employee;
7825: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7826: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
7827: p_data => p_msg_data);
7828:
7829: FND_MESSAGE.SET_NAME('PSB', 'PSB_POSITION_DETAILS');
7844: /* ----------------------------------------------------------------------- */
7845:
7846: PROCEDURE Populate_Element_Information
7847: ( p_api_version IN NUMBER,
7848: p_init_msg_lISt IN VARCHAR2 := FND_API.G_FALSE,
7849: p_commit IN VARCHAR2 := FND_API.G_FALSE,
7850: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
7851: p_return_status OUT NOCOPY VARCHAR2,
7852: p_msg_count OUT NOCOPY NUMBER,
7845:
7846: PROCEDURE Populate_Element_Information
7847: ( p_api_version IN NUMBER,
7848: p_init_msg_lISt IN VARCHAR2 := FND_API.G_FALSE,
7849: p_commit IN VARCHAR2 := FND_API.G_FALSE,
7850: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
7851: p_return_status OUT NOCOPY VARCHAR2,
7852: p_msg_count OUT NOCOPY NUMBER,
7853: p_msg_data OUT NOCOPY VARCHAR2,
7846: PROCEDURE Populate_Element_Information
7847: ( p_api_version IN NUMBER,
7848: p_init_msg_lISt IN VARCHAR2 := FND_API.G_FALSE,
7849: p_commit IN VARCHAR2 := FND_API.G_FALSE,
7850: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
7851: p_return_status OUT NOCOPY VARCHAR2,
7852: p_msg_count OUT NOCOPY NUMBER,
7853: p_msg_data OUT NOCOPY VARCHAR2,
7854: p_data_extract_id IN NUMBER,
7940: l_creation_DATE := sysDATE;
7941: l_created_BY := FND_GLOBAL.USER_ID;
7942:
7943:
7944: IF NOT FND_API.Compatible_API_Call (l_api_version,
7945: p_api_version,
7946: l_api_name,
7947: G_PKG_NAME)
7948: THEN
7945: p_api_version,
7946: l_api_name,
7947: G_PKG_NAME)
7948: THEN
7949: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7950: END IF;
7951:
7952:
7953: -- Initialize message lISt IF p_init_msg_lISt IS set to TRUE.
7951:
7952:
7953: -- Initialize message lISt IF p_init_msg_lISt IS set to TRUE.
7954:
7955: IF FND_API.to_Boolean (p_init_msg_lISt) THEN
7956: FND_MSG_PUB.initialize;
7957: END IF;
7958:
7959: -- Initialize API return status to success
7956: FND_MSG_PUB.initialize;
7957: END IF;
7958:
7959: -- Initialize API return status to success
7960: p_return_status := FND_API.G_RET_STS_SUCCESS;
7961:
7962: -- API body
7963:
7964:
7972: p_status => l_status,
7973: p_restart_id => l_restart_salary_id
7974: );
7975:
7976: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7977: RAISE FND_API.G_EXC_ERROR;
7978: END IF;
7979:
7980: IF (l_status = 'I') THEN
7973: p_restart_id => l_restart_salary_id
7974: );
7975:
7976: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7977: RAISE FND_API.G_EXC_ERROR;
7978: END IF;
7979:
7980: IF (l_status = 'I') THEN
7981: FOR C_currency_rec in C_currency
8011: p_process => 'PSB Elements',
8012: p_restart_id => prev_rate_or_payscale_id
8013: );
8014:
8015: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8016: raise FND_API.G_EXC_ERROR;
8017: end if;
8018: commit work;
8019: l_salary_ctr := 0;
8012: p_restart_id => prev_rate_or_payscale_id
8013: );
8014:
8015: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8016: raise FND_API.G_EXC_ERROR;
8017: end if;
8018: commit work;
8019: l_salary_ctr := 0;
8020: Savepoint Populate_Element;
8084: p_last_upDATEd_BY => l_last_upDATEd_BY,
8085: p_last_upDATE_login => l_last_upDATE_login
8086: );
8087:
8088: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8089: RAISE FND_API.G_EXC_ERROR;
8090: END IF;
8091: END IF;
8092:
8085: p_last_upDATE_login => l_last_upDATE_login
8086: );
8087:
8088: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8089: RAISE FND_API.G_EXC_ERROR;
8090: END IF;
8091: END IF;
8092:
8093: lr_grade_name := C_Element_Rec.grade_name;
8119: p_last_upDATEd_BY => l_last_upDATEd_BY,
8120: p_last_upDATE_login => l_last_upDATE_login
8121: );
8122:
8123: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8124: RAISE FND_API.G_EXC_ERROR;
8125: END IF;
8126: END LOOP;
8127: END IF;
8120: p_last_upDATE_login => l_last_upDATE_login
8121: );
8122:
8123: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8124: RAISE FND_API.G_EXC_ERROR;
8125: END IF;
8126: END LOOP;
8127: END IF;
8128:
8148: p_last_upDATEd_BY => l_last_upDATEd_BY,
8149: p_last_upDATE_login => l_last_upDATE_login
8150: );
8151:
8152: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8153: RAISE FND_API.G_EXC_ERROR;
8154: END IF;
8155: END LOOP;
8156: END IF;
8149: p_last_upDATE_login => l_last_upDATE_login
8150: );
8151:
8152: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8153: RAISE FND_API.G_EXC_ERROR;
8154: END IF;
8155: END LOOP;
8156: END IF;
8157:
8204: p_minimum_value => C_Element_Rec.minimum_value,
8205: p_currency_code => l_currency_code
8206: );
8207:
8208: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8209: RAISE FND_API.G_EXC_ERROR;
8210: END IF;
8211: END LOOP;
8212: END IF;
8205: p_currency_code => l_currency_code
8206: );
8207:
8208: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8209: RAISE FND_API.G_EXC_ERROR;
8210: END IF;
8211: END LOOP;
8212: END IF;
8213:
8269: p_created_BY => l_created_BY,
8270: p_creation_DATE => l_creation_DATE
8271: );
8272:
8273: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8274: RAISE FND_API.G_EXC_ERROR;
8275: END IF;
8276: END IF;
8277:
8270: p_creation_DATE => l_creation_DATE
8271: );
8272:
8273: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8274: RAISE FND_API.G_EXC_ERROR;
8275: END IF;
8276: END IF;
8277:
8278: Select psb_pay_element_options_s.nextval
8298: p_created_BY => l_created_BY,
8299: p_creation_DATE => l_creation_DATE
8300: );
8301:
8302: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8303: RAISE FND_API.G_EXC_ERROR;
8304: END IF;
8305:
8306:
8299: p_creation_DATE => l_creation_DATE
8300: );
8301:
8302: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8303: RAISE FND_API.G_EXC_ERROR;
8304: END IF;
8305:
8306:
8307: Select psb_pay_element_rates_s.nextval
8336: p_created_BY => l_created_BY,
8337: p_creation_DATE => l_creation_DATE
8338: ) ;
8339:
8340: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8341: RAISE FND_API.G_EXC_ERROR;
8342: END IF;
8343: END IF;
8344:
8337: p_creation_DATE => l_creation_DATE
8338: ) ;
8339:
8340: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8341: RAISE FND_API.G_EXC_ERROR;
8342: END IF;
8343: END IF;
8344:
8345: prev_rate_or_payscale_id := C_Element_Rec.rate_or_payscale_id;
8356: p_process => 'PSB Elements',
8357: p_restart_id => prev_rate_or_payscale_id
8358: );
8359:
8360: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8361: raise FND_API.G_EXC_ERROR;
8362: end if;
8363:
8364: PSB_HR_EXTRACT_DATA_PVT.Reentrant_Process
8357: p_restart_id => prev_rate_or_payscale_id
8358: );
8359:
8360: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8361: raise FND_API.G_EXC_ERROR;
8362: end if;
8363:
8364: PSB_HR_EXTRACT_DATA_PVT.Reentrant_Process
8365: ( p_api_version => 1.0 ,
8370: p_extract_method => p_extract_method,
8371: p_process => 'PSB Elements'
8372: );
8373:
8374: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8375: RAISE FND_API.G_EXC_ERROR;
8376: END IF;
8377:
8378: commit work;
8371: p_process => 'PSB Elements'
8372: );
8373:
8374: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8375: RAISE FND_API.G_EXC_ERROR;
8376: END IF;
8377:
8378: commit work;
8379: END IF;
8380: -- END of API body.
8381:
8382: EXCEPTION
8383:
8384: WHEN FND_API.G_EXC_ERROR THEN
8385: ROLLBACK to Populate_Element;
8386: p_return_status := FND_API.G_RET_STS_ERROR;
8387: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
8388: p_data => p_msg_data);
8382: EXCEPTION
8383:
8384: WHEN FND_API.G_EXC_ERROR THEN
8385: ROLLBACK to Populate_Element;
8386: p_return_status := FND_API.G_RET_STS_ERROR;
8387: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
8388: p_data => p_msg_data);
8389: FND_MESSAGE.SET_NAME('PSB', 'PSB_SALARY_DETAILS');
8390: FND_MESSAGE.SET_TOKEN('SALARY_TYPE',lm_salary_type );
8393: FND_MESSAGE.SET_TOKEN('GRADE_STEP',lm_grade_step );
8394: FND_MESSAGE.SET_TOKEN('GRADE_SEQUENCE',lm_sequence_number);
8395: FND_MSG_PUB.Add;
8396:
8397: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8398: ROLLBACK to Populate_Element;
8399: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8400: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
8401: p_data => p_msg_data);
8395: FND_MSG_PUB.Add;
8396:
8397: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8398: ROLLBACK to Populate_Element;
8399: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8400: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
8401: p_data => p_msg_data);
8402: FND_MESSAGE.SET_NAME('PSB', 'PSB_SALARY_DETAILS');
8403: FND_MESSAGE.SET_TOKEN('SALARY_TYPE',lm_salary_type );
8408: FND_MSG_PUB.Add;
8409:
8410: WHEN OTHERS THEN
8411: ROLLBACK to Populate_Element;
8412: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8413: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
8414: p_data => p_msg_data);
8415:
8416: FND_MESSAGE.SET_NAME('PSB', 'PSB_SALARY_DETAILS');
8459: /* ----------------------------------------------------------------------- */
8460:
8461: PROCEDURE Populate_Attribute_Values
8462: ( p_api_version IN NUMBER,
8463: p_init_msg_lISt IN VARCHAR2 := FND_API.G_FALSE,
8464: p_commit IN VARCHAR2 := FND_API.G_FALSE,
8465: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
8466: p_return_status OUT NOCOPY VARCHAR2,
8467: p_msg_count OUT NOCOPY NUMBER,
8460:
8461: PROCEDURE Populate_Attribute_Values
8462: ( p_api_version IN NUMBER,
8463: p_init_msg_lISt IN VARCHAR2 := FND_API.G_FALSE,
8464: p_commit IN VARCHAR2 := FND_API.G_FALSE,
8465: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
8466: p_return_status OUT NOCOPY VARCHAR2,
8467: p_msg_count OUT NOCOPY NUMBER,
8468: p_msg_data OUT NOCOPY VARCHAR2,
8461: PROCEDURE Populate_Attribute_Values
8462: ( p_api_version IN NUMBER,
8463: p_init_msg_lISt IN VARCHAR2 := FND_API.G_FALSE,
8464: p_commit IN VARCHAR2 := FND_API.G_FALSE,
8465: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
8466: p_return_status OUT NOCOPY VARCHAR2,
8467: p_msg_count OUT NOCOPY NUMBER,
8468: p_msg_data OUT NOCOPY VARCHAR2,
8469: p_data_extract_id IN NUMBER,
8523: l_creation_DATE := sysDATE;
8524: l_created_BY := FND_GLOBAL.USER_ID;
8525:
8526:
8527: IF NOT FND_API.Compatible_API_Call (l_api_version,
8528: p_api_version,
8529: l_api_name,
8530: G_PKG_NAME)
8531: THEN
8528: p_api_version,
8529: l_api_name,
8530: G_PKG_NAME)
8531: THEN
8532: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8533: END IF;
8534:
8535: -- Initialize message lISt IF p_init_msg_lISt IS set to TRUE.
8536:
8533: END IF;
8534:
8535: -- Initialize message lISt IF p_init_msg_lISt IS set to TRUE.
8536:
8537: IF FND_API.to_Boolean (p_init_msg_lISt) THEN
8538: FND_MSG_PUB.initialize;
8539: END IF;
8540:
8541: -- Initialize API return status to success
8539: END IF;
8540:
8541: -- Initialize API return status to success
8542:
8543: p_return_status := FND_API.G_RET_STS_SUCCESS;
8544:
8545: -- API body
8546: PSB_HR_EXTRACT_DATA_PVT.Check_Reentry
8547: (p_api_version => 1.0 ,
8553: p_status => l_status,
8554: p_restart_id => l_restart_attribute_value_id
8555: );
8556:
8557: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8558: RAISE FND_API.G_EXC_ERROR;
8559: END IF;
8560:
8561: IF (l_status = 'I') THEN
8554: p_restart_id => l_restart_attribute_value_id
8555: );
8556:
8557: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8558: RAISE FND_API.G_EXC_ERROR;
8559: END IF;
8560:
8561: IF (l_status = 'I') THEN
8562:
8766: p_process => 'PSB Attribute Values',
8767: p_restart_id => C_Attribute_Rec.attribute_value_id
8768: );
8769:
8770: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8771: raise FND_API.G_EXC_ERROR;
8772: end if;
8773: commit work;
8774: Savepoint Populate_Attributes;
8767: p_restart_id => C_Attribute_Rec.attribute_value_id
8768: );
8769:
8770: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8771: raise FND_API.G_EXC_ERROR;
8772: end if;
8773: commit work;
8774: Savepoint Populate_Attributes;
8775: l_attr_val_ctr := 0;
8787: p_process => 'PSB Attribute Values',
8788: p_restart_id => l_fin_attribute_value_id
8789: );
8790:
8791: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8792: raise FND_API.G_EXC_ERROR;
8793: end if;
8794:
8795: PSB_HR_EXTRACT_DATA_PVT.Reentrant_Process
8788: p_restart_id => l_fin_attribute_value_id
8789: );
8790:
8791: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8792: raise FND_API.G_EXC_ERROR;
8793: end if;
8794:
8795: PSB_HR_EXTRACT_DATA_PVT.Reentrant_Process
8796: ( p_api_version => 1.0 ,
8801: p_extract_method => p_extract_method,
8802: p_process => 'PSB Attribute Values'
8803: );
8804:
8805: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8806: RAISE FND_API.G_EXC_ERROR;
8807: END IF;
8808:
8809: commit work;
8802: p_process => 'PSB Attribute Values'
8803: );
8804:
8805: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8806: RAISE FND_API.G_EXC_ERROR;
8807: END IF;
8808:
8809: commit work;
8810:
8812: -- END of API body.
8813:
8814: EXCEPTION
8815:
8816: WHEN FND_API.G_EXC_ERROR THEN
8817: ROLLBACK to Populate_Attributes;
8818: p_return_status := FND_API.G_RET_STS_ERROR;
8819: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
8820: p_data => p_msg_data);
8814: EXCEPTION
8815:
8816: WHEN FND_API.G_EXC_ERROR THEN
8817: ROLLBACK to Populate_Attributes;
8818: p_return_status := FND_API.G_RET_STS_ERROR;
8819: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
8820: p_data => p_msg_data);
8821: FND_MESSAGE.SET_NAME('PSB','PSB_ATTRIBUTE_NAME');
8822: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME',l_attribute_name);
8822: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME',l_attribute_name);
8823: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_VALUE',l_attribute_value);
8824: FND_MSG_PUB.Add;
8825:
8826: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8827: ROLLBACK to Populate_Attributes;
8828: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8829: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
8830: p_data => p_msg_data);
8824: FND_MSG_PUB.Add;
8825:
8826: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8827: ROLLBACK to Populate_Attributes;
8828: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8829: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
8830: p_data => p_msg_data);
8831: FND_MESSAGE.SET_NAME('PSB','PSB_ATTRIBUTE_NAME');
8832: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME',l_attribute_name);
8834: FND_MSG_PUB.Add;
8835:
8836: WHEN OTHERS THEN
8837: ROLLBACK to Populate_Attributes;
8838: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8839: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
8840: p_data => p_msg_data);
8841:
8842: FND_MESSAGE.SET_NAME('PSB','PSB_ATTRIBUTE_NAME');
8857: /* ----------------------------------------------------------------------- */
8858:
8859: PROCEDURE Populate_Costing_Information
8860: ( p_api_version IN NUMBER,
8861: p_init_msg_lISt IN VARCHAR2 := FND_API.G_FALSE,
8862: p_commit IN VARCHAR2 := FND_API.G_FALSE,
8863: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
8864: p_return_status OUT NOCOPY VARCHAR2,
8865: p_msg_count OUT NOCOPY NUMBER,
8858:
8859: PROCEDURE Populate_Costing_Information
8860: ( p_api_version IN NUMBER,
8861: p_init_msg_lISt IN VARCHAR2 := FND_API.G_FALSE,
8862: p_commit IN VARCHAR2 := FND_API.G_FALSE,
8863: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
8864: p_return_status OUT NOCOPY VARCHAR2,
8865: p_msg_count OUT NOCOPY NUMBER,
8866: p_msg_data OUT NOCOPY VARCHAR2,
8859: PROCEDURE Populate_Costing_Information
8860: ( p_api_version IN NUMBER,
8861: p_init_msg_lISt IN VARCHAR2 := FND_API.G_FALSE,
8862: p_commit IN VARCHAR2 := FND_API.G_FALSE,
8863: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
8864: p_return_status OUT NOCOPY VARCHAR2,
8865: p_msg_count OUT NOCOPY NUMBER,
8866: p_msg_data OUT NOCOPY VARCHAR2,
8867: p_data_extract_id IN NUMBER,
8882: Begin
8883:
8884: Savepoint Populate_Costing;
8885:
8886: IF NOT FND_API.Compatible_API_Call (l_api_version,
8887: p_api_version,
8888: l_api_name,
8889: G_PKG_NAME)
8890: THEN
8887: p_api_version,
8888: l_api_name,
8889: G_PKG_NAME)
8890: THEN
8891: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8892: END IF;
8893:
8894: -- Initialize message lISt IF p_init_msg_lISt IS set to TRUE.
8895:
8892: END IF;
8893:
8894: -- Initialize message lISt IF p_init_msg_lISt IS set to TRUE.
8895:
8896: IF FND_API.to_Boolean (p_init_msg_lISt) THEN
8897: FND_MSG_PUB.initialize;
8898: END IF;
8899:
8900: -- Initialize API return status to success
8898: END IF;
8899:
8900: -- Initialize API return status to success
8901:
8902: p_return_status := FND_API.G_RET_STS_SUCCESS;
8903:
8904: -- API body
8905:
8906: PSB_HR_EXTRACT_DATA_PVT.Check_Reentry
8913: p_status => l_status,
8914: p_restart_id => l_restart_position_id
8915: );
8916:
8917: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8918: RAISE FND_API.G_EXC_ERROR;
8919: END IF;
8920:
8921: IF (l_status = 'I') THEN
8914: p_restart_id => l_restart_position_id
8915: );
8916:
8917: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8918: RAISE FND_API.G_EXC_ERROR;
8919: END IF;
8920:
8921: IF (l_status = 'I') THEN
8922: --
8929: -- de by org
8930: p_extract_by_org => p_extract_by_org
8931: );
8932:
8933: IF (l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
8934: --
8935: PSB_HR_EXTRACT_DATA_PVT.Reentrant_Process
8936: ( p_api_version => 1.0 ,
8937: p_return_status => l_return_status,
8941: p_extract_method => p_extract_method,
8942: p_process => 'PSB Costing'
8943: );
8944:
8945: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8946: RAISE FND_API.G_EXC_ERROR;
8947: END IF;
8948: else
8949: RAISE FND_API.G_EXC_ERROR;
8942: p_process => 'PSB Costing'
8943: );
8944:
8945: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8946: RAISE FND_API.G_EXC_ERROR;
8947: END IF;
8948: else
8949: RAISE FND_API.G_EXC_ERROR;
8950: END IF;
8945: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8946: RAISE FND_API.G_EXC_ERROR;
8947: END IF;
8948: else
8949: RAISE FND_API.G_EXC_ERROR;
8950: END IF;
8951: commit work;
8952: END IF;
8953:
8952: END IF;
8953:
8954: EXCEPTION
8955:
8956: WHEN FND_API.G_EXC_ERROR THEN
8957: ROLLBACK to Populate_Costing;
8958: p_return_status := FND_API.G_RET_STS_ERROR;
8959: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
8960: p_data => p_msg_data);
8954: EXCEPTION
8955:
8956: WHEN FND_API.G_EXC_ERROR THEN
8957: ROLLBACK to Populate_Costing;
8958: p_return_status := FND_API.G_RET_STS_ERROR;
8959: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
8960: p_data => p_msg_data);
8961:
8962: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8958: p_return_status := FND_API.G_RET_STS_ERROR;
8959: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
8960: p_data => p_msg_data);
8961:
8962: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8963: ROLLBACK to Populate_Costing;
8964: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8965: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
8966: p_data => p_msg_data);
8960: p_data => p_msg_data);
8961:
8962: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8963: ROLLBACK to Populate_Costing;
8964: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8965: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
8966: p_data => p_msg_data);
8967:
8968: WHEN OTHERS THEN
8966: p_data => p_msg_data);
8967:
8968: WHEN OTHERS THEN
8969: ROLLBACK to Populate_Costing;
8970: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8971: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
8972: p_data => p_msg_data);
8973:
8974: IF FND_MSG_PUB.Check_Msg_Level
8984: /* ----------------------------------------------------------------------- */
8985:
8986: PROCEDURE Populate_Pos_Assignments
8987: ( p_api_version IN NUMBER,
8988: p_init_msg_lISt IN VARCHAR2 := FND_API.G_FALSE,
8989: p_commit IN VARCHAR2 := FND_API.G_FALSE,
8990: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
8991: p_return_status OUT NOCOPY VARCHAR2,
8992: p_msg_count OUT NOCOPY NUMBER,
8985:
8986: PROCEDURE Populate_Pos_Assignments
8987: ( p_api_version IN NUMBER,
8988: p_init_msg_lISt IN VARCHAR2 := FND_API.G_FALSE,
8989: p_commit IN VARCHAR2 := FND_API.G_FALSE,
8990: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
8991: p_return_status OUT NOCOPY VARCHAR2,
8992: p_msg_count OUT NOCOPY NUMBER,
8993: p_msg_data OUT NOCOPY VARCHAR2,
8986: PROCEDURE Populate_Pos_Assignments
8987: ( p_api_version IN NUMBER,
8988: p_init_msg_lISt IN VARCHAR2 := FND_API.G_FALSE,
8989: p_commit IN VARCHAR2 := FND_API.G_FALSE,
8990: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
8991: p_return_status OUT NOCOPY VARCHAR2,
8992: p_msg_count OUT NOCOPY NUMBER,
8993: p_msg_data OUT NOCOPY VARCHAR2,
8994: p_data_extract_id IN NUMBER,
9073: -- initialize the packaged varible with the extract method.
9074: PSB_HR_POPULATE_DATA_PVT.g_extract_method := p_extract_method;
9075: /* end bug 4153562 */
9076:
9077: IF NOT FND_API.Compatible_API_Call (l_api_version,
9078: p_api_version,
9079: l_api_name,
9080: G_PKG_NAME)
9081: THEN
9078: p_api_version,
9079: l_api_name,
9080: G_PKG_NAME)
9081: THEN
9082: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9083: END IF;
9084:
9085: -- Initialize message lISt IF p_init_msg_lISt IS set to TRUE.
9086:
9083: END IF;
9084:
9085: -- Initialize message lISt IF p_init_msg_lISt IS set to TRUE.
9086:
9087: IF FND_API.to_Boolean (p_init_msg_lISt) THEN
9088: FND_MSG_PUB.initialize;
9089: END IF;
9090:
9091: -- Initialize API return status to success
9089: END IF;
9090:
9091: -- Initialize API return status to success
9092:
9093: p_return_status := FND_API.G_RET_STS_SUCCESS;
9094:
9095: -- API body
9096:
9097: -- de by org
9108: p_data_extract_id,
9109: p_extract_by_org
9110: );
9111:
9112: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9113: RAISE FND_API.G_EXC_ERROR;
9114: END IF;
9115: END IF;
9116:
9109: p_extract_by_org
9110: );
9111:
9112: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9113: RAISE FND_API.G_EXC_ERROR;
9114: END IF;
9115: END IF;
9116:
9117:
9125: p_status => l_status,
9126: p_restart_id => l_restart_hr_position_id
9127: );
9128:
9129: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9130: RAISE FND_API.G_EXC_ERROR;
9131: END IF;
9132:
9133: IF (l_status = 'I') THEN
9126: p_restart_id => l_restart_hr_position_id
9127: );
9128:
9129: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9130: RAISE FND_API.G_EXC_ERROR;
9131: END IF;
9132:
9133: IF (l_status = 'I') THEN
9134:
9228: p_restart_id => C_Assignment_Rec.hr_position_id
9229: );
9230:
9231:
9232: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9233: raise FND_API.G_EXC_ERROR;
9234: end if;
9235: commit work;
9236: /*For Bug No : 2642012 Start*/
9229: );
9230:
9231:
9232: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9233: raise FND_API.G_EXC_ERROR;
9234: end if;
9235: commit work;
9236: /*For Bug No : 2642012 Start*/
9237: l_pos_assign_ctr := 0;
9396: p_employee_id => NULL,
9397: p_primary_employee_flag => NULL
9398: );
9399:
9400: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9401: RAISE FND_API.G_EXC_ERROR;
9402: END IF;
9403:
9404: END LOOP;
9397: p_primary_employee_flag => NULL
9398: );
9399:
9400: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9401: RAISE FND_API.G_EXC_ERROR;
9402: END IF;
9403:
9404: END LOOP;
9405:
9438: p_assignment_default_rule_id => NULL,
9439: p_modIFy_flag => NULL,
9440: p_mode => 'R'
9441: ) ;
9442: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9443: RAISE FND_API.G_EXC_ERROR;
9444: END IF;
9445: END IF; -- END creating 'ATTRIBUTE' type assignment in 'CREATE' mode.
9446:
9439: p_modIFy_flag => NULL,
9440: p_mode => 'R'
9441: ) ;
9442: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9443: RAISE FND_API.G_EXC_ERROR;
9444: END IF;
9445: END IF; -- END creating 'ATTRIBUTE' type assignment in 'CREATE' mode.
9446:
9447: END IF; -- Check IF (lp_max_flag = 'Y').
9458: p_process => 'PSB Position Assignments',
9459: p_restart_id => lp_hr_position_id
9460: );
9461:
9462: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9463: raise FND_API.G_EXC_ERROR;
9464: end if;
9465:
9466: PSB_HR_EXTRACT_DATA_PVT.Reentrant_Process
9459: p_restart_id => lp_hr_position_id
9460: );
9461:
9462: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9463: raise FND_API.G_EXC_ERROR;
9464: end if;
9465:
9466: PSB_HR_EXTRACT_DATA_PVT.Reentrant_Process
9467: ( p_api_version => 1.0 ,
9472: p_extract_method => p_extract_method,
9473: p_process => 'PSB Position Assignments'
9474: );
9475:
9476: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9477: RAISE FND_API.G_EXC_ERROR;
9478: END IF;
9479:
9480: /* start bug 4153562 */
9473: p_process => 'PSB Position Assignments'
9474: );
9475:
9476: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9477: RAISE FND_API.G_EXC_ERROR;
9478: END IF;
9479:
9480: /* start bug 4153562 */
9481: -- re-initialize the packaged variable back to null
9487: END IF;
9488: -- END of API body.
9489: EXCEPTION
9490:
9491: WHEN FND_API.G_EXC_ERROR THEN
9492: ROLLBACK to Populate_Position_Assignments;
9493: p_return_status := FND_API.G_RET_STS_ERROR;
9494: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
9495: p_data => p_msg_data);
9489: EXCEPTION
9490:
9491: WHEN FND_API.G_EXC_ERROR THEN
9492: ROLLBACK to Populate_Position_Assignments;
9493: p_return_status := FND_API.G_RET_STS_ERROR;
9494: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
9495: p_data => p_msg_data);
9496: FND_MESSAGE.SET_NAME('PSB', 'PSB_POSITION_DETAILS');
9497: FND_MESSAGE.SET_TOKEN('POSITION_NAME',l_position_name );
9501: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME',lp_attribute_name);
9502: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_VALUE',lp_attribute_value);
9503: FND_MSG_PUB.Add;
9504:
9505: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9506: ROLLBACK to Populate_Position_Assignments;
9507: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9508: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
9509: p_data => p_msg_data);
9503: FND_MSG_PUB.Add;
9504:
9505: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9506: ROLLBACK to Populate_Position_Assignments;
9507: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9508: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
9509: p_data => p_msg_data);
9510: FND_MESSAGE.SET_NAME('PSB', 'PSB_POSITION_DETAILS');
9511: FND_MESSAGE.SET_TOKEN('POSITION_NAME',l_position_name );
9517: FND_MSG_PUB.Add;
9518:
9519: WHEN OTHERS THEN
9520: ROLLBACK to Populate_Position_Assignments;
9521: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9522: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
9523: p_data => p_msg_data);
9524: FND_MESSAGE.SET_NAME('PSB', 'PSB_POSITION_DETAILS');
9525: FND_MESSAGE.SET_TOKEN('POSITION_NAME',l_position_name );
9547: as part of Extract process */
9548:
9549: PROCEDURE Apply_Defaults
9550: ( p_api_version IN NUMBER,
9551: p_init_msg_lISt IN VARCHAR2 := FND_API.G_FALSE,
9552: p_commit IN VARCHAR2 := FND_API.G_FALSE,
9553: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
9554: p_return_status OUT NOCOPY VARCHAR2,
9555: p_msg_count OUT NOCOPY NUMBER,
9548:
9549: PROCEDURE Apply_Defaults
9550: ( p_api_version IN NUMBER,
9551: p_init_msg_lISt IN VARCHAR2 := FND_API.G_FALSE,
9552: p_commit IN VARCHAR2 := FND_API.G_FALSE,
9553: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
9554: p_return_status OUT NOCOPY VARCHAR2,
9555: p_msg_count OUT NOCOPY NUMBER,
9556: p_msg_data OUT NOCOPY VARCHAR2,
9549: PROCEDURE Apply_Defaults
9550: ( p_api_version IN NUMBER,
9551: p_init_msg_lISt IN VARCHAR2 := FND_API.G_FALSE,
9552: p_commit IN VARCHAR2 := FND_API.G_FALSE,
9553: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
9554: p_return_status OUT NOCOPY VARCHAR2,
9555: p_msg_count OUT NOCOPY NUMBER,
9556: p_msg_data OUT NOCOPY VARCHAR2,
9557: p_data_extract_id IN NUMBER,
9585: l_created_BY := FND_GLOBAL.USER_ID;
9586:
9587: -- StANDard call to check FOR call compatibility.
9588:
9589: IF NOT FND_API.Compatible_API_Call (l_api_version,
9590: p_api_version,
9591: l_api_name,
9592: G_PKG_NAME)
9593: THEN
9590: p_api_version,
9591: l_api_name,
9592: G_PKG_NAME)
9593: THEN
9594: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9595: END IF;
9596:
9597: -- Initialize message lISt IF p_init_msg_lISt IS set to TRUE.
9598:
9595: END IF;
9596:
9597: -- Initialize message lISt IF p_init_msg_lISt IS set to TRUE.
9598:
9599: IF FND_API.to_Boolean (p_init_msg_lISt) THEN
9600: FND_MSG_PUB.initialize;
9601: END IF;
9602:
9603: p_return_status := FND_API.G_RET_STS_SUCCESS;
9599: IF FND_API.to_Boolean (p_init_msg_lISt) THEN
9600: FND_MSG_PUB.initialize;
9601: END IF;
9602:
9603: p_return_status := FND_API.G_RET_STS_SUCCESS;
9604: -- API body
9605:
9606: PSB_HR_EXTRACT_DATA_PVT.Check_Reentry
9607: (p_api_version => 1.0 ,
9613: p_status => l_status,
9614: p_restart_id => l_restart_id
9615: );
9616:
9617: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9618: RAISE FND_API.G_EXC_ERROR;
9619: END IF;
9620:
9621: IF (l_status = 'I') THEN
9614: p_restart_id => l_restart_id
9615: );
9616:
9617: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9618: RAISE FND_API.G_EXC_ERROR;
9619: END IF;
9620:
9621: IF (l_status = 'I') THEN
9622:
9622:
9623:
9624: PSB_POSITIONS_PVT.Create_Default_Assignments
9625: ( p_api_version => 1.0,
9626: p_commit => FND_API.G_FALSE,
9627: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
9628: p_init_msg_lISt => FND_API.G_FALSE,
9629: p_return_status => l_return_status,
9630: p_msg_count => l_msg_count,
9623:
9624: PSB_POSITIONS_PVT.Create_Default_Assignments
9625: ( p_api_version => 1.0,
9626: p_commit => FND_API.G_FALSE,
9627: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
9628: p_init_msg_lISt => FND_API.G_FALSE,
9629: p_return_status => l_return_status,
9630: p_msg_count => l_msg_count,
9631: p_msg_data => l_msg_data,
9624: PSB_POSITIONS_PVT.Create_Default_Assignments
9625: ( p_api_version => 1.0,
9626: p_commit => FND_API.G_FALSE,
9627: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
9628: p_init_msg_lISt => FND_API.G_FALSE,
9629: p_return_status => l_return_status,
9630: p_msg_count => l_msg_count,
9631: p_msg_data => l_msg_data,
9632: p_data_extract_id => p_data_extract_id,
9629: p_return_status => l_return_status,
9630: p_msg_count => l_msg_count,
9631: p_msg_data => l_msg_data,
9632: p_data_extract_id => p_data_extract_id,
9633: p_position_id => FND_API.G_MISS_NUM,
9634: p_position_start_DATE => FND_API.G_MISS_DATE,
9635: p_position_END_DATE => FND_API.G_MISS_DATE,
9636: p_ruleset_id => NULL -- Bug 4649730
9637: );
9630: p_msg_count => l_msg_count,
9631: p_msg_data => l_msg_data,
9632: p_data_extract_id => p_data_extract_id,
9633: p_position_id => FND_API.G_MISS_NUM,
9634: p_position_start_DATE => FND_API.G_MISS_DATE,
9635: p_position_END_DATE => FND_API.G_MISS_DATE,
9636: p_ruleset_id => NULL -- Bug 4649730
9637: );
9638:
9631: p_msg_data => l_msg_data,
9632: p_data_extract_id => p_data_extract_id,
9633: p_position_id => FND_API.G_MISS_NUM,
9634: p_position_start_DATE => FND_API.G_MISS_DATE,
9635: p_position_END_DATE => FND_API.G_MISS_DATE,
9636: p_ruleset_id => NULL -- Bug 4649730
9637: );
9638:
9639: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9635: p_position_END_DATE => FND_API.G_MISS_DATE,
9636: p_ruleset_id => NULL -- Bug 4649730
9637: );
9638:
9639: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9640: RAISE FND_API.G_EXC_ERROR;
9641: END IF;
9642:
9643: PSB_HR_EXTRACT_DATA_PVT.Reentrant_Process
9636: p_ruleset_id => NULL -- Bug 4649730
9637: );
9638:
9639: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9640: RAISE FND_API.G_EXC_ERROR;
9641: END IF;
9642:
9643: PSB_HR_EXTRACT_DATA_PVT.Reentrant_Process
9644: ( p_api_version => 1.0 ,
9649: p_extract_method => p_extract_method,
9650: p_process => 'PSB Apply Defaults'
9651: );
9652:
9653: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9654: RAISE FND_API.G_EXC_ERROR;
9655: END IF;
9656:
9657: UpDATE PSB_DATA_EXTRACTS
9650: p_process => 'PSB Apply Defaults'
9651: );
9652:
9653: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9654: RAISE FND_API.G_EXC_ERROR;
9655: END IF;
9656:
9657: UpDATE PSB_DATA_EXTRACTS
9658: set default_data_status = 'C'
9664: -- END of API body.
9665:
9666: EXCEPTION
9667:
9668: WHEN FND_API.G_EXC_ERROR THEN
9669: ROLLBACK to Apply_Defaults;
9670: p_return_status := FND_API.G_RET_STS_ERROR;
9671: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
9672: p_data => p_msg_data);
9666: EXCEPTION
9667:
9668: WHEN FND_API.G_EXC_ERROR THEN
9669: ROLLBACK to Apply_Defaults;
9670: p_return_status := FND_API.G_RET_STS_ERROR;
9671: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
9672: p_data => p_msg_data);
9673:
9674: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9670: p_return_status := FND_API.G_RET_STS_ERROR;
9671: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
9672: p_data => p_msg_data);
9673:
9674: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9675: ROLLBACK to Apply_Defaults;
9676: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9677: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
9678: p_data => p_msg_data);
9672: p_data => p_msg_data);
9673:
9674: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9675: ROLLBACK to Apply_Defaults;
9676: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9677: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
9678: p_data => p_msg_data);
9679:
9680: WHEN OTHERS THEN
9678: p_data => p_msg_data);
9679:
9680: WHEN OTHERS THEN
9681: ROLLBACK to Apply_Defaults;
9682: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9683: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
9684: p_data => p_msg_data);
9685:
9686: IF FND_MSG_PUB.Check_Msg_Level