102: /* Uncomment to run from command line */
103: -- FND_FILE.PUT_NAMES('gmfviapb.log','gmfviapb.out','/appslog/opm_top/utl/opmmodv/log');
104:
105: /* Log the parameters */
106: IF( fnd_log.level_procedure >= fnd_log.g_current_runtime_level )
107: THEN
108: fnd_log.string(fnd_log.level_procedure, l_log_module,'Begin...');
109: END IF;
110:
104:
105: /* Log the parameters */
106: IF( fnd_log.level_procedure >= fnd_log.g_current_runtime_level )
107: THEN
108: fnd_log.string(fnd_log.level_procedure, l_log_module,'Begin...');
109: END IF;
110:
111: Log_Msg(C_LOG_FILE, 'Compiling Period Balances for Process Orgs.');
112: Log_Msg(C_LOG_FILE, 'Parameters: Organization_id: ' || p_organization_id ||
160:
161: l_schedule_close_date := l_schedule_close_date + 1 - 1/(24*3600);
162:
163: /* Log the dates */
164: IF( fnd_log.level_statement >= fnd_log.g_current_runtime_level )
165: THEN
166: fnd_log.string(fnd_log.level_statement, l_log_module,
167: ' Per Sched. Close Date (le):' ||
168: TO_CHAR(l_le_schedule_close_date,'yyyy/mm/dd hh24:mi:ss') ||
162:
163: /* Log the dates */
164: IF( fnd_log.level_statement >= fnd_log.g_current_runtime_level )
165: THEN
166: fnd_log.string(fnd_log.level_statement, l_log_module,
167: ' Per Sched. Close Date (le):' ||
168: TO_CHAR(l_le_schedule_close_date,'yyyy/mm/dd hh24:mi:ss') ||
169: ' Per Sched. Close Date (db):' ||
170: TO_CHAR(l_schedule_close_date,'yyyy/mm/dd hh24:mi:ss') );
229: x_retcode := 0;
230: x_errbuf := NULL;
231: End_Process('NORMAL', NULL);
232:
233: IF( fnd_log.level_procedure >= fnd_log.g_current_runtime_level )
234: THEN
235: fnd_log.string(fnd_log.level_procedure, l_log_module,'...End');
236: END IF;
237:
231: End_Process('NORMAL', NULL);
232:
233: IF( fnd_log.level_procedure >= fnd_log.g_current_runtime_level )
234: THEN
235: fnd_log.string(fnd_log.level_procedure, l_log_module,'...End');
236: END IF;
237:
238: Log_Msg(C_LOG_FILE, 'Period Balances process completed');
239:
424:
425: l_log_module := c_module || '.Compile_Inv_Period_Balances';
426:
427: /* Log the parameters */
428: IF( fnd_log.level_procedure >= fnd_log.g_current_runtime_level )
429: THEN
430: fnd_log.string(fnd_log.level_procedure, l_log_module,'Begin...');
431: END IF;
432:
426:
427: /* Log the parameters */
428: IF( fnd_log.level_procedure >= fnd_log.g_current_runtime_level )
429: THEN
430: fnd_log.string(fnd_log.level_procedure, l_log_module,'Begin...');
431: END IF;
432:
433: /* Retrieve additional information */
434:
445:
446: SAVEPOINT s_compile_inv_period_balances;
447:
448: /* Retrieve current onhand balance and write it in temp table */
449: IF( fnd_log.level_statement >= fnd_log.g_current_runtime_level )
450: THEN
451: fnd_log.string(fnd_log.level_statement, 'l_log_module','Inserting Onhand Balances');
452: END IF;
453:
447:
448: /* Retrieve current onhand balance and write it in temp table */
449: IF( fnd_log.level_statement >= fnd_log.g_current_runtime_level )
450: THEN
451: fnd_log.string(fnd_log.level_statement, 'l_log_module','Inserting Onhand Balances');
452: END IF;
453:
454: <
455: LOOP
493:
494: END LOOP onhand_balance;
495:
496: /* Rollback transactions until we hit the period close date */
497: IF( fnd_log.level_statement >= fnd_log.g_current_runtime_level )
498: THEN
499: fnd_log.string(fnd_log.level_statement, 'l_log_module','Rolling back transactions');
500: END IF;
501:
495:
496: /* Rollback transactions until we hit the period close date */
497: IF( fnd_log.level_statement >= fnd_log.g_current_runtime_level )
498: THEN
499: fnd_log.string(fnd_log.level_statement, 'l_log_module','Rolling back transactions');
500: END IF;
501:
502: <
503: LOOP
540:
541: END LOOP mtl_transactions;
542:
543: /* Insert/Update balances table */
544: IF( fnd_log.level_statement >= fnd_log.g_current_runtime_level )
545: THEN
546: fnd_log.string(fnd_log.level_statement, 'l_log_module','Inserting into balances');
547: END IF;
548:
542:
543: /* Insert/Update balances table */
544: IF( fnd_log.level_statement >= fnd_log.g_current_runtime_level )
545: THEN
546: fnd_log.string(fnd_log.level_statement, 'l_log_module','Inserting into balances');
547: END IF;
548:
549: FOR r_bal_tmp IN c_bal_tmp (p_organization_id => p_organization_id, p_acct_period_id => p_closing_acct_period_id) /* Bug#5652481 ANTHIYAG 09-Nov-2006 */
550: LOOP
612:
613: x_return_status := 'S';
614: x_return_msg := NULL;
615:
616: IF( fnd_log.level_procedure >= fnd_log.g_current_runtime_level )
617: THEN
618: fnd_log.string(fnd_log.level_procedure, 'l_log_module','...End');
619: END IF;
620:
614: x_return_msg := NULL;
615:
616: IF( fnd_log.level_procedure >= fnd_log.g_current_runtime_level )
617: THEN
618: fnd_log.string(fnd_log.level_procedure, 'l_log_module','...End');
619: END IF;
620:
621: END Compile_Inv_Period_Balances;
622:
811: /* Uncomment to run from command line */
812: -- FND_FILE.PUT_NAMES('gmfviapb.log','gmfviapb.out','/appslog/opm_top/utl/opmmodv/log');
813:
814: /* Log the parameters */
815: IF( fnd_log.level_procedure >= fnd_log.g_current_runtime_level )
816: THEN
817: fnd_log.string(fnd_log.level_procedure, l_log_module,'Begin...');
818: END IF;
819:
813:
814: /* Log the parameters */
815: IF( fnd_log.level_procedure >= fnd_log.g_current_runtime_level )
816: THEN
817: fnd_log.string(fnd_log.level_procedure, l_log_module,'Begin...');
818: END IF;
819:
820:
821: Log_Msg(C_LOG_FILE, 'Compiling Period Balances for Process Orgs.');