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 885: asn_debug.put_line('POR_RCV_ORD_SV.INSERT_RCV_TXN_INTERFACE x_source_type_code:' || x_source_type_code);

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

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

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

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

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

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

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

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

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

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

1043: POH.PO_HEADER_ID = x_po_header_id and
1044: POLL.LINE_LOCATION_ID = x_line_location_id and
1045: POD.PO_DISTRIBUTION_ID = X_po_distribution_id;
1046:
1047: asn_debug.put_line('POR_RCV_ORD_SV.INSERT_RCV_TXN_INTERFACE Inserting values in RCV_TRANSACTIONS_INTERFACE');
1048:
1049: INSERT INTO RCV_TRANSACTIONS_INTERFACE (
1050: INTERFACE_TRANSACTION_ID,
1051: GROUP_ID,

Line 1200: asn_debug.put_line(l_err_message);

1196: exception
1197: when others THEN
1198: if (x_caller = 'WP4' OR x_caller = 'WP4_CONFIRM') then
1199: l_err_message := substr(SQLERRM,12,512);
1200: asn_debug.put_line(l_err_message);
1201: ERROR_STACK.PUSHMESSAGE( substr(SQLERRM,12,512),'ICX');
1202: APP_EXCEPTION.RAISE_EXCEPTION;
1203: end if;
1204:

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

1243: into x_txn_org_id
1244: from rcv_transactions_interface rti
1245: where rti.group_id = x_group_id and rownum = 1;
1246:
1247: asn_debug.put_line('process_transactions x_txn_org_id:' || x_txn_org_id);
1248:
1249: if (x_txn_org_id <> MO_GLOBAL.get_current_org_id) then
1250: mo_global.set_policy_context(p_access_mode => 'S',
1251: p_org_id => x_txn_org_id);

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

1251: p_org_id => x_txn_org_id);
1252: end if;
1253: exception
1254: WHEN OTHERS THEN
1255: asn_debug.put_line('Error while obtaining the org ID');
1256: end;
1257:
1258: /** Validate the Input fields **/
1259: asn_debug.put_line('process_transactions Calling the val_express_transactions');

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

1255: asn_debug.put_line('Error while obtaining the org ID');
1256: end;
1257:
1258: /** Validate the Input fields **/
1259: asn_debug.put_line('process_transactions Calling the val_express_transactions');
1260: rcv_express_sv.val_express_transactions(X_group_id,
1261: X_rows_succeeded,
1262: X_rows_failed);
1263: asn_debug.put_line('process_transactions 001 s=' || to_char(X_rows_succeeded));

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

1259: asn_debug.put_line('process_transactions Calling the val_express_transactions');
1260: rcv_express_sv.val_express_transactions(X_group_id,
1261: X_rows_succeeded,
1262: X_rows_failed);
1263: asn_debug.put_line('process_transactions 001 s=' || to_char(X_rows_succeeded));
1264: asn_debug.put_line('process_transactions 002 f=' || to_char(X_rows_failed));
1265:
1266: commit;
1267:

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

1260: rcv_express_sv.val_express_transactions(X_group_id,
1261: X_rows_succeeded,
1262: X_rows_failed);
1263: asn_debug.put_line('process_transactions 001 s=' || to_char(X_rows_succeeded));
1264: asn_debug.put_line('process_transactions 002 f=' || to_char(X_rows_failed));
1265:
1266: commit;
1267:
1268: if (X_rows_succeeded > 0) then

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

1279: * transaction, commit is necessary here.
1280: * Reverting the changes done as part of bug 3560995.
1281: **/
1282: commit;
1283: asn_debug.put_line('process_transactions 003 calling processor');
1284:
1285: X_return_code_number := call_txn_processor(X_group_id, X_caller);
1286:
1287:

Line 1315: asn_debug.put_line(x_message);

1311: if (x_caller = 'WP4' OR x_caller ='WP4_CONFIRM') then
1312: x_message := fnd_message.get;
1313: if (x_message = '') THEN
1314: ERROR_STACK.PUSHMESSAGE(x_message,'ICX');
1315: asn_debug.put_line(x_message);
1316: ELSE
1317: ERROR_STACK.PUSHMESSAGE(substr(SQLERRM,12,512),'ICX');
1318: asn_debug.put_line(substr(SQLERRM,12,512));
1319: END IF;

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

1314: ERROR_STACK.PUSHMESSAGE(x_message,'ICX');
1315: asn_debug.put_line(x_message);
1316: ELSE
1317: ERROR_STACK.PUSHMESSAGE(substr(SQLERRM,12,512),'ICX');
1318: asn_debug.put_line(substr(SQLERRM,12,512));
1319: END IF;
1320: end if;
1321: return 97;
1322: end process_transactions;

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

1549: FROM rcv_transactions_interface
1550: WHERE group_id = X_group_id and
1551: shipment_header_id = x_shipment_header_id;
1552:
1553: asn_debug.put_line('vendor_site='||to_char(X_vendor_site_id));
1554: EXCEPTION
1555: WHEN others THEN
1556: X_vendor_site_id := null;
1557: END;

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

1568: close c0;
1569:
1570: /* update intransit shipment header according to user entered info */
1571:
1572: asn_debug.put_line('number of PO receipt created is ' || to_char(x_rcpt_count-1));
1573:
1574: open c1;
1575:
1576: loop

Line 1690: asn_debug.put_line(x_progress);

1686: x_txn_org_id NUMBER;
1687: begin
1688:
1689: x_progress := '001 calling txn_processor for group=' || to_char(X_group_id);
1690: asn_debug.put_line(x_progress);
1691:
1692: x_user_id := fnd_global.user_id;
1693: x_resp_id := fnd_global.resp_id;
1694: x_appl_id := fnd_global.resp_appl_id;

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

1695:
1696: fnd_global.APPS_INITIALIZE (X_user_id, X_resp_id, x_appl_id);
1697:
1698: -- Code for setting the org context same as the org id from PO
1699: asn_debug.put_line('call_txn_processor x_group_id:' || x_group_id);
1700:
1701: x_user_org_id := MO_GLOBAL.get_current_org_id;
1702:
1703: begin

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

1711: p_org_id => x_txn_org_id);
1712: end if;
1713: exception
1714: WHEN OTHERS THEN
1715: asn_debug.put_line('Error while obtaining the org ID');
1716: end;
1717:
1718: x_trx_proc_mode := 'ONLINE';
1719:

Line 1722: asn_debug.put_line(x_progress);

1718: x_trx_proc_mode := 'ONLINE';
1719:
1720: if (X_trx_proc_mode = 'ONLINE') THEN
1721: x_progress := '002';
1722: asn_debug.put_line(x_progress);
1723:
1724: rc := fnd_transaction.synchronous (
1725: timeout, outcome, message, 'PO', 'RCVTPO',
1726: X_trx_proc_mode, X_group_id,

Line 1732: asn_debug.put_line(x_progress);

1728: NULL, NULL, NULL, NULL, NULL, NULL,
1729: NULL, NULL, NULL, NULL, NULL, NULL);
1730:
1731: x_progress := '003online call return=' || to_char(rc) || '; outcome='|| outcome;
1732: asn_debug.put_line(x_progress);
1733:
1734: if rc = 1 then
1735: if (por_rcv_ord_SV.check_group_id(X_group_id)) then
1736: fnd_message.set_name('FND', 'TM-TIMEOUT');

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

1748: if (X_caller <> 'WP4'OR x_caller <> 'WP4_CONFIRM') then
1749: htp.teletype(x_output_message);
1750: htp.nl;
1751: ELSE
1752: asn_debug.put_line('return 1, msg=' || x_output_message);
1753: ERROR_STACK.PUSHMESSAGE( x_output_message, 'ICX');
1754: end if;
1755: end if;
1756: delete_rows := TRUE;

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

1769:
1770:
1771: x_output_message := fnd_message.get;
1772: ERROR_STACK.PUSHMESSAGE( x_output_message, 'ICX');
1773: asn_debug.put_line('return 2, msg=' || x_output_message);
1774: end if;
1775: delete_rows := TRUE;
1776: elsif (rc = 3 or (outcome IN ('WARNING', 'ERROR'))) then
1777: asn_debug.put_line('return 3 from txn processor, or outcome='|| outcome);

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

1773: asn_debug.put_line('return 2, msg=' || x_output_message);
1774: end if;
1775: delete_rows := TRUE;
1776: elsif (rc = 3 or (outcome IN ('WARNING', 'ERROR'))) then
1777: asn_debug.put_line('return 3 from txn processor, or outcome='|| outcome);
1778: IF (por_rcv_ord_SV.check_group_id(X_group_id)) THEN
1779:
1780:
1781: rc := fnd_transaction.get_values (r_val1, r_val2, r_val3, r_val4, r_val5,

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

1805: IF (r_val19 IS NOT NULL) THEN x_output_message := x_output_message || fnd_global.local_chr(10) || r_val19; END IF;
1806: IF (r_val20 IS NOT NULL) THEN x_output_message := x_output_message || fnd_global.local_chr(10) || r_val20; END IF;
1807:
1808: ERROR_STACK.PUSHMESSAGE( x_output_message, 'ICX');
1809: asn_debug.put_line('return 3 or error, msg=' || x_output_message);
1810: /* for this error case, we change the rc
1811: so that the error case will properly passed to middle tier.
1812: set to 4 to distinguish from 3
1813: */

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

1816: end if;
1817:
1818: END IF;
1819:
1820: asn_debug.put_line('After calling transaction processor, rc='|| to_char(rc));
1821: delete_rows := TRUE;
1822:
1823: elsif (rc = 0 and (outcome NOT IN ('WARNING', 'ERROR'))) then
1824:

Line 1833: asn_debug.put_line(x_progress);

1829: por_rcv_ord_SV.cancel_pending_notifs(x_group_id);
1830:
1831: end if;
1832: x_progress := '004, return 0 from txn processor';
1833: asn_debug.put_line(x_progress);
1834: delete_rows := FALSE;
1835: commit;
1836: end if;
1837:

Line 1922: asn_debug.put_line(x_progress);

1918: mo_global.set_policy_context(p_access_mode => 'S',
1919: p_org_id => x_user_org_id);
1920: end if;
1921: x_progress := 'call txn processor exception' || substr(SQLERRM,12,512);
1922: asn_debug.put_line(x_progress);
1923: ERROR_STACK.PUSHMESSAGE( substr(SQLERRM,12,512), 'ICX');
1924: return 94;
1925:
1926: end call_txn_processor;