90: NULL;
91: END api_copy;
92:
93: ---------------------------------------------------------------------------
94: -- FUNCTION get_rec for: OKL_PROD_STRM_TYPES_V
95: ---------------------------------------------------------------------------
96: FUNCTION get_rec (
97: p_psyv_rec IN psyv_rec_type,
98: x_no_data_found OUT NOCOPY BOOLEAN
110: CREATION_DATE,
111: LAST_UPDATE_DATE,
112: LAST_UPDATED_BY,
113: LAST_UPDATE_LOGIN
114: FROM Okl_Prod_Strm_Types_V
115: WHERE okl_prod_strm_types_v.id = p_id;
116: l_okl_psyb_pk okl_psyb_pk_csr%ROWTYPE;
117: l_psyv_rec psyv_rec_type;
118: BEGIN
111: LAST_UPDATE_DATE,
112: LAST_UPDATED_BY,
113: LAST_UPDATE_LOGIN
114: FROM Okl_Prod_Strm_Types_V
115: WHERE okl_prod_strm_types_v.id = p_id;
116: l_okl_psyb_pk okl_psyb_pk_csr%ROWTYPE;
117: l_psyv_rec psyv_rec_type;
118: BEGIN
119: x_no_data_found := TRUE;
165: BEGIN
166: RETURN(get_rec(p_psyv_rec, l_row_not_found));
167: END get_rec;
168: ---------------------------------------------------------------------------
169: -- FUNCTION get_rec for: OKL_PROD_STRM_TYPES
170: ---------------------------------------------------------------------------
171: FUNCTION get_rec (
172: p_psy_rec IN psy_rec_type,
173: x_no_data_found OUT NOCOPY BOOLEAN
185: CREATION_DATE,
186: LAST_UPDATED_BY,
187: LAST_UPDATE_DATE,
188: LAST_UPDATE_LOGIN
189: FROM Okl_Prod_Strm_Types
190: WHERE okl_prod_strm_types.id = p_id;
191: l_psy_pk psy_pk_csr%ROWTYPE;
192: l_psy_rec psy_rec_type;
193: BEGIN
186: LAST_UPDATED_BY,
187: LAST_UPDATE_DATE,
188: LAST_UPDATE_LOGIN
189: FROM Okl_Prod_Strm_Types
190: WHERE okl_prod_strm_types.id = p_id;
191: l_psy_pk psy_pk_csr%ROWTYPE;
192: l_psy_rec psy_rec_type;
193: BEGIN
194: x_no_data_found := TRUE;
240: BEGIN
241: RETURN(get_rec(p_psy_rec, l_row_not_found));
242: END get_rec;
243: ---------------------------------------------------------------------------
244: -- FUNCTION null_out_defaults for: OKL_PROD_STRM_TYPES_V
245: ---------------------------------------------------------------------------
246: FUNCTION null_out_defaults (
247: p_psyv_rec IN psyv_rec_type
248: ) RETURN psyv_rec_type IS
570: ---------------------------------------------------------------------------
571: -- FUNCTION Validate_Attributes
572: ---------------------------------------------------------------------------
573: ---------------------------------------------------
574: -- Validate_Attributes for:OKL_PROD_STRM_TYPES_V --
575: ---------------------------------------------------
576: FUNCTION Validate_Attributes (
577: p_psyv_rec IN psyv_rec_type
578: ) RETURN VARCHAR2 IS
669: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
670: l_unq_tbl OKC_UTIL.unq_tbl_type;
671: l_psy_status VARCHAR2(1);
672: l_row_found BOOLEAN := FALSE;
673: CURSOR c1(p_pdt_id okl_prod_strm_types_v.pdt_id%TYPE,
674: p_sty_id okl_prod_strm_types_v.sty_id%TYPE) IS
675: SELECT '1'
676: FROM okl_prod_strm_types_v
677: WHERE pdt_id = p_pdt_id
670: l_unq_tbl OKC_UTIL.unq_tbl_type;
671: l_psy_status VARCHAR2(1);
672: l_row_found BOOLEAN := FALSE;
673: CURSOR c1(p_pdt_id okl_prod_strm_types_v.pdt_id%TYPE,
674: p_sty_id okl_prod_strm_types_v.sty_id%TYPE) IS
675: SELECT '1'
676: FROM okl_prod_strm_types_v
677: WHERE pdt_id = p_pdt_id
678: AND sty_id = p_sty_id
672: l_row_found BOOLEAN := FALSE;
673: CURSOR c1(p_pdt_id okl_prod_strm_types_v.pdt_id%TYPE,
674: p_sty_id okl_prod_strm_types_v.sty_id%TYPE) IS
675: SELECT '1'
676: FROM okl_prod_strm_types_v
677: WHERE pdt_id = p_pdt_id
678: AND sty_id = p_sty_id
679: AND id <> NVL(p_psyv_rec.id,-9999);
680:
687: FETCH c1 INTO l_psy_status;
688: l_row_found := c1%FOUND;
689: CLOSE c1;
690: IF l_row_found THEN
691: OKC_API.set_message('OKL',G_UNQS,G_TABLE_TOKEN, 'Okl_Prod_Strm_Types_V'); ---CHG001
692: x_return_status := OKC_API.G_RET_STS_ERROR;
693: END IF;
694: EXCEPTION
695: WHEN G_EXCEPTION_HALT_VALIDATION THEN
714: ---------------------------------------------------------------------------
715: -- PROCEDURE Validate_Record
716: ---------------------------------------------------------------------------
717: -----------------------------------------------
718: -- Validate Record for:OKL_PROD_STRM_TYPES_V --
719: -----------------------------------------------
720: /*FUNCTION Validate_Record (
721: p_psyv_rec IN psyv_rec_type,
722: p_db_psyv_rec IN psyv_rec_type
842: ---------------------------------------------------------------------------
843: -- PROCEDURE validate_row
844: ---------------------------------------------------------------------------
845: --------------------------------------------
846: -- validate_row for:OKL_PROD_STRM_TYPES_V --
847: --------------------------------------------
848: PROCEDURE validate_row(
849: p_api_version IN NUMBER,
850: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
919: '_PVT'
920: );
921: END validate_row;
922: -------------------------------------------------------
923: -- PL/SQL TBL validate_row for:OKL_PROD_STRM_TYPES_V --
924: -------------------------------------------------------
925: PROCEDURE validate_row(
926: p_api_version IN NUMBER,
927: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1015: );
1016: END validate_row;
1017:
1018: -------------------------------------------------------
1019: -- PL/SQL TBL validate_row for:OKL_PROD_STRM_TYPES_V --
1020: -------------------------------------------------------
1021: PROCEDURE validate_row(
1022: p_api_version IN NUMBER,
1023: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1080: ---------------------------------------------------------------------------
1081: -- PROCEDURE insert_row
1082: ---------------------------------------------------------------------------
1083: ----------------------------------------
1084: -- insert_row for:OKL_PROD_STRM_TYPES --
1085: ----------------------------------------
1086: PROCEDURE insert_row(
1087: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1088: x_return_status OUT NOCOPY VARCHAR2,
1096: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1097: l_psy_rec psy_rec_type := p_psy_rec;
1098: l_def_psy_rec psy_rec_type;
1099: --------------------------------------------
1100: -- Set_Attributes for:OKL_PROD_STRM_TYPES --
1101: --------------------------------------------
1102: FUNCTION Set_Attributes (
1103: p_psy_rec IN psy_rec_type,
1104: x_psy_rec OUT NOCOPY psy_rec_type
1127: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1128: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1129: RAISE OKC_API.G_EXCEPTION_ERROR;
1130: END IF;
1131: INSERT INTO OKL_PROD_STRM_TYPES(
1132: id,
1133: TO_DATE,
1134: accrual_yn,
1135: from_date,
1190: '_PVT'
1191: );
1192: END insert_row;
1193: -------------------------------------------
1194: -- insert_row for :OKL_PROD_STRM_TYPES_V --
1195: -------------------------------------------
1196: PROCEDURE insert_row(
1197: p_api_version IN NUMBER,
1198: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1224: l_psyv_rec.LAST_UPDATE_LOGIN := FND_GLOBAL.LOGIN_ID;
1225: RETURN(l_psyv_rec);
1226: END fill_who_columns;
1227: ----------------------------------------------
1228: -- Set_Attributes for:OKL_PROD_STRM_TYPES_V --
1229: ----------------------------------------------
1230: FUNCTION Set_Attributes (
1231: p_psyv_rec IN psyv_rec_type,
1232: x_psyv_rec OUT NOCOPY psyv_rec_type
1500: ---------------------------------------------------------------------------
1501: -- PROCEDURE lock_row
1502: ---------------------------------------------------------------------------
1503: --------------------------------------
1504: -- lock_row for:OKL_PROD_STRM_TYPES --
1505: --------------------------------------
1506: PROCEDURE lock_row(
1507: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1508: x_return_status OUT NOCOPY VARCHAR2,
1513: E_Resource_Busy EXCEPTION;
1514: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
1515: CURSOR lock_csr (p_psy_rec IN psy_rec_type) IS
1516: SELECT OBJECT_VERSION_NUMBER
1517: FROM OKL_PROD_STRM_TYPES
1518: WHERE ID = p_psy_rec.id
1519: AND OBJECT_VERSION_NUMBER = p_psy_rec.object_version_number
1520: FOR UPDATE OF OBJECT_VERSION_NUMBER NOWAIT;
1521:
1520: FOR UPDATE OF OBJECT_VERSION_NUMBER NOWAIT;
1521:
1522: CURSOR lchk_csr (p_psy_rec IN psy_rec_type) IS
1523: SELECT OBJECT_VERSION_NUMBER
1524: FROM OKL_PROD_STRM_TYPES
1525: WHERE ID = p_psy_rec.id;
1526: l_api_version CONSTANT NUMBER := 1;
1527: l_api_name CONSTANT VARCHAR2(30) := 'B_lock_row';
1528: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1525: WHERE ID = p_psy_rec.id;
1526: l_api_version CONSTANT NUMBER := 1;
1527: l_api_name CONSTANT VARCHAR2(30) := 'B_lock_row';
1528: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1529: l_object_version_number OKL_PROD_STRM_TYPES.OBJECT_VERSION_NUMBER%TYPE;
1530: lc_object_version_number OKL_PROD_STRM_TYPES.OBJECT_VERSION_NUMBER%TYPE;
1531: l_row_notfound BOOLEAN := FALSE;
1532: lc_row_notfound BOOLEAN := FALSE;
1533: BEGIN
1526: l_api_version CONSTANT NUMBER := 1;
1527: l_api_name CONSTANT VARCHAR2(30) := 'B_lock_row';
1528: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1529: l_object_version_number OKL_PROD_STRM_TYPES.OBJECT_VERSION_NUMBER%TYPE;
1530: lc_object_version_number OKL_PROD_STRM_TYPES.OBJECT_VERSION_NUMBER%TYPE;
1531: l_row_notfound BOOLEAN := FALSE;
1532: lc_row_notfound BOOLEAN := FALSE;
1533: BEGIN
1534: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1607: '_PVT'
1608: );
1609: END lock_row;
1610: -----------------------------------------
1611: -- lock_row for: OKL_PROD_STRM_TYPES_V --
1612: -----------------------------------------
1613: PROCEDURE lock_row(
1614: p_api_version IN NUMBER,
1615: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1847: ---------------------------------------------------------------------------
1848: -- PROCEDURE update_row
1849: ---------------------------------------------------------------------------
1850: ----------------------------------------
1851: -- update_row for:OKL_PROD_STRM_TYPES --
1852: ----------------------------------------
1853: PROCEDURE update_row(
1854: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1855: x_return_status OUT NOCOPY VARCHAR2,
1930: END IF;
1931: RETURN(l_return_status);
1932: END populate_new_record;
1933: --------------------------------------------
1934: -- Set_Attributes for:OKL_PROD_STRM_TYPES --
1935: --------------------------------------------
1936: FUNCTION Set_Attributes (
1937: p_psy_rec IN psy_rec_type,
1938: x_psy_rec OUT NOCOPY psy_rec_type
1968: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1969: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1970: RAISE OKC_API.G_EXCEPTION_ERROR;
1971: END IF;
1972: UPDATE OKL_PROD_STRM_TYPES
1973: SET TO_DATE = l_def_psy_rec.TO_DATE,
1974: ACCRUAL_YN = l_def_psy_rec.accrual_yn,
1975: FROM_DATE = l_def_psy_rec.from_date,
1976: STY_ID = l_def_psy_rec.sty_id,
2018: '_PVT'
2019: );
2020: END update_row;
2021: ------------------------------------------
2022: -- update_row for:OKL_PROD_STRM_TYPES_V --
2023: ------------------------------------------
2024: PROCEDURE update_row(
2025: p_api_version IN NUMBER,
2026: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2118: END IF;
2119: RETURN(l_return_status);
2120: END populate_new_record;
2121: ----------------------------------------------
2122: -- Set_Attributes for:OKL_PROD_STRM_TYPES_V --
2123: ----------------------------------------------
2124: FUNCTION Set_Attributes (
2125: p_psyv_rec IN psyv_rec_type,
2126: x_psyv_rec OUT NOCOPY psyv_rec_type
2412: ---------------------------------------------------------------------------
2413: -- PROCEDURE delete_row
2414: ---------------------------------------------------------------------------
2415: ----------------------------------------
2416: -- delete_row for:OKL_PROD_STRM_TYPES --
2417: ----------------------------------------
2418: PROCEDURE delete_row(
2419: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2420: x_return_status OUT NOCOPY VARCHAR2,
2437: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2438: RAISE OKC_API.G_EXCEPTION_ERROR;
2439: END IF;
2440:
2441: DELETE FROM OKL_PROD_STRM_TYPES
2442: WHERE ID = p_psy_rec.id;
2443:
2444: x_return_status := l_return_status;
2445: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
2475: '_PVT'
2476: );
2477: END delete_row;
2478: ------------------------------------------
2479: -- delete_row for:OKL_PROD_STRM_TYPES_V --
2480: ------------------------------------------
2481: PROCEDURE delete_row(
2482: p_api_version IN NUMBER,
2483: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2557: '_PVT'
2558: );
2559: END delete_row;
2560: -----------------------------------------------------
2561: -- PL/SQL TBL delete_row for:OKL_PROD_STRM_TYPES_V --
2562: -----------------------------------------------------
2563: PROCEDURE delete_row(
2564: p_api_version IN NUMBER,
2565: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2653: );
2654: END delete_row;
2655:
2656: -----------------------------------------------------
2657: -- PL/SQL TBL delete_row for:OKL_PROD_STRM_TYPES_V --
2658: -----------------------------------------------------
2659: PROCEDURE delete_row(
2660: p_api_version IN NUMBER,
2661: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,