85: BEGIN
86: null;
87: END api_copy;
88: ---------------------------------------------------------------------------
89: -- FUNCTION get_rec for: OKL_OPEN_INT_PRTY_V
90: ---------------------------------------------------------------------------
91: FUNCTION get_rec (
92: p_oipv_rec IN oipv_rec_type,
93: x_no_data_found OUT NOCOPY BOOLEAN
91: FUNCTION get_rec (
92: p_oipv_rec IN oipv_rec_type,
93: x_no_data_found OUT NOCOPY BOOLEAN
94: ) RETURN oipv_rec_type AS
95: CURSOR OKL_OPEN_INT_PRTY_pk_csr (p_id IN NUMBER) IS
96: SELECT
97: ID,
98: KHR_ID,
99: PARTY_ID,
150: CREATION_DATE,
151: LAST_UPDATED_BY,
152: LAST_UPDATE_DATE,
153: LAST_UPDATE_LOGIN
154: FROM OKL_OPEN_INT_PRTY
155: WHERE OKL_OPEN_INT_PRTY.id = p_id;
156: l_OKL_OPEN_INT_PRTY_pk OKL_OPEN_INT_PRTY_pk_csr%ROWTYPE;
157: l_oipv_rec oipv_rec_type;
158: BEGIN
151: LAST_UPDATED_BY,
152: LAST_UPDATE_DATE,
153: LAST_UPDATE_LOGIN
154: FROM OKL_OPEN_INT_PRTY
155: WHERE OKL_OPEN_INT_PRTY.id = p_id;
156: l_OKL_OPEN_INT_PRTY_pk OKL_OPEN_INT_PRTY_pk_csr%ROWTYPE;
157: l_oipv_rec oipv_rec_type;
158: BEGIN
159: x_no_data_found := TRUE;
152: LAST_UPDATE_DATE,
153: LAST_UPDATE_LOGIN
154: FROM OKL_OPEN_INT_PRTY
155: WHERE OKL_OPEN_INT_PRTY.id = p_id;
156: l_OKL_OPEN_INT_PRTY_pk OKL_OPEN_INT_PRTY_pk_csr%ROWTYPE;
157: l_oipv_rec oipv_rec_type;
158: BEGIN
159: x_no_data_found := TRUE;
160: -- Get current database values
157: l_oipv_rec oipv_rec_type;
158: BEGIN
159: x_no_data_found := TRUE;
160: -- Get current database values
161: OPEN OKL_OPEN_INT_PRTY_pk_csr (p_oipv_rec.id);
162: FETCH OKL_OPEN_INT_PRTY_pk_csr INTO
163: l_oipv_rec.id,
164: l_oipv_rec.khr_id,
165: l_oipv_rec.party_id,
158: BEGIN
159: x_no_data_found := TRUE;
160: -- Get current database values
161: OPEN OKL_OPEN_INT_PRTY_pk_csr (p_oipv_rec.id);
162: FETCH OKL_OPEN_INT_PRTY_pk_csr INTO
163: l_oipv_rec.id,
164: l_oipv_rec.khr_id,
165: l_oipv_rec.party_id,
166: l_oipv_rec.party_name,
216: l_oipv_rec.creation_date,
217: l_oipv_rec.last_updated_by,
218: l_oipv_rec.last_update_date,
219: l_oipv_rec.last_update_login;
220: x_no_data_found := OKL_OPEN_INT_PRTY_pk_csr%NOTFOUND;
221: CLOSE OKL_OPEN_INT_PRTY_pk_csr;
222: RETURN(l_oipv_rec);
223: END get_rec;
224: ------------------------------------------------------------------
217: l_oipv_rec.last_updated_by,
218: l_oipv_rec.last_update_date,
219: l_oipv_rec.last_update_login;
220: x_no_data_found := OKL_OPEN_INT_PRTY_pk_csr%NOTFOUND;
221: CLOSE OKL_OPEN_INT_PRTY_pk_csr;
222: RETURN(l_oipv_rec);
223: END get_rec;
224: ------------------------------------------------------------------
225: -- This version of get_rec sets error messages if no data found --
249: BEGIN
250: RETURN(get_rec(p_oipv_rec, l_row_not_found));
251: END get_rec;
252: ---------------------------------------------------------------------------
253: -- FUNCTION get_rec for: OKL_OPEN_INT_PRTY
254: ---------------------------------------------------------------------------
255: FUNCTION get_rec (
256: p_oip_rec IN oip_rec_type,
257: x_no_data_found OUT NOCOPY BOOLEAN
314: CREATION_DATE,
315: LAST_UPDATED_BY,
316: LAST_UPDATE_DATE,
317: LAST_UPDATE_LOGIN
318: FROM Okl_Open_Int_Prty
319: WHERE okl_open_int_prty.id = p_id;
320: l_okl_oip_pk okl_oip_pk_csr%ROWTYPE;
321: l_oip_rec oip_rec_type;
322: BEGIN
315: LAST_UPDATED_BY,
316: LAST_UPDATE_DATE,
317: LAST_UPDATE_LOGIN
318: FROM Okl_Open_Int_Prty
319: WHERE okl_open_int_prty.id = p_id;
320: l_okl_oip_pk okl_oip_pk_csr%ROWTYPE;
321: l_oip_rec oip_rec_type;
322: BEGIN
323: x_no_data_found := TRUE;
413: BEGIN
414: RETURN(get_rec(p_oip_rec, l_row_not_found));
415: END get_rec;
416: ---------------------------------------------------------------------------
417: -- FUNCTION null_out_defaults for: OKL_OPEN_INT_PRTY_V
418: ---------------------------------------------------------------------------
419: FUNCTION null_out_defaults (
420: p_oipv_rec IN oipv_rec_type
421: ) RETURN oipv_rec_type AS
722: ---------------------------------------------------------------------------
723: -- FUNCTION Validate_Attributes
724: ---------------------------------------------------------------------------
725: -------------------------------------------------
726: -- Validate_Attributes for:OKL_OPEN_INT_PRTY_V --
727: -------------------------------------------------
728: FUNCTION Validate_Attributes (
729: p_oipv_rec IN oipv_rec_type
730: ) RETURN VARCHAR2 AS
809: ---------------------------------------------------------------------------
810: -- PROCEDURE Validate_Record
811: ---------------------------------------------------------------------------
812: ---------------------------------------------
813: -- Validate Record for:OKL_OPEN_INT_PRTY_V --
814: ---------------------------------------------
815: FUNCTION Validate_Record (
816: p_oipv_rec IN oipv_rec_type,
817: p_db_oipv_rec IN oipv_rec_type
962: ---------------------------------------------------------------------------
963: -- PROCEDURE validate_row
964: ---------------------------------------------------------------------------
965: ------------------------------------------
966: -- validate_row for:OKL_OPEN_INT_PRTY_V --
967: ------------------------------------------
968: PROCEDURE validate_row(
969: p_api_version IN NUMBER,
970: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1038: '_PVT'
1039: );
1040: END validate_row;
1041: -----------------------------------------------------
1042: -- PL/SQL TBL validate_row for:OKL_OPEN_INT_PRTY_V --
1043: -----------------------------------------------------
1044: PROCEDURE validate_row(
1045: p_api_version IN NUMBER,
1046: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1132: '_PVT'
1133: );
1134: END validate_row;
1135: -----------------------------------------------------
1136: -- PL/SQL TBL validate_row for:OKL_OPEN_INT_PRTY_V --
1137: -----------------------------------------------------
1138: PROCEDURE validate_row(
1139: p_api_version IN NUMBER,
1140: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1195: ---------------------------------------------------------------------------
1196: -- PROCEDURE insert_row
1197: ---------------------------------------------------------------------------
1198: --------------------------------------
1199: -- insert_row for:OKL_OPEN_INT_PRTY --
1200: --------------------------------------
1201: PROCEDURE insert_row(
1202: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1203: x_return_status OUT NOCOPY VARCHAR2,
1210: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1211: l_oip_rec oip_rec_type := p_oip_rec;
1212: l_def_oip_rec oip_rec_type;
1213: ------------------------------------------
1214: -- Set_Attributes for:OKL_OPEN_INT_PRTY --
1215: ------------------------------------------
1216: FUNCTION Set_Attributes (
1217: p_oip_rec IN oip_rec_type,
1218: x_oip_rec OUT NOCOPY oip_rec_type
1241: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1242: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1243: RAISE OKC_API.G_EXCEPTION_ERROR;
1244: END IF;
1245: INSERT INTO OKL_OPEN_INT_PRTY(
1246: id,
1247: khr_id,
1248: party_id,
1249: party_name,
1394: '_PVT'
1395: );
1396: END insert_row;
1397: -----------------------------------------
1398: -- insert_row for :OKL_OPEN_INT_PRTY_V --
1399: -----------------------------------------
1400: PROCEDURE insert_row(
1401: p_api_version IN NUMBER,
1402: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1427: l_oipv_rec.LAST_UPDATE_LOGIN := FND_GLOBAL.LOGIN_ID;
1428: RETURN(l_oipv_rec);
1429: END fill_who_columns;
1430: --------------------------------------------
1431: -- Set_Attributes for:OKL_OPEN_INT_PRTY_V --
1432: --------------------------------------------
1433: FUNCTION Set_Attributes (
1434: p_oipv_rec IN oipv_rec_type,
1435: x_oipv_rec OUT NOCOPY oipv_rec_type
1716: ---------------------------------------------------------------------------
1717: -- PROCEDURE lock_row
1718: ---------------------------------------------------------------------------
1719: ------------------------------------
1720: -- lock_row for:OKL_OPEN_INT_PRTY --
1721: ------------------------------------
1722: PROCEDURE lock_row(
1723: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1724: x_return_status OUT NOCOPY VARCHAR2,
1728: E_Resource_Busy EXCEPTION;
1729: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
1730: CURSOR lock_csr (p_oip_rec IN oip_rec_type) IS
1731: SELECT OBJECT_VERSION_NUMBER
1732: FROM OKL_OPEN_INT_PRTY
1733: WHERE ID = p_oip_rec.id
1734: AND OBJECT_VERSION_NUMBER = p_oip_rec.object_version_number
1735: FOR UPDATE OF OBJECT_VERSION_NUMBER NOWAIT;
1736: CURSOR lchk_csr (p_oip_rec IN oip_rec_type) IS
1734: AND OBJECT_VERSION_NUMBER = p_oip_rec.object_version_number
1735: FOR UPDATE OF OBJECT_VERSION_NUMBER NOWAIT;
1736: CURSOR lchk_csr (p_oip_rec IN oip_rec_type) IS
1737: SELECT OBJECT_VERSION_NUMBER
1738: FROM OKL_OPEN_INT_PRTY
1739: WHERE ID = p_oip_rec.id;
1740: l_api_version CONSTANT NUMBER := 1;
1741: l_api_name CONSTANT VARCHAR2(30) := 'B_lock_row';
1742: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1739: WHERE ID = p_oip_rec.id;
1740: l_api_version CONSTANT NUMBER := 1;
1741: l_api_name CONSTANT VARCHAR2(30) := 'B_lock_row';
1742: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1743: l_object_version_number OKL_OPEN_INT_PRTY.OBJECT_VERSION_NUMBER%TYPE;
1744: lc_object_version_number OKL_OPEN_INT_PRTY.OBJECT_VERSION_NUMBER%TYPE;
1745: l_row_notfound BOOLEAN := FALSE;
1746: lc_row_notfound BOOLEAN := FALSE;
1747: BEGIN
1740: l_api_version CONSTANT NUMBER := 1;
1741: l_api_name CONSTANT VARCHAR2(30) := 'B_lock_row';
1742: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1743: l_object_version_number OKL_OPEN_INT_PRTY.OBJECT_VERSION_NUMBER%TYPE;
1744: lc_object_version_number OKL_OPEN_INT_PRTY.OBJECT_VERSION_NUMBER%TYPE;
1745: l_row_notfound BOOLEAN := FALSE;
1746: lc_row_notfound BOOLEAN := FALSE;
1747: BEGIN
1748: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1820: '_PVT'
1821: );
1822: END lock_row;
1823: ---------------------------------------
1824: -- lock_row for: OKL_OPEN_INT_PRTY_V --
1825: ---------------------------------------
1826: PROCEDURE lock_row(
1827: p_api_version IN NUMBER,
1828: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2057: ---------------------------------------------------------------------------
2058: -- PROCEDURE update_row
2059: ---------------------------------------------------------------------------
2060: --------------------------------------
2061: -- update_row for:OKL_OPEN_INT_PRTY --
2062: --------------------------------------
2063: PROCEDURE update_row(
2064: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2065: x_return_status OUT NOCOPY VARCHAR2,
2319: END IF;
2320: RETURN(l_return_status);
2321: END populate_new_record;
2322: ------------------------------------------
2323: -- Set_Attributes for:OKL_OPEN_INT_PRTY --
2324: ------------------------------------------
2325: FUNCTION Set_Attributes (
2326: p_oip_rec IN oip_rec_type,
2327: x_oip_rec OUT NOCOPY oip_rec_type
2357: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2358: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2359: RAISE OKC_API.G_EXCEPTION_ERROR;
2360: END IF;
2361: UPDATE OKL_OPEN_INT_PRTY
2362: SET KHR_ID = l_def_oip_rec.khr_id,
2363: PARTY_ID = l_def_oip_rec.party_id,
2364: PARTY_NAME = l_def_oip_rec.party_name,
2365: COUNTRY = l_def_oip_rec.country,
2451: '_PVT'
2452: );
2453: END update_row;
2454: ----------------------------------------
2455: -- update_row for:OKL_OPEN_INT_PRTY_V --
2456: ----------------------------------------
2457: PROCEDURE update_row(
2458: p_api_version IN NUMBER,
2459: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2730: END IF;
2731: RETURN(l_return_status);
2732: END populate_new_record;
2733: --------------------------------------------
2734: -- Set_Attributes for:OKL_OPEN_INT_PRTY_V --
2735: --------------------------------------------
2736: FUNCTION Set_Attributes (
2737: p_oipv_rec IN oipv_rec_type,
2738: x_oipv_rec OUT NOCOPY oipv_rec_type
3034: ---------------------------------------------------------------------------
3035: -- PROCEDURE delete_row
3036: ---------------------------------------------------------------------------
3037: --------------------------------------
3038: -- delete_row for:OKL_OPEN_INT_PRTY --
3039: --------------------------------------
3040: PROCEDURE delete_row(
3041: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3042: x_return_status OUT NOCOPY VARCHAR2,
3057: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
3058: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3059: RAISE OKC_API.G_EXCEPTION_ERROR;
3060: END IF;
3061: DELETE FROM OKL_OPEN_INT_PRTY
3062: WHERE ID = p_oip_rec.id;
3063: x_return_status := l_return_status;
3064: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
3065: EXCEPTION
3094: '_PVT'
3095: );
3096: END delete_row;
3097: ----------------------------------------
3098: -- delete_row for:OKL_OPEN_INT_PRTY_V --
3099: ----------------------------------------
3100: PROCEDURE delete_row(
3101: p_api_version IN NUMBER,
3102: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3175: '_PVT'
3176: );
3177: END delete_row;
3178: ---------------------------------------------------
3179: -- PL/SQL TBL delete_row for:OKL_OPEN_INT_PRTY_V --
3180: ---------------------------------------------------
3181: PROCEDURE delete_row(
3182: p_api_version IN NUMBER,
3183: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3269: '_PVT'
3270: );
3271: END delete_row;
3272: ---------------------------------------------------
3273: -- PL/SQL TBL delete_row for:OKL_OPEN_INT_PRTY_V --
3274: ---------------------------------------------------
3275: PROCEDURE delete_row(
3276: p_api_version IN NUMBER,
3277: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,