[Home] [Help]
27: l_cnt number;
28: l_period_name_tab PA_PLSQL_DATATYPES.Char50TabTyp;
29: l_st_dt_tab PA_PLSQL_DATATYPES.DateTabTyp;
30: l_end_dt_tab PA_PLSQL_DATATYPES.DateTabTyp;
31: l_period_type Gl_Periods.Period_Type%TYPE;
32: l_tab_count number(10);
33: l_temp number(10);
34: CURSOR c1(c_period_set_name varchar2,
35: c_period_type varchar2,
37: c_end_dt date) is
38: SELECT G.period_name,
39: G.start_date,
40: G.end_date FROM
41: Gl_Periods G
42: WHERE
43: G.start_date >= c_st_dt and
44: G.end_date <= c_end_dt and
45: G.period_set_name = c_period_set_name and
765: IF p_plan_period_type = 'GL' THEN
766: BEGIN
767: SELECT TO_CHAR(gl.start_date,'rrrr/mm/dd'),
768: TO_CHAR(gl.end_date,'rrrr/mm/dd') INTO l_start_date,l_end_Date FROM
769: Gl_Periods gl, Pa_Implementations_All imp ,Pa_Projects_All p ,
770: Gl_Sets_Of_Books sob WHERE
771: p.Project_Id = p_project_id AND
772: nvl(p.Org_Id,-99) = NVL(imp.Org_Id,-99) AND
773: imp.Set_Of_Books_Id = sob.Set_Of_Books_Id AND
782: ELSIF p_plan_period_type = 'PA' THEN
783: BEGIN
784: SELECT TO_CHAR(gl.start_date,'rrrr/mm/dd'),
785: TO_CHAR(gl.end_date,'rrrr/mm/dd') INTO l_start_date,l_end_Date FROM
786: Gl_Periods gl, Pa_Implementations_All imp ,Pa_Projects_All p WHERE
787: p.Project_Id = p_project_id AND
788: nvl(p.Org_Id,-99) = nvl(imp.Org_Id,-99) AND
789: gl.Period_Set_Name = imp.Period_Set_Name AND
790: gl.Period_Type = imp.Pa_Period_Type AND
855: l_pa_start_Date1 DATE;
856: l_pa_end_date1 DATE;
857: l_gl_start_Date1 DATE;
858: l_gl_end_date1 DATE;
859: l_gl_period_set_name Gl_Periods.Period_Set_Name%TYPE;
860: l_gl_period_type Gl_Periods.Period_Type%TYPE;
861: l_pa_period_type Gl_Periods.Period_Type%TYPE;
862: l_pa_plan_start_date DATE;
863: l_pa_plan_end_date DATE;
856: l_pa_end_date1 DATE;
857: l_gl_start_Date1 DATE;
858: l_gl_end_date1 DATE;
859: l_gl_period_set_name Gl_Periods.Period_Set_Name%TYPE;
860: l_gl_period_type Gl_Periods.Period_Type%TYPE;
861: l_pa_period_type Gl_Periods.Period_Type%TYPE;
862: l_pa_plan_start_date DATE;
863: l_pa_plan_end_date DATE;
864: l_gl_plan_start_date DATE;
857: l_gl_start_Date1 DATE;
858: l_gl_end_date1 DATE;
859: l_gl_period_set_name Gl_Periods.Period_Set_Name%TYPE;
860: l_gl_period_type Gl_Periods.Period_Type%TYPE;
861: l_pa_period_type Gl_Periods.Period_Type%TYPE;
862: l_pa_plan_start_date DATE;
863: l_pa_plan_end_date DATE;
864: l_gl_plan_start_date DATE;
865: l_gl_plan_end_date DATE;
992: l_valid_gl_period_flag := 'N';
993: IF p_old_gl_profile_id IS NOT NULL THEN
994: x_return_status := FND_API.G_RET_STS_ERROR;
995: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA',
996: p_msg_name => 'PA_FP_ENTER_GL_PERIODS');
997: ELSE
998: l_call_profile_gl_flag := 'N';
999: END IF;
1000: END IF;
1019: IF l_valid_pa_period_flag = 'Y' THEN
1020:
1021: BEGIN
1022: SELECT gl.Start_Date,gl.End_Date INTO l_pa_start_date,l_pa_end_Date FROM
1023: Gl_Periods gl WHERE
1024: gl.Period_Set_Name = l_gl_period_set_name AND
1025: gl.Period_Type = l_pa_period_type and
1026: gl.Period_Name = p_pa_start_period AND
1027: gl.Adjustment_Period_Flag = 'N' ;
1039: END;
1040:
1041: BEGIN
1042: SELECT gl.Start_Date,gl.End_Date INTO l_pa_start_date1,l_pa_end_Date1 FROM
1043: Gl_Periods gl WHERE
1044: gl.Period_Set_Name = l_gl_period_set_name AND
1045: gl.Period_Type = l_pa_period_type AND
1046: gl.Period_Name = p_pa_end_period AND
1047: gl.Adjustment_Period_Flag = 'N' ;
1063: IF l_valid_gl_period_flag = 'Y' THEN
1064:
1065: BEGIN
1066: SELECT gl.Start_Date,gl.End_Date INTO l_gl_start_date,l_gl_end_Date FROM
1067: Gl_Periods gl WHERE
1068: gl.Period_Set_Name = l_gl_period_set_name AND
1069: gl.Period_Type = l_gl_period_type AND
1070: gl.Period_Name = p_gl_start_period AND
1071: gl.Adjustment_Period_Flag = 'N' ;
1083: END;
1084:
1085: BEGIN
1086: SELECT gl.Start_Date,gl.End_Date INTO l_gl_start_date1,l_gl_end_Date1 FROM
1087: Gl_Periods gl WHERE
1088: gl.Period_Set_Name = l_gl_period_set_name AND
1089: gl.Period_Type = l_gl_period_type AND
1090: gl.Period_Name = p_gl_end_period AND
1091: gl.Adjustment_Period_Flag = 'N' ;
1107:
1108: END IF;
1109:
1110: IF l_valid_pa_period_flag = 'Y' THEN
1111: SELECT COUNT(*) INTO l_periods_count FROM Gl_Periods gl
1112: WHERE
1113: Start_Date BETWEEN l_pa_start_date AND l_pa_start_date1 AND
1114: gl.Period_Set_Name = l_gl_period_set_name AND
1115: gl.Period_Type = l_pa_period_type AND
1130: END IF;
1131: END IF;
1132:
1133: IF l_valid_gl_period_flag = 'Y' THEN
1134: SELECT COUNT(*) INTO l_periods_count FROM Gl_Periods gl
1135: WHERE
1136: Start_Date BETWEEN l_gl_start_date AND l_gl_start_date1 AND
1137: gl.Period_Set_Name = l_gl_period_set_name AND
1138: gl.Period_Type = l_gl_period_type AND
1188: -- Find the Corresponding PA Period for the Project START Date
1189: -- AND save the PA Period's START date for subsequent processing
1190:
1191: -- Issue: If project start date does not have corresponding
1192: -- period in GL_Periods, use the project start date.
1193:
1194: BEGIN
1195:
1196: SELECT Start_Date
1194: BEGIN
1195:
1196: SELECT Start_Date
1197: INTO l_prj_PAper_start_date
1198: FROM Gl_Periods
1199: WHERE Period_Set_Name = l_gl_period_set_name
1200: AND Period_Type = l_PA_period_type
1201: AND Adjustment_Period_Flag = 'N'
1202: and l_prj_start_date between start_date and end_date;
1248: -- Find the Corresponding PA Period for the Project COMPLETION Date
1249: -- AND save the PA Period's END date for subsequent processing
1250:
1251: -- Issue: If project completion date does not have corresponding
1252: -- period in GL_Periods, use the completion date.
1253:
1254: BEGIN
1255:
1256: SELECT End_Date
1254: BEGIN
1255:
1256: SELECT End_Date
1257: INTO l_prj_PAper_end_date
1258: FROM Gl_Periods
1259: WHERE Period_Set_Name = l_gl_period_set_name
1260: AND Period_Type = l_PA_period_type
1261: AND Adjustment_Period_Flag = 'N'
1262: and l_prj_completion_date between start_date and end_date;
1306: -- AND save the GL Period's START date for subsequent processing
1307:
1308:
1309: -- Issue: If project start date does not have corresponding
1310: -- period in GL_Periods, use the project start date.
1311:
1312: BEGIN
1313:
1314: SELECT Start_Date
1312: BEGIN
1313:
1314: SELECT Start_Date
1315: INTO l_prj_GLper_start_date
1316: FROM Gl_Periods
1317: WHERE Period_Set_Name = l_gl_period_set_name
1318: AND Period_Type = l_GL_period_type
1319: AND Adjustment_Period_Flag = 'N'
1320: and l_prj_start_date between start_date and end_date;
1347:
1348:
1349: -- ENDING Period Edit ----------------------------------------------
1350:
1351: -- IF Project Completion Date Exists AND GL Periods Passed Previous Edit,
1352: -- THEN
1353: -- IF the End Date of the Entered GL End Period is LATER than the End Date
1354: -- of the GL Period Corresponding to the Completion Date of the Project
1355: -- THEN
1363: -- AND save the GL Period's END date for subsequent processing
1364:
1365:
1366: -- Issue: If project completion date does not have corresponding
1367: -- period in GL_Periods, use the completion date.
1368:
1369: BEGIN
1370:
1371: SELECT End_Date
1369: BEGIN
1370:
1371: SELECT End_Date
1372: INTO l_prj_GLper_end_date
1373: FROM Gl_Periods
1374: WHERE Period_Set_Name = l_gl_period_set_name
1375: AND Period_Type = l_GL_period_type
1376: AND Adjustment_Period_Flag = 'N'
1377: and l_prj_completion_date between start_date and end_date;
1697: CURSOR end_period_cur(c_period_set_name varchar2,
1698: c_period_type varchar2,
1699: c_start_Date date ) IS
1700: SELECT Period_Name,Start_Date,
1701: End_Date FROM Gl_Periods WHERE
1702: Period_Set_Name = c_period_set_name AND
1703: Period_Type = c_period_type AND Start_Date > c_start_date AND
1704: Adjustment_Period_Flag = 'N' AND ROWNUM < 52
1705: ORDER BY Start_Date;
1712: SELECT Period_Name,Start_Date, End_Date
1713: FROM
1714: (
1715: SELECT Period_Name,Start_Date, End_Date
1716: FROM Gl_Periods
1717: WHERE Period_Set_Name = c_period_set_name AND
1718: Period_Type = c_period_type AND Start_Date > c_start_date AND
1719: Adjustment_Period_Flag = 'N'
1720: ORDER BY Start_Date
1720: ORDER BY Start_Date
1721: )
1722: WHERE ROWNUM < 52;
1723:
1724: l_period_set_name Gl_Periods.Period_Set_Name%TYPE;
1725: l_gl_period_type Gl_Periods.Period_Type%TYPE;
1726: l_pa_period_type Gl_Periods.Period_Type%TYPE;
1727:
1728: l_return_status VARCHAR2(2000);
1721: )
1722: WHERE ROWNUM < 52;
1723:
1724: l_period_set_name Gl_Periods.Period_Set_Name%TYPE;
1725: l_gl_period_type Gl_Periods.Period_Type%TYPE;
1726: l_pa_period_type Gl_Periods.Period_Type%TYPE;
1727:
1728: l_return_status VARCHAR2(2000);
1729: l_msg_count NUMBER := 0;
1722: WHERE ROWNUM < 52;
1723:
1724: l_period_set_name Gl_Periods.Period_Set_Name%TYPE;
1725: l_gl_period_type Gl_Periods.Period_Type%TYPE;
1726: l_pa_period_type Gl_Periods.Period_Type%TYPE;
1727:
1728: l_return_status VARCHAR2(2000);
1729: l_msg_count NUMBER := 0;
1730: l_msg_data VARCHAR2(2000);
1872: INTO x_gl_start_period,x_gl_start_date,
1873: l_pd_gl_end_date
1874: FROM
1875: Gl_Date_Period_Map gl,
1876: gl_periods glp WHERE
1877: gl.Period_Set_Name = l_period_set_name AND
1878: gl.Period_Type = l_gl_period_type AND
1879: gl.Accounting_Date = l_prj_start_date AND
1880: glp.period_set_name = gl.Period_Set_Name AND
1898: INTO x_pa_start_period,x_pa_start_date,
1899: l_pd_pa_end_date
1900: FROM
1901: Gl_Date_Period_Map gl,
1902: gl_periods glp WHERE
1903: gl.Period_Set_Name = l_period_set_name AND
1904: gl.Period_Type = l_pa_period_type AND
1905: gl.Accounting_Date = l_prj_start_date AND
1906: glp.period_set_name = gl.Period_Set_Name AND