97: BEGIN
98: DELETE FROM OKS_BILLING_PROFILES_TL T
99: WHERE NOT EXISTS (
100: SELECT NULL
101: FROM OKS_BILLING_PROFILES_B B
102: WHERE B.ID =T.ID
103: );
104:
105: UPDATE OKS_BILLING_PROFILES_TL T SET(
330: BEGIN
331: RETURN(get_rec(p_bpev_rec, l_row_not_found));
332: END get_rec;
333: ---------------------------------------------------------------------------
334: -- FUNCTION get_rec for: OKS_BILLING_PROFILES_B
335: ---------------------------------------------------------------------------
336: FUNCTION get_rec (
337: p_bpe_rec IN bpe_rec_type,
338: x_no_data_found OUT NOCOPY BOOLEAN
336: FUNCTION get_rec (
337: p_bpe_rec IN bpe_rec_type,
338: x_no_data_found OUT NOCOPY BOOLEAN
339: ) RETURN bpe_rec_type IS
340: CURSOR oks_billing_profiles_b_pk_csr (p_id IN NUMBER) IS
341: SELECT
342: ID,
343: MDA_CODE,
344: OWNED_PARTY_ID1,
391: BILLING_TYPE,
392: INTERVAL,
393: INTERFACE_OFFSET,
394: INVOICE_OFFSET
395: FROM Oks_Billing_Profiles_B
396: WHERE oks_billing_profiles_b.id = p_id;
397: l_oks_billing_profiles_b_pk oks_billing_profiles_b_pk_csr%ROWTYPE;
398: l_bpe_rec bpe_rec_type;
399: BEGIN
392: INTERVAL,
393: INTERFACE_OFFSET,
394: INVOICE_OFFSET
395: FROM Oks_Billing_Profiles_B
396: WHERE oks_billing_profiles_b.id = p_id;
397: l_oks_billing_profiles_b_pk oks_billing_profiles_b_pk_csr%ROWTYPE;
398: l_bpe_rec bpe_rec_type;
399: BEGIN
400: x_no_data_found := TRUE;
393: INTERFACE_OFFSET,
394: INVOICE_OFFSET
395: FROM Oks_Billing_Profiles_B
396: WHERE oks_billing_profiles_b.id = p_id;
397: l_oks_billing_profiles_b_pk oks_billing_profiles_b_pk_csr%ROWTYPE;
398: l_bpe_rec bpe_rec_type;
399: BEGIN
400: x_no_data_found := TRUE;
401: -- Get current database values
398: l_bpe_rec bpe_rec_type;
399: BEGIN
400: x_no_data_found := TRUE;
401: -- Get current database values
402: OPEN oks_billing_profiles_b_pk_csr (p_bpe_rec.id);
403: FETCH oks_billing_profiles_b_pk_csr INTO
404: l_bpe_rec.id,
405: l_bpe_rec.mda_code,
406: l_bpe_rec.owned_party_id1,
399: BEGIN
400: x_no_data_found := TRUE;
401: -- Get current database values
402: OPEN oks_billing_profiles_b_pk_csr (p_bpe_rec.id);
403: FETCH oks_billing_profiles_b_pk_csr INTO
404: l_bpe_rec.id,
405: l_bpe_rec.mda_code,
406: l_bpe_rec.owned_party_id1,
407: l_bpe_rec.owned_party_id2,
453: l_bpe_rec.billing_type,
454: l_bpe_rec.interval,
455: l_bpe_rec.interface_offset,
456: l_bpe_rec.invoice_offset;
457: x_no_data_found := oks_billing_profiles_b_pk_csr%NOTFOUND;
458: CLOSE oks_billing_profiles_b_pk_csr;
459: RETURN(l_bpe_rec);
460: END get_rec;
461:
454: l_bpe_rec.interval,
455: l_bpe_rec.interface_offset,
456: l_bpe_rec.invoice_offset;
457: x_no_data_found := oks_billing_profiles_b_pk_csr%NOTFOUND;
458: CLOSE oks_billing_profiles_b_pk_csr;
459: RETURN(l_bpe_rec);
460: END get_rec;
461:
462: ------------------------------------------------------------------
1613: ---------------------------------------------------------------------------
1614: -- PROCEDURE insert_row
1615: ---------------------------------------------------------------------------
1616: -------------------------------------------
1617: -- insert_row for:OKS_BILLING_PROFILES_B --
1618: -------------------------------------------
1619: PROCEDURE insert_row(
1620: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1621: x_return_status OUT NOCOPY VARCHAR2,
1629: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1630: l_bpe_rec bpe_rec_type := p_bpe_rec;
1631: l_def_bpe_rec bpe_rec_type;
1632: -----------------------------------------------
1633: -- Set_Attributes for:OKS_BILLING_PROFILES_B --
1634: -----------------------------------------------
1635: FUNCTION Set_Attributes (
1636: p_bpe_rec IN bpe_rec_type,
1637: x_bpe_rec OUT NOCOPY bpe_rec_type
1660: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1661: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1662: RAISE OKC_API.G_EXCEPTION_ERROR;
1663: END IF;
1664: INSERT INTO OKS_BILLING_PROFILES_B(
1665: id,
1666: mda_code,
1667: owned_party_id1,
1668: owned_party_id2,
2252: ---------------------------------------------------------------------------
2253: -- PROCEDURE lock_row
2254: ---------------------------------------------------------------------------
2255: -----------------------------------------
2256: -- lock_row for:OKS_BILLING_PROFILES_B --
2257: -----------------------------------------
2258: PROCEDURE lock_row(
2259: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2260: x_return_status OUT NOCOPY VARCHAR2,
2265: E_Resource_Busy EXCEPTION;
2266: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
2267: CURSOR lock_csr (p_bpe_rec IN bpe_rec_type) IS
2268: SELECT OBJECT_VERSION_NUMBER
2269: FROM OKS_BILLING_PROFILES_B
2270: WHERE ID = p_bpe_rec.id
2271: AND OBJECT_VERSION_NUMBER = p_bpe_rec.object_version_number
2272: FOR UPDATE OF OBJECT_VERSION_NUMBER NOWAIT;
2273:
2272: FOR UPDATE OF OBJECT_VERSION_NUMBER NOWAIT;
2273:
2274: CURSOR lchk_csr (p_bpe_rec IN bpe_rec_type) IS
2275: SELECT OBJECT_VERSION_NUMBER
2276: FROM OKS_BILLING_PROFILES_B
2277: WHERE ID = p_bpe_rec.id;
2278: l_api_version CONSTANT NUMBER := 1;
2279: l_api_name CONSTANT VARCHAR2(30) := 'B_lock_row';
2280: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2277: WHERE ID = p_bpe_rec.id;
2278: l_api_version CONSTANT NUMBER := 1;
2279: l_api_name CONSTANT VARCHAR2(30) := 'B_lock_row';
2280: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2281: l_object_version_number OKS_BILLING_PROFILES_B.OBJECT_VERSION_NUMBER%TYPE;
2282: lc_object_version_number OKS_BILLING_PROFILES_B.OBJECT_VERSION_NUMBER%TYPE;
2283: l_row_notfound BOOLEAN := FALSE;
2284: lc_row_notfound BOOLEAN := FALSE;
2285: BEGIN
2278: l_api_version CONSTANT NUMBER := 1;
2279: l_api_name CONSTANT VARCHAR2(30) := 'B_lock_row';
2280: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2281: l_object_version_number OKS_BILLING_PROFILES_B.OBJECT_VERSION_NUMBER%TYPE;
2282: lc_object_version_number OKS_BILLING_PROFILES_B.OBJECT_VERSION_NUMBER%TYPE;
2283: l_row_notfound BOOLEAN := FALSE;
2284: lc_row_notfound BOOLEAN := FALSE;
2285: BEGIN
2286: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
2699: ---------------------------------------------------------------------------
2700: -- PROCEDURE update_row
2701: ---------------------------------------------------------------------------
2702: -------------------------------------------
2703: -- update_row for:OKS_BILLING_PROFILES_B --
2704: -------------------------------------------
2705: PROCEDURE update_row(
2706: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
2707: x_return_status OUT NOCOPY VARCHAR2,
2946: END IF;
2947: RETURN(l_return_status);
2948: END populate_new_record;
2949: -----------------------------------------------
2950: -- Set_Attributes for:OKS_BILLING_PROFILES_B --
2951: -----------------------------------------------
2952: FUNCTION Set_Attributes (
2953: p_bpe_rec IN bpe_rec_type,
2954: x_bpe_rec OUT NOCOPY bpe_rec_type
2984: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2985: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
2986: RAISE OKC_API.G_EXCEPTION_ERROR;
2987: END IF;
2988: UPDATE OKS_BILLING_PROFILES_B
2989: SET MDA_CODE = l_def_bpe_rec.mda_code,
2990: OWNED_PARTY_ID1 = l_def_bpe_rec.owned_party_id1,
2991: OWNED_PARTY_ID2 = l_def_bpe_rec.owned_party_id2,
2992: DEPENDENT_CUST_ACCT_ID1 = l_def_bpe_rec.dependent_cust_acct_id1,
3835: ---------------------------------------------------------------------------
3836: -- PROCEDURE delete_row
3837: ---------------------------------------------------------------------------
3838: -------------------------------------------
3839: -- delete_row for:OKS_BILLING_PROFILES_B --
3840: -------------------------------------------
3841: PROCEDURE delete_row(
3842: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
3843: x_return_status OUT NOCOPY VARCHAR2,
3860: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
3861: RAISE OKC_API.G_EXCEPTION_ERROR;
3862: END IF;
3863:
3864: DELETE FROM OKS_BILLING_PROFILES_B
3865: WHERE ID = p_bpe_rec.id;
3866:
3867: x_return_status := l_return_status;
3868: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);