DBA Data[Home] [Help]

APPS.EAM_CLEARANCE_VALIDATE_PVT dependencies on EAM_PROCESS_WO_PVT

Line 39: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Quering Clearance'); END IF;

35: l_return_status VARCHAR2(1);
36: l_work_clearance_header_rec EAM_PROCESS_SAFETY_PUB.eam_clearance_header_rec_type;
37:
38: BEGIN
39: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Quering Clearance'); END IF;
40:
41: EAM_CLEARANCE_UTILITY_PVT.QUERY_ROW (
42: p_work_clearance_id => p_work_clearance_header_rec.work_clearance_id ,
43: p_organization_id => p_work_clearance_header_rec.organization_id ,

Line 47: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Query Row Returned with : ' || l_return_status);

43: p_organization_id => p_work_clearance_header_rec.organization_id ,
44: x_work_clearance_header_rec => l_work_clearance_header_rec ,
45: x_Return_status => l_return_status );
46:
47: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Query Row Returned with : ' || l_return_status);
48: END IF;
49: IF l_return_status = EAM_PROCESS_WO_PVT.G_RECORD_FOUND AND p_work_clearance_header_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE THEN
50: l_out_mesg_token_tbl := l_mesg_token_tbl;
51: EAM_ERROR_MESSAGE_PVT.Add_Error_Token (

Line 49: IF l_return_status = EAM_PROCESS_WO_PVT.G_RECORD_FOUND AND p_work_clearance_header_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE THEN

45: x_Return_status => l_return_status );
46:
47: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Query Row Returned with : ' || l_return_status);
48: END IF;
49: IF l_return_status = EAM_PROCESS_WO_PVT.G_RECORD_FOUND AND p_work_clearance_header_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE THEN
50: l_out_mesg_token_tbl := l_mesg_token_tbl;
51: EAM_ERROR_MESSAGE_PVT.Add_Error_Token (
52: x_Mesg_token_tbl => l_out_Mesg_Token_Tbl ,
53: p_Mesg_Token_Tbl => l_Mesg_Token_Tbl ,

Line 59: ELSIF l_return_status = EAM_PROCESS_WO_PVT.G_RECORD_NOT_FOUND AND p_work_clearance_header_rec.transaction_type IN (EAM_PROCESS_WO_PVT.G_OPR_UPDATE, EAM_PROCESS_WO_PVT.G_OPR_DELETE) THEN

55: p_token_tbl => l_token_tbl );
56: l_mesg_token_tbl := l_out_mesg_token_tbl;
57: l_return_status := FND_API.G_RET_STS_ERROR;
58:
59: ELSIF l_return_status = EAM_PROCESS_WO_PVT.G_RECORD_NOT_FOUND AND p_work_clearance_header_rec.transaction_type IN (EAM_PROCESS_WO_PVT.G_OPR_UPDATE, EAM_PROCESS_WO_PVT.G_OPR_DELETE) THEN
60: l_token_tbl(1).token_name := 'SAFETY_NAME';
61: l_token_tbl(1).token_value := p_work_clearance_header_rec.work_clearance_name;
62: l_out_mesg_token_tbl := l_mesg_token_tbl;
63: EAM_ERROR_MESSAGE_PVT.Add_Error_Token (

Line 108: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Within Clearance Check Attributes . . . '); END IF;

104: l_Token_Tbl EAM_ERROR_MESSAGE_PVT.Token_Tbl_Type;
105: l_work_clearance_id number;
106: BEGIN
107:
108: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Within Clearance Check Attributes . . . '); END IF;
109: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating organization_id (EAM enabled) . . . ');
110: END IF;
111:
112: BEGIN

Line 109: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating organization_id (EAM enabled) . . . ');

105: l_work_clearance_id number;
106: BEGIN
107:
108: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Within Clearance Check Attributes . . . '); END IF;
109: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating organization_id (EAM enabled) . . . ');
110: END IF;
111:
112: BEGIN
113: SELECT 1

Line 135: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating if Clearance ID already exists for create . . . '); END IF;

131: x_mesg_token_tbl := l_mesg_token_tbl ;
132: RETURN;
133: END;
134:
135: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating if Clearance ID already exists for create . . . '); END IF;
136:
137: DECLARE
138: l_count NUMBER;
139: BEGIN

Line 140: IF (p_work_clearance_header_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE) THEN

136:
137: DECLARE
138: l_count NUMBER;
139: BEGIN
140: IF (p_work_clearance_header_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE) THEN
141: SELECT COUNT(*)
142: INTO l_count
143: FROM EAM_WORK_CLEARANCES
144: WHERE WORK_CLEARANCE_ID = p_work_clearance_header_rec.WORK_CLEARANCE_ID

Line 167: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating if Clearance ID exists for update . . . '); END IF;

163: x_mesg_token_tbl := l_mesg_token_tbl ;
164: RETURN;
165: END;
166:
167: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating if Clearance ID exists for update . . . '); END IF;
168:
169: DECLARE
170: l_count NUMBER;
171: BEGIN

Line 172: IF (p_work_clearance_header_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_UPDATE) THEN

168:
169: DECLARE
170: l_count NUMBER;
171: BEGIN
172: IF (p_work_clearance_header_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_UPDATE) THEN
173: SELECT COUNT(*)
174: INTO l_count
175: FROM EAM_WORK_CLEARANCES
176: WHERE WORK_CLEARANCE_ID = p_work_clearance_header_rec.WORK_CLEARANCE_ID

Line 203: IF (p_work_clearance_header_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE) THEN

199:
200: DECLARE
201: l_count NUMBER;
202: BEGIN
203: IF (p_work_clearance_header_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE) THEN
204:
205: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating Clearance Name in create. . . '); END IF;
206:
207: SELECT COUNT(*)

Line 205: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating Clearance Name in create. . . '); END IF;

201: l_count NUMBER;
202: BEGIN
203: IF (p_work_clearance_header_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE) THEN
204:
205: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating Clearance Name in create. . . '); END IF;
206:
207: SELECT COUNT(*)
208: INTO l_count
209: FROM EAM_WORK_CLEARANCES

Line 219: IF (p_work_clearance_header_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_UPDATE) THEN

215: END IF;
216:
217: -- Clearance name should be validated incase of copy Clearance,where transaction type is update.
218:
219: IF (p_work_clearance_header_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_UPDATE) THEN
220: BEGIN
221:
222: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating Clearance Name in Update '); END IF;
223:

Line 222: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating Clearance Name in Update '); END IF;

218:
219: IF (p_work_clearance_header_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_UPDATE) THEN
220: BEGIN
221:
222: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating Clearance Name in Update '); END IF;
223:
224: SELECT WORK_CLEARANCE_ID
225: INTO l_work_clearance_id
226: FROM EAM_WORK_CLEARANCES

Line 255: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating status_type. . . '); END IF;

251: RETURN;
252: END;
253:
254: -- status_type
255: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating status_type. . . '); END IF;
256:
257: BEGIN
258: IF (p_work_clearance_header_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE AND p_work_clearance_header_rec.system_status NOT IN (wip_constants.released, wip_constants.draft)) THEN
259: raise fnd_api.g_exc_unexpected_error;

Line 258: IF (p_work_clearance_header_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE AND p_work_clearance_header_rec.system_status NOT IN (wip_constants.released, wip_constants.draft)) THEN

254: -- status_type
255: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating status_type. . . '); END IF;
256:
257: BEGIN
258: IF (p_work_clearance_header_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE AND p_work_clearance_header_rec.system_status NOT IN (wip_constants.released, wip_constants.draft)) THEN
259: raise fnd_api.g_exc_unexpected_error;
260: -- elsif (p_work_clearance_header_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_UPDATE AND p_work_clearance_header_rec.system_status NOT IN (wip_constants.released, wip_constants.cancelled,wip_constants.comp_chrg,wip_constants.comp_nochrg )) THEN
261: -- raise fnd_api.g_exc_unexpected_error;
262: END IF;

Line 260: -- elsif (p_work_clearance_header_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_UPDATE AND p_work_clearance_header_rec.system_status NOT IN (wip_constants.released, wip_constants.cancelled,wip_constants.comp_chrg,wip_constants.comp_nochrg )) THEN

256:
257: BEGIN
258: IF (p_work_clearance_header_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_CREATE AND p_work_clearance_header_rec.system_status NOT IN (wip_constants.released, wip_constants.draft)) THEN
259: raise fnd_api.g_exc_unexpected_error;
260: -- elsif (p_work_clearance_header_rec.transaction_type = EAM_PROCESS_WO_PVT.G_OPR_UPDATE AND p_work_clearance_header_rec.system_status NOT IN (wip_constants.released, wip_constants.cancelled,wip_constants.comp_chrg,wip_constants.comp_nochrg )) THEN
261: -- raise fnd_api.g_exc_unexpected_error;
262: END IF;
263: x_return_status := FND_API.G_RET_STS_SUCCESS;
264: EXCEPTION

Line 278: /* IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating status_type for cancelled. . . '); END IF;

274: x_mesg_token_tbl := l_mesg_token_tbl ;
275: RETURN;
276: END;
277:
278: /* IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating status_type for cancelled. . . '); END IF;
279: BEGIN
280: IF (p_work_clearance_header_rec.transaction_type= EAM_PROCESS_WO_PVT.G_OPR_UPDATE AND
281: p_work_clearance_header_rec.status_type = wip_constants.cancelled OR
282: p_work_clearance_header_rec.PERMIT_NAME <> p_old_work_permit_header_rec.PERMIT_NAME OR

Line 280: IF (p_work_clearance_header_rec.transaction_type= EAM_PROCESS_WO_PVT.G_OPR_UPDATE AND

276: END;
277:
278: /* IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating status_type for cancelled. . . '); END IF;
279: BEGIN
280: IF (p_work_clearance_header_rec.transaction_type= EAM_PROCESS_WO_PVT.G_OPR_UPDATE AND
281: p_work_clearance_header_rec.status_type = wip_constants.cancelled OR
282: p_work_clearance_header_rec.PERMIT_NAME <> p_old_work_permit_header_rec.PERMIT_NAME OR
283: p_work_clearance_header_rec.PERMIT_TYPE <> p_old_work_permit_header_rec.PERMIT_TYPE OR
284: p_work_clearance_header_rec.DESCRIPTION <> p_old_work_permit_header_rec.DESCRIPTION OR

Line 328: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating user_id . . . '); END IF;

324: RETURN;
325: END; */
326:
327: -- user_id
328: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating user_id . . . '); END IF;
329:
330: BEGIN
331: IF (p_work_clearance_header_rec.user_id IS NOT NULL) THEN
332: SELECT 1

Line 353: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating responsibility_id . . . '); END IF;

349: RETURN;
350: END;
351:
352: -- responsibility_id
353: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Validating responsibility_id . . . '); END IF;
354:
355: BEGIN
356: IF (p_work_clearance_header_rec.responsibility_id IS NOT NULL) THEN
357: SELECT 1

Line 394: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Checking required attributes for Clearance . . . '); END IF;

390: l_Mesg_Token_Tbl EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type;
391: l_out_Mesg_Token_Tbl EAM_ERROR_MESSAGE_PVT.Mesg_Token_Tbl_Type;
392: l_Token_Tbl EAM_ERROR_MESSAGE_PVT.Token_Tbl_Type;
393: BEGIN
394: IF EAM_PROCESS_WO_PVT.GET_DEBUG = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug('Checking required attributes for Clearance . . . '); END IF;
395:
396: x_return_status := FND_API.G_RET_STS_SUCCESS;
397:
398: IF p_work_clearance_header_rec.WORK_CLEARANCE_ID IS NULL THEN