41: -- Package Name : Convert_TerTypeRec_PubToPvt
42: -- -------------------------------------------------
43: -- Purpose : This utility procedure will convert
44: -- jtf_TerrType_rec from pub to pvt before
45: -- calling the JTF_TERRITORY_TYPE_PVT pkg.
46: -- Notes :
47: -- History :
48: -- 08/23/99 VNEDUNGA Created
49: -- -------------------------------------------------
48: -- 08/23/99 VNEDUNGA Created
49: -- -------------------------------------------------
50: PROCEDURE convert_tertyperec_pubtopvt (
51: p_terrtype_rec IN jtf_territory_type_pub.terrtype_rec_type,
52: x_terrtype_rec OUT NOCOPY jtf_territory_type_pvt.terrtype_rec_type
53: )
54: AS
55: BEGIN
56: x_terrtype_rec.terr_type_id := p_terrtype_rec.terr_type_id;
91: -- Package Name : Convert_TerTypeUsg_PubToPvt
92: -- -------------------------------------------------
93: -- Purpose : This utility procedure will convert
94: -- jtf_TerrTypeUsg_Tbl from pub to pvt
95: -- before calling the JTF_TERRITORY_TYPE_PVT
96: -- pkg.
97: -- Notes :
98: -- History :
99: -- 08/23/99 VNEDUNGA Created
99: -- 08/23/99 VNEDUNGA Created
100: -- -------------------------------------------------
101: PROCEDURE convert_tertypeusg_pubtopvt (
102: p_terrtypeusgs_tbl IN jtf_territory_type_pub.terrtypeusgs_tbl_type,
103: x_terrtypeusgs_tbl OUT NOCOPY jtf_territory_type_pvt.terrtypeusgs_tbl_type
104: )
105: AS
106: l_counter NUMBER;
107: BEGIN
143: -- Package Name : Convert_TypeQtypeUsg_PubToPvt
144: -- -------------------------------------------------
145: -- Purpose : This utility procedure will convert
146: -- TypeQualTypeUsgs from pub to pvt before
147: -- calling the JTF_TERRITORY_TYPE_PVT pkg.
148: -- Notes :
149: -- History :
150: -- 08/23/99 VNEDUNGA Created
151: -- -------------------------------------------------
150: -- 08/23/99 VNEDUNGA Created
151: -- -------------------------------------------------
152: PROCEDURE convert_typeqtypeusg_pubtopvt (
153: p_typequaltypeusgs_tbl IN jtf_territory_type_pub.typequaltypeusgs_tbl_type,
154: x_typequaltypeusgs_tbl OUT NOCOPY jtf_territory_type_pvt.typequaltypeusgs_tbl_type
155: )
156: AS
157: l_counter NUMBER;
158: BEGIN
193: -- Package Name : Convert_TerrTypeQual_PubToPvt
194: -- -------------------------------------------------
195: -- Purpose : This utility procedure will convert
196: -- TerrTypequal from pub to pvt before
197: -- calling the JTF_TERRITORY_TYPE_PVT pkg.
198: -- Notes :
199: -- History :
200: -- 08/23/99 VNEDUNGA Created
201: -- -------------------------------------------------
200: -- 08/23/99 VNEDUNGA Created
201: -- -------------------------------------------------
202: PROCEDURE convert_terrtypequal_pubtopvt (
203: p_terrtypequal_tbl IN jtf_territory_type_pub.terrtypequal_tbl_type,
204: x_terrtypequal_tbl OUT NOCOPY jtf_territory_type_pvt.terrtypequal_tbl_type
205: )
206: AS
207: l_counter NUMBER;
208: BEGIN
252: -- Package Name : Convert_TerrTypeOut_PubToPvt
253: -- -------------------------------------------------
254: -- Purpose : This utility procedure will convert
255: -- terr_type_out_rec from pvt to pub
256: -- after calling JTF_TERRITORY_TYPE_PVT pkg.
257: -- Notes :
258: -- History :
259: -- 08/23/99 VNEDUNGA Created
260: -- -------------------------------------------------
258: -- History :
259: -- 08/23/99 VNEDUNGA Created
260: -- -------------------------------------------------
261: PROCEDURE convert_terrtypeout_pubtopvt (
262: p_terrtype_rec IN jtf_territory_type_pvt.terrtype_out_rec_type,
263: x_terrtype_rec OUT NOCOPY jtf_territory_type_pub.terrtype_out_rec_type
264: )
265: AS
266: BEGIN
274: -- Package Name : Convert_TypeUsgOut_PvtToPub
275: -- -------------------------------------------------
276: -- Purpose : This utility procedure will convert
277: -- Terr_Type_Usgs_out_Tbl from pvt to pub
278: -- after calling JTF_TERRITORY_TYPE_PVT pkg.
279: -- Notes :
280: -- History :
281: -- 08/23/99 VNEDUNGA Created
282: -- -------------------------------------------------
280: -- History :
281: -- 08/23/99 VNEDUNGA Created
282: -- -------------------------------------------------
283: PROCEDURE convert_typeusgout_pvttopub (
284: p_terrtypeusgsout_tbl IN jtf_territory_type_pvt.terrtypeusgs_out_tbl_type,
285: x_terrtypeusgsout_tbl OUT NOCOPY jtf_territory_type_pub.terrtypeusgs_out_tbl_type
286: )
287: AS
288: l_counter NUMBER;
307: -- Package Name : Convert_TypeQTUsgOut_PvtToPub
308: -- -------------------------------------------------
309: -- Purpose : This utility procedure will convert
310: -- Terr_QualTypeUsgs_Out_Tbl from pvt
311: -- to pub after calling JTF_TERRITORY_TYPE_PVT
312: -- pkg.
313: -- Notes :
314: -- History :
315: -- 08/23/99 VNEDUNGA Created
314: -- History :
315: -- 08/23/99 VNEDUNGA Created
316: -- -------------------------------------------------
317: PROCEDURE convert_typeqtusgout_pvttopub (
318: p_typequaltypeusgs_tbl IN jtf_territory_type_pvt.typequaltypeusgs_out_tbl_type,
319: x_typequaltypeusgs_tbl OUT NOCOPY jtf_territory_type_pub.typequaltypeusgs_out_tbl_type
320: )
321: AS
322: l_counter NUMBER;
344: -- Package Name : Convert_TypeQualOut_PvtToPub
345: -- -------------------------------------------------
346: -- Purpose : This utility procedure will convert
347: -- Terr_QualTypeUsgs_Out_Tbl from pvt
348: -- to pub after calling JTF_TERRITORY_TYPE_PVT
349: -- pkg.
350: -- Notes :
351: -- History :
352: -- 08/23/99 VNEDUNGA Created
351: -- History :
352: -- 08/23/99 VNEDUNGA Created
353: -- -------------------------------------------------
354: PROCEDURE convert_typequalout_pvttopub (
355: p_terrtypequal_tbl IN jtf_territory_type_pvt.terrtypequal_out_tbl_type,
356: x_terrtypequal_tbl OUT NOCOPY jtf_territory_type_pub.terrtypequal_out_tbl_type
357: )
358: AS
359: l_counter NUMBER;
441: l_api_name CONSTANT VARCHAR2(30) := 'Create_TerrType';
442: l_api_version_number CONSTANT NUMBER := 1.0;
443: -- Status Local Variables
444: l_return_status VARCHAR2(1); -- Return value from procedures
445: l_terrtype_rec jtf_territory_type_pvt.terrtype_rec_type;
446: l_terrtypequal_tbl jtf_territory_type_pvt.terrtypequal_tbl_type;
447: l_terrtypeusgs_tbl jtf_territory_type_pvt.terrtypeusgs_tbl_type;
448: l_typequaltypeusgs_tbl jtf_territory_type_pvt.typequaltypeusgs_tbl_type;
449: l_terrtypequal_out_tbl jtf_territory_type_pvt.terrtypequal_out_tbl_type;
442: l_api_version_number CONSTANT NUMBER := 1.0;
443: -- Status Local Variables
444: l_return_status VARCHAR2(1); -- Return value from procedures
445: l_terrtype_rec jtf_territory_type_pvt.terrtype_rec_type;
446: l_terrtypequal_tbl jtf_territory_type_pvt.terrtypequal_tbl_type;
447: l_terrtypeusgs_tbl jtf_territory_type_pvt.terrtypeusgs_tbl_type;
448: l_typequaltypeusgs_tbl jtf_territory_type_pvt.typequaltypeusgs_tbl_type;
449: l_terrtypequal_out_tbl jtf_territory_type_pvt.terrtypequal_out_tbl_type;
450: l_terrtypeusgs_out_tbl jtf_territory_type_pvt.terrtypeusgs_out_tbl_type;
443: -- Status Local Variables
444: l_return_status VARCHAR2(1); -- Return value from procedures
445: l_terrtype_rec jtf_territory_type_pvt.terrtype_rec_type;
446: l_terrtypequal_tbl jtf_territory_type_pvt.terrtypequal_tbl_type;
447: l_terrtypeusgs_tbl jtf_territory_type_pvt.terrtypeusgs_tbl_type;
448: l_typequaltypeusgs_tbl jtf_territory_type_pvt.typequaltypeusgs_tbl_type;
449: l_terrtypequal_out_tbl jtf_territory_type_pvt.terrtypequal_out_tbl_type;
450: l_terrtypeusgs_out_tbl jtf_territory_type_pvt.terrtypeusgs_out_tbl_type;
451: l_typequaltypeusgs_out_tbl jtf_territory_type_pvt.typequaltypeusgs_out_tbl_type;
444: l_return_status VARCHAR2(1); -- Return value from procedures
445: l_terrtype_rec jtf_territory_type_pvt.terrtype_rec_type;
446: l_terrtypequal_tbl jtf_territory_type_pvt.terrtypequal_tbl_type;
447: l_terrtypeusgs_tbl jtf_territory_type_pvt.terrtypeusgs_tbl_type;
448: l_typequaltypeusgs_tbl jtf_territory_type_pvt.typequaltypeusgs_tbl_type;
449: l_terrtypequal_out_tbl jtf_territory_type_pvt.terrtypequal_out_tbl_type;
450: l_terrtypeusgs_out_tbl jtf_territory_type_pvt.terrtypeusgs_out_tbl_type;
451: l_typequaltypeusgs_out_tbl jtf_territory_type_pvt.typequaltypeusgs_out_tbl_type;
452: --
445: l_terrtype_rec jtf_territory_type_pvt.terrtype_rec_type;
446: l_terrtypequal_tbl jtf_territory_type_pvt.terrtypequal_tbl_type;
447: l_terrtypeusgs_tbl jtf_territory_type_pvt.terrtypeusgs_tbl_type;
448: l_typequaltypeusgs_tbl jtf_territory_type_pvt.typequaltypeusgs_tbl_type;
449: l_terrtypequal_out_tbl jtf_territory_type_pvt.terrtypequal_out_tbl_type;
450: l_terrtypeusgs_out_tbl jtf_territory_type_pvt.terrtypeusgs_out_tbl_type;
451: l_typequaltypeusgs_out_tbl jtf_territory_type_pvt.typequaltypeusgs_out_tbl_type;
452: --
453:
446: l_terrtypequal_tbl jtf_territory_type_pvt.terrtypequal_tbl_type;
447: l_terrtypeusgs_tbl jtf_territory_type_pvt.terrtypeusgs_tbl_type;
448: l_typequaltypeusgs_tbl jtf_territory_type_pvt.typequaltypeusgs_tbl_type;
449: l_terrtypequal_out_tbl jtf_territory_type_pvt.terrtypequal_out_tbl_type;
450: l_terrtypeusgs_out_tbl jtf_territory_type_pvt.terrtypeusgs_out_tbl_type;
451: l_typequaltypeusgs_out_tbl jtf_territory_type_pvt.typequaltypeusgs_out_tbl_type;
452: --
453:
454: BEGIN
447: l_terrtypeusgs_tbl jtf_territory_type_pvt.terrtypeusgs_tbl_type;
448: l_typequaltypeusgs_tbl jtf_territory_type_pvt.typequaltypeusgs_tbl_type;
449: l_terrtypequal_out_tbl jtf_territory_type_pvt.terrtypequal_out_tbl_type;
450: l_terrtypeusgs_out_tbl jtf_territory_type_pvt.terrtypeusgs_out_tbl_type;
451: l_typequaltypeusgs_out_tbl jtf_territory_type_pvt.typequaltypeusgs_out_tbl_type;
452: --
453:
454: BEGIN
455: --dbms_output.put_line('Create_terrtype PUB: Entering API');
503: convert_typeqtypeusg_pubtopvt (
504: p_typequaltypeusgs_tbl => p_typequaltypeusgs_tbl,
505: x_typequaltypeusgs_tbl => l_typequaltypeusgs_tbl
506: );
507: --dbms_output.put_line('Create_terrtype PVT: Before Calling JTF_TERRITORY_TYPE_PVT.create_terrtype');
508: jtf_territory_type_pvt.create_terrtype (
509: p_api_version_number => 1.0,
510: p_init_msg_list => fnd_api.g_false,
511: p_commit => fnd_api.g_false,
504: p_typequaltypeusgs_tbl => p_typequaltypeusgs_tbl,
505: x_typequaltypeusgs_tbl => l_typequaltypeusgs_tbl
506: );
507: --dbms_output.put_line('Create_terrtype PVT: Before Calling JTF_TERRITORY_TYPE_PVT.create_terrtype');
508: jtf_territory_type_pvt.create_terrtype (
509: p_api_version_number => 1.0,
510: p_init_msg_list => fnd_api.g_false,
511: p_commit => fnd_api.g_false,
512: p_validation_level => fnd_api.g_valid_level_full,
659: l_api_name CONSTANT VARCHAR2(30) := 'Update_TerrType';
660: l_api_version_number CONSTANT NUMBER := 1.0;
661: -- Status Local Variables
662: l_return_status VARCHAR2(1); -- Return value from procedures
663: l_terrtype_rec jtf_territory_type_pvt.terrtype_rec_type;
664: l_terrtypequal_tbl jtf_territory_type_pvt.terrtypequal_tbl_type;
665: l_terrtypeusgs_tbl jtf_territory_type_pvt.terrtypeusgs_tbl_type;
666: l_typequaltypeusgs_tbl jtf_territory_type_pvt.typequaltypeusgs_tbl_type;
667: l_terrtype_out_rec jtf_territory_type_pvt.terrtype_out_rec_type;
660: l_api_version_number CONSTANT NUMBER := 1.0;
661: -- Status Local Variables
662: l_return_status VARCHAR2(1); -- Return value from procedures
663: l_terrtype_rec jtf_territory_type_pvt.terrtype_rec_type;
664: l_terrtypequal_tbl jtf_territory_type_pvt.terrtypequal_tbl_type;
665: l_terrtypeusgs_tbl jtf_territory_type_pvt.terrtypeusgs_tbl_type;
666: l_typequaltypeusgs_tbl jtf_territory_type_pvt.typequaltypeusgs_tbl_type;
667: l_terrtype_out_rec jtf_territory_type_pvt.terrtype_out_rec_type;
668: l_terrtypequal_out_tbl jtf_territory_type_pvt.terrtypequal_out_tbl_type;
661: -- Status Local Variables
662: l_return_status VARCHAR2(1); -- Return value from procedures
663: l_terrtype_rec jtf_territory_type_pvt.terrtype_rec_type;
664: l_terrtypequal_tbl jtf_territory_type_pvt.terrtypequal_tbl_type;
665: l_terrtypeusgs_tbl jtf_territory_type_pvt.terrtypeusgs_tbl_type;
666: l_typequaltypeusgs_tbl jtf_territory_type_pvt.typequaltypeusgs_tbl_type;
667: l_terrtype_out_rec jtf_territory_type_pvt.terrtype_out_rec_type;
668: l_terrtypequal_out_tbl jtf_territory_type_pvt.terrtypequal_out_tbl_type;
669: l_terrtypeusgs_out_tbl jtf_territory_type_pvt.terrtypeusgs_out_tbl_type;
662: l_return_status VARCHAR2(1); -- Return value from procedures
663: l_terrtype_rec jtf_territory_type_pvt.terrtype_rec_type;
664: l_terrtypequal_tbl jtf_territory_type_pvt.terrtypequal_tbl_type;
665: l_terrtypeusgs_tbl jtf_territory_type_pvt.terrtypeusgs_tbl_type;
666: l_typequaltypeusgs_tbl jtf_territory_type_pvt.typequaltypeusgs_tbl_type;
667: l_terrtype_out_rec jtf_territory_type_pvt.terrtype_out_rec_type;
668: l_terrtypequal_out_tbl jtf_territory_type_pvt.terrtypequal_out_tbl_type;
669: l_terrtypeusgs_out_tbl jtf_territory_type_pvt.terrtypeusgs_out_tbl_type;
670: l_typequaltypeusgs_out_tbl jtf_territory_type_pvt.typequaltypeusgs_out_tbl_type;
663: l_terrtype_rec jtf_territory_type_pvt.terrtype_rec_type;
664: l_terrtypequal_tbl jtf_territory_type_pvt.terrtypequal_tbl_type;
665: l_terrtypeusgs_tbl jtf_territory_type_pvt.terrtypeusgs_tbl_type;
666: l_typequaltypeusgs_tbl jtf_territory_type_pvt.typequaltypeusgs_tbl_type;
667: l_terrtype_out_rec jtf_territory_type_pvt.terrtype_out_rec_type;
668: l_terrtypequal_out_tbl jtf_territory_type_pvt.terrtypequal_out_tbl_type;
669: l_terrtypeusgs_out_tbl jtf_territory_type_pvt.terrtypeusgs_out_tbl_type;
670: l_typequaltypeusgs_out_tbl jtf_territory_type_pvt.typequaltypeusgs_out_tbl_type;
671: --
664: l_terrtypequal_tbl jtf_territory_type_pvt.terrtypequal_tbl_type;
665: l_terrtypeusgs_tbl jtf_territory_type_pvt.terrtypeusgs_tbl_type;
666: l_typequaltypeusgs_tbl jtf_territory_type_pvt.typequaltypeusgs_tbl_type;
667: l_terrtype_out_rec jtf_territory_type_pvt.terrtype_out_rec_type;
668: l_terrtypequal_out_tbl jtf_territory_type_pvt.terrtypequal_out_tbl_type;
669: l_terrtypeusgs_out_tbl jtf_territory_type_pvt.terrtypeusgs_out_tbl_type;
670: l_typequaltypeusgs_out_tbl jtf_territory_type_pvt.typequaltypeusgs_out_tbl_type;
671: --
672:
665: l_terrtypeusgs_tbl jtf_territory_type_pvt.terrtypeusgs_tbl_type;
666: l_typequaltypeusgs_tbl jtf_territory_type_pvt.typequaltypeusgs_tbl_type;
667: l_terrtype_out_rec jtf_territory_type_pvt.terrtype_out_rec_type;
668: l_terrtypequal_out_tbl jtf_territory_type_pvt.terrtypequal_out_tbl_type;
669: l_terrtypeusgs_out_tbl jtf_territory_type_pvt.terrtypeusgs_out_tbl_type;
670: l_typequaltypeusgs_out_tbl jtf_territory_type_pvt.typequaltypeusgs_out_tbl_type;
671: --
672:
673: BEGIN
666: l_typequaltypeusgs_tbl jtf_territory_type_pvt.typequaltypeusgs_tbl_type;
667: l_terrtype_out_rec jtf_territory_type_pvt.terrtype_out_rec_type;
668: l_terrtypequal_out_tbl jtf_territory_type_pvt.terrtypequal_out_tbl_type;
669: l_terrtypeusgs_out_tbl jtf_territory_type_pvt.terrtypeusgs_out_tbl_type;
670: l_typequaltypeusgs_out_tbl jtf_territory_type_pvt.typequaltypeusgs_out_tbl_type;
671: --
672:
673: BEGIN
674: --dbms_output.put_line('Update_terrtype PUB: Entering API');
723: p_typequaltypeusgs_tbl => p_typequaltypeusgs_tbl,
724: x_typequaltypeusgs_tbl => l_typequaltypeusgs_tbl
725: );
726: --
727: --dbms_output.put_line('Update_terrtype PVT: Before Calling JTF_TERRITORY_TYPE_PVT.Update_terrtype');
728: jtf_territory_type_pvt.update_terrtype (
729: p_api_version_number => 1.0,
730: p_init_msg_list => fnd_api.g_false,
731: p_commit => fnd_api.g_false,
724: x_typequaltypeusgs_tbl => l_typequaltypeusgs_tbl
725: );
726: --
727: --dbms_output.put_line('Update_terrtype PVT: Before Calling JTF_TERRITORY_TYPE_PVT.Update_terrtype');
728: jtf_territory_type_pvt.update_terrtype (
729: p_api_version_number => 1.0,
730: p_init_msg_list => fnd_api.g_false,
731: p_commit => fnd_api.g_false,
732: p_validation_level => fnd_api.g_valid_level_full,
904: x_return_status := fnd_api.g_ret_sts_success;
905: --
906: -- API body
907: --
908: --dbms_output.put_line('Delete__terrtype PVT: Before Calling JTF_TERRITORY_TYPE_PVT.Delete_TerrType');
909: jtf_territory_type_pvt.delete_terrtype (
910: p_api_version_number => p_api_version_number,
911: p_init_msg_list => p_init_msg_list,
912: p_commit => p_commit,
905: --
906: -- API body
907: --
908: --dbms_output.put_line('Delete__terrtype PVT: Before Calling JTF_TERRITORY_TYPE_PVT.Delete_TerrType');
909: jtf_territory_type_pvt.delete_terrtype (
910: p_api_version_number => p_api_version_number,
911: p_init_msg_list => p_init_msg_list,
912: p_commit => p_commit,
913: x_return_status => l_return_status,
1058: x_return_status := fnd_api.g_ret_sts_success;
1059: --
1060: -- API body
1061: --
1062: --dbms_output.put_line('De-Activate_terrtype PVT: Before Calling JTF_TERRITORY_TYPE_PVT.Deactivate_TerrType');
1063: jtf_territory_type_pvt.deactivate_terrtype (
1064: p_api_version_number => p_api_version_number,
1065: p_init_msg_list => p_init_msg_list,
1066: p_commit => p_commit,
1059: --
1060: -- API body
1061: --
1062: --dbms_output.put_line('De-Activate_terrtype PVT: Before Calling JTF_TERRITORY_TYPE_PVT.Deactivate_TerrType');
1063: jtf_territory_type_pvt.deactivate_terrtype (
1064: p_api_version_number => p_api_version_number,
1065: p_init_msg_list => p_init_msg_list,
1066: p_commit => p_commit,
1067: x_return_status => l_return_status,