3:
4: l_debug VARCHAR2(1) := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N');
5:
6: Type seq_header Is Record (
7: line_code okc_k_seq_header.line_code%TYPE,
8: site_yn okc_k_seq_header.site_yn%TYPE,
9: bg_ou_none okc_k_seq_header.bg_ou_none%TYPE,
10: cls_scs_none okc_k_seq_header.cls_scs_none%TYPE,
11: user_function_yn okc_k_seq_header.user_function_yn%TYPE,
4: l_debug VARCHAR2(1) := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N');
5:
6: Type seq_header Is Record (
7: line_code okc_k_seq_header.line_code%TYPE,
8: site_yn okc_k_seq_header.site_yn%TYPE,
9: bg_ou_none okc_k_seq_header.bg_ou_none%TYPE,
10: cls_scs_none okc_k_seq_header.cls_scs_none%TYPE,
11: user_function_yn okc_k_seq_header.user_function_yn%TYPE,
12: pdf_id okc_k_seq_header.pdf_id%TYPE,
5:
6: Type seq_header Is Record (
7: line_code okc_k_seq_header.line_code%TYPE,
8: site_yn okc_k_seq_header.site_yn%TYPE,
9: bg_ou_none okc_k_seq_header.bg_ou_none%TYPE,
10: cls_scs_none okc_k_seq_header.cls_scs_none%TYPE,
11: user_function_yn okc_k_seq_header.user_function_yn%TYPE,
12: pdf_id okc_k_seq_header.pdf_id%TYPE,
13: manual_override_yn okc_k_seq_header.manual_override_yn%TYPE);
6: Type seq_header Is Record (
7: line_code okc_k_seq_header.line_code%TYPE,
8: site_yn okc_k_seq_header.site_yn%TYPE,
9: bg_ou_none okc_k_seq_header.bg_ou_none%TYPE,
10: cls_scs_none okc_k_seq_header.cls_scs_none%TYPE,
11: user_function_yn okc_k_seq_header.user_function_yn%TYPE,
12: pdf_id okc_k_seq_header.pdf_id%TYPE,
13: manual_override_yn okc_k_seq_header.manual_override_yn%TYPE);
14:
7: line_code okc_k_seq_header.line_code%TYPE,
8: site_yn okc_k_seq_header.site_yn%TYPE,
9: bg_ou_none okc_k_seq_header.bg_ou_none%TYPE,
10: cls_scs_none okc_k_seq_header.cls_scs_none%TYPE,
11: user_function_yn okc_k_seq_header.user_function_yn%TYPE,
12: pdf_id okc_k_seq_header.pdf_id%TYPE,
13: manual_override_yn okc_k_seq_header.manual_override_yn%TYPE);
14:
15: g_seq_header seq_header;
8: site_yn okc_k_seq_header.site_yn%TYPE,
9: bg_ou_none okc_k_seq_header.bg_ou_none%TYPE,
10: cls_scs_none okc_k_seq_header.cls_scs_none%TYPE,
11: user_function_yn okc_k_seq_header.user_function_yn%TYPE,
12: pdf_id okc_k_seq_header.pdf_id%TYPE,
13: manual_override_yn okc_k_seq_header.manual_override_yn%TYPE);
14:
15: g_seq_header seq_header;
16:
9: bg_ou_none okc_k_seq_header.bg_ou_none%TYPE,
10: cls_scs_none okc_k_seq_header.cls_scs_none%TYPE,
11: user_function_yn okc_k_seq_header.user_function_yn%TYPE,
12: pdf_id okc_k_seq_header.pdf_id%TYPE,
13: manual_override_yn okc_k_seq_header.manual_override_yn%TYPE);
14:
15: g_seq_header seq_header;
16:
17: Type doc_sequence_id_tbl Is Table Of
363: p_msg_name => g_no_parent_record,
364: p_token1 => g_col_name_token,
365: p_token1_value => 'pdf_id',
366: p_token2 => g_child_table_token,
367: p_token2_value => 'OKC_K_SEQ_HEADER_V',
368: p_token3 => g_parent_table_token,
369: p_token3_value => 'OKC_PROCESS_DEFS_V');
370:
371: -- notify caller of an error
476: null;
477: END api_copy;
478:
479: ---------------------------------------------------------------------------
480: -- FUNCTION get_rec for: OKC_K_SEQ_HEADER
481: ---------------------------------------------------------------------------
482: FUNCTION get_rec (
483: p_ksq_rec IN ksq_rec_type,
484: x_no_data_found OUT NOCOPY BOOLEAN
482: FUNCTION get_rec (
483: p_ksq_rec IN ksq_rec_type,
484: x_no_data_found OUT NOCOPY BOOLEAN
485: ) RETURN ksq_rec_type IS
486: CURSOR ksq_pk_csr (p_line_code IN OKC_K_SEQ_HEADER.LINE_CODE%TYPE) IS
487: SELECT LINE_CODE,
488: SITE_YN,
489: BG_OU_NONE,
490: CLS_SCS_NONE,
496: CREATION_DATE,
497: LAST_UPDATED_BY,
498: LAST_UPDATE_DATE,
499: LAST_UPDATE_LOGIN
500: FROM OKC_K_SEQ_HEADER
501: WHERE OKC_K_SEQ_HEADER.LINE_CODE = p_line_code;
502: l_ksq_pk ksq_pk_csr%ROWTYPE;
503: l_ksq_rec ksq_rec_type;
504: BEGIN
497: LAST_UPDATED_BY,
498: LAST_UPDATE_DATE,
499: LAST_UPDATE_LOGIN
500: FROM OKC_K_SEQ_HEADER
501: WHERE OKC_K_SEQ_HEADER.LINE_CODE = p_line_code;
502: l_ksq_pk ksq_pk_csr%ROWTYPE;
503: l_ksq_rec ksq_rec_type;
504: BEGIN
505: x_no_data_found := TRUE;
531: BEGIN
532: RETURN(get_rec(p_ksq_rec, l_row_notfound));
533: END get_rec;
534: ---------------------------------------------------------------------------
535: -- FUNCTION get_rec for: OKC_K_SEQ_HEADER_V
536: ---------------------------------------------------------------------------
537: FUNCTION get_rec (
538: p_ksqv_rec IN ksqv_rec_type,
539: x_no_data_found OUT NOCOPY BOOLEAN
537: FUNCTION get_rec (
538: p_ksqv_rec IN ksqv_rec_type,
539: x_no_data_found OUT NOCOPY BOOLEAN
540: ) RETURN ksqv_rec_type IS
541: CURSOR okc_ksqv_pk_csr (p_line_code IN OKC_K_SEQ_HEADER_V.LINE_CODE%TYPE) IS
542: SELECT
543: LINE_CODE,
544: SITE_YN,
545: BG_OU_NONE,
552: CREATION_DATE,
553: LAST_UPDATED_BY,
554: LAST_UPDATE_DATE,
555: LAST_UPDATE_LOGIN
556: FROM OKC_K_SEQ_HEADER_V
557: WHERE OKC_K_SEQ_HEADER_V.LINE_CODE = p_line_code;
558: l_okc_ksqv_pk okc_ksqv_pk_csr%ROWTYPE;
559: l_ksqv_rec ksqv_rec_type;
560: BEGIN
553: LAST_UPDATED_BY,
554: LAST_UPDATE_DATE,
555: LAST_UPDATE_LOGIN
556: FROM OKC_K_SEQ_HEADER_V
557: WHERE OKC_K_SEQ_HEADER_V.LINE_CODE = p_line_code;
558: l_okc_ksqv_pk okc_ksqv_pk_csr%ROWTYPE;
559: l_ksqv_rec ksqv_rec_type;
560: BEGIN
561: x_no_data_found := TRUE;
588: RETURN(get_rec(p_ksqv_rec, l_row_notfound));
589: END get_rec;
590:
591: ------------------------------------------------------
592: -- FUNCTION null_out_defaults for: OKC_K_SEQ_HEADER_V --
593: ------------------------------------------------------
594: FUNCTION null_out_defaults (
595: p_ksqv_rec IN ksqv_rec_type
596: ) RETURN ksqv_rec_type IS
637: ---------------------------------------------------------------------------
638: -- PROCEDURE Validate_Attributes
639: ---------------------------------------------------------------------------
640: ----------------------------------------------
641: -- Validate_Attributes for:OKC_K_SEQ_HEADER_V --
642: ----------------------------------------------
643: FUNCTION Validate_Attributes (
644: p_ksqv_rec IN ksqv_rec_type
645: ) RETURN VARCHAR2 IS
744: ---------------------------------------------------------------------------
745: -- PROCEDURE Validate_Record
746: ---------------------------------------------------------------------------
747: ------------------------------------------
748: -- Validate_Record for:OKC_K_SEQ_HEADER_V --
749: ------------------------------------------
750: FUNCTION Validate_Record (
751: p_ksqv_rec IN ksqv_rec_type
752: ) RETURN VARCHAR2 IS
753:
754: -- Cursor to make sure that there is only 1 header per installation
755: CURSOR cur_ksq_1 IS
756: SELECT count(*)
757: FROM OKC_K_SEQ_HEADER;
758: -- WHERE line_code = p_ksqv_rec.line_code;
759:
760: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
761: -- l_row_found BOOLEAN := FALSE;
877: ---------------------------------------------------------------------------
878: -- PROCEDURE validate_row
879: ---------------------------------------------------------------------------
880: ---------------------------------------
881: -- validate_row for:OKC_K_SEQ_HEADER_V --
882: ---------------------------------------
883: PROCEDURE validate_row(
884: p_api_version IN NUMBER,
885: p_init_msg_list IN VARCHAR2 ,
1032: ---------------------------------------------------------------------------
1033: -- PROCEDURE insert_row
1034: ---------------------------------------------------------------------------
1035: -----------------------------------
1036: -- insert_row for:OKC_K_SEQ_HEADER --
1037: -----------------------------------
1038: PROCEDURE insert_row(
1039: p_init_msg_list IN VARCHAR2 ,
1040: x_return_status OUT NOCOPY VARCHAR2,
1048: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1049: l_ksq_rec ksq_rec_type := p_ksq_rec;
1050: l_def_ksq_rec ksq_rec_type;
1051: ---------------------------------------
1052: -- Set_Attributes for:OKC_K_SEQ_HEADER --
1053: ---------------------------------------
1054: FUNCTION Set_Attributes (
1055: p_ksq_rec IN ksq_rec_type,
1056: x_ksq_rec OUT NOCOPY ksq_rec_type
1079: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1080: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1081: RAISE OKC_API.G_EXCEPTION_ERROR;
1082: END IF;
1083: INSERT INTO OKC_K_SEQ_HEADER(
1084: line_code,
1085: site_yn,
1086: bg_ou_none,
1087: cls_scs_none,
1143: '_PVT'
1144: );
1145: END insert_row;
1146: -------------------------------------
1147: -- insert_row for:OKC_K_SEQ_HEADER_V --
1148: -------------------------------------
1149: PROCEDURE insert_row(
1150: p_api_version IN NUMBER,
1151: p_init_msg_list IN VARCHAR2 ,
1177: l_ksqv_rec.LAST_UPDATE_LOGIN := FND_GLOBAL.LOGIN_ID;
1178: RETURN(l_ksqv_rec);
1179: END fill_who_columns;
1180: -----------------------------------------
1181: -- Set_Attributes for:OKC_K_SEQ_HEADER_V --
1182: -----------------------------------------
1183: FUNCTION Set_Attributes (
1184: p_ksqv_rec IN ksqv_rec_type,
1185: x_ksqv_rec OUT NOCOPY ksqv_rec_type
1368: ---------------------------------------------------------------------------
1369: -- PROCEDURE lock_row
1370: ---------------------------------------------------------------------------
1371: ---------------------------------
1372: -- lock_row for:OKC_K_SEQ_HEADER --
1373: ---------------------------------
1374: PROCEDURE lock_row(
1375: p_init_msg_list IN VARCHAR2 ,
1376: x_return_status OUT NOCOPY VARCHAR2,
1381: E_Resource_Busy EXCEPTION;
1382: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
1383: CURSOR lock_csr (p_ksq_rec IN ksq_rec_type) IS
1384: SELECT OBJECT_VERSION_NUMBER
1385: FROM OKC_K_SEQ_HEADER
1386: WHERE LINE_CODE = p_ksq_rec.line_code
1387: AND OBJECT_VERSION_NUMBER = p_ksq_rec.object_version_number
1388: FOR UPDATE OF OBJECT_VERSION_NUMBER NOWAIT;
1389:
1388: FOR UPDATE OF OBJECT_VERSION_NUMBER NOWAIT;
1389:
1390: CURSOR lchk_csr (p_ksq_rec IN ksq_rec_type) IS
1391: SELECT OBJECT_VERSION_NUMBER
1392: FROM OKC_K_SEQ_HEADER
1393: WHERE LINE_CODE = p_ksq_rec.line_code;
1394: l_api_version CONSTANT NUMBER := 1;
1395: l_api_name CONSTANT VARCHAR2(30) := 'K_SEQ_lock_row';
1396: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1393: WHERE LINE_CODE = p_ksq_rec.line_code;
1394: l_api_version CONSTANT NUMBER := 1;
1395: l_api_name CONSTANT VARCHAR2(30) := 'K_SEQ_lock_row';
1396: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1397: l_object_version_number OKC_K_SEQ_HEADER.OBJECT_VERSION_NUMBER%TYPE;
1398: lc_object_version_number OKC_K_SEQ_HEADER.OBJECT_VERSION_NUMBER%TYPE;
1399: l_row_notfound BOOLEAN := FALSE;
1400: lc_row_notfound BOOLEAN := FALSE;
1401: BEGIN
1394: l_api_version CONSTANT NUMBER := 1;
1395: l_api_name CONSTANT VARCHAR2(30) := 'K_SEQ_lock_row';
1396: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1397: l_object_version_number OKC_K_SEQ_HEADER.OBJECT_VERSION_NUMBER%TYPE;
1398: lc_object_version_number OKC_K_SEQ_HEADER.OBJECT_VERSION_NUMBER%TYPE;
1399: l_row_notfound BOOLEAN := FALSE;
1400: lc_row_notfound BOOLEAN := FALSE;
1401: BEGIN
1402: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1474: '_PVT'
1475: );
1476: END lock_row;
1477: -----------------------------------
1478: -- lock_row for:OKC_K_SEQ_HEADER_V --
1479: -----------------------------------
1480: PROCEDURE lock_row(
1481: p_api_version IN NUMBER,
1482: p_init_msg_list IN VARCHAR2 ,
1633: ---------------------------------------------------------------------------
1634: -- PROCEDURE update_row
1635: ---------------------------------------------------------------------------
1636: -----------------------------------
1637: -- update_row for:OKC_K_SEQ_HEADER --
1638: -----------------------------------
1639: PROCEDURE update_row(
1640: p_init_msg_list IN VARCHAR2 ,
1641: x_return_status OUT NOCOPY VARCHAR2,
1721: END IF;
1722: RETURN(l_return_status);
1723: END populate_new_record;
1724: ---------------------------------------
1725: -- Set_Attributes for:OKC_K_SEQ_HEADER --
1726: ---------------------------------------
1727: FUNCTION Set_Attributes (
1728: p_ksq_rec IN ksq_rec_type,
1729: x_ksq_rec OUT NOCOPY ksq_rec_type
1758: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1759: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1760: RAISE OKC_API.G_EXCEPTION_ERROR;
1761: END IF;
1762: UPDATE OKC_K_SEQ_HEADER
1763: SET SITE_YN = l_def_ksq_rec.site_yn,
1764: BG_OU_NONE = l_def_ksq_rec.bg_ou_none,
1765: CLS_SCS_NONE = l_def_ksq_rec.cls_scs_none,
1766: USER_FUNCTION_YN = l_def_ksq_rec.user_function_yn,
1808: '_PVT'
1809: );
1810: END update_row;
1811: -------------------------------------
1812: -- update_row for:OKC_K_SEQ_HEADER_V --
1813: -------------------------------------
1814: PROCEDURE update_row(
1815: p_api_version IN NUMBER,
1816: p_init_msg_list IN VARCHAR2 ,
1911: END IF;
1912: RETURN(l_return_status);
1913: END populate_new_record;
1914: -----------------------------------------
1915: -- Set_Attributes for:OKC_K_SEQ_HEADER_V --
1916: -----------------------------------------
1917: FUNCTION Set_Attributes (
1918: p_ksqv_rec IN ksqv_rec_type,
1919: x_ksqv_rec OUT NOCOPY ksqv_rec_type
2105: ---------------------------------------------------------------------------
2106: -- PROCEDURE delete_row
2107: ---------------------------------------------------------------------------
2108: -----------------------------------
2109: -- delete_row for:OKC_K_SEQ_HEADER --
2110: -----------------------------------
2111: PROCEDURE delete_row(
2112: p_init_msg_list IN VARCHAR2 ,
2113: x_return_status OUT NOCOPY VARCHAR2,
2129: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2130: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2131: RAISE OKC_API.G_EXCEPTION_ERROR;
2132: END IF;
2133: DELETE FROM OKC_K_SEQ_HEADER
2134: WHERE LINE_CODE = l_ksq_rec.line_code;
2135:
2136: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2137: EXCEPTION
2166: '_PVT'
2167: );
2168: END delete_row;
2169: -------------------------------------
2170: -- delete_row for:OKC_K_SEQ_HEADER_V --
2171: -------------------------------------
2172: PROCEDURE delete_row(
2173: p_api_version IN NUMBER,
2174: p_init_msg_list IN VARCHAR2 ,
2334: cls_scs_none,
2335: user_function_yn,
2336: pdf_id,
2337: manual_override_yn
2338: from okc_k_seq_header;
2339:
2340: -- Cursor to get the sequence line details
2341: cursor csr_l(p_line_code okc_k_seq_header.line_code%TYPE) is
2342: select doc_sequence_id,
2337: manual_override_yn
2338: from okc_k_seq_header;
2339:
2340: -- Cursor to get the sequence line details
2341: cursor csr_l(p_line_code okc_k_seq_header.line_code%TYPE) is
2342: select doc_sequence_id,
2343: business_group_id,
2344: operating_unit_id,
2345: cls_code,