54: OPEN C_Get_Task_Id(P_RQH_Rec.task_number);
55: FETCH C_Get_Task_Id INTO l_task_id;
56:
57: IF C_Get_Task_Id%NOTFOUND THEN
58: FND_MESSAGE.SET_NAME ('JTF', 'JTF_TASK_INVALID_TASK_NUMBER');
59: FND_MESSAGE.SET_TOKEN ('P_TASK_NUMBER', P_RQH_Rec.task_number, FALSE);
60: FND_MSG_PUB.ADD;
61: RAISE EXCP_USER_DEFINED;
62: END IF;
55: FETCH C_Get_Task_Id INTO l_task_id;
56:
57: IF C_Get_Task_Id%NOTFOUND THEN
58: FND_MESSAGE.SET_NAME ('JTF', 'JTF_TASK_INVALID_TASK_NUMBER');
59: FND_MESSAGE.SET_TOKEN ('P_TASK_NUMBER', P_RQH_Rec.task_number, FALSE);
60: FND_MSG_PUB.ADD;
61: RAISE EXCP_USER_DEFINED;
62: END IF;
63: CLOSE C_Get_Task_Id;
123: BEGIN
124: IF (l_pvt_RQH_rec.address_type IS NOT NULL
125: AND l_pvt_RQH_rec.address_type <> FND_API.G_MISS_CHAR
126: AND l_pvt_RQH_rec.address_type NOT IN ('R', 'T', 'C', 'S')) THEN
127: FND_MESSAGE.SET_NAME ('CSP', 'CSP_INVALID_ADDRESS_TYPE');
128: FND_MSG_PUB.ADD;
129: RAISE EXCP_USER_DEFINED;
130: END IF;
131: IF (l_pvt_RQH_Rec.ship_to_location_id IS NOT NULL
135: INTO l_count
136: FROM hr_locations
137: WHERE location_id = l_pvt_RQH_Rec.ship_to_location_id;
138: IF (l_count <= 0) THEN
139: FND_MESSAGE.SET_NAME ('PAY', 'HR_52034_DPF_LOCATION_EXIST');
140: FND_MSG_PUB.ADD;
141: RAISE EXCP_USER_DEFINED;
142: END IF;
143: EXCEPTION
152: INTO l_count
153: FROM jtf_Tasks_b
154: WHERE task_id = l_pvt_RQH_Rec.task_id;
155: IF (l_count <= 0) THEN
156: FND_MESSAGE.SET_NAME ('JTF', 'JTF_TASK_INVALID_TASK_ID');
157: FND_MESSAGE.SET_TOKEN ('P_TASK_ID', l_pvt_RQH_rec.task_id, FALSE);
158: FND_MSG_PUB.ADD;
159: RAISE EXCP_USER_DEFINED;
160: END IF;
153: FROM jtf_Tasks_b
154: WHERE task_id = l_pvt_RQH_Rec.task_id;
155: IF (l_count <= 0) THEN
156: FND_MESSAGE.SET_NAME ('JTF', 'JTF_TASK_INVALID_TASK_ID');
157: FND_MESSAGE.SET_TOKEN ('P_TASK_ID', l_pvt_RQH_rec.task_id, FALSE);
158: FND_MSG_PUB.ADD;
159: RAISE EXCP_USER_DEFINED;
160: END IF;
161: EXCEPTION
170: INTO l_count
171: FROM jtf_Task_assignments
172: WHERE task_assignment_id = l_pvt_RQH_Rec.task_assignment_id;
173: IF (l_count <= 0) THEN
174: FND_MESSAGE.SET_NAME ('JTF', 'JTF_TASK_INV_TK_ASS');
175: FND_MESSAGE.SET_TOKEN ('P_TASK_ASSIGNMENT_ID', l_pvt_RQH_rec.task_assignment_id, FALSE);
176: FND_MSG_PUB.ADD;
177: RAISE EXCP_USER_DEFINED;
178: END IF;
171: FROM jtf_Task_assignments
172: WHERE task_assignment_id = l_pvt_RQH_Rec.task_assignment_id;
173: IF (l_count <= 0) THEN
174: FND_MESSAGE.SET_NAME ('JTF', 'JTF_TASK_INV_TK_ASS');
175: FND_MESSAGE.SET_TOKEN ('P_TASK_ASSIGNMENT_ID', l_pvt_RQH_rec.task_assignment_id, FALSE);
176: FND_MSG_PUB.ADD;
177: RAISE EXCP_USER_DEFINED;
178: END IF;
179: EXCEPTION
193: AND jou.object_code = jov.object_code
194: AND jou.object_user_code = 'RESOURCES'
195: AND jov.object_code = l_pvt_RQH_rec.resource_type;
196: IF (l_count <= 0) THEN
197: FND_MESSAGE.SET_NAME ('JTF', 'JTF_AM_INVALID_RESOURCE_TYPE');
198: FND_MSG_PUB.ADD;
199: RAISE EXCP_USER_DEFINED;
200: END IF;
201: EXCEPTION
212: WHERE resource_id = l_pvt_RQH_rec.resource_id
213: AND ( end_date_active is null OR
214: trunc(end_date_active) >= trunc(sysdate));
215: IF (l_count <= 0) THEN
216: FND_MESSAGE.SET_NAME ('JTF', 'JTF_TASK_INV_RES_ID');
217: FND_MESSAGE.SET_TOKEN ('P_RESOURCE_ID', l_pvt_RQH_rec.resource_id, FALSE);
218: FND_MSG_PUB.ADD;
219: RAISE EXCP_USER_DEFINED;
220: END IF;
213: AND ( end_date_active is null OR
214: trunc(end_date_active) >= trunc(sysdate));
215: IF (l_count <= 0) THEN
216: FND_MESSAGE.SET_NAME ('JTF', 'JTF_TASK_INV_RES_ID');
217: FND_MESSAGE.SET_TOKEN ('P_RESOURCE_ID', l_pvt_RQH_rec.resource_id, FALSE);
218: FND_MSG_PUB.ADD;
219: RAISE EXCP_USER_DEFINED;
220: END IF;
221: EXCEPTION
230: INTO l_count
231: FROM mtl_parameters
232: WHERE organization_id = l_pvt_RQH_rec.destination_organization_id;
233: IF (l_count <= 0) THEN
234: FND_MESSAGE.SET_NAME ('INV', 'INV_ENTER_VALID_TOORG');
235: --FND_MESSAGE.SET_TOKEN ('PARAMETER', 'DESTINATION_ORGANIZATION', FALSE);
236: FND_MSG_PUB.ADD;
237: RAISE EXCP_USER_DEFINED;
238: END IF;
231: FROM mtl_parameters
232: WHERE organization_id = l_pvt_RQH_rec.destination_organization_id;
233: IF (l_count <= 0) THEN
234: FND_MESSAGE.SET_NAME ('INV', 'INV_ENTER_VALID_TOORG');
235: --FND_MESSAGE.SET_TOKEN ('PARAMETER', 'DESTINATION_ORGANIZATION', FALSE);
236: FND_MSG_PUB.ADD;
237: RAISE EXCP_USER_DEFINED;
238: END IF;
239: EXCEPTION
249: FROM mtl_secondary_inventories
250: WHERE organization_id = nvl(l_pvt_RQH_rec.destination_organization_id, organization_id)
251: AND secondary_inventory_name = l_pvt_RQH_rec.destination_subinventory;
252: IF (l_count <= 0) THEN
253: FND_MESSAGE.SET_NAME ('INV', 'INV-NO SUBINVENTORY RECORD');
254: FND_MESSAGE.SET_TOKEN ('SUBINV', l_pvt_RQH_rec.destination_subinventory, FALSE);
255: FND_MESSAGE.SET_TOKEN ('ORG', l_pvt_RQH_rec.destination_organization_id, FALSE);
256: FND_MSG_PUB.ADD;
257: RAISE EXCP_USER_DEFINED;
250: WHERE organization_id = nvl(l_pvt_RQH_rec.destination_organization_id, organization_id)
251: AND secondary_inventory_name = l_pvt_RQH_rec.destination_subinventory;
252: IF (l_count <= 0) THEN
253: FND_MESSAGE.SET_NAME ('INV', 'INV-NO SUBINVENTORY RECORD');
254: FND_MESSAGE.SET_TOKEN ('SUBINV', l_pvt_RQH_rec.destination_subinventory, FALSE);
255: FND_MESSAGE.SET_TOKEN ('ORG', l_pvt_RQH_rec.destination_organization_id, FALSE);
256: FND_MSG_PUB.ADD;
257: RAISE EXCP_USER_DEFINED;
258: END IF;
251: AND secondary_inventory_name = l_pvt_RQH_rec.destination_subinventory;
252: IF (l_count <= 0) THEN
253: FND_MESSAGE.SET_NAME ('INV', 'INV-NO SUBINVENTORY RECORD');
254: FND_MESSAGE.SET_TOKEN ('SUBINV', l_pvt_RQH_rec.destination_subinventory, FALSE);
255: FND_MESSAGE.SET_TOKEN ('ORG', l_pvt_RQH_rec.destination_organization_id, FALSE);
256: FND_MSG_PUB.ADD;
257: RAISE EXCP_USER_DEFINED;
258: END IF;
259: EXCEPTION
263: END IF;
264: IF (l_pvt_RQH_Rec.need_by_date IS NOT NULL
265: AND l_pvt_RQH_rec.need_by_date <> FND_API.G_MISS_DATE
266: AND trunc(l_pvt_RQH_rec.need_By_date) < trunc(sysdate)) THEN
267: FND_MESSAGE.SET_NAME ('CSP', 'CSP_INVALID_NEED_BY_DATE');
268: FND_MSG_PUB.ADD;
269: RAISE EXCP_USER_DEFINED;
270: END IF;
271: END;