5: L_MSG_COUNT NUMBER;
6: L_MSG_DATA VARCHAR2(2000);
7: L_STARTDATE_PP DATE;
8: L_ENDDATE_CY DATE;
9: L_GLOBAL_WORKSHEET_ID PSB_WORKSHEETS.GLOBAL_WORKSHEET_ID%TYPE;
10: L_GLOBAL_WORKSHEET_FLAG PSB_WORKSHEETS.GLOBAL_WORKSHEET_FLAG%TYPE;
11: L_BUDGET_GROUP_ID PSB_WORKSHEETS.BUDGET_GROUP_ID%TYPE;
12: L_BUDGET_CALENDAR_ID PSB_WORKSHEETS.BUDGET_CALENDAR_ID%TYPE;
13: BEGIN
6: L_MSG_DATA VARCHAR2(2000);
7: L_STARTDATE_PP DATE;
8: L_ENDDATE_CY DATE;
9: L_GLOBAL_WORKSHEET_ID PSB_WORKSHEETS.GLOBAL_WORKSHEET_ID%TYPE;
10: L_GLOBAL_WORKSHEET_FLAG PSB_WORKSHEETS.GLOBAL_WORKSHEET_FLAG%TYPE;
11: L_BUDGET_GROUP_ID PSB_WORKSHEETS.BUDGET_GROUP_ID%TYPE;
12: L_BUDGET_CALENDAR_ID PSB_WORKSHEETS.BUDGET_CALENDAR_ID%TYPE;
13: BEGIN
14: P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
7: L_STARTDATE_PP DATE;
8: L_ENDDATE_CY DATE;
9: L_GLOBAL_WORKSHEET_ID PSB_WORKSHEETS.GLOBAL_WORKSHEET_ID%TYPE;
10: L_GLOBAL_WORKSHEET_FLAG PSB_WORKSHEETS.GLOBAL_WORKSHEET_FLAG%TYPE;
11: L_BUDGET_GROUP_ID PSB_WORKSHEETS.BUDGET_GROUP_ID%TYPE;
12: L_BUDGET_CALENDAR_ID PSB_WORKSHEETS.BUDGET_CALENDAR_ID%TYPE;
13: BEGIN
14: P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
15: /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
8: L_ENDDATE_CY DATE;
9: L_GLOBAL_WORKSHEET_ID PSB_WORKSHEETS.GLOBAL_WORKSHEET_ID%TYPE;
10: L_GLOBAL_WORKSHEET_FLAG PSB_WORKSHEETS.GLOBAL_WORKSHEET_FLAG%TYPE;
11: L_BUDGET_GROUP_ID PSB_WORKSHEETS.BUDGET_GROUP_ID%TYPE;
12: L_BUDGET_CALENDAR_ID PSB_WORKSHEETS.BUDGET_CALENDAR_ID%TYPE;
13: BEGIN
14: P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
15: /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
16: SELECT
32: NVL(GLOBAL_WORKSHEET_FLAG
33: ,'N')
34: INTO L_BUDGET_CALENDAR_ID,L_GLOBAL_WORKSHEET_ID,L_GLOBAL_WORKSHEET_FLAG
35: FROM
36: PSB_WORKSHEETS
37: WHERE WORKSHEET_ID = P_WORKSHEET_ID;
38: IF L_GLOBAL_WORKSHEET_FLAG <> 'Y' THEN
39: CP_GLOBAL_WORKSHEET_ID := L_GLOBAL_WORKSHEET_ID;
40: ELSE