[Home] [Help]
22: p_aso_resource_rec.dml_operation <> 'C' ) THEN
23: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_DML' );
24: FND_MESSAGE.set_token( 'FIELD', p_aso_resource_rec.dml_operation );
25: FND_MSG_PUB.add;
26: RAISE FND_API.G_EXC_ERROR;
27: END IF;
28: IF p_bom_resource_tbl.count > 0 THEN
29: FOR i IN p_bom_resource_tbl.FIRST..p_bom_resource_tbl.LAST LOOP
30: IF ( p_bom_resource_tbl(i).dml_operation <> 'D' AND
33: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_DML' );
34: FND_MESSAGE.set_token( 'FIELD', p_bom_resource_tbl(i).dml_operation );
35: FND_MESSAGE.set_token( 'RECORD', p_bom_resource_tbl(i).bom_resource_code ) ;
36: FND_MSG_PUB.add;
37: RAISE FND_API.G_EXC_ERROR;
38: END IF;
39: END LOOP;
40: END IF;
41: IF ( p_aso_resource_rec.dml_operation = 'C' and p_bom_resource_tbl.count >0 ) THEN
44: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_DML' );
45: FND_MESSAGE.set_token( 'FIELD', p_bom_resource_tbl(i).dml_operation );
46: FND_MESSAGE.set_token( 'RECORD', p_bom_resource_tbl(i).bom_resource_code ) ;
47: FND_MSG_PUB.add;
48: RAISE FND_API.G_EXC_ERROR;
49: END IF;
50: END LOOP;
51: END IF;
52:
62: BEGIN
63: IF (p_x_aso_resource_rec.dml_operation <> 'D') THEN
64: IF ( p_x_aso_resource_rec.resource_type IS NULL ) THEN
65: p_x_aso_resource_rec.resource_type_id := NULL;
66: ELSIF ( p_x_aso_resource_rec.resource_type = FND_API.G_MISS_CHAR ) THEN
67: p_x_aso_resource_rec.resource_type_id := FND_API.G_MISS_NUM;
68: END IF;
69: END IF;
70: IF p_x_bom_resource_tbl.count > 0 THEN
63: IF (p_x_aso_resource_rec.dml_operation <> 'D') THEN
64: IF ( p_x_aso_resource_rec.resource_type IS NULL ) THEN
65: p_x_aso_resource_rec.resource_type_id := NULL;
66: ELSIF ( p_x_aso_resource_rec.resource_type = FND_API.G_MISS_CHAR ) THEN
67: p_x_aso_resource_rec.resource_type_id := FND_API.G_MISS_NUM;
68: END IF;
69: END IF;
70: IF p_x_bom_resource_tbl.count > 0 THEN
71: FOR i IN p_x_bom_resource_tbl.FIRST..p_x_bom_resource_tbl.LAST LOOP
71: FOR i IN p_x_bom_resource_tbl.FIRST..p_x_bom_resource_tbl.LAST LOOP
72: IF (p_x_bom_resource_tbl(i).dml_operation <> 'D') THEN
73: IF ( p_x_bom_resource_tbl(i).bom_resource_code IS NULL ) THEN
74: p_x_bom_resource_tbl(i).bom_resource_id := NULL;
75: ELSIF ( p_x_bom_resource_tbl(i).bom_resource_code = FND_API.G_MISS_CHAR ) THEN
76: p_x_bom_resource_tbl(i).bom_resource_id := FND_API.G_MISS_NUM;
77: END IF;
78: END IF;
79: END LOOP;
72: IF (p_x_bom_resource_tbl(i).dml_operation <> 'D') THEN
73: IF ( p_x_bom_resource_tbl(i).bom_resource_code IS NULL ) THEN
74: p_x_bom_resource_tbl(i).bom_resource_id := NULL;
75: ELSIF ( p_x_bom_resource_tbl(i).bom_resource_code = FND_API.G_MISS_CHAR ) THEN
76: p_x_bom_resource_tbl(i).bom_resource_id := FND_API.G_MISS_NUM;
77: END IF;
78: END IF;
79: END LOOP;
80: END IF;
92: l_total_return_status VARCHAR2(1);
93: l_msg_data VARCHAR2(2000);
94:
95: BEGIN
96: l_total_return_status := FND_API.G_RET_STS_SUCCESS;
97:
98: -- Convert / Validate ASO Resource Type
99: IF ( p_x_aso_resource_rec.dml_operation <> 'D') THEN
100: IF ( ( p_x_aso_resource_rec.resource_type_id IS NOT NULL AND
97:
98: -- Convert / Validate ASO Resource Type
99: IF ( p_x_aso_resource_rec.dml_operation <> 'D') THEN
100: IF ( ( p_x_aso_resource_rec.resource_type_id IS NOT NULL AND
101: p_x_aso_resource_rec.resource_type_id <> FND_API.G_MISS_NUM ) OR
102: ( p_x_aso_resource_rec.resource_type IS NOT NULL AND
103: p_x_aso_resource_rec.resource_type <> FND_API.G_MISS_CHAR ) ) THEN
104:
105: AHL_RM_ROUTE_UTIL.validate_mfg_lookup
99: IF ( p_x_aso_resource_rec.dml_operation <> 'D') THEN
100: IF ( ( p_x_aso_resource_rec.resource_type_id IS NOT NULL AND
101: p_x_aso_resource_rec.resource_type_id <> FND_API.G_MISS_NUM ) OR
102: ( p_x_aso_resource_rec.resource_type IS NOT NULL AND
103: p_x_aso_resource_rec.resource_type <> FND_API.G_MISS_CHAR ) ) THEN
104:
105: AHL_RM_ROUTE_UTIL.validate_mfg_lookup
106: (
107: x_return_status => l_return_status,
110: p_lookup_meaning => p_x_aso_resource_rec.resource_type,
111: p_x_lookup_code => p_x_aso_resource_rec.resource_type_id
112: );
113:
114: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
115: IF ( l_msg_data = 'AHL_COM_INVALID_MFG_LOOKUP' ) THEN
116: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_RES_TYPE' );
117: ELSIF ( l_msg_data = 'AHL_COM_TOO_MANY_LOOKUPS' ) THEN
118: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_TOO_MANY_RES_TYPES' );
120: FND_MESSAGE.set_name( 'AHL', l_msg_data );
121: END IF;
122:
123: IF ( p_x_aso_resource_rec.resource_type IS NULL OR
124: p_x_aso_resource_rec.resource_type = FND_API.G_MISS_CHAR ) THEN
125: FND_MESSAGE.set_token( 'FIELD', p_x_aso_resource_rec.resource_type_id );
126: ELSE
127: FND_MESSAGE.set_token( 'FIELD', p_x_aso_resource_rec.resource_type );
128: END IF;
127: FND_MESSAGE.set_token( 'FIELD', p_x_aso_resource_rec.resource_type );
128: END IF;
129:
130: FND_MSG_PUB.add;
131: l_total_return_status := FND_API.G_RET_STS_ERROR;
132: END IF;
133: END IF;
134: END IF;
135:
137: IF p_x_bom_resource_tbl.count > 0 THEN
138: FOR i IN p_x_bom_resource_tbl.FIRST..p_x_bom_resource_tbl.LAST LOOP
139: IF (p_x_bom_resource_tbl(i).dml_operation <> 'D' ) THEN
140: IF ( ( p_x_bom_resource_tbl(i).bom_resource_code IS NOT NULL AND
141: p_x_bom_resource_tbl(i).bom_resource_code <> FND_API.G_MISS_CHAR ) OR
142: ( p_x_bom_resource_tbl(i).bom_resource_id IS NOT NULL AND
143: p_x_bom_resource_tbl(i).bom_resource_id <> FND_API.G_MISS_NUM ) ) THEN
144:
145: AHL_RM_ROUTE_UTIL.validate_bom_resource
139: IF (p_x_bom_resource_tbl(i).dml_operation <> 'D' ) THEN
140: IF ( ( p_x_bom_resource_tbl(i).bom_resource_code IS NOT NULL AND
141: p_x_bom_resource_tbl(i).bom_resource_code <> FND_API.G_MISS_CHAR ) OR
142: ( p_x_bom_resource_tbl(i).bom_resource_id IS NOT NULL AND
143: p_x_bom_resource_tbl(i).bom_resource_id <> FND_API.G_MISS_NUM ) ) THEN
144:
145: AHL_RM_ROUTE_UTIL.validate_bom_resource
146: (
147: x_return_status => l_return_status,
150: p_x_bom_resource_id => p_x_bom_resource_tbl(i).bom_resource_id,
151: p_x_bom_org_id => p_x_bom_resource_tbl(i).bom_org_id
152: );
153:
154: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
155: FND_MESSAGE.set_name( 'AHL', l_msg_data );
156: IF ( p_x_bom_resource_tbl(i).bom_resource_code IS NULL OR
157: p_x_bom_resource_tbl(i).bom_resource_code = FND_API.G_MISS_CHAR ) THEN
158: FND_MESSAGE.set_token( 'FIELD', TO_CHAR( p_x_bom_resource_tbl(i).bom_resource_id ) );
153:
154: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
155: FND_MESSAGE.set_name( 'AHL', l_msg_data );
156: IF ( p_x_bom_resource_tbl(i).bom_resource_code IS NULL OR
157: p_x_bom_resource_tbl(i).bom_resource_code = FND_API.G_MISS_CHAR ) THEN
158: FND_MESSAGE.set_token( 'FIELD', TO_CHAR( p_x_bom_resource_tbl(i).bom_resource_id ) );
159: FND_MESSAGE.set_token( 'RECORD', TO_CHAR( p_x_bom_resource_tbl(i).bom_resource_id ) );
160: ELSE
161: FND_MESSAGE.set_token( 'FIELD', p_x_bom_resource_tbl(i).bom_resource_code );
161: FND_MESSAGE.set_token( 'FIELD', p_x_bom_resource_tbl(i).bom_resource_code );
162: FND_MESSAGE.set_token( 'RECORD', p_x_bom_resource_tbl(i).bom_resource_code );
163: END IF;
164: FND_MSG_PUB.add;
165: l_total_return_status := FND_API.G_RET_STS_ERROR;
166: END IF;
167: END IF;
168:
169: -- pdoki ER 7436910 Begin.
168:
169: -- pdoki ER 7436910 Begin.
170: -- Convert / Validate BOM resource's department
171: IF ( ( p_x_bom_resource_tbl(i).department_name IS NOT NULL AND
172: p_x_bom_resource_tbl(i).department_name <> FND_API.G_MISS_CHAR ) OR
173: ( p_x_bom_resource_tbl(i).department_id IS NOT NULL AND
174: p_x_bom_resource_tbl(i).department_id <> FND_API.G_MISS_NUM ) ) THEN
175:
176: IF (p_x_bom_resource_tbl(i).bom_resource_id IS NULL OR p_x_bom_resource_tbl(i).bom_resource_id = FND_API.G_MISS_NUM)
170: -- Convert / Validate BOM resource's department
171: IF ( ( p_x_bom_resource_tbl(i).department_name IS NOT NULL AND
172: p_x_bom_resource_tbl(i).department_name <> FND_API.G_MISS_CHAR ) OR
173: ( p_x_bom_resource_tbl(i).department_id IS NOT NULL AND
174: p_x_bom_resource_tbl(i).department_id <> FND_API.G_MISS_NUM ) ) THEN
175:
176: IF (p_x_bom_resource_tbl(i).bom_resource_id IS NULL OR p_x_bom_resource_tbl(i).bom_resource_id = FND_API.G_MISS_NUM)
177: THEN
178: FND_MESSAGE.set_name( 'AHL','AHL_RM_BOM_RES_ID_NULL' );
172: p_x_bom_resource_tbl(i).department_name <> FND_API.G_MISS_CHAR ) OR
173: ( p_x_bom_resource_tbl(i).department_id IS NOT NULL AND
174: p_x_bom_resource_tbl(i).department_id <> FND_API.G_MISS_NUM ) ) THEN
175:
176: IF (p_x_bom_resource_tbl(i).bom_resource_id IS NULL OR p_x_bom_resource_tbl(i).bom_resource_id = FND_API.G_MISS_NUM)
177: THEN
178: FND_MESSAGE.set_name( 'AHL','AHL_RM_BOM_RES_ID_NULL' );
179: FND_MESSAGE.set_token( 'RECORD',TO_CHAR(i));
180: FND_MSG_PUB.add;
177: THEN
178: FND_MESSAGE.set_name( 'AHL','AHL_RM_BOM_RES_ID_NULL' );
179: FND_MESSAGE.set_token( 'RECORD',TO_CHAR(i));
180: FND_MSG_PUB.add;
181: l_total_return_status := FND_API.G_RET_STS_ERROR;
182: ELSE
183: AHL_RM_ROUTE_UTIL.validate_bom_res_dep
184: (
185: x_return_status => l_return_status,
189: p_bom_department_name => p_x_bom_resource_tbl(i).department_name,
190: p_x_bom_department_id => p_x_bom_resource_tbl(i).department_id
191: );
192:
193: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
194: FND_MESSAGE.set_name( 'AHL', l_msg_data );
195: IF ( p_x_bom_resource_tbl(i).department_name IS NULL OR
196: p_x_bom_resource_tbl(i).department_name = FND_API.G_MISS_CHAR ) THEN
197: FND_MESSAGE.set_token( 'RECORD', TO_CHAR( p_x_bom_resource_tbl(i).department_id ) );
192:
193: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
194: FND_MESSAGE.set_name( 'AHL', l_msg_data );
195: IF ( p_x_bom_resource_tbl(i).department_name IS NULL OR
196: p_x_bom_resource_tbl(i).department_name = FND_API.G_MISS_CHAR ) THEN
197: FND_MESSAGE.set_token( 'RECORD', TO_CHAR( p_x_bom_resource_tbl(i).department_id ) );
198: ELSE
199: FND_MESSAGE.set_token( 'RECORD', p_x_bom_resource_tbl(i).department_name );
200: END IF;
198: ELSE
199: FND_MESSAGE.set_token( 'RECORD', p_x_bom_resource_tbl(i).department_name );
200: END IF;
201: FND_MSG_PUB.add;
202: l_total_return_status := FND_API.G_RET_STS_ERROR;
203: END IF;
204: END IF;
205: END IF;
206: -- pdoki ER 7436910 End.
206: -- pdoki ER 7436910 End.
207:
208: END IF;
209: END LOOP;
210: IF (l_total_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
211: RAISE FND_API.G_EXC_ERROR;
212: END IF;
213: END IF;
214: END convert_values_to_ids;
207:
208: END IF;
209: END LOOP;
210: IF (l_total_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
211: RAISE FND_API.G_EXC_ERROR;
212: END IF;
213: END IF;
214: END convert_values_to_ids;
215:
263: IF ( p_aso_resource_rec.dml_operation = 'C' OR
264: p_aso_resource_rec.dml_operation = 'U' ) THEN
265: -- Check if the mandatory resource_type column contains a value.
266: IF ( (p_aso_resource_rec.resource_type_id IS NULL OR
267: p_aso_resource_rec.resource_type_id = FND_API.G_MISS_NUM) AND
268: p_aso_resource_rec.dml_operation <> 'U' ) THEN
269: FND_MESSAGE.set_name( 'AHL','AHL_RM_ASO_RES_TYPE_NULL' );
270: FND_MSG_PUB.add;
271: RAISE FND_API.G_EXC_ERROR;
267: p_aso_resource_rec.resource_type_id = FND_API.G_MISS_NUM) AND
268: p_aso_resource_rec.dml_operation <> 'U' ) THEN
269: FND_MESSAGE.set_name( 'AHL','AHL_RM_ASO_RES_TYPE_NULL' );
270: FND_MSG_PUB.add;
271: RAISE FND_API.G_EXC_ERROR;
272: END IF;
273:
274: -- Check if the mandatory name column contains a value.
275: IF ( p_aso_resource_rec.name IS NULL OR
272: END IF;
273:
274: -- Check if the mandatory name column contains a value.
275: IF ( p_aso_resource_rec.name IS NULL OR
276: p_aso_resource_rec.name = FND_API.G_MISS_CHAR ) THEN
277: FND_MESSAGE.set_name( 'AHL','AHL_RM_ASO_RES_NAME_NULL' );
278: FND_MSG_PUB.add;
279: RAISE FND_API.G_EXC_ERROR;
280: END IF;
275: IF ( p_aso_resource_rec.name IS NULL OR
276: p_aso_resource_rec.name = FND_API.G_MISS_CHAR ) THEN
277: FND_MESSAGE.set_name( 'AHL','AHL_RM_ASO_RES_NAME_NULL' );
278: FND_MSG_PUB.add;
279: RAISE FND_API.G_EXC_ERROR;
280: END IF;
281:
282: -- Check if the mandatory description column contains a value.
283: IF ( p_aso_resource_rec.description IS NULL OR
280: END IF;
281:
282: -- Check if the mandatory description column contains a value.
283: IF ( p_aso_resource_rec.description IS NULL OR
284: p_aso_resource_rec.description = FND_API.G_MISS_CHAR ) THEN
285: FND_MESSAGE.set_name( 'AHL','AHL_RM_ASO_RES_DESC_NULL' );
286: FND_MSG_PUB.add;
287: RAISE FND_API.G_EXC_ERROR;
288: END IF;
283: IF ( p_aso_resource_rec.description IS NULL OR
284: p_aso_resource_rec.description = FND_API.G_MISS_CHAR ) THEN
285: FND_MESSAGE.set_name( 'AHL','AHL_RM_ASO_RES_DESC_NULL' );
286: FND_MSG_PUB.add;
287: RAISE FND_API.G_EXC_ERROR;
288: END IF;
289: END IF;
290:
291: -- Check if the mandatory bom_resource_id column in details table contains a value.
294: IF ( p_bom_resource_tbl(i).dml_operation = 'C' OR
295: p_bom_resource_tbl(i).dml_operation = 'U' ) THEN
296:
297: IF (p_bom_resource_tbl(i).bom_resource_id IS NULL OR
298: p_bom_resource_tbl(i).bom_resource_id = FND_API.G_MISS_NUM) THEN
299: FND_MESSAGE.set_name( 'AHL','AHL_RM_BOM_RES_ID_NULL' );
300: FND_MESSAGE.set_token( 'RECORD',TO_CHAR(i));
301: FND_MSG_PUB.add;
302: RAISE FND_API.G_EXC_ERROR;
298: p_bom_resource_tbl(i).bom_resource_id = FND_API.G_MISS_NUM) THEN
299: FND_MESSAGE.set_name( 'AHL','AHL_RM_BOM_RES_ID_NULL' );
300: FND_MESSAGE.set_token( 'RECORD',TO_CHAR(i));
301: FND_MSG_PUB.add;
302: RAISE FND_API.G_EXC_ERROR;
303: END IF;
304: IF (p_bom_resource_tbl(i).bom_org_id IS NULL OR
305: p_bom_resource_tbl(i).bom_org_id = FND_API.G_MISS_NUM) THEN
306: FND_MESSAGE.set_name( 'AHL','AHL_RM_BOM_ORG_ID_NULL' );
301: FND_MSG_PUB.add;
302: RAISE FND_API.G_EXC_ERROR;
303: END IF;
304: IF (p_bom_resource_tbl(i).bom_org_id IS NULL OR
305: p_bom_resource_tbl(i).bom_org_id = FND_API.G_MISS_NUM) THEN
306: FND_MESSAGE.set_name( 'AHL','AHL_RM_BOM_ORG_ID_NULL' );
307: FND_MESSAGE.set_token( 'RECORD',p_bom_resource_tbl(i).bom_resource_code);
308: FND_MSG_PUB.add;
309: RAISE FND_API.G_EXC_ERROR;
305: p_bom_resource_tbl(i).bom_org_id = FND_API.G_MISS_NUM) THEN
306: FND_MESSAGE.set_name( 'AHL','AHL_RM_BOM_ORG_ID_NULL' );
307: FND_MESSAGE.set_token( 'RECORD',p_bom_resource_tbl(i).bom_resource_code);
308: FND_MSG_PUB.add;
309: RAISE FND_API.G_EXC_ERROR;
310: END IF;
311: END IF;
312: END LOOP;
313: END IF;
323: BEGIN
324:
325: -- Convert G_MISS values to NULL
326: IF p_x_aso_resource_rec.dml_operation = 'C' THEN
327: IF ( p_x_aso_resource_rec.resource_type_id = FND_API.G_MISS_NUM ) THEN
328: p_x_aso_resource_rec.resource_type_id := null;
329: END IF;
330:
331: IF ( p_x_aso_resource_rec.name = FND_API.G_MISS_CHAR ) THEN
327: IF ( p_x_aso_resource_rec.resource_type_id = FND_API.G_MISS_NUM ) THEN
328: p_x_aso_resource_rec.resource_type_id := null;
329: END IF;
330:
331: IF ( p_x_aso_resource_rec.name = FND_API.G_MISS_CHAR ) THEN
332: p_x_aso_resource_rec.name := null;
333: END IF;
334:
335: IF ( p_x_aso_resource_rec.description = FND_API.G_MISS_CHAR ) THEN
331: IF ( p_x_aso_resource_rec.name = FND_API.G_MISS_CHAR ) THEN
332: p_x_aso_resource_rec.name := null;
333: END IF;
334:
335: IF ( p_x_aso_resource_rec.description = FND_API.G_MISS_CHAR ) THEN
336: p_x_aso_resource_rec.description := null;
337: END IF;
338:
339: IF ( p_x_aso_resource_rec.attribute_category = FND_API.G_MISS_CHAR ) THEN
335: IF ( p_x_aso_resource_rec.description = FND_API.G_MISS_CHAR ) THEN
336: p_x_aso_resource_rec.description := null;
337: END IF;
338:
339: IF ( p_x_aso_resource_rec.attribute_category = FND_API.G_MISS_CHAR ) THEN
340: p_x_aso_resource_rec.attribute_category := null;
341: END IF;
342:
343: IF ( p_x_aso_resource_rec.attribute1 = FND_API.G_MISS_CHAR ) THEN
339: IF ( p_x_aso_resource_rec.attribute_category = FND_API.G_MISS_CHAR ) THEN
340: p_x_aso_resource_rec.attribute_category := null;
341: END IF;
342:
343: IF ( p_x_aso_resource_rec.attribute1 = FND_API.G_MISS_CHAR ) THEN
344: p_x_aso_resource_rec.attribute1 := null;
345: END IF;
346:
347: IF ( p_x_aso_resource_rec.attribute2 = FND_API.G_MISS_CHAR ) THEN
343: IF ( p_x_aso_resource_rec.attribute1 = FND_API.G_MISS_CHAR ) THEN
344: p_x_aso_resource_rec.attribute1 := null;
345: END IF;
346:
347: IF ( p_x_aso_resource_rec.attribute2 = FND_API.G_MISS_CHAR ) THEN
348: p_x_aso_resource_rec.attribute2 := null;
349: END IF;
350:
351: IF ( p_x_aso_resource_rec.attribute3 = FND_API.G_MISS_CHAR ) THEN
347: IF ( p_x_aso_resource_rec.attribute2 = FND_API.G_MISS_CHAR ) THEN
348: p_x_aso_resource_rec.attribute2 := null;
349: END IF;
350:
351: IF ( p_x_aso_resource_rec.attribute3 = FND_API.G_MISS_CHAR ) THEN
352: p_x_aso_resource_rec.attribute3 := null;
353: END IF;
354:
355: IF ( p_x_aso_resource_rec.attribute4 = FND_API.G_MISS_CHAR ) THEN
351: IF ( p_x_aso_resource_rec.attribute3 = FND_API.G_MISS_CHAR ) THEN
352: p_x_aso_resource_rec.attribute3 := null;
353: END IF;
354:
355: IF ( p_x_aso_resource_rec.attribute4 = FND_API.G_MISS_CHAR ) THEN
356: p_x_aso_resource_rec.attribute4 := null;
357: END IF;
358:
359: IF ( p_x_aso_resource_rec.attribute5 = FND_API.G_MISS_CHAR ) THEN
355: IF ( p_x_aso_resource_rec.attribute4 = FND_API.G_MISS_CHAR ) THEN
356: p_x_aso_resource_rec.attribute4 := null;
357: END IF;
358:
359: IF ( p_x_aso_resource_rec.attribute5 = FND_API.G_MISS_CHAR ) THEN
360: p_x_aso_resource_rec.attribute5 := null;
361: END IF;
362:
363: IF ( p_x_aso_resource_rec.attribute6 = FND_API.G_MISS_CHAR ) THEN
359: IF ( p_x_aso_resource_rec.attribute5 = FND_API.G_MISS_CHAR ) THEN
360: p_x_aso_resource_rec.attribute5 := null;
361: END IF;
362:
363: IF ( p_x_aso_resource_rec.attribute6 = FND_API.G_MISS_CHAR ) THEN
364: p_x_aso_resource_rec.attribute6 := null;
365: END IF;
366:
367: IF ( p_x_aso_resource_rec.attribute7 = FND_API.G_MISS_CHAR ) THEN
363: IF ( p_x_aso_resource_rec.attribute6 = FND_API.G_MISS_CHAR ) THEN
364: p_x_aso_resource_rec.attribute6 := null;
365: END IF;
366:
367: IF ( p_x_aso_resource_rec.attribute7 = FND_API.G_MISS_CHAR ) THEN
368: p_x_aso_resource_rec.attribute7 := null;
369: END IF;
370:
371: IF ( p_x_aso_resource_rec.attribute8 = FND_API.G_MISS_CHAR ) THEN
367: IF ( p_x_aso_resource_rec.attribute7 = FND_API.G_MISS_CHAR ) THEN
368: p_x_aso_resource_rec.attribute7 := null;
369: END IF;
370:
371: IF ( p_x_aso_resource_rec.attribute8 = FND_API.G_MISS_CHAR ) THEN
372: p_x_aso_resource_rec.attribute8 := null;
373: END IF;
374:
375: IF ( p_x_aso_resource_rec.attribute9 = FND_API.G_MISS_CHAR ) THEN
371: IF ( p_x_aso_resource_rec.attribute8 = FND_API.G_MISS_CHAR ) THEN
372: p_x_aso_resource_rec.attribute8 := null;
373: END IF;
374:
375: IF ( p_x_aso_resource_rec.attribute9 = FND_API.G_MISS_CHAR ) THEN
376: p_x_aso_resource_rec.attribute9 := null;
377: END IF;
378:
379: IF ( p_x_aso_resource_rec.attribute10 = FND_API.G_MISS_CHAR ) THEN
375: IF ( p_x_aso_resource_rec.attribute9 = FND_API.G_MISS_CHAR ) THEN
376: p_x_aso_resource_rec.attribute9 := null;
377: END IF;
378:
379: IF ( p_x_aso_resource_rec.attribute10 = FND_API.G_MISS_CHAR ) THEN
380: p_x_aso_resource_rec.attribute10 := null;
381: END IF;
382:
383: IF ( p_x_aso_resource_rec.attribute11 = FND_API.G_MISS_CHAR ) THEN
379: IF ( p_x_aso_resource_rec.attribute10 = FND_API.G_MISS_CHAR ) THEN
380: p_x_aso_resource_rec.attribute10 := null;
381: END IF;
382:
383: IF ( p_x_aso_resource_rec.attribute11 = FND_API.G_MISS_CHAR ) THEN
384: p_x_aso_resource_rec.attribute11 := null;
385: END IF;
386:
387: IF ( p_x_aso_resource_rec.attribute12 = FND_API.G_MISS_CHAR ) THEN
383: IF ( p_x_aso_resource_rec.attribute11 = FND_API.G_MISS_CHAR ) THEN
384: p_x_aso_resource_rec.attribute11 := null;
385: END IF;
386:
387: IF ( p_x_aso_resource_rec.attribute12 = FND_API.G_MISS_CHAR ) THEN
388: p_x_aso_resource_rec.attribute12 := null;
389: END IF;
390:
391: IF ( p_x_aso_resource_rec.attribute13 = FND_API.G_MISS_CHAR ) THEN
387: IF ( p_x_aso_resource_rec.attribute12 = FND_API.G_MISS_CHAR ) THEN
388: p_x_aso_resource_rec.attribute12 := null;
389: END IF;
390:
391: IF ( p_x_aso_resource_rec.attribute13 = FND_API.G_MISS_CHAR ) THEN
392: p_x_aso_resource_rec.attribute13 := null;
393: END IF;
394:
395: IF ( p_x_aso_resource_rec.attribute14 = FND_API.G_MISS_CHAR ) THEN
391: IF ( p_x_aso_resource_rec.attribute13 = FND_API.G_MISS_CHAR ) THEN
392: p_x_aso_resource_rec.attribute13 := null;
393: END IF;
394:
395: IF ( p_x_aso_resource_rec.attribute14 = FND_API.G_MISS_CHAR ) THEN
396: p_x_aso_resource_rec.attribute14 := null;
397: END IF;
398:
399: IF ( p_x_aso_resource_rec.attribute15 = FND_API.G_MISS_CHAR ) THEN
395: IF ( p_x_aso_resource_rec.attribute14 = FND_API.G_MISS_CHAR ) THEN
396: p_x_aso_resource_rec.attribute14 := null;
397: END IF;
398:
399: IF ( p_x_aso_resource_rec.attribute15 = FND_API.G_MISS_CHAR ) THEN
400: p_x_aso_resource_rec.attribute15 := null;
401: END IF;
402: END IF;
403: END default_miss_aso_attributes;
410: IS
411:
412: BEGIN
413: IF ( p_x_bom_resource_rec.dml_operation = 'C') THEN
414: IF ( p_x_bom_resource_rec.bom_resource_id = FND_API.G_MISS_NUM ) THEN
415: p_x_bom_resource_rec.bom_resource_id := null;
416: END IF;
417:
418: IF ( p_x_bom_resource_rec.bom_org_id = FND_API.G_MISS_NUM ) THEN
414: IF ( p_x_bom_resource_rec.bom_resource_id = FND_API.G_MISS_NUM ) THEN
415: p_x_bom_resource_rec.bom_resource_id := null;
416: END IF;
417:
418: IF ( p_x_bom_resource_rec.bom_org_id = FND_API.G_MISS_NUM ) THEN
419: p_x_bom_resource_rec.bom_org_id := null;
420: END IF;
421:
422: --pdoki ER 7436910 Begin.
419: p_x_bom_resource_rec.bom_org_id := null;
420: END IF;
421:
422: --pdoki ER 7436910 Begin.
423: IF ( p_x_bom_resource_rec.department_id = FND_API.G_MISS_NUM ) THEN
424: p_x_bom_resource_rec.department_id := null;
425: END IF;
426: --pdoki ER 7436910 End.
427:
424: p_x_bom_resource_rec.department_id := null;
425: END IF;
426: --pdoki ER 7436910 End.
427:
428: IF ( p_x_bom_resource_rec.attribute_category = FND_API.G_MISS_CHAR ) THEN
429: p_x_bom_resource_rec.attribute_category := null;
430: END IF;
431:
432: IF ( p_x_bom_resource_rec.attribute1 = FND_API.G_MISS_CHAR ) THEN
428: IF ( p_x_bom_resource_rec.attribute_category = FND_API.G_MISS_CHAR ) THEN
429: p_x_bom_resource_rec.attribute_category := null;
430: END IF;
431:
432: IF ( p_x_bom_resource_rec.attribute1 = FND_API.G_MISS_CHAR ) THEN
433: p_x_bom_resource_rec.attribute1 := null;
434: END IF;
435:
436: IF ( p_x_bom_resource_rec.attribute2 = FND_API.G_MISS_CHAR ) THEN
432: IF ( p_x_bom_resource_rec.attribute1 = FND_API.G_MISS_CHAR ) THEN
433: p_x_bom_resource_rec.attribute1 := null;
434: END IF;
435:
436: IF ( p_x_bom_resource_rec.attribute2 = FND_API.G_MISS_CHAR ) THEN
437: p_x_bom_resource_rec.attribute2 := null;
438: END IF;
439:
440: IF ( p_x_bom_resource_rec.attribute3 = FND_API.G_MISS_CHAR ) THEN
436: IF ( p_x_bom_resource_rec.attribute2 = FND_API.G_MISS_CHAR ) THEN
437: p_x_bom_resource_rec.attribute2 := null;
438: END IF;
439:
440: IF ( p_x_bom_resource_rec.attribute3 = FND_API.G_MISS_CHAR ) THEN
441: p_x_bom_resource_rec.attribute3 := null;
442: END IF;
443:
444: IF ( p_x_bom_resource_rec.attribute4 = FND_API.G_MISS_CHAR ) THEN
440: IF ( p_x_bom_resource_rec.attribute3 = FND_API.G_MISS_CHAR ) THEN
441: p_x_bom_resource_rec.attribute3 := null;
442: END IF;
443:
444: IF ( p_x_bom_resource_rec.attribute4 = FND_API.G_MISS_CHAR ) THEN
445: p_x_bom_resource_rec.attribute4 := null;
446: END IF;
447:
448: IF ( p_x_bom_resource_rec.attribute5 = FND_API.G_MISS_CHAR ) THEN
444: IF ( p_x_bom_resource_rec.attribute4 = FND_API.G_MISS_CHAR ) THEN
445: p_x_bom_resource_rec.attribute4 := null;
446: END IF;
447:
448: IF ( p_x_bom_resource_rec.attribute5 = FND_API.G_MISS_CHAR ) THEN
449: p_x_bom_resource_rec.attribute5 := null;
450: END IF;
451:
452: IF ( p_x_bom_resource_rec.attribute6 = FND_API.G_MISS_CHAR ) THEN
448: IF ( p_x_bom_resource_rec.attribute5 = FND_API.G_MISS_CHAR ) THEN
449: p_x_bom_resource_rec.attribute5 := null;
450: END IF;
451:
452: IF ( p_x_bom_resource_rec.attribute6 = FND_API.G_MISS_CHAR ) THEN
453: p_x_bom_resource_rec.attribute6 := null;
454: END IF;
455:
456: IF ( p_x_bom_resource_rec.attribute7 = FND_API.G_MISS_CHAR ) THEN
452: IF ( p_x_bom_resource_rec.attribute6 = FND_API.G_MISS_CHAR ) THEN
453: p_x_bom_resource_rec.attribute6 := null;
454: END IF;
455:
456: IF ( p_x_bom_resource_rec.attribute7 = FND_API.G_MISS_CHAR ) THEN
457: p_x_bom_resource_rec.attribute7 := null;
458: END IF;
459:
460: IF ( p_x_bom_resource_rec.attribute8 = FND_API.G_MISS_CHAR ) THEN
456: IF ( p_x_bom_resource_rec.attribute7 = FND_API.G_MISS_CHAR ) THEN
457: p_x_bom_resource_rec.attribute7 := null;
458: END IF;
459:
460: IF ( p_x_bom_resource_rec.attribute8 = FND_API.G_MISS_CHAR ) THEN
461: p_x_bom_resource_rec.attribute8 := null;
462: END IF;
463:
464: IF ( p_x_bom_resource_rec.attribute9 = FND_API.G_MISS_CHAR ) THEN
460: IF ( p_x_bom_resource_rec.attribute8 = FND_API.G_MISS_CHAR ) THEN
461: p_x_bom_resource_rec.attribute8 := null;
462: END IF;
463:
464: IF ( p_x_bom_resource_rec.attribute9 = FND_API.G_MISS_CHAR ) THEN
465: p_x_bom_resource_rec.attribute9 := null;
466: END IF;
467:
468: IF ( p_x_bom_resource_rec.attribute10 = FND_API.G_MISS_CHAR ) THEN
464: IF ( p_x_bom_resource_rec.attribute9 = FND_API.G_MISS_CHAR ) THEN
465: p_x_bom_resource_rec.attribute9 := null;
466: END IF;
467:
468: IF ( p_x_bom_resource_rec.attribute10 = FND_API.G_MISS_CHAR ) THEN
469: p_x_bom_resource_rec.attribute10 := null;
470: END IF;
471:
472: IF ( p_x_bom_resource_rec.attribute11 = FND_API.G_MISS_CHAR ) THEN
468: IF ( p_x_bom_resource_rec.attribute10 = FND_API.G_MISS_CHAR ) THEN
469: p_x_bom_resource_rec.attribute10 := null;
470: END IF;
471:
472: IF ( p_x_bom_resource_rec.attribute11 = FND_API.G_MISS_CHAR ) THEN
473: p_x_bom_resource_rec.attribute11 := null;
474: END IF;
475:
476: IF ( p_x_bom_resource_rec.attribute12 = FND_API.G_MISS_CHAR ) THEN
472: IF ( p_x_bom_resource_rec.attribute11 = FND_API.G_MISS_CHAR ) THEN
473: p_x_bom_resource_rec.attribute11 := null;
474: END IF;
475:
476: IF ( p_x_bom_resource_rec.attribute12 = FND_API.G_MISS_CHAR ) THEN
477: p_x_bom_resource_rec.attribute12 := null;
478: END IF;
479:
480: IF ( p_x_bom_resource_rec.attribute13 = FND_API.G_MISS_CHAR ) THEN
476: IF ( p_x_bom_resource_rec.attribute12 = FND_API.G_MISS_CHAR ) THEN
477: p_x_bom_resource_rec.attribute12 := null;
478: END IF;
479:
480: IF ( p_x_bom_resource_rec.attribute13 = FND_API.G_MISS_CHAR ) THEN
481: p_x_bom_resource_rec.attribute13 := null;
482: END IF;
483:
484: IF ( p_x_bom_resource_rec.attribute14 = FND_API.G_MISS_CHAR ) THEN
480: IF ( p_x_bom_resource_rec.attribute13 = FND_API.G_MISS_CHAR ) THEN
481: p_x_bom_resource_rec.attribute13 := null;
482: END IF;
483:
484: IF ( p_x_bom_resource_rec.attribute14 = FND_API.G_MISS_CHAR ) THEN
485: p_x_bom_resource_rec.attribute14 := null;
486: END IF;
487:
488: IF ( p_x_bom_resource_rec.attribute15 = FND_API.G_MISS_CHAR ) THEN
484: IF ( p_x_bom_resource_rec.attribute14 = FND_API.G_MISS_CHAR ) THEN
485: p_x_bom_resource_rec.attribute14 := null;
486: END IF;
487:
488: IF ( p_x_bom_resource_rec.attribute15 = FND_API.G_MISS_CHAR ) THEN
489: p_x_bom_resource_rec.attribute15 := null;
490: END IF;
491: END IF;
492: END default_miss_bom_attributes;
555: IF get_old_aso_rec%NOTFOUND THEN
556: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_ASO_REC' );
557: FND_MSG_PUB.add;
558: CLOSE get_old_aso_rec;
559: RAISE FND_API.G_EXC_ERROR;
560: END IF;
561:
562: CLOSE get_old_aso_rec;
563:
562: CLOSE get_old_aso_rec;
563:
564: -- Convert G_MISS values to NULL and NULL values to Old values
565:
566: IF ( p_x_aso_resource_rec.name = FND_API.G_MISS_CHAR ) THEN
567: p_x_aso_resource_rec.name := null;
568: ELSIF ( p_x_aso_resource_rec.name IS NULL ) THEN
569: p_x_aso_resource_rec.name := l_old_aso_resource_rec.name;
570: END IF;
568: ELSIF ( p_x_aso_resource_rec.name IS NULL ) THEN
569: p_x_aso_resource_rec.name := l_old_aso_resource_rec.name;
570: END IF;
571:
572: IF ( p_x_aso_resource_rec.description = FND_API.G_MISS_CHAR ) THEN
573: p_x_aso_resource_rec.description := null;
574: ELSIF ( p_x_aso_resource_rec.description IS NULL ) THEN
575: p_x_aso_resource_rec.description := l_old_aso_resource_rec.description;
576: END IF;
574: ELSIF ( p_x_aso_resource_rec.description IS NULL ) THEN
575: p_x_aso_resource_rec.description := l_old_aso_resource_rec.description;
576: END IF;
577:
578: IF ( p_x_aso_resource_rec.attribute_category = FND_API.G_MISS_CHAR ) THEN
579: p_x_aso_resource_rec.attribute_category := null;
580: ELSIF ( p_x_aso_resource_rec.attribute_category IS NULL ) THEN
581: p_x_aso_resource_rec.attribute_category := l_old_aso_resource_rec.attribute_category;
582: END IF;
580: ELSIF ( p_x_aso_resource_rec.attribute_category IS NULL ) THEN
581: p_x_aso_resource_rec.attribute_category := l_old_aso_resource_rec.attribute_category;
582: END IF;
583:
584: IF ( p_x_aso_resource_rec.attribute1 = FND_API.G_MISS_CHAR ) THEN
585: p_x_aso_resource_rec.attribute1 := null;
586: ELSIF ( p_x_aso_resource_rec.attribute1 IS NULL ) THEN
587: p_x_aso_resource_rec.attribute1 := l_old_aso_resource_rec.attribute1;
588: END IF;
586: ELSIF ( p_x_aso_resource_rec.attribute1 IS NULL ) THEN
587: p_x_aso_resource_rec.attribute1 := l_old_aso_resource_rec.attribute1;
588: END IF;
589:
590: IF ( p_x_aso_resource_rec.attribute2 = FND_API.G_MISS_CHAR ) THEN
591: p_x_aso_resource_rec.attribute2 := null;
592: ELSIF ( p_x_aso_resource_rec.attribute2 IS NULL ) THEN
593: p_x_aso_resource_rec.attribute2 := l_old_aso_resource_rec.attribute2;
594: END IF;
592: ELSIF ( p_x_aso_resource_rec.attribute2 IS NULL ) THEN
593: p_x_aso_resource_rec.attribute2 := l_old_aso_resource_rec.attribute2;
594: END IF;
595:
596: IF ( p_x_aso_resource_rec.attribute3 = FND_API.G_MISS_CHAR ) THEN
597: p_x_aso_resource_rec.attribute3 := null;
598: ELSIF ( p_x_aso_resource_rec.attribute3 IS NULL ) THEN
599: p_x_aso_resource_rec.attribute3 := l_old_aso_resource_rec.attribute3;
600: END IF;
598: ELSIF ( p_x_aso_resource_rec.attribute3 IS NULL ) THEN
599: p_x_aso_resource_rec.attribute3 := l_old_aso_resource_rec.attribute3;
600: END IF;
601:
602: IF ( p_x_aso_resource_rec.attribute4 = FND_API.G_MISS_CHAR ) THEN
603: p_x_aso_resource_rec.attribute4 := null;
604: ELSIF ( p_x_aso_resource_rec.attribute4 IS NULL ) THEN
605: p_x_aso_resource_rec.attribute4 := l_old_aso_resource_rec.attribute4;
606: END IF;
604: ELSIF ( p_x_aso_resource_rec.attribute4 IS NULL ) THEN
605: p_x_aso_resource_rec.attribute4 := l_old_aso_resource_rec.attribute4;
606: END IF;
607:
608: IF ( p_x_aso_resource_rec.attribute5 = FND_API.G_MISS_CHAR ) THEN
609: p_x_aso_resource_rec.attribute5 := null;
610: ELSIF ( p_x_aso_resource_rec.attribute5 IS NULL ) THEN
611: p_x_aso_resource_rec.attribute5 := l_old_aso_resource_rec.attribute5;
612: END IF;
610: ELSIF ( p_x_aso_resource_rec.attribute5 IS NULL ) THEN
611: p_x_aso_resource_rec.attribute5 := l_old_aso_resource_rec.attribute5;
612: END IF;
613:
614: IF ( p_x_aso_resource_rec.attribute6 = FND_API.G_MISS_CHAR ) THEN
615: p_x_aso_resource_rec.attribute6 := null;
616: ELSIF ( p_x_aso_resource_rec.attribute6 IS NULL ) THEN
617: p_x_aso_resource_rec.attribute6 := l_old_aso_resource_rec.attribute6;
618: END IF;
616: ELSIF ( p_x_aso_resource_rec.attribute6 IS NULL ) THEN
617: p_x_aso_resource_rec.attribute6 := l_old_aso_resource_rec.attribute6;
618: END IF;
619:
620: IF ( p_x_aso_resource_rec.attribute7 = FND_API.G_MISS_CHAR ) THEN
621: p_x_aso_resource_rec.attribute7 := null;
622: ELSIF ( p_x_aso_resource_rec.attribute7 IS NULL ) THEN
623: p_x_aso_resource_rec.attribute7 := l_old_aso_resource_rec.attribute7;
624: END IF;
622: ELSIF ( p_x_aso_resource_rec.attribute7 IS NULL ) THEN
623: p_x_aso_resource_rec.attribute7 := l_old_aso_resource_rec.attribute7;
624: END IF;
625:
626: IF ( p_x_aso_resource_rec.attribute8 = FND_API.G_MISS_CHAR ) THEN
627: p_x_aso_resource_rec.attribute8 := null;
628: ELSIF ( p_x_aso_resource_rec.attribute8 IS NULL ) THEN
629: p_x_aso_resource_rec.attribute8 := l_old_aso_resource_rec.attribute8;
630: END IF;
628: ELSIF ( p_x_aso_resource_rec.attribute8 IS NULL ) THEN
629: p_x_aso_resource_rec.attribute8 := l_old_aso_resource_rec.attribute8;
630: END IF;
631:
632: IF ( p_x_aso_resource_rec.attribute9 = FND_API.G_MISS_CHAR ) THEN
633: p_x_aso_resource_rec.attribute9 := null;
634: ELSIF ( p_x_aso_resource_rec.attribute9 IS NULL ) THEN
635: p_x_aso_resource_rec.attribute9 := l_old_aso_resource_rec.attribute9;
636: END IF;
634: ELSIF ( p_x_aso_resource_rec.attribute9 IS NULL ) THEN
635: p_x_aso_resource_rec.attribute9 := l_old_aso_resource_rec.attribute9;
636: END IF;
637:
638: IF ( p_x_aso_resource_rec.attribute10 = FND_API.G_MISS_CHAR ) THEN
639: p_x_aso_resource_rec.attribute10 := null;
640: ELSIF ( p_x_aso_resource_rec.attribute10 IS NULL ) THEN
641: p_x_aso_resource_rec.attribute10 := l_old_aso_resource_rec.attribute10;
642: END IF;
640: ELSIF ( p_x_aso_resource_rec.attribute10 IS NULL ) THEN
641: p_x_aso_resource_rec.attribute10 := l_old_aso_resource_rec.attribute10;
642: END IF;
643:
644: IF ( p_x_aso_resource_rec.attribute11 = FND_API.G_MISS_CHAR ) THEN
645: p_x_aso_resource_rec.attribute11 := null;
646: ELSIF ( p_x_aso_resource_rec.attribute11 IS NULL ) THEN
647: p_x_aso_resource_rec.attribute11 := l_old_aso_resource_rec.attribute11;
648: END IF;
646: ELSIF ( p_x_aso_resource_rec.attribute11 IS NULL ) THEN
647: p_x_aso_resource_rec.attribute11 := l_old_aso_resource_rec.attribute11;
648: END IF;
649:
650: IF ( p_x_aso_resource_rec.attribute12 = FND_API.G_MISS_CHAR ) THEN
651: p_x_aso_resource_rec.attribute12 := null;
652: ELSIF ( p_x_aso_resource_rec.attribute12 IS NULL ) THEN
653: p_x_aso_resource_rec.attribute12 := l_old_aso_resource_rec.attribute12;
654: END IF;
652: ELSIF ( p_x_aso_resource_rec.attribute12 IS NULL ) THEN
653: p_x_aso_resource_rec.attribute12 := l_old_aso_resource_rec.attribute12;
654: END IF;
655:
656: IF ( p_x_aso_resource_rec.attribute13 = FND_API.G_MISS_CHAR ) THEN
657: p_x_aso_resource_rec.attribute13 := null;
658: ELSIF ( p_x_aso_resource_rec.attribute13 IS NULL ) THEN
659: p_x_aso_resource_rec.attribute13 := l_old_aso_resource_rec.attribute13;
660: END IF;
658: ELSIF ( p_x_aso_resource_rec.attribute13 IS NULL ) THEN
659: p_x_aso_resource_rec.attribute13 := l_old_aso_resource_rec.attribute13;
660: END IF;
661:
662: IF ( p_x_aso_resource_rec.attribute14 = FND_API.G_MISS_CHAR ) THEN
663: p_x_aso_resource_rec.attribute14 := null;
664: ELSIF ( p_x_aso_resource_rec.attribute14 IS NULL ) THEN
665: p_x_aso_resource_rec.attribute14 := l_old_aso_resource_rec.attribute14;
666: END IF;
664: ELSIF ( p_x_aso_resource_rec.attribute14 IS NULL ) THEN
665: p_x_aso_resource_rec.attribute14 := l_old_aso_resource_rec.attribute14;
666: END IF;
667:
668: IF ( p_x_aso_resource_rec.attribute15 = FND_API.G_MISS_CHAR ) THEN
669: p_x_aso_resource_rec.attribute15 := null;
670: ELSIF ( p_x_aso_resource_rec.attribute15 IS NULL ) THEN
671: p_x_aso_resource_rec.attribute15 := l_old_aso_resource_rec.attribute15;
672: END IF;
732: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_MAPPING_REC' );
733: FND_MESSAGE.set_token( 'RECORD', p_x_bom_resource_rec.bom_resource_code);
734: FND_MSG_PUB.add;
735: CLOSE get_old_bom_rec;
736: RAISE FND_API.G_EXC_ERROR;
737: END IF;
738:
739: CLOSE get_old_bom_rec;
740:
738:
739: CLOSE get_old_bom_rec;
740:
741: -- Convert G_MISS values to NULL and NULL values to Old values
742: IF ( p_x_bom_resource_rec.bom_resource_id = FND_API.G_MISS_NUM ) THEN
743: p_x_bom_resource_rec.bom_resource_id := null;
744: ELSIF ( p_x_bom_resource_rec.bom_resource_id IS NULL ) THEN
745: p_x_bom_resource_rec.bom_resource_id := l_old_bom_resource_rec.bom_resource_id;
746: END IF;
744: ELSIF ( p_x_bom_resource_rec.bom_resource_id IS NULL ) THEN
745: p_x_bom_resource_rec.bom_resource_id := l_old_bom_resource_rec.bom_resource_id;
746: END IF;
747:
748: IF ( p_x_bom_resource_rec.bom_org_id = FND_API.G_MISS_NUM ) THEN
749: p_x_bom_resource_rec.bom_org_id := null;
750: ELSIF ( p_x_bom_resource_rec.bom_org_id IS NULL ) THEN
751: p_x_bom_resource_rec.bom_org_id := l_old_bom_resource_rec.bom_org_id;
752: END IF;
750: ELSIF ( p_x_bom_resource_rec.bom_org_id IS NULL ) THEN
751: p_x_bom_resource_rec.bom_org_id := l_old_bom_resource_rec.bom_org_id;
752: END IF;
753:
754: IF ( p_x_bom_resource_rec.attribute_category = FND_API.G_MISS_CHAR ) THEN
755: p_x_bom_resource_rec.attribute_category := null;
756: ELSIF ( p_x_bom_resource_rec.attribute_category IS NULL ) THEN
757: p_x_bom_resource_rec.attribute_category := l_old_bom_resource_rec.attribute_category;
758: END IF;
756: ELSIF ( p_x_bom_resource_rec.attribute_category IS NULL ) THEN
757: p_x_bom_resource_rec.attribute_category := l_old_bom_resource_rec.attribute_category;
758: END IF;
759:
760: IF ( p_x_bom_resource_rec.attribute1 = FND_API.G_MISS_CHAR ) THEN
761: p_x_bom_resource_rec.attribute1 := null;
762: ELSIF ( p_x_bom_resource_rec.attribute1 IS NULL ) THEN
763: p_x_bom_resource_rec.attribute1 := l_old_bom_resource_rec.attribute1;
764: END IF;
762: ELSIF ( p_x_bom_resource_rec.attribute1 IS NULL ) THEN
763: p_x_bom_resource_rec.attribute1 := l_old_bom_resource_rec.attribute1;
764: END IF;
765:
766: IF ( p_x_bom_resource_rec.attribute2 = FND_API.G_MISS_CHAR ) THEN
767: p_x_bom_resource_rec.attribute2 := null;
768: ELSIF ( p_x_bom_resource_rec.attribute2 IS NULL ) THEN
769: p_x_bom_resource_rec.attribute2 := l_old_bom_resource_rec.attribute2;
770: END IF;
768: ELSIF ( p_x_bom_resource_rec.attribute2 IS NULL ) THEN
769: p_x_bom_resource_rec.attribute2 := l_old_bom_resource_rec.attribute2;
770: END IF;
771:
772: IF ( p_x_bom_resource_rec.attribute3 = FND_API.G_MISS_CHAR ) THEN
773: p_x_bom_resource_rec.attribute3 := null;
774: ELSIF ( p_x_bom_resource_rec.attribute3 IS NULL ) THEN
775: p_x_bom_resource_rec.attribute3 := l_old_bom_resource_rec.attribute3;
776: END IF;
774: ELSIF ( p_x_bom_resource_rec.attribute3 IS NULL ) THEN
775: p_x_bom_resource_rec.attribute3 := l_old_bom_resource_rec.attribute3;
776: END IF;
777:
778: IF ( p_x_bom_resource_rec.attribute4 = FND_API.G_MISS_CHAR ) THEN
779: p_x_bom_resource_rec.attribute4 := null;
780: ELSIF ( p_x_bom_resource_rec.attribute4 IS NULL ) THEN
781: p_x_bom_resource_rec.attribute4 := l_old_bom_resource_rec.attribute4;
782: END IF;
780: ELSIF ( p_x_bom_resource_rec.attribute4 IS NULL ) THEN
781: p_x_bom_resource_rec.attribute4 := l_old_bom_resource_rec.attribute4;
782: END IF;
783:
784: IF ( p_x_bom_resource_rec.attribute5 = FND_API.G_MISS_CHAR ) THEN
785: p_x_bom_resource_rec.attribute5 := null;
786: ELSIF ( p_x_bom_resource_rec.attribute5 IS NULL ) THEN
787: p_x_bom_resource_rec.attribute5 := l_old_bom_resource_rec.attribute5;
788: END IF;
786: ELSIF ( p_x_bom_resource_rec.attribute5 IS NULL ) THEN
787: p_x_bom_resource_rec.attribute5 := l_old_bom_resource_rec.attribute5;
788: END IF;
789:
790: IF ( p_x_bom_resource_rec.attribute6 = FND_API.G_MISS_CHAR ) THEN
791: p_x_bom_resource_rec.attribute6 := null;
792: ELSIF ( p_x_bom_resource_rec.attribute6 IS NULL ) THEN
793: p_x_bom_resource_rec.attribute6 := l_old_bom_resource_rec.attribute6;
794: END IF;
792: ELSIF ( p_x_bom_resource_rec.attribute6 IS NULL ) THEN
793: p_x_bom_resource_rec.attribute6 := l_old_bom_resource_rec.attribute6;
794: END IF;
795:
796: IF ( p_x_bom_resource_rec.attribute7 = FND_API.G_MISS_CHAR ) THEN
797: p_x_bom_resource_rec.attribute7 := null;
798: ELSIF ( p_x_bom_resource_rec.attribute7 IS NULL ) THEN
799: p_x_bom_resource_rec.attribute7 := l_old_bom_resource_rec.attribute7;
800: END IF;
798: ELSIF ( p_x_bom_resource_rec.attribute7 IS NULL ) THEN
799: p_x_bom_resource_rec.attribute7 := l_old_bom_resource_rec.attribute7;
800: END IF;
801:
802: IF ( p_x_bom_resource_rec.attribute8 = FND_API.G_MISS_CHAR ) THEN
803: p_x_bom_resource_rec.attribute8 := null;
804: ELSIF ( p_x_bom_resource_rec.attribute8 IS NULL ) THEN
805: p_x_bom_resource_rec.attribute8 := l_old_bom_resource_rec.attribute8;
806: END IF;
804: ELSIF ( p_x_bom_resource_rec.attribute8 IS NULL ) THEN
805: p_x_bom_resource_rec.attribute8 := l_old_bom_resource_rec.attribute8;
806: END IF;
807:
808: IF ( p_x_bom_resource_rec.attribute9 = FND_API.G_MISS_CHAR ) THEN
809: p_x_bom_resource_rec.attribute9 := null;
810: ELSIF ( p_x_bom_resource_rec.attribute9 IS NULL ) THEN
811: p_x_bom_resource_rec.attribute9 := l_old_bom_resource_rec.attribute9;
812: END IF;
810: ELSIF ( p_x_bom_resource_rec.attribute9 IS NULL ) THEN
811: p_x_bom_resource_rec.attribute9 := l_old_bom_resource_rec.attribute9;
812: END IF;
813:
814: IF ( p_x_bom_resource_rec.attribute10 = FND_API.G_MISS_CHAR ) THEN
815: p_x_bom_resource_rec.attribute10 := null;
816: ELSIF ( p_x_bom_resource_rec.attribute10 IS NULL ) THEN
817: p_x_bom_resource_rec.attribute10 := l_old_bom_resource_rec.attribute10;
818: END IF;
816: ELSIF ( p_x_bom_resource_rec.attribute10 IS NULL ) THEN
817: p_x_bom_resource_rec.attribute10 := l_old_bom_resource_rec.attribute10;
818: END IF;
819:
820: IF ( p_x_bom_resource_rec.attribute11 = FND_API.G_MISS_CHAR ) THEN
821: p_x_bom_resource_rec.attribute11 := null;
822: ELSIF ( p_x_bom_resource_rec.attribute11 IS NULL ) THEN
823: p_x_bom_resource_rec.attribute11 := l_old_bom_resource_rec.attribute11;
824: END IF;
822: ELSIF ( p_x_bom_resource_rec.attribute11 IS NULL ) THEN
823: p_x_bom_resource_rec.attribute11 := l_old_bom_resource_rec.attribute11;
824: END IF;
825:
826: IF ( p_x_bom_resource_rec.attribute12 = FND_API.G_MISS_CHAR ) THEN
827: p_x_bom_resource_rec.attribute12 := null;
828: ELSIF ( p_x_bom_resource_rec.attribute12 IS NULL ) THEN
829: p_x_bom_resource_rec.attribute12 := l_old_bom_resource_rec.attribute12;
830: END IF;
828: ELSIF ( p_x_bom_resource_rec.attribute12 IS NULL ) THEN
829: p_x_bom_resource_rec.attribute12 := l_old_bom_resource_rec.attribute12;
830: END IF;
831:
832: IF ( p_x_bom_resource_rec.attribute13 = FND_API.G_MISS_CHAR ) THEN
833: p_x_bom_resource_rec.attribute13 := null;
834: ELSIF ( p_x_bom_resource_rec.attribute13 IS NULL ) THEN
835: p_x_bom_resource_rec.attribute13 := l_old_bom_resource_rec.attribute13;
836: END IF;
834: ELSIF ( p_x_bom_resource_rec.attribute13 IS NULL ) THEN
835: p_x_bom_resource_rec.attribute13 := l_old_bom_resource_rec.attribute13;
836: END IF;
837:
838: IF ( p_x_bom_resource_rec.attribute14 = FND_API.G_MISS_CHAR ) THEN
839: p_x_bom_resource_rec.attribute14 := null;
840: ELSIF ( p_x_bom_resource_rec.attribute14 IS NULL ) THEN
841: p_x_bom_resource_rec.attribute14 := l_old_bom_resource_rec.attribute14;
842: END IF;
840: ELSIF ( p_x_bom_resource_rec.attribute14 IS NULL ) THEN
841: p_x_bom_resource_rec.attribute14 := l_old_bom_resource_rec.attribute14;
842: END IF;
843:
844: IF ( p_x_bom_resource_rec.attribute15 = FND_API.G_MISS_CHAR ) THEN
845: p_x_bom_resource_rec.attribute15 := null;
846: ELSIF ( p_x_bom_resource_rec.attribute15 IS NULL ) THEN
847: p_x_bom_resource_rec.attribute15 := l_old_bom_resource_rec.attribute15;
848: END IF;
867: l_res_type NUMBER;
868: l_return_status VARCHAR2(1);
869:
870: BEGIN
871: l_return_status := FND_API.G_RET_STS_SUCCESS;
872: IF p_bom_resource_tbl.count > 0 THEN
873: FOR i IN p_bom_resource_tbl.FIRST..p_bom_resource_tbl.LAST LOOP
874: IF p_bom_resource_tbl(i).dml_operation <> 'D' THEN
875: OPEN get_bom_rec(p_bom_resource_tbl(i).bom_resource_id);
877: IF get_bom_rec%NOTFOUND THEN
878: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_BOM_RES_REC' );
879: FND_MESSAGE.set_token( 'RECORD', p_bom_resource_tbl(i).bom_resource_code);
880: FND_MSG_PUB.add;
881: l_return_status := FND_API.G_RET_STS_ERROR;
882: ELSIF trunc(nvl(l_get_bom_rec.disable_date,sysdate))
884: FND_MESSAGE.set_token( 'RECORD', p_bom_resource_tbl(i).bom_resource_code);
885: FND_MSG_PUB.add;
882: ELSIF trunc(nvl(l_get_bom_rec.disable_date,sysdate))
884: FND_MESSAGE.set_token( 'RECORD', p_bom_resource_tbl(i).bom_resource_code);
885: FND_MSG_PUB.add;
886: l_return_status := FND_API.G_RET_STS_ERROR;
887: ELSIF (l_get_bom_rec.resource_type <> p_aso_resource_rec.resource_type_id
888: OR l_get_bom_rec.resource_type IS NULL) THEN
889: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_BOM_RES_TYPE_NOT_MATCH' );
890: FND_MESSAGE.set_token( 'RECORD', p_bom_resource_tbl(i).bom_resource_code);
888: OR l_get_bom_rec.resource_type IS NULL) THEN
889: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_BOM_RES_TYPE_NOT_MATCH' );
890: FND_MESSAGE.set_token( 'RECORD', p_bom_resource_tbl(i).bom_resource_code);
891: FND_MSG_PUB.add;
892: l_return_status := FND_API.G_RET_STS_ERROR;
893: END IF;
894: CLOSE get_bom_rec;
895: END IF;
896: END LOOP;
893: END IF;
894: CLOSE get_bom_rec;
895: END IF;
896: END LOOP;
897: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
898: RAISE FND_API.G_EXC_ERROR;
899: END IF;
900: END IF;
901: END validate_bom_record;
894: CLOSE get_bom_rec;
895: END IF;
896: END LOOP;
897: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
898: RAISE FND_API.G_EXC_ERROR;
899: END IF;
900: END IF;
901: END validate_bom_record;
902:
925: IF ( get_dup_rec%FOUND ) THEN
926: CLOSE get_dup_rec;
927: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_ASO_RESOURCE_DUP' );
928: FND_MSG_PUB.add;
929: RAISE FND_API.G_EXC_ERROR;
930: ELSE
931: CLOSE get_dup_rec;
932: END IF;
933:
948: FND_MSG_PUB.add;
949: IF G_DEBUG = 'Y' THEN
950: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || G_API_NAME || ' : Inside validate_records procedure');
951: END IF;
952: RAISE FND_API.G_EXC_ERROR;
953: END IF;
954: END validate_records;
955:
956: -- Procedure to perform cross records validation in details table after DML Operations
1077: IF l_dummy_num < 1 THEN
1078: CLOSE get_bom_res_num;
1079: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_BOM_RES_COUNT_ZERO' );
1080: FND_MSG_PUB.add;
1081: RAISE FND_API.G_EXC_ERROR;
1082: END IF;
1083: CLOSE get_bom_res_num;
1084:
1085: OPEN get_bom_res_org (p_aso_resource_id);
1087: IF get_bom_res_org%FOUND THEN
1088: CLOSE get_bom_res_org;
1089: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_MUL_BOM_RES_PER_ORG' );
1090: FND_MSG_PUB.add;
1091: RAISE FND_API.G_EXC_ERROR;
1092: END IF;
1093: CLOSE get_bom_res_org;
1094:
1095: OPEN get_bom_res_dup (p_aso_resource_id);
1097: IF get_bom_res_dup%FOUND THEN
1098: CLOSE get_bom_res_dup;
1099: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_BOM_RESOURCE_DUP' );
1100: FND_MSG_PUB.add;
1101: RAISE FND_API.G_EXC_ERROR;
1102: END IF;
1103: CLOSE get_bom_res_dup;
1104:
1105: --pdoki ER 7436910 Begin.
1118: IF ( get_dept_conflicts%FOUND ) THEN
1119: CLOSE get_dept_conflicts;
1120: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_UPD_RES_CONFLICT' );
1121: FND_MSG_PUB.add;
1122: RAISE FND_API.G_EXC_ERROR;
1123: END IF;
1124: CLOSE get_dept_conflicts;
1125:
1126: --checking dept conflicts b/w the primary resource and alt resources of OTHER primary resources
1134: IF ( get_dept_conflicts_alt_res%FOUND ) THEN
1135: CLOSE get_dept_conflicts_alt_res;
1136: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_UPD_RES_CONFLICT' );
1137: FND_MSG_PUB.add;
1138: RAISE FND_API.G_EXC_ERROR;
1139: END IF;
1140: CLOSE get_dept_conflicts_alt_res;
1141: END LOOP;
1142: CLOSE get_rt_oper_res_ids;
1163: IF ( get_dept_conflicts_alt_pri%FOUND ) THEN
1164: CLOSE get_dept_conflicts_alt_pri;
1165: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_UPD_RES_CONFLICT' );
1166: FND_MSG_PUB.add;
1167: RAISE FND_API.G_EXC_ERROR;
1168: END IF;
1169: CLOSE get_dept_conflicts_alt_pri;
1170:
1171: END LOOP;
1176:
1177: PROCEDURE process_aso_resource
1178: (
1179: p_api_version IN NUMBER := 1.0,
1180: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1181: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1182: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1183: p_default IN VARCHAR2 := FND_API.G_FALSE,
1184: p_module_type IN VARCHAR2 := NULL,
1177: PROCEDURE process_aso_resource
1178: (
1179: p_api_version IN NUMBER := 1.0,
1180: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1181: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1182: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1183: p_default IN VARCHAR2 := FND_API.G_FALSE,
1184: p_module_type IN VARCHAR2 := NULL,
1185: x_return_status OUT NOCOPY VARCHAR2,
1178: (
1179: p_api_version IN NUMBER := 1.0,
1180: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1181: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1182: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1183: p_default IN VARCHAR2 := FND_API.G_FALSE,
1184: p_module_type IN VARCHAR2 := NULL,
1185: x_return_status OUT NOCOPY VARCHAR2,
1186: x_msg_count OUT NOCOPY NUMBER,
1179: p_api_version IN NUMBER := 1.0,
1180: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1181: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1182: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1183: p_default IN VARCHAR2 := FND_API.G_FALSE,
1184: p_module_type IN VARCHAR2 := NULL,
1185: x_return_status OUT NOCOPY VARCHAR2,
1186: x_msg_count OUT NOCOPY NUMBER,
1187: x_msg_data OUT NOCOPY VARCHAR2,
1201: WHERE aso_resource_id = c_resource_id;
1202:
1203: BEGIN
1204: -- Initialize API return status to success
1205: x_return_status := FND_API.G_RET_STS_SUCCESS;
1206:
1207: -- Standard Start of API savepoint
1208: SAVEPOINT process_aso_resource_pvt;
1209:
1207: -- Standard Start of API savepoint
1208: SAVEPOINT process_aso_resource_pvt;
1209:
1210: -- Standard call to check for call compatibility.
1211: IF NOT FND_API.compatible_api_call
1212: (
1213: l_api_version,
1214: p_api_version,
1215: G_API_NAME,
1215: G_API_NAME,
1216: G_PKG_NAME
1217: )
1218: THEN
1219: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1220: END IF;
1221:
1222: -- Initialize message list if p_init_msg_list is set to TRUE.
1223: IF FND_API.to_boolean( p_init_msg_list ) THEN
1219: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1220: END IF;
1221:
1222: -- Initialize message list if p_init_msg_list is set to TRUE.
1223: IF FND_API.to_boolean( p_init_msg_list ) THEN
1224: FND_MSG_PUB.initialize;
1225: END IF;
1226:
1227: IF G_DEBUG = 'Y' THEN
1249: );
1250: END IF;
1251:
1252: -- Convert Values into Ids.
1253: IF ( p_validation_level = FND_API.G_VALID_LEVEL_FULL ) THEN
1254: convert_values_to_ids
1255: (
1256: p_x_aso_resource_rec => p_x_aso_resource_rec,
1257: p_x_bom_resource_tbl => p_x_bom_resource_tbl
1262: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || G_API_NAME || ' : after convert_values_to_ids' );
1263: END IF;
1264:
1265: -- Default aso_resource attributes.
1266: IF FND_API.to_boolean( p_default ) THEN
1267: IF ( p_x_aso_resource_rec.dml_operation <> 'D' ) THEN
1268: default_attributes
1269: (
1270: p_x_aso_resource_rec,
1277: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || G_API_NAME || ' : after default_attributes' );
1278: END IF;
1279:
1280: -- Validate all attributes (Item level validation)
1281: IF ( p_validation_level = FND_API.G_VALID_LEVEL_FULL ) THEN
1282: validate_attributes
1283: (
1284: p_x_aso_resource_rec,
1285: p_x_bom_resource_tbl
1325: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || G_API_NAME || ' : after default_unchanged_attributes / default_missing_attributes' );
1326: END IF;
1327:
1328: -- Validate records (Across records validation)
1329: IF ( p_validation_level = FND_API.G_VALID_LEVEL_FULL ) THEN
1330: IF p_x_bom_resource_tbl.count > 0 THEN
1331: validate_bom_record
1332: (
1333: p_x_aso_resource_rec,
1671: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
1672: l_msg_count := FND_MSG_PUB.count_msg;
1673: IF l_msg_count > 0 THEN
1674: x_msg_count := l_msg_count;
1675: RAISE FND_API.G_EXC_ERROR;
1676: END IF;
1677:
1678: -- Perform the Commit (if requested)
1679: IF FND_API.to_boolean( p_commit ) THEN
1675: RAISE FND_API.G_EXC_ERROR;
1676: END IF;
1677:
1678: -- Perform the Commit (if requested)
1679: IF FND_API.to_boolean( p_commit ) THEN
1680: COMMIT WORK;
1681: END IF;
1682:
1683: -- Count and Get messages (optional)
1682:
1683: -- Count and Get messages (optional)
1684: FND_MSG_PUB.count_and_get
1685: (
1686: p_encoded => FND_API.G_FALSE,
1687: p_count => x_msg_count,
1688: p_data => x_msg_data
1689: );
1690:
1692: IF G_DEBUG = 'Y' THEN
1693: AHL_DEBUG_PUB.disable_debug;
1694: END IF;
1695: EXCEPTION
1696: WHEN FND_API.G_EXC_ERROR THEN
1697: ROLLBACK TO PROCESS_ASO_RESOURCE_PVT;
1698: x_return_status := FND_API.G_RET_STS_ERROR ;
1699: FND_MSG_PUB.count_and_get
1700: (
1694: END IF;
1695: EXCEPTION
1696: WHEN FND_API.G_EXC_ERROR THEN
1697: ROLLBACK TO PROCESS_ASO_RESOURCE_PVT;
1698: x_return_status := FND_API.G_RET_STS_ERROR ;
1699: FND_MSG_PUB.count_and_get
1700: (
1701: p_encoded => FND_API.G_FALSE,
1702: p_count => x_msg_count,
1697: ROLLBACK TO PROCESS_ASO_RESOURCE_PVT;
1698: x_return_status := FND_API.G_RET_STS_ERROR ;
1699: FND_MSG_PUB.count_and_get
1700: (
1701: p_encoded => FND_API.G_FALSE,
1702: p_count => x_msg_count,
1703: p_data => x_msg_data
1704: );
1705: -- Disable debug (if enabled)
1706: IF G_DEBUG = 'Y' THEN
1707: AHL_DEBUG_PUB.disable_debug;
1708: END IF;
1709:
1710: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1711: ROLLBACK TO process_aso_resource_PVT;
1712: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1713: FND_MSG_PUB.count_and_get
1714: (
1708: END IF;
1709:
1710: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1711: ROLLBACK TO process_aso_resource_PVT;
1712: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1713: FND_MSG_PUB.count_and_get
1714: (
1715: p_encoded => FND_API.G_FALSE,
1716: p_count => x_msg_count,
1711: ROLLBACK TO process_aso_resource_PVT;
1712: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1713: FND_MSG_PUB.count_and_get
1714: (
1715: p_encoded => FND_API.G_FALSE,
1716: p_count => x_msg_count,
1717: p_data => x_msg_data
1718: );
1719:
1723: END IF;
1724:
1725: WHEN OTHERS THEN
1726: ROLLBACK TO process_aso_resource_PVT;
1727: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1728: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1729: THEN
1730: FND_MSG_PUB.add_exc_msg
1731: (
1735: );
1736: END IF;
1737: FND_MSG_PUB.count_and_get
1738: (
1739: p_encoded => FND_API.G_FALSE,
1740: p_count => x_msg_count,
1741: p_data => x_msg_data
1742: );
1743: