8: G_MSG_MEDIUM CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM;
9: G_MSG_LOW CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW;
10: G_LINES_PER_FETCH CONSTANT NUMBER := 1000;
11:
12: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
13: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
14: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
15: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
16: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
9: G_MSG_LOW CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW;
10: G_LINES_PER_FETCH CONSTANT NUMBER := 1000;
11:
12: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
13: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
14: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
15: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
16: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
17: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
10: G_LINES_PER_FETCH CONSTANT NUMBER := 1000;
11:
12: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
13: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
14: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
15: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
16: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
17: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
18: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
11:
12: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
13: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
14: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
15: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
16: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
17: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
18: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
19: G_MODULE_NAME CONSTANT VARCHAR2(100) := 'AP.PLSQL.AP_CREATE_PAY_SCHEDS_PKG.';
12: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
13: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
14: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
15: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
16: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
17: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
18: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
19: G_MODULE_NAME CONSTANT VARCHAR2(100) := 'AP.PLSQL.AP_CREATE_PAY_SCHEDS_PKG.';
20:
13: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
14: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
15: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
16: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
17: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
18: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
19: G_MODULE_NAME CONSTANT VARCHAR2(100) := 'AP.PLSQL.AP_CREATE_PAY_SCHEDS_PKG.';
20:
21: Function Calc_Due_Date(
14: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
15: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
16: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
17: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
18: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
19: G_MODULE_NAME CONSTANT VARCHAR2(100) := 'AP.PLSQL.AP_CREATE_PAY_SCHEDS_PKG.';
20:
21: Function Calc_Due_Date(
22: p_terms_date IN DATE,
33:
34: l_api_name := 'Calc_Due_Date';
35:
36: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
37: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,
38: 'AP_CREATE_PAY_SCHEDS_PKG.Calc_Due_Date(+)');
39: END IF;
40:
41: l_debug_info := 'Check if p_calendar is nulli p_calendar is '||p_calendar;
39: END IF;
40:
41: l_debug_info := 'Check if p_calendar is nulli p_calendar is '||p_calendar;
42: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
43: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
44: END IF;
45:
46:
47: IF (p_calendar IS NOT NULL) THEN
48: BEGIN
49: -- bug2639133 added truncate function
50: l_debug_info := 'Get due_date from ap_other_periods';
51: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
52: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
53: END IF;
54:
55: SELECT due_date
56: INTO l_due_date
68: l_due_date := TRUNC(P_Terms_Date);
69:
70: l_debug_info := 'in the exception handler l_due_date is '||l_due_date;
71: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
72: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
73: END IF;
74:
75: END;
76:
76:
77: ELSE
78: l_debug_info := 'There is no calendar associated with the term line';
79: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
80: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
81: END IF;
82:
83: -- bug2682782 deleted needless least function
84: SELECT NVL(fixed_date,
108: END IF;
109:
110: l_debug_info := 'In the else part , l_due_date is '||l_due_date;
111: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
112: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
113: END IF;
114:
115: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
116: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,
112: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
113: END IF;
114:
115: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
116: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,
117: 'AP_CREATE_PAY_SCHEDS_PKG.Calc_Due_Date(-)');
118: END IF;
119:
120:
193: l_discount_amount NUMBER;
194: l_discount_amount_2 NUMBER;
195: l_discount_amount_3 NUMBER;
196: l_procedure_name CONSTANT VARCHAR2(30) := 'Create_Payment_Schedules';
197: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
198:
199:
200:
201: T_INVOICE_ID INVOICE_ID;
269: 'AP_CREATE_PAY_SCHEDS_PKG.Create_Payment_Schedules<-'||P_calling_sequence;
270:
271: l_log_msg := ' BEGIN Procedure '|| l_procedure_name;
272: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
273: FND_LOG.STRING(G_LEVEL_PROCEDURE,
274: G_MODULE_NAME||l_procedure_name,
275: l_log_msg);
276: END IF;
277:
312:
313:
314: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
315: l_log_msg := 'Invoice Type is '|| l_invoice_type;
316: FND_LOG.STRING(G_LEVEL_STATEMENT,
317: G_MODULE_NAME||l_procedure_name,
318: l_log_msg);
319: END IF;
320:
344: /* Terms type is Slab */
345:
346: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
347: l_log_msg := 'Terms type is Slab';
348: FND_LOG.STRING(G_LEVEL_STATEMENT,
349: G_MODULE_NAME||l_procedure_name,
350: l_log_msg);
351: END IF;
352: --
475: ' Disc3 by percent:' || l_disc_amt_by_percent_3 ||
476: ' Disc1 by amount:' || l_discount_amount ||
477: ' Disc2 by amount:' || l_discount_amount_2 ||
478: ' Disc3 by amount:' || l_discount_amount_3;
479: FND_LOG.STRING(G_LEVEL_STATEMENT,
480: G_MODULE_NAME||l_procedure_name,
481: l_log_msg);
482: END IF;
483:
716: -- /* Terms type is Percent */
717:
718: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
719: l_log_msg := 'Terms type is Percent';
720: FND_LOG.STRING(G_LEVEL_STATEMENT,
721: G_MODULE_NAME||l_procedure_name,
722: l_log_msg);
723: END IF;
724:
802: ' Disc3 by percent:' || l_disc_amt_by_percent_3 ||
803: ' Disc1 by amount:' || l_discount_amount ||
804: ' Disc2 by amount:' || l_discount_amount_2 ||
805: ' Disc3 by amount:' || l_discount_amount_3;
806: FND_LOG.STRING(G_LEVEL_STATEMENT,
807: G_MODULE_NAME||l_procedure_name,
808: l_log_msg);
809: END IF;
810:
1254: l_discount_amount NUMBER;
1255: l_discount_amount_2 NUMBER;
1256: l_discount_amount_3 NUMBER;
1257: l_procedure_name CONSTANT VARCHAR2(30) := 'Ap_Create_From_Terms';
1258: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
1259:
1260: CURSOR c_terms_percent IS
1261: SELECT 'Terms are percent type'
1262: FROM ap_terms_lines
1430:
1431:
1432: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
1433: l_log_msg := 'Invoice Type is '|| l_invoice_type;
1434: FND_LOG.STRING(G_LEVEL_STATEMENT,
1435: G_MODULE_NAME||l_procedure_name,
1436: l_log_msg);
1437: END IF;
1438:
1459:
1460:
1461: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
1462: l_log_msg := 'Terms type is Slab';
1463: FND_LOG.STRING(G_LEVEL_STATEMENT,
1464: G_MODULE_NAME||l_procedure_name,
1465: l_log_msg);
1466: END IF;
1467:
1602: ' Disc3 by percent:' || l_disc_amt_by_percent_3 ||
1603: ' Disc1 by amount:' || l_discount_amount ||
1604: ' Disc2 by amount:' || l_discount_amount_2 ||
1605: ' Disc3 by amount:' || l_discount_amount_3;
1606: FND_LOG.STRING(G_LEVEL_STATEMENT,
1607: G_MODULE_NAME||l_procedure_name,
1608: l_log_msg);
1609: END IF;
1610:
1821: -- /* Terms type is Percent */
1822:
1823: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
1824: l_log_msg := 'Terms type is Percent';
1825: FND_LOG.STRING(G_LEVEL_STATEMENT,
1826: G_MODULE_NAME||l_procedure_name,
1827: l_log_msg);
1828: END IF;
1829:
1920: ' Disc3 by percent:' || l_disc_amt_by_percent_3 ||
1921: ' Disc1 by amount:' || l_discount_amount ||
1922: ' Disc2 by amount:' || l_discount_amount_2 ||
1923: ' Disc3 by amount:' || l_discount_amount_3;
1924: FND_LOG.STRING(G_LEVEL_STATEMENT,
1925: G_MODULE_NAME||l_procedure_name,
1926: l_log_msg);
1927: END IF;
1928: