431: END IF;
432: --
433: ELSE
434: --
435: Fnd_Message.Set_Name ('PSB', 'PSB_INVALID_ARGUMENT') ;
436: Fnd_Message.Set_Token('ROUTINE', l_api_name ) ;
437: FND_MSG_PUB.Add;
438: RAISE FND_API.G_EXC_ERROR ;
439: --
432: --
433: ELSE
434: --
435: Fnd_Message.Set_Name ('PSB', 'PSB_INVALID_ARGUMENT') ;
436: Fnd_Message.Set_Token('ROUTINE', l_api_name ) ;
437: FND_MSG_PUB.Add;
438: RAISE FND_API.G_EXC_ERROR ;
439: --
440: END IF ;
596: -- Validating p_account_position_set_tbl table.
597: --
598: IF p_account_position_set_tbl.COUNT = 0 THEN
599: --
600: Fnd_Message.Set_Name ('PSB', 'PSB_INVALID_ARGUMENT') ;
601: Fnd_Message.Set_Token('ROUTINE', l_api_name ) ;
602: FND_MSG_PUB.Add;
603: RAISE FND_API.G_EXC_ERROR ;
604: END IF ;
597: --
598: IF p_account_position_set_tbl.COUNT = 0 THEN
599: --
600: Fnd_Message.Set_Name ('PSB', 'PSB_INVALID_ARGUMENT') ;
601: Fnd_Message.Set_Token('ROUTINE', l_api_name ) ;
602: FND_MSG_PUB.Add;
603: RAISE FND_API.G_EXC_ERROR ;
604: END IF ;
605:
612: FETCH l_worksheets_csr INTO l_worksheets_rec ;
613:
614: IF ( l_worksheets_csr%NOTFOUND ) THEN
615: --
616: Fnd_Message.Set_Name ('PSB', 'PSB_INVALID_WORKSHEET_ID') ;
617: Fnd_Message.Set_Token('ROUTINE', l_api_name ) ;
618: FND_MSG_PUB.Add;
619: RAISE FND_API.G_EXC_ERROR ;
620: END IF ;
613:
614: IF ( l_worksheets_csr%NOTFOUND ) THEN
615: --
616: Fnd_Message.Set_Name ('PSB', 'PSB_INVALID_WORKSHEET_ID') ;
617: Fnd_Message.Set_Token('ROUTINE', l_api_name ) ;
618: FND_MSG_PUB.Add;
619: RAISE FND_API.G_EXC_ERROR ;
620: END IF ;
621:
635:
636: --
637: -- Get translated messages for the new worksheet.
638: --
639: Fnd_Message.Set_Name ( 'PSB', 'PSB_WORKSHEET_CREATION_INFO') ;
640: Fnd_Message.Set_Token( 'WORKSHEET_ID', p_worksheet_id ) ;
641: Fnd_Message.Set_Token( 'BUDGET_GROUP_NAME', l_main_budget_group_name ) ;
642: l_worksheet_description := Fnd_Message.Get ;
643:
636: --
637: -- Get translated messages for the new worksheet.
638: --
639: Fnd_Message.Set_Name ( 'PSB', 'PSB_WORKSHEET_CREATION_INFO') ;
640: Fnd_Message.Set_Token( 'WORKSHEET_ID', p_worksheet_id ) ;
641: Fnd_Message.Set_Token( 'BUDGET_GROUP_NAME', l_main_budget_group_name ) ;
642: l_worksheet_description := Fnd_Message.Get ;
643:
644: --
637: -- Get translated messages for the new worksheet.
638: --
639: Fnd_Message.Set_Name ( 'PSB', 'PSB_WORKSHEET_CREATION_INFO') ;
640: Fnd_Message.Set_Token( 'WORKSHEET_ID', p_worksheet_id ) ;
641: Fnd_Message.Set_Token( 'BUDGET_GROUP_NAME', l_main_budget_group_name ) ;
642: l_worksheet_description := Fnd_Message.Get ;
643:
644: --
645: -- Find global worksheet related information, use by Create_Worksheet API.
638: --
639: Fnd_Message.Set_Name ( 'PSB', 'PSB_WORKSHEET_CREATION_INFO') ;
640: Fnd_Message.Set_Token( 'WORKSHEET_ID', p_worksheet_id ) ;
641: Fnd_Message.Set_Token( 'BUDGET_GROUP_NAME', l_main_budget_group_name ) ;
642: l_worksheet_description := Fnd_Message.Get ;
643:
644: --
645: -- Find global worksheet related information, use by Create_Worksheet API.
646: --
1107: FETCH l_worksheets_csr INTO l_ws_row_type ;
1108:
1109: IF ( l_worksheets_csr%NOTFOUND ) THEN
1110: --
1111: Fnd_Message.Set_Name ('PSB', 'PSB_INVALID_WORKSHEET_ID') ;
1112: Fnd_Message.Set_Token('ROUTINE', l_api_name ) ;
1113: FND_MSG_PUB.Add;
1114: RAISE FND_API.G_EXC_ERROR ;
1115: END IF ;
1108:
1109: IF ( l_worksheets_csr%NOTFOUND ) THEN
1110: --
1111: Fnd_Message.Set_Name ('PSB', 'PSB_INVALID_WORKSHEET_ID') ;
1112: Fnd_Message.Set_Token('ROUTINE', l_api_name ) ;
1113: FND_MSG_PUB.Add;
1114: RAISE FND_API.G_EXC_ERROR ;
1115: END IF ;
1116:
1130:
1131: --
1132: -- Get translated messages for the new worksheet.
1133: --
1134: Fnd_Message.Set_Name ( 'PSB', 'PSB_WORKSHEET_CREATION_INFO') ;
1135: Fnd_Message.Set_Token( 'WORKSHEET_ID', p_worksheet_id ) ;
1136: Fnd_Message.Set_Token( 'BUDGET_GROUP_NAME', l_main_budget_group_name ) ;
1137: l_worksheet_description := Fnd_Message.Get ;
1138:
1131: --
1132: -- Get translated messages for the new worksheet.
1133: --
1134: Fnd_Message.Set_Name ( 'PSB', 'PSB_WORKSHEET_CREATION_INFO') ;
1135: Fnd_Message.Set_Token( 'WORKSHEET_ID', p_worksheet_id ) ;
1136: Fnd_Message.Set_Token( 'BUDGET_GROUP_NAME', l_main_budget_group_name ) ;
1137: l_worksheet_description := Fnd_Message.Get ;
1138:
1139: --
1132: -- Get translated messages for the new worksheet.
1133: --
1134: Fnd_Message.Set_Name ( 'PSB', 'PSB_WORKSHEET_CREATION_INFO') ;
1135: Fnd_Message.Set_Token( 'WORKSHEET_ID', p_worksheet_id ) ;
1136: Fnd_Message.Set_Token( 'BUDGET_GROUP_NAME', l_main_budget_group_name ) ;
1137: l_worksheet_description := Fnd_Message.Get ;
1138:
1139: --
1140: -- Find global worksheet related information, use by Create_Worksheet API.
1133: --
1134: Fnd_Message.Set_Name ( 'PSB', 'PSB_WORKSHEET_CREATION_INFO') ;
1135: Fnd_Message.Set_Token( 'WORKSHEET_ID', p_worksheet_id ) ;
1136: Fnd_Message.Set_Token( 'BUDGET_GROUP_NAME', l_main_budget_group_name ) ;
1137: l_worksheet_description := Fnd_Message.Get ;
1138:
1139: --
1140: -- Find global worksheet related information, use by Create_Worksheet API.
1141: --
1519: FETCH l_worksheets_csr INTO l_ws_row_type ;
1520:
1521: IF ( l_worksheets_csr%NOTFOUND ) THEN
1522: --
1523: Fnd_Message.Set_Name ('PSB', 'PSB_INVALID_WORKSHEET_ID') ;
1524: Fnd_Message.Set_Token('ROUTINE', l_api_name ) ;
1525: FND_MSG_PUB.Add;
1526: RAISE FND_API.G_EXC_ERROR ;
1527: END IF ;
1520:
1521: IF ( l_worksheets_csr%NOTFOUND ) THEN
1522: --
1523: Fnd_Message.Set_Name ('PSB', 'PSB_INVALID_WORKSHEET_ID') ;
1524: Fnd_Message.Set_Token('ROUTINE', l_api_name ) ;
1525: FND_MSG_PUB.Add;
1526: RAISE FND_API.G_EXC_ERROR ;
1527: END IF ;
1528:
1532: --
1533: -- Only official worksheet can be made copy of.
1534: --
1535: IF l_ws_row_type.worksheet_type <> 'O' THEN
1536: Fnd_Message.Set_Name ('PSB', 'PSB_INVALID_WORKSHEET_FOR_COPY') ;
1537: FND_MSG_PUB.Add;
1538: RAISE FND_API.G_EXC_ERROR ;
1539: END IF ;
1540:
1547:
1548: --
1549: -- Get worksheet description.
1550: --
1551: Fnd_Message.Set_Name ( 'PSB', 'PSB_WORKSHEET_COPIED_INFO') ;
1552: Fnd_Message.Set_Token( 'WORKSHEET_ID', p_worksheet_id ) ;
1553: Fnd_Message.Set_Token( 'BUDGET_GROUP_NAME', l_main_budget_group_name ) ;
1554: l_worksheet_description := Fnd_Message.Get ;
1555:
1548: --
1549: -- Get worksheet description.
1550: --
1551: Fnd_Message.Set_Name ( 'PSB', 'PSB_WORKSHEET_COPIED_INFO') ;
1552: Fnd_Message.Set_Token( 'WORKSHEET_ID', p_worksheet_id ) ;
1553: Fnd_Message.Set_Token( 'BUDGET_GROUP_NAME', l_main_budget_group_name ) ;
1554: l_worksheet_description := Fnd_Message.Get ;
1555:
1556: --
1549: -- Get worksheet description.
1550: --
1551: Fnd_Message.Set_Name ( 'PSB', 'PSB_WORKSHEET_COPIED_INFO') ;
1552: Fnd_Message.Set_Token( 'WORKSHEET_ID', p_worksheet_id ) ;
1553: Fnd_Message.Set_Token( 'BUDGET_GROUP_NAME', l_main_budget_group_name ) ;
1554: l_worksheet_description := Fnd_Message.Get ;
1555:
1556: --
1557: -- Create the new worksheet in psb_worksheets table.
1550: --
1551: Fnd_Message.Set_Name ( 'PSB', 'PSB_WORKSHEET_COPIED_INFO') ;
1552: Fnd_Message.Set_Token( 'WORKSHEET_ID', p_worksheet_id ) ;
1553: Fnd_Message.Set_Token( 'BUDGET_GROUP_NAME', l_main_budget_group_name ) ;
1554: l_worksheet_description := Fnd_Message.Get ;
1555:
1556: --
1557: -- Create the new worksheet in psb_worksheets table.
1558: --
2171: --
2172: -- Check whether the p_target_worksheet_id has been frozen.
2173: --
2174: IF l_target_freeze_flag = 'Y' THEN
2175: Fnd_Message.Set_Name('PSB', 'PSB_TARGET_WORKSHEET_IS_FROZEN') ;
2176: FND_MSG_PUB.Add;
2177: RAISE FND_API.G_EXC_ERROR ;
2178: END IF ;
2179:
2187: ( l_source_copy_of_worksheet_id = p_target_worksheet_id )
2188: AND (l_source_current_stage_seq = l_target_current_stage_seq )
2189: )
2190: THEN
2191: Fnd_Message.Set_Name ('PSB', 'PSB_INCOMPATIBLE_WORKSHEETS') ;
2192: FND_MSG_PUB.Add;
2193: RAISE FND_API.G_EXC_ERROR ;
2194: END IF ;
2195:
3797:
3798: IF ( l_ws_lines_csr%NOTFOUND ) THEN
3799: --
3800: CLOSE l_ws_lines_csr ;
3801: Fnd_Message.Set_Name ('PSB', 'PSB_INVALID_ACCOUNT_LINE_ID') ;
3802: FND_MSG_PUB.Add;
3803: RAISE FND_API.G_EXC_ERROR ;
3804: END IF ;
3805:
4130:
4131: IF ( l_ws_lines_csr%NOTFOUND ) THEN
4132: --
4133: CLOSE l_ws_lines_csr ;
4134: Fnd_Message.Set_Name ('PSB', 'PSB_INVALID_ACCOUNT_LINE_ID') ;
4135: FND_MSG_PUB.Add;
4136: RAISE FND_API.G_EXC_ERROR ;
4137: END IF ;
4138:
4281:
4282: IF ( l_ws_lines_positions_csr%NOTFOUND ) THEN
4283: --
4284: CLOSE l_ws_lines_positions_csr ;
4285: Fnd_Message.Set_Name ('PSB', 'PSB_INVALID_POSITION_LINE_ID') ;
4286: FND_MSG_PUB.Add;
4287: RAISE FND_API.G_EXC_ERROR ;
4288: END IF ;
4289:
4485:
4486: IF ( l_ws_lines_positions_csr%NOTFOUND ) THEN
4487: --
4488: CLOSE l_ws_lines_positions_csr ;
4489: Fnd_Message.Set_Name ('PSB', 'PSB_INVALID_POSITION_LINE_ID') ;
4490: FND_MSG_PUB.Add;
4491: RAISE FND_API.G_EXC_ERROR ;
4492: END IF ;
4493:
4671: WHERE worksheet_id = l_parent_worksheet_id ;
4672:
4673: IF l_parent_freeze_flag = 'Y' THEN
4674:
4675: Fnd_Message.Set_Name('PSB','PSB_CANNOT_UNFREEZE_WORKSHEET') ;
4676: FND_MSG_PUB.Add;
4677: RAISE FND_API.G_EXC_ERROR ;
4678:
4679: END IF ;
5173: --
5174: /* Commenting as this message is not required. The p_worksheet_id_OUT
5175: parameter should be used to determine whether parent worksheet exists.
5176:
5177: Fnd_Message.Set_Name('PSB','PSB_NO_PARENT_WORKSHEET' ) ;
5178: FND_MSG_PUB.Add;
5179: */
5180: p_worksheet_id_OUT := 0 ;
5181: RETURN ;
5785: (l_source_local_copy_flag='N') AND ( l_target_local_copy_flag='N')
5786: AND ( l_source_global_worksheet_id = l_target_global_worksheet_id )
5787: )
5788: THEN
5789: Fnd_Message.Set_Name ('PSB', 'PSB_INCOMPATIBLE_WORKSHEETS') ;
5790: FND_MSG_PUB.Add;
5791: RAISE FND_API.G_EXC_ERROR ;
5792: END IF ;
5793:
6688: CLOSE l_worksheets_csr ;
6689:
6690: IF ( l_worksheets_rec.worksheet_Id IS NULL ) THEN
6691: --
6692: Fnd_Message.Set_Name ('PSB', 'PSB_INVALID_WORKSHEET_ID') ;
6693: Fnd_Message.Set_Token('ROUTINE', l_api_name ) ;
6694: FND_MSG_PUB.Add;
6695: RAISE FND_API.G_EXC_ERROR ;
6696: END IF ;
6689:
6690: IF ( l_worksheets_rec.worksheet_Id IS NULL ) THEN
6691: --
6692: Fnd_Message.Set_Name ('PSB', 'PSB_INVALID_WORKSHEET_ID') ;
6693: Fnd_Message.Set_Token('ROUTINE', l_api_name ) ;
6694: FND_MSG_PUB.Add;
6695: RAISE FND_API.G_EXC_ERROR ;
6696: END IF ;
6697:
6710:
6711: --
6712: -- Get translated messages for the new worksheet.
6713: --
6714: Fnd_Message.Set_Name ( 'PSB', 'PSB_WORKSHEET_CREATION_INFO') ;
6715: Fnd_Message.Set_Token( 'WORKSHEET_ID', p_worksheet_id ) ;
6716: Fnd_Message.Set_Token( 'BUDGET_GROUP_NAME', l_main_budget_group_name ) ;
6717: l_worksheet_description := Fnd_Message.Get ;
6718:
6711: --
6712: -- Get translated messages for the new worksheet.
6713: --
6714: Fnd_Message.Set_Name ( 'PSB', 'PSB_WORKSHEET_CREATION_INFO') ;
6715: Fnd_Message.Set_Token( 'WORKSHEET_ID', p_worksheet_id ) ;
6716: Fnd_Message.Set_Token( 'BUDGET_GROUP_NAME', l_main_budget_group_name ) ;
6717: l_worksheet_description := Fnd_Message.Get ;
6718:
6719: --
6712: -- Get translated messages for the new worksheet.
6713: --
6714: Fnd_Message.Set_Name ( 'PSB', 'PSB_WORKSHEET_CREATION_INFO') ;
6715: Fnd_Message.Set_Token( 'WORKSHEET_ID', p_worksheet_id ) ;
6716: Fnd_Message.Set_Token( 'BUDGET_GROUP_NAME', l_main_budget_group_name ) ;
6717: l_worksheet_description := Fnd_Message.Get ;
6718:
6719: --
6720: -- Find global worksheet related information, use by Create_Worksheet API.
6713: --
6714: Fnd_Message.Set_Name ( 'PSB', 'PSB_WORKSHEET_CREATION_INFO') ;
6715: Fnd_Message.Set_Token( 'WORKSHEET_ID', p_worksheet_id ) ;
6716: Fnd_Message.Set_Token( 'BUDGET_GROUP_NAME', l_main_budget_group_name ) ;
6717: l_worksheet_description := Fnd_Message.Get ;
6718:
6719: --
6720: -- Find global worksheet related information, use by Create_Worksheet API.
6721: --