[Home] [Help]
PACKAGE BODY: APPS.GMD_PARAMETERS_HDR_PKG
Source
1 PACKAGE BODY GMD_PARAMETERS_HDR_PKG AS
2 /* $Header: GMDPRHDB.pls 120.1 2006/02/20 04:51:50 kshukla noship $ */
3
4 /*======================================================================
5 -- PROCEDURE :
6 -- INSERT_ROW
7 --
8 -- DESCRIPTION:
9 -- This particular procedure insert rows in header table
10 --
11 -- HISTORY
12 -- Sriram.S 05-NOV-2004 Created
13 --===================================================================== */
14 PROCEDURE INSERT_ROW (
15 X_ROWID IN OUT NOCOPY VARCHAR2,
16 X_PARAMETER_ID IN NUMBER,
17 X_ORGANIZATION_ID IN NUMBER,
18 X_LAB_IND IN NUMBER,
19 X_PLANT_IND IN NUMBER,
20 X_CREATION_DATE IN DATE,
21 X_CREATED_BY IN NUMBER,
22 X_LAST_UPDATE_DATE IN DATE,
23 X_LAST_UPDATED_BY IN NUMBER,
24 X_LAST_UPDATE_LOGIN IN NUMBER
25 ) IS
26
27 CURSOR C IS
28 SELECT ROWID
29 FROM GMD_PARAMETERS_HDR
30 WHERE PARAMETER_ID = X_PARAMETER_ID;
31
32 BEGIN
33 INSERT INTO GMD_PARAMETERS_HDR (
34 ORGANIZATION_ID,
35 LAB_IND,
36 PLANT_IND,
37 PARAMETER_ID,
38 CREATION_DATE,
39 CREATED_BY,
40 LAST_UPDATE_DATE,
41 LAST_UPDATED_BY,
42 LAST_UPDATE_LOGIN
43 ) values (
44 X_ORGANIZATION_ID,
45 X_LAB_IND,
46 X_PLANT_IND,
47 X_PARAMETER_ID,
48 SYSDATE,
49 X_LAST_UPDATED_BY,
50 X_LAST_UPDATE_DATE,
51 X_LAST_UPDATED_BY,
52 X_LAST_UPDATE_LOGIN
53 );
54
55 OPEN C;
56 FETCH C INTO X_ROWID;
57 IF (C%NOTFOUND) THEN
58 CLOSE C;
59 RAISE NO_DATA_FOUND;
60 END IF;
61 CLOSE C;
62
63 END INSERT_ROW;
64
65 /*======================================================================
66 -- PROCEDURE :
67 -- LOCK_ROW
68 --
69 -- DESCRIPTION:
70 -- This particular procedure lock rows in header table
71 --
72 -- HISTORY
73 -- Sriram.S 05-NOV-2004 Created
74 --===================================================================== */
75 PROCEDURE LOCK_ROW (
76 X_PARAMETER_ID IN NUMBER,
77 X_ORGANIZATION_ID IN NUMBER,
78 X_LAB_IND IN NUMBER,
79 X_PLANT_IND IN NUMBER
80 ) IS
81
82 CURSOR C IS SELECT
83 ORGANIZATION_ID,
84 LAB_IND,
85 PLANT_IND,
86 PARAMETER_ID
87 FROM GMD_PARAMETERS_HDR
88 WHERE PARAMETER_ID = X_PARAMETER_ID
89 FOR UPDATE OF PARAMETER_ID NOWAIT;
90
91 RECINFO C%ROWTYPE;
92
93 BEGIN
94 OPEN C;
95 FETCH C INTO RECINFO;
96 IF (C%NOTFOUND) THEN
97 CLOSE C;
98 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
99 APP_EXCEPTION.RAISE_EXCEPTION;
100 END IF;
101 CLOSE C;
102
103 IF (((recinfo.ORGANIZATION_ID = X_ORGANIZATION_ID)
104 OR ((recinfo.ORGANIZATION_ID is null) AND (X_ORGANIZATION_ID is null)))
105 AND ((recinfo.LAB_IND = X_LAB_IND)
106 OR ((recinfo.LAB_IND is null) AND (X_LAB_IND is null)))
107 AND ((recinfo.PLANT_IND = X_PLANT_IND)
108 OR ((recinfo.PLANT_IND is null) AND (X_PLANT_IND is null)))
109 AND ((recinfo.PARAMETER_ID = X_PARAMETER_ID)
110 OR ((recinfo.PARAMETER_ID is null) AND (X_PARAMETER_ID is null)))
111 ) THEN
112 NULL;
113 ELSE
114 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_CHANGED');
115 APP_EXCEPTION.RAISE_EXCEPTION;
116 END IF;
117
118 RETURN;
119 END LOCK_ROW;
120
121 /*======================================================================
122 -- PROCEDURE :
123 -- UPDATE_ROW
124 --
125 -- DESCRIPTION:
126 -- This particular procedure update rows in header table
127 --
128 -- HISTORY
129 -- Sriram.S 05-NOV-2004 Created
130 --===================================================================== */
131 PROCEDURE UPDATE_ROW (
132 X_PARAMETER_ID IN NUMBER,
133 X_ORGANIZATION_ID IN NUMBER,
134 X_LAB_IND IN NUMBER,
135 X_PLANT_IND IN NUMBER,
136 X_LAST_UPDATE_DATE IN DATE,
137 X_LAST_UPDATED_BY IN NUMBER,
138 X_LAST_UPDATE_LOGIN IN NUMBER
139 ) IS
140
141 BEGIN
142 UPDATE GMD_PARAMETERS_HDR SET
143 ORGANIZATION_ID = X_ORGANIZATION_ID,
144 LAB_IND = X_LAB_IND,
145 PLANT_IND = X_PLANT_IND,
146 PARAMETER_ID = X_PARAMETER_ID,
147 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
148 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
149 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
150 WHERE PARAMETER_ID = X_PARAMETER_ID;
151
152 IF (SQL%NOTFOUND) THEN
153 RAISE NO_DATA_FOUND;
154 END IF;
155
156 END UPDATE_ROW;
157
158 /*======================================================================
159 -- PROCEDURE :
160 -- DELETE_ROW
161 --
162 -- DESCRIPTION:
163 -- This particular procedure delete rows in header table
164 --
165 -- HISTORY
166 -- Sriram.S 05-NOV-2004 Created
167 --===================================================================== */
168 PROCEDURE DELETE_ROW (
169 X_PARAMETER_ID IN NUMBER
170 ) IS
171
172 BEGIN
173
174 DELETE FROM GMD_PARAMETERS_HDR
175 WHERE PARAMETER_ID = X_PARAMETER_ID;
176
177 IF (SQL%NOTFOUND) THEN
178 RAISE NO_DATA_FOUND;
179 END IF;
180
181 END DELETE_ROW;
182
183 END GMD_PARAMETERS_HDR_PKG;