48: AND organization_id = current_org_id;
49:
50: BEGIN
51: /* Print the list of parameters */
52: FND_FILE.PUT_LINE(FND_FILE.LOG,'******************************************') ;
53: FND_FILE.PUT_LINE( FND_FILE.LOG,'SCOPE='||to_char(scope));
54: FND_FILE.PUT_LINE( FND_FILE.LOG,'CURRENT_ORG_ID='||to_char(current_org_id));
55: FND_FILE.PUT_LINE( FND_FILE.LOG,'ITEM_ID='||to_char(item_id));
56: FND_FILE.PUT_LINE( FND_FILE.LOG,'ITEM_FROM='||item_low);
49:
50: BEGIN
51: /* Print the list of parameters */
52: FND_FILE.PUT_LINE(FND_FILE.LOG,'******************************************') ;
53: FND_FILE.PUT_LINE( FND_FILE.LOG,'SCOPE='||to_char(scope));
54: FND_FILE.PUT_LINE( FND_FILE.LOG,'CURRENT_ORG_ID='||to_char(current_org_id));
55: FND_FILE.PUT_LINE( FND_FILE.LOG,'ITEM_ID='||to_char(item_id));
56: FND_FILE.PUT_LINE( FND_FILE.LOG,'ITEM_FROM='||item_low);
57: FND_FILE.PUT_LINE( FND_FILE.LOG,'ITEM_TO='||item_high);
50: BEGIN
51: /* Print the list of parameters */
52: FND_FILE.PUT_LINE(FND_FILE.LOG,'******************************************') ;
53: FND_FILE.PUT_LINE( FND_FILE.LOG,'SCOPE='||to_char(scope));
54: FND_FILE.PUT_LINE( FND_FILE.LOG,'CURRENT_ORG_ID='||to_char(current_org_id));
55: FND_FILE.PUT_LINE( FND_FILE.LOG,'ITEM_ID='||to_char(item_id));
56: FND_FILE.PUT_LINE( FND_FILE.LOG,'ITEM_FROM='||item_low);
57: FND_FILE.PUT_LINE( FND_FILE.LOG,'ITEM_TO='||item_high);
58: FND_FILE.PUT_LINE( FND_FILE.LOG,'OPERATION_TYPE='||to_char(operation_type));
51: /* Print the list of parameters */
52: FND_FILE.PUT_LINE(FND_FILE.LOG,'******************************************') ;
53: FND_FILE.PUT_LINE( FND_FILE.LOG,'SCOPE='||to_char(scope));
54: FND_FILE.PUT_LINE( FND_FILE.LOG,'CURRENT_ORG_ID='||to_char(current_org_id));
55: FND_FILE.PUT_LINE( FND_FILE.LOG,'ITEM_ID='||to_char(item_id));
56: FND_FILE.PUT_LINE( FND_FILE.LOG,'ITEM_FROM='||item_low);
57: FND_FILE.PUT_LINE( FND_FILE.LOG,'ITEM_TO='||item_high);
58: FND_FILE.PUT_LINE( FND_FILE.LOG,'OPERATION_TYPE='||to_char(operation_type));
59: FND_FILE.PUT_LINE( FND_FILE.LOG,'UPDATE_EVENTS='||to_char(update_events));
52: FND_FILE.PUT_LINE(FND_FILE.LOG,'******************************************') ;
53: FND_FILE.PUT_LINE( FND_FILE.LOG,'SCOPE='||to_char(scope));
54: FND_FILE.PUT_LINE( FND_FILE.LOG,'CURRENT_ORG_ID='||to_char(current_org_id));
55: FND_FILE.PUT_LINE( FND_FILE.LOG,'ITEM_ID='||to_char(item_id));
56: FND_FILE.PUT_LINE( FND_FILE.LOG,'ITEM_FROM='||item_low);
57: FND_FILE.PUT_LINE( FND_FILE.LOG,'ITEM_TO='||item_high);
58: FND_FILE.PUT_LINE( FND_FILE.LOG,'OPERATION_TYPE='||to_char(operation_type));
59: FND_FILE.PUT_LINE( FND_FILE.LOG,'UPDATE_EVENTS='||to_char(update_events));
60: FND_FILE.PUT_LINE(FND_FILE.LOG,'******************************************') ;
53: FND_FILE.PUT_LINE( FND_FILE.LOG,'SCOPE='||to_char(scope));
54: FND_FILE.PUT_LINE( FND_FILE.LOG,'CURRENT_ORG_ID='||to_char(current_org_id));
55: FND_FILE.PUT_LINE( FND_FILE.LOG,'ITEM_ID='||to_char(item_id));
56: FND_FILE.PUT_LINE( FND_FILE.LOG,'ITEM_FROM='||item_low);
57: FND_FILE.PUT_LINE( FND_FILE.LOG,'ITEM_TO='||item_high);
58: FND_FILE.PUT_LINE( FND_FILE.LOG,'OPERATION_TYPE='||to_char(operation_type));
59: FND_FILE.PUT_LINE( FND_FILE.LOG,'UPDATE_EVENTS='||to_char(update_events));
60: FND_FILE.PUT_LINE(FND_FILE.LOG,'******************************************') ;
61: /* Make sure the right set of parameter are passed */
54: FND_FILE.PUT_LINE( FND_FILE.LOG,'CURRENT_ORG_ID='||to_char(current_org_id));
55: FND_FILE.PUT_LINE( FND_FILE.LOG,'ITEM_ID='||to_char(item_id));
56: FND_FILE.PUT_LINE( FND_FILE.LOG,'ITEM_FROM='||item_low);
57: FND_FILE.PUT_LINE( FND_FILE.LOG,'ITEM_TO='||item_high);
58: FND_FILE.PUT_LINE( FND_FILE.LOG,'OPERATION_TYPE='||to_char(operation_type));
59: FND_FILE.PUT_LINE( FND_FILE.LOG,'UPDATE_EVENTS='||to_char(update_events));
60: FND_FILE.PUT_LINE(FND_FILE.LOG,'******************************************') ;
61: /* Make sure the right set of parameter are passed */
62: IF (scope = 2) AND ((item_low IS NULL) and (item_high is NULL)) THEN
55: FND_FILE.PUT_LINE( FND_FILE.LOG,'ITEM_ID='||to_char(item_id));
56: FND_FILE.PUT_LINE( FND_FILE.LOG,'ITEM_FROM='||item_low);
57: FND_FILE.PUT_LINE( FND_FILE.LOG,'ITEM_TO='||item_high);
58: FND_FILE.PUT_LINE( FND_FILE.LOG,'OPERATION_TYPE='||to_char(operation_type));
59: FND_FILE.PUT_LINE( FND_FILE.LOG,'UPDATE_EVENTS='||to_char(update_events));
60: FND_FILE.PUT_LINE(FND_FILE.LOG,'******************************************') ;
61: /* Make sure the right set of parameter are passed */
62: IF (scope = 2) AND ((item_low IS NULL) and (item_high is NULL)) THEN
63: raise Item_Range_Not_Specified ;
56: FND_FILE.PUT_LINE( FND_FILE.LOG,'ITEM_FROM='||item_low);
57: FND_FILE.PUT_LINE( FND_FILE.LOG,'ITEM_TO='||item_high);
58: FND_FILE.PUT_LINE( FND_FILE.LOG,'OPERATION_TYPE='||to_char(operation_type));
59: FND_FILE.PUT_LINE( FND_FILE.LOG,'UPDATE_EVENTS='||to_char(update_events));
60: FND_FILE.PUT_LINE(FND_FILE.LOG,'******************************************') ;
61: /* Make sure the right set of parameter are passed */
62: IF (scope = 2) AND ((item_low IS NULL) and (item_high is NULL)) THEN
63: raise Item_Range_Not_Specified ;
64: END IF ;
82:
83: For C1 in Cur_Rtg(Range_Item_Id)
84: Loop
85: if (C1.ALTERNATE_ROUTING_DESIGNATOR is not NULL) then
86: FND_FILE.PUT_LINE( FND_FILE.LOG,'Processing routing for item....' || Item_Name || ' with Alternate... ' || C1.ALTERNATE_ROUTING_DESIGNATOR);
87: else
88: FND_FILE.PUT_LINE( FND_FILE.LOG,'Processing routing for item....' || Item_Name);
89: end if;
90: BOM_CALC_CYNP.calc_cynp(C1.routing_sequence_id,1,1);
84: Loop
85: if (C1.ALTERNATE_ROUTING_DESIGNATOR is not NULL) then
86: FND_FILE.PUT_LINE( FND_FILE.LOG,'Processing routing for item....' || Item_Name || ' with Alternate... ' || C1.ALTERNATE_ROUTING_DESIGNATOR);
87: else
88: FND_FILE.PUT_LINE( FND_FILE.LOG,'Processing routing for item....' || Item_Name);
89: end if;
90: BOM_CALC_CYNP.calc_cynp(C1.routing_sequence_id,1,1);
91: End Loop;
92: End Loop;
102:
103: For C1 in Cur_Rtg(Range_Item_Id)
104: Loop
105: if (C1.ALTERNATE_ROUTING_DESIGNATOR is not NULL) then
106: FND_FILE.PUT_LINE( FND_FILE.LOG,'Processing routing for item....' || Item_Name || ' with Alternate... ' || C1.ALTERNATE_ROUTING_DESIGNATOR);
107: else
108: FND_FILE.PUT_LINE( FND_FILE.LOG,'Processing routing for item....' || Item_Name);
109: end if;
110: BOM_CALC_CYNP.calc_cynp(C1.routing_sequence_id,1,1);
104: Loop
105: if (C1.ALTERNATE_ROUTING_DESIGNATOR is not NULL) then
106: FND_FILE.PUT_LINE( FND_FILE.LOG,'Processing routing for item....' || Item_Name || ' with Alternate... ' || C1.ALTERNATE_ROUTING_DESIGNATOR);
107: else
108: FND_FILE.PUT_LINE( FND_FILE.LOG,'Processing routing for item....' || Item_Name);
109: end if;
110: BOM_CALC_CYNP.calc_cynp(C1.routing_sequence_id,1,1);
111: End Loop;
112: End Loop;
122:
123: For C1 in Cur_Rtg(Range_Item_Id)
124: Loop
125: if (C1.ALTERNATE_ROUTING_DESIGNATOR is not NULL) then
126: FND_FILE.PUT_LINE( FND_FILE.LOG,'Processing routing for item....' || Item_Name || ' with Alternate... ' || C1.ALTERNATE_ROUTING_DESIGNATOR);
127: else
128: FND_FILE.PUT_LINE( FND_FILE.LOG,'Processing routing for item....' || Item_Name);
129: end if;
130: BOM_CALC_CYNP.calc_cynp(C1.routing_sequence_id,1,1);
124: Loop
125: if (C1.ALTERNATE_ROUTING_DESIGNATOR is not NULL) then
126: FND_FILE.PUT_LINE( FND_FILE.LOG,'Processing routing for item....' || Item_Name || ' with Alternate... ' || C1.ALTERNATE_ROUTING_DESIGNATOR);
127: else
128: FND_FILE.PUT_LINE( FND_FILE.LOG,'Processing routing for item....' || Item_Name);
129: end if;
130: BOM_CALC_CYNP.calc_cynp(C1.routing_sequence_id,1,1);
131: End Loop;
132: End Loop;
140:
141: For C1 in Cur_Rtg(Item_Id)
142: Loop
143: if (C1.ALTERNATE_ROUTING_DESIGNATOR is not NULL) then
144: FND_FILE.PUT_LINE( FND_FILE.LOG,'Processing routing for item....' || Item_Name || ' with Alternate... ' || C1.ALTERNATE_ROUTING_DESIGNATOR);
145: else
146: FND_FILE.PUT_LINE( FND_FILE.LOG,'Processing routing for item....' || Item_Name);
147: end if;
148: BOM_CALC_CYNP.calc_cynp(C1.routing_sequence_id,1,1);
142: Loop
143: if (C1.ALTERNATE_ROUTING_DESIGNATOR is not NULL) then
144: FND_FILE.PUT_LINE( FND_FILE.LOG,'Processing routing for item....' || Item_Name || ' with Alternate... ' || C1.ALTERNATE_ROUTING_DESIGNATOR);
145: else
146: FND_FILE.PUT_LINE( FND_FILE.LOG,'Processing routing for item....' || Item_Name);
147: end if;
148: BOM_CALC_CYNP.calc_cynp(C1.routing_sequence_id,1,1);
149: End Loop;
150: end if;
147: end if;
148: BOM_CALC_CYNP.calc_cynp(C1.routing_sequence_id,1,1);
149: End Loop;
150: end if;
151: FND_FILE.PUT_LINE( FND_FILE.LOG,'Processing ends for Cumulative Yield...');
152: Exception
153: WHEN Item_Range_Not_Specified THEN
154: FND_FILE.PUT_LINE( FND_FILE.LOG,'ITEM RANGE NOT SPECIFIED');
155: RETCODE := 2;
150: end if;
151: FND_FILE.PUT_LINE( FND_FILE.LOG,'Processing ends for Cumulative Yield...');
152: Exception
153: WHEN Item_Range_Not_Specified THEN
154: FND_FILE.PUT_LINE( FND_FILE.LOG,'ITEM RANGE NOT SPECIFIED');
155: RETCODE := 2;
156: conc_status := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',Current_Error_Code);
157: WHEN Item_Specific_Not_Specified THEN
158: FND_FILE.PUT_LINE( FND_FILE.LOG,'Specific Item Value not Specified');
154: FND_FILE.PUT_LINE( FND_FILE.LOG,'ITEM RANGE NOT SPECIFIED');
155: RETCODE := 2;
156: conc_status := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',Current_Error_Code);
157: WHEN Item_Specific_Not_Specified THEN
158: FND_FILE.PUT_LINE( FND_FILE.LOG,'Specific Item Value not Specified');
159: RETCODE := 2;
160: conc_status := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',Current_Error_Code);
161: WHEN OTHERS THEN
162: FND_FILE.PUT_LINE(FND_FILE.LOG,'Others '||SQLCODE || ':'||SQLERRM) ;
158: FND_FILE.PUT_LINE( FND_FILE.LOG,'Specific Item Value not Specified');
159: RETCODE := 2;
160: conc_status := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',Current_Error_Code);
161: WHEN OTHERS THEN
162: FND_FILE.PUT_LINE(FND_FILE.LOG,'Others '||SQLCODE || ':'||SQLERRM) ;
163: RETCODE := 2;
164: conc_status := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',Current_Error_Code);
165: End Cumulative_Yield;
166:
175: v_Lead_Time_Profile_Val varchar2(50); --Variable to define profile for Lead Time Basis
176: l_line_hours NUMBER;
177: l_line_Seconds NUMBER;
178: BEGIN
179: FND_FILE.PUT_LINE(FND_FILE.LOG,'Inside calculation');
180:
181: BOM_CALC_CYNP.calc_cynp(rtg_seq_id, opr_type, 1);
182: BOM_CALC_TPCT.calculate_tpct(rtg_seq_id, to_char(opr_type));
183: BOM_CALC_OP_TIMES_PK.calculate_operation_times(org_id, rtg_seq_id);
275: )
276: IS
277: BEGIN
278: if (alt is not NULL) then
279: FND_FILE.PUT_LINE(FND_FILE.LOG,'Processing routing for item....'
280: || to_char(item_id) || ' with Alternate... '
281: || alt || 'Rtg_seq_id = '
282: || to_char(rtg_seq_id));
283: else
280: || to_char(item_id) || ' with Alternate... '
281: || alt || 'Rtg_seq_id = '
282: || to_char(rtg_seq_id));
283: else
284: FND_FILE.PUT_LINE(FND_FILE.LOG,'Processing routing for item....'
285: || to_char(item_id) || 'Rtg_seq_id '
286: || to_char(rtg_seq_id));
287: end if;
288: END print_debug;
406:
407: BEGIN
408: /* Print the list of parameters */
409:
410: FND_FILE.PUT_LINE(FND_FILE.LOG,'******************************************') ;
411: FND_FILE.PUT_LINE(FND_FILE.LOG,'SCOPE='||to_char(scope));
412: FND_FILE.PUT_LINE(FND_FILE.LOG,'CURRENT_ORG_ID='||to_char(current_org_id));
413: FND_FILE.PUT_LINE(FND_FILE.LOG,'ITEM_ID='||to_char(item_id));
414: FND_FILE.PUT_LINE(FND_FILE.LOG,'ITEM_FROM='||item_low);
407: BEGIN
408: /* Print the list of parameters */
409:
410: FND_FILE.PUT_LINE(FND_FILE.LOG,'******************************************') ;
411: FND_FILE.PUT_LINE(FND_FILE.LOG,'SCOPE='||to_char(scope));
412: FND_FILE.PUT_LINE(FND_FILE.LOG,'CURRENT_ORG_ID='||to_char(current_org_id));
413: FND_FILE.PUT_LINE(FND_FILE.LOG,'ITEM_ID='||to_char(item_id));
414: FND_FILE.PUT_LINE(FND_FILE.LOG,'ITEM_FROM='||item_low);
415: FND_FILE.PUT_LINE(FND_FILE.LOG,'ITEM_TO='||item_high);
408: /* Print the list of parameters */
409:
410: FND_FILE.PUT_LINE(FND_FILE.LOG,'******************************************') ;
411: FND_FILE.PUT_LINE(FND_FILE.LOG,'SCOPE='||to_char(scope));
412: FND_FILE.PUT_LINE(FND_FILE.LOG,'CURRENT_ORG_ID='||to_char(current_org_id));
413: FND_FILE.PUT_LINE(FND_FILE.LOG,'ITEM_ID='||to_char(item_id));
414: FND_FILE.PUT_LINE(FND_FILE.LOG,'ITEM_FROM='||item_low);
415: FND_FILE.PUT_LINE(FND_FILE.LOG,'ITEM_TO='||item_high);
416: FND_FILE.PUT_LINE(FND_FILE.LOG,'OPERATION_TYPE='||to_char(oper_type));
409:
410: FND_FILE.PUT_LINE(FND_FILE.LOG,'******************************************') ;
411: FND_FILE.PUT_LINE(FND_FILE.LOG,'SCOPE='||to_char(scope));
412: FND_FILE.PUT_LINE(FND_FILE.LOG,'CURRENT_ORG_ID='||to_char(current_org_id));
413: FND_FILE.PUT_LINE(FND_FILE.LOG,'ITEM_ID='||to_char(item_id));
414: FND_FILE.PUT_LINE(FND_FILE.LOG,'ITEM_FROM='||item_low);
415: FND_FILE.PUT_LINE(FND_FILE.LOG,'ITEM_TO='||item_high);
416: FND_FILE.PUT_LINE(FND_FILE.LOG,'OPERATION_TYPE='||to_char(oper_type));
417: FND_FILE.PUT_LINE(FND_FILE.LOG,'LINE_ID='||to_char(Line_Id));
410: FND_FILE.PUT_LINE(FND_FILE.LOG,'******************************************') ;
411: FND_FILE.PUT_LINE(FND_FILE.LOG,'SCOPE='||to_char(scope));
412: FND_FILE.PUT_LINE(FND_FILE.LOG,'CURRENT_ORG_ID='||to_char(current_org_id));
413: FND_FILE.PUT_LINE(FND_FILE.LOG,'ITEM_ID='||to_char(item_id));
414: FND_FILE.PUT_LINE(FND_FILE.LOG,'ITEM_FROM='||item_low);
415: FND_FILE.PUT_LINE(FND_FILE.LOG,'ITEM_TO='||item_high);
416: FND_FILE.PUT_LINE(FND_FILE.LOG,'OPERATION_TYPE='||to_char(oper_type));
417: FND_FILE.PUT_LINE(FND_FILE.LOG,'LINE_ID='||to_char(Line_Id));
418: FND_FILE.PUT_LINE(FND_FILE.LOG,'OPERATION_Name='||Operation_Name);
411: FND_FILE.PUT_LINE(FND_FILE.LOG,'SCOPE='||to_char(scope));
412: FND_FILE.PUT_LINE(FND_FILE.LOG,'CURRENT_ORG_ID='||to_char(current_org_id));
413: FND_FILE.PUT_LINE(FND_FILE.LOG,'ITEM_ID='||to_char(item_id));
414: FND_FILE.PUT_LINE(FND_FILE.LOG,'ITEM_FROM='||item_low);
415: FND_FILE.PUT_LINE(FND_FILE.LOG,'ITEM_TO='||item_high);
416: FND_FILE.PUT_LINE(FND_FILE.LOG,'OPERATION_TYPE='||to_char(oper_type));
417: FND_FILE.PUT_LINE(FND_FILE.LOG,'LINE_ID='||to_char(Line_Id));
418: FND_FILE.PUT_LINE(FND_FILE.LOG,'OPERATION_Name='||Operation_Name);
419: FND_FILE.PUT_LINE(FND_FILE.LOG,'Event_Name='||Event_Name);
412: FND_FILE.PUT_LINE(FND_FILE.LOG,'CURRENT_ORG_ID='||to_char(current_org_id));
413: FND_FILE.PUT_LINE(FND_FILE.LOG,'ITEM_ID='||to_char(item_id));
414: FND_FILE.PUT_LINE(FND_FILE.LOG,'ITEM_FROM='||item_low);
415: FND_FILE.PUT_LINE(FND_FILE.LOG,'ITEM_TO='||item_high);
416: FND_FILE.PUT_LINE(FND_FILE.LOG,'OPERATION_TYPE='||to_char(oper_type));
417: FND_FILE.PUT_LINE(FND_FILE.LOG,'LINE_ID='||to_char(Line_Id));
418: FND_FILE.PUT_LINE(FND_FILE.LOG,'OPERATION_Name='||Operation_Name);
419: FND_FILE.PUT_LINE(FND_FILE.LOG,'Event_Name='||Event_Name);
420: FND_FILE.PUT_LINE(FND_FILE.LOG,'******************************************') ;
413: FND_FILE.PUT_LINE(FND_FILE.LOG,'ITEM_ID='||to_char(item_id));
414: FND_FILE.PUT_LINE(FND_FILE.LOG,'ITEM_FROM='||item_low);
415: FND_FILE.PUT_LINE(FND_FILE.LOG,'ITEM_TO='||item_high);
416: FND_FILE.PUT_LINE(FND_FILE.LOG,'OPERATION_TYPE='||to_char(oper_type));
417: FND_FILE.PUT_LINE(FND_FILE.LOG,'LINE_ID='||to_char(Line_Id));
418: FND_FILE.PUT_LINE(FND_FILE.LOG,'OPERATION_Name='||Operation_Name);
419: FND_FILE.PUT_LINE(FND_FILE.LOG,'Event_Name='||Event_Name);
420: FND_FILE.PUT_LINE(FND_FILE.LOG,'******************************************') ;
421:
414: FND_FILE.PUT_LINE(FND_FILE.LOG,'ITEM_FROM='||item_low);
415: FND_FILE.PUT_LINE(FND_FILE.LOG,'ITEM_TO='||item_high);
416: FND_FILE.PUT_LINE(FND_FILE.LOG,'OPERATION_TYPE='||to_char(oper_type));
417: FND_FILE.PUT_LINE(FND_FILE.LOG,'LINE_ID='||to_char(Line_Id));
418: FND_FILE.PUT_LINE(FND_FILE.LOG,'OPERATION_Name='||Operation_Name);
419: FND_FILE.PUT_LINE(FND_FILE.LOG,'Event_Name='||Event_Name);
420: FND_FILE.PUT_LINE(FND_FILE.LOG,'******************************************') ;
421:
422: i := 1;
415: FND_FILE.PUT_LINE(FND_FILE.LOG,'ITEM_TO='||item_high);
416: FND_FILE.PUT_LINE(FND_FILE.LOG,'OPERATION_TYPE='||to_char(oper_type));
417: FND_FILE.PUT_LINE(FND_FILE.LOG,'LINE_ID='||to_char(Line_Id));
418: FND_FILE.PUT_LINE(FND_FILE.LOG,'OPERATION_Name='||Operation_Name);
419: FND_FILE.PUT_LINE(FND_FILE.LOG,'Event_Name='||Event_Name);
420: FND_FILE.PUT_LINE(FND_FILE.LOG,'******************************************') ;
421:
422: i := 1;
423: item_tab.DELETE;
416: FND_FILE.PUT_LINE(FND_FILE.LOG,'OPERATION_TYPE='||to_char(oper_type));
417: FND_FILE.PUT_LINE(FND_FILE.LOG,'LINE_ID='||to_char(Line_Id));
418: FND_FILE.PUT_LINE(FND_FILE.LOG,'OPERATION_Name='||Operation_Name);
419: FND_FILE.PUT_LINE(FND_FILE.LOG,'Event_Name='||Event_Name);
420: FND_FILE.PUT_LINE(FND_FILE.LOG,'******************************************') ;
421:
422: i := 1;
423: item_tab.DELETE;
424:
465: Operation_Code := Operation_Name;
466: END IF;
467:
468: IF l_all = 0 THEN
469: FND_FILE.PUT_LINE(FND_FILE.LOG,'Item/Item range specified, op type='||to_char(l_op_type));
470: FOR i IN 1..item_tab.COUNT
471: LOOP
472: IF Line_id is NULL THEN /*** Line is not specified ***/
473: FND_FILE.PUT_LINE(FND_FILE.LOG,'No line is specified');
469: FND_FILE.PUT_LINE(FND_FILE.LOG,'Item/Item range specified, op type='||to_char(l_op_type));
470: FOR i IN 1..item_tab.COUNT
471: LOOP
472: IF Line_id is NULL THEN /*** Line is not specified ***/
473: FND_FILE.PUT_LINE(FND_FILE.LOG,'No line is specified');
474: FOR C1 in Cur_Item_Flow_Rtg(item_tab(i))
475: Loop
476: print_debug(item_tab(i), C1.Alternate_Routing_Designator, C1.routing_sequence_id);
477: flm_calc_util(current_org_id, item_tab(i), l_op_type, C1.routing_sequence_id, Line_Id);
476: print_debug(item_tab(i), C1.Alternate_Routing_Designator, C1.routing_sequence_id);
477: flm_calc_util(current_org_id, item_tab(i), l_op_type, C1.routing_sequence_id, Line_Id);
478: End Loop;
479: ELSIF Operation_code is NULL THEN /*** Only Line is specified ***/
480: FND_FILE.PUT_LINE(FND_FILE.LOG,'Only line is specified');
481: FOR C1 in Cur_Item_Line_Flow_Rtg(item_tab(i), Line_Id)
482: Loop
483: print_debug(item_tab(i), C1.Alternate_Routing_Designator, C1.routing_sequence_id);
484: flm_calc_util(current_org_id, item_tab(i), l_op_type, C1.routing_sequence_id, Line_Id);
483: print_debug(item_tab(i), C1.Alternate_Routing_Designator, C1.routing_sequence_id);
484: flm_calc_util(current_org_id, item_tab(i), l_op_type, C1.routing_sequence_id, Line_Id);
485: End Loop;
486: ELSIF l_op_type > 1 THEN /*** Line and operation are specified ***/
487: FND_FILE.PUT_LINE(FND_FILE.LOG,'Line and operation is specified');
488: FOR C1 in Cur_Item_Line_Op_Flow_Rtg(item_tab(i), Line_id, Operation_Code)
489: Loop
490: print_debug(item_tab(i), C1.Alternate_Routing_Designator, C1.routing_sequence_id);
491: flm_calc_util(current_org_id, item_tab(i), l_op_type, C1.routing_sequence_id, Line_Id);
494: IF scope = 1 AND NOT l_found THEN
495: raise No_Op_On_Line;
496: END IF;
497: ELSE /*** Line, operation_type and Event are specified ***/
498: FND_FILE.PUT_LINE(FND_FILE.LOG,'Line, operation and event specified');
499: FOR C1 in Cur_Item_Line_Op_Flow_Rtg(item_tab(i), Line_id, Operation_Code)
500: Loop
501: l_op_flag := check_op_type(C1.routing_sequence_id, oper_type);
502: IF l_op_flag <> 1 THEN
510: END IF;
511: END IF;
512: End Loop;
513: ELSE
514: FND_FILE.PUT_LINE(FND_FILE.LOG,'Item/Item range NOT specified, selecting all items...');
515: IF Line_id is NULL THEN /*** Line is not specified ***/
516: FND_FILE.PUT_LINE(FND_FILE.LOG,'No line is specified');
517: FOR C1 in Cur_Flow_Rtg
518: Loop
512: End Loop;
513: ELSE
514: FND_FILE.PUT_LINE(FND_FILE.LOG,'Item/Item range NOT specified, selecting all items...');
515: IF Line_id is NULL THEN /*** Line is not specified ***/
516: FND_FILE.PUT_LINE(FND_FILE.LOG,'No line is specified');
517: FOR C1 in Cur_Flow_Rtg
518: Loop
519: print_debug(C1.assembly_item_id, C1.Alternate_Routing_Designator, C1.routing_sequence_id);
520: flm_calc_util(current_org_id, C1.assembly_item_id, l_op_type, C1.routing_sequence_id, Line_Id);
519: print_debug(C1.assembly_item_id, C1.Alternate_Routing_Designator, C1.routing_sequence_id);
520: flm_calc_util(current_org_id, C1.assembly_item_id, l_op_type, C1.routing_sequence_id, Line_Id);
521: End Loop;
522: ELSIF Operation_code is NULL THEN /*** Only Line is specified ***/
523: FND_FILE.PUT_LINE(FND_FILE.LOG,'Only line is specified');
524: FOR C1 in Cur_Line_Flow_Rtg(Line_Id)
525: Loop
526: print_debug(C1.assembly_item_id, C1.Alternate_Routing_Designator, C1.routing_sequence_id);
527: flm_calc_util(current_org_id, C1.assembly_item_id, l_op_type, C1.routing_sequence_id, Line_Id);
526: print_debug(C1.assembly_item_id, C1.Alternate_Routing_Designator, C1.routing_sequence_id);
527: flm_calc_util(current_org_id, C1.assembly_item_id, l_op_type, C1.routing_sequence_id, Line_Id);
528: End Loop;
529: ELSIF l_op_type > 1 THEN /*** Line and operation specified ***/
530: FND_FILE.PUT_LINE(FND_FILE.LOG,'Line and operation specified');
531: FOR C1 in Cur_Line_Op_Flow_Rtg(Line_id, Operation_Code)
532: Loop
533: print_debug(C1.assembly_item_id, C1.Alternate_Routing_Designator, C1.routing_sequence_id);
534: flm_calc_util(current_org_id, C1.assembly_item_id, l_op_type, C1.routing_sequence_id, Line_Id);
533: print_debug(C1.assembly_item_id, C1.Alternate_Routing_Designator, C1.routing_sequence_id);
534: flm_calc_util(current_org_id, C1.assembly_item_id, l_op_type, C1.routing_sequence_id, Line_Id);
535: End Loop;
536: ELSE /*** Line, Operation and event specified ***/
537: FND_FILE.PUT_LINE(FND_FILE.LOG,'Line, operation and event specified');
538: FOR C1 in Cur_Line_Op_Flow_Rtg(Line_id, Operation_Code)
539: Loop
540: l_op_flag := check_op_type(C1.routing_sequence_id, oper_type);
541: IF l_op_flag <> 1 THEN
548: END IF;
549: Exception
550:
551: WHEN No_Op_On_Line THEN
552: FND_FILE.PUT_LINE(FND_FILE.LOG,'Specified operation not available for the item on the line specified');
553: RETCODE := 2;
554: conc_status := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',Current_Error_Code);
555: WHEN No_Event_On_Line THEN
556: FND_FILE.PUT_LINE(FND_FILE.LOG,'Specified event not available for the item on the line specified');
552: FND_FILE.PUT_LINE(FND_FILE.LOG,'Specified operation not available for the item on the line specified');
553: RETCODE := 2;
554: conc_status := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',Current_Error_Code);
555: WHEN No_Event_On_Line THEN
556: FND_FILE.PUT_LINE(FND_FILE.LOG,'Specified event not available for the item on the line specified');
557: RETCODE := 2;
558: conc_status := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',Current_Error_Code);
559:
560: WHEN OTHERS THEN
557: RETCODE := 2;
558: conc_status := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',Current_Error_Code);
559:
560: WHEN OTHERS THEN
561: FND_FILE.PUT_LINE(FND_FILE.LOG,'Others '||SQLCODE || ':'||SQLERRM) ;
562: RETCODE := 2;
563: conc_status := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',Current_Error_Code);
564:
565: END Flow_Batch_Calc;