[Home] [Help]
963: -- End of Comments
964: ---------------------------------------------------------------------------
965: procedure validate_ipt_isu_id(x_return_status OUT NOCOPY VARCHAR2,p_iptv_rec IN iptv_rec_type ) IS
966: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
967: -- WARNING : Cannot implement until OKX View OKX_INS_PROVIDER_V defined
968: l_dummy_var VARCHAR2(1) := '?';
969: -- select the ID of the parent record from the parent table
970:
971: CURSOR l_iptv_csr IS
969: -- select the ID of the parent record from the parent table
970:
971: CURSOR l_iptv_csr IS
972: SELECT 'x'
973: FROM okx_ins_provider_v
974: WHERE party_id = p_iptv_rec.isu_id;
975:
976: begin
977: --data is required
985: --Notify caller of an error
986: l_return_status := Okc_Api.G_RET_STS_ERROR;
987: END IF;
988: x_return_status := l_return_status;
989: -- WARNING : Cannot implement until OKX View OKX_INS_PROVIDER_V defined
990:
991: -- enforce foreign key
992: OPEN l_iptv_csr;
993: FETCH l_iptv_csr into l_dummy_var;
1000: p_token1_value => 'isu_id',
1001: p_token2 => g_child_table_token,
1002: p_token2_value => 'OKL_INS_PRODUCTS_V',
1003: p_token3 => g_parent_table_token,
1004: p_token3_value => 'OKX_INS_PROVIDER_V');
1005: -- notify caller of an error
1006: x_return_status := OKC_API.G_RET_STS_ERROR;
1007: END IF;
1008:
1012: Okc_Api.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
1013:
1014: -- Notify the caller of an unexpected error
1015: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1016: --WARNING : Cannot implement until OKX View OKX_INS_PROVIDER_V defined
1017:
1018: -- Verify that cursor was closed
1019: IF l_iptv_csr%ISOPEN THEN
1020: CLOSE l_iptv_csr;