[Home] [Help]
PACKAGE BODY: APPS.ASO_CHANGED_QUOTES_PKG
Source
1 PACKAGE BODY ASO_CHANGED_QUOTES_PKG AS
2 /* $Header: asotcqtb.pls 120.0 2005/08/29 23:54:05 gsachdev noship $ */
3
4 G_PKG_NAME CONSTANT VARCHAR2(30) := 'ASO_CHANGED_QUOTES_PKG';
5 G_FILE_NAME CONSTANT VARCHAR2(12) := 'asotcqtb.pls';
6
7 procedure INSERT_ROW (
8 P_QUOTE_NUMBER IN NUMBER,
9 P_LAST_UPDATE_DATE IN DATE,
10 P_LAST_UPDATED_BY IN NUMBER,
11 P_CREATION_DATE IN DATE,
12 P_CREATED_BY IN NUMBER,
13 P_LAST_UPDATE_LOGIN IN NUMBER,
14 P_REQUEST_ID IN NUMBER,
15 P_PROGRAM_APPLICATION_ID IN NUMBER,
16 P_PROGRAM_ID IN NUMBER,
17 P_PROGRAM_UPDATE_DATE IN DATE,
18 P_CONC_REQUEST_ID IN NUMBER
19 )
20 IS
21
22 BEGIN
23 insert into ASO_CHANGED_QUOTES (
24 QUOTE_NUMBER,
25 LAST_UPDATE_DATE,
26 LAST_UPDATED_BY,
27 CREATION_DATE,
28 CREATED_BY,
29 LAST_UPDATE_LOGIN,
30 REQUEST_ID,
31 PROGRAM_APPLICATION_ID,
32 PROGRAM_ID,
33 PROGRAM_UPDATE_DATE,
34 CONC_REQUEST_ID
35 ) VALUES
36 (
37 decode( P_QUOTE_NUMBER, FND_API.G_MISS_NUM, NULL, P_QUOTE_NUMBER),
38 ASO_UTILITY_PVT.decode( P_LAST_UPDATE_DATE, FND_API.G_MISS_DATE, NULL, p_LAST_UPDATE_DATE),
39 decode( p_LAST_UPDATED_BY, FND_API.G_MISS_NUM, NULL, p_LAST_UPDATED_BY),
40 ASO_UTILITY_PVT.decode( P_CREATION_DATE, FND_API.G_MISS_DATE, NULL, p_CREATION_DATE),
41 decode( p_CREATED_BY, FND_API.G_MISS_NUM, NULL, p_CREATED_BY),
42 decode( p_LAST_UPDATE_LOGIN, FND_API.G_MISS_NUM, NULL, p_LAST_UPDATE_LOGIN),
43 decode( P_REQUEST_ID, FND_API.G_MISS_NUM, NULL, P_REQUEST_ID),
44 decode( P_PROGRAM_APPLICATION_ID, FND_API.G_MISS_NUM, NULL, P_PROGRAM_APPLICATION_ID),
45 decode( P_PROGRAM_ID, FND_API.G_MISS_NUM, NULL, P_PROGRAM_ID),
46 ASO_UTILITY_PVT.decode( P_PROGRAM_UPDATE_DATE, FND_API.G_MISS_DATE, NULL, P_PROGRAM_UPDATE_DATE),
47 decode( P_CONC_REQUEST_ID, FND_API.G_MISS_NUM, NULL, P_CONC_REQUEST_ID)
48 );
49
50 end INSERT_ROW;
51
52 procedure UPDATE_ROW (
53 P_QUOTE_NUMBER IN NUMBER,
54 P_LAST_UPDATE_DATE IN DATE,
55 P_LAST_UPDATED_BY IN NUMBER,
56 P_CREATION_DATE IN DATE,
57 P_CREATED_BY IN NUMBER,
58 P_LAST_UPDATE_LOGIN IN NUMBER,
59 P_REQUEST_ID IN NUMBER,
60 P_PROGRAM_APPLICATION_ID IN NUMBER,
61 P_PROGRAM_ID IN NUMBER,
62 P_PROGRAM_UPDATE_DATE IN DATE,
63 P_CONC_REQUEST_ID IN NUMBER
64 )
65 IS
66 BEGIN
67 update ASO_CHANGED_QUOTES
68 set
69 QUOTE_NUMBER = decode( P_QUOTE_NUMBER, FND_API.G_MISS_NUM, QUOTE_NUMBER, P_QUOTE_NUMBER),
70 LAST_UPDATE_DATE = ASO_UTILITY_PVT.decode( p_LAST_UPDATE_DATE, FND_API.G_MISS_DATE, LAST_UPDATE_DATE, p_LAST_UPDATE_DATE),
71 LAST_UPDATED_BY = decode( p_LAST_UPDATED_BY, FND_API.G_MISS_NUM, LAST_UPDATED_BY, p_LAST_UPDATED_BY),
72 LAST_UPDATE_LOGIN = decode( p_LAST_UPDATE_LOGIN, FND_API.G_MISS_NUM, LAST_UPDATE_LOGIN, p_LAST_UPDATE_LOGIN),
73 REQUEST_ID = decode( p_REQUEST_ID, FND_API.G_MISS_NUM, REQUEST_ID, p_REQUEST_ID),
74 PROGRAM_APPLICATION_ID = decode( p_PROGRAM_APPLICATION_ID, FND_API.G_MISS_NUM,PROGRAM_APPLICATION_ID, p_PROGRAM_APPLICATION_ID),
75 PROGRAM_ID = decode( p_PROGRAM_ID, FND_API.G_MISS_NUM, PROGRAM_ID, p_PROGRAM_ID),
76 PROGRAM_UPDATE_DATE = ASO_UTILITY_PVT.decode( p_PROGRAM_UPDATE_DATE, FND_API.G_MISS_DATE, PROGRAM_UPDATE_DATE, p_PROGRAM_UPDATE_DATE),
77 CONC_REQUEST_ID = decode( P_CONC_REQUEST_ID, FND_API.G_MISS_NUM, CONC_REQUEST_ID, P_CONC_REQUEST_ID)
78 WHERE QUOTE_NUMBER = P_QUOTE_NUMBER ;
79
80 If (SQL%NOTFOUND) then
81 RAISE NO_DATA_FOUND;
82 End If;
83
84 end UPDATE_ROW;
85
86 procedure DELETE_ROW (
87 P_QUOTE_NUMBER IN NUMBER,
88 P_CONC_REQUEST_ID IN NUMBER
89 ) is
90 begin
91 delete from ASO_CHANGED_QUOTES
92 where QUOTE_NUMBER = P_QUOTE_NUMBER
93 and CONC_REQUEST_ID = P_CONC_REQUEST_ID;
94
95 if (sql%notfound) then
96 raise no_data_found;
97 end if;
98
99 end DELETE_ROW;
100
101 procedure LOCK_ROW (
102 P_QUOTE_NUMBER IN NUMBER,
103 P_LAST_UPDATE_DATE IN DATE,
104 P_LAST_UPDATED_BY IN NUMBER,
105 P_CREATION_DATE IN DATE,
106 P_CREATED_BY IN NUMBER,
107 P_LAST_UPDATE_LOGIN IN NUMBER,
108 P_REQUEST_ID IN NUMBER,
109 P_PROGRAM_APPLICATION_ID IN NUMBER,
110 P_PROGRAM_ID IN NUMBER,
111 P_PROGRAM_UPDATE_DATE IN DATE,
112 P_CONC_REQUEST_ID IN NUMBER
113 )
114 IS
115 cursor c1 is select
116 QUOTE_NUMBER,
117 LAST_UPDATE_DATE,
118 LAST_UPDATED_BY,
119 CREATION_DATE,
120 CREATED_BY,
121 LAST_UPDATE_LOGIN,
122 REQUEST_ID,
123 PROGRAM_APPLICATION_ID,
124 PROGRAM_ID,
125 PROGRAM_UPDATE_DATE,
126 CONC_REQUEST_ID
127 from ASO_CHANGED_QUOTES
128 where QUOTE_NUMBER = P_QUOTE_NUMBER
129 for update of CONC_REQUEST_ID nowait;
130
131 recinfo C1%ROWTYPE;
132 begin
133 OPEN C1;
134 FETCH C1 INTO recinfo;
135 IF (C1%NOTFOUND) THEN
136 CLOSE C1;
137 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
138 APP_EXCEPTION.RAISE_EXCEPTION;
139 End If;
140 CLOSE C1;
141
142
143 if ( ( Recinfo.LAST_UPDATE_DATE = p_LAST_UPDATE_DATE)
144 OR ( ( Recinfo.LAST_UPDATE_DATE IS NULL )
145 AND ( p_LAST_UPDATE_DATE IS NULL ))) then
146 return;
147 else
148 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
149 app_exception.raise_exception;
150 end if;
151 end LOCK_ROW;
152
153 end ASO_CHANGED_QUOTES_PKG;