845:
846: PROCEDURE GetPreferences
847: ( p_ResourceID IN NUMBER
848: , p_ResourceType IN VARCHAR2
849: , x_Preferences OUT NOCOPY JTF_CAL_PVT.Preference
850: , x_WeekTimePrefTbl OUT NOCOPY JTF_CAL_PVT.WeekTimePrefTblType
851: , x_CalSpanDaysProfile OUT NOCOPY VARCHAR2
852: )
853: IS
846: PROCEDURE GetPreferences
847: ( p_ResourceID IN NUMBER
848: , p_ResourceType IN VARCHAR2
849: , x_Preferences OUT NOCOPY JTF_CAL_PVT.Preference
850: , x_WeekTimePrefTbl OUT NOCOPY JTF_CAL_PVT.WeekTimePrefTblType
851: , x_CalSpanDaysProfile OUT NOCOPY VARCHAR2
852: )
853: IS
854: BEGIN
868: ( p_LoggedOnRSID IN NUMBER
869: , p_LoggedOnRSType IN VARCHAR2
870: , p_QueryRSID IN NUMBER
871: , p_QueryRSType IN VARCHAR2
872: , x_Preferences OUT NOCOPY JTF_CAL_PVT.Preference
873: , x_WeekTimePrefTbl OUT NOCOPY JTF_CAL_PVT.WeekTimePrefTblType
874: , x_CalSpanDaysProfile OUT NOCOPY VARCHAR2
875: ) AS
876: BEGIN
869: , p_LoggedOnRSType IN VARCHAR2
870: , p_QueryRSID IN NUMBER
871: , p_QueryRSType IN VARCHAR2
872: , x_Preferences OUT NOCOPY JTF_CAL_PVT.Preference
873: , x_WeekTimePrefTbl OUT NOCOPY JTF_CAL_PVT.WeekTimePrefTblType
874: , x_CalSpanDaysProfile OUT NOCOPY VARCHAR2
875: ) AS
876: BEGIN
877: GetPreferences
894:
895: PROCEDURE GetPreferences
896: ( p_ResourceID IN NUMBER
897: , p_ResourceType IN VARCHAR2
898: , x_Preferences OUT NOCOPY JTF_CAL_PVT.Preference
899: , x_WeekTimePrefTbl OUT NOCOPY JTF_CAL_PVT.WeekTimePrefTblType
900: )
901: IS
902: CURSOR c_Preference
895: PROCEDURE GetPreferences
896: ( p_ResourceID IN NUMBER
897: , p_ResourceType IN VARCHAR2
898: , x_Preferences OUT NOCOPY JTF_CAL_PVT.Preference
899: , x_WeekTimePrefTbl OUT NOCOPY JTF_CAL_PVT.WeekTimePrefTblType
900: )
901: IS
902: CURSOR c_Preference
903: (b_ResourceID IN NUMBER
1288: ** We need to sort the output table to make life easier on the
1289: ** java end.. This is a simple bi-directional bubble sort, which
1290: ** should do the trick.
1291: ******************************************************************/
1292: (p_CalendarItems IN OUT NOCOPY JTF_CAL_PVT.QueryOutTab
1293: )
1294: IS
1295: l_LastRecord BINARY_INTEGER;
1296:
1300: ******************************************************************/
1301: (p_index IN NUMBER
1302: )
1303: IS
1304: l_record JTF_CAL_PVT.QueryOut;
1305: BEGIN
1306: l_record := p_CalendarItems(p_index);
1307: p_CalendarItems(p_index) := p_CalendarItems(p_index - 1);
1308: p_CalendarItems(p_index - 1) := l_record;