[Home] [Help]
265: l_msg_data VARCHAR(2000);
266: cursor l_Duplicate_csr (P_OpSeqId number, P_RtgSeqId number,
267: P_OpSeqNum number, P_OpType number, P_EffDate date) is
268: Select 'x' dummy
269: From dual
270: Where exists(
271: Select null
272: From bom_operation_sequences bos
273: where bos.routing_sequence_id = P_RtgSeqId
277: nvl(P_OpType, g_event)
278: and bos.operation_sequence_id <> P_OpSeqId);
279: cursor l_routing_csr (P_RtgSeqId number) is
280: Select 'x' dummy
281: From dual
282: Where not exists(
283: select null
284: from bom_operational_routings bor
285: where bor.routing_sequence_id = P_RtgSeqId);
296: cursor l_OtherOps_csr(P_RtgSeqId number, P_OpSeqId number,
297: P_OpSeqNum number, P_OpType number, P_EffDate date,
298: P_DisDate date) is
299: select 'x' dummy
300: From dual
301: Where exists (
302: select null
303: from bom_operation_sequences
304: where operation_sequence_id <> P_OpSeqId
330: And bos.standard_operation_id =
331: bso.standard_operation_id;
332: cursor l_OpResources_csr(P_OpSeqId number) is
333: Select 'x' dummy
334: From dual
335: Where exists(
336: Select null
337: From bom_operation_resources
338: Where operation_sequence_id = P_OpSeqId);
337: From bom_operation_resources
338: Where operation_sequence_id = P_OpSeqId);
339: cursor l_attachments_csr(P_OpSeqId number) is
340: Select 'x' dummy
341: From dual
342: Where exists(
343: Select null
344: From fnd_attached_documents
345: Where pk1_value = to_char(P_OpSeqId)
386: l_ProgramUpdate date;
387: cursor l_dept_csr(P_RtgSeqId number, P_DeptId number,
388: P_EffDate date) is
389: select 'x' dummy
390: from dual
391: where not exists(
392: Select null
393: from bom_departments bd,
394: bom_operational_routings bor
886: l_ApplicationId number;
887: l_ProgramUpdate date;
888: cursor l_NewOper_csr is
889: Select bom_operation_sequences_s.nextval new_op_seq_id
890: from dual;
891: BEGIN
892: -- Standard Start of API savepoint
893: SAVEPOINT CreateOperation_Pvt;
894: -- Standard call to check for call compatibility.