DBA Data[Home] [Help]

APPS.POR_RCV_ORD_SV dependencies on ASN_DEBUG

Line 98: asn_debug.put_line(x_progress);

94: l_toReceiveQty := l_qty;
95: l_userReceiptUom := X_receipt_uom(i);
96:
97: x_progress := 'groupPoTransaction 000, lineLocationId=' || to_char(l_lineLocationId) || 'user entered receive; qty='|| to_char(l_toReceiveQty) ||'user entered uom=' || l_userReceiptUom;
98: asn_debug.put_line(x_progress);
99:
100: /* Set OU to the the order OU */
101:
102: begin

Line 119: asn_debug.put_line(x_progress);

115: end;
116:
117: x_progress := 'groupPoTransaction 001, x_user_org_id=' || to_char(x_user_org_id) || 'x_txn_org_id='|| to_char(x_txn_org_id);
118:
119: asn_debug.put_line(x_progress);
120:
121: open rcv_header(l_lineLocationId);
122: <>
123: loop

Line 129: asn_debug.put_line(x_progress);

125: l_rcvLineId, l_shippedRcvUomQty, l_receivedRcvUomQty, l_rcvUom;
126: EXIT WHEN rcv_header%NOTFOUND;
127:
128: x_progress := 'groupPoTransaction 002, l_rcvLineId=' || to_char(l_rcvLineId) || 'shippedQty; qty='|| to_char(l_shippedRcvUomQty) || 'receivedQty; qty='|| to_char(l_receivedRcvUomQty) || '; rcvUom=' ||l_rcvUom;
129: asn_debug.put_line(x_progress);
130:
131: l_itemId := replaceNull(x_item_id(i));
132: if (l_userReceiptUom <> l_rcvUom) then
133: PO_UOM_S.UOM_CONVERT (l_shippedRcvUomQty,

Line 144: asn_debug.put_line(x_progress);

140: l_itemId,
141: l_userReceiptUom,
142: l_receivedQty);
143: x_progress := 'groupPoTransaction 002.a after uom conversion, shippedQty; qty='|| to_char(l_shippedQty) || 'receivedQty; qty='|| to_char(l_receivedQty);
144: asn_debug.put_line(x_progress);
145:
146: else
147: l_shippedQty := l_shippedRcvUomQty;
148: l_receivedQty := l_receivedRcvUomQty;

Line 150: asn_debug.put_line(x_progress);

146: else
147: l_shippedQty := l_shippedRcvUomQty;
148: l_receivedQty := l_receivedRcvUomQty;
149: x_progress := 'groupPoTransaction 002.b same uom between rcv and po, shippedQty; qty='|| to_char(l_shippedQty) || 'receivedQty; qty='|| to_char(l_receivedQty);
150: asn_debug.put_line(x_progress);
151: end if;
152:
153: hasEntryForRcvLine := false;
154:

Line 161: asn_debug.put_line(x_progress);

157:
158: if (l_recorder.count > 0 ) then
159: l_index := l_recorder.FIRST;
160: x_progress := 'groupPoTransaction 003 '|| to_char(l_index);
161: asn_debug.put_line(x_progress);
162:
163:
164: WHILE (l_index IS NOT NULL) LOOP
165: asn_debug.put_line('l_recorder(l_index).rcv_line_id' || l_recorder(l_index).rcv_line_id);

Line 165: asn_debug.put_line('l_recorder(l_index).rcv_line_id' || l_recorder(l_index).rcv_line_id);

161: asn_debug.put_line(x_progress);
162:
163:
164: WHILE (l_index IS NOT NULL) LOOP
165: asn_debug.put_line('l_recorder(l_index).rcv_line_id' || l_recorder(l_index).rcv_line_id);
166:
167: if(l_recorder(l_index).rcv_line_id = l_rcvLineId) then
168: --l_recorder(l_index).line_location_id = l_lineLocationId and
169: hasEntryForRcvLine := true;

Line 173: asn_debug.put_line(x_progress);

169: hasEntryForRcvLine := true;
170: x_progress := 'groupPoTransaction 012 l_receiptQty:' || l_receiptQty ||
171: ':l_shippedQty:' || l_shippedQty || ':l_receivedQty:' || l_receivedQty ||
172: 'l_recorder(l_index).used_quantity:' || l_recorder(l_index).used_quantity;
173: asn_debug.put_line(x_progress);
174: if(l_recorder(l_index).available and
175: l_shippedQty-l_receivedQty-l_recorder(l_index).used_quantity >= l_toReceiveQty) then
176: l_recorder(l_index).used_quantity := l_recorder(l_index).used_quantity + l_toReceiveQty;
177: --TODO: test txn when existing receive qty and receive qty 2nt time

Line 197: asn_debug.put_line(x_progress);

193: x_Comments=>x_Comments(i),
194: x_PackingSlip=>x_PackingSlip(i),
195: x_WayBillNum=>x_WayBillNum(i));
196: x_progress := 'groupPoTransaction 015 after insertion, hasEntryForRcvLine = TRUE, asn matches receiving quantity, exiting';
197: asn_debug.put_line(x_progress);
198: exit outloop;
199: else
200: l_recorder(l_index).available := false;
201: l_receiptQty := l_shippedQty-l_receivedQty-l_recorder(l_index).used_quantity;

Line 205: asn_debug.put_line(x_progress);

201: l_receiptQty := l_shippedQty-l_receivedQty-l_recorder(l_index).used_quantity;
202: x_progress := 'groupPoTransaction 016 l_receiptQty:' || l_receiptQty ||
203: ':l_shippedQty:' || l_shippedQty || ':l_receivedQty:' || l_receivedQty ||
204: 'l_recorder(l_index).used_quantity:' || l_recorder(l_index).used_quantity;
205: asn_debug.put_line(x_progress);
206: if l_receiptQty > 0 then
207: l_toReceiveQty := l_toReceiveQty-l_receiptQty;
208: l_recorder(l_index).used_quantity := l_recorder(l_index).used_quantity + l_receiptQty;
209: insert_rcv_txn_interface(x_source_type_code=>'ASN',

Line 236: asn_debug.put_line(x_progress);

232:
233:
234: if (not hasEntryForRcvLine) then
235: x_progress := 'groupPoTransaction 010 first time receive this rcvLineId, l_shippedQty=' || to_char(l_shippedQty) || '; l_receivedQty='|| to_char(l_receivedQty);
236: asn_debug.put_line(x_progress);
237:
238: if (l_shippedQty-l_receivedQty>0) then
239: -- first time to receive this rcv line within this batch
240: if(l_recorder.count=0) then

Line 254: asn_debug.put_line(x_progress);

250: l_recorder(l_index).used_quantity := l_recorder(l_index).used_quantity + l_receiptQty;
251: l_toReceiveQty := 0;
252: x_progress := 'groupPoTransaction 014 before insertion';
253:
254: asn_debug.put_line(x_progress);
255:
256: insert_rcv_txn_interface(x_source_type_code=>'ASN',
257: x_rcv_shipment_line_id=>l_rcvLineId,
258: x_po_header_id=>x_po_header_id(i),

Line 273: asn_debug.put_line(x_progress);

269: x_Comments=>x_Comments(i),
270: x_PackingSlip=>x_PackingSlip(i),
271: x_WayBillNum=>x_WayBillNum(i));
272: x_progress := 'groupPoTransaction 015 after insertion, hasEntryForRcvLine = FALSE, asn matches receiving quantity, exiting';
273: asn_debug.put_line(x_progress);
274:
275: exit;
276: else
277: l_recorder(l_index).available := false;

Line 282: asn_debug.put_line(x_progress);

278: l_receiptQty := l_shippedQty-l_receivedQty-l_recorder(l_index).used_quantity;
279: x_progress := 'groupPoTransaction 017 l_receiptQty:' || l_receiptQty ||
280: ':l_shippedQty:' || l_shippedQty || ':l_receivedQty:' || l_receivedQty ||
281: 'l_recorder(l_index).used_quantity:' || l_recorder(l_index).used_quantity;
282: asn_debug.put_line(x_progress);
283: if l_receiptQty > 0 then
284: l_recorder(l_index).used_quantity := l_recorder(l_index).used_quantity + l_receiptQty;
285: l_toReceiveQty := l_toReceiveQty-l_receiptQty;
286: insert_rcv_txn_interface(x_source_type_code=>'ASN',

Line 303: asn_debug.put_line(x_progress);

299: x_Comments=>x_Comments(i),
300: x_PackingSlip=>x_PackingSlip(i),
301: x_WayBillNum=>x_WayBillNum(i));
302: x_progress := 'groupPoTransaction 015 after insertion, asn matches less than receiving quantity';
303: asn_debug.put_line(x_progress);
304: end if;
305: --exit;
306: end if;
307: end if;

Line 315: asn_debug.put_line(x_progress);

311:
312: if(l_toReceiveQty > 0) then
313: x_progress := 'groupPoTransaction 020 toReceiveQty=' || to_char(l_toReceiveQty);
314:
315: asn_debug.put_line(x_progress);
316:
317: insert_rcv_txn_interface(x_po_header_id=>x_po_header_id(i),
318: x_line_location_id=>x_line_location_id(i) ,
319: x_receipt_qty=>l_toReceiveQty,

Line 336: asn_debug.put_line(x_progress);

332: end loop;
333:
334: x_progress := 'groupPoTransaction 030 returning successfully';
335:
336: asn_debug.put_line(x_progress);
337: asn_debug.put_line('1 x_txn_org_id:' || x_txn_org_id || 'x_user_org_id:' || x_user_org_id);
338: if (MO_GLOBAL.get_current_org_id <> x_user_org_id) then
339: asn_debug.put_line('3 x_txn_org_id:' || x_txn_org_id || 'x_user_org_id:' || x_user_org_id);
340: mo_global.set_policy_context(p_access_mode => 'S',

Line 337: asn_debug.put_line('1 x_txn_org_id:' || x_txn_org_id || 'x_user_org_id:' || x_user_org_id);

333:
334: x_progress := 'groupPoTransaction 030 returning successfully';
335:
336: asn_debug.put_line(x_progress);
337: asn_debug.put_line('1 x_txn_org_id:' || x_txn_org_id || 'x_user_org_id:' || x_user_org_id);
338: if (MO_GLOBAL.get_current_org_id <> x_user_org_id) then
339: asn_debug.put_line('3 x_txn_org_id:' || x_txn_org_id || 'x_user_org_id:' || x_user_org_id);
340: mo_global.set_policy_context(p_access_mode => 'S',
341: p_org_id => x_user_org_id);

Line 339: asn_debug.put_line('3 x_txn_org_id:' || x_txn_org_id || 'x_user_org_id:' || x_user_org_id);

335:
336: asn_debug.put_line(x_progress);
337: asn_debug.put_line('1 x_txn_org_id:' || x_txn_org_id || 'x_user_org_id:' || x_user_org_id);
338: if (MO_GLOBAL.get_current_org_id <> x_user_org_id) then
339: asn_debug.put_line('3 x_txn_org_id:' || x_txn_org_id || 'x_user_org_id:' || x_user_org_id);
340: mo_global.set_policy_context(p_access_mode => 'S',
341: p_org_id => x_user_org_id);
342: asn_debug.put_line('5 x_txn_org_id:' || x_txn_org_id || 'x_user_org_id:' || x_user_org_id);
343: end if;

Line 342: asn_debug.put_line('5 x_txn_org_id:' || x_txn_org_id || 'x_user_org_id:' || x_user_org_id);

338: if (MO_GLOBAL.get_current_org_id <> x_user_org_id) then
339: asn_debug.put_line('3 x_txn_org_id:' || x_txn_org_id || 'x_user_org_id:' || x_user_org_id);
340: mo_global.set_policy_context(p_access_mode => 'S',
341: p_org_id => x_user_org_id);
342: asn_debug.put_line('5 x_txn_org_id:' || x_txn_org_id || 'x_user_org_id:' || x_user_org_id);
343: end if;
344: asn_debug.put_line('7 x_txn_org_id:' || x_txn_org_id || 'x_user_org_id:' || x_user_org_id);
345: return 0;
346:

Line 344: asn_debug.put_line('7 x_txn_org_id:' || x_txn_org_id || 'x_user_org_id:' || x_user_org_id);

340: mo_global.set_policy_context(p_access_mode => 'S',
341: p_org_id => x_user_org_id);
342: asn_debug.put_line('5 x_txn_org_id:' || x_txn_org_id || 'x_user_org_id:' || x_user_org_id);
343: end if;
344: asn_debug.put_line('7 x_txn_org_id:' || x_txn_org_id || 'x_user_org_id:' || x_user_org_id);
345: return 0;
346:
347: exception
348: when others then

Line 352: asn_debug.put_line(x_progress);

348: when others then
349: -- should we just roll back?
350: x_progress := 'groupPoTransaction 040 sql exception ' || substr(SQLERRM,12,200);
351:
352: asn_debug.put_line(x_progress);
353:
354: delete from rcv_transactions_interface
355: where group_id = X_group_id;
356:

Line 437: asn_debug.put_line(x_progress);

433: l_toReceiveQty := l_qty;
434: l_userReceiptUom := X_receipt_uom(i);
435:
436: x_progress := 'groupInternalTransaction 000, l_reqLineId=' || to_char(l_reqLineId) || 'user entered receive; qty='|| to_char(l_toReceiveQty) ||'user entered uom=' || l_userReceiptUom;
437: asn_debug.put_line(x_progress);
438: /*
439: In case of internal requisition no po is created and internal requistion can be received by the same org id user.
440: Thus it is not required to set org id context here. It has to be the same.
441: */

Line 455: asn_debug.put_line(x_progress);

451: l_rcvLineId, l_shippedRcvUomQty, l_receivedRcvUomQty, l_rcvUom;
452: EXIT WHEN rcv_header%NOTFOUND;
453:
454: x_progress := 'groupInternalTransaction 001, l_rcvLineId=' || to_char(l_rcvLineId)|| 'shippedQty; qty='|| to_char(l_shippedRcvUomQty) || 'receivedQty; qty='|| to_char(l_receivedRcvUomQty) || '; rcvUom=' ||l_rcvUom;
455: asn_debug.put_line(x_progress);
456:
457: l_itemId := replaceNull(x_item_id(i));
458: if (l_userReceiptUom <> l_rcvUom) then
459: PO_UOM_S.UOM_CONVERT (l_shippedRcvUomQty,

Line 470: asn_debug.put_line(x_progress);

466: l_itemId,
467: l_userReceiptUom,
468: l_receivedQty);
469: x_progress := 'groupInternalTransaction 001.a after uom conversion, shippedQty; qty='|| to_char(l_shippedQty) || 'receivedQty; qty='|| to_char(l_receivedQty);
470: asn_debug.put_line(x_progress);
471:
472: else
473: l_shippedQty := l_shippedRcvUomQty;
474: l_receivedQty := l_receivedRcvUomQty;

Line 476: asn_debug.put_line(x_progress);

472: else
473: l_shippedQty := l_shippedRcvUomQty;
474: l_receivedQty := l_receivedRcvUomQty;
475: x_progress := 'groupInternalTransaction 001.b same uom between rcv and po, shippedQty; qty='|| to_char(l_shippedQty) || 'receivedQty; qty='|| to_char(l_receivedQty);
476: asn_debug.put_line(x_progress);
477: end if;
478:
479:
480: if( (l_shippedQty-l_receivedQty) > l_toReceiveQty) then

Line 485: asn_debug.put_line(x_progress);

481: --TODO: test txn when existing receive qty and receive qty 2
482: l_receiptQty := l_toReceiveQty;
483: x_progress := 'groupInternalTransaction 002 toReceiveQty=' || to_char(l_toReceiveQty);
484:
485: asn_debug.put_line(x_progress);
486:
487: insert_rcv_txn_interface_ir (l_rcvLineId,
488: x_req_line_id(i),
489: l_receiptQty,

Line 503: asn_debug.put_line(x_progress);

499: x_WayBillNum(i));
500:
501: l_toReceiveQty := 0;
502: x_progress := 'groupInternalTransaction 025 after insertion, asn matches receiving quantity, exiting';
503: asn_debug.put_line(x_progress);
504: exit;
505: else
506: l_receiptQty := l_shippedQty-l_receivedQty;
507: l_toReceiveQty := l_toReceiveQty-l_receiptQty;

Line 510: asn_debug.put_line(x_progress);

506: l_receiptQty := l_shippedQty-l_receivedQty;
507: l_toReceiveQty := l_toReceiveQty-l_receiptQty;
508: x_progress := 'groupInternalTransaction 010 toReceiveQty=' || to_char(l_toReceiveQty);
509:
510: asn_debug.put_line(x_progress);
511:
512: insert_rcv_txn_interface_ir (l_rcvLineId,
513: x_req_line_id(i),
514: l_receiptQty,

Line 544: asn_debug.put_line(x_progress);

540: when others then
541: -- should we just roll back?
542: x_progress := 'groupInternalTransaction 040 sql exception ' || substr(SQLERRM,12,200);
543:
544: asn_debug.put_line(x_progress);
545:
546: delete from rcv_transactions_interface
547: where group_id = X_group_id;
548:

Line 633: asn_debug.put_line(x_progress);

629: X_primary_qty := X_receipt_qty;
630: end if;
631:
632: x_progress := 'insert internal transaction, item_id=' || to_char(x_item_id);
633: asn_debug.put_line(x_progress);
634: x_progress := 'insert internal transaction, receipt_uom=' || x_receipt_uom || '; x_receipt_qty='|| to_char(x_receipt_qty);
635: asn_debug.put_line(x_progress);
636: x_progress := 'insert internal transaction, primary_uom= ' || X_primary_uom ||'; primary_qty=' || to_char(X_primary_qty);
637: asn_debug.put_line(x_progress);

Line 635: asn_debug.put_line(x_progress);

631:
632: x_progress := 'insert internal transaction, item_id=' || to_char(x_item_id);
633: asn_debug.put_line(x_progress);
634: x_progress := 'insert internal transaction, receipt_uom=' || x_receipt_uom || '; x_receipt_qty='|| to_char(x_receipt_qty);
635: asn_debug.put_line(x_progress);
636: x_progress := 'insert internal transaction, primary_uom= ' || X_primary_uom ||'; primary_qty=' || to_char(X_primary_qty);
637: asn_debug.put_line(x_progress);
638:
639: INSERT INTO RCV_TRANSACTIONS_INTERFACE (

Line 637: asn_debug.put_line(x_progress);

633: asn_debug.put_line(x_progress);
634: x_progress := 'insert internal transaction, receipt_uom=' || x_receipt_uom || '; x_receipt_qty='|| to_char(x_receipt_qty);
635: asn_debug.put_line(x_progress);
636: x_progress := 'insert internal transaction, primary_uom= ' || X_primary_uom ||'; primary_qty=' || to_char(X_primary_qty);
637: asn_debug.put_line(x_progress);
638:
639: INSERT INTO RCV_TRANSACTIONS_INTERFACE (
640: INTERFACE_TRANSACTION_ID,
641: GROUP_ID,

Line 790: asn_debug.put_line(x_progress);

786: exception
787: when others THEN
788: x_progress := 'insert internal req transaction exception' || substr(SQLERRM,12,512);
789:
790: asn_debug.put_line(x_progress);
791:
792:
793:
794: if (x_caller = 'WP4' OR x_caller = 'WP4_CONFIRM') then

Line 886: asn_debug.put_line('POR_RCV_ORD_SV.INSERT_RCV_TXN_INTERFACE x_source_type_code:' || x_source_type_code);

882:
883: begin
884: x_user_id := fnd_global.user_id;
885:
886: asn_debug.put_line('POR_RCV_ORD_SV.INSERT_RCV_TXN_INTERFACE x_source_type_code:' || x_source_type_code);
887:
888: if (x_source_type_code = 'ASN') then
889: select shipment_header_id
890: into l_rcv_shipment_header_id

Line 895: asn_debug.put_line('POR_RCV_ORD_SV.INSERT_RCV_TXN_INTERFACE l_rcv_shipment_header_id:' || l_rcv_shipment_header_id);

891: from rcv_shipment_lines
892: where shipment_line_id = X_rcv_shipment_line_id;
893: end if;
894:
895: asn_debug.put_line('POR_RCV_ORD_SV.INSERT_RCV_TXN_INTERFACE l_rcv_shipment_header_id:' || l_rcv_shipment_header_id);
896:
897: begin
898: SELECT HR.PERSON_ID
899: INTO x_employee_id

Line 910: asn_debug.put_line('POR_RCV_ORD_SV.INSERT_RCV_TXN_INTERFACE x_employee_id :' || x_employee_id );

906: WHEN others THEN
907: x_employee_id := 0;
908: END;
909:
910: asn_debug.put_line('POR_RCV_ORD_SV.INSERT_RCV_TXN_INTERFACE x_employee_id :' || x_employee_id );
911:
912: SELECT POL.MATCHING_BASIS, POL.JOB_ID
913: INTO X_MATCHING_BASIS, X_JOB_ID
914: FROM PO_LINES_ALL POL, PO_DISTRIBUTIONS_ALL POD

Line 918: asn_debug.put_line('POR_RCV_ORD_SV.INSERT_RCV_TXN_INTERFACE X_MATCHING_BASIS' || X_MATCHING_BASIS);

914: FROM PO_LINES_ALL POL, PO_DISTRIBUTIONS_ALL POD
915: WHERE POL.PO_LINE_ID = POD.PO_LINE_ID
916: AND POD.PO_DISTRIBUTION_ID = X_PO_DISTRIBUTION_ID;
917:
918: asn_debug.put_line('POR_RCV_ORD_SV.INSERT_RCV_TXN_INTERFACE X_MATCHING_BASIS' || X_MATCHING_BASIS);
919:
920: If nvl(x_matching_basis, 'QUANTITY') = 'QUANTITY' then
921:
922: IF (x_item_id IS NULL) THEN

Line 951: asn_debug.put_line('POR_RCV_ORD_SV.INSERT_RCV_TXN_INTERFACE X_receipt_qty' || X_receipt_qty || ' X_receipt_amt ' || X_receipt_amt);

947: X_receipt_amt := X_receipt_qty;
948: X_qty := null;
949: end if;
950:
951: asn_debug.put_line('POR_RCV_ORD_SV.INSERT_RCV_TXN_INTERFACE X_receipt_qty' || X_receipt_qty || ' X_receipt_amt ' || X_receipt_amt);
952:
953: /* Insert the rows that were checked into RCV_TRANSACTIONS_INTERFACE */
954:
955: SELECT POD.DESTINATION_TYPE_CODE,

Line 1052: asn_debug.put_line('POR_RCV_ORD_SV.INSERT_RCV_TXN_INTERFACE Inserting values in RCV_TRANSACTIONS_INTERFACE');

1048: POH.PO_HEADER_ID = x_po_header_id and
1049: POLL.LINE_LOCATION_ID = x_line_location_id and
1050: POD.PO_DISTRIBUTION_ID = X_po_distribution_id;
1051:
1052: asn_debug.put_line('POR_RCV_ORD_SV.INSERT_RCV_TXN_INTERFACE Inserting values in RCV_TRANSACTIONS_INTERFACE');
1053:
1054: INSERT INTO RCV_TRANSACTIONS_INTERFACE (
1055: INTERFACE_TRANSACTION_ID,
1056: GROUP_ID,

Line 1207: asn_debug.put_line(l_err_message);

1203: exception
1204: when others THEN
1205: if (x_caller = 'WP4' OR x_caller = 'WP4_CONFIRM') then
1206: l_err_message := substr(SQLERRM,12,512);
1207: asn_debug.put_line(l_err_message);
1208: ERROR_STACK.PUSHMESSAGE( substr(SQLERRM,12,512),'ICX');
1209: APP_EXCEPTION.RAISE_EXCEPTION;
1210: end if;
1211:

Line 1254: asn_debug.put_line('process_transactions x_txn_org_id:' || x_txn_org_id);

1250: into x_txn_org_id
1251: from rcv_transactions_interface rti
1252: where rti.group_id = x_group_id and rownum = 1;
1253:
1254: asn_debug.put_line('process_transactions x_txn_org_id:' || x_txn_org_id);
1255:
1256: if (x_txn_org_id <> MO_GLOBAL.get_current_org_id) then
1257: mo_global.set_policy_context(p_access_mode => 'S',
1258: p_org_id => x_txn_org_id);

Line 1262: asn_debug.put_line('Error while obtaining the org ID');

1258: p_org_id => x_txn_org_id);
1259: end if;
1260: exception
1261: WHEN OTHERS THEN
1262: asn_debug.put_line('Error while obtaining the org ID');
1263: end;
1264:
1265: /** Validate the Input fields **/
1266: asn_debug.put_line('process_transactions Calling the val_express_transactions');

Line 1266: asn_debug.put_line('process_transactions Calling the val_express_transactions');

1262: asn_debug.put_line('Error while obtaining the org ID');
1263: end;
1264:
1265: /** Validate the Input fields **/
1266: asn_debug.put_line('process_transactions Calling the val_express_transactions');
1267: rcv_express_sv.val_express_transactions(X_group_id,
1268: X_rows_succeeded,
1269: X_rows_failed);
1270: asn_debug.put_line('process_transactions 001 s=' || to_char(X_rows_succeeded));

Line 1270: asn_debug.put_line('process_transactions 001 s=' || to_char(X_rows_succeeded));

1266: asn_debug.put_line('process_transactions Calling the val_express_transactions');
1267: rcv_express_sv.val_express_transactions(X_group_id,
1268: X_rows_succeeded,
1269: X_rows_failed);
1270: asn_debug.put_line('process_transactions 001 s=' || to_char(X_rows_succeeded));
1271: asn_debug.put_line('process_transactions 002 f=' || to_char(X_rows_failed));
1272:
1273: commit;
1274:

Line 1271: asn_debug.put_line('process_transactions 002 f=' || to_char(X_rows_failed));

1267: rcv_express_sv.val_express_transactions(X_group_id,
1268: X_rows_succeeded,
1269: X_rows_failed);
1270: asn_debug.put_line('process_transactions 001 s=' || to_char(X_rows_succeeded));
1271: asn_debug.put_line('process_transactions 002 f=' || to_char(X_rows_failed));
1272:
1273: commit;
1274:
1275: if (X_rows_succeeded > 0) then

Line 1290: asn_debug.put_line('process_transactions 003 calling processor');

1286: * transaction, commit is necessary here.
1287: * Reverting the changes done as part of bug 3560995.
1288: **/
1289: commit;
1290: asn_debug.put_line('process_transactions 003 calling processor');
1291:
1292: X_return_code_number := call_txn_processor(X_group_id, X_caller);
1293:
1294:

Line 1322: asn_debug.put_line(x_message);

1318: if (x_caller = 'WP4' OR x_caller ='WP4_CONFIRM') then
1319: x_message := fnd_message.get;
1320: if (x_message = '') THEN
1321: ERROR_STACK.PUSHMESSAGE(x_message,'ICX');
1322: asn_debug.put_line(x_message);
1323: ELSE
1324: ERROR_STACK.PUSHMESSAGE(substr(SQLERRM,12,512),'ICX');
1325: asn_debug.put_line(substr(SQLERRM,12,512));
1326: END IF;

Line 1325: asn_debug.put_line(substr(SQLERRM,12,512));

1321: ERROR_STACK.PUSHMESSAGE(x_message,'ICX');
1322: asn_debug.put_line(x_message);
1323: ELSE
1324: ERROR_STACK.PUSHMESSAGE(substr(SQLERRM,12,512),'ICX');
1325: asn_debug.put_line(substr(SQLERRM,12,512));
1326: END IF;
1327: end if;
1328: return 97;
1329: end process_transactions;

Line 1560: asn_debug.put_line('vendor_site='||to_char(X_vendor_site_id));

1556: FROM rcv_transactions_interface
1557: WHERE group_id = X_group_id and
1558: shipment_header_id = x_shipment_header_id;
1559:
1560: asn_debug.put_line('vendor_site='||to_char(X_vendor_site_id));
1561: EXCEPTION
1562: WHEN others THEN
1563: X_vendor_site_id := null;
1564: END;

Line 1579: asn_debug.put_line('number of PO receipt created is ' || to_char(x_rcpt_count-1));

1575: close c0;
1576:
1577: /* update intransit shipment header according to user entered info */
1578:
1579: asn_debug.put_line('number of PO receipt created is ' || to_char(x_rcpt_count-1));
1580:
1581: open c1;
1582:
1583: loop

Line 1698: asn_debug.put_line(x_progress);

1694: x_txn_org_id NUMBER;
1695: begin
1696:
1697: x_progress := '001 calling txn_processor for group=' || to_char(X_group_id);
1698: asn_debug.put_line(x_progress);
1699:
1700: x_user_id := fnd_global.user_id;
1701: x_resp_id := fnd_global.resp_id;
1702: x_appl_id := fnd_global.resp_appl_id;

Line 1707: asn_debug.put_line('call_txn_processor x_group_id:' || x_group_id);

1703:
1704: fnd_global.APPS_INITIALIZE (X_user_id, X_resp_id, x_appl_id);
1705:
1706: -- Code for setting the org context same as the org id from PO
1707: asn_debug.put_line('call_txn_processor x_group_id:' || x_group_id);
1708:
1709: x_user_org_id := MO_GLOBAL.get_current_org_id;
1710:
1711: begin

Line 1723: asn_debug.put_line('Error while obtaining the org ID');

1719: p_org_id => x_txn_org_id);
1720: end if;
1721: exception
1722: WHEN OTHERS THEN
1723: asn_debug.put_line('Error while obtaining the org ID');
1724: end;
1725:
1726: x_trx_proc_mode := 'ONLINE';
1727:

Line 1730: asn_debug.put_line(x_progress);

1726: x_trx_proc_mode := 'ONLINE';
1727:
1728: if (X_trx_proc_mode = 'ONLINE') THEN
1729: x_progress := '002';
1730: asn_debug.put_line(x_progress);
1731:
1732: rc := fnd_transaction.synchronous (
1733: timeout, outcome, message, 'PO', 'RCVTPO',
1734: X_trx_proc_mode, X_group_id,

Line 1740: asn_debug.put_line(x_progress);

1736: NULL, NULL, NULL, NULL, NULL, NULL,
1737: NULL, NULL, NULL, NULL, NULL, NULL);
1738:
1739: x_progress := '003online call return=' || to_char(rc) || '; outcome='|| outcome;
1740: asn_debug.put_line(x_progress);
1741:
1742: if rc = 1 then
1743: if (por_rcv_ord_SV.check_group_id(X_group_id)) then
1744: fnd_message.set_name('FND', 'TM-TIMEOUT');

Line 1760: asn_debug.put_line('return 1, msg=' || x_output_message);

1756: if (X_caller <> 'WP4'OR x_caller <> 'WP4_CONFIRM') then
1757: htp.teletype(x_output_message);
1758: htp.nl;
1759: ELSE
1760: asn_debug.put_line('return 1, msg=' || x_output_message);
1761: ERROR_STACK.PUSHMESSAGE( x_output_message, 'ICX');
1762: end if;
1763: end if;
1764: delete_rows := TRUE;

Line 1781: asn_debug.put_line('return 2, msg=' || x_output_message);

1777:
1778:
1779: x_output_message := fnd_message.get;
1780: ERROR_STACK.PUSHMESSAGE( x_output_message, 'ICX');
1781: asn_debug.put_line('return 2, msg=' || x_output_message);
1782: end if;
1783: delete_rows := TRUE;
1784: elsif (rc = 3 or (outcome IN ('WARNING', 'ERROR'))) then
1785: asn_debug.put_line('return 3 from txn processor, or outcome='|| outcome);

Line 1785: asn_debug.put_line('return 3 from txn processor, or outcome='|| outcome);

1781: asn_debug.put_line('return 2, msg=' || x_output_message);
1782: end if;
1783: delete_rows := TRUE;
1784: elsif (rc = 3 or (outcome IN ('WARNING', 'ERROR'))) then
1785: asn_debug.put_line('return 3 from txn processor, or outcome='|| outcome);
1786: IF (por_rcv_ord_SV.check_group_id(X_group_id)) THEN
1787:
1788:
1789: rc1 := fnd_transaction.get_values (r_val1, r_val2, r_val3, r_val4, r_val5,

Line 1817: asn_debug.put_line('return 3 or error, msg=' || x_output_message);

1813: IF (r_val19 IS NOT NULL) THEN x_output_message := x_output_message || fnd_global.local_chr(10) || r_val19; END IF;
1814: IF (r_val20 IS NOT NULL) THEN x_output_message := x_output_message || fnd_global.local_chr(10) || r_val20; END IF;
1815:
1816: ERROR_STACK.PUSHMESSAGE( x_output_message, 'ICX');
1817: asn_debug.put_line('return 3 or error, msg=' || x_output_message);
1818: /* for this error case, we change the rc
1819: so that the error case will properly passed to middle tier.
1820: set to 4 to distinguish from 3
1821: */

Line 1833: asn_debug.put_line('After calling transaction processor, rc='|| to_char(rc));

1829: end if;
1830:
1831: END IF;
1832:
1833: asn_debug.put_line('After calling transaction processor, rc='|| to_char(rc));
1834: delete_rows := TRUE;
1835:
1836: elsif (rc = 0 and (outcome NOT IN ('WARNING', 'ERROR'))) then
1837:

Line 1846: asn_debug.put_line(x_progress);

1842: por_rcv_ord_SV.cancel_pending_notifs(x_group_id);
1843:
1844: end if;
1845: x_progress := '004, return 0 from txn processor';
1846: asn_debug.put_line(x_progress);
1847: delete_rows := FALSE;
1848: commit;
1849: end if;
1850:

Line 1935: asn_debug.put_line(x_progress);

1931: mo_global.set_policy_context(p_access_mode => 'S',
1932: p_org_id => x_user_org_id);
1933: end if;
1934: x_progress := 'call txn processor exception' || substr(SQLERRM,12,512);
1935: asn_debug.put_line(x_progress);
1936: ERROR_STACK.PUSHMESSAGE( substr(SQLERRM,12,512), 'ICX');
1937: return 94;
1938:
1939: end call_txn_processor;