DBA Data[Home] [Help]

APPS.GR_PROCESS_ORDERS dependencies on FND_API

Line 234: IF FND_API.To_Boolean(p_init_msg_list) THEN

230: SAVEPOINT Build_OPM_Selections;
231: /*
232: ** Initialize the message list if true
233: */
234: IF FND_API.To_Boolean(p_init_msg_list) THEN
235: FND_MSG_PUB.Initialize;
236: END IF;
237: g_report_type := 2;
238: /* Check the API version passed in matches the

Line 241: IF NOT FND_API.Compatible_API_Call

237: g_report_type := 2;
238: /* Check the API version passed in matches the
239: ** internal API version.
240: */
241: IF NOT FND_API.Compatible_API_Call
242: (l_api_version,
243: p_api_version,
244: l_api_name,
245: g_pkg_name) THEN

Line 251: x_return_status := FND_API.G_RET_STS_SUCCESS;

247: END IF;
248: /*
249: ** Set return status to successful
250: */
251: x_return_status := FND_API.G_RET_STS_SUCCESS;
252:
253: /*
254: ** B2286375 Check if using OM or OF
255: */

Line 340: l_return_status := FND_API.G_RET_STS_SUCCESS;

336:
337: FND_FILE.PUT(FND_FILE.LOG, l_code_block);
338: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
339:
340: l_return_status := FND_API.G_RET_STS_SUCCESS;
341: Insert_Selection_Row
342: ('GR_ON_HOLD_NO_SHIP',
343: 'CODE',
344: LocalShipmentDate.holdreas_code,

Line 363: l_return_status := FND_API.G_RET_STS_SUCCESS;

359: g_order_line := LocalShipmentDate.line_no;
360: g_recipient_code := LocalShipmentDate.cust_no;
361: g_item_code := LocalShipmentDate.item_no;
362: g_shipment_number := LocalShipmentDate.bol_no;
363: l_return_status := FND_API.G_RET_STS_SUCCESS;
364:
365: Check_Selected_Line
366: (l_return_status,
367: x_msg_count,

Line 401: l_return_status := FND_API.G_RET_STS_SUCCESS;

397:
398: FND_FILE.PUT(FND_FILE.LOG, l_code_block);
399: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
400:
401: l_return_status := FND_API.G_RET_STS_SUCCESS;
402: Insert_Selection_Row
403: ('GR_ON_HOLD_NO_SHIP',
404: 'CODE',
405: LocalShipmentDetail.holdreas_code,

Line 423: l_return_status := FND_API.G_RET_STS_SUCCESS;

419: g_order_line := LocalShipmentDetail.line_no;
420: g_recipient_code := LocalShipmentDetail.cust_no;
421: g_item_code := LocalShipmentDetail.item_no;
422: g_shipment_number := LocalShipmentDetail.bol_no;
423: l_return_status := FND_API.G_RET_STS_SUCCESS;
424:
425: Check_Selected_Line
426: (l_return_status,
427: x_msg_count,

Line 464: l_return_status := FND_API.G_RET_STS_SUCCESS;

460:
461: FND_FILE.PUT(FND_FILE.LOG, l_code_block);
462: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
463:
464: l_return_status := FND_API.G_RET_STS_SUCCESS;
465: Insert_Selection_Row
466: ('GR_ON_HOLD_NO_PICK',
467: 'CODE',
468: LocalOrderDetail.holdreas_code,

Line 488: l_return_status := FND_API.G_RET_STS_SUCCESS;

484: --utl_file.put_line(pg_fp, 'code '||l_code_block);
485: FND_FILE.PUT(FND_FILE.LOG, l_code_block);
486: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
487:
488: l_return_status := FND_API.G_RET_STS_SUCCESS;
489: Insert_Selection_Row
490: ('GR_ON_HOLD_NO_SHIP',
491: 'CODE',
492: LocalOrderDetail.holdreas_code,

Line 514: l_return_status := FND_API.G_RET_STS_SUCCESS;

510:
511: FND_FILE.PUT(FND_FILE.LOG, l_code_block);
512: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
513:
514: l_return_status := FND_API.G_RET_STS_SUCCESS;
515: Insert_Selection_Row
516: ('GR_ORDER_ALREADY_SHIPPED',
517: '',
518: '',

Line 538: l_return_status := FND_API.G_RET_STS_SUCCESS;

534: g_recipient_code := LocalOrderDetail.cust_no;
535: g_item_code := LocalOrderDetail.item_no;
536: g_shipment_number := NULL;
537:
538: l_return_status := FND_API.G_RET_STS_SUCCESS;
539:
540: Check_Selected_Line
541: (l_return_status,
542: x_msg_count,

Line 562: l_return_status := FND_API.G_RET_STS_SUCCESS;

558: --utl_file.put_line(pg_fp,'code blk ' ||l_code_block);
559: FND_FILE.PUT(FND_FILE.LOG, l_code_block);
560: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
561:
562: l_return_status := FND_API.G_RET_STS_SUCCESS;
563: Insert_Selection_Row
564: ('GR_ON_HOLD_NO_PICK',
565: 'CODE',
566: LocalHoldRecord.order_hold_id,

Line 585: l_return_status := FND_API.G_RET_STS_SUCCESS;

581: g_recipient_code := LocalOrderDetail.cust_no;
582: g_item_code := LocalOrderDetail.item_no;
583: g_shipment_number := NULL;
584: --utl_file.put_line(pg_fp,'else ' ||g_order_number);
585: l_return_status := FND_API.G_RET_STS_SUCCESS;
586:
587: Check_Selected_Line
588: (l_return_status,
589: x_msg_count,

Line 614: IF FND_API.To_Boolean(p_commit) THEN

610: UPDATE gr_selection_header
611: SET status = 2
612: WHERE batch_no = p_batch_number;
613:
614: IF FND_API.To_Boolean(p_commit) THEN
615: COMMIT WORK;
616: END IF;
617: /*
618: ** Process all flag set to 1 means automatically chain

Line 821: IF FND_API.To_Boolean(p_init_msg_list) THEN

817: BEGIN
818: /*
819: ** Initialize the message list if true
820: */
821: IF FND_API.To_Boolean(p_init_msg_list) THEN
822: FND_MSG_PUB.Initialize;
823: END IF;
824: /*pg_fp := utl_file.fopen('/sqlcom/log/opm115m','order1.log','w');
825: utl_file.put_line(pg_fp, 'this is a test statement');*/

Line 830: IF NOT FND_API.Compatible_API_Call

826: /*
827: ** Check the API version passed in matches the
828: ** internal API version.
829: */
830: IF NOT FND_API.Compatible_API_Call
831: (l_api_version,
832: p_api_version,
833: l_api_name,
834: g_pkg_name) THEN

Line 854: x_return_status := FND_API.G_RET_STS_SUCCESS;

850: ** Set return status to successful and get
851: ** the required user profiles.
852: */
853: IF p_called_by_form = 'F' THEN
854: x_return_status := FND_API.G_RET_STS_SUCCESS;
855: END IF;
856: g_recipient_code := NULL;
857: /*
858: ** Check the passed in batch number is not null

Line 1575: IF FND_API.To_Boolean(p_commit) THEN

1571: WHERE ROWID = LocalDetailRecord.ROWID;
1572: /*
1573: ** Commit the work if the flag is set
1574: */
1575: IF FND_API.To_Boolean(p_commit) THEN
1576: COMMIT WORK;
1577: END IF;
1578: /*
1579: ** Now submit the print job.

Line 1635: IF FND_API.To_Boolean(p_commit) THEN

1631: UPDATE gr_selection_header
1632: SET status = 6
1633: WHERE batch_no = p_batch_number;
1634:
1635: IF FND_API.To_Boolean(p_commit) THEN
1636: COMMIT WORK;
1637: END IF;
1638: /*
1639: ** Process all flag set to 1 means automatically chain

Line 1643: /* l_return_status := FND_API.G_RET_STS_SUCCESS; */

1639: ** Process all flag set to 1 means automatically chain
1640: ** to process the selected lines.
1641: */
1642: IF p_process_all_flag = 1 THEN
1643: /* l_return_status := FND_API.G_RET_STS_SUCCESS; */
1644: /*utl_file.put_line(pg_fp, 'process '|| p_process_all_flag);*/
1645: Update_Dispatch_History
1646: (errbuf,
1647: retcode,

Line 1910: IF FND_API.To_Boolean(p_init_msg_list) THEN

1906: l_blank_attribute := NULL;
1907:
1908: /* Initialize the message list if true */
1909:
1910: IF FND_API.To_Boolean(p_init_msg_list) THEN
1911: FND_MSG_PUB.Initialize;
1912: END IF;
1913:
1914: /* Check the API version passed in matches the

Line 1917: IF NOT FND_API.Compatible_API_Call

1913:
1914: /* Check the API version passed in matches the
1915: ** internal API version.
1916: */
1917: IF NOT FND_API.Compatible_API_Call
1918: (l_api_version,
1919: p_api_version,
1920: l_api_name,
1921: g_pkg_name) THEN

Line 1927: l_return_status := FND_API.G_RET_STS_SUCCESS;

1923: END IF;
1924:
1925: /* Set return status to successful */
1926:
1927: l_return_status := FND_API.G_RET_STS_SUCCESS;
1928:
1929: /* Check the passed in batch number is not null
1930: ** and exists on the batch selection header.
1931: */

Line 2068: l_return_status := FND_API.G_RET_STS_SUCCESS;

2064: ELSE
2065: l_msds_date := BatchDetails.date_msds_sent;
2066: END IF; /* BatchDetails.date_msds_sent IS NULL */
2067: IF BatchDetails.document_code IS NOT NULL THEN
2068: l_return_status := FND_API.G_RET_STS_SUCCESS;
2069: FND_FILE.PUT(FND_FILE.LOG, ' Check Primary Key for Dispatch Histories ' );
2070: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
2071: /*
2072: ** Bug 2342375 Mercy Thomas 08/15/2002 Added the following code to check for the validity of the item code before Inserting

Line 2122: IF NOT FND_API.TO_BOOLEAN(l_key_exists) THEN

2118: l_msds_date,
2119: 'F',
2120: l_rowid,
2121: l_key_exists);
2122: IF NOT FND_API.TO_BOOLEAN(l_key_exists) THEN
2123: GR_DISPATCH_HISTORIES_PKG.Insert_Row
2124: (l_commit,
2125: l_called_by_form,
2126: BatchDetails.document_code,

Line 2183: END IF; /* NOT FND_API.TO_BOOLEAN(l_key_exists) */

2179:
2180: IF l_return_status <> 'S' THEN
2181: RAISE Dispatch_History_Insert_Error;
2182: END IF;
2183: END IF; /* NOT FND_API.TO_BOOLEAN(l_key_exists) */
2184: END IF; /* l_item_code IS NOT NULL */
2185: ELSE
2186: FND_MESSAGE.SET_NAME('GR', 'GR_NULL_BATCH_NUMBER');
2187: FND_FILE.PUT(FND_FILE.LOG, FND_MESSAGE.GET);

Line 2222: IF FND_API.To_Boolean(p_commit) THEN

2218:
2219: /*
2220: ** Commit the work if the flag is set
2221: */
2222: IF FND_API.To_Boolean(p_commit) THEN
2223: COMMIT WORK;
2224: END IF;
2225: -- Bug #1902822 (JKB) Added above.
2226: /*

Line 2288: IF FND_API.To_Boolean(p_commit) THEN

2284: '', '', '', '', '', '', '', '', '', '',
2285: '', '', '', '', '', '', '', '', '', '');
2286:
2287:
2288: IF FND_API.To_Boolean(p_commit) THEN
2289: COMMIT WORK;
2290: END IF;
2291: END IF;
2292: END IF;

Line 3884: x_return_status := FND_API.G_RET_STS_ERROR;

3880:
3881: WHEN OTHERS THEN
3882: FND_FILE.PUT(FND_FILE.LOG,' Selection Insert Error:'||sqlerrm);
3883: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
3884: x_return_status := FND_API.G_RET_STS_ERROR;
3885:
3886: END Insert_Selection_Row;
3887: /*
3888: **

Line 3971: x_return_status := FND_API.G_RET_STS_SUCCESS;

3967: LocalDispatchRcd c_get_last_dispatch%ROWTYPE;
3968:
3969: BEGIN
3970: --pg_fp := utl_file.fopen('/sqlcom/log/opm115m','check.log','w');
3971: x_return_status := FND_API.G_RET_STS_SUCCESS;
3972: l_print_flag := 'YS';
3973: FND_FILE.PUT(FND_FILE.LOG,'Order:'||g_order_number||'Line:'||g_order_line||' Recip:'||g_recipient_code||'Batch:'||g_batch_number||'Item:'||g_item_code);
3974: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
3975: --utl_file.put_line(pg_fp, 'docco '||g_default_document);

Line 3984: l_return_status := FND_API.G_RET_STS_SUCCESS;

3980: l_code_block := ' Order line already selected in print job ';
3981: FND_FILE.PUT(FND_FILE.LOG,l_code_block);
3982: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
3983: --utl_file.put_line(pg_fp, 'cblock' ||l_code_block);
3984: l_return_status := FND_API.G_RET_STS_SUCCESS;
3985: Insert_Selection_Row
3986: ('GR_ORDER_ALREADY_SELECTED',
3987: 'CODE',
3988: LocalSelection.batch_no,

Line 4017: l_return_status := FND_API.G_RET_STS_SUCCESS;

4013: l_code_block := ' No safety information for this item';
4014: FND_FILE.PUT(FND_FILE.LOG,l_code_block);
4015: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
4016: --utl_file.put_line(pg_fp, 'cblock2' ||l_code_block);
4017: l_return_status := FND_API.G_RET_STS_SUCCESS;
4018: l_print_flag := 'NO';
4019: Insert_Selection_Row
4020: ('GR_NO_SAFETY_INFO',
4021: 'ITEM',

Line 4057: l_return_status := FND_API.G_RET_STS_SUCCESS;

4053: OPEN g_get_recipient;
4054: FETCH g_get_recipient INTO GlobalRecipient;
4055: IF g_get_recipient%NOTFOUND THEN
4056: CLOSE g_get_recipient;
4057: l_return_status := FND_API.G_RET_STS_SUCCESS;
4058: IF g_default_document IS NOT NULL THEN
4059: l_return_status := 'S';
4060: Insert_Selection_Row
4061: ('GR_NO_RECIPIENT_DO_PRINT',

Line 4075: l_return_status := FND_API.G_RET_STS_SUCCESS;

4071: IF l_return_status <> 'S' THEN
4072: RAISE Selection_Insert_Error;
4073: END IF;
4074: ELSE
4075: l_return_status := FND_API.G_RET_STS_SUCCESS;
4076: Insert_Selection_Row
4077: ('GR_NO_DEFAULT_DOCUMENT',
4078: 'CODE',
4079: g_default_country,

Line 4104: l_return_status := FND_API.G_RET_STS_SUCCESS;

4100: ** 'S' - At least every six months
4101: ** 'Y' - At least once a year
4102: */
4103: IF GlobalRecipient.document_print_frequency = 'A' THEN
4104: l_return_status := FND_API.G_RET_STS_SUCCESS;
4105: --utl_file.put_line(pg_fp, 'Always');
4106: Insert_Selection_Row
4107: ('GR_ALWAYS_PRINT',
4108: '',

Line 4121: l_return_status := FND_API.G_RET_STS_SUCCESS; --utl_file.put_line(pg_fp, 'never');

4117: IF l_return_status <> 'S' THEN
4118: RAISE Selection_Insert_Error;
4119: END IF;
4120: ELSIF GlobalRecipient.document_print_frequency = 'N' THEN
4121: l_return_status := FND_API.G_RET_STS_SUCCESS; --utl_file.put_line(pg_fp, 'never');
4122: Insert_Selection_Row
4123: ('GR_NEVER_PRINT',
4124: '',
4125: '',

Line 4141: l_return_status := FND_API.G_RET_STS_SUCCESS;

4137: OPEN c_get_last_dispatch;
4138: FETCH c_get_last_dispatch INTO LocalDispatchRcd;
4139: IF c_get_last_dispatch%NOTFOUND THEN
4140: --utl_file.put_line(pg_fp, 'not found');
4141: l_return_status := FND_API.G_RET_STS_SUCCESS;
4142: Insert_Selection_Row
4143: ('GR_FIRST_DISPATCH',
4144: '',
4145: '',

Line 4158: l_return_status := FND_API.G_RET_STS_SUCCESS;

4154: RAISE Selection_Insert_Error;
4155: END IF;
4156: ELSIF LocalDispatchRcd.last_doc_update_date > LocalDispatchRcd.date_msds_sent THEN
4157: --utl_file.put_line(pg_fp, 'doc_update > ');
4158: l_return_status := FND_API.G_RET_STS_SUCCESS;
4159: Insert_Selection_Row
4160: ('GR_DOCUMENT_CHANGED',
4161: 'DATE',
4162: TO_CHAR(LocalDispatchRcd.date_msds_sent,'DD-MON-YYYY'),

Line 4181: l_return_status := FND_API.G_RET_STS_SUCCESS;

4177: --utl_file.put_line(pg_fp, 'abs ' ||ABS(MONTHS_BETWEEN (l_current_date,
4178: -- LocalDispatchRcd.date_msds_sent)) );
4179: IF ABS(MONTHS_BETWEEN (l_current_date,
4180: LocalDispatchRcd.date_msds_sent)) >= 3 THEN
4181: l_return_status := FND_API.G_RET_STS_SUCCESS;
4182: --utl_file.put_line(pg_fp, 'in ');
4183: Insert_Selection_Row
4184: ('GR_DISPATCH_QUARTERLY',
4185: '',

Line 4208: l_return_status := FND_API.G_RET_STS_SUCCESS;

4204: ELSIF GlobalRecipient.document_print_frequency = 'S' THEN
4205: --utl_file.put_line(pg_fp, 'S');
4206: IF ABS(MONTHS_BETWEEN (l_current_date,
4207: LocalDispatchRcd.date_msds_sent)) >= 6 THEN
4208: l_return_status := FND_API.G_RET_STS_SUCCESS;
4209: Insert_Selection_Row
4210: ('GR_DISPATCH_QUARTERLY',
4211: '',
4212: '',

Line 4233: l_return_status := FND_API.G_RET_STS_SUCCESS;

4229: ELSIF GlobalRecipient.document_print_frequency = 'Y' THEN
4230: --utl_file.put_line(pg_fp, 'Y');
4231: IF ABS(MONTHS_BETWEEN (l_current_date,
4232: LocalDispatchRcd.date_msds_sent)) >= 12 THEN
4233: l_return_status := FND_API.G_RET_STS_SUCCESS;
4234: Insert_Selection_Row
4235: ('GR_DISPATCH_QUARTERLY',
4236: '',
4237: '',

Line 4259: l_return_status := FND_API.G_RET_STS_SUCCESS;

4255: /*ELSIF GlobalRecipient.document_print_frequency = 'R' THEN
4256: l_time_period := GlobalRecipient.time_period;
4257: l_diff := ABS(l_current_date - LocalDispatchRcd.date_msds_sent);
4258: IF l_time_period = l_diff THEN
4259: l_return_status := FND_API.G_RET_STS_SUCCESS;
4260: Insert_Selection_Row
4261: ('GR_DISPATCH_AS_REQUIRED',
4262: '',
4263: '',

Line 4279: l_return_status := FND_API.G_RET_STS_SUCCESS;

4275: ELSE
4276: FND_FILE.PUT(FND_FILE.LOG,' No document required');
4277: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
4278: --utl_file.put_line(pg_fp, 'no doc');
4279: l_return_status := FND_API.G_RET_STS_SUCCESS;
4280: Insert_Selection_Row
4281: ('GR_NO_DOCUMENT_REQUIRED',
4282: '',
4283: '',

Line 5535: x_return_status := FND_API.G_RET_STS_ERROR;

5531: L_MSG_COUNT NUMBER;
5532:
5533: BEGIN
5534:
5535: x_return_status := FND_API.G_RET_STS_ERROR;
5536: FND_MESSAGE.SET_NAME('GR',
5537: p_message_code);
5538: IF p_token_name IS NOT NULL THEN
5539: FND_MESSAGE.SET_TOKEN(p_token_name,