PACKAGE BODY: APPS.AHL_MR_ROUTES_PKG

Source

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