9: G_NO_PARENT_RECORD CONSTANT VARCHAR2(200) := 'OKC_NO_PARENT_RECORD';
10: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_CONTRACTS_UNEXPECTED_ERROR';
11: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
12: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
13: G_VIEW CONSTANT VARCHAR2(200) := 'OKC_RG_PARTY_ROLES_V';
14: G_EXCEPTION_HALT_VALIDATION exception;
15: g_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
16:
17: -- Start of comments
484: null;
485: END api_copy;
486:
487: ---------------------------------------------------------------------------
488: -- FUNCTION get_rec for: OKC_RG_PARTY_ROLES
489: ---------------------------------------------------------------------------
490: FUNCTION get_rec (
491: p_rpr_rec IN rpr_rec_type,
492: x_no_data_found OUT NOCOPY BOOLEAN
503: CREATION_DATE,
504: LAST_UPDATED_BY,
505: LAST_UPDATE_DATE,
506: LAST_UPDATE_LOGIN
507: FROM Okc_Rg_Party_Roles
508: WHERE okc_rg_party_roles.id = p_id;
509: l_rpr_pk rpr_pk_csr%ROWTYPE;
510: l_rpr_rec rpr_rec_type;
511: BEGIN
504: LAST_UPDATED_BY,
505: LAST_UPDATE_DATE,
506: LAST_UPDATE_LOGIN
507: FROM Okc_Rg_Party_Roles
508: WHERE okc_rg_party_roles.id = p_id;
509: l_rpr_pk rpr_pk_csr%ROWTYPE;
510: l_rpr_rec rpr_rec_type;
511: BEGIN
512: x_no_data_found := TRUE;
536: BEGIN
537: RETURN(get_rec(p_rpr_rec, l_row_notfound));
538: END get_rec;
539: ---------------------------------------------------------------------------
540: -- FUNCTION get_rec for: OKC_RG_PARTY_ROLES_V
541: ---------------------------------------------------------------------------
542: FUNCTION get_rec (
543: p_rmpv_rec IN rmpv_rec_type,
544: x_no_data_found OUT NOCOPY BOOLEAN
555: CREATION_DATE,
556: LAST_UPDATED_BY,
557: LAST_UPDATE_DATE,
558: LAST_UPDATE_LOGIN
559: FROM Okc_Rg_Party_Roles
560: WHERE okc_rg_party_roles.id = p_id;
561: l_okc_rprv_pk okc_rprv_pk_csr%ROWTYPE;
562: l_rmpv_rec rmpv_rec_type;
563: BEGIN
556: LAST_UPDATED_BY,
557: LAST_UPDATE_DATE,
558: LAST_UPDATE_LOGIN
559: FROM Okc_Rg_Party_Roles
560: WHERE okc_rg_party_roles.id = p_id;
561: l_okc_rprv_pk okc_rprv_pk_csr%ROWTYPE;
562: l_rmpv_rec rmpv_rec_type;
563: BEGIN
564: x_no_data_found := TRUE;
589: RETURN(get_rec(p_rmpv_rec, l_row_notfound));
590: END get_rec;
591:
592: ----------------------------------------------------------
593: -- FUNCTION null_out_defaults for: OKC_RG_PARTY_ROLES_V --
594: ----------------------------------------------------------
595: FUNCTION null_out_defaults (
596: p_rmpv_rec IN rmpv_rec_type
597: ) RETURN rmpv_rec_type IS
632: ---------------------------------------------------------------------------
633: -- PROCEDURE Validate_Attributes
634: ---------------------------------------------------------------------------
635: --------------------------------------------------
636: -- Validate_Attributes for:OKC_RG_PARTY_ROLES_V --
637: --------------------------------------------------
638: /* commenting out nocopy generated code in favor of hand-coded procedure
639: FUNCTION Validate_Attributes (
640: p_rmpv_rec IN rmpv_rec_type
673: ---------------------------------------------------------------------------
674: -- PROCEDURE Validate_Record
675: ---------------------------------------------------------------------------
676: ----------------------------------------------
677: -- Validate_Record for:OKC_RG_PARTY_ROLES_V --
678: ----------------------------------------------
679: FUNCTION Validate_Record (
680: p_rmpv_rec IN rmpv_rec_type
681: ) RETURN VARCHAR2 IS
725: ---------------------------------------------------------------------------
726: -- PROCEDURE validate_row
727: ---------------------------------------------------------------------------
728: -------------------------------------------
729: -- validate_row for:OKC_RG_PARTY_ROLES_V --
730: -------------------------------------------
731: PROCEDURE validate_row(
732: p_api_version IN NUMBER,
733: p_init_msg_list IN VARCHAR2,
869: ---------------------------------------------------------------------------
870: -- PROCEDURE insert_row
871: ---------------------------------------------------------------------------
872: ---------------------------------------
873: -- insert_row for:OKC_RG_PARTY_ROLES --
874: ---------------------------------------
875: PROCEDURE insert_row(
876: p_init_msg_list IN VARCHAR2,
877: x_return_status OUT NOCOPY VARCHAR2,
885: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
886: l_rpr_rec rpr_rec_type := p_rpr_rec;
887: l_def_rpr_rec rpr_rec_type;
888: -------------------------------------------
889: -- Set_Attributes for:OKC_RG_PARTY_ROLES --
890: -------------------------------------------
891: FUNCTION Set_Attributes (
892: p_rpr_rec IN rpr_rec_type,
893: x_rpr_rec OUT NOCOPY rpr_rec_type
916: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
917: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
918: RAISE OKC_API.G_EXCEPTION_ERROR;
919: END IF;
920: INSERT INTO OKC_RG_PARTY_ROLES(
921: id,
922: rgp_id,
923: rrd_id,
924: cpl_id,
976: '_PVT'
977: );
978: END insert_row;
979: -----------------------------------------
980: -- insert_row for:OKC_RG_PARTY_ROLES_V --
981: -----------------------------------------
982: PROCEDURE insert_row(
983: p_api_version IN NUMBER,
984: p_init_msg_list IN VARCHAR2,
1010: l_rmpv_rec.LAST_UPDATE_LOGIN := FND_GLOBAL.LOGIN_ID;
1011: RETURN(l_rmpv_rec);
1012: END fill_who_columns;
1013: ---------------------------------------------
1014: -- Set_Attributes for:OKC_RG_PARTY_ROLES_V --
1015: ---------------------------------------------
1016: FUNCTION Set_Attributes (
1017: p_rmpv_rec IN rmpv_rec_type,
1018: x_rmpv_rec OUT NOCOPY rmpv_rec_type
1190: ---------------------------------------------------------------------------
1191: -- PROCEDURE lock_row
1192: ---------------------------------------------------------------------------
1193: -------------------------------------
1194: -- lock_row for:OKC_RG_PARTY_ROLES --
1195: -------------------------------------
1196: PROCEDURE lock_row(
1197: p_init_msg_list IN VARCHAR2,
1198: x_return_status OUT NOCOPY VARCHAR2,
1203: E_Resource_Busy EXCEPTION;
1204: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
1205: CURSOR lock_csr (p_rpr_rec IN rpr_rec_type) IS
1206: SELECT OBJECT_VERSION_NUMBER
1207: FROM OKC_RG_PARTY_ROLES
1208: WHERE ID = p_rpr_rec.id
1209: AND OBJECT_VERSION_NUMBER = p_rpr_rec.object_version_number
1210: FOR UPDATE OF OBJECT_VERSION_NUMBER NOWAIT;
1211:
1210: FOR UPDATE OF OBJECT_VERSION_NUMBER NOWAIT;
1211:
1212: CURSOR lchk_csr (p_rpr_rec IN rpr_rec_type) IS
1213: SELECT OBJECT_VERSION_NUMBER
1214: FROM OKC_RG_PARTY_ROLES
1215: WHERE ID = p_rpr_rec.id;
1216: l_api_version CONSTANT NUMBER := 1;
1217: l_api_name CONSTANT VARCHAR2(30) := 'ROLES_lock_row';
1218: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1215: WHERE ID = p_rpr_rec.id;
1216: l_api_version CONSTANT NUMBER := 1;
1217: l_api_name CONSTANT VARCHAR2(30) := 'ROLES_lock_row';
1218: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1219: l_object_version_number OKC_RG_PARTY_ROLES.OBJECT_VERSION_NUMBER%TYPE;
1220: lc_object_version_number OKC_RG_PARTY_ROLES.OBJECT_VERSION_NUMBER%TYPE;
1221: l_row_notfound BOOLEAN := FALSE;
1222: lc_row_notfound BOOLEAN := FALSE;
1223: BEGIN
1216: l_api_version CONSTANT NUMBER := 1;
1217: l_api_name CONSTANT VARCHAR2(30) := 'ROLES_lock_row';
1218: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1219: l_object_version_number OKC_RG_PARTY_ROLES.OBJECT_VERSION_NUMBER%TYPE;
1220: lc_object_version_number OKC_RG_PARTY_ROLES.OBJECT_VERSION_NUMBER%TYPE;
1221: l_row_notfound BOOLEAN := FALSE;
1222: lc_row_notfound BOOLEAN := FALSE;
1223: BEGIN
1224: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
1296: '_PVT'
1297: );
1298: END lock_row;
1299: ---------------------------------------
1300: -- lock_row for:OKC_RG_PARTY_ROLES_V --
1301: ---------------------------------------
1302: PROCEDURE lock_row(
1303: p_api_version IN NUMBER,
1304: p_init_msg_list IN VARCHAR2,
1444: ---------------------------------------------------------------------------
1445: -- PROCEDURE update_row
1446: ---------------------------------------------------------------------------
1447: ---------------------------------------
1448: -- update_row for:OKC_RG_PARTY_ROLES --
1449: ---------------------------------------
1450: PROCEDURE update_row(
1451: p_init_msg_list IN VARCHAR2,
1452: x_return_status OUT NOCOPY VARCHAR2,
1524: END IF;
1525: RETURN(l_return_status);
1526: END populate_new_record;
1527: -------------------------------------------
1528: -- Set_Attributes for:OKC_RG_PARTY_ROLES --
1529: -------------------------------------------
1530: FUNCTION Set_Attributes (
1531: p_rpr_rec IN rpr_rec_type,
1532: x_rpr_rec OUT NOCOPY rpr_rec_type
1561: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1562: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1563: RAISE OKC_API.G_EXCEPTION_ERROR;
1564: END IF;
1565: UPDATE OKC_RG_PARTY_ROLES
1566: SET RGP_ID = l_def_rpr_rec.rgp_id,
1567: RRD_ID = l_def_rpr_rec.rrd_id,
1568: CPL_ID = l_def_rpr_rec.cpl_id,
1569: DNZ_CHR_ID = l_def_rpr_rec.dnz_chr_id,
1609: '_PVT'
1610: );
1611: END update_row;
1612: -----------------------------------------
1613: -- update_row for:OKC_RG_PARTY_ROLES_V --
1614: -----------------------------------------
1615: PROCEDURE update_row(
1616: p_api_version IN NUMBER,
1617: p_init_msg_list IN VARCHAR2,
1704: END IF;
1705: RETURN(l_return_status);
1706: END populate_new_record;
1707: ---------------------------------------------
1708: -- Set_Attributes for:OKC_RG_PARTY_ROLES_V --
1709: ---------------------------------------------
1710: FUNCTION Set_Attributes (
1711: p_rmpv_rec IN rmpv_rec_type,
1712: x_rmpv_rec OUT NOCOPY rmpv_rec_type
1887: ---------------------------------------------------------------------------
1888: -- PROCEDURE delete_row
1889: ---------------------------------------------------------------------------
1890: ---------------------------------------
1891: -- delete_row for:OKC_RG_PARTY_ROLES --
1892: ---------------------------------------
1893: PROCEDURE delete_row(
1894: p_init_msg_list IN VARCHAR2,
1895: x_return_status OUT NOCOPY VARCHAR2,
1911: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1912: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1913: RAISE OKC_API.G_EXCEPTION_ERROR;
1914: END IF;
1915: DELETE FROM OKC_RG_PARTY_ROLES
1916: WHERE ID = l_rpr_rec.id;
1917:
1918: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
1919: EXCEPTION
1948: '_PVT'
1949: );
1950: END delete_row;
1951: -----------------------------------------
1952: -- delete_row for:OKC_RG_PARTY_ROLES_V --
1953: -----------------------------------------
1954: PROCEDURE delete_row(
1955: p_api_version IN NUMBER,
1956: p_init_msg_list IN VARCHAR2,
2105:
2106: l_return_status VARCHAR2(1):= OKC_API.G_RET_STS_SUCCESS;
2107:
2108: BEGIN
2109: INSERT INTO okc_rg_party_roles_h
2110: (
2111: major_version,
2112: id,
2113: rgp_id,
2133: creation_date,
2134: last_updated_by,
2135: last_update_date,
2136: last_update_login
2137: FROM okc_rg_party_roles
2138: WHERE dnz_chr_id = p_chr_id;
2139:
2140: RETURN l_return_status;
2141: EXCEPTION
2165:
2166: l_return_status VARCHAR2(1):= OKC_API.G_RET_STS_SUCCESS;
2167:
2168: BEGIN
2169: INSERT INTO okc_rg_party_roles
2170: (
2171: id,
2172: rgp_id,
2173: rrd_id,
2191: creation_date,
2192: last_updated_by,
2193: last_update_date,
2194: last_update_login
2195: FROM okc_rg_party_roles_h
2196: WHERE dnz_chr_id = p_chr_id
2197: AND major_version = p_major_version;
2198:
2199: RETURN l_return_status;