1: PACKAGE BODY CN_Ruleset_PUB AS
2: --$Header: cnprsetb.pls 120.1 2005/08/25 23:38:29 rramakri noship $
3:
4: --Global Variables
5: G_PKG_NAME CONSTANT VARCHAR2(30) := 'CN_Ruleset_PUB';
1: PACKAGE BODY CN_Ruleset_PUB AS
2: --$Header: cnprsetb.pls 120.1 2005/08/25 23:38:29 rramakri noship $
3:
4: --Global Variables
5: G_PKG_NAME CONSTANT VARCHAR2(30) := 'CN_Ruleset_PUB';
6: G_LAST_UPDATE_DATE DATE := Sysdate;
7: G_LAST_UPDATED_BY NUMBER := fnd_global.user_id;
8: G_CREATION_DATE DATE := Sysdate;
9: G_CREATED_BY NUMBER := fnd_global.user_id;
22: -- Default = FND_API.G_FALSE
23: -- p_validation_level IN NUMBER Optional
24: -- Default = FND_API.G_VALID_LEVEL_FULL
25: -- p_ruleset_rec IN
26: -- CN_Ruleset_PUB.ruleset_rec_type
27: --
28: -- OUT : x_return_status OUT VARCHAR2(1)
29: -- x_msg_count OUT NUMBER
30: -- x_msg_data OUT VARCHAR2(2000)
48: x_return_status OUT NOCOPY VARCHAR2,
49: x_msg_count OUT NOCOPY NUMBER,
50: x_msg_data OUT NOCOPY VARCHAR2,
51: x_loading_status OUT NOCOPY VARCHAR2,
52: p_ruleset_rec IN CN_Ruleset_PUB.ruleset_rec_type
53: )
54: IS
55:
56: l_api_name CONSTANT VARCHAR2(30) := 'Create_Ruleset';
64:
65: --
66: -- Declaration for user hooks
67: --
68: l_ruleset_rec CN_Ruleset_PUB.ruleset_rec_type;
69: l_OAI_array JTF_USR_HKS.oai_data_array_type;
70: l_bind_data_id NUMBER;
71: l_return_code VARCHAR2(1);
72:
112: -- User hooks
113: --
114:
115: -- customer pre-processing section
116: IF JTF_USR_HKS.Ok_to_Execute('CN_RULESET_PUB',
117: 'CREATE_RULESET',
118: 'B',
119: 'C')
120: THEN
118: 'B',
119: 'C')
120: THEN
121: --SK cn_ruleset_pvt.create_ruleset
122: cn_ruleset_pub_cuhk.create_ruleset_pre
123: (p_api_version => p_api_version,
124: p_init_msg_list => p_init_msg_list,
125: p_commit => p_commit,
126: p_validation_level => p_validation_level,
139: END IF;
140: END IF;
141:
142: -- vertical industry pre-processing section
143: IF JTF_USR_HKS.Ok_to_Execute('CN_RULESET_PUB',
144: 'CREATE_RULESET',
145: 'B',
146: 'V')
147: THEN
145: 'B',
146: 'V')
147: THEN
148: --SK cn_ruleset_pvt.create_ruleset
149: cn_ruleset_pub_vuhk.create_ruleset_pre
150: (p_api_version => p_api_version,
151: p_init_msg_list => p_init_msg_list,
152: p_commit => p_commit,
153: p_validation_level => p_validation_level,
276:
277: -- SK Start of post processing hooks
278:
279: -- vertical post processing section
280: IF JTF_USR_HKS.Ok_to_Execute('CN_RULESET_PUB',
281: 'CREATE_RULESET',
282: 'A',
283: 'V')
284: THEN
282: 'A',
283: 'V')
284: THEN
285: --SK cn_ruleset_pvt.create_ruleset
286: cn_ruleset_pub_vuhk.create_ruleset_post
287: (p_api_version => p_api_version,
288: p_init_msg_list => p_init_msg_list,
289: p_commit => p_commit,
290: p_validation_level => p_validation_level,
303: END IF;
304: END IF;
305:
306: -- customer post processing section
307: IF JTF_USR_HKS.Ok_to_Execute('CN_RULESET_PUB',
308: 'CREATE_RULESET',
309: 'A',
310: 'C')
311: THEN
309: 'A',
310: 'C')
311: THEN
312: --SK cn_ruleset_pvt.create_ruleset
313: cn_ruleset_pub_cuhk.create_ruleset_post
314: (p_api_version => p_api_version,
315: p_init_msg_list => p_init_msg_list,
316: p_commit => p_commit,
317: p_validation_level => p_validation_level,
332: -- SK End of post processing hooks
333:
334:
335: -- Message generation section.
336: IF JTF_USR_HKS.Ok_to_execute('CN_RULESET_PUB',
337: 'CREATE_RULESET',
338: 'M',
339: 'M')
340: THEN
337: 'CREATE_RULESET',
338: 'M',
339: 'M')
340: THEN
341: IF cn_ruleset_pub_cuhk.ok_to_generate_msg
342: (p_ruleset_rec => l_ruleset_rec)
343: THEN
344: -- Clear bind variables
345: -- XMLGEN.clearBindValues;
464: -- Default = FND_API.G_FALSE
465: -- p_validation_level IN NUMBER Optional
466: -- Default = FND_API.G_VALID_LEVEL_FULL
467: -- p_ruleset_rec_type IN
468: -- CN_Ruleset_PUB.ruleset_rec_type
469: --
470: -- OUT : x_return_status OUT VARCHAR2(1)
471: -- x_msg_count OUT NUMBER
472: -- x_msg_data OUT VARCHAR2(2000)
491: x_return_status OUT NOCOPY VARCHAR2,
492: x_msg_count OUT NOCOPY NUMBER,
493: x_msg_data OUT NOCOPY VARCHAR2,
494: x_loading_status OUT NOCOPY VARCHAR2,
495: p_old_ruleset_rec IN OUT NOCOPY CN_Ruleset_PUB.ruleset_rec_type,
496: p_ruleset_rec IN OUT NOCOPY CN_Ruleset_PUB.ruleset_rec_type
497: ) IS
498:
499: l_api_name CONSTANT VARCHAR2(30) := 'Update_Ruleset';
492: x_msg_count OUT NOCOPY NUMBER,
493: x_msg_data OUT NOCOPY VARCHAR2,
494: x_loading_status OUT NOCOPY VARCHAR2,
495: p_old_ruleset_rec IN OUT NOCOPY CN_Ruleset_PUB.ruleset_rec_type,
496: p_ruleset_rec IN OUT NOCOPY CN_Ruleset_PUB.ruleset_rec_type
497: ) IS
498:
499: l_api_name CONSTANT VARCHAR2(30) := 'Update_Ruleset';
500: l_api_version CONSTANT NUMBER := 1.0;
506: --
507: --Declaration for user hooks
508: --
509: l_OAI_array JTF_USR_HKS.oai_data_array_type;
510: l_old_ruleset_rec CN_Ruleset_PUB.ruleset_rec_type;
511: l_ruleset_rec CN_Ruleset_PUB.ruleset_rec_type;
512: l_bind_data_id NUMBER;
513: l_return_code VARCHAR2(1);
514:
507: --Declaration for user hooks
508: --
509: l_OAI_array JTF_USR_HKS.oai_data_array_type;
510: l_old_ruleset_rec CN_Ruleset_PUB.ruleset_rec_type;
511: l_ruleset_rec CN_Ruleset_PUB.ruleset_rec_type;
512: l_bind_data_id NUMBER;
513: l_return_code VARCHAR2(1);
514:
515:
549: -- User hooks
550: --
551:
552: -- customer pre-processing section
553: IF JTF_USR_HKS.Ok_to_Execute('CN_RULESET_PUB',
554: 'UPDATE_RULESET',
555: 'B',
556: 'C')
557: THEN
554: 'UPDATE_RULESET',
555: 'B',
556: 'C')
557: THEN
558: cn_ruleset_pub_cuhk.update_ruleset_pre
559: (p_api_version => p_api_version,
560: p_init_msg_list => p_init_msg_list,
561: p_commit => p_commit,
562: p_validation_level => p_validation_level,
576: END IF;
577: END IF;
578:
579: -- vertical industry pre-processing section
580: IF JTF_USR_HKS.Ok_to_Execute('CN_RULESET_PUB',
581: 'UPDATE_RULESET',
582: 'B',
583: 'V')
584: THEN
581: 'UPDATE_RULESET',
582: 'B',
583: 'V')
584: THEN
585: cn_ruleset_pub_vuhk.update_ruleset_pre
586: (p_api_version => p_api_version,
587: p_init_msg_list => p_init_msg_list,
588: p_commit => p_commit,
589: p_validation_level => p_validation_level,
754:
755: -- SK Start of post processing hooks
756:
757: -- vertical post processing section
758: IF JTF_USR_HKS.Ok_to_Execute('CN_RULESET_PUB',
759: 'UPDATE_RULESET',
760: 'A',
761: 'V')
762: THEN
759: 'UPDATE_RULESET',
760: 'A',
761: 'V')
762: THEN
763: cn_ruleset_pub_vuhk.update_ruleset_post
764: (p_api_version => p_api_version,
765: p_init_msg_list => p_init_msg_list,
766: p_commit => p_commit,
767: p_validation_level => p_validation_level,
781: END IF;
782: END IF;
783:
784: -- customer post processing section
785: IF JTF_USR_HKS.Ok_to_Execute('CN_RULESET_PUB',
786: 'UPDATE_RULESET',
787: 'A',
788: 'C')
789: THEN
786: 'UPDATE_RULESET',
787: 'A',
788: 'C')
789: THEN
790: cn_ruleset_pub_cuhk.update_ruleset_post
791: (p_api_version => p_api_version,
792: p_init_msg_list => p_init_msg_list,
793: p_commit => p_commit,
794: p_validation_level => p_validation_level,
810: -- SK End of post processing hooks
811:
812:
813: -- Message generation section.
814: IF JTF_USR_HKS.Ok_to_execute('CN_RULESET_PUB',
815: 'UPDATE_RULESET',
816: 'M',
817: 'M')
818: THEN
815: 'UPDATE_RULESET',
816: 'M',
817: 'M')
818: THEN
819: IF cn_ruleset_pub_cuhk.ok_to_generate_msg
820: (p_ruleset_rec => l_ruleset_rec)
821: THEN
822: -- Clear bind variables
823: -- XMLGEN.clearBindValues;
916: );
917:
918: END;
919:
920: END CN_Ruleset_PUB;