[Home] [Help]
1: PACKAGE BODY OKS_REPORT_TEMPLATES_PVT AS
2: /* $Header: OKSRTMPB.pls 120.1.12000000.6 2007/05/10 00:32:14 skekkar ship $ */
3:
4: ------------------------------------------------------------------------------
5: -- GLOBAL CONSTANTS
96: null;
97: END api_copy;
98:
99: ---------------------------------------------------------------------------
100: -- FUNCTION get_rec for: OKS_REPORT_TEMPLATES_V
101: ---------------------------------------------------------------------------
102: FUNCTION get_rec (
103: p_rtmpv_rec IN rtmpv_rec_type,
104: x_no_data_found OUT NOCOPY BOOLEAN
102: FUNCTION get_rec (
103: p_rtmpv_rec IN rtmpv_rec_type,
104: x_no_data_found OUT NOCOPY BOOLEAN
105: ) RETURN rtmpv_rec_type IS
106: CURSOR oks_report_templates_v_pk_csr (p_id IN NUMBER) IS
107: SELECT
108: ID,
109: REPORT_ID,
110: TEMPLATE_SET_ID,
123: LAST_UPDATED_BY,
124: LAST_UPDATE_DATE,
125: LAST_UPDATE_LOGIN,
126: OBJECT_VERSION_NUMBER
127: FROM Oks_Report_Templates_V
128: WHERE oks_report_templates_v.id = p_id;
129: l_oks_report_templates_v_pk oks_report_templates_v_pk_csr%ROWTYPE;
130: l_rtmpv_rec rtmpv_rec_type;
131: BEGIN
124: LAST_UPDATE_DATE,
125: LAST_UPDATE_LOGIN,
126: OBJECT_VERSION_NUMBER
127: FROM Oks_Report_Templates_V
128: WHERE oks_report_templates_v.id = p_id;
129: l_oks_report_templates_v_pk oks_report_templates_v_pk_csr%ROWTYPE;
130: l_rtmpv_rec rtmpv_rec_type;
131: BEGIN
132: x_no_data_found := TRUE;
125: LAST_UPDATE_LOGIN,
126: OBJECT_VERSION_NUMBER
127: FROM Oks_Report_Templates_V
128: WHERE oks_report_templates_v.id = p_id;
129: l_oks_report_templates_v_pk oks_report_templates_v_pk_csr%ROWTYPE;
130: l_rtmpv_rec rtmpv_rec_type;
131: BEGIN
132: x_no_data_found := TRUE;
133: -- Get current database values
130: l_rtmpv_rec rtmpv_rec_type;
131: BEGIN
132: x_no_data_found := TRUE;
133: -- Get current database values
134: OPEN oks_report_templates_v_pk_csr (p_rtmpv_rec.id);
135: FETCH oks_report_templates_v_pk_csr INTO
136: l_rtmpv_rec.id,
137: l_rtmpv_rec.report_id,
138: l_rtmpv_rec.template_set_id,
131: BEGIN
132: x_no_data_found := TRUE;
133: -- Get current database values
134: OPEN oks_report_templates_v_pk_csr (p_rtmpv_rec.id);
135: FETCH oks_report_templates_v_pk_csr INTO
136: l_rtmpv_rec.id,
137: l_rtmpv_rec.report_id,
138: l_rtmpv_rec.template_set_id,
139: l_rtmpv_rec.template_set_type,
151: l_rtmpv_rec.last_updated_by,
152: l_rtmpv_rec.last_update_date,
153: l_rtmpv_rec.last_update_login,
154: l_rtmpv_rec.object_version_number;
155: x_no_data_found := oks_report_templates_v_pk_csr%NOTFOUND;
156: CLOSE oks_report_templates_v_pk_csr;
157: RETURN(l_rtmpv_rec);
158: END get_rec;
159:
152: l_rtmpv_rec.last_update_date,
153: l_rtmpv_rec.last_update_login,
154: l_rtmpv_rec.object_version_number;
155: x_no_data_found := oks_report_templates_v_pk_csr%NOTFOUND;
156: CLOSE oks_report_templates_v_pk_csr;
157: RETURN(l_rtmpv_rec);
158: END get_rec;
159:
160: ------------------------------------------------------------------
185: BEGIN
186: RETURN(get_rec(p_rtmpv_rec, l_row_not_found));
187: END get_rec;
188: ---------------------------------------------------------------------------
189: -- FUNCTION get_rec for: OKS_REPORT_TEMPLATES
190: ---------------------------------------------------------------------------
191: FUNCTION get_rec (
192: p_rtmp_rec IN rtmp_rec_type,
193: x_no_data_found OUT NOCOPY BOOLEAN
212: LAST_UPDATED_BY,
213: LAST_UPDATE_DATE,
214: LAST_UPDATE_LOGIN,
215: OBJECT_VERSION_NUMBER
216: FROM Oks_Report_Templates
217: WHERE oks_report_templates.id = p_id;
218: l_oks_report_temp_pk oks_report_temp_pk_csr%ROWTYPE;
219: l_rtmp_rec rtmp_rec_type;
220: BEGIN
213: LAST_UPDATE_DATE,
214: LAST_UPDATE_LOGIN,
215: OBJECT_VERSION_NUMBER
216: FROM Oks_Report_Templates
217: WHERE oks_report_templates.id = p_id;
218: l_oks_report_temp_pk oks_report_temp_pk_csr%ROWTYPE;
219: l_rtmp_rec rtmp_rec_type;
220: BEGIN
221: x_no_data_found := TRUE;
274: BEGIN
275: RETURN(get_rec(p_rtmp_rec, l_row_not_found));
276: END get_rec;
277: ---------------------------------------------------------------------------
278: -- FUNCTION null_out_defaults for: OKS_REPORT_TEMPLATES_V
279: ---------------------------------------------------------------------------
280: FUNCTION null_out_defaults (
281: p_rtmpv_rec IN rtmpv_rec_type
282: ) RETURN rtmpv_rec_type IS
425: ---------------------------------------------------------------------------
426: -- FUNCTION Validate_Attributes
427: ---------------------------------------------------------------------------
428: ----------------------------------------------------
429: -- Validate_Attributes for:OKS_REPORT_TEMPLATES_V --
430: ----------------------------------------------------
431: FUNCTION Validate_Attributes (
432: p_rtmpv_rec IN rtmpv_rec_type
433: ) RETURN VARCHAR2 IS
481: ---------------------------------------------------------------------------
482: -- PROCEDURE Validate_Record
483: ---------------------------------------------------------------------------
484: ------------------------------------------------
485: -- Validate Record for:OKS_REPORT_TEMPLATES_V --
486: ------------------------------------------------
487: FUNCTION Validate_Record (
488: p_rtmpv_rec IN rtmpv_rec_type,
489: p_db_rtmpv_rec IN rtmpv_rec_type
489: p_db_rtmpv_rec IN rtmpv_rec_type
490: ) RETURN VARCHAR2 IS
491: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
492: -- skekkar
493: l_start_date oks_report_templates.start_date%TYPE;
494: l_end_date oks_report_templates.end_date%TYPE;
495: l_report_duration oks_report_templates.report_duration%TYPE;
496: l_report_period oks_report_templates.report_period%TYPE;
497: l_dummy VARCHAR2(1);
490: ) RETURN VARCHAR2 IS
491: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
492: -- skekkar
493: l_start_date oks_report_templates.start_date%TYPE;
494: l_end_date oks_report_templates.end_date%TYPE;
495: l_report_duration oks_report_templates.report_duration%TYPE;
496: l_report_period oks_report_templates.report_period%TYPE;
497: l_dummy VARCHAR2(1);
498:
491: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
492: -- skekkar
493: l_start_date oks_report_templates.start_date%TYPE;
494: l_end_date oks_report_templates.end_date%TYPE;
495: l_report_duration oks_report_templates.report_duration%TYPE;
496: l_report_period oks_report_templates.report_period%TYPE;
497: l_dummy VARCHAR2(1);
498:
499: l_api_name CONSTANT VARCHAR2 (30) := 'Validate_Record';
492: -- skekkar
493: l_start_date oks_report_templates.start_date%TYPE;
494: l_end_date oks_report_templates.end_date%TYPE;
495: l_report_duration oks_report_templates.report_duration%TYPE;
496: l_report_period oks_report_templates.report_period%TYPE;
497: l_dummy VARCHAR2(1);
498:
499: l_api_name CONSTANT VARCHAR2 (30) := 'Validate_Record';
500:
504: p_applies_to IN VARCHAR2,
505: p_id IN NUMBER) IS
506: SELECT start_date,
507: NVL(end_date,sysdate+1)
508: FROM oks_report_templates
509: WHERE template_set_id = p_template_set_id
510: AND template_set_type = p_document_type
511: AND process_code = p_process_code
512: AND applies_to = p_applies_to
520: p_report_period IN VARCHAR2,
521: p_id IN NUMBER) IS
522: SELECT start_date,
523: NVL(end_date,sysdate+1)
524: FROM oks_report_templates
525: WHERE template_set_id = p_template_set_id
526: AND template_set_type = p_document_type
527: AND process_code = p_process_code
528: AND applies_to = p_applies_to
537: p_report_period IN VARCHAR2,
538: p_id IN NUMBER) IS
539: SELECT start_date,
540: NVL(end_date,sysdate+1)
541: FROM oks_report_templates
542: WHERE template_set_id = p_template_set_id
543: AND template_set_type = p_document_type
544: -- AND process_code = 'O' -- bug 5916645
545: AND process_code IN ('O', 'M')
555: p_report_period IN VARCHAR2,
556: p_id IN NUMBER) IS
557: SELECT start_date,
558: NVL(end_date,sysdate+1)
559: FROM oks_report_templates
560: WHERE template_set_id = p_template_set_id
561: AND template_set_type = p_document_type
562: AND process_code = 'B'
563: AND applies_to IN (p_applies_to, DECODE(p_applies_to,'B','N',p_applies_to),DECODE(p_applies_to,'B','R',p_applies_to))
572: p_report_period IN VARCHAR2,
573: p_id IN NUMBER) IS
574: SELECT start_date,
575: NVL(end_date,sysdate+1)
576: FROM oks_report_templates
577: WHERE template_set_id = p_template_set_id
578: AND template_set_type = p_document_type
579: AND applies_to IN ('N', 'R')
580: AND process_code IN (p_process_code,'B')
590: p_report_period IN VARCHAR2,
591: p_id IN NUMBER) IS
592: SELECT start_date,
593: NVL(end_date,sysdate+1)
594: FROM oks_report_templates
595: WHERE template_set_id = p_template_set_id
596: AND template_set_type = p_document_type
597: AND applies_to = 'B'
598: AND process_code IN(p_process_code,'B')
1068: ---------------------------------------------------------------------------
1069: -- PROCEDURE validate_row
1070: ---------------------------------------------------------------------------
1071: ---------------------------------------------
1072: -- validate_row for:OKS_REPORT_TEMPLATES_V --
1073: ---------------------------------------------
1074: PROCEDURE validate_row(
1075: p_api_version IN NUMBER,
1076: p_init_msg_list IN VARCHAR2,
1145: '_PVT'
1146: );
1147: END validate_row;
1148: --------------------------------------------------------
1149: -- PL/SQL TBL validate_row for:OKS_REPORT_TEMPLATES_V --
1150: --------------------------------------------------------
1151: PROCEDURE validate_row(
1152: p_api_version IN NUMBER,
1153: p_init_msg_list IN VARCHAR2,
1241: );
1242: END validate_row;
1243:
1244: --------------------------------------------------------
1245: -- PL/SQL TBL validate_row for:OKS_REPORT_TEMPLATES_V --
1246: --------------------------------------------------------
1247: PROCEDURE validate_row(
1248: p_api_version IN NUMBER,
1249: p_init_msg_list IN VARCHAR2,
1306: ---------------------------------------------------------------------------
1307: -- PROCEDURE insert_row
1308: ---------------------------------------------------------------------------
1309: -----------------------------------------
1310: -- insert_row for:OKS_REPORT_TEMPLATES --
1311: -----------------------------------------
1312: PROCEDURE insert_row(
1313: p_init_msg_list IN VARCHAR2,
1314: x_return_status OUT NOCOPY VARCHAR2,
1322: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1323: l_rtmp_rec rtmp_rec_type := p_rtmp_rec;
1324: l_def_rtmp_rec rtmp_rec_type;
1325: ---------------------------------------------
1326: -- Set_Attributes for:OKS_REPORT_TEMPLATES --
1327: ---------------------------------------------
1328: FUNCTION Set_Attributes (
1329: p_rtmp_rec IN rtmp_rec_type,
1330: x_rtmp_rec OUT NOCOPY rtmp_rec_type
1353: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1354: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1355: RAISE OKC_API.G_EXCEPTION_ERROR;
1356: END IF;
1357: INSERT INTO OKS_REPORT_TEMPLATES(
1358: id,
1359: report_id,
1360: template_set_id,
1361: template_set_type,
1430: '_PVT'
1431: );
1432: END insert_row;
1433: --------------------------------------------
1434: -- insert_row for :OKS_REPORT_TEMPLATES_V --
1435: --------------------------------------------
1436: PROCEDURE insert_row(
1437: p_api_version IN NUMBER,
1438: p_init_msg_list IN VARCHAR2,
1464: l_rtmpv_rec.LAST_UPDATE_LOGIN := FND_GLOBAL.LOGIN_ID;
1465: RETURN(l_rtmpv_rec);
1466: END fill_who_columns;
1467: -----------------------------------------------
1468: -- Set_Attributes for:OKS_REPORT_TEMPLATES_V --
1469: -----------------------------------------------
1470: FUNCTION Set_Attributes (
1471: p_rtmpv_rec IN rtmpv_rec_type,
1472: x_rtmpv_rec OUT NOCOPY rtmpv_rec_type
1742: ---------------------------------------------------------------------------
1743: -- PROCEDURE lock_row
1744: ---------------------------------------------------------------------------
1745: ---------------------------------------
1746: -- lock_row for:OKS_REPORT_TEMPLATES --
1747: ---------------------------------------
1748: PROCEDURE lock_row(
1749: p_init_msg_list IN VARCHAR2,
1750: x_return_status OUT NOCOPY VARCHAR2,
1755: E_Resource_Busy EXCEPTION;
1756: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
1757: CURSOR lock_csr (p_rtmp_rec IN rtmp_rec_type) IS
1758: SELECT OBJECT_VERSION_NUMBER
1759: FROM OKS_REPORT_TEMPLATES
1760: WHERE ID = p_rtmp_rec.id
1761: AND OBJECT_VERSION_NUMBER = p_rtmp_rec.object_version_number
1762: FOR UPDATE OF OBJECT_VERSION_NUMBER NOWAIT;
1763:
1762: FOR UPDATE OF OBJECT_VERSION_NUMBER NOWAIT;
1763:
1764: CURSOR lchk_csr (p_rtmp_rec IN rtmp_rec_type) IS
1765: SELECT OBJECT_VERSION_NUMBER
1766: FROM OKS_REPORT_TEMPLATES
1767: WHERE ID = p_rtmp_rec.id;
1768: l_api_version CONSTANT NUMBER := 1;
1769: l_api_name CONSTANT VARCHAR2(30) := 'B_lock_row';
1770: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1767: WHERE ID = p_rtmp_rec.id;
1768: l_api_version CONSTANT NUMBER := 1;
1769: l_api_name CONSTANT VARCHAR2(30) := 'B_lock_row';
1770: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1771: l_object_version_number OKS_REPORT_TEMPLATES.OBJECT_VERSION_NUMBER%TYPE;
1772: lc_object_version_number OKS_REPORT_TEMPLATES.OBJECT_VERSION_NUMBER%TYPE;
1773: l_row_notfound BOOLEAN := FALSE;
1774: lc_row_notfound BOOLEAN := FALSE;
1775: BEGIN
1768: l_api_version CONSTANT NUMBER := 1;
1769: l_api_name CONSTANT VARCHAR2(30) := 'B_lock_row';
1770: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1771: l_object_version_number OKS_REPORT_TEMPLATES.OBJECT_VERSION_NUMBER%TYPE;
1772: lc_object_version_number OKS_REPORT_TEMPLATES.OBJECT_VERSION_NUMBER%TYPE;
1773: l_row_notfound BOOLEAN := FALSE;
1774: lc_row_notfound BOOLEAN := FALSE;
1775: BEGIN
1776: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1849: '_PVT'
1850: );
1851: END lock_row;
1852: ------------------------------------------
1853: -- lock_row for: OKS_REPORT_TEMPLATES_V --
1854: ------------------------------------------
1855: PROCEDURE lock_row(
1856: p_api_version IN NUMBER,
1857: p_init_msg_list IN VARCHAR2,
2089: ---------------------------------------------------------------------------
2090: -- PROCEDURE update_row
2091: ---------------------------------------------------------------------------
2092: -----------------------------------------
2093: -- update_row for:OKS_REPORT_TEMPLATES --
2094: -----------------------------------------
2095: PROCEDURE update_row(
2096: p_init_msg_list IN VARCHAR2,
2097: x_return_status OUT NOCOPY VARCHAR2,
2200: END IF;
2201: RETURN(l_return_status);
2202: END populate_new_record;
2203: ---------------------------------------------
2204: -- Set_Attributes for:OKS_REPORT_TEMPLATES --
2205: ---------------------------------------------
2206: FUNCTION Set_Attributes (
2207: p_rtmp_rec IN rtmp_rec_type,
2208: x_rtmp_rec OUT NOCOPY rtmp_rec_type
2238: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2239: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2240: RAISE OKC_API.G_EXCEPTION_ERROR;
2241: END IF;
2242: UPDATE OKS_REPORT_TEMPLATES
2243: SET REPORT_ID = l_def_rtmp_rec.report_id,
2244: TEMPLATE_SET_ID = l_def_rtmp_rec.template_set_id,
2245: TEMPLATE_SET_TYPE = l_def_rtmp_rec.template_set_type,
2246: START_DATE = l_def_rtmp_rec.start_date,
2295: '_PVT'
2296: );
2297: END update_row;
2298: -------------------------------------------
2299: -- update_row for:OKS_REPORT_TEMPLATES_V --
2300: -------------------------------------------
2301: PROCEDURE update_row(
2302: p_api_version IN NUMBER,
2303: p_init_msg_list IN VARCHAR2,
2419: END IF;
2420: RETURN(l_return_status);
2421: END populate_new_record;
2422: -----------------------------------------------
2423: -- Set_Attributes for:OKS_REPORT_TEMPLATES_V --
2424: -----------------------------------------------
2425: FUNCTION Set_Attributes (
2426: p_rtmpv_rec IN rtmpv_rec_type,
2427: x_rtmpv_rec OUT NOCOPY rtmpv_rec_type
2713: ---------------------------------------------------------------------------
2714: -- PROCEDURE delete_row
2715: ---------------------------------------------------------------------------
2716: -----------------------------------------
2717: -- delete_row for:OKS_REPORT_TEMPLATES --
2718: -----------------------------------------
2719: PROCEDURE delete_row(
2720: p_init_msg_list IN VARCHAR2,
2721: x_return_status OUT NOCOPY VARCHAR2,
2738: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2739: RAISE OKC_API.G_EXCEPTION_ERROR;
2740: END IF;
2741:
2742: DELETE FROM OKS_REPORT_TEMPLATES
2743: WHERE ID = p_rtmp_rec.id;
2744:
2745: x_return_status := l_return_status;
2746: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2776: '_PVT'
2777: );
2778: END delete_row;
2779: -------------------------------------------
2780: -- delete_row for:OKS_REPORT_TEMPLATES_V --
2781: -------------------------------------------
2782: PROCEDURE delete_row(
2783: p_api_version IN NUMBER,
2784: p_init_msg_list IN VARCHAR2,
2858: '_PVT'
2859: );
2860: END delete_row;
2861: ------------------------------------------------------
2862: -- PL/SQL TBL delete_row for:OKS_REPORT_TEMPLATES_V --
2863: ------------------------------------------------------
2864: PROCEDURE delete_row(
2865: p_api_version IN NUMBER,
2866: p_init_msg_list IN VARCHAR2,
2954: );
2955: END delete_row;
2956:
2957: ------------------------------------------------------
2958: -- PL/SQL TBL delete_row for:OKS_REPORT_TEMPLATES_V --
2959: ------------------------------------------------------
2960: PROCEDURE delete_row(
2961: p_api_version IN NUMBER,
2962: p_init_msg_list IN VARCHAR2,
3015: '_PVT'
3016: );
3017: END delete_row;
3018:
3019: END OKS_REPORT_TEMPLATES_PVT;