1369: -- Bug 7595581
1370: -- Retrieval Log
1371: -- Bug 9173209
1372: -- Retrieval Log adjustment
1373: fnd_file.put_line (fnd_file.LOG,
1374: ' '||fnd_date.date_to_canonical (SYSDATE)
1375: || ' > Chunk Size Profile Value is '
1376: || TO_CHAR (l_chunk_size));
1377:
7725: fnd_message.set_name ('HXC', 'HXC_RET_ARCHIVE_DATA');
7726: l_message_text := SUBSTR (fnd_message.get (), 1, 2000);
7727: -- Bug 9173209
7728: -- Retrieval Log adjustment
7729: fnd_file.put_line (fnd_file.LOG,' '||l_message_text);
7730: END IF;
7731:
7732: CLOSE chk_a_and_r_overlap;
7733:
7831: END IF;
7832:
7833: -- Bug 9173209
7834: -- Retrieval Log adjustment
7835: fnd_file.put_line (fnd_file.LOG,
7836: ' Conc Req ID is '
7837: || TO_CHAR (g_conc_request_id)
7838: );
7839:
7991: -- Bug 9173209
7992: -- Retrieval Log adjustment
7993: put_log(' ');
7994: put_log(' ');
7995: fnd_file.put_line (fnd_file.LOG,
7996: fnd_date.date_to_canonical (SYSDATE)
7997: || ' ******** OTL Processing Starts ******'
7998: );
7999: put_log('##------------------------------------------------------## ');
8600: -- process has not been terminated
8601:
8602: -- Bug 9173209
8603: -- Retrieval Log adjustment
8604: fnd_file.put_line (fnd_file.LOG,
8605: ' '||fnd_date.date_to_canonical (SYSDATE)
8606: || ' > SKIPPED Blocks COUNT > '
8607: || hxc_generic_retrieval_pkg.g_detail_skipped.COUNT
8608: );
8617: l_skipped_bb_ovn := VARCHARTAB();
8618: l_skipped_desc := VARCHARTAB();
8619: l_index := 0;
8620:
8621: fnd_file.put_line
8622: (fnd_file.LOG,
8623: ' '||fnd_date.date_to_canonical (SYSDATE)
8624: || ' > ******* Printing SKIPPED Detail Blocks *******'
8625: );
8618: l_skipped_desc := VARCHARTAB();
8619: l_index := 0;
8620:
8621: fnd_file.put_line
8622: (fnd_file.LOG,
8623: ' '||fnd_date.date_to_canonical (SYSDATE)
8624: || ' > ******* Printing SKIPPED Detail Blocks *******'
8625: );
8626:
8623: ' '||fnd_date.date_to_canonical (SYSDATE)
8624: || ' > ******* Printing SKIPPED Detail Blocks *******'
8625: );
8626:
8627: fnd_file.put_line(fnd_file.log, ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++');
8628:
8629: fnd_file.put_line(fnd_file.log, ' RESOURCE ID '
8630: || ' TIMECARD '
8631: || ' DETAIL '
8625: );
8626:
8627: fnd_file.put_line(fnd_file.log, ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++');
8628:
8629: fnd_file.put_line(fnd_file.log, ' RESOURCE ID '
8630: || ' TIMECARD '
8631: || ' DETAIL '
8632: || ' REMARKS ');
8633: fnd_file.put_line(fnd_file.log, ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++');
8629: fnd_file.put_line(fnd_file.log, ' RESOURCE ID '
8630: || ' TIMECARD '
8631: || ' DETAIL '
8632: || ' REMARKS ');
8633: fnd_file.put_line(fnd_file.log, ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++');
8634:
8635: FOR i IN hxc_generic_retrieval_pkg.g_detail_skipped.FIRST .. hxc_generic_retrieval_pkg.g_detail_skipped.LAST
8636: LOOP
8637:
8634:
8635: FOR i IN hxc_generic_retrieval_pkg.g_detail_skipped.FIRST .. hxc_generic_retrieval_pkg.g_detail_skipped.LAST
8636: LOOP
8637:
8638: fnd_file.put_line(fnd_file.log, ' '
8639: ||hxc_generic_retrieval_pkg.g_detail_skipped(i).resource_id
8640: || ' '
8641: || hxc_generic_retrieval_pkg.g_detail_skipped(i).timecard_id
8642: || ' ['
8691: FND_GLOBAL.user_ID,
8692: FND_GLOBAL.conc_request_id,
8693: g_params.p_process);
8694:
8695: fnd_file.put_line(fnd_file.log, ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++');
8696:
8697: END IF;
8698: fnd_file.put_line
8699: (fnd_file.LOG,
8694:
8695: fnd_file.put_line(fnd_file.log, ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++');
8696:
8697: END IF;
8698: fnd_file.put_line
8699: (fnd_file.LOG,
8700: ' '||fnd_date.date_to_canonical (SYSDATE)
8701: || ' > Blocks COUNT being passed to RECIPIENT APPLICATION > '
8702: || hxc_generic_retrieval_pkg.t_detail_bld_blks.COUNT
8695: fnd_file.put_line(fnd_file.log, ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++');
8696:
8697: END IF;
8698: fnd_file.put_line
8699: (fnd_file.LOG,
8700: ' '||fnd_date.date_to_canonical (SYSDATE)
8701: || ' > Blocks COUNT being passed to RECIPIENT APPLICATION > '
8702: || hxc_generic_retrieval_pkg.t_detail_bld_blks.COUNT
8703: );
8710: l_skipped_bb_ovn := VARCHARTAB();
8711: l_skipped_desc := VARCHARTAB();
8712: l_index := 0;
8713:
8714: fnd_file.put_line
8715: (fnd_file.LOG,
8716: ' '||fnd_date.date_to_canonical (SYSDATE)
8717: || ' > ******* Passing the following blocks for RETRIEVAL *******'
8718: );
8711: l_skipped_desc := VARCHARTAB();
8712: l_index := 0;
8713:
8714: fnd_file.put_line
8715: (fnd_file.LOG,
8716: ' '||fnd_date.date_to_canonical (SYSDATE)
8717: || ' > ******* Passing the following blocks for RETRIEVAL *******'
8718: );
8719:
8716: ' '||fnd_date.date_to_canonical (SYSDATE)
8717: || ' > ******* Passing the following blocks for RETRIEVAL *******'
8718: );
8719:
8720: fnd_file.put_line(fnd_file.log, ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++');
8721: fnd_file.put_line(fnd_file.log, ' RESOURCE ID '
8722: || ' TIMECARD '
8723: || ' DETAIL ');
8724: fnd_file.put_line(fnd_file.log, ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++');
8717: || ' > ******* Passing the following blocks for RETRIEVAL *******'
8718: );
8719:
8720: fnd_file.put_line(fnd_file.log, ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++');
8721: fnd_file.put_line(fnd_file.log, ' RESOURCE ID '
8722: || ' TIMECARD '
8723: || ' DETAIL ');
8724: fnd_file.put_line(fnd_file.log, ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++');
8725:
8720: fnd_file.put_line(fnd_file.log, ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++');
8721: fnd_file.put_line(fnd_file.log, ' RESOURCE ID '
8722: || ' TIMECARD '
8723: || ' DETAIL ');
8724: fnd_file.put_line(fnd_file.log, ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++');
8725:
8726: FOR i IN hxc_generic_retrieval_pkg.t_detail_bld_blks.FIRST .. hxc_generic_retrieval_pkg.t_detail_bld_blks.LAST
8727: LOOP
8728:
8725:
8726: FOR i IN hxc_generic_retrieval_pkg.t_detail_bld_blks.FIRST .. hxc_generic_retrieval_pkg.t_detail_bld_blks.LAST
8727: LOOP
8728:
8729: fnd_file.put_line(fnd_file.log, ' '
8730: || hxc_generic_retrieval_pkg.t_detail_bld_blks(i).resource_id
8731: || ' '
8732: || hxc_generic_retrieval_pkg.t_detail_bld_blks(i).timecard_bb_id
8733: || ' ['
8819: FND_GLOBAL.conc_request_id,
8820: g_params.p_process);
8821:
8822:
8823: fnd_file.put_line(fnd_file.log, ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++');
8824:
8825: END IF;
8826:
8827:
10132: fnd_message.raise_error;
10133:
10134: END IF;
10135:
10136: fnd_file.put_line
10137: (fnd_file.LOG,
10138: ' '||fnd_date.date_to_canonical (SYSDATE)
10139: || ' > Blocks COUNT of TRANSACTION DETAILS > '
10140: || hxc_generic_retrieval_pkg.t_tx_detail_transaction_id.COUNT
10133:
10134: END IF;
10135:
10136: fnd_file.put_line
10137: (fnd_file.LOG,
10138: ' '||fnd_date.date_to_canonical (SYSDATE)
10139: || ' > Blocks COUNT of TRANSACTION DETAILS > '
10140: || hxc_generic_retrieval_pkg.t_tx_detail_transaction_id.COUNT
10141: );
10141: );
10142:
10143: IF (hxc_generic_retrieval_pkg.t_tx_detail_transaction_id.COUNT > 0)
10144: THEN
10145: fnd_file.put_line
10146: (fnd_file.LOG,
10147: ' '||fnd_date.date_to_canonical (SYSDATE)
10148: || ' > ******* Details Recevied from the RECIPIENT APPLICATION *******'
10149: );
10142:
10143: IF (hxc_generic_retrieval_pkg.t_tx_detail_transaction_id.COUNT > 0)
10144: THEN
10145: fnd_file.put_line
10146: (fnd_file.LOG,
10147: ' '||fnd_date.date_to_canonical (SYSDATE)
10148: || ' > ******* Details Recevied from the RECIPIENT APPLICATION *******'
10149: );
10150:
10147: ' '||fnd_date.date_to_canonical (SYSDATE)
10148: || ' > ******* Details Recevied from the RECIPIENT APPLICATION *******'
10149: );
10150:
10151: fnd_file.put_line(fnd_file.log, ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++');
10152: fnd_file.put_line(fnd_file.log, ' DETAIL '
10153: || ' TRANSACTON ID '
10154: || ' STATUS '
10155: || ' DESCRIPTION ');
10148: || ' > ******* Details Recevied from the RECIPIENT APPLICATION *******'
10149: );
10150:
10151: fnd_file.put_line(fnd_file.log, ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++');
10152: fnd_file.put_line(fnd_file.log, ' DETAIL '
10153: || ' TRANSACTON ID '
10154: || ' STATUS '
10155: || ' DESCRIPTION ');
10156: fnd_file.put_line(fnd_file.log, ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++');
10152: fnd_file.put_line(fnd_file.log, ' DETAIL '
10153: || ' TRANSACTON ID '
10154: || ' STATUS '
10155: || ' DESCRIPTION ');
10156: fnd_file.put_line(fnd_file.log, ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++');
10157:
10158: FOR i IN hxc_generic_retrieval_pkg.t_tx_detail_transaction_id.FIRST .. hxc_generic_retrieval_pkg.t_tx_detail_transaction_id.LAST
10159: LOOP
10160:
10157:
10158: FOR i IN hxc_generic_retrieval_pkg.t_tx_detail_transaction_id.FIRST .. hxc_generic_retrieval_pkg.t_tx_detail_transaction_id.LAST
10159: LOOP
10160:
10161: fnd_file.put_line(fnd_file.log,
10162: ' '
10163: || hxc_generic_retrieval_pkg.t_tx_detail_bb_id(i)
10164: || ' ['
10165: || hxc_generic_retrieval_pkg.t_tx_detail_bb_ovn(i)
10171: || hxc_generic_retrieval_pkg.t_tx_detail_exception(i));
10172:
10173: END LOOP;
10174:
10175: fnd_file.put_line(fnd_file.log, ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++');
10176:
10177: END IF;
10178:
10179: fnd_file.put_line
10175: fnd_file.put_line(fnd_file.log, ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++');
10176:
10177: END IF;
10178:
10179: fnd_file.put_line
10180: (fnd_file.LOG,
10181: ' '||fnd_date.date_to_canonical (SYSDATE)
10182: || ' > ERRORed BLOCK count > '
10183: || hxc_generic_retrieval_pkg.t_tx_error_transaction_id.COUNT
10176:
10177: END IF;
10178:
10179: fnd_file.put_line
10180: (fnd_file.LOG,
10181: ' '||fnd_date.date_to_canonical (SYSDATE)
10182: || ' > ERRORed BLOCK count > '
10183: || hxc_generic_retrieval_pkg.t_tx_error_transaction_id.COUNT
10184: );
10184: );
10185:
10186: IF (hxc_generic_retrieval_pkg.t_tx_error_transaction_id.COUNT > 0)
10187: THEN
10188: fnd_file.put_line
10189: (fnd_file.LOG,
10190: ' '||fnd_date.date_to_canonical (SYSDATE)
10191: || ' > ******* The following blocks are in ERROR *******'
10192: );
10185:
10186: IF (hxc_generic_retrieval_pkg.t_tx_error_transaction_id.COUNT > 0)
10187: THEN
10188: fnd_file.put_line
10189: (fnd_file.LOG,
10190: ' '||fnd_date.date_to_canonical (SYSDATE)
10191: || ' > ******* The following blocks are in ERROR *******'
10192: );
10193:
10190: ' '||fnd_date.date_to_canonical (SYSDATE)
10191: || ' > ******* The following blocks are in ERROR *******'
10192: );
10193:
10194: fnd_file.put_line(fnd_file.log, ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++');
10195: fnd_file.put_line(fnd_file.log, ' DETAIL '
10196: || ' TRANSACTON ID '
10197: || ' STATUS '
10198: || ' DESCRIPTION ');
10191: || ' > ******* The following blocks are in ERROR *******'
10192: );
10193:
10194: fnd_file.put_line(fnd_file.log, ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++');
10195: fnd_file.put_line(fnd_file.log, ' DETAIL '
10196: || ' TRANSACTON ID '
10197: || ' STATUS '
10198: || ' DESCRIPTION ');
10199: fnd_file.put_line(fnd_file.log, ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++');
10195: fnd_file.put_line(fnd_file.log, ' DETAIL '
10196: || ' TRANSACTON ID '
10197: || ' STATUS '
10198: || ' DESCRIPTION ');
10199: fnd_file.put_line(fnd_file.log, ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++');
10200:
10201: FOR i IN hxc_generic_retrieval_pkg.t_tx_error_transaction_id.FIRST .. hxc_generic_retrieval_pkg.t_tx_error_transaction_id.LAST
10202: LOOP
10203:
10200:
10201: FOR i IN hxc_generic_retrieval_pkg.t_tx_error_transaction_id.FIRST .. hxc_generic_retrieval_pkg.t_tx_error_transaction_id.LAST
10202: LOOP
10203:
10204: fnd_file.put_line(fnd_file.log,
10205: ' '
10206: || hxc_generic_retrieval_pkg.t_tx_error_bb_id(i)
10207: || ' ['
10208: || hxc_generic_retrieval_pkg.t_tx_error_bb_ovn(i)
10214: || hxc_generic_retrieval_pkg.t_tx_error_exception(i));
10215:
10216: END LOOP;
10217:
10218: fnd_file.put_line(fnd_file.log, ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++');
10219:
10220:
10221: END IF;
10222:
10227: END update_transaction_status;
10228:
10229:
10230: -- Bug 8888911
10231: -- Added this new function call so that writing on to FND_FILE.LOG is easy.
10232: -- It is known that put_log is not grammar friendly, but since we are going to use
10233: -- this one quite a lot, one which is short is easier to write.
10234: PROCEDURE put_log(p_text IN VARCHAR2)
10235: IS
10234: PROCEDURE put_log(p_text IN VARCHAR2)
10235: IS
10236:
10237: BEGIN
10238: FND_FILE.PUT_LINE(FND_FILE.LOG,p_text);
10239: IF g_debug
10240: THEN
10241: hr_utility.trace(p_text);
10242: END IF;