76: p_contracttype_rec IN ContractType_Rec_Type
77: )
78: RETURN VARCHAR2 IS
79: item_not_found_error EXCEPTION;
80: CURSOR ra_cust_trx_types_pk_csr (p_cust_trx_type_id IN NUMBER) IS
81: SELECT *
82: FROM Ra_Cust_Trx_Types
83: WHERE ra_cust_trx_types.cust_trx_type_id = p_cust_trx_type_id;
84: l_ra_cust_trx_types_pk ra_cust_trx_types_pk_csr%ROWTYPE;
78: RETURN VARCHAR2 IS
79: item_not_found_error EXCEPTION;
80: CURSOR ra_cust_trx_types_pk_csr (p_cust_trx_type_id IN NUMBER) IS
81: SELECT *
82: FROM Ra_Cust_Trx_Types
83: WHERE ra_cust_trx_types.cust_trx_type_id = p_cust_trx_type_id;
84: l_ra_cust_trx_types_pk ra_cust_trx_types_pk_csr%ROWTYPE;
85: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
86: l_row_notfound BOOLEAN := TRUE;
79: item_not_found_error EXCEPTION;
80: CURSOR ra_cust_trx_types_pk_csr (p_cust_trx_type_id IN NUMBER) IS
81: SELECT *
82: FROM Ra_Cust_Trx_Types
83: WHERE ra_cust_trx_types.cust_trx_type_id = p_cust_trx_type_id;
84: l_ra_cust_trx_types_pk ra_cust_trx_types_pk_csr%ROWTYPE;
85: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
86: l_row_notfound BOOLEAN := TRUE;
87: BEGIN
80: CURSOR ra_cust_trx_types_pk_csr (p_cust_trx_type_id IN NUMBER) IS
81: SELECT *
82: FROM Ra_Cust_Trx_Types
83: WHERE ra_cust_trx_types.cust_trx_type_id = p_cust_trx_type_id;
84: l_ra_cust_trx_types_pk ra_cust_trx_types_pk_csr%ROWTYPE;
85: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
86: l_row_notfound BOOLEAN := TRUE;
87: BEGIN
88: IF (p_contracttype_rec.CUST_TRX_TYPE_ID IS NOT NULL)
86: l_row_notfound BOOLEAN := TRUE;
87: BEGIN
88: IF (p_contracttype_rec.CUST_TRX_TYPE_ID IS NOT NULL)
89: THEN
90: OPEN ra_cust_trx_types_pk_csr(p_contracttype_rec.CUST_TRX_TYPE_ID);
91: FETCH ra_cust_trx_types_pk_csr INTO l_ra_cust_trx_types_pk;
92: l_row_notfound := ra_cust_trx_types_pk_csr%NOTFOUND;
93: CLOSE ra_cust_trx_types_pk_csr;
94: IF (l_row_notfound) THEN
87: BEGIN
88: IF (p_contracttype_rec.CUST_TRX_TYPE_ID IS NOT NULL)
89: THEN
90: OPEN ra_cust_trx_types_pk_csr(p_contracttype_rec.CUST_TRX_TYPE_ID);
91: FETCH ra_cust_trx_types_pk_csr INTO l_ra_cust_trx_types_pk;
92: l_row_notfound := ra_cust_trx_types_pk_csr%NOTFOUND;
93: CLOSE ra_cust_trx_types_pk_csr;
94: IF (l_row_notfound) THEN
95: TAPI_DEV_KIT.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'CUST_TRX_TYPE_ID');
88: IF (p_contracttype_rec.CUST_TRX_TYPE_ID IS NOT NULL)
89: THEN
90: OPEN ra_cust_trx_types_pk_csr(p_contracttype_rec.CUST_TRX_TYPE_ID);
91: FETCH ra_cust_trx_types_pk_csr INTO l_ra_cust_trx_types_pk;
92: l_row_notfound := ra_cust_trx_types_pk_csr%NOTFOUND;
93: CLOSE ra_cust_trx_types_pk_csr;
94: IF (l_row_notfound) THEN
95: TAPI_DEV_KIT.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'CUST_TRX_TYPE_ID');
96: RAISE item_not_found_error;
89: THEN
90: OPEN ra_cust_trx_types_pk_csr(p_contracttype_rec.CUST_TRX_TYPE_ID);
91: FETCH ra_cust_trx_types_pk_csr INTO l_ra_cust_trx_types_pk;
92: l_row_notfound := ra_cust_trx_types_pk_csr%NOTFOUND;
93: CLOSE ra_cust_trx_types_pk_csr;
94: IF (l_row_notfound) THEN
95: TAPI_DEV_KIT.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'CUST_TRX_TYPE_ID');
96: RAISE item_not_found_error;
97: END IF;