eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.GR_PROCESS_ORDERS dependencies on UTL_FILE

Line 39: pg_fp utl_file.file_type;

35:
36: x_return_status VARCHAR2(100);
37: x_msg_count NUMBER;
38: X_msg_data VARCHAR2(2000);
39: pg_fp utl_file.file_type;
40:
41: /* Numeric Variables */
42: L_ORACLE_ERROR NUMBER;
43: L_API_VERSION CONSTANT NUMBER := 1.0;

Line 287: g_default_country := GlobalBatchHeader.territory_code;--utl_file.put_line(pg_fp, 'terr '||GlobalBatchHeader.territory_code);

283: END IF;
284: /*
285: ** Set the territory, organizaton and warehouse defaults
286: */
287: g_default_country := GlobalBatchHeader.territory_code;--utl_file.put_line(pg_fp, 'terr '||GlobalBatchHeader.territory_code);
288: g_default_orgn := GlobalBatchHeader.orgn_code;
289: g_default_whse := GlobalBatchHeader.whse_code;
290:
291: /* Bug #2286375 GK Changes*/

Line 305: g_default_document := GlobalCountryRecord.document_code;--utl_file.put_line(pg_fp, 'doc '||GlobalCountryRecord.document_code);

301: FETCH g_get_country_profile INTO GlobalCountryRecord;
302: IF g_get_country_profile%NOTFOUND THEN
303: g_default_document := NULL;
304: ELSE
305: g_default_document := GlobalCountryRecord.document_code;--utl_file.put_line(pg_fp, 'doc '||GlobalCountryRecord.document_code);
306: END IF;
307: CLOSE g_get_country_profile;
308: /*
309: ** Clear any existing rows from the detail table

Line 454: --utl_file.put_line(pg_fp, 'integrn ' ||l_om_integration);

450: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
451:
452: g_item_code := LocalOrderDetail.item_no;
453: IF l_om_integration = 'N' THEN /*Added for OM Integration B2286375*/
454: --utl_file.put_line(pg_fp, 'integrn ' ||l_om_integration);
455: IF LocalOrderDetail.holdreas_code <> 'NONE' OR LocalOrderDetail.hold_code <> 'NONE' THEN
456: -- utl_file.put_line(pg_fp, 'hold found' ||Localofhold.holdreas_code);
457: IF LocalOrderDetail.picking_ind <> 0 AND
458: LocalOrderDetail.picking_ind IS NOT NULL THEN

Line 456: -- utl_file.put_line(pg_fp, 'hold found' ||Localofhold.holdreas_code);

452: g_item_code := LocalOrderDetail.item_no;
453: IF l_om_integration = 'N' THEN /*Added for OM Integration B2286375*/
454: --utl_file.put_line(pg_fp, 'integrn ' ||l_om_integration);
455: IF LocalOrderDetail.holdreas_code <> 'NONE' OR LocalOrderDetail.hold_code <> 'NONE' THEN
456: -- utl_file.put_line(pg_fp, 'hold found' ||Localofhold.holdreas_code);
457: IF LocalOrderDetail.picking_ind <> 0 AND
458: LocalOrderDetail.picking_ind IS NOT NULL THEN
459: l_code_block := 'Hold reason does not allow order to be picked';
460:

Line 484: --utl_file.put_line(pg_fp, 'code '||l_code_block);

480: /* Added code to check for the hold for shipping_ind on the order. */
481: ELSIF LocalOrderDetail.shipping_ind <> 0 AND
482: LocalOrderDetail.shipping_ind IS NOT NULL THEN
483: l_code_block := 'Hold reason does not allow order to be shipped';
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;

Line 530: -- utl_file.put_line(pg_fp, 'else bol_id');

526: IF l_return_status <> 'S' THEN
527: RAISE Selection_Insert_Error;
528: END IF;
529: ELSE
530: -- utl_file.put_line(pg_fp, 'else bol_id');
531: g_order_no := LocalOrderDetail.order_no;
532: g_order_number := LocalOrderDetail.order_id;
533: g_order_line := LocalOrderDetail.line_no;
534: g_recipient_code := LocalOrderDetail.cust_no;

Line 552: --utl_file.put_line(pg_fp, 'integrnOM ' ||l_om_integration);

548:
549: END IF; /* LocalOrderDetail.bol_id <> 0 */
550: END IF; /*holdreas_code*/
551: ELSIF l_om_integration = 'Y' THEN /*Added for OM Integration B2286375*/
552: --utl_file.put_line(pg_fp, 'integrnOM ' ||l_om_integration);
553: IF LocalOrderDetail.holdreas_code = 0 THEN
554: OPEN c_get_hold;
555: FETCH c_get_hold INTO LocalHoldRecord;
556: IF c_get_hold%FOUND THEN

Line 558: --utl_file.put_line(pg_fp,'code blk ' ||l_code_block);

554: OPEN c_get_hold;
555: FETCH c_get_hold INTO LocalHoldRecord;
556: IF c_get_hold%FOUND THEN
557: l_code_block := 'Hold reason does not allow order to be picked';
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;

Line 584: --utl_file.put_line(pg_fp,'else ' ||g_order_number);

580: g_order_line := LocalOrderDetail.line_no;
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,

Line 725: --utl_file.fflush(pg_fp);

721: 'GR_UNEXPECTED_ERROR');
722: FND_MESSAGE.SET_TOKEN('TEXT',
723: l_code_block||sqlerrm,
724: FALSE);
725: --utl_file.fflush(pg_fp);
726: --utl_file.fclose(pg_fp);
727: END Build_OPM_Selections;
728: /*
729: ** This procedure takes the selections for the batch that are

Line 726: --utl_file.fclose(pg_fp);

722: FND_MESSAGE.SET_TOKEN('TEXT',
723: l_code_block||sqlerrm,
724: FALSE);
725: --utl_file.fflush(pg_fp);
726: --utl_file.fclose(pg_fp);
727: END Build_OPM_Selections;
728: /*
729: ** This procedure takes the selections for the batch that are
730: ** stored in the gr_selection table and generates the cover

Line 759: pg_fp utl_file.file_type;

755: L_NEW_RECIPIENT VARCHAR2(2);
756: L_PRINT_COUNT NUMBER(5) DEFAULT 0;
757: L_LANGUAGE_CODE FND_LANGUAGES.language_code%TYPE;
758: L_API_NAME CONSTANT VARCHAR2(30) := 'Process Selections';
759: pg_fp utl_file.file_type;
760: /* Numeric Variables */
761: L_HEADER_STATUS GR_SELECTION_HEADER.status%TYPE;
762: L_ORACLE_ERROR NUMBER;
763: L_USER_ID NUMBER;

Line 824: /*pg_fp := utl_file.fopen('/sqlcom/log/opm115m','order1.log','w');

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');*/
826: /*
827: ** Check the API version passed in matches the
828: ** internal API version.

Line 825: utl_file.put_line(pg_fp, 'this is a test statement');*/

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');*/
826: /*
827: ** Check the API version passed in matches the
828: ** internal API version.
829: */

Line 924: /utl_file.put_line(pg_fp, 'GlobalBatchHeader.status' ||GlobalBatchHeader.status);/

920: ** Store the batch header status and set the
921: ** header status to in process - 3
922: */
923: l_header_status := GlobalBatchHeader.status;
924: /*utl_file.put_line(pg_fp, 'GlobalBatchHeader.status' ||GlobalBatchHeader.status);*/
925:
926: UPDATE gr_selection_header
927: SET status = 3
928: WHERE batch_no = p_batch_number;

Line 983: /utl_file.put_line(pg_fp, 'LocalDetailRecord.recipient_code'||LocalDetailRecord.recipient_code);/

979: */
980: IF g_recipient_code IS NULL OR
981: g_recipient_code <> LocalDetailRecord.recipient_code THEN
982: g_recipient_code := LocalDetailRecord.recipient_code;
983: /*utl_file.put_line(pg_fp, 'LocalDetailRecord.recipient_code'||LocalDetailRecord.recipient_code);*/
984: OPEN g_get_recipient;
985: FETCH g_get_recipient INTO GlobalRecipient;
986: IF g_get_recipient%NOTFOUND THEN
987: l_code_block := 'Write new recipient record';

Line 999: /utl_file.put_line(pg_fp, 'GlobalRecipient.invoice_address'||GlobalRecipient.invoice_address);/

995: /*
996: ** Print documents for invoice address
997: */
998: IF GlobalRecipient.invoice_address = 1 THEN
999: /*utl_file.put_line(pg_fp, 'GlobalRecipient.invoice_address'||GlobalRecipient.invoice_address);*/
1000: IF GlobalRecipient.region_code IS NULL THEN
1001: IF l_new_recipient = 'YS' THEN
1002: l_return_status := 'S';
1003: Read_And_Print_Cover_Letter

Line 1188: /utl_file.put_line(pg_fp, 'l_new_recipient'||l_new_recipient);/

1184: */
1185: IF GlobalRecipient.shipping_address = 1 THEN
1186: IF GlobalRecipient.region_code IS NULL THEN
1187: IF l_new_recipient = 'YS' THEN
1188: /*utl_file.put_line(pg_fp, 'l_new_recipient'||l_new_recipient);*/
1189: l_return_status := 'S';
1190: Read_And_Print_Cover_Letter
1191: (l_language_code,
1192: LocalDetailRecord.item_code,

Line 1644: /utl_file.put_line(pg_fp, 'process '|| p_process_all_flag);/

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,
1648: p_commit,

Line 1751: /*utl_file.fflush(pg_fp);

1747: FND_MESSAGE.SET_TOKEN('TEXT',
1748: l_code_block||sqlerrm,
1749: FALSE);
1750: APP_EXCEPTION.Raise_Exception;
1751: /*utl_file.fflush(pg_fp);
1752: utl_file.fclose(pg_fp);*/
1753: END Process_Selections;
1754: /*
1755: ** This procedure updates the dispatch history tables for the

Line 1752: utl_file.fclose(pg_fp);*/

1748: l_code_block||sqlerrm,
1749: FALSE);
1750: APP_EXCEPTION.Raise_Exception;
1751: /*utl_file.fflush(pg_fp);
1752: utl_file.fclose(pg_fp);*/
1753: END Process_Selections;
1754: /*
1755: ** This procedure updates the dispatch history tables for the
1756: ** batch. The selections and print should have been carried out

Line 1792: pg_fp utl_file.file_type;

1788:
1789: L_CURRENT_DATE CONSTANT DATE := sysdate;
1790: L_LANGUAGE_CODE gr_document_print.language%TYPE;
1791:
1792: pg_fp utl_file.file_type;
1793: /*
1794: ** Numeric Variables
1795: */
1796: L_ORACLE_ERROR NUMBER;

Line 3907: pg_fp utl_file.file_type;

3903: L_PRINT_FLAG VARCHAR2(2);
3904: L_RETURN_STATUS VARCHAR2(1);
3905:
3906: L_CURRENT_DATE DATE := SYSDATE;
3907: pg_fp utl_file.file_type;
3908: /*
3909: ** Numeric Variables
3910: */
3911: L_ORACLE_ERROR NUMBER;

Line 3970: --pg_fp := utl_file.fopen('/sqlcom/log/opm115m','check.log','w');

3966: AND dh1.recipient_code = g_recipient_code);
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);

Line 3975: --utl_file.put_line(pg_fp, 'docco '||g_default_document);

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);
3976: OPEN c_check_selections;
3977: FETCH c_check_selections INTO LocalSelection;
3978: IF c_check_selections%FOUND THEN
3979: CLOSE c_check_selections;

Line 3983: --utl_file.put_line(pg_fp, 'cblock' ||l_code_block);

3979: CLOSE c_check_selections;
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',

Line 4003: --utl_file.put_line(pg_fp, 'cblock1' ||l_code_block);

3999: END IF;
4000: ELSE
4001: CLOSE c_check_selections;
4002: l_code_block := 'Now check the item code has safety info.';
4003: --utl_file.put_line(pg_fp, 'cblock1' ||l_code_block);
4004: OPEN g_get_item_safety;
4005: FETCH g_get_item_safety INTO GlobalSafetyRecord;
4006: IF g_get_item_safety%NOTFOUND THEN
4007: CLOSE g_get_item_safety;

Line 4016: --utl_file.put_line(pg_fp, 'cblock2' ||l_code_block);

4012: CLOSE g_get_generic_item;
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',

Line 4047: --utl_file.put_line(pg_fp, 'cblock3' ||l_code_block);

4043: IF l_print_flag = 'YS' THEN
4044: l_code_block := ' Check the dispatch history etc.';
4045: FND_FILE.PUT(FND_FILE.LOG,l_code_block);
4046: FND_FILE.NEW_LINE(FND_FILE.LOG,1);
4047: --utl_file.put_line(pg_fp, 'cblock3' ||l_code_block);
4048: /*
4049: ** Get the recipient information. If not there then assume we
4050: ** have to generate a document and build the recipient info during
4051: ** the dispatch history update.

Line 4093: l_code_block := 'Check Recipient Print Frequency';--utl_file.put_line(pg_fp, 'cblock4' ||l_code_block);

4089: END IF;
4090: END IF; /*g_default_document IS NOT NULL*/
4091: ELSE
4092: CLOSE g_get_recipient;
4093: l_code_block := 'Check Recipient Print Frequency';--utl_file.put_line(pg_fp, 'cblock4' ||l_code_block);
4094: /*
4095: ** Check the print frequency on the recipient.
4096: ** 'A' - Always print.
4097: ** 'N' - Never print.

Line 4105: --utl_file.put_line(pg_fp, 'Always');

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: '',
4109: '',

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 4140: --utl_file.put_line(pg_fp, 'not found');

4136: ELSE
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: '',

Line 4157: --utl_file.put_line(pg_fp, 'doc_update > ');

4153: IF l_return_status <> 'S' THEN
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',

Line 4174: --utl_file.put_line(pg_fp, 'quarter');

4170: IF l_return_status <> 'S' THEN
4171: RAISE Selection_Insert_Error;
4172: END IF;
4173: ELSIF GlobalRecipient.document_print_frequency = 'Q' THEN
4174: --utl_file.put_line(pg_fp, 'quarter');
4175: --utl_file.put_line(pg_fp, 'current_date '|| l_current_date);
4176: -- utl_file.put_line(pg_fp, 'msds sent '||LocalDispatchRcd.date_msds_sent);
4177: --utl_file.put_line(pg_fp, 'abs ' ||ABS(MONTHS_BETWEEN (l_current_date,
4178: -- LocalDispatchRcd.date_msds_sent)) );

Line 4175: --utl_file.put_line(pg_fp, 'current_date '|| l_current_date);

4171: RAISE Selection_Insert_Error;
4172: END IF;
4173: ELSIF GlobalRecipient.document_print_frequency = 'Q' THEN
4174: --utl_file.put_line(pg_fp, 'quarter');
4175: --utl_file.put_line(pg_fp, 'current_date '|| l_current_date);
4176: -- utl_file.put_line(pg_fp, 'msds sent '||LocalDispatchRcd.date_msds_sent);
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,

Line 4176: -- utl_file.put_line(pg_fp, 'msds sent '||LocalDispatchRcd.date_msds_sent);

4172: END IF;
4173: ELSIF GlobalRecipient.document_print_frequency = 'Q' THEN
4174: --utl_file.put_line(pg_fp, 'quarter');
4175: --utl_file.put_line(pg_fp, 'current_date '|| l_current_date);
4176: -- utl_file.put_line(pg_fp, 'msds sent '||LocalDispatchRcd.date_msds_sent);
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

Line 4177: --utl_file.put_line(pg_fp, 'abs ' ||ABS(MONTHS_BETWEEN (l_current_date,

4173: ELSIF GlobalRecipient.document_print_frequency = 'Q' THEN
4174: --utl_file.put_line(pg_fp, 'quarter');
4175: --utl_file.put_line(pg_fp, 'current_date '|| l_current_date);
4176: -- utl_file.put_line(pg_fp, 'msds sent '||LocalDispatchRcd.date_msds_sent);
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;

Line 4182: --utl_file.put_line(pg_fp, 'in ');

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: '',
4186: '',

Line 4198: --utl_file.put_line(pg_fp, 'else ');

4194: IF l_return_status <> 'S' THEN
4195: RAISE Selection_Insert_Error;
4196: END IF;
4197: ELSE /* added for 2286375 rework*/
4198: --utl_file.put_line(pg_fp, 'else ');
4199: FND_MESSAGE.SET_NAME('GR', 'GR_ORDER_ALREADY_SELECTED');
4200: FND_MESSAGE.SET_TOKEN('CODE', '');
4201: FND_FILE.PUT(FND_FILE.LOG, FND_MESSAGE.GET);
4202: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);

Line 4205: --utl_file.put_line(pg_fp, 'S');

4201: FND_FILE.PUT(FND_FILE.LOG, FND_MESSAGE.GET);
4202: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
4203: END IF;
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

Line 4230: --utl_file.put_line(pg_fp, 'Y');

4226: FND_FILE.PUT(FND_FILE.LOG, FND_MESSAGE.GET);
4227: FND_FILE.NEW_LINE(FND_FILE.LOG, 1);
4228: END IF;
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

Line 4278: --utl_file.put_line(pg_fp, 'no doc');

4274: END IF;*/
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: '',

Line 4320: --utl_file.fflush(pg_fp);

4316: 'GR_UNEXPECTED_ERROR');
4317: FND_MESSAGE.SET_TOKEN('TEXT',
4318: l_code_block||sqlerrm,
4319: FALSE);
4320: --utl_file.fflush(pg_fp);
4321: -- utl_file.fclose(pg_fp);
4322:
4323: END Check_Selected_Line;
4324: /*

Line 4321: -- utl_file.fclose(pg_fp);

4317: FND_MESSAGE.SET_TOKEN('TEXT',
4318: l_code_block||sqlerrm,
4319: FALSE);
4320: --utl_file.fflush(pg_fp);
4321: -- utl_file.fclose(pg_fp);
4322:
4323: END Check_Selected_Line;
4324: /*
4325: ** This procedure is called to read the address and cover letter text

Line 4349: pg_fp utl_file.file_type;

4345: L_WORK_TEXT GR_COVER_LETTERS_TL.text%TYPE;
4346: L_TEXT_LINE GR_WORK_WORKSHEETS.text_line%TYPE;
4347:
4348: X_MSG_DATA VARCHAR2(2000);
4349: pg_fp utl_file.file_type;
4350: L_INTEGRATION VARCHAR2(1); /* GK CHANGES*/
4351: /*
4352: ** Numeric Variables
4353: */