1: PACKAGE BODY Ibc_Association_Types_Pvt AS
2: /* $Header: ibcvatyb.pls 115.3 2002/11/17 16:06:01 srrangar ship $ */
3:
4: -- Purpose: API to Populate Association Type.
5:
11: -- to no defaults.
12: -- Changed the OUT to OUT NOCOPY
13:
14:
15: -- Package name : Ibc_Association_Types_Pvt
16: -- Purpose :
17: -- History :
18: -- NOTE :
19: -- End of Comments
18: -- NOTE :
19: -- End of Comments
20:
21:
22: G_PKG_NAME CONSTANT VARCHAR2(30):= 'Ibc_Association_Types_Pvt';
23: G_FILE_NAME CONSTANT VARCHAR2(12) := 'ibcvatyb.pls';
24:
25: FUNCTION Query_Association_type_Row (
26: p_Association_type_code IN VARCHAR2
23: G_FILE_NAME CONSTANT VARCHAR2(12) := 'ibcvatyb.pls';
24:
25: FUNCTION Query_Association_type_Row (
26: p_Association_type_code IN VARCHAR2
27: ) RETURN Ibc_Association_Types_Pvt.Association_Type_Rec_Type;
28:
29:
30: PROCEDURE Update_Association_Type(
31: P_Api_Version_Number IN NUMBER,
31: P_Api_Version_Number IN NUMBER,
32: P_Init_Msg_List IN VARCHAR2 ,--:= FND_API.G_FALSE,
33: P_Commit IN VARCHAR2 ,--:= FND_API.G_FALSE,
34: P_Validation_Level IN NUMBER ,--:= FND_API.G_VALID_LEVEL_FULL,
35: P_Association_Type_Rec IN Ibc_Association_Types_Pvt.Association_Type_Rec_Type,
36: X_Return_Status OUT NOCOPY VARCHAR2,
37: X_Msg_Count OUT NOCOPY NUMBER,
38: X_Msg_Data OUT NOCOPY VARCHAR2
39: );
38: X_Msg_Data OUT NOCOPY VARCHAR2
39: );
40:
41: FUNCTION IsATypeRecordEmpty(
42: P_Association_Type_Rec IN Ibc_Association_Types_Pvt.Association_Type_Rec_Type)
43: RETURN BOOLEAN IS
44:
45: BEGIN
46:
62:
63: PROCEDURE Validate_Association_Type_Tbl(
64: p_init_msg_list IN VARCHAR2 ,--:= FND_API.G_FALSE,
65: p_Association_type_code IN VARCHAR2,
66: P_Association_Type_Tbl IN Ibc_Association_Types_Pvt.Association_Type_Tbl_Type,
67: X_Return_Status OUT NOCOPY VARCHAR2,
68: X_Msg_Count OUT NOCOPY NUMBER,
69: X_Msg_Data OUT NOCOPY VARCHAR2)
70: IS
68: X_Msg_Count OUT NOCOPY NUMBER,
69: X_Msg_Data OUT NOCOPY VARCHAR2)
70: IS
71:
72: l_Association_type_rec Ibc_Association_Types_Pvt.Association_Type_Rec_Type;
73: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
74:
75: BEGIN
76:
144: P_Api_Version_Number IN NUMBER,
145: P_Init_Msg_List IN VARCHAR2 ,--:= FND_API.G_FALSE,
146: P_Commit IN VARCHAR2 ,--:= FND_API.G_FALSE,
147: P_Validation_Level IN NUMBER ,--:= FND_API.G_VALID_LEVEL_FULL,
148: P_Association_Type_Rec IN Ibc_Association_Types_Pvt.Association_Type_Rec_Type,
149: X_Return_Status OUT NOCOPY VARCHAR2,
150: X_Msg_Count OUT NOCOPY NUMBER,
151: X_Msg_Data OUT NOCOPY VARCHAR2
152: )
163: l_api_name VARCHAR2(50) := 'Create_Association_Type';
164: lx_rowid VARCHAR2(240);
165: l_Association_type_code VARCHAR2(100);
166:
167: l_Association_type_rec Ibc_Association_Types_Pvt.Association_Type_Rec_Type := P_Association_Type_Rec;
168:
169: BEGIN
170:
171: -- Initialize API return status to SUCCESS
249: P_Api_Version_Number IN NUMBER,
250: P_Init_Msg_List IN VARCHAR2 ,--:= FND_API.G_FALSE,
251: P_Commit IN VARCHAR2 ,--:= FND_API.G_FALSE,
252: P_Validation_Level IN NUMBER ,--:= FND_API.G_VALID_LEVEL_FULL,
253: P_Association_Type_Tbl IN Ibc_Association_Types_Pvt.Association_Type_Tbl_Type ,--:= Ibc_Association_Types_Pvt.G_Miss_Association_Type_Tbl,
254: X_Return_Status OUT NOCOPY VARCHAR2,
255: X_Msg_Count OUT NOCOPY NUMBER,
256: X_Msg_Data OUT NOCOPY VARCHAR2
257: )
263: l_api_name VARCHAR2(50) := 'Create_Association_Type';
264: l_Association_Type_Code VARCHAR2(100);
265: lx_rowid VARCHAR2(240);
266:
267: l_Association_Type_Tbl Ibc_Association_Types_Pvt.Association_Type_Tbl_Type := p_Association_Type_Tbl;
268: l_Association_type_rec Ibc_Association_Types_Pvt.Association_Type_Rec_Type;
269:
270: BEGIN
271:
264: l_Association_Type_Code VARCHAR2(100);
265: lx_rowid VARCHAR2(240);
266:
267: l_Association_Type_Tbl Ibc_Association_Types_Pvt.Association_Type_Tbl_Type := p_Association_Type_Tbl;
268: l_Association_type_rec Ibc_Association_Types_Pvt.Association_Type_Rec_Type;
269:
270: BEGIN
271:
272: -- Initialize API return status to SUCCESS
395: P_Api_Version_Number IN NUMBER,
396: P_Init_Msg_List IN VARCHAR2 ,--:= FND_API.G_FALSE,
397: P_Commit IN VARCHAR2 ,--:= FND_API.G_FALSE,
398: P_Validation_Level IN NUMBER ,--:= FND_API.G_VALID_LEVEL_FULL,
399: P_Association_Type_Tbl IN Ibc_Association_Types_Pvt.Association_Type_Tbl_Type ,--:= Ibc_Association_Types_Pvt.G_Miss_Association_Type_Tbl,
400: x_Association_Type_Tbl OUT NOCOPY Ibc_Association_Types_Pvt.Association_Type_Tbl_Type,
401: X_Return_Status OUT NOCOPY VARCHAR2,
402: X_Msg_Count OUT NOCOPY NUMBER,
403: X_Msg_Data OUT NOCOPY VARCHAR2
396: P_Init_Msg_List IN VARCHAR2 ,--:= FND_API.G_FALSE,
397: P_Commit IN VARCHAR2 ,--:= FND_API.G_FALSE,
398: P_Validation_Level IN NUMBER ,--:= FND_API.G_VALID_LEVEL_FULL,
399: P_Association_Type_Tbl IN Ibc_Association_Types_Pvt.Association_Type_Tbl_Type ,--:= Ibc_Association_Types_Pvt.G_Miss_Association_Type_Tbl,
400: x_Association_Type_Tbl OUT NOCOPY Ibc_Association_Types_Pvt.Association_Type_Tbl_Type,
401: X_Return_Status OUT NOCOPY VARCHAR2,
402: X_Msg_Count OUT NOCOPY NUMBER,
403: X_Msg_Data OUT NOCOPY VARCHAR2
404: )
411: l_api_name VARCHAR2(50) := 'Update_Association_Type';
412: l_Association_Type_Code VARCHAR2(100);
413: lx_rowid VARCHAR2(240);
414:
415: l_Association_Type_Tbl Ibc_Association_Types_Pvt.Association_Type_Tbl_Type := p_Association_Type_Tbl;
416: l_Association_type_rec Ibc_Association_Types_Pvt.Association_Type_Rec_Type;
417:
418: BEGIN
419:
412: l_Association_Type_Code VARCHAR2(100);
413: lx_rowid VARCHAR2(240);
414:
415: l_Association_Type_Tbl Ibc_Association_Types_Pvt.Association_Type_Tbl_Type := p_Association_Type_Tbl;
416: l_Association_type_rec Ibc_Association_Types_Pvt.Association_Type_Rec_Type;
417:
418: BEGIN
419:
420: -- Initialize API return status to SUCCESS
724: P_Api_Version_Number IN NUMBER,
725: P_Init_Msg_List IN VARCHAR2 ,--:= FND_API.G_FALSE,
726: P_Commit IN VARCHAR2 ,--:= FND_API.G_FALSE,
727: P_Validation_Level IN NUMBER ,--:= FND_API.G_VALID_LEVEL_FULL,
728: P_Association_Type_Rec IN Ibc_Association_Types_Pvt.Association_Type_Rec_Type,
729: X_Return_Status OUT NOCOPY VARCHAR2,
730: X_Msg_Count OUT NOCOPY NUMBER,
731: X_Msg_Data OUT NOCOPY VARCHAR2
732: )
744: l_api_name VARCHAR2(50) := 'Update_Association_Type';
745: lx_rowid VARCHAR2(240);
746: l_Association_type_code VARCHAR2(100);
747:
748: l_Association_type_rec Ibc_Association_Types_Pvt.Association_Type_Rec_Type := P_Association_Type_Rec;
749: l_old_Association_type_rec Ibc_Association_Types_Pvt.Association_Type_Rec_Type;
750:
751: BEGIN
752:
745: lx_rowid VARCHAR2(240);
746: l_Association_type_code VARCHAR2(100);
747:
748: l_Association_type_rec Ibc_Association_Types_Pvt.Association_Type_Rec_Type := P_Association_Type_Rec;
749: l_old_Association_type_rec Ibc_Association_Types_Pvt.Association_Type_Rec_Type;
750:
751: BEGIN
752:
753: -- Initialize API return status to SUCCESS
811: P_Api_Version_Number IN NUMBER,
812: P_Init_Msg_List IN VARCHAR2 ,--:= FND_API.G_FALSE,
813: P_Commit IN VARCHAR2 ,--:= FND_API.G_FALSE,
814: P_Validation_Level IN NUMBER ,--:= FND_API.G_VALID_LEVEL_FULL,
815: P_Association_Type_Rec IN Ibc_Association_Types_Pvt.Association_Type_Rec_Type,
816: X_Return_Status OUT NOCOPY VARCHAR2,
817: X_Msg_Count OUT NOCOPY NUMBER,
818: X_Msg_Data OUT NOCOPY VARCHAR2
819: )
831: l_api_name VARCHAR2(50) := 'delete_Association_Type';
832: lx_rowid VARCHAR2(240);
833: l_Association_type_code VARCHAR2(100);
834:
835: l_Association_type_rec Ibc_Association_Types_Pvt.Association_Type_Rec_Type := P_Association_Type_Rec;
836: l_old_Association_type_rec Ibc_Association_Types_Pvt.Association_Type_Rec_Type;
837:
838: BEGIN
839:
832: lx_rowid VARCHAR2(240);
833: l_Association_type_code VARCHAR2(100);
834:
835: l_Association_type_rec Ibc_Association_Types_Pvt.Association_Type_Rec_Type := P_Association_Type_Rec;
836: l_old_Association_type_rec Ibc_Association_Types_Pvt.Association_Type_Rec_Type;
837:
838: BEGIN
839:
840: -- Initialize API return status to SUCCESS
883:
884:
885: FUNCTION Query_Association_type_Row (
886: p_Association_type_code IN VARCHAR2)
887: RETURN Ibc_Association_Types_Pvt.Association_Type_Rec_Type
888: IS
889: l_Association_Type_Rec Ibc_Association_Types_Pvt.Association_Type_Rec_Type;
890: BEGIN
891: SELECT
885: FUNCTION Query_Association_type_Row (
886: p_Association_type_code IN VARCHAR2)
887: RETURN Ibc_Association_Types_Pvt.Association_Type_Rec_Type
888: IS
889: l_Association_Type_Rec Ibc_Association_Types_Pvt.Association_Type_Rec_Type;
890: BEGIN
891: SELECT
892: ASSOCIATION_TYPE_CODE
893: ,CALL_BACK_PKG
927: END IF;
928: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
929: END Query_Association_Type_Row;
930:
931: FUNCTION get_ctype_rec RETURN Ibc_Association_Types_Pvt.Association_type_rec_type
932: IS
933: TMP_REC Ibc_Association_Types_Pvt.Association_type_rec_type;
934: BEGIN
935: RETURN TMP_REC;
929: END Query_Association_Type_Row;
930:
931: FUNCTION get_ctype_rec RETURN Ibc_Association_Types_Pvt.Association_type_rec_type
932: IS
933: TMP_REC Ibc_Association_Types_Pvt.Association_type_rec_type;
934: BEGIN
935: RETURN TMP_REC;
936: END get_ctype_rec;
937:
934: BEGIN
935: RETURN TMP_REC;
936: END get_ctype_rec;
937:
938: END Ibc_Association_Types_Pvt;