90: null;
91: END api_copy;
92:
93: ---------------------------------------------------------------------------
94: -- FUNCTION get_rec for: OKL_CURE_FUND_TRANS_V
95: ---------------------------------------------------------------------------
96: FUNCTION get_rec (
97: p_cftv_rec IN cftv_rec_type,
98: x_no_data_found OUT NOCOPY BOOLEAN
96: FUNCTION get_rec (
97: p_cftv_rec IN cftv_rec_type,
98: x_no_data_found OUT NOCOPY BOOLEAN
99: ) RETURN cftv_rec_type IS
100: CURSOR OKL_cure_fund_trans_pk_csr (p_cure_fund_trans_id IN NUMBER) IS
101: SELECT
102: CURE_FUND_TRANS_ID,
103: CURE_PAYMENT_ID,
104: AMOUNT,
132: CREATION_DATE,
133: LAST_UPDATED_BY,
134: LAST_UPDATE_DATE,
135: LAST_UPDATE_LOGIN
136: FROM OKL_CURE_FUND_TRANS
137: WHERE OKL_CURE_FUND_TRANS.cure_fund_trans_id = p_cure_fund_trans_id;
138: l_OKL_cure_fund_trans_pk OKL_cure_fund_trans_pk_csr%ROWTYPE;
139: l_cftv_rec cftv_rec_type;
140: BEGIN
133: LAST_UPDATED_BY,
134: LAST_UPDATE_DATE,
135: LAST_UPDATE_LOGIN
136: FROM OKL_CURE_FUND_TRANS
137: WHERE OKL_CURE_FUND_TRANS.cure_fund_trans_id = p_cure_fund_trans_id;
138: l_OKL_cure_fund_trans_pk OKL_cure_fund_trans_pk_csr%ROWTYPE;
139: l_cftv_rec cftv_rec_type;
140: BEGIN
141: x_no_data_found := TRUE;
134: LAST_UPDATE_DATE,
135: LAST_UPDATE_LOGIN
136: FROM OKL_CURE_FUND_TRANS
137: WHERE OKL_CURE_FUND_TRANS.cure_fund_trans_id = p_cure_fund_trans_id;
138: l_OKL_cure_fund_trans_pk OKL_cure_fund_trans_pk_csr%ROWTYPE;
139: l_cftv_rec cftv_rec_type;
140: BEGIN
141: x_no_data_found := TRUE;
142: -- Get current database values
139: l_cftv_rec cftv_rec_type;
140: BEGIN
141: x_no_data_found := TRUE;
142: -- Get current database values
143: OPEN OKL_cure_fund_trans_pk_csr (p_cftv_rec.cure_fund_trans_id);
144: FETCH OKL_cure_fund_trans_pk_csr INTO
145: l_cftv_rec.cure_fund_trans_id,
146: l_cftv_rec.cure_payment_id,
147: l_cftv_rec.amount,
140: BEGIN
141: x_no_data_found := TRUE;
142: -- Get current database values
143: OPEN OKL_cure_fund_trans_pk_csr (p_cftv_rec.cure_fund_trans_id);
144: FETCH OKL_cure_fund_trans_pk_csr INTO
145: l_cftv_rec.cure_fund_trans_id,
146: l_cftv_rec.cure_payment_id,
147: l_cftv_rec.amount,
148: l_cftv_rec.fund_type,
175: l_cftv_rec.creation_date,
176: l_cftv_rec.last_updated_by,
177: l_cftv_rec.last_update_date,
178: l_cftv_rec.last_update_login;
179: x_no_data_found := OKL_cure_fund_trans_pk_csr%NOTFOUND;
180: CLOSE OKL_cure_fund_trans_pk_csr;
181: RETURN(l_cftv_rec);
182: END get_rec;
183:
176: l_cftv_rec.last_updated_by,
177: l_cftv_rec.last_update_date,
178: l_cftv_rec.last_update_login;
179: x_no_data_found := OKL_cure_fund_trans_pk_csr%NOTFOUND;
180: CLOSE OKL_cure_fund_trans_pk_csr;
181: RETURN(l_cftv_rec);
182: END get_rec;
183:
184: ------------------------------------------------------------------
209: BEGIN
210: RETURN(get_rec(p_cftv_rec, l_row_not_found));
211: END get_rec;
212: ---------------------------------------------------------------------------
213: -- FUNCTION get_rec for: OKL_CURE_FUND_TRANS
214: ---------------------------------------------------------------------------
215: FUNCTION get_rec (
216: p_cft_rec IN cft_rec_type,
217: x_no_data_found OUT NOCOPY BOOLEAN
251: CREATION_DATE,
252: LAST_UPDATED_BY,
253: LAST_UPDATE_DATE,
254: LAST_UPDATE_LOGIN
255: FROM OKL_Cure_Fund_Trans
256: WHERE OKL_cure_fund_trans.cure_fund_trans_id = p_cure_fund_trans_id;
257: l_OKL_cure_funds_trans_pk OKL_cure_funds_trans_pk_csr%ROWTYPE;
258: l_cft_rec cft_rec_type;
259: BEGIN
252: LAST_UPDATED_BY,
253: LAST_UPDATE_DATE,
254: LAST_UPDATE_LOGIN
255: FROM OKL_Cure_Fund_Trans
256: WHERE OKL_cure_fund_trans.cure_fund_trans_id = p_cure_fund_trans_id;
257: l_OKL_cure_funds_trans_pk OKL_cure_funds_trans_pk_csr%ROWTYPE;
258: l_cft_rec cft_rec_type;
259: BEGIN
260: x_no_data_found := TRUE;
328: BEGIN
329: RETURN(get_rec(p_cft_rec, l_row_not_found));
330: END get_rec;
331: ---------------------------------------------------------------------------
332: -- FUNCTION null_out_defaults for: OKL_CURE_FUND_TRANS_V
333: ---------------------------------------------------------------------------
334: FUNCTION null_out_defaults (
335: p_cftv_rec IN cftv_rec_type
336: ) RETURN cftv_rec_type IS
598: ---------------------------------------------------------------------------
599: -- FUNCTION Validate_Attributes
600: ---------------------------------------------------------------------------
601: ---------------------------------------------------
602: -- Validate_Attributes for:OKL_CURE_FUND_TRANS_V --
603: ---------------------------------------------------
604: FUNCTION Validate_Attributes (
605: p_cftv_rec IN cftv_rec_type
606: ) RETURN VARCHAR2 IS
705: ---------------------------------------------------------------------------
706: -- PROCEDURE Validate_Record
707: ---------------------------------------------------------------------------
708: -----------------------------------------------
709: -- Validate Record for:OKL_CURE_FUND_TRANS_V --
710: -----------------------------------------------
711: FUNCTION Validate_Record (
712: p_cftv_rec IN cftv_rec_type,
713: p_db_cftv_rec IN cftv_rec_type
813: ---------------------------------------------------------------------------
814: -- PROCEDURE validate_row
815: ---------------------------------------------------------------------------
816: --------------------------------------------
817: -- validate_row for:OKL_CURE_FUND_TRANS_V --
818: --------------------------------------------
819: PROCEDURE validate_row(
820: p_api_version IN NUMBER,
821: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
890: '_PVT'
891: );
892: END validate_row;
893: -------------------------------------------------------
894: -- PL/SQL TBL validate_row for:OKL_CURE_FUND_TRANS_V --
895: -------------------------------------------------------
896: PROCEDURE validate_row(
897: p_api_version IN NUMBER,
898: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
986: );
987: END validate_row;
988:
989: -------------------------------------------------------
990: -- PL/SQL TBL validate_row for:OKL_CURE_FUND_TRANS_V --
991: -------------------------------------------------------
992: PROCEDURE validate_row(
993: p_api_version IN NUMBER,
994: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1051: ---------------------------------------------------------------------------
1052: -- PROCEDURE insert_row
1053: ---------------------------------------------------------------------------
1054: ----------------------------------------
1055: -- insert_row for:OKL_CURE_FUND_TRANS --
1056: ----------------------------------------
1057: PROCEDURE insert_row(
1058: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1059: x_return_status OUT NOCOPY VARCHAR2,
1067: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1068: l_cft_rec cft_rec_type := p_cft_rec;
1069: l_def_cft_rec cft_rec_type;
1070: --------------------------------------------
1071: -- Set_Attributes for:OKL_CURE_FUND_TRANS --
1072: --------------------------------------------
1073: FUNCTION Set_Attributes (
1074: p_cft_rec IN cft_rec_type,
1075: x_cft_rec OUT NOCOPY cft_rec_type
1098: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1099: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1100: RAISE OKL_API.G_EXCEPTION_ERROR;
1101: END IF;
1102: INSERT INTO OKL_CURE_FUND_TRANS(
1103: cure_fund_trans_id,
1104: cure_payment_id,
1105: amount,
1106: fund_type,
1205: '_PVT'
1206: );
1207: END insert_row;
1208: -------------------------------------------
1209: -- insert_row for :OKL_CURE_FUND_TRANS_V --
1210: -------------------------------------------
1211: PROCEDURE insert_row(
1212: p_api_version IN NUMBER,
1213: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1239: l_cftv_rec.LAST_UPDATE_LOGIN := FND_GLOBAL.LOGIN_ID;
1240: RETURN(l_cftv_rec);
1241: END fill_who_columns;
1242: ----------------------------------------------
1243: -- Set_Attributes for:OKL_CURE_FUND_TRANS_V --
1244: ----------------------------------------------
1245: FUNCTION Set_Attributes (
1246: p_cftv_rec IN cftv_rec_type,
1247: x_cftv_rec OUT NOCOPY cftv_rec_type
1515: ---------------------------------------------------------------------------
1516: -- PROCEDURE lock_row
1517: ---------------------------------------------------------------------------
1518: --------------------------------------
1519: -- lock_row for:OKL_CURE_FUND_TRANS --
1520: --------------------------------------
1521: PROCEDURE lock_row(
1522: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1523: x_return_status OUT NOCOPY VARCHAR2,
1528: E_Resource_Busy EXCEPTION;
1529: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
1530: CURSOR lock_csr (p_cft_rec IN cft_rec_type) IS
1531: SELECT OBJECT_VERSION_NUMBER
1532: FROM OKL_CURE_FUND_TRANS
1533: WHERE CURE_FUND_TRANS_ID = p_cft_rec.cure_fund_trans_id
1534: AND OBJECT_VERSION_NUMBER = p_cft_rec.object_version_number
1535: FOR UPDATE OF OBJECT_VERSION_NUMBER NOWAIT;
1536:
1535: FOR UPDATE OF OBJECT_VERSION_NUMBER NOWAIT;
1536:
1537: CURSOR lchk_csr (p_cft_rec IN cft_rec_type) IS
1538: SELECT OBJECT_VERSION_NUMBER
1539: FROM OKL_CURE_FUND_TRANS
1540: WHERE CURE_FUND_TRANS_ID = p_cft_rec.cure_fund_trans_id;
1541: l_api_version CONSTANT NUMBER := 1;
1542: l_api_name CONSTANT VARCHAR2(30) := 'B_lock_row';
1543: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1540: WHERE CURE_FUND_TRANS_ID = p_cft_rec.cure_fund_trans_id;
1541: l_api_version CONSTANT NUMBER := 1;
1542: l_api_name CONSTANT VARCHAR2(30) := 'B_lock_row';
1543: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1544: l_object_version_number OKL_CURE_FUND_TRANS.OBJECT_VERSION_NUMBER%TYPE;
1545: lc_object_version_number OKL_CURE_FUND_TRANS.OBJECT_VERSION_NUMBER%TYPE;
1546: l_row_notfound BOOLEAN := FALSE;
1547: lc_row_notfound BOOLEAN := FALSE;
1548: BEGIN
1541: l_api_version CONSTANT NUMBER := 1;
1542: l_api_name CONSTANT VARCHAR2(30) := 'B_lock_row';
1543: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1544: l_object_version_number OKL_CURE_FUND_TRANS.OBJECT_VERSION_NUMBER%TYPE;
1545: lc_object_version_number OKL_CURE_FUND_TRANS.OBJECT_VERSION_NUMBER%TYPE;
1546: l_row_notfound BOOLEAN := FALSE;
1547: lc_row_notfound BOOLEAN := FALSE;
1548: BEGIN
1549: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
1622: '_PVT'
1623: );
1624: END lock_row;
1625: -----------------------------------------
1626: -- lock_row for: OKL_CURE_FUND_TRANS_V --
1627: -----------------------------------------
1628: PROCEDURE lock_row(
1629: p_api_version IN NUMBER,
1630: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1862: ---------------------------------------------------------------------------
1863: -- PROCEDURE update_row
1864: ---------------------------------------------------------------------------
1865: ----------------------------------------
1866: -- update_row for:OKL_CURE_FUND_TRANS --
1867: ----------------------------------------
1868: PROCEDURE update_row(
1869: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1870: x_return_status OUT NOCOPY VARCHAR2,
2033: END IF;
2034: RETURN(l_return_status);
2035: END populate_new_record;
2036: --------------------------------------------
2037: -- Set_Attributes for:OKL_CURE_FUND_TRANS --
2038: --------------------------------------------
2039: FUNCTION Set_Attributes (
2040: p_cft_rec IN cft_rec_type,
2041: x_cft_rec OUT NOCOPY cft_rec_type
2071: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2072: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2073: RAISE OKL_API.G_EXCEPTION_ERROR;
2074: END IF;
2075: UPDATE OKL_CURE_FUND_TRANS
2076: SET CURE_PAYMENT_ID = l_def_cft_rec.cure_payment_id,
2077: AMOUNT = l_def_cft_rec.amount,
2078: FUND_TYPE = l_def_cft_rec.fund_type,
2079: TRANS_TYPE = l_def_cft_rec.trans_type,
2143: '_PVT'
2144: );
2145: END update_row;
2146: ------------------------------------------
2147: -- update_row for:OKL_CURE_FUND_TRANS_V --
2148: ------------------------------------------
2149: PROCEDURE update_row(
2150: p_api_version IN NUMBER,
2151: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2327: END IF;
2328: RETURN(l_return_status);
2329: END populate_new_record;
2330: ----------------------------------------------
2331: -- Set_Attributes for:OKL_CURE_FUND_TRANS_V --
2332: ----------------------------------------------
2333: FUNCTION Set_Attributes (
2334: p_cftv_rec IN cftv_rec_type,
2335: x_cftv_rec OUT NOCOPY cftv_rec_type
2619: ---------------------------------------------------------------------------
2620: -- PROCEDURE delete_row
2621: ---------------------------------------------------------------------------
2622: ----------------------------------------
2623: -- delete_row for:OKL_CURE_FUND_TRANS --
2624: ----------------------------------------
2625: PROCEDURE delete_row(
2626: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2627: x_return_status OUT NOCOPY VARCHAR2,
2644: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2645: RAISE OKL_API.G_EXCEPTION_ERROR;
2646: END IF;
2647:
2648: DELETE FROM OKL_CURE_FUND_TRANS
2649: WHERE CURE_FUND_TRANS_ID = p_cft_rec.cure_fund_trans_id;
2650:
2651: x_return_status := l_return_status;
2652: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2682: '_PVT'
2683: );
2684: END delete_row;
2685: ------------------------------------------
2686: -- delete_row for:OKL_CURE_FUND_TRANS_V --
2687: ------------------------------------------
2688: PROCEDURE delete_row(
2689: p_api_version IN NUMBER,
2690: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2764: '_PVT'
2765: );
2766: END delete_row;
2767: -----------------------------------------------------
2768: -- PL/SQL TBL delete_row for:OKL_CURE_FUND_TRANS_V --
2769: -----------------------------------------------------
2770: PROCEDURE delete_row(
2771: p_api_version IN NUMBER,
2772: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2860: );
2861: END delete_row;
2862:
2863: -----------------------------------------------------
2864: -- PL/SQL TBL delete_row for:OKL_CURE_FUND_TRANS_V --
2865: -----------------------------------------------------
2866: PROCEDURE delete_row(
2867: p_api_version IN NUMBER,
2868: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,