87: BEGIN
88:
89: IF p_action = 'SUBMIT' THEN
90: --Added for R12 payment security check begin.
91: l_has_access := CN_PAYMENT_SECURITY_PVT.get_security_access(
92: CN_PAYMENT_SECURITY_PVT.g_type_wksht,
93: CN_PAYMENT_SECURITY_PVT.g_access_wksht_submit);
94: IF ( l_has_access = FALSE)
95: THEN
88:
89: IF p_action = 'SUBMIT' THEN
90: --Added for R12 payment security check begin.
91: l_has_access := CN_PAYMENT_SECURITY_PVT.get_security_access(
92: CN_PAYMENT_SECURITY_PVT.g_type_wksht,
93: CN_PAYMENT_SECURITY_PVT.g_access_wksht_submit);
94: IF ( l_has_access = FALSE)
95: THEN
96: RAISE FND_API.G_EXC_ERROR ;
89: IF p_action = 'SUBMIT' THEN
90: --Added for R12 payment security check begin.
91: l_has_access := CN_PAYMENT_SECURITY_PVT.get_security_access(
92: CN_PAYMENT_SECURITY_PVT.g_type_wksht,
93: CN_PAYMENT_SECURITY_PVT.g_access_wksht_submit);
94: IF ( l_has_access = FALSE)
95: THEN
96: RAISE FND_API.G_EXC_ERROR ;
97: END IF;
99:
100: l_approval_status := 'SUBMITTED';
101: ELSIF p_action = 'APPROVE' THEN
102: --Added for R12 payment security check begin.
103: l_has_access := CN_PAYMENT_SECURITY_PVT.get_security_access(
104: CN_PAYMENT_SECURITY_PVT.g_type_wksht,
105: CN_PAYMENT_SECURITY_PVT.g_access_wksht_approve);
106: IF ( l_has_access = FALSE)
107: THEN
100: l_approval_status := 'SUBMITTED';
101: ELSIF p_action = 'APPROVE' THEN
102: --Added for R12 payment security check begin.
103: l_has_access := CN_PAYMENT_SECURITY_PVT.get_security_access(
104: CN_PAYMENT_SECURITY_PVT.g_type_wksht,
105: CN_PAYMENT_SECURITY_PVT.g_access_wksht_approve);
106: IF ( l_has_access = FALSE)
107: THEN
108: RAISE FND_API.G_EXC_ERROR ;
101: ELSIF p_action = 'APPROVE' THEN
102: --Added for R12 payment security check begin.
103: l_has_access := CN_PAYMENT_SECURITY_PVT.get_security_access(
104: CN_PAYMENT_SECURITY_PVT.g_type_wksht,
105: CN_PAYMENT_SECURITY_PVT.g_access_wksht_approve);
106: IF ( l_has_access = FALSE)
107: THEN
108: RAISE FND_API.G_EXC_ERROR ;
109: END IF;
117: INTO p_org_id
118: FROM cn_payruns
119: WHERE payrun_id = p_payrun_id;
120:
121: IF cn_payment_security_pvt.is_superuser(p_period_id => p_period_id,p_org_id=>p_org_id) = 1 THEN
122: -- insert record into cn_pay_approval_flow
123: SELECT cn_pay_approval_flow_s.NEXTVAL
124: INTO l_flow_rec.pay_approval_flow_id FROM dual;
125: l_flow_rec.payrun_id := p_payrun_id;
211: x_return_status := FND_API.G_RET_STS_SUCCESS;
212: -- API body
213:
214: --Added for R12 payment security check begin.
215: l_has_access := CN_PAYMENT_SECURITY_PVT.get_security_access(
216: CN_PAYMENT_SECURITY_PVT.g_type_wksht,
217: CN_PAYMENT_SECURITY_PVT.g_access_wksht_submit);
218: IF ( l_has_access = FALSE)
219: THEN
212: -- API body
213:
214: --Added for R12 payment security check begin.
215: l_has_access := CN_PAYMENT_SECURITY_PVT.get_security_access(
216: CN_PAYMENT_SECURITY_PVT.g_type_wksht,
217: CN_PAYMENT_SECURITY_PVT.g_access_wksht_submit);
218: IF ( l_has_access = FALSE)
219: THEN
220: RAISE FND_API.G_EXC_ERROR ;
213:
214: --Added for R12 payment security check begin.
215: l_has_access := CN_PAYMENT_SECURITY_PVT.get_security_access(
216: CN_PAYMENT_SECURITY_PVT.g_type_wksht,
217: CN_PAYMENT_SECURITY_PVT.g_access_wksht_submit);
218: IF ( l_has_access = FALSE)
219: THEN
220: RAISE FND_API.G_EXC_ERROR ;
221: END IF;
332: -- Initialize API return status to success
333: x_return_status := FND_API.G_RET_STS_SUCCESS;
334: -- API body
335: --Added for R12 payment security check begin.
336: l_has_access := CN_PAYMENT_SECURITY_PVT.get_security_access(
337: CN_PAYMENT_SECURITY_PVT.g_type_wksht,
338: CN_PAYMENT_SECURITY_PVT.g_access_wksht_approve);
339: IF ( l_has_access = FALSE)
340: THEN
333: x_return_status := FND_API.G_RET_STS_SUCCESS;
334: -- API body
335: --Added for R12 payment security check begin.
336: l_has_access := CN_PAYMENT_SECURITY_PVT.get_security_access(
337: CN_PAYMENT_SECURITY_PVT.g_type_wksht,
338: CN_PAYMENT_SECURITY_PVT.g_access_wksht_approve);
339: IF ( l_has_access = FALSE)
340: THEN
341: RAISE FND_API.G_EXC_ERROR ;
334: -- API body
335: --Added for R12 payment security check begin.
336: l_has_access := CN_PAYMENT_SECURITY_PVT.get_security_access(
337: CN_PAYMENT_SECURITY_PVT.g_type_wksht,
338: CN_PAYMENT_SECURITY_PVT.g_access_wksht_approve);
339: IF ( l_has_access = FALSE)
340: THEN
341: RAISE FND_API.G_EXC_ERROR ;
342: END IF;
460: x_return_status := FND_API.G_RET_STS_SUCCESS;
461: -- API body
462:
463: --Added for R12 payment security check begin.
464: l_has_access := CN_PAYMENT_SECURITY_PVT.get_security_access(
465: CN_PAYMENT_SECURITY_PVT.g_type_wksht,
466: CN_PAYMENT_SECURITY_PVT.g_access_wksht_reject);
467: IF ( l_has_access = FALSE)
468: THEN
461: -- API body
462:
463: --Added for R12 payment security check begin.
464: l_has_access := CN_PAYMENT_SECURITY_PVT.get_security_access(
465: CN_PAYMENT_SECURITY_PVT.g_type_wksht,
466: CN_PAYMENT_SECURITY_PVT.g_access_wksht_reject);
467: IF ( l_has_access = FALSE)
468: THEN
469: RAISE FND_API.G_EXC_ERROR ;
462:
463: --Added for R12 payment security check begin.
464: l_has_access := CN_PAYMENT_SECURITY_PVT.get_security_access(
465: CN_PAYMENT_SECURITY_PVT.g_type_wksht,
466: CN_PAYMENT_SECURITY_PVT.g_access_wksht_reject);
467: IF ( l_has_access = FALSE)
468: THEN
469: RAISE FND_API.G_EXC_ERROR ;
470: END IF;
574: x_return_status := FND_API.G_RET_STS_SUCCESS;
575: -- API body
576:
577: --Added for R12 payment security check begin.
578: l_has_access := CN_PAYMENT_SECURITY_PVT.get_security_access(
579: CN_PAYMENT_SECURITY_PVT.g_type_payrun,
580: CN_PAYMENT_SECURITY_PVT.g_access_payrun_pay);
581: IF ( l_has_access = FALSE)
582: THEN
575: -- API body
576:
577: --Added for R12 payment security check begin.
578: l_has_access := CN_PAYMENT_SECURITY_PVT.get_security_access(
579: CN_PAYMENT_SECURITY_PVT.g_type_payrun,
580: CN_PAYMENT_SECURITY_PVT.g_access_payrun_pay);
581: IF ( l_has_access = FALSE)
582: THEN
583: RAISE FND_API.G_EXC_ERROR ;
576:
577: --Added for R12 payment security check begin.
578: l_has_access := CN_PAYMENT_SECURITY_PVT.get_security_access(
579: CN_PAYMENT_SECURITY_PVT.g_type_payrun,
580: CN_PAYMENT_SECURITY_PVT.g_access_payrun_pay);
581: IF ( l_has_access = FALSE)
582: THEN
583: RAISE FND_API.G_EXC_ERROR ;
584: END IF;