[Home] [Help]
PACKAGE BODY: APPS.EAM_WO_QUA_VALIDATE_PVT
Source
1 PACKAGE BODY EAM_WO_QUA_VALIDATE_PVT AS
2 /* $Header: EAMVWQVB.pls 120.1 2006/06/17 02:28:35 baroy noship $ */
3 /***************************************************************************
4 --
5 -- Copyright (c) 2002 Oracle Corporation, Redwood Shores, CA, USA
6 -- All rights reserved.
7 --
8 -- FILENAME
9 --
10 -- EAMVWQVB.pls
11 --
12 -- DESCRIPTION
13 --
14 -- Body of package EAM_WO_QUA_VALIDATE_PVT
15 --
16 -- NOTES
17 --
18 -- HISTORY
19 --
20 -- 14-FEB-2005 mmaduska Initial Creation
21 ***************************************************************************/
22
23 PROCEDURE Check_Required
24 (
25 p_eam_wo_quality_rec IN EAM_PROCESS_WO_PUB.eam_wo_quality_rec_type
26 , x_return_status OUT NOCOPY VARCHAR2
27 , x_mesg_token_tbl OUT NOCOPY EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type
28 )IS
29 l_Mesg_Token_Tbl EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type;
30 l_out_Mesg_Token_Tbl EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type;
31 l_Token_Tbl EAM_ERROR_MESSAGE_PVT.Token_Tbl_Type;
32 l_status_type number;
33 BEGIN
34
35
36 x_return_status := FND_API.G_RET_STS_SUCCESS;
37
38 IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Work Order Completeion Quality Records processing Check Required'); END IF;
39
40 IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Check plan_id'); END IF;
41 IF p_eam_wo_quality_rec.plan_id IS NULL
42 THEN
43 l_token_tbl(1).token_name := 'WIP_ENTITY_NAME';
44 l_token_tbl(1).token_value := p_eam_wo_quality_rec.WIP_ENTITY_ID;
45
46 l_out_mesg_token_tbl := l_mesg_token_tbl;
47 EAM_ERROR_MESSAGE_PVT.Add_Error_Token
48 ( p_message_name => 'EAM_WCMP_PLANID_REQ'
49 , p_token_tbl => l_Token_tbl
50 , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
51 , x_Mesg_Token_Tbl => l_out_Mesg_Token_Tbl
52 );
53 l_mesg_token_tbl := l_out_mesg_token_tbl;
54 x_mesg_token_tbl := l_mesg_token_tbl ;
55 x_return_status := FND_API.G_RET_STS_ERROR;
56 return;
57 END IF;
58
59 IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Check element_id'); END IF;
60 IF p_eam_wo_quality_rec.element_id IS NULL
61 THEN
62 l_token_tbl(1).token_name := 'WIP_ENTITY_NAME';
63 l_token_tbl(1).token_value := p_eam_wo_quality_rec.WIP_ENTITY_ID;
64
65 l_out_mesg_token_tbl := l_mesg_token_tbl;
66 EAM_ERROR_MESSAGE_PVT.Add_Error_Token
67 ( p_message_name => 'EAM_WCMP_ELEMENT_ID_REQ'
68 , p_token_tbl => l_Token_tbl
69 , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
70 , x_Mesg_Token_Tbl => l_out_Mesg_Token_Tbl
71 );
72 l_mesg_token_tbl := l_out_mesg_token_tbl;
73 x_mesg_token_tbl := l_mesg_token_tbl ;
74 x_return_status := FND_API.G_RET_STS_ERROR;
75 return;
76 END IF;
77
78 IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Check element_value'); END IF;
79 IF p_eam_wo_quality_rec.element_value IS NULL
80 THEN
81 l_token_tbl(1).token_name := 'WIP_ENTITY_NAME';
82 l_token_tbl(1).token_value := p_eam_wo_quality_rec.WIP_ENTITY_ID;
83
84 l_out_mesg_token_tbl := l_mesg_token_tbl;
85 EAM_ERROR_MESSAGE_PVT.Add_Error_Token
86 ( p_message_name => 'EAM_WCMP_ELEMENT_VALUE_REQ'
87 , p_token_tbl => l_Token_tbl
88 , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
89 , x_Mesg_Token_Tbl => l_out_Mesg_Token_Tbl
90 );
91 l_mesg_token_tbl := l_out_mesg_token_tbl;
92 x_mesg_token_tbl := l_mesg_token_tbl ;
93 x_return_status := FND_API.G_RET_STS_ERROR;
94 return;
95 END IF;
96
97 IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Check operation_seq_number'); END IF;
98 IF p_eam_wo_quality_rec.transaction_number = 33 and p_eam_wo_quality_rec.operation_seq_number IS NULL
99 THEN
100 l_token_tbl(1).token_name := 'WIP_ENTITY_NAME';
101 l_token_tbl(1).token_value := p_eam_wo_quality_rec.WIP_ENTITY_ID;
102
103 l_out_mesg_token_tbl := l_mesg_token_tbl;
104 EAM_ERROR_MESSAGE_PVT.Add_Error_Token
105 ( p_message_name => 'EAM_WCMP_OPERATION_REQ'
106 , p_token_tbl => l_Token_tbl
107 , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
108 , x_Mesg_Token_Tbl => l_out_Mesg_Token_Tbl
109 );
110 l_mesg_token_tbl := l_out_mesg_token_tbl;
111 x_mesg_token_tbl := l_mesg_token_tbl ;
112 x_return_status := FND_API.G_RET_STS_ERROR;
113 return;
114 END IF;
115
116 IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Completed Check_Required'); END IF;
117 END Check_Required;
118
119 END EAM_WO_QUA_VALIDATE_PVT;