822: -- to OKC rgpv declared record type
823: --okl to okc
824: PROCEDURE migrate_rgpv (
825: p_from IN rgpv_rec_type,
826: p_to IN OUT NOCOPY okc_rule_pub.rgpv_rec_type
827: ) IS
828: BEGIN
829: p_to.id := p_from.id;
830: p_to.rgd_code := p_from.rgd_code;
861: p_to.comments := p_from.comments;
862: END migrate_rgpv;
863: --okc to okl
864: PROCEDURE migrate_rgpv (
865: p_from IN okc_rule_pub.rgpv_rec_type,
866: p_to IN OUT NOCOPY rgpv_rec_type
867: ) IS
868: BEGIN
869: p_to.id := p_from.id;
905: -- to OKC rmpv declared record type
906: --okl to okc
907: PROCEDURE migrate_rmpv(
908: p_from IN rmpv_rec_type,
909: p_to IN OUT NOCOPY okc_rule_pub.rmpv_rec_type
910: ) IS
911: BEGIN
912: p_to.id := p_from.id;
913: p_to.rgp_id := p_from.rgp_id;
922: p_to.last_update_login := p_from.last_update_login;
923: END migrate_rmpv;
924: --okc to okl
925: PROCEDURE migrate_rmpv(
926: p_from IN okc_rule_pub.rmpv_rec_type,
927: p_to IN OUT NOCOPY rmpv_rec_type
928: ) IS
929: BEGIN
930: p_to.id := p_from.id;
4460: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4461: l_api_name CONSTANT VARCHAR2(30) := 'create_rule_group';
4462: l_rgpv_rec rgpv_rec_type := p_rgpv_rec;
4463:
4464: l_okc_rgpv_rec_in OKC_RULE_PUB.rgpv_rec_type;
4465: l_okc_rgpv_rec_out OKC_RULE_PUB.rgpv_rec_type;
4466:
4467: -- sjalasut. added local variables and cursors to enable business events
4468: -- when called from contracts open interface. start
4461: l_api_name CONSTANT VARCHAR2(30) := 'create_rule_group';
4462: l_rgpv_rec rgpv_rec_type := p_rgpv_rec;
4463:
4464: l_okc_rgpv_rec_in OKC_RULE_PUB.rgpv_rec_type;
4465: l_okc_rgpv_rec_out OKC_RULE_PUB.rgpv_rec_type;
4466:
4467: -- sjalasut. added local variables and cursors to enable business events
4468: -- when called from contracts open interface. start
4469:
4517:
4518: migrate_rgpv(p_from => l_rgpv_rec,
4519: p_to => l_okc_rgpv_rec_in);
4520:
4521: OKC_RULE_PUB.create_rule_group(
4522: p_api_version => p_api_version,
4523: p_init_msg_list => p_init_msg_list,
4524: x_return_status => x_return_status,
4525: x_msg_count => x_msg_count,
4691: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4692: l_api_name CONSTANT VARCHAR2(30) := 'update_rule_group';
4693: l_rgpv_rec rgpv_rec_type := p_rgpv_rec;
4694:
4695: l_okc_rgpv_rec_in OKC_RULE_PUB.rgpv_rec_type;
4696: l_okc_rgpv_rec_out OKC_RULE_PUB.rgpv_rec_type;
4697:
4698: BEGIN
4699: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4692: l_api_name CONSTANT VARCHAR2(30) := 'update_rule_group';
4693: l_rgpv_rec rgpv_rec_type := p_rgpv_rec;
4694:
4695: l_okc_rgpv_rec_in OKC_RULE_PUB.rgpv_rec_type;
4696: l_okc_rgpv_rec_out OKC_RULE_PUB.rgpv_rec_type;
4697:
4698: BEGIN
4699: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4700: p_init_msg_list,
4708:
4709: migrate_rgpv(p_from => l_rgpv_rec,
4710: p_to => l_okc_rgpv_rec_in);
4711:
4712: OKC_RULE_PUB.update_rule_group(
4713: p_api_version => p_api_version,
4714: p_init_msg_list => p_init_msg_list,
4715: x_return_status => x_return_status,
4716: x_msg_count => x_msg_count,
4768: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4769: l_api_name CONSTANT VARCHAR2(30) := 'delet_rule_group';
4770: l_rgpv_rec rgpv_rec_type := p_rgpv_rec;
4771:
4772: l_okc_rgpv_rec_in OKC_RULE_PUB.rgpv_rec_type;
4773:
4774: BEGIN
4775: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4776: p_init_msg_list,
4784:
4785: migrate_rgpv(p_from => l_rgpv_rec,
4786: p_to => l_okc_rgpv_rec_in);
4787:
4788: OKC_RULE_PUB.delete_rule_group(
4789: p_api_version => p_api_version,
4790: p_init_msg_list => p_init_msg_list,
4791: x_return_status => x_return_status,
4792: x_msg_count => x_msg_count,
4840: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4841: l_api_name CONSTANT VARCHAR2(30) := 'lock_rule_group';
4842: l_rgpv_rec rgpv_rec_type := p_rgpv_rec;
4843:
4844: l_okc_rgpv_rec_in OKC_RULE_PUB.rgpv_rec_type;
4845:
4846: BEGIN
4847: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4848: p_init_msg_list,
4856:
4857: migrate_rgpv(p_from => l_rgpv_rec,
4858: p_to => l_okc_rgpv_rec_in);
4859:
4860: OKC_RULE_PUB.lock_rule_group(
4861: p_api_version => p_api_version,
4862: p_init_msg_list => p_init_msg_list,
4863: x_return_status => x_return_status,
4864: x_msg_count => x_msg_count,
4911: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4912: l_api_name CONSTANT VARCHAR2(30) := 'validate_rule_group';
4913: l_rgpv_rec rgpv_rec_type := p_rgpv_rec;
4914:
4915: l_okc_rgpv_rec_in OKC_RULE_PUB.rgpv_rec_type;
4916: l_okc_rgpv_rec_out OKC_RULE_PUB.rgpv_rec_type;
4917:
4918: BEGIN
4919: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4912: l_api_name CONSTANT VARCHAR2(30) := 'validate_rule_group';
4913: l_rgpv_rec rgpv_rec_type := p_rgpv_rec;
4914:
4915: l_okc_rgpv_rec_in OKC_RULE_PUB.rgpv_rec_type;
4916: l_okc_rgpv_rec_out OKC_RULE_PUB.rgpv_rec_type;
4917:
4918: BEGIN
4919: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4920: p_init_msg_list,
4928:
4929: migrate_rgpv(p_from => l_rgpv_rec,
4930: p_to => l_okc_rgpv_rec_in);
4931:
4932: OKC_RULE_PUB.validate_rule_group(
4933: p_api_version => p_api_version,
4934: p_init_msg_list => p_init_msg_list,
4935: x_return_status => x_return_status,
4936: x_msg_count => x_msg_count,
4986:
4987: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4988: l_api_name CONSTANT VARCHAR2(30) := 'create_rg_mode_pty_role';
4989: l_rmpv_rec rmpv_rec_type := p_rmpv_rec;
4990: l_okc_rmpv_rec_in okc_rule_pub.rmpv_rec_type;
4991: l_okc_rmpv_rec_out okc_rule_pub.rmpv_rec_type;
4992: BEGIN
4993: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4994: p_init_msg_list,
4987: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
4988: l_api_name CONSTANT VARCHAR2(30) := 'create_rg_mode_pty_role';
4989: l_rmpv_rec rmpv_rec_type := p_rmpv_rec;
4990: l_okc_rmpv_rec_in okc_rule_pub.rmpv_rec_type;
4991: l_okc_rmpv_rec_out okc_rule_pub.rmpv_rec_type;
4992: BEGIN
4993: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
4994: p_init_msg_list,
4995: '_PUB',
5002:
5003: migrate_rmpv(p_from => l_rmpv_rec,
5004: p_to => l_okc_rmpv_rec_in);
5005:
5006: OKC_RULE_PUB.create_rg_mode_pty_role(
5007: p_api_version => p_api_version,
5008: p_init_msg_list => p_init_msg_list,
5009: x_return_status => x_return_status,
5010: x_msg_count => x_msg_count,
5061:
5062: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5063: l_api_name CONSTANT VARCHAR2(30) := 'update_rg_mode_pty_role';
5064: l_rmpv_rec rmpv_rec_type := p_rmpv_rec;
5065: l_okc_rmpv_rec_in okc_rule_pub.rmpv_rec_type;
5066: l_okc_rmpv_rec_out okc_rule_pub.rmpv_rec_type;
5067: BEGIN
5068: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5069: p_init_msg_list,
5062: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5063: l_api_name CONSTANT VARCHAR2(30) := 'update_rg_mode_pty_role';
5064: l_rmpv_rec rmpv_rec_type := p_rmpv_rec;
5065: l_okc_rmpv_rec_in okc_rule_pub.rmpv_rec_type;
5066: l_okc_rmpv_rec_out okc_rule_pub.rmpv_rec_type;
5067: BEGIN
5068: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5069: p_init_msg_list,
5070: '_PUB',
5078: migrate_rmpv(p_from => l_rmpv_rec,
5079: p_to => l_okc_rmpv_rec_in);
5080:
5081:
5082: OKC_RULE_PUB.update_rg_mode_pty_role(
5083: p_api_version => p_api_version,
5084: p_init_msg_list => p_init_msg_list,
5085: x_return_status => x_return_status,
5086: x_msg_count => x_msg_count,
5136:
5137: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5138: l_api_name CONSTANT VARCHAR2(30) := 'delete_rg_mode_pty_role';
5139: l_rmpv_rec rmpv_rec_type := p_rmpv_rec;
5140: l_okc_rmpv_rec_in okc_rule_pub.rmpv_rec_type;
5141:
5142: BEGIN
5143: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5144: p_init_msg_list,
5153: migrate_rmpv(p_from => l_rmpv_rec,
5154: p_to => l_okc_rmpv_rec_in);
5155:
5156:
5157: OKC_RULE_PUB.delete_rg_mode_pty_role(
5158: p_api_version => p_api_version,
5159: p_init_msg_list => p_init_msg_list,
5160: x_return_status => x_return_status,
5161: x_msg_count => x_msg_count,
5206:
5207: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5208: l_api_name CONSTANT VARCHAR2(30) := 'lock_rg_mode_pty_role';
5209: l_rmpv_rec rmpv_rec_type := p_rmpv_rec;
5210: l_okc_rmpv_rec_in okc_rule_pub.rmpv_rec_type;
5211:
5212:
5213: BEGIN
5214: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5223:
5224: migrate_rmpv(p_from => l_rmpv_rec,
5225: p_to => l_okc_rmpv_rec_in);
5226:
5227: OKC_RULE_PUB.lock_rg_mode_pty_role(
5228: p_api_version => p_api_version,
5229: p_init_msg_list => p_init_msg_list,
5230: x_return_status => x_return_status,
5231: x_msg_count => x_msg_count,
5278:
5279: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5280: l_api_name CONSTANT VARCHAR2(30) := 'validate_rg_mode_pty_role';
5281: l_rmpv_rec rmpv_rec_type := p_rmpv_rec;
5282: l_okc_rmpv_rec_in okc_rule_pub.rmpv_rec_type;
5283:
5284: BEGIN
5285: l_return_status := OKC_API.START_ACTIVITY(l_api_name,
5286: p_init_msg_list,
5294:
5295: migrate_rmpv(p_from => l_rmpv_rec,
5296: p_to => l_okc_rmpv_rec_in);
5297:
5298: OKC_RULE_PUB.validate_rg_mode_pty_role(
5299: p_api_version => p_api_version,
5300: p_init_msg_list => p_init_msg_list,
5301: x_return_status => x_return_status,
5302: x_msg_count => x_msg_count,