1: PACKAGE BODY AHL_PRD_RESOURCE_TRANX_PVT AS
2: /*$Header: AHLVTRSB.pls 120.18 2008/01/15 00:47:10 sikumar ship $*/
3: --
4: G_PKG_NAME VARCHAR2(30):='AHL_PRD_RESOURCE_TRANX_PVT';
5: G_DEBUG VARCHAR2(1):=AHL_DEBUG_PUB.is_log_enabled;
6: PROCEDURE VALIDATE_RES_TRNX
7: (
8: p_prd_resrc_txn_tbl IN OUT NOCOPY PRD_RESOURCE_TXNS_TBL,
9: x_return_status OUT NOCOPY VARCHAR2
167: l_msg_index_out number;
168:
169: BEGIN
170: IF G_DEBUG='Y' THEN
171: AHL_DEBUG_PUB.debug( 'Start of procedure',l_proc_name);
172: END IF;
173:
174: IF p_prd_resrc_txn_tbl.COUNT >0
175: THEN
196: End if;
197: **sracha */
198:
199: IF (G_DEBUG = 'Y') THEN
200: AHL_DEBUG_PUB.Debug('Before GetResourceDet:' || l_org_id || ':' || p_prd_resrc_txn_tbl(i).resource_name);
201: END IF;
202:
203: Open GetResourceDet(--p_prd_resrc_txn_tbl(i).operation_sequence_num,
204: p_prd_resrc_txn_tbl(i).organization_id,
237: FND_MESSAGE.Set_Name('AHL', 'AHL_PP_RESTXN_UNTLCKD');
238: FND_MESSAGE.Set_Token('WO_NAME', l_wrkrec.workorder_name);
239: FND_MSG_PUB.ADD;
240: IF G_DEBUG='Y' THEN
241: AHL_DEBUG_PUB.debug('Unit is Locked',l_proc_name);
242: END IF;
243: END IF;
244: -- rroy
245: -- ACL Changes
262: END IF;
263: END IF; -- work order ID is null
264:
265: IF G_DEBUG='Y' THEN
266: AHL_DEBUG_PUB.debug( 'After Work Order ID validation:status is:' || l_wrkrec.STATUS_CODE,l_proc_name);
267: END IF;
268:
269: IF p_prd_resrc_txn_tbl(I).workorder_operation_id IS NULL
270: OR p_prd_resrc_txn_tbl(I).workorder_operation_id=FND_API.G_MISS_NUM
322: FND_MSG_PUB.ADD;
323: End if;
324:
325: IF G_DEBUG='Y' THEN
326: AHL_DEBUG_PUB.debug( 'After resource seq/dept validation',l_proc_name);
327: END IF;
328:
329: --Validate for employee number when resource is 'Labor'
330: IF l_res_rec.resource_type =2 THEN
373:
374: END IF; -- l_res_rec.resource_type =2
375:
376: IF G_DEBUG='Y' THEN
377: AHL_DEBUG_PUB.debug( 'After employee validation:employee_num:'|| p_prd_resrc_txn_tbl(I).employee_num || ':Person ID:' || p_prd_resrc_txn_tbl(I).person_id,l_proc_name);
378: END IF;
379:
380: If p_prd_resrc_txn_tbl(I).uom_code is null
381: Then
416:
417: End if;
418:
419: IF G_DEBUG='Y' THEN
420: AHL_DEBUG_PUB.debug( 'After quantity validation' ,l_proc_name);
421: END IF;
422:
423: -- validate and set txn date or end date.
424: IF (p_prd_resrc_txn_tbl(i).end_date IS NULL) THEN
425: IF (p_prd_resrc_txn_tbl(i).transaction_date) IS NOT NULL THEN
426: p_prd_resrc_txn_tbl(i).end_date := p_prd_resrc_txn_tbl(i).transaction_date + (p_prd_resrc_txn_tbl(I).qty/24);
427:
428: IF (G_DEBUG = 'Y') THEN
429: ahl_debug_pub.debug('End Date is null and Txn date is not Null. Txn Date is:' || to_char(p_prd_resrc_txn_tbl(i).transaction_date,'DD-MON-YYYY HH24:MI:SS'));
430: ahl_debug_pub.debug('Calc End Date is:' || to_char(p_prd_resrc_txn_tbl(i).end_date,'DD-MON-YYYY HH24:MI:SS'));
431: END IF;
432:
433: IF (p_prd_resrc_txn_tbl(i).end_date > sysdate)
426: p_prd_resrc_txn_tbl(i).end_date := p_prd_resrc_txn_tbl(i).transaction_date + (p_prd_resrc_txn_tbl(I).qty/24);
427:
428: IF (G_DEBUG = 'Y') THEN
429: ahl_debug_pub.debug('End Date is null and Txn date is not Null. Txn Date is:' || to_char(p_prd_resrc_txn_tbl(i).transaction_date,'DD-MON-YYYY HH24:MI:SS'));
430: ahl_debug_pub.debug('Calc End Date is:' || to_char(p_prd_resrc_txn_tbl(i).end_date,'DD-MON-YYYY HH24:MI:SS'));
431: END IF;
432:
433: IF (p_prd_resrc_txn_tbl(i).end_date > sysdate)
434: THEN
437: ||p_prd_resrc_txn_tbl(I).RESOURCE_SEQUENCE_NUM);
438:
439: FND_MESSAGE.SET_TOKEN('DATE', to_char(p_prd_resrc_txn_tbl(i).end_date,fnd_date.outputDT_mask));
440: IF (G_DEBUG = 'Y') THEN
441: ahl_debug_pub.debug('End Date > sysdate' || to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
442: END IF;
443: FND_MSG_PUB.ADD;
444: END IF;
445: END IF; -- (p_prd_resrc_txn_tbl(i).transaction_date)
446: ELSE -- p_prd_resrc_txn_tbl(i).end_date IS NULL
447: IF (p_prd_resrc_txn_tbl(i).transaction_date IS NULL) THEN
448: p_prd_resrc_txn_tbl(i).transaction_date := p_prd_resrc_txn_tbl(i).end_date - (p_prd_resrc_txn_tbl(I).qty/24) ;
449: IF (G_DEBUG = 'Y') THEN
450: ahl_debug_pub.debug('End Date is not null and Txn date is Null. End Date is:' || to_char(p_prd_resrc_txn_tbl(i).End_date,'DD-MON-YYYY HH24:MI:SS'));
451: ahl_debug_pub.debug('Calc Txn Date is:' || to_char(p_prd_resrc_txn_tbl(i).transaction_date,'DD-MON-YYYY HH24:MI:SS'));
452: END IF;
453: END IF;
454: END IF;
447: IF (p_prd_resrc_txn_tbl(i).transaction_date IS NULL) THEN
448: p_prd_resrc_txn_tbl(i).transaction_date := p_prd_resrc_txn_tbl(i).end_date - (p_prd_resrc_txn_tbl(I).qty/24) ;
449: IF (G_DEBUG = 'Y') THEN
450: ahl_debug_pub.debug('End Date is not null and Txn date is Null. End Date is:' || to_char(p_prd_resrc_txn_tbl(i).End_date,'DD-MON-YYYY HH24:MI:SS'));
451: ahl_debug_pub.debug('Calc Txn Date is:' || to_char(p_prd_resrc_txn_tbl(i).transaction_date,'DD-MON-YYYY HH24:MI:SS'));
452: END IF;
453: END IF;
454: END IF;
455:
460: -- transaction date should be less than or equal to sysdate
461: IF p_prd_resrc_txn_tbl(i).transaction_date IS NOT NULL THEN
462: IF p_prd_resrc_txn_tbl(i).transaction_date > sysdate THEN
463: IF (G_DEBUG = 'Y') THEN
464: ahl_debug_pub.debug('Trx Date is greater than sysdate:' || to_char(p_prd_resrc_txn_tbl(i).transaction_date,'DD-MON-YYYY HH24:MI:SS'));
465: END IF;
466:
467: FND_MESSAGE.set_name('AHL','AHL_PRD_RESTXN_DT_INVALID');
468: FND_MESSAGE.SET_TOKEN('OPER_RES',P_prd_resrc_txn_tbl(I).OPERATION_SEQUENCE_NUM||'-'
468: FND_MESSAGE.SET_TOKEN('OPER_RES',P_prd_resrc_txn_tbl(I).OPERATION_SEQUENCE_NUM||'-'
469: ||p_prd_resrc_txn_tbl(I).RESOURCE_SEQUENCE_NUM);
470: FND_MESSAGE.SET_TOKEN('DATE', to_char(p_prd_resrc_txn_tbl(i).transaction_date,fnd_date.outputDT_mask));
471: IF (G_DEBUG = 'Y') THEN
472: ahl_debug_pub.debug('Txn Date > sysdate' || to_char(sysdate,'DD-MON-YYYY HH24:MI:SS'));
473: END IF;
474: FND_MSG_PUB.ADD;
475: END IF;-- IF p_prd_resrc_txn_tbl(i).transaction_date > sysdate THEN
476:
495: END IF;-- IF p_prd_resrc_txn_tbl(i).transaction_date < l_release_date THEN
496: END IF;-- IF p_prd_resrc_txn_tbl(i).transaction_date IS NOT NULL THEN
497:
498: IF G_DEBUG='Y' THEN
499: AHL_DEBUG_PUB.debug( 'After transaction date validation' ,l_proc_name);
500: END IF;
501:
502: -- validate serial number.
503: -- Adithya modified the code to take department_id for Bug # 6326254 - Start
532:
533: END IF; -- p_prd_resrc_txn_tbl(i).serial_number
534:
535: IF G_DEBUG='Y' THEN
536: AHL_DEBUG_PUB.debug( 'After serial number validation' ,l_proc_name);
537: END IF;
538:
539: END LOOP;
540: END IF; -- IF p_prd_resrc_txn_tbl.COUNT >0
538:
539: END LOOP;
540: END IF; -- IF p_prd_resrc_txn_tbl.COUNT >0
541: IF G_DEBUG='Y' THEN
542: AHL_DEBUG_PUB.debug( 'End of procedure',l_proc_name);
543: END IF;
544:
545: --Adithya added the following debug
546: FND_MSG_PUB.count_and_get( p_encoded =>FND_API.G_FALSE,
549: IF l_msg_count > 0 THEN
550: if (l_msg_count = 1) THEN
551:
552: IF G_DEBUG='Y' THEN
553: AHL_DEBUG_PUB.debug( l_msg_data,l_proc_name);
554: END IF;
555: else
556: FOR i IN 1..l_msg_count LOOP
557:
559: p_encoded => 'F',
560: p_data => l_msg_data,
561: p_msg_index_out => l_msg_index_out);
562: IF G_DEBUG='Y' THEN
563: AHL_DEBUG_PUB.debug( 'Err mesg(i) -'|| i || ' ' || l_msg_data,l_proc_name);
564: END IF;
565:
566: end loop;
567: end if;
710:
711: BEGIN
712:
713: IF G_DEBUG='Y' THEN
714: AHL_DEBUG_PUB.enable_debug;
715: END IF;
716:
717: IF p_x_prd_resrc_txn_tbl.COUNT>0
718: THEN
719: FOR i in p_x_prd_resrc_txn_tbl.FIRST..p_x_prd_resrc_txn_tbl.LAST
720: LOOP
721: ---
722: IF G_DEBUG='Y' THEN
723: AHL_DEBUG_PUB.debug( ' API Input Dump->',l_proc_name);
724: AHL_DEBUG_PUB.debug( ' workorder_id------->'||p_x_prd_resrc_txn_tbl(I).WORKORDER_ID,l_proc_name);
725: AHL_DEBUG_PUB.debug( ' workorder_Oper_id-->'||p_x_prd_resrc_txn_tbl(I).WORKORDER_operation_id,l_proc_name);
726: AHL_DEBUG_PUB.debug( ' operation_sequence->'||p_x_prd_resrc_txn_tbl(I).OPERATION_SEQUENCE_NUM,l_proc_name);
727: AHL_DEBUG_PUB.debug( ' resource_sequence-->'||p_x_prd_resrc_txn_tbl(I).RESOURCE_SEQUENCE_num,l_proc_name);
720: LOOP
721: ---
722: IF G_DEBUG='Y' THEN
723: AHL_DEBUG_PUB.debug( ' API Input Dump->',l_proc_name);
724: AHL_DEBUG_PUB.debug( ' workorder_id------->'||p_x_prd_resrc_txn_tbl(I).WORKORDER_ID,l_proc_name);
725: AHL_DEBUG_PUB.debug( ' workorder_Oper_id-->'||p_x_prd_resrc_txn_tbl(I).WORKORDER_operation_id,l_proc_name);
726: AHL_DEBUG_PUB.debug( ' operation_sequence->'||p_x_prd_resrc_txn_tbl(I).OPERATION_SEQUENCE_NUM,l_proc_name);
727: AHL_DEBUG_PUB.debug( ' resource_sequence-->'||p_x_prd_resrc_txn_tbl(I).RESOURCE_SEQUENCE_num,l_proc_name);
728: AHL_DEBUG_PUB.debug( ' Organization id -->'||p_x_prd_resrc_txn_tbl(I).organization_id,l_proc_name);
721: ---
722: IF G_DEBUG='Y' THEN
723: AHL_DEBUG_PUB.debug( ' API Input Dump->',l_proc_name);
724: AHL_DEBUG_PUB.debug( ' workorder_id------->'||p_x_prd_resrc_txn_tbl(I).WORKORDER_ID,l_proc_name);
725: AHL_DEBUG_PUB.debug( ' workorder_Oper_id-->'||p_x_prd_resrc_txn_tbl(I).WORKORDER_operation_id,l_proc_name);
726: AHL_DEBUG_PUB.debug( ' operation_sequence->'||p_x_prd_resrc_txn_tbl(I).OPERATION_SEQUENCE_NUM,l_proc_name);
727: AHL_DEBUG_PUB.debug( ' resource_sequence-->'||p_x_prd_resrc_txn_tbl(I).RESOURCE_SEQUENCE_num,l_proc_name);
728: AHL_DEBUG_PUB.debug( ' Organization id -->'||p_x_prd_resrc_txn_tbl(I).organization_id,l_proc_name);
729: AHL_DEBUG_PUB.debug( ' Resource id -->'||p_x_prd_resrc_txn_tbl(I).resource_id,l_proc_name);
722: IF G_DEBUG='Y' THEN
723: AHL_DEBUG_PUB.debug( ' API Input Dump->',l_proc_name);
724: AHL_DEBUG_PUB.debug( ' workorder_id------->'||p_x_prd_resrc_txn_tbl(I).WORKORDER_ID,l_proc_name);
725: AHL_DEBUG_PUB.debug( ' workorder_Oper_id-->'||p_x_prd_resrc_txn_tbl(I).WORKORDER_operation_id,l_proc_name);
726: AHL_DEBUG_PUB.debug( ' operation_sequence->'||p_x_prd_resrc_txn_tbl(I).OPERATION_SEQUENCE_NUM,l_proc_name);
727: AHL_DEBUG_PUB.debug( ' resource_sequence-->'||p_x_prd_resrc_txn_tbl(I).RESOURCE_SEQUENCE_num,l_proc_name);
728: AHL_DEBUG_PUB.debug( ' Organization id -->'||p_x_prd_resrc_txn_tbl(I).organization_id,l_proc_name);
729: AHL_DEBUG_PUB.debug( ' Resource id -->'||p_x_prd_resrc_txn_tbl(I).resource_id,l_proc_name);
730: AHL_DEBUG_PUB.debug( ' Serial Number------->'||p_x_prd_resrc_txn_tbl(I).serial_number,l_proc_name);
723: AHL_DEBUG_PUB.debug( ' API Input Dump->',l_proc_name);
724: AHL_DEBUG_PUB.debug( ' workorder_id------->'||p_x_prd_resrc_txn_tbl(I).WORKORDER_ID,l_proc_name);
725: AHL_DEBUG_PUB.debug( ' workorder_Oper_id-->'||p_x_prd_resrc_txn_tbl(I).WORKORDER_operation_id,l_proc_name);
726: AHL_DEBUG_PUB.debug( ' operation_sequence->'||p_x_prd_resrc_txn_tbl(I).OPERATION_SEQUENCE_NUM,l_proc_name);
727: AHL_DEBUG_PUB.debug( ' resource_sequence-->'||p_x_prd_resrc_txn_tbl(I).RESOURCE_SEQUENCE_num,l_proc_name);
728: AHL_DEBUG_PUB.debug( ' Organization id -->'||p_x_prd_resrc_txn_tbl(I).organization_id,l_proc_name);
729: AHL_DEBUG_PUB.debug( ' Resource id -->'||p_x_prd_resrc_txn_tbl(I).resource_id,l_proc_name);
730: AHL_DEBUG_PUB.debug( ' Serial Number------->'||p_x_prd_resrc_txn_tbl(I).serial_number,l_proc_name);
731: AHL_DEBUG_PUB.debug( ' Instance Id------->'||p_x_prd_resrc_txn_tbl(I).instance_id,l_proc_name);
724: AHL_DEBUG_PUB.debug( ' workorder_id------->'||p_x_prd_resrc_txn_tbl(I).WORKORDER_ID,l_proc_name);
725: AHL_DEBUG_PUB.debug( ' workorder_Oper_id-->'||p_x_prd_resrc_txn_tbl(I).WORKORDER_operation_id,l_proc_name);
726: AHL_DEBUG_PUB.debug( ' operation_sequence->'||p_x_prd_resrc_txn_tbl(I).OPERATION_SEQUENCE_NUM,l_proc_name);
727: AHL_DEBUG_PUB.debug( ' resource_sequence-->'||p_x_prd_resrc_txn_tbl(I).RESOURCE_SEQUENCE_num,l_proc_name);
728: AHL_DEBUG_PUB.debug( ' Organization id -->'||p_x_prd_resrc_txn_tbl(I).organization_id,l_proc_name);
729: AHL_DEBUG_PUB.debug( ' Resource id -->'||p_x_prd_resrc_txn_tbl(I).resource_id,l_proc_name);
730: AHL_DEBUG_PUB.debug( ' Serial Number------->'||p_x_prd_resrc_txn_tbl(I).serial_number,l_proc_name);
731: AHL_DEBUG_PUB.debug( ' Instance Id------->'||p_x_prd_resrc_txn_tbl(I).instance_id,l_proc_name);
732: AHL_DEBUG_PUB.debug( ' Quantity------->'||p_x_prd_resrc_txn_tbl(I).qty,l_proc_name);
725: AHL_DEBUG_PUB.debug( ' workorder_Oper_id-->'||p_x_prd_resrc_txn_tbl(I).WORKORDER_operation_id,l_proc_name);
726: AHL_DEBUG_PUB.debug( ' operation_sequence->'||p_x_prd_resrc_txn_tbl(I).OPERATION_SEQUENCE_NUM,l_proc_name);
727: AHL_DEBUG_PUB.debug( ' resource_sequence-->'||p_x_prd_resrc_txn_tbl(I).RESOURCE_SEQUENCE_num,l_proc_name);
728: AHL_DEBUG_PUB.debug( ' Organization id -->'||p_x_prd_resrc_txn_tbl(I).organization_id,l_proc_name);
729: AHL_DEBUG_PUB.debug( ' Resource id -->'||p_x_prd_resrc_txn_tbl(I).resource_id,l_proc_name);
730: AHL_DEBUG_PUB.debug( ' Serial Number------->'||p_x_prd_resrc_txn_tbl(I).serial_number,l_proc_name);
731: AHL_DEBUG_PUB.debug( ' Instance Id------->'||p_x_prd_resrc_txn_tbl(I).instance_id,l_proc_name);
732: AHL_DEBUG_PUB.debug( ' Quantity------->'||p_x_prd_resrc_txn_tbl(I).qty,l_proc_name);
733: AHL_DEBUG_PUB.debug( ' Employee Num------->'||p_x_prd_resrc_txn_tbl(I).employee_num,l_proc_name);
726: AHL_DEBUG_PUB.debug( ' operation_sequence->'||p_x_prd_resrc_txn_tbl(I).OPERATION_SEQUENCE_NUM,l_proc_name);
727: AHL_DEBUG_PUB.debug( ' resource_sequence-->'||p_x_prd_resrc_txn_tbl(I).RESOURCE_SEQUENCE_num,l_proc_name);
728: AHL_DEBUG_PUB.debug( ' Organization id -->'||p_x_prd_resrc_txn_tbl(I).organization_id,l_proc_name);
729: AHL_DEBUG_PUB.debug( ' Resource id -->'||p_x_prd_resrc_txn_tbl(I).resource_id,l_proc_name);
730: AHL_DEBUG_PUB.debug( ' Serial Number------->'||p_x_prd_resrc_txn_tbl(I).serial_number,l_proc_name);
731: AHL_DEBUG_PUB.debug( ' Instance Id------->'||p_x_prd_resrc_txn_tbl(I).instance_id,l_proc_name);
732: AHL_DEBUG_PUB.debug( ' Quantity------->'||p_x_prd_resrc_txn_tbl(I).qty,l_proc_name);
733: AHL_DEBUG_PUB.debug( ' Employee Num------->'||p_x_prd_resrc_txn_tbl(I).employee_num,l_proc_name);
734: AHL_DEBUG_PUB.debug( ' Person ID------->'||p_x_prd_resrc_txn_tbl(I).person_id,l_proc_name);
727: AHL_DEBUG_PUB.debug( ' resource_sequence-->'||p_x_prd_resrc_txn_tbl(I).RESOURCE_SEQUENCE_num,l_proc_name);
728: AHL_DEBUG_PUB.debug( ' Organization id -->'||p_x_prd_resrc_txn_tbl(I).organization_id,l_proc_name);
729: AHL_DEBUG_PUB.debug( ' Resource id -->'||p_x_prd_resrc_txn_tbl(I).resource_id,l_proc_name);
730: AHL_DEBUG_PUB.debug( ' Serial Number------->'||p_x_prd_resrc_txn_tbl(I).serial_number,l_proc_name);
731: AHL_DEBUG_PUB.debug( ' Instance Id------->'||p_x_prd_resrc_txn_tbl(I).instance_id,l_proc_name);
732: AHL_DEBUG_PUB.debug( ' Quantity------->'||p_x_prd_resrc_txn_tbl(I).qty,l_proc_name);
733: AHL_DEBUG_PUB.debug( ' Employee Num------->'||p_x_prd_resrc_txn_tbl(I).employee_num,l_proc_name);
734: AHL_DEBUG_PUB.debug( ' Person ID------->'||p_x_prd_resrc_txn_tbl(I).person_id,l_proc_name);
735: AHL_DEBUG_PUB.debug( ' uom_code------->'||p_x_prd_resrc_txn_tbl(I).uom_code,l_proc_name);
728: AHL_DEBUG_PUB.debug( ' Organization id -->'||p_x_prd_resrc_txn_tbl(I).organization_id,l_proc_name);
729: AHL_DEBUG_PUB.debug( ' Resource id -->'||p_x_prd_resrc_txn_tbl(I).resource_id,l_proc_name);
730: AHL_DEBUG_PUB.debug( ' Serial Number------->'||p_x_prd_resrc_txn_tbl(I).serial_number,l_proc_name);
731: AHL_DEBUG_PUB.debug( ' Instance Id------->'||p_x_prd_resrc_txn_tbl(I).instance_id,l_proc_name);
732: AHL_DEBUG_PUB.debug( ' Quantity------->'||p_x_prd_resrc_txn_tbl(I).qty,l_proc_name);
733: AHL_DEBUG_PUB.debug( ' Employee Num------->'||p_x_prd_resrc_txn_tbl(I).employee_num,l_proc_name);
734: AHL_DEBUG_PUB.debug( ' Person ID------->'||p_x_prd_resrc_txn_tbl(I).person_id,l_proc_name);
735: AHL_DEBUG_PUB.debug( ' uom_code------->'||p_x_prd_resrc_txn_tbl(I).uom_code,l_proc_name);
736: AHL_DEBUG_PUB.debug( ' uom_meaning------->'||p_x_prd_resrc_txn_tbl(I).uom_meaning,l_proc_name);
729: AHL_DEBUG_PUB.debug( ' Resource id -->'||p_x_prd_resrc_txn_tbl(I).resource_id,l_proc_name);
730: AHL_DEBUG_PUB.debug( ' Serial Number------->'||p_x_prd_resrc_txn_tbl(I).serial_number,l_proc_name);
731: AHL_DEBUG_PUB.debug( ' Instance Id------->'||p_x_prd_resrc_txn_tbl(I).instance_id,l_proc_name);
732: AHL_DEBUG_PUB.debug( ' Quantity------->'||p_x_prd_resrc_txn_tbl(I).qty,l_proc_name);
733: AHL_DEBUG_PUB.debug( ' Employee Num------->'||p_x_prd_resrc_txn_tbl(I).employee_num,l_proc_name);
734: AHL_DEBUG_PUB.debug( ' Person ID------->'||p_x_prd_resrc_txn_tbl(I).person_id,l_proc_name);
735: AHL_DEBUG_PUB.debug( ' uom_code------->'||p_x_prd_resrc_txn_tbl(I).uom_code,l_proc_name);
736: AHL_DEBUG_PUB.debug( ' uom_meaning------->'||p_x_prd_resrc_txn_tbl(I).uom_meaning,l_proc_name);
737: END IF;
730: AHL_DEBUG_PUB.debug( ' Serial Number------->'||p_x_prd_resrc_txn_tbl(I).serial_number,l_proc_name);
731: AHL_DEBUG_PUB.debug( ' Instance Id------->'||p_x_prd_resrc_txn_tbl(I).instance_id,l_proc_name);
732: AHL_DEBUG_PUB.debug( ' Quantity------->'||p_x_prd_resrc_txn_tbl(I).qty,l_proc_name);
733: AHL_DEBUG_PUB.debug( ' Employee Num------->'||p_x_prd_resrc_txn_tbl(I).employee_num,l_proc_name);
734: AHL_DEBUG_PUB.debug( ' Person ID------->'||p_x_prd_resrc_txn_tbl(I).person_id,l_proc_name);
735: AHL_DEBUG_PUB.debug( ' uom_code------->'||p_x_prd_resrc_txn_tbl(I).uom_code,l_proc_name);
736: AHL_DEBUG_PUB.debug( ' uom_meaning------->'||p_x_prd_resrc_txn_tbl(I).uom_meaning,l_proc_name);
737: END IF;
738: ---
731: AHL_DEBUG_PUB.debug( ' Instance Id------->'||p_x_prd_resrc_txn_tbl(I).instance_id,l_proc_name);
732: AHL_DEBUG_PUB.debug( ' Quantity------->'||p_x_prd_resrc_txn_tbl(I).qty,l_proc_name);
733: AHL_DEBUG_PUB.debug( ' Employee Num------->'||p_x_prd_resrc_txn_tbl(I).employee_num,l_proc_name);
734: AHL_DEBUG_PUB.debug( ' Person ID------->'||p_x_prd_resrc_txn_tbl(I).person_id,l_proc_name);
735: AHL_DEBUG_PUB.debug( ' uom_code------->'||p_x_prd_resrc_txn_tbl(I).uom_code,l_proc_name);
736: AHL_DEBUG_PUB.debug( ' uom_meaning------->'||p_x_prd_resrc_txn_tbl(I).uom_meaning,l_proc_name);
737: END IF;
738: ---
739:
732: AHL_DEBUG_PUB.debug( ' Quantity------->'||p_x_prd_resrc_txn_tbl(I).qty,l_proc_name);
733: AHL_DEBUG_PUB.debug( ' Employee Num------->'||p_x_prd_resrc_txn_tbl(I).employee_num,l_proc_name);
734: AHL_DEBUG_PUB.debug( ' Person ID------->'||p_x_prd_resrc_txn_tbl(I).person_id,l_proc_name);
735: AHL_DEBUG_PUB.debug( ' uom_code------->'||p_x_prd_resrc_txn_tbl(I).uom_code,l_proc_name);
736: AHL_DEBUG_PUB.debug( ' uom_meaning------->'||p_x_prd_resrc_txn_tbl(I).uom_meaning,l_proc_name);
737: END IF;
738: ---
739:
740: IF p_x_prd_resrc_txn_tbl(I).OPERATION_SEQUENCE_NUM IS NOT NULL AND
766: ( p_x_prd_resrc_txn_tbl(I).department_code IS NULL OR
767: p_x_prd_resrc_txn_tbl(I).department_code = FND_API.G_MISS_CHAR )
768: THEN
769: IF G_DEBUG='Y' THEN
770: AHL_DEBUG_PUB.debug( 'Defaulting Dept Id and Code',l_proc_name);
771: END IF;
772: p_x_prd_resrc_txn_tbl(I).department_id:=l_oper_rec.department_id;
773: p_x_prd_resrc_txn_tbl(I).department_code:=l_oper_rec.department_code;
774: p_x_prd_resrc_txn_tbl(I).organization_id:=l_oper_rec.organization_id;
948: CLOSE CurGetEmployee;
949: End if;
950:
951: IF G_DEBUG='Y' THEN
952: AHL_DEBUG_PUB.debug( ' workorder_id------->'||p_x_prd_resrc_txn_tbl(I).WORKORDER_ID);
953: AHL_DEBUG_PUB.debug( ' workorder_Oper_id-->'||p_x_prd_resrc_txn_tbl(I).WORKORDER_operation_id);
954: AHL_DEBUG_PUB.debug( ' operation_sequence->'||p_x_prd_resrc_txn_tbl(I).OPERATION_SEQUENCE_NUM);
955: AHL_DEBUG_PUB.debug( ' resource_sequence-->'||p_x_prd_resrc_txn_tbl(I).RESOURCE_SEQUENCE_num);
956: AHL_DEBUG_PUB.debug( ' Organization id -->'||p_x_prd_resrc_txn_tbl(I).organization_id);
949: End if;
950:
951: IF G_DEBUG='Y' THEN
952: AHL_DEBUG_PUB.debug( ' workorder_id------->'||p_x_prd_resrc_txn_tbl(I).WORKORDER_ID);
953: AHL_DEBUG_PUB.debug( ' workorder_Oper_id-->'||p_x_prd_resrc_txn_tbl(I).WORKORDER_operation_id);
954: AHL_DEBUG_PUB.debug( ' operation_sequence->'||p_x_prd_resrc_txn_tbl(I).OPERATION_SEQUENCE_NUM);
955: AHL_DEBUG_PUB.debug( ' resource_sequence-->'||p_x_prd_resrc_txn_tbl(I).RESOURCE_SEQUENCE_num);
956: AHL_DEBUG_PUB.debug( ' Organization id -->'||p_x_prd_resrc_txn_tbl(I).organization_id);
957: AHL_DEBUG_PUB.debug( ' Resource id -->'||p_x_prd_resrc_txn_tbl(I).resource_id);
950:
951: IF G_DEBUG='Y' THEN
952: AHL_DEBUG_PUB.debug( ' workorder_id------->'||p_x_prd_resrc_txn_tbl(I).WORKORDER_ID);
953: AHL_DEBUG_PUB.debug( ' workorder_Oper_id-->'||p_x_prd_resrc_txn_tbl(I).WORKORDER_operation_id);
954: AHL_DEBUG_PUB.debug( ' operation_sequence->'||p_x_prd_resrc_txn_tbl(I).OPERATION_SEQUENCE_NUM);
955: AHL_DEBUG_PUB.debug( ' resource_sequence-->'||p_x_prd_resrc_txn_tbl(I).RESOURCE_SEQUENCE_num);
956: AHL_DEBUG_PUB.debug( ' Organization id -->'||p_x_prd_resrc_txn_tbl(I).organization_id);
957: AHL_DEBUG_PUB.debug( ' Resource id -->'||p_x_prd_resrc_txn_tbl(I).resource_id);
958: AHL_DEBUG_PUB.debug( ' Serial Number------->'||p_x_prd_resrc_txn_tbl(I).serial_number);
951: IF G_DEBUG='Y' THEN
952: AHL_DEBUG_PUB.debug( ' workorder_id------->'||p_x_prd_resrc_txn_tbl(I).WORKORDER_ID);
953: AHL_DEBUG_PUB.debug( ' workorder_Oper_id-->'||p_x_prd_resrc_txn_tbl(I).WORKORDER_operation_id);
954: AHL_DEBUG_PUB.debug( ' operation_sequence->'||p_x_prd_resrc_txn_tbl(I).OPERATION_SEQUENCE_NUM);
955: AHL_DEBUG_PUB.debug( ' resource_sequence-->'||p_x_prd_resrc_txn_tbl(I).RESOURCE_SEQUENCE_num);
956: AHL_DEBUG_PUB.debug( ' Organization id -->'||p_x_prd_resrc_txn_tbl(I).organization_id);
957: AHL_DEBUG_PUB.debug( ' Resource id -->'||p_x_prd_resrc_txn_tbl(I).resource_id);
958: AHL_DEBUG_PUB.debug( ' Serial Number------->'||p_x_prd_resrc_txn_tbl(I).serial_number);
959: AHL_DEBUG_PUB.debug( ' Instance Id------->'||p_x_prd_resrc_txn_tbl(I).instance_id);
952: AHL_DEBUG_PUB.debug( ' workorder_id------->'||p_x_prd_resrc_txn_tbl(I).WORKORDER_ID);
953: AHL_DEBUG_PUB.debug( ' workorder_Oper_id-->'||p_x_prd_resrc_txn_tbl(I).WORKORDER_operation_id);
954: AHL_DEBUG_PUB.debug( ' operation_sequence->'||p_x_prd_resrc_txn_tbl(I).OPERATION_SEQUENCE_NUM);
955: AHL_DEBUG_PUB.debug( ' resource_sequence-->'||p_x_prd_resrc_txn_tbl(I).RESOURCE_SEQUENCE_num);
956: AHL_DEBUG_PUB.debug( ' Organization id -->'||p_x_prd_resrc_txn_tbl(I).organization_id);
957: AHL_DEBUG_PUB.debug( ' Resource id -->'||p_x_prd_resrc_txn_tbl(I).resource_id);
958: AHL_DEBUG_PUB.debug( ' Serial Number------->'||p_x_prd_resrc_txn_tbl(I).serial_number);
959: AHL_DEBUG_PUB.debug( ' Instance Id------->'||p_x_prd_resrc_txn_tbl(I).instance_id);
960: AHL_DEBUG_PUB.debug( ' Person Id------->'|| p_x_prd_resrc_txn_tbl(I).person_id);
953: AHL_DEBUG_PUB.debug( ' workorder_Oper_id-->'||p_x_prd_resrc_txn_tbl(I).WORKORDER_operation_id);
954: AHL_DEBUG_PUB.debug( ' operation_sequence->'||p_x_prd_resrc_txn_tbl(I).OPERATION_SEQUENCE_NUM);
955: AHL_DEBUG_PUB.debug( ' resource_sequence-->'||p_x_prd_resrc_txn_tbl(I).RESOURCE_SEQUENCE_num);
956: AHL_DEBUG_PUB.debug( ' Organization id -->'||p_x_prd_resrc_txn_tbl(I).organization_id);
957: AHL_DEBUG_PUB.debug( ' Resource id -->'||p_x_prd_resrc_txn_tbl(I).resource_id);
958: AHL_DEBUG_PUB.debug( ' Serial Number------->'||p_x_prd_resrc_txn_tbl(I).serial_number);
959: AHL_DEBUG_PUB.debug( ' Instance Id------->'||p_x_prd_resrc_txn_tbl(I).instance_id);
960: AHL_DEBUG_PUB.debug( ' Person Id------->'|| p_x_prd_resrc_txn_tbl(I).person_id);
961: AHL_DEBUG_PUB.debug( ' Quantity------->'||p_x_prd_resrc_txn_tbl(I).qty,l_proc_name);
954: AHL_DEBUG_PUB.debug( ' operation_sequence->'||p_x_prd_resrc_txn_tbl(I).OPERATION_SEQUENCE_NUM);
955: AHL_DEBUG_PUB.debug( ' resource_sequence-->'||p_x_prd_resrc_txn_tbl(I).RESOURCE_SEQUENCE_num);
956: AHL_DEBUG_PUB.debug( ' Organization id -->'||p_x_prd_resrc_txn_tbl(I).organization_id);
957: AHL_DEBUG_PUB.debug( ' Resource id -->'||p_x_prd_resrc_txn_tbl(I).resource_id);
958: AHL_DEBUG_PUB.debug( ' Serial Number------->'||p_x_prd_resrc_txn_tbl(I).serial_number);
959: AHL_DEBUG_PUB.debug( ' Instance Id------->'||p_x_prd_resrc_txn_tbl(I).instance_id);
960: AHL_DEBUG_PUB.debug( ' Person Id------->'|| p_x_prd_resrc_txn_tbl(I).person_id);
961: AHL_DEBUG_PUB.debug( ' Quantity------->'||p_x_prd_resrc_txn_tbl(I).qty,l_proc_name);
962: AHL_DEBUG_PUB.debug( ' Employee Num------->'||p_x_prd_resrc_txn_tbl(I).employee_num,l_proc_name);
955: AHL_DEBUG_PUB.debug( ' resource_sequence-->'||p_x_prd_resrc_txn_tbl(I).RESOURCE_SEQUENCE_num);
956: AHL_DEBUG_PUB.debug( ' Organization id -->'||p_x_prd_resrc_txn_tbl(I).organization_id);
957: AHL_DEBUG_PUB.debug( ' Resource id -->'||p_x_prd_resrc_txn_tbl(I).resource_id);
958: AHL_DEBUG_PUB.debug( ' Serial Number------->'||p_x_prd_resrc_txn_tbl(I).serial_number);
959: AHL_DEBUG_PUB.debug( ' Instance Id------->'||p_x_prd_resrc_txn_tbl(I).instance_id);
960: AHL_DEBUG_PUB.debug( ' Person Id------->'|| p_x_prd_resrc_txn_tbl(I).person_id);
961: AHL_DEBUG_PUB.debug( ' Quantity------->'||p_x_prd_resrc_txn_tbl(I).qty,l_proc_name);
962: AHL_DEBUG_PUB.debug( ' Employee Num------->'||p_x_prd_resrc_txn_tbl(I).employee_num,l_proc_name);
963: AHL_DEBUG_PUB.debug( ' uom_code------->'||p_x_prd_resrc_txn_tbl(I).uom_code,l_proc_name);
956: AHL_DEBUG_PUB.debug( ' Organization id -->'||p_x_prd_resrc_txn_tbl(I).organization_id);
957: AHL_DEBUG_PUB.debug( ' Resource id -->'||p_x_prd_resrc_txn_tbl(I).resource_id);
958: AHL_DEBUG_PUB.debug( ' Serial Number------->'||p_x_prd_resrc_txn_tbl(I).serial_number);
959: AHL_DEBUG_PUB.debug( ' Instance Id------->'||p_x_prd_resrc_txn_tbl(I).instance_id);
960: AHL_DEBUG_PUB.debug( ' Person Id------->'|| p_x_prd_resrc_txn_tbl(I).person_id);
961: AHL_DEBUG_PUB.debug( ' Quantity------->'||p_x_prd_resrc_txn_tbl(I).qty,l_proc_name);
962: AHL_DEBUG_PUB.debug( ' Employee Num------->'||p_x_prd_resrc_txn_tbl(I).employee_num,l_proc_name);
963: AHL_DEBUG_PUB.debug( ' uom_code------->'||p_x_prd_resrc_txn_tbl(I).uom_code,l_proc_name);
964: AHL_DEBUG_PUB.debug( ' uom_meaning------->'||p_x_prd_resrc_txn_tbl(I).uom_meaning,l_proc_name);
957: AHL_DEBUG_PUB.debug( ' Resource id -->'||p_x_prd_resrc_txn_tbl(I).resource_id);
958: AHL_DEBUG_PUB.debug( ' Serial Number------->'||p_x_prd_resrc_txn_tbl(I).serial_number);
959: AHL_DEBUG_PUB.debug( ' Instance Id------->'||p_x_prd_resrc_txn_tbl(I).instance_id);
960: AHL_DEBUG_PUB.debug( ' Person Id------->'|| p_x_prd_resrc_txn_tbl(I).person_id);
961: AHL_DEBUG_PUB.debug( ' Quantity------->'||p_x_prd_resrc_txn_tbl(I).qty,l_proc_name);
962: AHL_DEBUG_PUB.debug( ' Employee Num------->'||p_x_prd_resrc_txn_tbl(I).employee_num,l_proc_name);
963: AHL_DEBUG_PUB.debug( ' uom_code------->'||p_x_prd_resrc_txn_tbl(I).uom_code,l_proc_name);
964: AHL_DEBUG_PUB.debug( ' uom_meaning------->'||p_x_prd_resrc_txn_tbl(I).uom_meaning,l_proc_name);
965:
958: AHL_DEBUG_PUB.debug( ' Serial Number------->'||p_x_prd_resrc_txn_tbl(I).serial_number);
959: AHL_DEBUG_PUB.debug( ' Instance Id------->'||p_x_prd_resrc_txn_tbl(I).instance_id);
960: AHL_DEBUG_PUB.debug( ' Person Id------->'|| p_x_prd_resrc_txn_tbl(I).person_id);
961: AHL_DEBUG_PUB.debug( ' Quantity------->'||p_x_prd_resrc_txn_tbl(I).qty,l_proc_name);
962: AHL_DEBUG_PUB.debug( ' Employee Num------->'||p_x_prd_resrc_txn_tbl(I).employee_num,l_proc_name);
963: AHL_DEBUG_PUB.debug( ' uom_code------->'||p_x_prd_resrc_txn_tbl(I).uom_code,l_proc_name);
964: AHL_DEBUG_PUB.debug( ' uom_meaning------->'||p_x_prd_resrc_txn_tbl(I).uom_meaning,l_proc_name);
965:
966: END IF;
959: AHL_DEBUG_PUB.debug( ' Instance Id------->'||p_x_prd_resrc_txn_tbl(I).instance_id);
960: AHL_DEBUG_PUB.debug( ' Person Id------->'|| p_x_prd_resrc_txn_tbl(I).person_id);
961: AHL_DEBUG_PUB.debug( ' Quantity------->'||p_x_prd_resrc_txn_tbl(I).qty,l_proc_name);
962: AHL_DEBUG_PUB.debug( ' Employee Num------->'||p_x_prd_resrc_txn_tbl(I).employee_num,l_proc_name);
963: AHL_DEBUG_PUB.debug( ' uom_code------->'||p_x_prd_resrc_txn_tbl(I).uom_code,l_proc_name);
964: AHL_DEBUG_PUB.debug( ' uom_meaning------->'||p_x_prd_resrc_txn_tbl(I).uom_meaning,l_proc_name);
965:
966: END IF;
967: END LOOP;
960: AHL_DEBUG_PUB.debug( ' Person Id------->'|| p_x_prd_resrc_txn_tbl(I).person_id);
961: AHL_DEBUG_PUB.debug( ' Quantity------->'||p_x_prd_resrc_txn_tbl(I).qty,l_proc_name);
962: AHL_DEBUG_PUB.debug( ' Employee Num------->'||p_x_prd_resrc_txn_tbl(I).employee_num,l_proc_name);
963: AHL_DEBUG_PUB.debug( ' uom_code------->'||p_x_prd_resrc_txn_tbl(I).uom_code,l_proc_name);
964: AHL_DEBUG_PUB.debug( ' uom_meaning------->'||p_x_prd_resrc_txn_tbl(I).uom_meaning,l_proc_name);
965:
966: END IF;
967: END LOOP;
968: END IF;
1025:
1026: -- Enable Debug
1027:
1028: IF G_DEBUG='Y' THEN
1029: -- AHL_DEBUG_PUB.enable_debug;
1030: AHL_DEBUG_PUB.debug('At start of procedure PROCESS_RESOURCE_TRANX');
1031: END IF;
1032:
1033:
1026: -- Enable Debug
1027:
1028: IF G_DEBUG='Y' THEN
1029: -- AHL_DEBUG_PUB.enable_debug;
1030: AHL_DEBUG_PUB.debug('At start of procedure PROCESS_RESOURCE_TRANX');
1031: END IF;
1032:
1033:
1034:
1053:
1054: -- Debug info.
1055:
1056: IF G_DEBUG='Y' THEN
1057: AHL_DEBUG_PUB.debug( 'Enter PROCESS_RESOURCE_TRNX',L_API_NAME);
1058: END IF;
1059: IF p_module_type IN ('JSP','OAF') THEN
1060: IF p_x_prd_resrc_txn_tbl.COUNT>0 THEN
1061: FOR i in p_x_prd_resrc_txn_tbl.FIRST..p_x_prd_resrc_txn_tbl.LAST LOOP
1075: IF l_msg_count > 0 THEN
1076: X_msg_count := l_msg_count;
1077: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1078: IF G_DEBUG='Y' THEN
1079: AHL_DEBUG_PUB.debug( 'Error Thrown in translate',L_API_NAME);
1080: END IF;
1081: RAISE FND_API.G_EXC_ERROR;
1082: END IF;
1083:
1098: l_msg_count := FND_MSG_PUB.count_msg;
1099: IF l_msg_count > 0 THEN
1100: X_msg_count := l_msg_count;
1101: IF G_DEBUG='Y' THEN
1102: AHL_DEBUG_PUB.debug( 'Error Thrown In Validation',L_API_NAME);
1103: END IF;
1104: RAISE FND_API.G_EXC_ERROR;
1105: END IF;
1106:
1130: END IF;
1131: CLOSE get_oper_res_det;
1132:
1133: IF (G_DEBUG = 'Y') THEN
1134: AHL_DEBUG_PUB.debug('Resource seq number:' || p_x_prd_resrc_txn_tbl(i).resource_sequence_num);
1135: END IF;
1136:
1137: l_Resrc_Require_Tbl(l_ctr).resource_seq_number :=
1138: p_x_prd_resrc_txn_tbl(i).resource_sequence_num;
1186:
1187: END IF;
1188:
1189: IF G_DEBUG='Y' THEN
1190: AHL_DEBUG_PUB.debug( 'Before Process transactions',L_API_NAME);
1191: AHL_DEBUG_PUB.debug( 'Number of Records'||p_x_prd_resrc_txn_tbl.count,L_API_NAME);
1192: END IF;
1193:
1194: l_ctr := 0;
1187: END IF;
1188:
1189: IF G_DEBUG='Y' THEN
1190: AHL_DEBUG_PUB.debug( 'Before Process transactions',L_API_NAME);
1191: AHL_DEBUG_PUB.debug( 'Number of Records'||p_x_prd_resrc_txn_tbl.count,L_API_NAME);
1192: END IF;
1193:
1194: l_ctr := 0;
1195: FOR i IN p_x_prd_resrc_txn_tbl.FIRST..p_x_prd_resrc_txn_tbl.LAST
1195: FOR i IN p_x_prd_resrc_txn_tbl.FIRST..p_x_prd_resrc_txn_tbl.LAST
1196: LOOP
1197:
1198: IF G_DEBUG='Y' THEN
1199: AHL_DEBUG_PUB.debug( 'Enter loop ',L_API_NAME);
1200: END IF;
1201:
1202: IF p_x_prd_resrc_txn_tbl(i).DML_operation = 'C'
1203: THEN
1205: Fetch GetWipid into l_wip_entity_id;
1206: Close GetWipid;
1207:
1208: IF G_DEBUG='Y' THEN
1209: AHL_DEBUG_PUB.debug( 'Workorder id'||p_x_prd_resrc_txn_tbl(i).workorder_id,L_API_NAME);
1210: END IF;
1211:
1212: l_ahl_res_txn_tbl(l_ctr).wip_entity_id := l_wip_entity_id;
1213: l_ahl_res_txn_tbl(l_ctr).operation_seq_num :=p_x_prd_resrc_txn_tbl(i).Operation_sequence_num;
1265:
1266: END LOOP;
1267:
1268: IF G_DEBUG='Y' THEN
1269: AHL_DEBUG_PUB.debug( 'Before Insert Process transactions',L_API_NAME);
1270:
1271: END IF;
1272:
1273: IF l_ahl_res_txn_tbl.count >0
1292: X_msg_count := l_msg_count;
1293: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1294: RAISE FND_API.G_EXC_ERROR;
1295: IF G_DEBUG='Y' THEN
1296: AHL_DEBUG_PUB.debug( 'Validation Errors in interface API');
1297: END IF;
1298:
1299: END IF;
1300:
1307:
1308: -- Debug info
1309:
1310: IF G_DEBUG='Y' THEN
1311: AHL_DEBUG_PUB.debug( 'End of Private api '||l_api_name,'+debug+');
1312:
1313: END IF;
1314:
1315: IF G_DEBUG='Y' THEN
1312:
1313: END IF;
1314:
1315: IF G_DEBUG='Y' THEN
1316: AHL_DEBUG_PUB.disable_debug;
1317:
1318: END IF;
1319:
1320: EXCEPTION
1384: FND_MESSAGE.SET_TOKEN('OPER_RES', p_prd_myworkorder_txn_tbl(i).OPERATION_SEQUENCE||'-'|| p_prd_myworkorder_txn_tbl(i).RESOURCE_SEQUENCE);
1385: FND_MSG_PUB.ADD;
1386:
1387: IF G_DEBUG='Y' THEN
1388: AHL_DEBUG_PUB.debug( 'Error in Quantity');
1389: END IF;
1390: END IF;
1391: END IF ;
1392: */
1398: THEN
1399: FND_MESSAGE.set_name('AHL','AHL_PRD_WORKORDER_ID_NULL');
1400: FND_MSG_PUB.ADD;
1401: IF G_DEBUG='Y' THEN
1402: AHL_DEBUG_PUB.debug( 'Error in Quantity');
1403: END IF;
1404: END IF ;
1405:
1406: -- rroy
1427: THEN
1428: FND_MESSAGE.set_name('AHL','AHL_PRD_OPERATION_NULL');
1429: FND_MSG_PUB.ADD;
1430: IF G_DEBUG='Y' THEN
1431: AHL_DEBUG_PUB.debug( 'Error in Quantity');
1432: END IF;
1433: END IF ;
1434:
1435: IF p_prd_myworkorder_txn_tbl(i).RESOURCE_SEQUENCE IS NULL OR
1437: THEN
1438: FND_MESSAGE.set_name('AHL','AHL_PRD_RESOURCE_NULL');
1439: FND_MSG_PUB.ADD;
1440: IF G_DEBUG='Y' THEN
1441: AHL_DEBUG_PUB.debug( 'Error in Quantity');
1442: END IF;
1443: END IF ;
1444: END LOOP;
1445: END IF ;
1580:
1581: -- Enable Debug
1582:
1583: IF G_DEBUG='Y' THEN
1584: AHL_DEBUG_PUB.enable_debug;
1585: END IF;
1586:
1587:
1588:
1607:
1608: -- Debug info.
1609:
1610: IF G_DEBUG='Y' THEN
1611: AHL_DEBUG_PUB.debug( 'Enter PROCESS_MYWORKORDER_TXNS',L_API_NAME);
1612: END IF;
1613:
1614: VALIDATE_MYWORKORDER_TRNX(
1615: p_prd_myworkorder_txn_tbl => p_x_prd_myworkorder_txn_tbl,
1621: IF l_msg_count > 0 THEN
1622: X_msg_count := l_msg_count;
1623: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1624: IF G_DEBUG='Y' THEN
1625: AHL_DEBUG_PUB.debug( 'Error Thrown in Validate',L_API_NAME);
1626: END IF;
1627: RAISE FND_API.G_EXC_ERROR;
1628: END IF;
1629: -- Get the Defalut UOM Code --- Hr
1637: IF p_x_prd_myworkorder_txn_tbl(i).TRANSACTED_HOURS > 0
1638: THEN
1639:
1640: IF G_DEBUG='Y' THEN
1641: AHL_DEBUG_PUB.debug( 'Enter loop ',L_API_NAME);
1642: END IF;
1643:
1644: OPEN GetWipid (p_x_prd_myworkorder_txn_tbl(i).workorder_id);
1645: FETCH GetWipid into l_wip_entity_id, l_wo_status_code;
1653: Open getResDetails(p_x_prd_myworkorder_txn_tbl(i).ASSIGNMENT_ID);
1654: FETCH getResDetails into l_res_rec;
1655: CLOSE getResDetails;
1656: IF G_DEBUG='Y' THEN
1657: AHL_DEBUG_PUB.debug( 'Workorder id'||p_x_prd_myworkorder_txn_tbl(i).workorder_id,L_API_NAME);
1658: END IF;
1659: l_ahl_res_txn_tbl(l_ctr).operation_seq_num :=l_res_rec.OPERATION_SEQUENCE;
1660: l_ahl_res_txn_tbl(l_ctr).resource_seq_num :=l_res_rec.RESOURCE_SEQUENCE;
1661: l_ahl_res_txn_tbl(l_ctr).resource_id :=l_res_rec.RESOURCE_ID;
1673: END LOOP;
1674: END IF;
1675:
1676: IF G_DEBUG='Y' THEN
1677: AHL_DEBUG_PUB.debug( 'Before Insert Process transactions',L_API_NAME);
1678:
1679: END IF;
1680:
1681:
1699: X_msg_count := l_msg_count;
1700: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1701: RAISE FND_API.G_EXC_ERROR;
1702: IF G_DEBUG='Y' THEN
1703: AHL_DEBUG_PUB.debug( 'Error in Insert_Resource_Txn API');
1704: END IF;
1705: END IF;
1706:
1707: --- Complete the Operation if the Complete Operation is True
1750: X_msg_count := l_msg_count;
1751: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1752: RAISE FND_API.G_EXC_ERROR;
1753: IF G_DEBUG='Y' THEN
1754: AHL_DEBUG_PUB.debug( 'Error in Process Operations API');
1755: END IF;
1756: END IF;
1757:
1758: --- Complete the Operation
1780: X_msg_count := l_msg_count;
1781: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1782: RAISE FND_API.G_EXC_ERROR;
1783: IF G_DEBUG='Y' THEN
1784: AHL_DEBUG_PUB.debug( 'Error in Complete Operation API');
1785: END IF;
1786: END IF;
1787:
1788: IF FND_API.TO_BOOLEAN(p_commit) THEN
1791:
1792: -- Debug info
1793:
1794: IF G_DEBUG='Y' THEN
1795: AHL_DEBUG_PUB.debug( 'End of api '||l_api_name,'+debug+');
1796:
1797: END IF;
1798:
1799: IF G_DEBUG='Y' THEN
1796:
1797: END IF;
1798:
1799: IF G_DEBUG='Y' THEN
1800: AHL_DEBUG_PUB.disable_debug;
1801: END IF;
1802:
1803: EXCEPTION
1804: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN