1: PACKAGE BODY BIS_CUSTOMIZATION_PUB AS
2: /* $Header: BISPCSTB.pls 120.1 2006/02/14 13:28:13 hengliu noship $ */
3: -- dbdrv: sql ~PROD ~PATH ~FILE none none none package &phase=plb \
4: -- dbdrv: checkfile(115.1=120.1):~PROD:~PATH:~FILE
5:
26:
27: PROCEDURE Create_Custom_Region_Items
28: ( p_api_version IN NUMBER
29: , p_commit IN VARCHAR2 := FND_API.G_FALSE
30: , p_Custom_Region_Items_Rec IN BIS_CUSTOMIZATION_PUB.custom_region_items_type
31: , x_return_status OUT NOCOPY VARCHAR2
32: , x_msg_count OUT NOCOPY NUMBER
33: , x_msg_data OUT NOCOPY VARCHAR2
34: )
72: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
73: WHEN NO_DATA_FOUND THEN
74: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
75: IF (x_msg_data IS NOT NULL) THEN
76: x_msg_data := x_msg_data||' -> BIS_CUSTOMIZATION_PUB.Create_Custom_Region_Items ';
77: ELSE
78: x_msg_data := SQLERRM||' at BIS_CUSTOMIZATION_PUB.Create_Custom_Region_Items ';
79: END IF;
80: WHEN OTHERS THEN
74: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
75: IF (x_msg_data IS NOT NULL) THEN
76: x_msg_data := x_msg_data||' -> BIS_CUSTOMIZATION_PUB.Create_Custom_Region_Items ';
77: ELSE
78: x_msg_data := SQLERRM||' at BIS_CUSTOMIZATION_PUB.Create_Custom_Region_Items ';
79: END IF;
80: WHEN OTHERS THEN
81: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
82: IF (x_msg_data IS NOT NULL) THEN
79: END IF;
80: WHEN OTHERS THEN
81: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
82: IF (x_msg_data IS NOT NULL) THEN
83: x_msg_data := x_msg_data||' -> BIS_CUSTOMIZATION_PUB.Create_Custom_Region_Items ';
84: ELSE
85: x_msg_data := SQLERRM||' at BIS_CUSTOMIZATION_PUB.Create_Custom_Region_Items ';
86: END IF;
87:
81: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
82: IF (x_msg_data IS NOT NULL) THEN
83: x_msg_data := x_msg_data||' -> BIS_CUSTOMIZATION_PUB.Create_Custom_Region_Items ';
84: ELSE
85: x_msg_data := SQLERRM||' at BIS_CUSTOMIZATION_PUB.Create_Custom_Region_Items ';
86: END IF;
87:
88: END Create_Custom_Region_Items;
89: --
90: --
91: PROCEDURE Update_Custom_Region_Items
92: ( p_api_version IN NUMBER
93: , p_commit IN VARCHAR2 := FND_API.G_FALSE
94: , p_Custom_Region_Items_Rec IN BIS_CUSTOMIZATION_PUB.custom_Region_Items_type
95: , x_return_status OUT NOCOPY VARCHAR2
96: , x_msg_count OUT NOCOPY NUMBER
97: , x_msg_data OUT NOCOPY VARCHAR2
98: )
135: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
136: WHEN NO_DATA_FOUND THEN
137: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
138: IF (x_msg_data IS NOT NULL) THEN
139: x_msg_data := x_msg_data||' -> BIS_CUSTOMIZATION_PUB.Update_Custom_Region_items ';
140: ELSE
141: x_msg_data := SQLERRM||' at BIS_CUSTOMIZATION_PUB.Update_Custom_Region_items ';
142: END IF;
143: WHEN OTHERS THEN
137: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
138: IF (x_msg_data IS NOT NULL) THEN
139: x_msg_data := x_msg_data||' -> BIS_CUSTOMIZATION_PUB.Update_Custom_Region_items ';
140: ELSE
141: x_msg_data := SQLERRM||' at BIS_CUSTOMIZATION_PUB.Update_Custom_Region_items ';
142: END IF;
143: WHEN OTHERS THEN
144: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
145: IF (x_msg_data IS NOT NULL) THEN
142: END IF;
143: WHEN OTHERS THEN
144: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
145: IF (x_msg_data IS NOT NULL) THEN
146: x_msg_data := x_msg_data||' -> BIS_CUSTOMIZATION_PUB.Update_Custom_Region_items ';
147: ELSE
148: x_msg_data := SQLERRM||' at BIS_CUSTOMIZATION_PUB.Update_Custom_Region_items ';
149: END IF;
150:
144: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
145: IF (x_msg_data IS NOT NULL) THEN
146: x_msg_data := x_msg_data||' -> BIS_CUSTOMIZATION_PUB.Update_Custom_Region_items ';
147: ELSE
148: x_msg_data := SQLERRM||' at BIS_CUSTOMIZATION_PUB.Update_Custom_Region_items ';
149: END IF;
150:
151: END Update_Custom_Region_Items;
152:
167: , x_msg_count OUT NOCOPY NUMBER
168: , x_msg_data OUT NOCOPY VARCHAR2
169: )IS
170:
171: l_custom_region_items_rec BIS_CUSTOMIZATION_PUB.custom_region_items_type;
172: BEGIN
173: FND_MSG_PUB.Initialize;
174: x_return_status := FND_API.G_RET_STS_SUCCESS;
175:
184: l_custom_region_items_rec.property_number_value := p_property_number_value;
185: l_custom_region_items_rec.property_date_value := p_property_date_value;
186:
187:
188: BIS_CUSTOMIZATION_PUB.Create_Custom_Region_Items
189: ( p_api_version => p_api_version
190: , p_commit => p_commit
191: , p_Custom_Region_Items_Rec => l_custom_region_items_rec
192: , x_return_status => x_return_status
210: x_return_status := FND_API.G_RET_STS_ERROR;
211: WHEN OTHERS THEN
212: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
213: IF (x_msg_data IS NOT NULL) THEN
214: x_msg_data := x_msg_data||' -> BIS_CUSTOMIZATION_PUB.Create_Custom_region_items_UI ';
215: ELSE
216: x_msg_data := SQLERRM||' at BIS_CUSTOMIZATION_PUB.Create_Custom_region_items_UI ';
217: END IF;
218:
212: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
213: IF (x_msg_data IS NOT NULL) THEN
214: x_msg_data := x_msg_data||' -> BIS_CUSTOMIZATION_PUB.Create_Custom_region_items_UI ';
215: ELSE
216: x_msg_data := SQLERRM||' at BIS_CUSTOMIZATION_PUB.Create_Custom_region_items_UI ';
217: END IF;
218:
219:
220: END Create_Custom_Region_Items_UI;
238: , x_msg_count OUT NOCOPY NUMBER
239: , x_msg_data OUT NOCOPY VARCHAR2
240: )IS
241:
242: l_custom_region_items_rec BIS_CUSTOMIZATION_PUB.custom_region_items_type;
243: BEGIN
244: FND_MSG_PUB.Initialize;
245: x_return_status := FND_API.G_RET_STS_SUCCESS;
246:
255: l_custom_region_items_rec.property_number_value := p_property_number_value;
256: l_custom_region_items_rec.property_date_value := p_property_date_value;
257:
258:
259: BIS_CUSTOMIZATION_PUB.Update_Custom_Region_Items
260: ( p_api_version => p_api_version
261: , p_commit => p_commit
262: , p_Custom_Region_Items_Rec => l_custom_region_items_rec
263: , x_return_status => x_return_status
283: x_return_status := FND_API.G_RET_STS_ERROR;
284: WHEN OTHERS THEN
285: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
286: IF (x_msg_data IS NOT NULL) THEN
287: x_msg_data := x_msg_data||' -> BIS_CUSTOMIZATION_PUB.Update_Custom_region_items_UI ';
288: ELSE
289: x_msg_data := SQLERRM||' at BIS_CUSTOMIZATION_PUB.Update_Custom_region_items_UI ';
290: END IF;
291:
285: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
286: IF (x_msg_data IS NOT NULL) THEN
287: x_msg_data := x_msg_data||' -> BIS_CUSTOMIZATION_PUB.Update_Custom_region_items_UI ';
288: ELSE
289: x_msg_data := SQLERRM||' at BIS_CUSTOMIZATION_PUB.Update_Custom_region_items_UI ';
290: END IF;
291:
292: END Update_Custom_region_items_UI;
293:
293:
294: PROCEDURE Delete_Custom_Region_Items
295: ( p_api_version IN NUMBER
296: , p_commit IN VARCHAR2 := FND_API.G_FALSE
297: , p_Custom_Region_Items_Rec IN BIS_CUSTOMIZATION_PUB.custom_Region_Items_type
298: , x_return_status OUT NOCOPY VARCHAR2
299: , x_msg_count OUT NOCOPY NUMBER
300: , x_msg_data OUT NOCOPY VARCHAR2
301: )
338: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
339: WHEN NO_DATA_FOUND THEN
340: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
341: IF (x_msg_data IS NOT NULL) THEN
342: x_msg_data := x_msg_data||' -> BIS_CUSTOMIZATION_PUB.Delete_Custom_Region_items ';
343: ELSE
344: x_msg_data := SQLERRM||' at BIS_CUSTOMIZATION_PUB.Delete_Custom_Region_items ';
345: END IF;
346: WHEN OTHERS THEN
340: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
341: IF (x_msg_data IS NOT NULL) THEN
342: x_msg_data := x_msg_data||' -> BIS_CUSTOMIZATION_PUB.Delete_Custom_Region_items ';
343: ELSE
344: x_msg_data := SQLERRM||' at BIS_CUSTOMIZATION_PUB.Delete_Custom_Region_items ';
345: END IF;
346: WHEN OTHERS THEN
347: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
348: IF (x_msg_data IS NOT NULL) THEN
345: END IF;
346: WHEN OTHERS THEN
347: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
348: IF (x_msg_data IS NOT NULL) THEN
349: x_msg_data := x_msg_data||' -> BIS_CUSTOMIZATION_PUB.Delete_Custom_Region_items ';
350: ELSE
351: x_msg_data := SQLERRM||' at BIS_CUSTOMIZATION_PUB.Delete_Custom_Region_items ';
352: END IF;
353:
347: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
348: IF (x_msg_data IS NOT NULL) THEN
349: x_msg_data := x_msg_data||' -> BIS_CUSTOMIZATION_PUB.Delete_Custom_Region_items ';
350: ELSE
351: x_msg_data := SQLERRM||' at BIS_CUSTOMIZATION_PUB.Delete_Custom_Region_items ';
352: END IF;
353:
354: END Delete_Custom_Region_Items;
355:
366: , x_return_status OUT NOCOPY VARCHAR2
367: , x_msg_count OUT NOCOPY NUMBER
368: , x_msg_data OUT NOCOPY VARCHAR2
369: ) IS
370: l_custom_region_items_rec BIS_CUSTOMIZATION_PUB.custom_region_items_type;
371: BEGIN
372: FND_MSG_PUB.Initialize;
373: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
374:
407: x_return_status := FND_API.G_RET_STS_ERROR;
408: WHEN OTHERS THEN
409: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
410: IF (x_msg_data IS NOT NULL) THEN
411: x_msg_data := x_msg_data||' -> BIS_CUSTOMIZATION_PUB.Delete_Custom_region_items_UI ';
412: ELSE
413: x_msg_data := SQLERRM||' at BIS_CUSTOMIZATION_PUB.Delete_Custom_region_items_UI ';
414: END IF;
415:
409: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
410: IF (x_msg_data IS NOT NULL) THEN
411: x_msg_data := x_msg_data||' -> BIS_CUSTOMIZATION_PUB.Delete_Custom_region_items_UI ';
412: ELSE
413: x_msg_data := SQLERRM||' at BIS_CUSTOMIZATION_PUB.Delete_Custom_region_items_UI ';
414: END IF;
415:
416: END Delete_Custom_Region_Items_UI;
417:
417:
418: PROCEDURE Create_Customizations
419: ( p_api_version IN NUMBER
420: , p_commit IN VARCHAR2 := FND_API.G_FALSE
421: , p_Customizations_Rec IN BIS_CUSTOMIZATION_PUB.customizations_type
422: , x_return_status OUT NOCOPY VARCHAR2
423: , x_msg_count OUT NOCOPY NUMBER
424: , x_msg_data OUT NOCOPY VARCHAR2)
425: IS
461: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
462: WHEN NO_DATA_FOUND THEN
463: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
464: IF (x_msg_data IS NOT NULL) THEN
465: x_msg_data := x_msg_data||' -> BIS_CUSTOMIZATION_PUB.Create_Customizations ';
466: ELSE
467: x_msg_data := SQLERRM||' at BIS_CUSTOMIZATION_PUB.Create_Customizations ';
468: END IF;
469: WHEN OTHERS THEN
463: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
464: IF (x_msg_data IS NOT NULL) THEN
465: x_msg_data := x_msg_data||' -> BIS_CUSTOMIZATION_PUB.Create_Customizations ';
466: ELSE
467: x_msg_data := SQLERRM||' at BIS_CUSTOMIZATION_PUB.Create_Customizations ';
468: END IF;
469: WHEN OTHERS THEN
470: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
471: IF (x_msg_data IS NOT NULL) THEN
468: END IF;
469: WHEN OTHERS THEN
470: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
471: IF (x_msg_data IS NOT NULL) THEN
472: x_msg_data := x_msg_data||' -> BIS_CUSTOMIZATION_PUB.Create_Customizations ';
473: ELSE
474: x_msg_data := SQLERRM||' at BIS_CUSTOMIZATION_PUB.Create_Customizations ';
475: END IF;
476: END Create_Customizations;
470: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
471: IF (x_msg_data IS NOT NULL) THEN
472: x_msg_data := x_msg_data||' -> BIS_CUSTOMIZATION_PUB.Create_Customizations ';
473: ELSE
474: x_msg_data := SQLERRM||' at BIS_CUSTOMIZATION_PUB.Create_Customizations ';
475: END IF;
476: END Create_Customizations;
477: --
478: --
479:
480: PROCEDURE Update_Customizations
481: ( p_api_version IN NUMBER
482: , p_commit IN VARCHAR2 := FND_API.G_FALSE
483: , p_Customizations_Rec IN BIS_CUSTOMIZATION_PUB.customizations_type
484: , x_return_status OUT NOCOPY VARCHAR2
485: , x_msg_count OUT NOCOPY NUMBER
486: , x_msg_data OUT NOCOPY VARCHAR2
487: )
525: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
526: WHEN NO_DATA_FOUND THEN
527: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
528: IF (x_msg_data IS NOT NULL) THEN
529: x_msg_data := x_msg_data||' -> BIS_CUSTOMIZATION_PUB.Update_Customizations ';
530: ELSE
531: x_msg_data := SQLERRM||' at BIS_CUSTOMIZATION_PUB.Update_Customizations ';
532: END IF;
533: WHEN OTHERS THEN
527: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
528: IF (x_msg_data IS NOT NULL) THEN
529: x_msg_data := x_msg_data||' -> BIS_CUSTOMIZATION_PUB.Update_Customizations ';
530: ELSE
531: x_msg_data := SQLERRM||' at BIS_CUSTOMIZATION_PUB.Update_Customizations ';
532: END IF;
533: WHEN OTHERS THEN
534: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
535: IF (x_msg_data IS NOT NULL) THEN
532: END IF;
533: WHEN OTHERS THEN
534: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
535: IF (x_msg_data IS NOT NULL) THEN
536: x_msg_data := x_msg_data||' -> BIS_CUSTOMIZATION_PUB.Update_Customizations ';
537: ELSE
538: x_msg_data := SQLERRM||' at BIS_CUSTOMIZATION_PUB.Update_Customizations ';
539: END IF;
540:
534: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
535: IF (x_msg_data IS NOT NULL) THEN
536: x_msg_data := x_msg_data||' -> BIS_CUSTOMIZATION_PUB.Update_Customizations ';
537: ELSE
538: x_msg_data := SQLERRM||' at BIS_CUSTOMIZATION_PUB.Update_Customizations ';
539: END IF;
540:
541: END Update_Customizations;
542:
567: , x_msg_count OUT NOCOPY NUMBER
568: , x_msg_data OUT NOCOPY VARCHAR2
569: )
570: IS
571: l_customizations_rec BIS_CUSTOMIZATION_PUB.customizations_type;
572: BEGIN
573: FND_MSG_PUB.Initialize;
574: x_return_status := FND_API.G_RET_STS_SUCCESS;
575:
592: l_customizations_rec.developer_mode := p_developer_mode;
593: l_customizations_rec.name := p_name;
594: l_customizations_rec.description := p_description;
595:
596: BIS_CUSTOMIZATION_PUB.Create_Customizations
597: ( p_api_version => p_api_version
598: , p_commit => p_commit
599: , p_Customizations_Rec => l_customizations_rec
600: , x_return_status => x_return_status
620: x_return_status := FND_API.G_RET_STS_ERROR;
621: WHEN OTHERS THEN
622: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
623: IF (x_msg_data IS NOT NULL) THEN
624: x_msg_data := x_msg_data||' -> BIS_CUSTOMIZATION_PUB.Create_Customizations_UI ';
625: ELSE
626: x_msg_data := SQLERRM||' at BIS_CUSTOMIZATION_PUB.Create_Customizations_UI ';
627: END IF;
628:
622: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
623: IF (x_msg_data IS NOT NULL) THEN
624: x_msg_data := x_msg_data||' -> BIS_CUSTOMIZATION_PUB.Create_Customizations_UI ';
625: ELSE
626: x_msg_data := SQLERRM||' at BIS_CUSTOMIZATION_PUB.Create_Customizations_UI ';
627: END IF;
628:
629: END Create_Customizations_UI;
630:
654: , x_msg_count OUT NOCOPY NUMBER
655: , x_msg_data OUT NOCOPY VARCHAR2
656: )
657: IS
658: l_customizations_rec BIS_CUSTOMIZATION_PUB.customizations_type;
659: BEGIN
660: FND_MSG_PUB.Initialize;
661: x_return_status := FND_API.G_RET_STS_SUCCESS;
662:
679: l_customizations_rec.developer_mode := p_developer_mode;
680: l_customizations_rec.name := p_name;
681: l_customizations_rec.description := p_description;
682:
683: BIS_CUSTOMIZATION_PUB.Update_Customizations
684: ( p_api_version => p_api_version
685: , p_commit => p_commit
686: , p_Customizations_Rec => l_customizations_rec
687: , x_return_status => x_return_status
707: x_return_status := FND_API.G_RET_STS_ERROR;
708: WHEN OTHERS THEN
709: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
710: IF (x_msg_data IS NOT NULL) THEN
711: x_msg_data := x_msg_data||' -> BIS_CUSTOMIZATION_PUB.Update_Customizations_UI ';
712: ELSE
713: x_msg_data := SQLERRM||' at BIS_CUSTOMIZATION_PUB.Update_Customizations_UI ';
714: END IF;
715:
709: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
710: IF (x_msg_data IS NOT NULL) THEN
711: x_msg_data := x_msg_data||' -> BIS_CUSTOMIZATION_PUB.Update_Customizations_UI ';
712: ELSE
713: x_msg_data := SQLERRM||' at BIS_CUSTOMIZATION_PUB.Update_Customizations_UI ';
714: END IF;
715:
716: END Update_Customizations_UI;
717:
715:
716: END Update_Customizations_UI;
717:
718:
719: END BIS_CUSTOMIZATION_PUB;