17: * type.
18: ****************************************************************************/
19: PROCEDURE Check_Entity
20: ( x_return_status OUT NOCOPY VARCHAR2
21: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
22: , p_eco_revision_rec IN ENG_Eco_PUB.Eco_Revision_Rec_Type
23: , p_Eco_Rev_Unexp_Rec IN Eng_Eco_Pub.Eco_Rev_Unexposed_Rec_Type
24: )
25: IS
25: IS
26: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
27: l_dummy VARCHAR2(80);
28: l_processed BOOLEAN;
29: l_token_tbl Error_Handler.Token_Tbl_Type;
30: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
31: l_Err_Text VARCHAR2(2000);
32: BEGIN
33:
26: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
27: l_dummy VARCHAR2(80);
28: l_processed BOOLEAN;
29: l_token_tbl Error_Handler.Token_Tbl_Type;
30: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
31: l_Err_Text VARCHAR2(2000);
32: BEGIN
33:
34: --dbms_output.put_line('Performing ECO Revisions Entity validation . . .');
91: l_token_tbl(2).token_name := 'ECO_NAME';
92: l_token_tbl(2).token_value :=
93: p_eco_revision_rec.eco_name;
94:
95: Error_Handler.Add_Error_Token
96: ( x_Mesg_token_tbl => l_Mesg_Token_Tbl
97: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
98: , p_message_name => 'ENG_ECO_REVISION_NOT_UNIQUE'
99: , p_token_tbl => l_token_tbl
123: -- Procedure Attributes
124:
125: PROCEDURE Check_Attributes
126: ( x_return_status OUT NOCOPY VARCHAR2
127: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
128: , p_eco_revision_rec IN ENG_Eco_PUB.Eco_Revision_Rec_Type
129: )
130: IS
131: BEGIN
160: -- Procedure Entity_Delete
161:
162: PROCEDURE Check_Entity_Delete
163: ( x_return_status OUT NOCOPY VARCHAR2
164: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
165: , p_eco_revision_rec IN ENG_Eco_PUB.Eco_Revision_Rec_Type
166: , p_Eco_Rev_Unexp_Rec IN Eng_Eco_Pub.Eco_Rev_Unexposed_Rec_Type
167: )
168: IS
198: ( p_eco_revision_rec IN Eng_Eco_Pub.Eco_Revision_Rec_Type
199: , p_eco_rev_unexp_rec IN Eng_Eco_Pub.Eco_Rev_Unexposed_Rec_Type
200: , x_old_eco_revision_rec IN OUT NOCOPY Eng_Eco_Pub.Eco_Revision_Rec_Type
201: , x_old_eco_rev_unexp_rec IN OUT NOCOPY Eng_Eco_Pub.Eco_Rev_Unexposed_Rec_Type
202: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
203: , x_Return_Status OUT NOCOPY VARCHAR2
204: )
205: IS
206: l_token_tbl Error_Handler.Token_Tbl_Type;
202: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
203: , x_Return_Status OUT NOCOPY VARCHAR2
204: )
205: IS
206: l_token_tbl Error_Handler.Token_Tbl_Type;
207: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
208: l_return_status VARCHAR2(1);
209: BEGIN
210: l_Token_Tbl(1).Token_Name := 'REVISION';
203: , x_Return_Status OUT NOCOPY VARCHAR2
204: )
205: IS
206: l_token_tbl Error_Handler.Token_Tbl_Type;
207: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
208: l_return_status VARCHAR2(1);
209: BEGIN
210: l_Token_Tbl(1).Token_Name := 'REVISION';
211: l_Token_Tbl(1).Token_Value := p_eco_Revision_rec.revision;
222: );
223: IF l_return_status = Eng_Globals.G_RECORD_FOUND AND
224: p_eco_revision_rec.transaction_type = Eng_Globals.G_OPR_CREATE
225: THEN
226: Error_Handler.Add_Error_Token
227: ( x_Mesg_token_tbl => l_Mesg_Token_Tbl
228: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
229: , p_message_name => 'ENG_ECO_REV_ALREADY_EXISTS'
230: , p_token_tbl => l_token_tbl
233: ELSIF l_return_status = Eng_Globals.G_RECORD_NOT_FOUND AND
234: p_eco_revision_rec.transaction_type IN
235: (Eng_Globals.G_OPR_UPDATE, Eng_Globals.G_OPR_DELETE)
236: THEN
237: Error_Handler.Add_Error_Token
238: ( x_Mesg_token_tbl => l_Mesg_Token_Tbl
239: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
240: , p_message_name => 'ENG_ECO_REV_DOESNOT_EXIST'
241: , p_token_tbl => l_token_tbl
242: );
243: l_return_status := FND_API.G_RET_STS_ERROR;
244: ELSIF l_Return_status = FND_API.G_RET_STS_UNEXP_ERROR
245: THEN
246: Error_Handler.Add_Error_Token
247: ( x_Mesg_token_tbl => l_Mesg_Token_Tbl
248: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
249: , p_message_name => 'ENG_REV_EXS_UNEXP_SKIP'
250: , p_token_tbl => l_token_tbl
269: PROCEDURE Check_Access
270: ( p_revision IN VARCHAR2
271: , p_change_notice IN VARCHAR2
272: , p_organization_id IN NUMBER
273: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
274: , x_Return_Status OUT NOCOPY VARCHAR2
275: )
276: IS
277: l_token_tbl Error_Handler.Token_Tbl_Type;
273: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
274: , x_Return_Status OUT NOCOPY VARCHAR2
275: )
276: IS
277: l_token_tbl Error_Handler.Token_Tbl_Type;
278: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
279: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
280: BEGIN
281: --
274: , x_Return_Status OUT NOCOPY VARCHAR2
275: )
276: IS
277: l_token_tbl Error_Handler.Token_Tbl_Type;
278: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
279: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
280: BEGIN
281: --
282: -- Use the ECO Check Access procedure to verify if the user has
301: );
302:
303: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
304: THEN
305: Error_Handler.Add_Error_Token
306: ( p_Message_Name => 'ENG_REV_ACCESS_FAT_FATAL'
307: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
308: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
309: , p_Token_Tbl => l_Token_Tbl
325: ****************************************************************************/
326: PROCEDURE CHECK_REQUIRED
327: ( x_return_status OUT NOCOPY VARCHAR2
328: , p_eco_revision_rec IN ENG_Eco_PUB.Eco_Revision_Rec_Type
329: , x_mesg_token_tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
330: )
331: IS
332: l_mesg_token_tbl Error_Handler.Mesg_token_Tbl_Type;
333:
328: , p_eco_revision_rec IN ENG_Eco_PUB.Eco_Revision_Rec_Type
329: , x_mesg_token_tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
330: )
331: IS
332: l_mesg_token_tbl Error_Handler.Mesg_token_Tbl_Type;
333:
334: BEGIN
335: IF p_eco_revision_rec.revision IS NULL OR
336: p_eco_revision_rec.revision = FND_API.G_MISS_CHAR
335: IF p_eco_revision_rec.revision IS NULL OR
336: p_eco_revision_rec.revision = FND_API.G_MISS_CHAR
337: THEN
338: x_return_status := FND_API.G_RET_STS_ERROR;
339: Error_Handler.Add_Error_Token
340: ( x_mesg_token_tbl => x_mesg_token_tbl
341: , p_mesg_token_tbl => l_mesg_token_tbl
342: , p_message_name => 'ENG_REVISION_KEYCOL_NULL'
343: );