1: PACKAGE BODY Ibc_Ctype_Pvt AS
2: /* $Header: ibcvctyb.pls 120.2 2005/06/01 23:50:00 appldev $ */
3:
4: -- Purpose: API to Populate Content Type.
5:
9: -- Sri Rangarajan 01/06/2002 Created Package
10: -- shitij.vatsa 11/04/2002 Updated for NOCOPY
11: -- Sri Rangarajan 01/06/2004 Added the Method get_sql_from_flex
12:
13: -- Package Name : IBC_Ctype_Pvt
14: -- Purpose :
15: -- History : 05/18/2005 Sharma GSCC NOCOPY issue fixed
16: -- NOTE :
17: -- End of Comments
16: -- NOTE :
17: -- End of Comments
18:
19:
20: G_PKG_Name CONSTANT VARCHAR2(30):= 'Ibc_Ctype_Pvt';
21: G_FILE_Name CONSTANT VARCHAR2(12) := 'ibcvctyb.pls';
22:
23: PROCEDURE Update_Attribute_Type(
24: P_Api_Version_Number IN NUMBER,
24: P_Api_Version_Number IN NUMBER,
25: P_Init_Msg_List IN VARCHAR2 ,--:= FND_API.G_FALSE,
26: P_Commit IN VARCHAR2 ,--:= FND_API.G_FALSE,
27: P_Validation_Level IN NUMBER ,--:= FND_API.G_VALID_LEVEL_FULL,
28: P_Attribute_Type_Rec IN Ibc_Ctype_Pvt.Attribute_Type_Rec_Type,
29: X_Return_Status OUT NOCOPY VARCHAR2,
30: X_Msg_Count OUT NOCOPY NUMBER,
31: X_Msg_Data OUT NOCOPY VARCHAR2
32: );
35: P_Api_Version_Number IN NUMBER,
36: P_Init_Msg_List IN VARCHAR2 ,--:= FND_API.G_FALSE,
37: P_Commit IN VARCHAR2 ,--:= FND_API.G_FALSE,
38: P_Validation_Level IN NUMBER ,--:= FND_API.G_VALID_LEVEL_FULL,
39: P_Attribute_Type_Rec IN Ibc_Ctype_Pvt.Attribute_Type_Rec_Type,
40: X_Return_Status OUT NOCOPY VARCHAR2,
41: X_Msg_Count OUT NOCOPY NUMBER,
42: X_Msg_Data OUT NOCOPY VARCHAR2
43: );
44:
45: FUNCTION Query_Attribute_type_Row (
46: p_attribute_type_code IN VARCHAR2,
47: p_content_type_code IN VARCHAR2
48: ) RETURN Ibc_Ctype_Pvt.Attribute_Type_Rec_Type;
49:
50:
51: FUNCTION IsATypeRecordEmpty(
52: P_Attribute_Type_Rec IN Ibc_Ctype_Pvt.Attribute_Type_Rec_Type)
48: ) RETURN Ibc_Ctype_Pvt.Attribute_Type_Rec_Type;
49:
50:
51: FUNCTION IsATypeRecordEmpty(
52: P_Attribute_Type_Rec IN Ibc_Ctype_Pvt.Attribute_Type_Rec_Type)
53: RETURN BOOLEAN IS
54:
55: BEGIN
56:
68: END IsATypeRecordEmpty;
69:
70:
71: FUNCTION IsCTypeRecordEmpty(
72: P_content_Type_Rec IN Ibc_Ctype_Pvt.Content_Type_Rec_Type)
73: RETURN BOOLEAN IS
74:
75: BEGIN
76:
93: P_Api_Version_Number IN NUMBER,
94: P_Init_Msg_List IN VARCHAR2 ,--:= FND_API.G_FALSE,
95: P_Commit IN VARCHAR2 ,--:= FND_API.G_FALSE,
96: P_Validation_Level IN NUMBER ,--:= FND_API.G_VALID_LEVEL_FULL,
97: P_Content_Type_Rec IN Ibc_Ctype_Pvt.Content_Type_Rec_Type ,--:= Ibc_Ctype_Pvt.G_MISS_Content_Type_Rec,
98: P_Attribute_Type_Tbl IN Ibc_Ctype_Pvt.Attribute_Type_Tbl_Type ,--:= Ibc_Ctype_Pvt.G_Miss_Attribute_Type_Tbl,
99: X_Return_Status OUT NOCOPY VARCHAR2,
100: X_Msg_Count OUT NOCOPY NUMBER,
101: X_Msg_Data OUT NOCOPY VARCHAR2
94: P_Init_Msg_List IN VARCHAR2 ,--:= FND_API.G_FALSE,
95: P_Commit IN VARCHAR2 ,--:= FND_API.G_FALSE,
96: P_Validation_Level IN NUMBER ,--:= FND_API.G_VALID_LEVEL_FULL,
97: P_Content_Type_Rec IN Ibc_Ctype_Pvt.Content_Type_Rec_Type ,--:= Ibc_Ctype_Pvt.G_MISS_Content_Type_Rec,
98: P_Attribute_Type_Tbl IN Ibc_Ctype_Pvt.Attribute_Type_Tbl_Type ,--:= Ibc_Ctype_Pvt.G_Miss_Attribute_Type_Tbl,
99: X_Return_Status OUT NOCOPY VARCHAR2,
100: X_Msg_Count OUT NOCOPY NUMBER,
101: X_Msg_Data OUT NOCOPY VARCHAR2
102: )
123: l_api_name VARCHAR2(50) := 'Create_Content_Type';
124: l_Content_Type_Code VARCHAR2(100);
125: lx_rowid VARCHAR2(240);
126:
127: l_Content_Type_Rec Ibc_Ctype_Pvt.Content_Type_Rec_Type := p_Content_Type_Rec;
128: l_Attribute_Type_Tbl Ibc_Ctype_Pvt.Attribute_Type_Tbl_Type := p_Attribute_Type_Tbl;
129: l_attribute_type_rec Ibc_Ctype_Pvt.Attribute_Type_Rec_Type;
130:
131: l_Does_name_exist BOOLEAN := FALSE;
124: l_Content_Type_Code VARCHAR2(100);
125: lx_rowid VARCHAR2(240);
126:
127: l_Content_Type_Rec Ibc_Ctype_Pvt.Content_Type_Rec_Type := p_Content_Type_Rec;
128: l_Attribute_Type_Tbl Ibc_Ctype_Pvt.Attribute_Type_Tbl_Type := p_Attribute_Type_Tbl;
129: l_attribute_type_rec Ibc_Ctype_Pvt.Attribute_Type_Rec_Type;
130:
131: l_Does_name_exist BOOLEAN := FALSE;
132: l_Does_Description_exist BOOLEAN := FALSE;
125: lx_rowid VARCHAR2(240);
126:
127: l_Content_Type_Rec Ibc_Ctype_Pvt.Content_Type_Rec_Type := p_Content_Type_Rec;
128: l_Attribute_Type_Tbl Ibc_Ctype_Pvt.Attribute_Type_Tbl_Type := p_Attribute_Type_Tbl;
129: l_attribute_type_rec Ibc_Ctype_Pvt.Attribute_Type_Rec_Type;
130:
131: l_Does_name_exist BOOLEAN := FALSE;
132: l_Does_Description_exist BOOLEAN := FALSE;
133:
437: P_Api_Version_Number IN NUMBER,
438: P_Init_Msg_List IN VARCHAR2 ,--:= FND_API.G_FALSE,
439: P_Commit IN VARCHAR2 ,--:= FND_API.G_FALSE,
440: P_Validation_Level IN NUMBER ,--:= FND_API.G_VALID_LEVEL_FULL,
441: P_Attribute_Type_Rec IN Ibc_Ctype_Pvt.Attribute_Type_Rec_Type,
442: X_Return_Status OUT NOCOPY VARCHAR2,
443: X_Msg_Count OUT NOCOPY NUMBER,
444: X_Msg_Data OUT NOCOPY VARCHAR2
445: )
465: l_api_name VARCHAR2(50) := 'Create_Attribute_Type';
466: lx_rowid VARCHAR2(240);
467: l_content_type_code VARCHAR2(100);
468:
469: l_attribute_type_rec Ibc_Ctype_Pvt.Attribute_Type_Rec_Type := P_Attribute_Type_Rec;
470:
471: BEGIN
472:
473: -- Initialize API return status to SUCCESS
672: P_Api_Version_Number IN NUMBER,
673: P_Init_Msg_List IN VARCHAR2 ,--:= FND_API.G_FALSE,
674: P_Commit IN VARCHAR2 ,--:= FND_API.G_FALSE,
675: P_Validation_Level IN NUMBER ,--:= FND_API.G_VALID_LEVEL_FULL,
676: P_Content_Type_Rec IN Ibc_Ctype_Pvt.Content_Type_Rec_Type ,--:= Ibc_Ctype_Pvt.G_MISS_Content_Type_Rec,
677: P_Attribute_Type_Tbl IN Ibc_Ctype_Pvt.Attribute_Type_Tbl_Type ,--:= Ibc_Ctype_Pvt.G_Miss_Attribute_Type_Tbl,
678: x_Content_Type_Rec OUT NOCOPY Ibc_Ctype_Pvt.Content_Type_Rec_Type,
679: x_Attribute_Type_Tbl OUT NOCOPY Ibc_Ctype_Pvt.Attribute_Type_Tbl_Type,
680: X_Return_Status OUT NOCOPY VARCHAR2,
673: P_Init_Msg_List IN VARCHAR2 ,--:= FND_API.G_FALSE,
674: P_Commit IN VARCHAR2 ,--:= FND_API.G_FALSE,
675: P_Validation_Level IN NUMBER ,--:= FND_API.G_VALID_LEVEL_FULL,
676: P_Content_Type_Rec IN Ibc_Ctype_Pvt.Content_Type_Rec_Type ,--:= Ibc_Ctype_Pvt.G_MISS_Content_Type_Rec,
677: P_Attribute_Type_Tbl IN Ibc_Ctype_Pvt.Attribute_Type_Tbl_Type ,--:= Ibc_Ctype_Pvt.G_Miss_Attribute_Type_Tbl,
678: x_Content_Type_Rec OUT NOCOPY Ibc_Ctype_Pvt.Content_Type_Rec_Type,
679: x_Attribute_Type_Tbl OUT NOCOPY Ibc_Ctype_Pvt.Attribute_Type_Tbl_Type,
680: X_Return_Status OUT NOCOPY VARCHAR2,
681: X_Msg_Count OUT NOCOPY NUMBER,
674: P_Commit IN VARCHAR2 ,--:= FND_API.G_FALSE,
675: P_Validation_Level IN NUMBER ,--:= FND_API.G_VALID_LEVEL_FULL,
676: P_Content_Type_Rec IN Ibc_Ctype_Pvt.Content_Type_Rec_Type ,--:= Ibc_Ctype_Pvt.G_MISS_Content_Type_Rec,
677: P_Attribute_Type_Tbl IN Ibc_Ctype_Pvt.Attribute_Type_Tbl_Type ,--:= Ibc_Ctype_Pvt.G_Miss_Attribute_Type_Tbl,
678: x_Content_Type_Rec OUT NOCOPY Ibc_Ctype_Pvt.Content_Type_Rec_Type,
679: x_Attribute_Type_Tbl OUT NOCOPY Ibc_Ctype_Pvt.Attribute_Type_Tbl_Type,
680: X_Return_Status OUT NOCOPY VARCHAR2,
681: X_Msg_Count OUT NOCOPY NUMBER,
682: X_Msg_Data OUT NOCOPY VARCHAR2
675: P_Validation_Level IN NUMBER ,--:= FND_API.G_VALID_LEVEL_FULL,
676: P_Content_Type_Rec IN Ibc_Ctype_Pvt.Content_Type_Rec_Type ,--:= Ibc_Ctype_Pvt.G_MISS_Content_Type_Rec,
677: P_Attribute_Type_Tbl IN Ibc_Ctype_Pvt.Attribute_Type_Tbl_Type ,--:= Ibc_Ctype_Pvt.G_Miss_Attribute_Type_Tbl,
678: x_Content_Type_Rec OUT NOCOPY Ibc_Ctype_Pvt.Content_Type_Rec_Type,
679: x_Attribute_Type_Tbl OUT NOCOPY Ibc_Ctype_Pvt.Attribute_Type_Tbl_Type,
680: X_Return_Status OUT NOCOPY VARCHAR2,
681: X_Msg_Count OUT NOCOPY NUMBER,
682: X_Msg_Data OUT NOCOPY VARCHAR2
683: )
705: l_api_name VARCHAR2(50) := 'Update_Content_Type';
706: l_Content_Type_Code VARCHAR2(100);
707: lx_rowid VARCHAR2(240);
708:
709: l_Content_Type_Rec Ibc_Ctype_Pvt.Content_Type_Rec_Type := p_Content_Type_Rec;
710: l_Attribute_Type_Tbl Ibc_Ctype_Pvt.Attribute_Type_Tbl_Type := p_Attribute_Type_Tbl;
711: l_attribute_type_rec Ibc_Ctype_Pvt.Attribute_Type_Rec_Type;
712:
713: BEGIN
706: l_Content_Type_Code VARCHAR2(100);
707: lx_rowid VARCHAR2(240);
708:
709: l_Content_Type_Rec Ibc_Ctype_Pvt.Content_Type_Rec_Type := p_Content_Type_Rec;
710: l_Attribute_Type_Tbl Ibc_Ctype_Pvt.Attribute_Type_Tbl_Type := p_Attribute_Type_Tbl;
711: l_attribute_type_rec Ibc_Ctype_Pvt.Attribute_Type_Rec_Type;
712:
713: BEGIN
714:
707: lx_rowid VARCHAR2(240);
708:
709: l_Content_Type_Rec Ibc_Ctype_Pvt.Content_Type_Rec_Type := p_Content_Type_Rec;
710: l_Attribute_Type_Tbl Ibc_Ctype_Pvt.Attribute_Type_Tbl_Type := p_Attribute_Type_Tbl;
711: l_attribute_type_rec Ibc_Ctype_Pvt.Attribute_Type_Rec_Type;
712:
713: BEGIN
714:
715: -- Initialize API return status to SUCCESS
1144: P_Api_Version_Number IN NUMBER,
1145: P_Init_Msg_List IN VARCHAR2 ,--:= FND_API.G_FALSE,
1146: P_Commit IN VARCHAR2 ,--:= FND_API.G_FALSE,
1147: P_Validation_Level IN NUMBER ,--:= FND_API.G_VALID_LEVEL_FULL,
1148: P_Attribute_Type_Rec IN Ibc_Ctype_Pvt.Attribute_Type_Rec_Type,
1149: X_Return_Status OUT NOCOPY VARCHAR2,
1150: X_Msg_Count OUT NOCOPY NUMBER,
1151: X_Msg_Data OUT NOCOPY VARCHAR2
1152: )
1172: l_api_name VARCHAR2(50) := 'Update_Attribute_Type';
1173: lx_rowid VARCHAR2(240);
1174: l_content_type_code VARCHAR2(100);
1175:
1176: l_attribute_type_rec Ibc_Ctype_Pvt.Attribute_Type_Rec_Type := P_Attribute_Type_Rec;
1177: l_old_attribute_type_rec Ibc_Ctype_Pvt.Attribute_Type_Rec_Type;
1178:
1179: BEGIN
1180:
1173: lx_rowid VARCHAR2(240);
1174: l_content_type_code VARCHAR2(100);
1175:
1176: l_attribute_type_rec Ibc_Ctype_Pvt.Attribute_Type_Rec_Type := P_Attribute_Type_Rec;
1177: l_old_attribute_type_rec Ibc_Ctype_Pvt.Attribute_Type_Rec_Type;
1178:
1179: BEGIN
1180:
1181: -- Initialize API return status to SUCCESS
1374: P_Api_Version_Number IN NUMBER,
1375: P_Init_Msg_List IN VARCHAR2 ,--:= FND_API.G_FALSE,
1376: P_Commit IN VARCHAR2 ,--:= FND_API.G_FALSE,
1377: P_Validation_Level IN NUMBER ,--:= FND_API.G_VALID_LEVEL_FULL,
1378: P_Attribute_Type_Rec IN Ibc_Ctype_Pvt.Attribute_Type_Rec_Type,
1379: X_Return_Status OUT NOCOPY VARCHAR2,
1380: X_Msg_Count OUT NOCOPY NUMBER,
1381: X_Msg_Data OUT NOCOPY VARCHAR2
1382: )
1382: )
1383: IS
1384: l_return_status VARCHAR2(1) := Fnd_Api.G_RET_STS_SUCCESS;
1385: l_api_name VARCHAR2(50) := 'Delete_Attribute_Type';
1386: l_attribute_type_rec Ibc_Ctype_Pvt.Attribute_Type_Rec_Type := P_Attribute_Type_Rec;
1387:
1388: BEGIN
1389:
1390: -- Initialize API return status to SUCCESS
1778:
1779: FUNCTION Query_Attribute_type_Row (
1780: p_attribute_type_code IN VARCHAR2,
1781: p_content_type_code IN VARCHAR2
1782: ) RETURN Ibc_Ctype_Pvt.Attribute_Type_Rec_Type
1783:
1784: IS
1785: l_Attribute_Type_Rec Ibc_Ctype_Pvt.Attribute_Type_Rec_Type;
1786: BEGIN
1781: p_content_type_code IN VARCHAR2
1782: ) RETURN Ibc_Ctype_Pvt.Attribute_Type_Rec_Type
1783:
1784: IS
1785: l_Attribute_Type_Rec Ibc_Ctype_Pvt.Attribute_Type_Rec_Type;
1786: BEGIN
1787: SELECT
1788: ATTRIBUTE_TYPE_CODE,
1789: ATTRIBUTE_TYPE_name,
1827: RETURN l_attribute_type_rec;
1828:
1829: END Query_Attribute_Type_Row;
1830:
1831: FUNCTION get_ctype_rec RETURN Ibc_Ctype_Pvt.content_type_rec_type
1832: IS
1833: TMP_REC Ibc_Ctype_Pvt.content_type_rec_type;
1834: BEGIN
1835: RETURN TMP_REC;
1829: END Query_Attribute_Type_Row;
1830:
1831: FUNCTION get_ctype_rec RETURN Ibc_Ctype_Pvt.content_type_rec_type
1832: IS
1833: TMP_REC Ibc_Ctype_Pvt.content_type_rec_type;
1834: BEGIN
1835: RETURN TMP_REC;
1836: END get_ctype_rec;
1837:
2120: END get_sql_from_flex;
2121:
2122:
2123:
2124: END Ibc_Ctype_Pvt;