[Home] [Help]
PACKAGE BODY: APPS.AHL_MR_ROUTES_PKG
Source
1 package body AHL_MR_ROUTES_PKG as
2 /* $Header: AHLLMRUB.pls 120.0.12020000.2 2012/12/06 22:36:07 sareepar ship $ */
3 procedure INSERT_ROW (
4
5 X_MR_ROUTE_ID in out nocopy NUMBER,
6 X_MR_HEADER_ID in NUMBER,
7 X_ROUTE_ID in NUMBER,
8 X_STAGE in NUMBER,
9 --MANESING::VWP Enhancements, 21-Jan-2011, added a variable for storing stage type code
10 X_STAGE_TYPE_CODE in VARCHAR2,
11 X_ATTRIBUTE_CATEGORY in VARCHAR2,
12 X_ATTRIBUTE1 in VARCHAR2,
13 X_ATTRIBUTE2 in VARCHAR2,
14 X_ATTRIBUTE3 in VARCHAR2,
15 X_ATTRIBUTE4 in VARCHAR2,
16 X_ATTRIBUTE5 in VARCHAR2,
17 X_ATTRIBUTE6 in VARCHAR2,
18 X_ATTRIBUTE7 in VARCHAR2,
19 X_ATTRIBUTE8 in VARCHAR2,
20 X_ATTRIBUTE9 in VARCHAR2,
21 X_ATTRIBUTE10 in VARCHAR2,
22 X_ATTRIBUTE11 in VARCHAR2,
23 X_ATTRIBUTE12 in VARCHAR2,
24 X_ATTRIBUTE13 in VARCHAR2,
25 X_ATTRIBUTE14 in VARCHAR2,
26 X_ATTRIBUTE15 in VARCHAR2,
27 X_OBJECT_VERSION_NUMBER in NUMBER,
28 X_CREATION_DATE in DATE,
29 X_CREATED_BY in NUMBER,
30 X_LAST_UPDATE_DATE in DATE,
31 X_LAST_UPDATED_BY in NUMBER,
32 X_LAST_UPDATE_LOGIN in NUMBER
33 ) is
34 begin
35 insert into AHL_MR_ROUTES (
36 MR_ROUTE_ID,
37 LAST_UPDATED_BY,
38 CREATION_DATE,
39 CREATED_BY,
40 LAST_UPDATE_LOGIN,
41 MR_HEADER_ID,
42 ROUTE_ID,
43 STAGE,
44 --MANESING::VWP Enhancements, 21-Jan-2011, added stage type code
45 STAGE_TYPE_CODE,
46 ATTRIBUTE_CATEGORY,
47 ATTRIBUTE1,
48 ATTRIBUTE2,
49 ATTRIBUTE3,
50 ATTRIBUTE4,
51 ATTRIBUTE5,
52 ATTRIBUTE6,
53 ATTRIBUTE7,
54 ATTRIBUTE8,
55 ATTRIBUTE9,
56 ATTRIBUTE10,
57 ATTRIBUTE11,
58 ATTRIBUTE12,
59 ATTRIBUTE13,
60 ATTRIBUTE14,
61 ATTRIBUTE15,
62 LAST_UPDATE_DATE,
63 OBJECT_VERSION_NUMBER)
64 values(
65 AHL_MR_ROUTES_S.NEXTVAL,
66 X_LAST_UPDATED_BY,
67 X_CREATION_DATE,
68 X_CREATED_BY,
69 X_LAST_UPDATE_LOGIN,
70 X_MR_HEADER_ID,
71 X_ROUTE_ID,
72 X_STAGE,
73 --MANESING::VWP Enhancements, 21-Jan-2011, added stage type code
74 X_STAGE_TYPE_CODE,
75 X_ATTRIBUTE_CATEGORY,
76 X_ATTRIBUTE1,
77 X_ATTRIBUTE2,
78 X_ATTRIBUTE3,
79 X_ATTRIBUTE4,
80 X_ATTRIBUTE5,
81 X_ATTRIBUTE6,
82 X_ATTRIBUTE7,
83 X_ATTRIBUTE8,
84 X_ATTRIBUTE9,
85 X_ATTRIBUTE10,
86 X_ATTRIBUTE11,
87 X_ATTRIBUTE12,
88 X_ATTRIBUTE13,
89 X_ATTRIBUTE14,
90 X_ATTRIBUTE15,
91 X_LAST_UPDATE_DATE,
92 X_OBJECT_VERSION_NUMBER)
93 returning MR_ROUTE_ID INTO X_MR_ROUTE_ID;
94 end INSERT_ROW;
95
96 procedure UPDATE_ROW (
97 X_MR_ROUTE_ID in NUMBER,
98 X_MR_HEADER_ID in NUMBER,
99 X_ROUTE_ID in NUMBER,
100 X_STAGE in NUMBER,
101 --MANESING::VWP Enhancements, 21-Jan-2011, added a variable for modifying stage type code
102 X_STAGE_TYPE_CODE in VARCHAR2,
103 X_ATTRIBUTE_CATEGORY in VARCHAR2,
104 X_ATTRIBUTE1 in VARCHAR2,
105 X_ATTRIBUTE2 in VARCHAR2,
106 X_ATTRIBUTE3 in VARCHAR2,
107 X_ATTRIBUTE4 in VARCHAR2,
108 X_ATTRIBUTE5 in VARCHAR2,
109 X_ATTRIBUTE6 in VARCHAR2,
110 X_ATTRIBUTE7 in VARCHAR2,
111 X_ATTRIBUTE8 in VARCHAR2,
112 X_ATTRIBUTE9 in VARCHAR2,
113 X_ATTRIBUTE10 in VARCHAR2,
114 X_ATTRIBUTE11 in VARCHAR2,
115 X_ATTRIBUTE12 in VARCHAR2,
116 X_ATTRIBUTE13 in VARCHAR2,
117 X_ATTRIBUTE14 in VARCHAR2,
118 X_ATTRIBUTE15 in VARCHAR2,
119 X_OBJECT_VERSION_NUMBER in NUMBER,
120 X_LAST_UPDATE_DATE in DATE,
121 X_LAST_UPDATED_BY in NUMBER,
122 X_LAST_UPDATE_LOGIN in NUMBER
123 ) is
124 begin
125 update AHL_MR_ROUTES set
126 MR_HEADER_ID = X_MR_HEADER_ID,
127 ROUTE_ID = X_ROUTE_ID,
128 STAGE = X_STAGE,
129 --MANESING::VWP Enhancements, 21-Jan-2011, added stage type code
130 STAGE_TYPE_CODE = X_STAGE_TYPE_CODE,
131 ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY,
132 ATTRIBUTE1 = X_ATTRIBUTE1,
133 ATTRIBUTE2 = X_ATTRIBUTE2,
134 ATTRIBUTE3 = X_ATTRIBUTE3,
135 ATTRIBUTE4 = X_ATTRIBUTE4,
136 ATTRIBUTE5 = X_ATTRIBUTE5,
137 ATTRIBUTE6 = X_ATTRIBUTE6,
138 ATTRIBUTE7 = X_ATTRIBUTE7,
139 ATTRIBUTE8 = X_ATTRIBUTE8,
140 ATTRIBUTE9 = X_ATTRIBUTE9,
141 ATTRIBUTE10 = X_ATTRIBUTE10,
142 ATTRIBUTE11 = X_ATTRIBUTE11,
143 ATTRIBUTE12 = X_ATTRIBUTE12,
144 ATTRIBUTE13 = X_ATTRIBUTE13,
145 ATTRIBUTE14 = X_ATTRIBUTE14,
146 ATTRIBUTE15 = X_ATTRIBUTE15,
147 OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER +1,
148 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
149 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
150 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
151 where MR_ROUTE_ID = X_MR_ROUTE_ID
152 and OBJECT_VERSION_NUMBER=X_OBJECT_VERSION_NUMBER;
153 if (sql%ROWCOUNT=0)
154 then
155 FND_MESSAGE.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
156 FND_MSG_PUB.ADD;
157 end if;
158 end UPDATE_ROW;
159
160 procedure DELETE_ROW (
161 X_MR_ROUTE_ID in NUMBER
162 ) is
163 begin
164 delete from AHL_MR_ROUTES
165 where MR_ROUTE_ID = X_MR_ROUTE_ID;
166
167 if (sql%notfound) then
168 raise no_data_found;
169 end if;
170
171 end DELETE_ROW;
172
173 end AHL_MR_ROUTES_PKG;