[Home] [Help]
PACKAGE BODY: APPS.IBE_SHOPLIST_LINE_RELATION_PKG
Source
1 PACKAGE BODY IBE_ShopList_Line_Relation_PKG AS
2 /* $Header: IBEVSLRB.pls 115.2 2002/12/21 06:44:48 ajlee ship $ */
3
4 G_PKG_NAME CONSTANT VARCHAR2(30) := 'IBE_ShopList_Line_Relation_PKG';
5 l_true VARCHAR2(1) := FND_API.G_TRUE;
6
7 -- Start of Comments
8 -- Package name : IBE_ShopList_Line_Relation_PKG
9 -- Purpose :
10 -- History :
11 -- NOTE :
12 -- End of Comments
13
14
15 PROCEDURE Insert_Row(
16 x_shlitem_rel_id OUT NOCOPY NUMBER ,
17 p_request_id IN NUMBER ,
18 p_program_application_id IN NUMBER ,
19 p_program_id IN NUMBER ,
20 p_program_update_date IN DATE ,
21 p_object_version_number IN NUMBER ,
22 p_created_by IN NUMBER ,
23 p_creation_date IN DATE ,
24 p_last_updated_by IN NUMBER ,
25 p_last_update_date IN DATE ,
26 p_last_update_login IN NUMBER ,
27 p_shp_list_item_id IN NUMBER ,
28 p_related_shp_list_item_id IN NUMBER ,
29 p_relationship_type_code IN VARCHAR2
30 )
31 IS
32 BEGIN
33 IF (IBE_UTIL.G_DEBUGON = l_true) THEN
34 IBE_Util.Debug('start IBE_ShopList_Line_relation_PKG.Insert row');
35 END IF;
36
37 INSERT INTO ibe_sh_shlitem_rels
38 (
39 shlitem_rel_id ,
40 request_id ,
41 program_application_id ,
42 program_id ,
43 program_update_date ,
44 object_version_number ,
45 created_by ,
46 creation_date ,
47 last_updated_by ,
48 last_update_date ,
49 last_update_login ,
50 shp_list_item_id ,
51 related_shp_list_item_id,
52 relationship_type_code
53 )
54 VALUES
55 (
56 ibe_sh_shlitem_rels_s1.NEXTVAL,
57 DECODE(p_request_id, FND_API.G_MISS_NUM, NULL, p_request_id),
58 DECODE(p_program_application_id, FND_API.G_MISS_NUM, NULL, p_program_application_id),
59 DECODE(p_program_id, FND_API.G_MISS_NUM, NULL, p_program_id),
60 DECODE(p_program_update_date, FND_API.G_MISS_DATE, NULL, p_program_update_date),
61 1,
62 FND_Global.User_Id,
63 SYSDATE,
64 FND_Global.User_Id,
65 SYSDATE,
66 FND_Global.Login_Id,
67 p_shp_list_item_id,
68 p_related_shp_list_item_id,
69 p_relationship_type_code
70 )
71 RETURNING shlitem_rel_id INTO x_shlitem_rel_id;
72 IF (IBE_UTIL.G_DEBUGON = l_true) THEN
73 IBE_Util.Debug('Exit IBE_ShopList_Line_relation_PKG.Insert row');
74 END IF;
75
76 END Insert_Row;
77
78
79
80 PROCEDURE Update_Row(
81 p_shlitem_rel_id IN NUMBER ,
82 p_request_id IN NUMBER ,
83 p_program_application_id IN NUMBER ,
84 p_program_id IN NUMBER ,
85 p_program_update_date IN DATE ,
86 p_object_version_number IN NUMBER ,
87 p_created_by IN NUMBER ,
88 p_creation_date IN DATE ,
89 p_last_updated_by IN NUMBER ,
90 p_last_update_date IN DATE ,
91 p_last_update_login IN NUMBER ,
92 p_shp_list_item_id IN NUMBER ,
93 p_related_shp_list_item_id IN NUMBER ,
94 p_relationship_type_code IN VARCHAR2
95 )
96 IS
97 BEGIN
98 IF (IBE_UTIL.G_DEBUGON = l_true) THEN
99 IBE_Util.Debug('start IBE_ShopList_Line_relation_PKG.Update row');
100 END IF;
101
102 UPDATE ibe_sh_shlitem_rels
103 SET request_id = DECODE(p_request_id, FND_API.G_MISS_NUM, request_id, p_request_id),
104 program_application_id = DECODE(p_program_application_id, FND_API.G_MISS_NUM, program_application_id, p_program_application_id),
105 program_id = DECODE(p_program_id, FND_API.G_MISS_NUM, program_id, p_program_id),
106 program_update_date = DECODE(p_program_update_date, fnd_api.g_miss_date, program_update_date, p_program_update_date),
107 object_version_number = object_version_number + 1,
108 created_by = created_by,
109 creation_date = creation_date,
110 last_updated_by = FND_Global.User_Id,
111 last_update_date = SYSDATE,
112 last_update_login = FND_Global.Login_Id,
113 shp_list_item_id = DECODE(p_shp_list_item_id, FND_API.G_MISS_NUM, shp_list_item_id, p_shp_list_item_id),
114 related_shp_list_item_id = DECODE(p_related_shp_list_item_id, FND_API.G_MISS_NUM, related_shp_list_item_id, p_related_shp_list_item_id),
115 relationship_type_code = DECODE(p_relationship_type_code, FND_API.G_MISS_CHAR, relationship_type_code, p_relationship_type_code)
116 WHERE shlitem_rel_id = p_shlitem_rel_id;
117
118 IF (SQL%NOTFOUND) THEN
119 RAISE NO_DATA_FOUND;
120 END IF;
121 IF (IBE_UTIL.G_DEBUGON = l_true) THEN
122 IBE_Util.Debug('Exit IBE_ShopList_Line_relation_PKG.update row');
123 END IF;
124
125 END Update_Row;
126
127
128 PROCEDURE Delete_Row(p_shlitem_rel_id IN NUMBER)
129 IS
130 BEGIN
131 IF (IBE_UTIL.G_DEBUGON = l_true) THEN
132 IBE_Util.Debug('start IBE_ShopList_Line_relation_PKG.Delete row');
133 END IF;
134
135 DELETE
136 FROM IBE_SH_SHLITEM_RELS
137 WHERE SHLITEM_REL_ID = p_SHLITEM_REL_ID;
138
139 If (SQL%NOTFOUND) then
140 RAISE NO_DATA_FOUND;
141 End If;
142 IF (IBE_UTIL.G_DEBUGON = l_true) THEN
143 IBE_Util.Debug('Exit IBE_ShopList_Line_relation_PKG.Delete row');
144 END IF;
145
146 END Delete_Row;
147
148 END IBE_ShopList_Line_Relation_PKG;