[Home] [Help]
52: IS
53: i Number;
54: BEGIN
55: IF (G_DEBUG_ENABLED = 'Y') THEN
56: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
57: END IF;
58: i := 0;
59: IF l_payment_struc.COUNT > 0 THEN
60: i := l_payment_struc.FIRST;
59: IF l_payment_struc.COUNT > 0 THEN
60: i := l_payment_struc.FIRST;
61: LOOP
62: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
63: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Starting the Loop ....');
64: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).chr_id ' || i ||' - '||l_payment_struc(i).chr_id);
65: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).cle_id ' || i ||' - '||l_payment_struc(i).cle_id);
66: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION_CATEGORY ' || i ||' - '|| l_payment_struc(i).RULE_INFORMATION_CATEGORY);
67: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION2 ' || i ||' - '|| l_payment_struc(i).RULE_INFORMATION2);
60: i := l_payment_struc.FIRST;
61: LOOP
62: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
63: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Starting the Loop ....');
64: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).chr_id ' || i ||' - '||l_payment_struc(i).chr_id);
65: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).cle_id ' || i ||' - '||l_payment_struc(i).cle_id);
66: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION_CATEGORY ' || i ||' - '|| l_payment_struc(i).RULE_INFORMATION_CATEGORY);
67: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION2 ' || i ||' - '|| l_payment_struc(i).RULE_INFORMATION2);
68: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION3 ' || i ||' - '|| l_payment_struc(i).RULE_INFORMATION3);
61: LOOP
62: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
63: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Starting the Loop ....');
64: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).chr_id ' || i ||' - '||l_payment_struc(i).chr_id);
65: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).cle_id ' || i ||' - '||l_payment_struc(i).cle_id);
66: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION_CATEGORY ' || i ||' - '|| l_payment_struc(i).RULE_INFORMATION_CATEGORY);
67: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION2 ' || i ||' - '|| l_payment_struc(i).RULE_INFORMATION2);
68: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION3 ' || i ||' - '|| l_payment_struc(i).RULE_INFORMATION3);
69: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION5 ' || i ||' - '|| l_payment_struc(i).RULE_INFORMATION5);
62: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
63: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Starting the Loop ....');
64: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).chr_id ' || i ||' - '||l_payment_struc(i).chr_id);
65: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).cle_id ' || i ||' - '||l_payment_struc(i).cle_id);
66: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION_CATEGORY ' || i ||' - '|| l_payment_struc(i).RULE_INFORMATION_CATEGORY);
67: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION2 ' || i ||' - '|| l_payment_struc(i).RULE_INFORMATION2);
68: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION3 ' || i ||' - '|| l_payment_struc(i).RULE_INFORMATION3);
69: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION5 ' || i ||' - '|| l_payment_struc(i).RULE_INFORMATION5);
70: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION6 ' || i ||' - '|| l_payment_struc(i).RULE_INFORMATION6);
63: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Starting the Loop ....');
64: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).chr_id ' || i ||' - '||l_payment_struc(i).chr_id);
65: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).cle_id ' || i ||' - '||l_payment_struc(i).cle_id);
66: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION_CATEGORY ' || i ||' - '|| l_payment_struc(i).RULE_INFORMATION_CATEGORY);
67: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION2 ' || i ||' - '|| l_payment_struc(i).RULE_INFORMATION2);
68: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION3 ' || i ||' - '|| l_payment_struc(i).RULE_INFORMATION3);
69: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION5 ' || i ||' - '|| l_payment_struc(i).RULE_INFORMATION5);
70: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION6 ' || i ||' - '|| l_payment_struc(i).RULE_INFORMATION6);
71: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION7 ' || i ||' - '|| l_payment_struc(i).RULE_INFORMATION7);
64: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).chr_id ' || i ||' - '||l_payment_struc(i).chr_id);
65: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).cle_id ' || i ||' - '||l_payment_struc(i).cle_id);
66: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION_CATEGORY ' || i ||' - '|| l_payment_struc(i).RULE_INFORMATION_CATEGORY);
67: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION2 ' || i ||' - '|| l_payment_struc(i).RULE_INFORMATION2);
68: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION3 ' || i ||' - '|| l_payment_struc(i).RULE_INFORMATION3);
69: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION5 ' || i ||' - '|| l_payment_struc(i).RULE_INFORMATION5);
70: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION6 ' || i ||' - '|| l_payment_struc(i).RULE_INFORMATION6);
71: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION7 ' || i ||' - '|| l_payment_struc(i).RULE_INFORMATION7);
72: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION8 ' || i ||' - '|| l_payment_struc(i).RULE_INFORMATION8);
65: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).cle_id ' || i ||' - '||l_payment_struc(i).cle_id);
66: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION_CATEGORY ' || i ||' - '|| l_payment_struc(i).RULE_INFORMATION_CATEGORY);
67: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION2 ' || i ||' - '|| l_payment_struc(i).RULE_INFORMATION2);
68: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION3 ' || i ||' - '|| l_payment_struc(i).RULE_INFORMATION3);
69: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION5 ' || i ||' - '|| l_payment_struc(i).RULE_INFORMATION5);
70: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION6 ' || i ||' - '|| l_payment_struc(i).RULE_INFORMATION6);
71: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION7 ' || i ||' - '|| l_payment_struc(i).RULE_INFORMATION7);
72: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION8 ' || i ||' - '|| l_payment_struc(i).RULE_INFORMATION8);
73: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION10 ' || i ||' - '|| l_payment_struc(i).RULE_INFORMATION10);
66: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION_CATEGORY ' || i ||' - '|| l_payment_struc(i).RULE_INFORMATION_CATEGORY);
67: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION2 ' || i ||' - '|| l_payment_struc(i).RULE_INFORMATION2);
68: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION3 ' || i ||' - '|| l_payment_struc(i).RULE_INFORMATION3);
69: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION5 ' || i ||' - '|| l_payment_struc(i).RULE_INFORMATION5);
70: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION6 ' || i ||' - '|| l_payment_struc(i).RULE_INFORMATION6);
71: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION7 ' || i ||' - '|| l_payment_struc(i).RULE_INFORMATION7);
72: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION8 ' || i ||' - '|| l_payment_struc(i).RULE_INFORMATION8);
73: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION10 ' || i ||' - '|| l_payment_struc(i).RULE_INFORMATION10);
74: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).OBJECT1_ID1 ' || i ||' - '|| l_payment_struc(i).OBJECT1_ID1);
67: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION2 ' || i ||' - '|| l_payment_struc(i).RULE_INFORMATION2);
68: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION3 ' || i ||' - '|| l_payment_struc(i).RULE_INFORMATION3);
69: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION5 ' || i ||' - '|| l_payment_struc(i).RULE_INFORMATION5);
70: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION6 ' || i ||' - '|| l_payment_struc(i).RULE_INFORMATION6);
71: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION7 ' || i ||' - '|| l_payment_struc(i).RULE_INFORMATION7);
72: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION8 ' || i ||' - '|| l_payment_struc(i).RULE_INFORMATION8);
73: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION10 ' || i ||' - '|| l_payment_struc(i).RULE_INFORMATION10);
74: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).OBJECT1_ID1 ' || i ||' - '|| l_payment_struc(i).OBJECT1_ID1);
75: END IF;
68: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION3 ' || i ||' - '|| l_payment_struc(i).RULE_INFORMATION3);
69: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION5 ' || i ||' - '|| l_payment_struc(i).RULE_INFORMATION5);
70: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION6 ' || i ||' - '|| l_payment_struc(i).RULE_INFORMATION6);
71: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION7 ' || i ||' - '|| l_payment_struc(i).RULE_INFORMATION7);
72: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION8 ' || i ||' - '|| l_payment_struc(i).RULE_INFORMATION8);
73: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION10 ' || i ||' - '|| l_payment_struc(i).RULE_INFORMATION10);
74: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).OBJECT1_ID1 ' || i ||' - '|| l_payment_struc(i).OBJECT1_ID1);
75: END IF;
76: EXIT WHEN i = l_payment_struc.LAST;
69: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION5 ' || i ||' - '|| l_payment_struc(i).RULE_INFORMATION5);
70: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION6 ' || i ||' - '|| l_payment_struc(i).RULE_INFORMATION6);
71: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION7 ' || i ||' - '|| l_payment_struc(i).RULE_INFORMATION7);
72: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION8 ' || i ||' - '|| l_payment_struc(i).RULE_INFORMATION8);
73: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION10 ' || i ||' - '|| l_payment_struc(i).RULE_INFORMATION10);
74: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).OBJECT1_ID1 ' || i ||' - '|| l_payment_struc(i).OBJECT1_ID1);
75: END IF;
76: EXIT WHEN i = l_payment_struc.LAST;
77: i := l_payment_struc.NEXT(i);
70: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION6 ' || i ||' - '|| l_payment_struc(i).RULE_INFORMATION6);
71: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION7 ' || i ||' - '|| l_payment_struc(i).RULE_INFORMATION7);
72: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION8 ' || i ||' - '|| l_payment_struc(i).RULE_INFORMATION8);
73: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION10 ' || i ||' - '|| l_payment_struc(i).RULE_INFORMATION10);
74: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).OBJECT1_ID1 ' || i ||' - '|| l_payment_struc(i).OBJECT1_ID1);
75: END IF;
76: EXIT WHEN i = l_payment_struc.LAST;
77: i := l_payment_struc.NEXT(i);
78: END LOOP;
84: IS
85: i NUMBER;
86: BEGIN
87: IF (G_DEBUG_ENABLED = 'Y') THEN
88: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
89: END IF;
90: i := 0;
91: IF p_payment_tbl.COUNT > 0 THEN
92: i := p_payment_tbl.FIRST;
91: IF p_payment_tbl.COUNT > 0 THEN
92: i := p_payment_tbl.FIRST;
93: LOOP
94: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
95: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).KHR_ID :'||i||' -'|| p_payment_tbl(i).KHR_ID);
96: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).KLE_ID :'||i||' -'|| p_payment_tbl(i).KLE_ID);
97: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).STY_ID :'||i||' -'|| p_payment_tbl(i).STY_ID);
98: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).start_date :'||i||' -'|| p_payment_tbl(i).start_date);
99: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).structure :'||i||' -'|| p_payment_tbl(i).structure);
92: i := p_payment_tbl.FIRST;
93: LOOP
94: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
95: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).KHR_ID :'||i||' -'|| p_payment_tbl(i).KHR_ID);
96: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).KLE_ID :'||i||' -'|| p_payment_tbl(i).KLE_ID);
97: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).STY_ID :'||i||' -'|| p_payment_tbl(i).STY_ID);
98: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).start_date :'||i||' -'|| p_payment_tbl(i).start_date);
99: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).structure :'||i||' -'|| p_payment_tbl(i).structure);
100: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).arrears_yn :'||i||' -'|| p_payment_tbl(i).arrears_yn);
93: LOOP
94: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
95: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).KHR_ID :'||i||' -'|| p_payment_tbl(i).KHR_ID);
96: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).KLE_ID :'||i||' -'|| p_payment_tbl(i).KLE_ID);
97: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).STY_ID :'||i||' -'|| p_payment_tbl(i).STY_ID);
98: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).start_date :'||i||' -'|| p_payment_tbl(i).start_date);
99: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).structure :'||i||' -'|| p_payment_tbl(i).structure);
100: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).arrears_yn :'||i||' -'|| p_payment_tbl(i).arrears_yn);
101: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).periods :'||i||' -'|| p_payment_tbl(i).periods);
94: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
95: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).KHR_ID :'||i||' -'|| p_payment_tbl(i).KHR_ID);
96: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).KLE_ID :'||i||' -'|| p_payment_tbl(i).KLE_ID);
97: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).STY_ID :'||i||' -'|| p_payment_tbl(i).STY_ID);
98: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).start_date :'||i||' -'|| p_payment_tbl(i).start_date);
99: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).structure :'||i||' -'|| p_payment_tbl(i).structure);
100: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).arrears_yn :'||i||' -'|| p_payment_tbl(i).arrears_yn);
101: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).periods :'||i||' -'|| p_payment_tbl(i).periods);
102: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).frequency :'||i||' -'|| p_payment_tbl(i).frequency);
95: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).KHR_ID :'||i||' -'|| p_payment_tbl(i).KHR_ID);
96: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).KLE_ID :'||i||' -'|| p_payment_tbl(i).KLE_ID);
97: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).STY_ID :'||i||' -'|| p_payment_tbl(i).STY_ID);
98: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).start_date :'||i||' -'|| p_payment_tbl(i).start_date);
99: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).structure :'||i||' -'|| p_payment_tbl(i).structure);
100: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).arrears_yn :'||i||' -'|| p_payment_tbl(i).arrears_yn);
101: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).periods :'||i||' -'|| p_payment_tbl(i).periods);
102: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).frequency :'||i||' -'|| p_payment_tbl(i).frequency);
103: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).amount :'||i||' -'|| p_payment_tbl(i).amount);
96: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).KLE_ID :'||i||' -'|| p_payment_tbl(i).KLE_ID);
97: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).STY_ID :'||i||' -'|| p_payment_tbl(i).STY_ID);
98: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).start_date :'||i||' -'|| p_payment_tbl(i).start_date);
99: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).structure :'||i||' -'|| p_payment_tbl(i).structure);
100: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).arrears_yn :'||i||' -'|| p_payment_tbl(i).arrears_yn);
101: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).periods :'||i||' -'|| p_payment_tbl(i).periods);
102: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).frequency :'||i||' -'|| p_payment_tbl(i).frequency);
103: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).amount :'||i||' -'|| p_payment_tbl(i).amount);
104: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).stub_days :'||i||' -'|| p_payment_tbl(i).stub_days);
97: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).STY_ID :'||i||' -'|| p_payment_tbl(i).STY_ID);
98: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).start_date :'||i||' -'|| p_payment_tbl(i).start_date);
99: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).structure :'||i||' -'|| p_payment_tbl(i).structure);
100: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).arrears_yn :'||i||' -'|| p_payment_tbl(i).arrears_yn);
101: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).periods :'||i||' -'|| p_payment_tbl(i).periods);
102: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).frequency :'||i||' -'|| p_payment_tbl(i).frequency);
103: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).amount :'||i||' -'|| p_payment_tbl(i).amount);
104: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).stub_days :'||i||' -'|| p_payment_tbl(i).stub_days);
105: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).stub_amount :'||i||' -'|| p_payment_tbl(i).stub_amount);
98: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).start_date :'||i||' -'|| p_payment_tbl(i).start_date);
99: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).structure :'||i||' -'|| p_payment_tbl(i).structure);
100: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).arrears_yn :'||i||' -'|| p_payment_tbl(i).arrears_yn);
101: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).periods :'||i||' -'|| p_payment_tbl(i).periods);
102: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).frequency :'||i||' -'|| p_payment_tbl(i).frequency);
103: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).amount :'||i||' -'|| p_payment_tbl(i).amount);
104: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).stub_days :'||i||' -'|| p_payment_tbl(i).stub_days);
105: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).stub_amount :'||i||' -'|| p_payment_tbl(i).stub_amount);
106: END IF;
99: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).structure :'||i||' -'|| p_payment_tbl(i).structure);
100: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).arrears_yn :'||i||' -'|| p_payment_tbl(i).arrears_yn);
101: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).periods :'||i||' -'|| p_payment_tbl(i).periods);
102: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).frequency :'||i||' -'|| p_payment_tbl(i).frequency);
103: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).amount :'||i||' -'|| p_payment_tbl(i).amount);
104: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).stub_days :'||i||' -'|| p_payment_tbl(i).stub_days);
105: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).stub_amount :'||i||' -'|| p_payment_tbl(i).stub_amount);
106: END IF;
107: EXIT WHEN i = p_payment_tbl.LAST;
100: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).arrears_yn :'||i||' -'|| p_payment_tbl(i).arrears_yn);
101: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).periods :'||i||' -'|| p_payment_tbl(i).periods);
102: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).frequency :'||i||' -'|| p_payment_tbl(i).frequency);
103: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).amount :'||i||' -'|| p_payment_tbl(i).amount);
104: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).stub_days :'||i||' -'|| p_payment_tbl(i).stub_days);
105: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).stub_amount :'||i||' -'|| p_payment_tbl(i).stub_amount);
106: END IF;
107: EXIT WHEN i = p_payment_tbl.LAST;
108: i := p_payment_tbl.NEXT(i);
101: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).periods :'||i||' -'|| p_payment_tbl(i).periods);
102: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).frequency :'||i||' -'|| p_payment_tbl(i).frequency);
103: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).amount :'||i||' -'|| p_payment_tbl(i).amount);
104: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).stub_days :'||i||' -'|| p_payment_tbl(i).stub_days);
105: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).stub_amount :'||i||' -'|| p_payment_tbl(i).stub_amount);
106: END IF;
107: EXIT WHEN i = p_payment_tbl.LAST;
108: i := p_payment_tbl.NEXT(i);
109: END LOOP;
113: PROCEDURE PRINT_ISG_PARAMS(p_payment_tbl IN okl_pricing_pvt.payment_tbl_type)
114: IS
115: BEGIN
116: IF (G_DEBUG_ENABLED = 'Y') THEN
117: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
118: END IF;
119:
120: FOR i in p_payment_tbl.FIRST..p_payment_tbl.LAST LOOP
121: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
118: END IF;
119:
120: FOR i in p_payment_tbl.FIRST..p_payment_tbl.LAST LOOP
121: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
122: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).start_date :'||i||' -'|| p_payment_tbl(i).start_date);
123: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).structure :'||i||' -'|| p_payment_tbl(i).structure);
124: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).arrears_yn :'||i||' -'|| p_payment_tbl(i).arrears_yn);
125: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).periods :'||i||' -'|| p_payment_tbl(i).periods);
126: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).frequency :'||i||' -'|| p_payment_tbl(i).frequency);
119:
120: FOR i in p_payment_tbl.FIRST..p_payment_tbl.LAST LOOP
121: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
122: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).start_date :'||i||' -'|| p_payment_tbl(i).start_date);
123: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).structure :'||i||' -'|| p_payment_tbl(i).structure);
124: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).arrears_yn :'||i||' -'|| p_payment_tbl(i).arrears_yn);
125: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).periods :'||i||' -'|| p_payment_tbl(i).periods);
126: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).frequency :'||i||' -'|| p_payment_tbl(i).frequency);
127: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).amount :'||i||' -'|| p_payment_tbl(i).amount);
120: FOR i in p_payment_tbl.FIRST..p_payment_tbl.LAST LOOP
121: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
122: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).start_date :'||i||' -'|| p_payment_tbl(i).start_date);
123: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).structure :'||i||' -'|| p_payment_tbl(i).structure);
124: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).arrears_yn :'||i||' -'|| p_payment_tbl(i).arrears_yn);
125: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).periods :'||i||' -'|| p_payment_tbl(i).periods);
126: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).frequency :'||i||' -'|| p_payment_tbl(i).frequency);
127: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).amount :'||i||' -'|| p_payment_tbl(i).amount);
128: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).stub_days :'||i||' -'|| p_payment_tbl(i).stub_days);
121: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
122: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).start_date :'||i||' -'|| p_payment_tbl(i).start_date);
123: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).structure :'||i||' -'|| p_payment_tbl(i).structure);
124: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).arrears_yn :'||i||' -'|| p_payment_tbl(i).arrears_yn);
125: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).periods :'||i||' -'|| p_payment_tbl(i).periods);
126: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).frequency :'||i||' -'|| p_payment_tbl(i).frequency);
127: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).amount :'||i||' -'|| p_payment_tbl(i).amount);
128: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).stub_days :'||i||' -'|| p_payment_tbl(i).stub_days);
129: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).stub_amount :'||i||' -'|| p_payment_tbl(i).stub_amount);
122: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).start_date :'||i||' -'|| p_payment_tbl(i).start_date);
123: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).structure :'||i||' -'|| p_payment_tbl(i).structure);
124: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).arrears_yn :'||i||' -'|| p_payment_tbl(i).arrears_yn);
125: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).periods :'||i||' -'|| p_payment_tbl(i).periods);
126: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).frequency :'||i||' -'|| p_payment_tbl(i).frequency);
127: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).amount :'||i||' -'|| p_payment_tbl(i).amount);
128: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).stub_days :'||i||' -'|| p_payment_tbl(i).stub_days);
129: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).stub_amount :'||i||' -'|| p_payment_tbl(i).stub_amount);
130: END IF;
123: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).structure :'||i||' -'|| p_payment_tbl(i).structure);
124: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).arrears_yn :'||i||' -'|| p_payment_tbl(i).arrears_yn);
125: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).periods :'||i||' -'|| p_payment_tbl(i).periods);
126: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).frequency :'||i||' -'|| p_payment_tbl(i).frequency);
127: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).amount :'||i||' -'|| p_payment_tbl(i).amount);
128: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).stub_days :'||i||' -'|| p_payment_tbl(i).stub_days);
129: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).stub_amount :'||i||' -'|| p_payment_tbl(i).stub_amount);
130: END IF;
131: END LOOP;
124: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).arrears_yn :'||i||' -'|| p_payment_tbl(i).arrears_yn);
125: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).periods :'||i||' -'|| p_payment_tbl(i).periods);
126: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).frequency :'||i||' -'|| p_payment_tbl(i).frequency);
127: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).amount :'||i||' -'|| p_payment_tbl(i).amount);
128: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).stub_days :'||i||' -'|| p_payment_tbl(i).stub_days);
129: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).stub_amount :'||i||' -'|| p_payment_tbl(i).stub_amount);
130: END IF;
131: END LOOP;
132: END PRINT_ISG_PARAMS;
125: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).periods :'||i||' -'|| p_payment_tbl(i).periods);
126: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).frequency :'||i||' -'|| p_payment_tbl(i).frequency);
127: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).amount :'||i||' -'|| p_payment_tbl(i).amount);
128: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).stub_days :'||i||' -'|| p_payment_tbl(i).stub_days);
129: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' p_payment_tbl(i).stub_amount :'||i||' -'|| p_payment_tbl(i).stub_amount);
130: END IF;
131: END LOOP;
132: END PRINT_ISG_PARAMS;
133:
1292: l_rent_count NUMBER;
1293: l_principal_count NUMBER;
1294: BEGIN
1295: IF (G_DEBUG_ENABLED = 'Y') THEN
1296: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
1297: END IF;
1298:
1299: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1300: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.get_current_payments'
1295: IF (G_DEBUG_ENABLED = 'Y') THEN
1296: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
1297: END IF;
1298:
1299: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1300: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.get_current_payments'
1301: ,'Begin(+)');
1302: END IF;
1303:
1296: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
1297: END IF;
1298:
1299: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1300: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.get_current_payments'
1301: ,'Begin(+)');
1302: END IF;
1303:
1304: --Print Input Variables
1301: ,'Begin(+)');
1302: END IF;
1303:
1304: --Print Input Variables
1305: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1306: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.get_current_payments.',
1307: 'p_khr_id :'||p_khr_id );
1308:
1309: END IF;
1302: END IF;
1303:
1304: --Print Input Variables
1305: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1306: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.get_current_payments.',
1307: 'p_khr_id :'||p_khr_id );
1308:
1309: END IF;
1310:
1308:
1309: END IF;
1310:
1311: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1312: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'In Get current payments');
1313: END IF;
1314:
1315: --rkuttiya added for 11i OKL.H Variable Rate Project
1316: -- Get primary stream type on the contract
1317: OPEN l_stream_type_csr('PRINCIPAL_PAYMENT',p_khr_id);
1318: FETCH l_stream_type_csr INTO l_principal_count;
1319: CLOSE l_stream_type_csr;
1320: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1321: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_principal_count);
1322: END IF;
1323:
1324: OPEN l_stream_type_csr('RENT',p_khr_id);
1325: FETCH l_stream_type_csr INTO l_rent_count;
1324: OPEN l_stream_type_csr('RENT',p_khr_id);
1325: FETCH l_stream_type_csr INTO l_rent_count;
1326: CLOSE l_stream_type_csr;
1327: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1328: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_rent_count);
1329: END IF;
1330:
1331: IF l_principal_count > 0 THEN
1332: l_strm_type := 'PRINCIPAL_PAYMENT';
1338: ,x_return_status => x_return_status
1339: ,x_dependent_sty_id => l_prim_sty_id);
1340:
1341: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1342: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After getting primary stream type for Principal Payment'|| x_return_status);
1343: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Primary Stream Type Id for Principal Payment'|| l_prim_sty_id);
1344: END IF;
1345:
1346: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1339: ,x_dependent_sty_id => l_prim_sty_id);
1340:
1341: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1342: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After getting primary stream type for Principal Payment'|| x_return_status);
1343: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Primary Stream Type Id for Principal Payment'|| l_prim_sty_id);
1344: END IF;
1345:
1346: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1347: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1356: ,p_dependent_sty_purpose => G_UNSCHED_PP_STREAM
1357: ,x_return_status => x_return_status
1358: ,x_dependent_sty_id => l_upp_sty_id);
1359: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1360: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After get_depend_stream type: '|| x_return_status);
1361: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'dependent stream type id: '||l_upp_sty_id);
1362: END IF;
1363:
1364: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1357: ,x_return_status => x_return_status
1358: ,x_dependent_sty_id => l_upp_sty_id);
1359: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1360: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After get_depend_stream type: '|| x_return_status);
1361: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'dependent stream type id: '||l_upp_sty_id);
1362: END IF;
1363:
1364: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1365: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1375: ,p_primary_sty_purpose => G_RENT_STREAM
1376: ,x_return_status => x_return_status
1377: ,x_primary_sty_id => l_prim_sty_id);
1378: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1379: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Get primary strm type for Rent ' || x_return_status);
1380: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Primary Stream Type Id for Rent' || l_prim_sty_id);
1381: END IF;
1382:
1383: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1376: ,x_return_status => x_return_status
1377: ,x_primary_sty_id => l_prim_sty_id);
1378: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1379: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Get primary strm type for Rent ' || x_return_status);
1380: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Primary Stream Type Id for Rent' || l_prim_sty_id);
1381: END IF;
1382:
1383: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1384: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1393: ,p_dependent_sty_purpose => G_UNSCHED_PP_STREAM
1394: ,x_return_status => x_return_status
1395: ,x_dependent_sty_id => l_upp_sty_id);
1396: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1397: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After get_depend_stream type: '|| x_return_status);
1398: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Dependent Stream Type Id :' || l_upp_sty_id);
1399: END IF;
1400:
1401: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1394: ,x_return_status => x_return_status
1395: ,x_dependent_sty_id => l_upp_sty_id);
1396: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1397: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After get_depend_stream type: '|| x_return_status);
1398: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Dependent Stream Type Id :' || l_upp_sty_id);
1399: END IF;
1400:
1401: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1402: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1483: x_primary_strm_type := l_strm_type;
1484: x_prim_sty_id := l_prim_sty_id;
1485: x_upp_sty_id := l_upp_sty_id;
1486:
1487: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1488: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.get_current_payments'
1489: ,'End(-)');
1490: END IF;
1491: END get_current_payments;
1484: x_prim_sty_id := l_prim_sty_id;
1485: x_upp_sty_id := l_upp_sty_id;
1486:
1487: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1488: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.get_current_payments'
1489: ,'End(-)');
1490: END IF;
1491: END get_current_payments;
1492:
1536: l_stub_days NUMBER;
1537:
1538: BEGIN
1539: IF (G_DEBUG_ENABLED = 'Y') THEN
1540: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
1541: END IF;
1542:
1543: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN --[1]
1544: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.modify_payments'
1539: IF (G_DEBUG_ENABLED = 'Y') THEN
1540: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
1541: END IF;
1542:
1543: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN --[1]
1544: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.modify_payments'
1545: ,'Begin(+)');
1546: END IF; --[1]
1547:
1540: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
1541: END IF;
1542:
1543: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN --[1]
1544: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.modify_payments'
1545: ,'Begin(+)');
1546: END IF; --[1]
1547:
1548:
1549: FOR j in l_payment_struc.FIRST..l_payment_struc.LAST LOOP
1550: IF l_prev_cle_id <> l_payment_struc(j).cle_id THEN --[2]
1551: l_payment_already_split := 'N';
1552: l_prev_cle_id := l_payment_struc(j).cle_id;
1553: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1554: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.modify_payments.',
1555: 'cle_id is :'||l_payment_struc(j).cle_id );
1556: END IF;
1557:
1550: IF l_prev_cle_id <> l_payment_struc(j).cle_id THEN --[2]
1551: l_payment_already_split := 'N';
1552: l_prev_cle_id := l_payment_struc(j).cle_id;
1553: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1554: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.modify_payments.',
1555: 'cle_id is :'||l_payment_struc(j).cle_id );
1556: END IF;
1557:
1558: END IF; --[2]
1572: ,p_frequency => l_payment_struc(j).OBJECT1_ID1
1573: ,p_period => l_payment_struc(j).rule_information3);
1574:
1575: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1576: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'End Date is : '|| l_end_date);
1577: END IF;
1578: IF l_end_date > p_ppd_date THEN --[6]
1579:
1580: IF l_payment_already_split <> 'Y' THEN --[7]
1587: pymnt_knt := l_payment_struc(j).rule_information3; --Use actual periods
1588: l_stub_pymnt := 'N';
1589: END IF;
1590: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1591: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Stub Payment is : '|| l_stub_pymnt);
1592: END IF;
1593: FOR i in 1..pymnt_knt LOOP
1594: IF l_stub_pymnt = 'Y' THEN
1595: l_stub_days := i;
1628: ,p_frequency => l_payment_struc(j).OBJECT1_ID1
1629: ,p_period => l_upper_period);
1630: END IF;
1631: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1632: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Lower Period is :' || l_lower_period);
1633: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Upper Period is :' || l_upper_period);
1634: END IF;
1635: EXIT;
1636: END IF; --[8]
1629: ,p_period => l_upper_period);
1630: END IF;
1631: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1632: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Lower Period is :' || l_lower_period);
1633: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Upper Period is :' || l_upper_period);
1634: END IF;
1635: EXIT;
1636: END IF; --[8]
1637: END LOOP;
1702: -- set the return status and out variables
1703: x_modified_payment_struc := l_modified_payments;
1704:
1705:
1706: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1707: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.modify_payments'
1708: ,'End(-)');
1709: END IF;
1710: END modify_payments;
1703: x_modified_payment_struc := l_modified_payments;
1704:
1705:
1706: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1707: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.modify_payments'
1708: ,'End(-)');
1709: END IF;
1710: END modify_payments;
1711:
1774: l_amount NUMBER;
1775:
1776: BEGIN
1777: IF (G_DEBUG_ENABLED = 'Y') THEN
1778: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
1779: END IF;
1780:
1781: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN --[1]
1782: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.modify_terms'
1777: IF (G_DEBUG_ENABLED = 'Y') THEN
1778: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
1779: END IF;
1780:
1781: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN --[1]
1782: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.modify_terms'
1783: ,'Begin(+)');
1784: END IF; --[1]
1785:
1778: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
1779: END IF;
1780:
1781: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN --[1]
1782: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.modify_terms'
1783: ,'Begin(+)');
1784: END IF; --[1]
1785:
1786:
1788: IF l_prev_cle_id <> l_payment_struc(j).cle_id THEN --[2]
1789: l_term_already_split := 'N';
1790:
1791: l_prev_cle_id := l_payment_struc(j).cle_id;
1792: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1793: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.modify_payments.',
1794: 'cle_id is :'||l_payment_struc(j).cle_id );
1795: END IF;
1796:
1789: l_term_already_split := 'N';
1790:
1791: l_prev_cle_id := l_payment_struc(j).cle_id;
1792: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1793: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.modify_payments.',
1794: 'cle_id is :'||l_payment_struc(j).cle_id );
1795: END IF;
1796:
1797: END IF; --[2]
1811: ,p_frequency => l_payment_struc(j).OBJECT1_ID1
1812: ,p_period => l_payment_struc(j).rule_information3);
1813:
1814: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1815: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'End Date is : '|| l_end_date);
1816: END IF;
1817: IF l_end_date > p_ppd_date THEN --[6]
1818:
1819: IF l_term_already_split <> 'Y' THEN --[7]
1827: pymnt_knt := l_payment_struc(j).rule_information3; --Use actual periods
1828: l_stub_pymnt := 'N';
1829: END IF;
1830: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1831: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Stub Payment is : '|| l_stub_pymnt);
1832: END IF;
1833: FOR i in 1..pymnt_knt LOOP
1834: IF l_stub_pymnt = 'Y' THEN
1835: l_stub_days := i;
1861: ,p_frequency => l_payment_struc(j).OBJECT1_ID1
1862: ,p_period => l_upper_period);
1863: END IF;
1864: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1865: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Upper Period is :' || l_upper_period);
1866: END IF;
1867: EXIT;
1868: END IF; --[8]
1869: END LOOP;
1961: WHERE id = cp_khr_id;
1962:
1963: BEGIN
1964: IF (G_DEBUG_ENABLED = 'Y') THEN
1965: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
1966: END IF;
1967:
1968: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN --[1]
1969: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.modify_payments'
1964: IF (G_DEBUG_ENABLED = 'Y') THEN
1965: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
1966: END IF;
1967:
1968: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN --[1]
1969: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.modify_payments'
1970: ,'Begin(+)');
1971: END IF; --[1]
1972: open c_get_cur(p_chr_id);
1965: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
1966: END IF;
1967:
1968: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN --[1]
1969: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.modify_payments'
1970: ,'Begin(+)');
1971: END IF; --[1]
1972: open c_get_cur(p_chr_id);
1973: fetch c_get_cur into l_currency_code;
1989: p_line_id => l_payment_struc(j).cle_id,
1990: x_value => l_asset_cost);
1991:
1992: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1993: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After execute LINE_CAP_AMNT: in modify principal payments'|| l_asset_cost);
1994: END IF;
1995: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
1996: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1997: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
2001: --Pro rate the ppd amt for this line
2002: l_raw_ppd_for_asset := (l_asset_cost/p_total_k_cost)
2003: * p_ppd_amount;
2004: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2005: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'raw ppd for asset'||l_raw_ppd_for_asset);
2006: END IF;
2007:
2008: l_ppd_for_asset := Okl_Accounting_Util.ROUND_AMOUNT(
2009: p_amount => l_raw_ppd_for_asset,
2008: l_ppd_for_asset := Okl_Accounting_Util.ROUND_AMOUNT(
2009: p_amount => l_raw_ppd_for_asset,
2010: p_currency_code => l_currency_code);
2011: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2012: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'PPD for Asset : '|| l_ppd_for_asset);
2013: END IF;
2014:
2015: OKL_STREAM_GENERATOR_PVT.get_sched_principal_bal(
2016: p_api_version => l_api_version,
2031: END IF;
2032: --l_total_princ_balance := l_principal_balance + l_acc_int ;
2033: l_total_princ_balance := l_principal_balance;
2034: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2035: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'total Principal Balance : ' || l_total_princ_balance);
2036: END IF;
2037:
2038: --PPD amount for the asset = Principal Balance on asset
2039: -- - Pro rated ppd for this asset.
2047:
2048:
2049:
2050: l_prev_cle_id := l_payment_struc(j).cle_id;
2051: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2052: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.modify_payments.',
2053: 'cle_id is :'||l_payment_struc(j).cle_id );
2054: END IF;
2055:
2048:
2049:
2050: l_prev_cle_id := l_payment_struc(j).cle_id;
2051: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2052: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.modify_payments.',
2053: 'cle_id is :'||l_payment_struc(j).cle_id );
2054: END IF;
2055:
2056: END IF; --[2]
2070: ,p_frequency => l_payment_struc(j).OBJECT1_ID1
2071: ,p_period => l_payment_struc(j).rule_information3);
2072:
2073: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2074: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'End Date is : '|| l_end_date);
2075: END IF;
2076: IF l_end_date > p_ppd_date THEN --[6]
2077: IF l_payment_already_split <> 'Y' THEN --[7]
2078: --Split Only this payment.
2084: pymnt_knt := l_payment_struc(j).rule_information3; --Use actual periods
2085: l_stub_pymnt := 'N';
2086: END IF;
2087: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2088: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Stub Payment is : '|| l_stub_pymnt);
2089: END IF;
2090: FOR i in 1..pymnt_knt LOOP
2091: IF l_stub_pymnt = 'Y' THEN
2092: l_stub_days := i;
2125: ,p_frequency => l_payment_struc(j).OBJECT1_ID1
2126: ,p_period => l_upper_period);
2127: END IF;
2128: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2129: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Lower Period is :' || l_lower_period);
2130: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Upper Period is :' || l_upper_period);
2131: END IF;
2132: EXIT;
2133: END IF; --[8]
2126: ,p_period => l_upper_period);
2127: END IF;
2128: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2129: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Lower Period is :' || l_lower_period);
2130: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Upper Period is :' || l_upper_period);
2131: END IF;
2132: EXIT;
2133: END IF; --[8]
2134: END LOOP;
2189: -- set the return status and out variables
2190: x_modified_payment_struc := l_modified_payments;
2191:
2192:
2193: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2194: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.modify_payments'
2195: ,'End(-)');
2196: END IF;
2197: END Modify_Principal_Payments;
2190: x_modified_payment_struc := l_modified_payments;
2191:
2192:
2193: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2194: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.modify_payments'
2195: ,'End(-)');
2196: END IF;
2197: END Modify_Principal_Payments;
2198:
2239: WHERE caf_id=cp_caf_id;
2240:
2241: BEGIN
2242: IF (G_DEBUG_ENABLED = 'Y') THEN
2243: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
2244: END IF;
2245:
2246: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2247: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.delete_payments','Begin(+)');
2242: IF (G_DEBUG_ENABLED = 'Y') THEN
2243: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
2244: END IF;
2245:
2246: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2247: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.delete_payments','Begin(+)');
2248: END IF;
2249:
2250: --Print Input Variables
2243: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
2244: END IF;
2245:
2246: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2247: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.delete_payments','Begin(+)');
2248: END IF;
2249:
2250: --Print Input Variables
2251: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2247: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.delete_payments','Begin(+)');
2248: END IF;
2249:
2250: --Print Input Variables
2251: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2252: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.delete_payments.',
2253: 'p_request_id :'||p_request_id);
2254: END IF;
2255: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2248: END IF;
2249:
2250: --Print Input Variables
2251: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2252: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.delete_payments.',
2253: 'p_request_id :'||p_request_id);
2254: END IF;
2255: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2256:
2291: x_msg_data => x_msg_data,
2292: p_cflv_rec => lp_cflv_rec);
2293:
2294: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2295: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Deleting CFL - Return Status: ' || l_return_status);
2296: END IF;
2297: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2298: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2299: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2309: x_msg_count => x_msg_count,
2310: x_msg_data => x_msg_data,
2311: p_cafv_rec => lp_cafv_rec);
2312: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2313: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Deleting CAF - Return Status: ' || l_return_status);
2314: END IF;
2315: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2316: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2317: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2319: END IF;
2320: END LOOP;
2321: END LOOP;
2322:
2323: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2324: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.delete_payments','End(-)');
2325: END IF;
2326:
2327: EXCEPTION
2320: END LOOP;
2321: END LOOP;
2322:
2323: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2324: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.delete_payments','End(-)');
2325: END IF;
2326:
2327: EXCEPTION
2328:
2326:
2327: EXCEPTION
2328:
2329: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2330: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2331: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.delete_payments ',
2332: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
2333: END IF;
2334:
2327: EXCEPTION
2328:
2329: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2330: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2331: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.delete_payments ',
2332: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
2333: END IF;
2334:
2335: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
2339: x_msg_count,
2340: x_msg_data,
2341: '_PVT');
2342: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2343: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2344: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.delete_payments ',
2345: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
2346: END IF;
2347:
2340: x_msg_data,
2341: '_PVT');
2342: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2343: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2344: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.delete_payments ',
2345: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
2346: END IF;
2347:
2348: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2352: x_msg_count,
2353: x_msg_data,
2354: '_PVT');
2355: WHEN OTHERS THEN
2356: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2357: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.delete_payments ',
2358: 'EXCEPTION :'||sqlerrm);
2359: END IF;
2360:
2353: x_msg_data,
2354: '_PVT');
2355: WHEN OTHERS THEN
2356: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2357: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.delete_payments ',
2358: 'EXCEPTION :'||sqlerrm);
2359: END IF;
2360:
2361: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
2558: l_object_version_number number ;
2559:
2560: BEGIN
2561: IF (G_DEBUG_ENABLED = 'Y') THEN
2562: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
2563: END IF;
2564: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2565:
2566: --Call start_activity to create savepoint, check compatibility and initialize message list
2605: x_msg_count => x_msg_count,
2606: x_msg_data => x_msg_data);
2607:
2608: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2609: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After get_sched_principal_bal : ' || l_payment_struc.count);
2610: END IF;
2611: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2612: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2613: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2626: p_contract_id => p_chr_id,
2627: p_line_id => NULL,
2628: x_value => l_total_k_cost);
2629: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2630: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After execute CONTRACT_CAP_AMNT: '|| l_total_k_cost || x_return_status);
2631: END IF;
2632: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2633: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2634: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2647: p_trqv_tbl => p_trqv_tbl,
2648: x_trqv_tbl => x_trqv_tbl);
2649:
2650: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2651: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Insert Request:'|| x_return_status);
2652: END IF;
2653:
2654: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2655: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2673: x_msg_data => x_msg_data,
2674: p_trqv_tbl => l_upd_trqv_tbl,
2675: x_trqv_tbl => x_trqv_tbl);
2676: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2677: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Update Request:'|| x_return_status);
2678: END IF;
2679:
2680: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2681: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2690: x_msg_count => x_msg_count,
2691: x_msg_data => x_msg_data,
2692: p_request_id => p_trqv_tbl(1).id);
2693: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2694: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Delete PAyments:'|| x_return_status);
2695: END IF;
2696: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2697: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2698: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2707: ,p_primary_sty_purpose => G_RENT_STREAM
2708: ,x_return_status => x_return_status
2709: ,x_primary_sty_id => l_rent_sty_id);
2710: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2711: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Get primary strm type ' || x_return_status);
2712: END IF;
2713:
2714: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2715: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2724: ,p_dependent_sty_purpose => G_UNSCHED_PP_STREAM
2725: ,x_return_status => x_return_status
2726: ,x_dependent_sty_id => l_upp_sty_id);
2727: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2728: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After get_depend_stream type: '|| x_return_status);
2729: END IF;
2730:
2731: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2732: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2739: ,x_pricing_engine => l_pricing_engine
2740: ,x_return_status => x_return_status);
2741:
2742: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2743: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Pricing Engine is : ' || l_pricing_engine
2744: || ' API return status: '|| x_return_status);
2745: END IF;
2746: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2747: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2750: END IF;
2751:
2752: IF l_pricing_engine = 'INTERNAL' THEN
2753: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2754: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Using ISG for Pricing');
2755: END IF;
2756: --get_payments for this contract
2757: --Get the Existing payments from SLL/SLH
2758: get_current_payments(p_khr_id => p_chr_id,
2785: RAISE OKL_API.G_EXCEPTION_ERROR;
2786: END IF;
2787:
2788: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2789: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Store payments in ISG pricing:' || x_return_status
2790: || 'CFO Id: '|| lx_cfo_id);
2791: END IF;
2792:
2793: --Get the Lines for this K
2803: p_line_id => l_okcklines_rec.kle_id,
2804: x_value => l_asset_cost);
2805:
2806: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2807: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After execute LINE_CAP_AMNT: '|| l_asset_cost);
2808: END IF;
2809: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
2810: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2811: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
2819: l_ppd_for_asset := Okl_Accounting_Util.ROUND_AMOUNT(
2820: p_amount => l_raw_ppd_for_asset,
2821: p_currency_code => l_currency_code);
2822: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2823: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'PPD for Asset : '|| l_ppd_for_asset);
2824: END IF;
2825:
2826: OKL_STREAM_GENERATOR_PVT.get_sched_principal_bal(
2827: p_api_version => p_api_version,
2841: RAISE OKL_API.G_EXCEPTION_ERROR;
2842: END IF;
2843: l_total_princ_balance := l_principal_balance + l_acc_int ;
2844: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2845: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'total Principal Balance : ' || l_total_princ_balance);
2846: END IF;
2847:
2848: --PPD amount for the asset = Principal Balance on asset
2849: -- - Pro rated ppd for this asset.
2857: FETCH c_get_line_iir INTO l_line_iir;
2858: CLOSE c_get_line_iir;
2859:
2860: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2861: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'PPD Amount to Pricing : '|| l_ppd_amount);
2862: END IF;
2863:
2864: p := 0;
2865:
2879: END IF;
2880: --Get the modified payments that we just stored for this asset.
2881:
2882: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2883: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'x_trqv_tbl(1).id :'|| x_trqv_tbl(1).id);
2884: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_okcklines_rec.kle_id :'|| l_okcklines_rec.kle_id);
2885: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_trqv_tbl(1).payment_date :'|| x_trqv_tbl(1).payment_date);
2886: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'days_to_reduce :'|| l_days_to_reduce);
2887: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rent_sty_id :'|| l_rent_sty_id);
2880: --Get the modified payments that we just stored for this asset.
2881:
2882: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2883: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'x_trqv_tbl(1).id :'|| x_trqv_tbl(1).id);
2884: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_okcklines_rec.kle_id :'|| l_okcklines_rec.kle_id);
2885: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_trqv_tbl(1).payment_date :'|| x_trqv_tbl(1).payment_date);
2886: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'days_to_reduce :'|| l_days_to_reduce);
2887: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rent_sty_id :'|| l_rent_sty_id);
2888: END IF;
2881:
2882: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2883: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'x_trqv_tbl(1).id :'|| x_trqv_tbl(1).id);
2884: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_okcklines_rec.kle_id :'|| l_okcklines_rec.kle_id);
2885: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_trqv_tbl(1).payment_date :'|| x_trqv_tbl(1).payment_date);
2886: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'days_to_reduce :'|| l_days_to_reduce);
2887: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rent_sty_id :'|| l_rent_sty_id);
2888: END IF;
2889: FOR cur_rec in c_get_future_pay_details(x_trqv_tbl(1).id
2882: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2883: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'x_trqv_tbl(1).id :'|| x_trqv_tbl(1).id);
2884: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_okcklines_rec.kle_id :'|| l_okcklines_rec.kle_id);
2885: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_trqv_tbl(1).payment_date :'|| x_trqv_tbl(1).payment_date);
2886: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'days_to_reduce :'|| l_days_to_reduce);
2887: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rent_sty_id :'|| l_rent_sty_id);
2888: END IF;
2889: FOR cur_rec in c_get_future_pay_details(x_trqv_tbl(1).id
2890: ,l_okcklines_rec.kle_id
2883: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'x_trqv_tbl(1).id :'|| x_trqv_tbl(1).id);
2884: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_okcklines_rec.kle_id :'|| l_okcklines_rec.kle_id);
2885: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_trqv_tbl(1).payment_date :'|| x_trqv_tbl(1).payment_date);
2886: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'days_to_reduce :'|| l_days_to_reduce);
2887: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'l_rent_sty_id :'|| l_rent_sty_id);
2888: END IF;
2889: FOR cur_rec in c_get_future_pay_details(x_trqv_tbl(1).id
2890: ,l_okcklines_rec.kle_id
2891: ,(p_trqv_tbl(1).payment_date - l_days_to_reduce)
2890: ,l_okcklines_rec.kle_id
2891: ,(p_trqv_tbl(1).payment_date - l_days_to_reduce)
2892: ,l_rent_sty_id) LOOP
2893: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2894: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'In get_future_pay_details csr');
2895: END IF;
2896: p:= p+1;
2897: l_pay_level(p).start_date := cur_rec.start_date;
2898: l_pay_level(p).periods := cur_rec.number_of_periods;
2905: END LOOP;
2906:
2907: --call the pricing api.
2908: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2909: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_kle_id: ' || l_okcklines_rec.kle_id);
2910: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_ppd_amount: ' || l_ppd_amount);
2911: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_rate: ' || l_line_iir);
2912: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_ppd_date: ' ||x_trqv_tbl(1).payment_date);
2913: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Printing l_pay_level');
2906:
2907: --call the pricing api.
2908: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2909: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_kle_id: ' || l_okcklines_rec.kle_id);
2910: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_ppd_amount: ' || l_ppd_amount);
2911: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_rate: ' || l_line_iir);
2912: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_ppd_date: ' ||x_trqv_tbl(1).payment_date);
2913: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Printing l_pay_level');
2914: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'====================');
2907: --call the pricing api.
2908: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2909: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_kle_id: ' || l_okcklines_rec.kle_id);
2910: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_ppd_amount: ' || l_ppd_amount);
2911: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_rate: ' || l_line_iir);
2912: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_ppd_date: ' ||x_trqv_tbl(1).payment_date);
2913: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Printing l_pay_level');
2914: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'====================');
2915: END IF;
2908: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2909: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_kle_id: ' || l_okcklines_rec.kle_id);
2910: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_ppd_amount: ' || l_ppd_amount);
2911: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_rate: ' || l_line_iir);
2912: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_ppd_date: ' ||x_trqv_tbl(1).payment_date);
2913: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Printing l_pay_level');
2914: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'====================');
2915: END IF;
2916: print_isg_params(l_pay_level);
2909: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_kle_id: ' || l_okcklines_rec.kle_id);
2910: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_ppd_amount: ' || l_ppd_amount);
2911: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_rate: ' || l_line_iir);
2912: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_ppd_date: ' ||x_trqv_tbl(1).payment_date);
2913: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Printing l_pay_level');
2914: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'====================');
2915: END IF;
2916: print_isg_params(l_pay_level);
2917: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2910: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_ppd_amount: ' || l_ppd_amount);
2911: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_rate: ' || l_line_iir);
2912: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_ppd_date: ' ||x_trqv_tbl(1).payment_date);
2913: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Printing l_pay_level');
2914: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'====================');
2915: END IF;
2916: print_isg_params(l_pay_level);
2917: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2918: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Calling the Pricing API');
2914: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'====================');
2915: END IF;
2916: print_isg_params(l_pay_level);
2917: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2918: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Calling the Pricing API');
2919: END IF;
2920: okl_pricing_pvt.get_payment_after_ppd( p_api_version => p_api_version,
2921: p_init_msg_list => p_init_msg_list,
2922: x_return_status => x_return_status,
2972: END IF;
2973: --Bug#5332964 end
2974: --Store this at one time.
2975: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2976: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Printing l_payments_tbl');
2977: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'====================');
2978: END IF;
2979: print_stm_payments(l_payments_tbl);
2980: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2973: --Bug#5332964 end
2974: --Store this at one time.
2975: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2976: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Printing l_payments_tbl');
2977: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'====================');
2978: END IF;
2979: print_stm_payments(l_payments_tbl);
2980: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2981: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'calling the Store stm API');
2977: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'====================');
2978: END IF;
2979: print_stm_payments(l_payments_tbl);
2980: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2981: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'calling the Store stm API');
2982: END IF;
2983: store_stm_payments(p_api_version => p_api_version,
2984: p_init_msg_list => p_init_msg_list,
2985: x_return_status => x_return_status,
2989: p_ppd_khr_id => p_chr_id,
2990: p_payment_tbl => l_payments_tbl,
2991: x_cfo_id => lx_cfo_id);
2992: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2993: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Store stm payments in ISG pricing:' || x_return_status
2994: || 'CFO Id: '|| lx_cfo_id);
2995: END IF;
2996: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2997: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3004: l_trqv_tbl(1).object_version_number := x_trqv_tbl(1).object_version_number;
3005: l_trqv_tbl(1).request_status_code := 'COMPLETE';
3006: --Call update here.
3007: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3008: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Updating TRX Requests');
3009: END IF;
3010: okl_trx_requests_pub.update_trx_requests(
3011: p_api_version => p_api_version,
3012: p_init_msg_list =>p_init_msg_list,
3015: x_msg_data => x_msg_data,
3016: p_trqv_tbl => l_trqv_tbl,
3017: x_trqv_tbl => x_trqv_tbl);
3018: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3019: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Updating trx request to Complete in ISG pricing:'
3020: || x_return_status );
3021: END IF;
3022:
3023: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3030:
3031:
3032: ELSE
3033: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3034: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'======Using ESG for Pricing========');
3035: END IF;
3036: --External stream generation from here.
3037: --Send the Request to Supertrump only if the amount is not Zero.
3038: -- If it is Zero we are updating the payment amount to 0 and setting
3038: -- If it is Zero we are updating the payment amount to 0 and setting
3039: -- the status of request to Complete.
3040: IF l_amount = 0 THEN
3041: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3042: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'New Prin balance is Zero');
3043: END IF;
3044: l_trqv_tbl(1).id := x_trqv_tbl(1).id;
3045: l_trqv_tbl(1).object_version_number := x_trqv_tbl(1).object_version_number;
3046: l_trqv_tbl(1).amount := 0;
3071: x_upp_sty_id => l_upp_sty_id,
3072: x_primary_strm_type => l_primary_strm_type);
3073:
3074: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3075: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After get_current_payments payments count is : ' || l_payment_struc.count);
3076: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Total Contract cost '||l_total_k_cost);
3077: END IF;
3078:
3079: --rkuttiya added for 11i OKL.H Variable Rate Project
3072: x_primary_strm_type => l_primary_strm_type);
3073:
3074: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3075: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After get_current_payments payments count is : ' || l_payment_struc.count);
3076: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Total Contract cost '||l_total_k_cost);
3077: END IF;
3078:
3079: --rkuttiya added for 11i OKL.H Variable Rate Project
3080: --check for the Principal Payment Stream and Solve for Payment option
3089: p_upp_sty_id => l_upp_sty_id,
3090: x_modified_payment_struc => l_modified_payment_struc);
3091:
3092: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3093: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After modifying principal payments count is : ' || l_modified_payment_struc.count);
3094: END IF;
3095:
3096:
3097: store_principal_payments(p_api_version => p_api_version,
3104: p_payment_structure => l_modified_payment_struc,
3105: x_cfo_id => lx_cfo_id);
3106:
3107: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3108: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After storing principal payments'|| x_return_status);
3109: END IF;
3110:
3111: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3112: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3130: p_trqv_tbl => l_trqv_tbl,
3131: x_trqv_tbl => x_trqv_tbl);
3132:
3133: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3134: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'after updating request status '|| x_return_Status);
3135: END IF;
3136: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3137: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3138: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3143: ELSE
3144: IF (l_primary_strm_type = 'RENT' AND x_trqv_tbl(1).method_of_calculation_code = 'P') THEN
3145: --Tweak these payments to split them based on the PPd date
3146: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3147: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'ppd_date : ' || x_trqv_tbl(1).payment_date);
3148: END IF;
3149: --For ESG also we will not be setting the payments to be
3150: --calculated as Zero, they will be sent as they are so that
3151: --the proportions can be calculated.
3155: ,p_blank_amount => 'NEGATE'
3156: ,p_rent_sty_id => l_rent_sty_id
3157: ,x_modified_payment_struc => l_modified_payment_struc);
3158: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3159: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After modifying payments count is : ' || l_modified_payment_struc.count);
3160: END IF;
3161:
3162: --Store this whole lot of payments in Payment Schema.
3163: store_payments(p_api_version => p_api_version,
3170: p_payment_structure => l_modified_payment_struc,
3171: x_cfo_id => lx_cfo_id);
3172:
3173: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3174: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After store payments cfo id is : ' || lx_cfo_id || ' ret status is: '|| x_return_status);
3175: END IF;
3176:
3177: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3178: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3189: p_upp_sty_id => l_upp_sty_id,
3190: x_modified_payment_struc => l_modified_payment_struc);
3191:
3192: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3193: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After modifying payments count is : ' || l_modified_payment_struc.count);
3194: END IF;
3195:
3196: --Store this whole lot of payments in Payment Schema.
3197: store_payments(p_api_version => p_api_version,
3204: p_payment_structure => l_modified_payment_struc,
3205: x_cfo_id => lx_cfo_id);
3206:
3207: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3208: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After store payments cfo id is : ' || lx_cfo_id || ' ret status is: '|| x_return_status);
3209: END IF;
3210: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3211: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3212: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3265: x_csm_yields_tbl => l_csm_yields_tbl,
3266: x_csm_stream_types_tbl => l_csm_stream_types_tbl);
3267:
3268: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3269: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After extract params loan: '|| x_return_status);
3270: END IF;
3271: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3272: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3273: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3480: */
3481: --rkuttiya end commenting code for 11i OKL.H Variable Rate
3482:
3483: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3484: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before calling ESG streams');
3485: END IF;
3486: --Call the Create streams
3487: Okl_Create_Streams_Pub.Create_Streams_Loan_Restr(p_api_version => p_api_version,
3488: p_init_msg_list => p_init_msg_list,
3501: x_msg_data => x_msg_data);
3502:
3503:
3504: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3505: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After calling ESG streams:'|| x_return_status);
3506: END IF;
3507: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3508: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3509: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4081: AND DNZ_KHR_ID = c_khr_id;
4082:
4083: BEGIN
4084: IF (G_DEBUG_ENABLED = 'Y') THEN
4085: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
4086: END IF;
4087:
4088: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4089:
4102: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4103: RAISE OKL_API.G_EXCEPTION_ERROR;
4104: END IF;
4105: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4106: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'In Cancel PPD');
4107: END IF;
4108:
4109:
4110: --Select all the unaccepted PPD requests for this contract.
4113: FOR cur_rec in c_get_unaccepted_ppd(p_khr_id) LOOP
4114:
4115: --Insert a log message here for cancelling the request.
4116: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4117: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Cancel PPD with Id:'|| l_trqv_rec.id);
4118: END IF;
4119:
4120: l_trqv_rec.id := cur_rec.id;
4121: l_trqv_rec.object_version_number := cur_rec.object_version_number;
4130: x_msg_data => x_msg_data,
4131: p_trqv_rec => l_trqv_rec,
4132: x_trqv_rec => x_trqv_rec);
4133: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4134: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Cancel PPD :'|| x_return_status);
4135: END IF;
4136:
4137: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4138: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4228:
4229:
4230: BEGIN
4231: IF (G_DEBUG_ENABLED = 'Y') THEN
4232: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
4233: END IF;
4234: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4235: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.invoice_apply_ppd'
4236: ,'Begin(+)');
4230: BEGIN
4231: IF (G_DEBUG_ENABLED = 'Y') THEN
4232: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
4233: END IF;
4234: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4235: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.invoice_apply_ppd'
4236: ,'Begin(+)');
4237: END IF;
4238:
4231: IF (G_DEBUG_ENABLED = 'Y') THEN
4232: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
4233: END IF;
4234: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4235: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.invoice_apply_ppd'
4236: ,'Begin(+)');
4237: END IF;
4238:
4239: --Print Input Variables
4236: ,'Begin(+)');
4237: END IF;
4238:
4239: --Print Input Variables
4240: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4241: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.invoice_apply_ppd.',
4242: 'p_trx_id :'||p_trx_id);
4243: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.invoice_apply_ppd.',
4244: 'p_khr_id :'||p_khr_id);
4237: END IF;
4238:
4239: --Print Input Variables
4240: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4241: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.invoice_apply_ppd.',
4242: 'p_trx_id :'||p_trx_id);
4243: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.invoice_apply_ppd.',
4244: 'p_khr_id :'||p_khr_id);
4245: END IF;
4239: --Print Input Variables
4240: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4241: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.invoice_apply_ppd.',
4242: 'p_trx_id :'||p_trx_id);
4243: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.invoice_apply_ppd.',
4244: 'p_khr_id :'||p_khr_id);
4245: END IF;
4246:
4247:
4270: CLOSE c_get_source_trx_id;
4271:
4272:
4273: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4274: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Source TRX Id for this transaction is :'|| l_src_trx_id);
4275: END IF;
4276: IF l_src_trx_id IS NOT NULL THEN
4277: OPEN c_check_if_ppd(l_src_trx_id);
4278: FETCH c_check_if_ppd INTO l_trx_id;
4279: CLOSE c_check_if_ppd;
4280:
4281: IF l_trx_id = 0 THEN
4282: --This rebook was not due PPD so Exit from the procedure.
4283: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4284: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.invoice_apply_ppd.',
4285: 'This transaction is not due to PPD. Return from invoice_app_ppd at this point.');
4286: END IF;
4287:
4280:
4281: IF l_trx_id = 0 THEN
4282: --This rebook was not due PPD so Exit from the procedure.
4283: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4284: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.invoice_apply_ppd.',
4285: 'This transaction is not due to PPD. Return from invoice_app_ppd at this point.');
4286: END IF;
4287:
4288: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4285: 'This transaction is not due to PPD. Return from invoice_app_ppd at this point.');
4286: END IF;
4287:
4288: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4289: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'The Transaction ' || p_trx_id || ' did not originate from PPD');
4290: END IF;
4291: ELSE
4292: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4293: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.invoice_apply_ppd.',
4288: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4289: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'The Transaction ' || p_trx_id || ' did not originate from PPD');
4290: END IF;
4291: ELSE
4292: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4293: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.invoice_apply_ppd.',
4294: 'This transaction is due to PPD.');
4295: END IF;
4296:
4289: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'The Transaction ' || p_trx_id || ' did not originate from PPD');
4290: END IF;
4291: ELSE
4292: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4293: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.invoice_apply_ppd.',
4294: 'This transaction is due to PPD.');
4295: END IF;
4296:
4297: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4294: 'This transaction is due to PPD.');
4295: END IF;
4296:
4297: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4298: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'The Transaction is due to PPD');
4299: END IF;
4300: --This rebook was due to PPD.
4301: OPEN c_get_req_id_csr(l_trx_id);
4302: FETCH c_get_req_id_csr INTO l_req_id,l_obj_ver;
4301: OPEN c_get_req_id_csr(l_trx_id);
4302: FETCH c_get_req_id_csr INTO l_req_id,l_obj_ver;
4303: CLOSE c_get_req_id_csr;
4304:
4305: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4306: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.invoice_apply_ppd.',
4307: 'Request id :' || l_req_id);
4308: END IF;
4309:
4302: FETCH c_get_req_id_csr INTO l_req_id,l_obj_ver;
4303: CLOSE c_get_req_id_csr;
4304:
4305: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4306: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.invoice_apply_ppd.',
4307: 'Request id :' || l_req_id);
4308: END IF;
4309:
4310: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4307: 'Request id :' || l_req_id);
4308: END IF;
4309:
4310: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4311: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Req id is :' || l_req_id || ' - '|| l_obj_ver);
4312: END IF;
4313:
4314: --Update the Request to Rebook Complete.
4315: --Get the request details.
4318: l_trqv_rec.request_status_code := 'REBOOK_COMPLETE';
4319:
4320:
4321: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4322: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before updating Request ');
4323: END IF;
4324: okl_trx_requests_pub.update_trx_requests( p_api_version => p_api_version,
4325: p_init_msg_list => p_init_msg_list,
4326: x_return_status => x_return_status,
4329: p_trqv_rec => l_trqv_rec,
4330: x_trqv_rec => lx_trqv_rec);
4331:
4332: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4333: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After updating Request :' || x_return_status);
4334: END IF;
4335: /*
4336: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4337: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4341: */
4342:
4343:
4344:
4345: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4346: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.invoice_apply_ppd.',
4347: 'After updating the status of the request to REBOOK_COMPLETE');
4348: END IF;
4349:
4342:
4343:
4344:
4345: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4346: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.invoice_apply_ppd.',
4347: 'After updating the status of the request to REBOOK_COMPLETE');
4348: END IF;
4349:
4350: --Call the WF which does the following
4353: -- 3. Apply the selected receipt on the generated invoices.
4354: -- 4. Update the status of the request to Processed.
4355:
4356: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4357: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before calling WF');
4358: END IF;
4359: OKL_CS_WF.raise_principal_paydown_event(l_req_id);
4360:
4361: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4358: END IF;
4359: OKL_CS_WF.raise_principal_paydown_event(l_req_id);
4360:
4361: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4362: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After calling WF');
4363: END IF;
4364:
4365: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4366: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.invoice_apply_ppd.',
4361: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4362: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After calling WF');
4363: END IF;
4364:
4365: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4366: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.invoice_apply_ppd.',
4367: 'After invoking the Workflow for Principal Paydown ');
4368: END IF;
4369: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4362: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After calling WF');
4363: END IF;
4364:
4365: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4366: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.invoice_apply_ppd.',
4367: 'After invoking the Workflow for Principal Paydown ');
4368: END IF;
4369: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4370: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'The Transaction ' || p_trx_id || ' originated from PPD');
4366: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.invoice_apply_ppd.',
4367: 'After invoking the Workflow for Principal Paydown ');
4368: END IF;
4369: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4370: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'The Transaction ' || p_trx_id || ' originated from PPD');
4371: END IF;
4372:
4373: END IF;
4374: END IF;
4524:
4525:
4526: BEGIN
4527: IF (G_DEBUG_ENABLED = 'Y') THEN
4528: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
4529: END IF;
4530:
4531: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4532: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.create_cash_flow_object','Begin(+)');
4527: IF (G_DEBUG_ENABLED = 'Y') THEN
4528: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
4529: END IF;
4530:
4531: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4532: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.create_cash_flow_object','Begin(+)');
4533: END IF;
4534:
4535: --Print Input Variables
4528: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
4529: END IF;
4530:
4531: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4532: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.create_cash_flow_object','Begin(+)');
4533: END IF;
4534:
4535: --Print Input Variables
4536: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4532: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.create_cash_flow_object','Begin(+)');
4533: END IF;
4534:
4535: --Print Input Variables
4536: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4537: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.create_cash_flow_object.',
4538: 'p_obj_type_code :'||p_obj_type_code);
4539: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.create_cash_flow_object.',
4540: 'p_src_table :'||p_src_table);
4533: END IF;
4534:
4535: --Print Input Variables
4536: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4537: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.create_cash_flow_object.',
4538: 'p_obj_type_code :'||p_obj_type_code);
4539: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.create_cash_flow_object.',
4540: 'p_src_table :'||p_src_table);
4541: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.create_cash_flow_object.',
4535: --Print Input Variables
4536: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4537: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.create_cash_flow_object.',
4538: 'p_obj_type_code :'||p_obj_type_code);
4539: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.create_cash_flow_object.',
4540: 'p_src_table :'||p_src_table);
4541: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.create_cash_flow_object.',
4542: 'p_src_id :'||p_src_id);
4543: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.create_cash_flow_object.',
4537: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.create_cash_flow_object.',
4538: 'p_obj_type_code :'||p_obj_type_code);
4539: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.create_cash_flow_object.',
4540: 'p_src_table :'||p_src_table);
4541: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.create_cash_flow_object.',
4542: 'p_src_id :'||p_src_id);
4543: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.create_cash_flow_object.',
4544: 'p_base_src_id :'||p_base_src_id);
4545:
4539: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.create_cash_flow_object.',
4540: 'p_src_table :'||p_src_table);
4541: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.create_cash_flow_object.',
4542: 'p_src_id :'||p_src_id);
4543: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.create_cash_flow_object.',
4544: 'p_base_src_id :'||p_base_src_id);
4545:
4546: END IF;
4547:
4548:
4549:
4550: -- Check if Object already exists
4551: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4552: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Check for CFO');
4553: END IF;
4554: OPEN l_cash_flow_objects_csr(p_obj_type_code, p_src_table, p_src_id,p_base_src_id);
4555: FETCH l_cash_flow_objects_csr INTO l_cfo_id;
4556:
4568: p_cfov_rec => lp_cfov_rec,
4569: x_cfov_rec => lx_cfov_rec);
4570:
4571: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4572: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Created CFO');
4573: END IF;
4574: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4575: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4576: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4582:
4583: ELSE
4584:
4585: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4586: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'CFO already exists - ' || l_cfo_id);
4587: END IF;
4588: x_cfo_id := l_cfo_id;
4589:
4590: END IF;
4591:
4592: CLOSE l_cash_flow_objects_csr;
4593: x_return_status := l_return_status;
4594:
4595: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4596: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.create_cash_flow_object','end(-)');
4597: END IF;
4598: EXCEPTION
4599:
4592: CLOSE l_cash_flow_objects_csr;
4593: x_return_status := l_return_status;
4594:
4595: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4596: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.create_cash_flow_object','end(-)');
4597: END IF;
4598: EXCEPTION
4599:
4600: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4597: END IF;
4598: EXCEPTION
4599:
4600: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4601: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4602: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.create_cash_flow_object ',
4603: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
4604: END IF;
4605:
4598: EXCEPTION
4599:
4600: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4601: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4602: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.create_cash_flow_object ',
4603: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
4604: END IF;
4605:
4606: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
4610: x_msg_count,
4611: x_msg_data,
4612: '_PVT');
4613: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4614: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4615: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.create_cash_flow_object ',
4616: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
4617: END IF;
4618:
4611: x_msg_data,
4612: '_PVT');
4613: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4614: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4615: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.create_cash_flow_object ',
4616: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
4617: END IF;
4618:
4619: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4623: x_msg_count,
4624: x_msg_data,
4625: '_PVT');
4626: WHEN OTHERS THEN
4627: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4628: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.create_cash_flow_object ',
4629: 'EXCEPTION :'||sqlerrm);
4630: END IF;
4631:
4624: x_msg_data,
4625: '_PVT');
4626: WHEN OTHERS THEN
4627: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4628: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.create_cash_flow_object ',
4629: 'EXCEPTION :'||sqlerrm);
4630: END IF;
4631:
4632: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
4710: ---Bug#5100215 end --dkagrawa
4711:
4712: BEGIN
4713: IF (G_DEBUG_ENABLED = 'Y') THEN
4714: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
4715: END IF;
4716: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4717: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Entering store_esg_payments: ');
4718: END IF;
4713: IF (G_DEBUG_ENABLED = 'Y') THEN
4714: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
4715: END IF;
4716: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4717: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Entering store_esg_payments: ');
4718: END IF;
4719: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4720: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_esg_payments','Begin(+)');
4721: END IF;
4715: END IF;
4716: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4717: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Entering store_esg_payments: ');
4718: END IF;
4719: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4720: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_esg_payments','Begin(+)');
4721: END IF;
4722:
4723: --Print Input Variables
4716: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4717: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Entering store_esg_payments: ');
4718: END IF;
4719: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4720: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_esg_payments','Begin(+)');
4721: END IF;
4722:
4723: --Print Input Variables
4724: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4720: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_esg_payments','Begin(+)');
4721: END IF;
4722:
4723: --Print Input Variables
4724: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4725: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_esg_payments.',
4726: 'p_ppd_request_id :'||p_ppd_request_id);
4727: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_esg_payments.',
4728: 'p_ppd_khr_id :'||p_ppd_khr_id);
4721: END IF;
4722:
4723: --Print Input Variables
4724: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4725: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_esg_payments.',
4726: 'p_ppd_request_id :'||p_ppd_request_id);
4727: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_esg_payments.',
4728: 'p_ppd_khr_id :'||p_ppd_khr_id);
4729: END IF;
4723: --Print Input Variables
4724: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4725: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_esg_payments.',
4726: 'p_ppd_request_id :'||p_ppd_request_id);
4727: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_esg_payments.',
4728: 'p_ppd_khr_id :'||p_ppd_khr_id);
4729: END IF;
4730:
4731: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4747: RAISE OKL_API.G_EXCEPTION_ERROR;
4748: END IF;
4749:
4750: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4751: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'===== Begin Payments sent to the API before any modifications ====');
4752: END IF;
4753: PRINT_STM_PAYMENTS(l_payment_tbl);
4754: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4755: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'===== End Payments sent to the API before any modifications ====');
4751: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'===== Begin Payments sent to the API before any modifications ====');
4752: END IF;
4753: PRINT_STM_PAYMENTS(l_payment_tbl);
4754: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4755: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'===== End Payments sent to the API before any modifications ====');
4756: END IF;
4757:
4758: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4759: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' before reorganizing');
4755: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'===== End Payments sent to the API before any modifications ====');
4756: END IF;
4757:
4758: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4759: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' before reorganizing');
4760: END IF;
4761:
4762: -- added by rkuttiya for 11i OKL.H
4763: --reorganize the payments
4763: --reorganize the payments
4764: l_temp_tbl := re_organize_payment_tbl(l_payment_tbl);
4765:
4766: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4767: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'===== Begin Payments after reorganizing ====');
4768: END IF;
4769: PRINT_STM_PAYMENTS(l_temp_tbl);
4770:
4771:
4823: ,p_dependent_sty_purpose => G_UNSCHED_PP_STREAM
4824: ,x_return_status => x_return_status
4825: ,x_dependent_sty_id => l_upp_sty_id);
4826: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4827: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After get_depend_stream type: '|| x_return_status);
4828: END IF;
4829:
4830: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4831: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4842: p_contract_id => p_ppd_khr_id,
4843: p_line_id => NULL,
4844: x_value => l_total_k_cost);
4845: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4846: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After execute CONTRACT_CAP_AMNT: '|| l_total_k_cost || x_return_status);
4847: END IF;
4848: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4849: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4850: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
4933: -- p_payment_tbl(4).stub_days :=1
4934: -- p_payment_tbl(4).stub_amount :=3333.34
4935: --
4936: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4937: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'before updating ppd amounts');
4938: END IF;
4939:
4940: l_prev_kle_id := -99;
4941: knt := 1;
4962: p_line_id => l_kle_id,
4963: x_value => l_asset_cost);
4964:
4965: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4966: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After execute LINE_CAP_AMNT: '|| l_asset_cost);
4967: END IF;
4968: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
4969: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
4970: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
4978: l_ppd_for_asset := Okl_Accounting_Util.ROUND_AMOUNT(
4979: p_amount => l_raw_ppd_for_asset,
4980: p_currency_code => l_currency_code);
4981: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4982: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'PPD for Asset : '|| l_ppd_for_asset);
4983: END IF;
4984:
4985: knt := knt +1;
4986: l_store_payment_tbl(knt).KHR_ID := p_ppd_khr_id;
5018: p_ppd_khr_id => p_ppd_khr_id,
5019: p_payment_tbl => l_store_payment_tbl,
5020: x_cfo_id => lx_cfo_id);
5021: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5022: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Store stm payments in ESG Inbound:' || x_return_status
5023: || 'CFO Id: '|| lx_cfo_id);
5024: END IF;
5025: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5026: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5045: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
5046: RAISE OKL_API.G_EXCEPTION_ERROR;
5047: END IF;
5048:
5049: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5050: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_esg_payments'
5051: ,'End(-)');
5052: END IF;
5053:
5046: RAISE OKL_API.G_EXCEPTION_ERROR;
5047: END IF;
5048:
5049: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5050: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_esg_payments'
5051: ,'End(-)');
5052: END IF;
5053:
5054: EXCEPTION
5053:
5054: EXCEPTION
5055:
5056: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5057: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5058: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_esg_payments ',
5059: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
5060: END IF;
5061:
5054: EXCEPTION
5055:
5056: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5057: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5058: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_esg_payments ',
5059: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
5060: END IF;
5061:
5062: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5066: x_msg_count,
5067: x_msg_data,
5068: '_PVT');
5069: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5070: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5071: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_esg_payments ',
5072: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
5073: END IF;
5074:
5067: x_msg_data,
5068: '_PVT');
5069: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5070: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5071: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_esg_payments ',
5072: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
5073: END IF;
5074:
5075: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5079: x_msg_count,
5080: x_msg_data,
5081: '_PVT');
5082: WHEN OTHERS THEN
5083: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5084: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_esg_payments ',
5085: 'EXCEPTION :'||sqlerrm);
5086: END IF;
5087:
5080: x_msg_data,
5081: '_PVT');
5082: WHEN OTHERS THEN
5083: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5084: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_esg_payments ',
5085: 'EXCEPTION :'||sqlerrm);
5086: END IF;
5087:
5088: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5203: l_pricing_engine VARCHAR2(50);
5204: --dkagrawa bug#5443418 end
5205: BEGIN
5206: IF (G_DEBUG_ENABLED = 'Y') THEN
5207: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
5208: END IF;
5209:
5210: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5211: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_stm_payments','Begin(+)');
5206: IF (G_DEBUG_ENABLED = 'Y') THEN
5207: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
5208: END IF;
5209:
5210: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5211: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_stm_payments','Begin(+)');
5212: END IF;
5213:
5214: --Print Input Variables
5207: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
5208: END IF;
5209:
5210: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5211: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_stm_payments','Begin(+)');
5212: END IF;
5213:
5214: --Print Input Variables
5215: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5211: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_stm_payments','Begin(+)');
5212: END IF;
5213:
5214: --Print Input Variables
5215: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5216: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_stm_payments.',
5217: 'p_ppd_request_id :'||p_ppd_request_id);
5218: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_stm_payments.',
5219: 'p_ppd_khr_id :'||p_ppd_khr_id);
5212: END IF;
5213:
5214: --Print Input Variables
5215: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5216: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_stm_payments.',
5217: 'p_ppd_request_id :'||p_ppd_request_id);
5218: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_stm_payments.',
5219: 'p_ppd_khr_id :'||p_ppd_khr_id);
5220: END IF;
5214: --Print Input Variables
5215: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5216: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_stm_payments.',
5217: 'p_ppd_request_id :'||p_ppd_request_id);
5218: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_stm_payments.',
5219: 'p_ppd_khr_id :'||p_ppd_khr_id);
5220: END IF;
5221:
5222: --Get the currency code for the Contract
5265: RAISE OKL_API.G_EXCEPTION_ERROR;
5266: END IF;
5267:
5268: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5269: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Checking for QCO');
5270: END IF;
5271: --Check if this association exists.
5272: l_qco_id := NULL;
5273: OPEN l_qco_id_csr(p_ppd_request_id,l_cfo_id,p_payment_tbl(i).kle_id);
5281: lp_qcov_rec.qte_id := p_ppd_request_id;
5282: lp_qcov_rec.cfo_id := l_cfo_id;
5283: lp_qcov_rec.BASE_SOURCE_ID := p_payment_tbl(i).kle_id;
5284: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5285: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before Creating QCO');
5286: END IF;
5287:
5288: OKL_TRX_QTE_CF_OBJECTS_PUB.insert_quote_cf_object(p_api_version => p_api_version,
5289: p_init_msg_list => OKL_API.G_FALSE,
5292: x_msg_data => x_msg_data,
5293: p_qcov_rec => lp_qcov_rec,
5294: x_qcov_rec => lx_qcov_rec);
5295: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5296: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Creating QCO - Return Status: ' || l_return_status);
5297: END IF;
5298:
5299: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5300: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5303: END IF;
5304:
5305: ELSE
5306: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5307: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'QCO ID :' || l_qco_id);
5308: END IF;
5309: END IF;
5310: --Create the Cash flows for this Object.
5311:
5311:
5312: l_sty_id := p_payment_tbl(i).sty_id;
5313: l_kle_id := p_payment_tbl(i).kle_id; --Bug#5046204
5314: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5315: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Sty ID in store_stm_payment: - ' ||i || ' -'|| l_sty_id);
5316: END IF;
5317:
5318:
5319: --This will be a CASH Flow
5328: OPEN l_caf_id_csr(p_ppd_request_id,l_cfo_id,l_sty_id);
5329: FETCH l_caf_id_csr INTO l_caf_id;
5330: CLOSE l_caf_id_csr;
5331: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5332: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Check for CAF ID: - ' || l_caf_id);
5333: END IF;
5334:
5335: IF l_caf_id is NULL THEN
5336: lp_cafv_rec := NULL;
5353: p_cafv_rec => lp_cafv_rec,
5354: x_cafv_rec => lx_cafv_rec);
5355:
5356: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5357: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Creating CAF - Return Status: ' || l_return_status);
5358: END IF;
5359: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5360: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5361: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5384: p_cafv_rec => lp_cafv_rec,
5385: x_cafv_rec => lx_cafv_rec);
5386:
5387: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5388: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Updating CAF - Return Status: ' || l_return_status);
5389: END IF;
5390: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5391: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5392: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5421: FETCH l_cfl_id_csr INTO l_cfl_id;
5422: CLOSE l_cfl_id_csr;
5423: END IF;
5424: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5425: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Check for CFL ID: - ' || l_cfl_id);
5426: END IF;
5427:
5428: IF l_cfl_id IS NULL THEN
5429: lp_cflv_rec := NULL;
5451: END IF;
5452: lp_cflv_rec.start_date := p_payment_tbl(i).start_date;
5453:
5454: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5455: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before Creating CFL');
5456: END IF;
5457: OKL_CASH_FLOW_LEVELS_PUB.insert_cash_flow_level(
5458: p_api_version => p_api_version,
5459: p_init_msg_list => OKL_API.G_FALSE,
5462: x_msg_data => x_msg_data,
5463: p_cflv_rec => lp_cflv_rec,
5464: x_cflv_rec => lx_cflv_rec);
5465: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5466: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Creating CFL - Return Status: ' || l_return_status);
5467: END IF;
5468:
5469: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5470: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5505: END IF;
5506: --dkagrawa bug#5443418 end
5507: lp_cflv_rec.id := l_cfl_id;
5508: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5509: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before Updating CFL');
5510: END IF;
5511: OKL_CASH_FLOW_LEVELS_PUB.update_cash_flow_level(
5512: p_api_version => p_api_version,
5513: p_init_msg_list => OKL_API.G_FALSE,
5516: x_msg_data => x_msg_data,
5517: p_cflv_rec => lp_cflv_rec,
5518: x_cflv_rec => lx_cflv_rec);
5519: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5520: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Updating CFL - Return Status: ' || l_return_status);
5521: END IF;
5522:
5523: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5524: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5533: i := p_payment_tbl.NEXT(i);
5534: END LOOP;
5535: END IF;
5536: x_cfo_id := l_cfo_id;
5537: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5538: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_stm_payments'
5539: ,'End(-)');
5540: END IF;
5541:
5534: END LOOP;
5535: END IF;
5536: x_cfo_id := l_cfo_id;
5537: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5538: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_stm_payments'
5539: ,'End(-)');
5540: END IF;
5541:
5542: EXCEPTION
5541:
5542: EXCEPTION
5543:
5544: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5545: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5546: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_stm_payments ',
5547: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
5548: END IF;
5549:
5542: EXCEPTION
5543:
5544: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5545: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5546: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_stm_payments ',
5547: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
5548: END IF;
5549:
5550: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
5554: x_msg_count,
5555: x_msg_data,
5556: '_PVT');
5557: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5558: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5559: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_stm_payments ',
5560: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
5561: END IF;
5562:
5555: x_msg_data,
5556: '_PVT');
5557: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5558: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5559: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_stm_payments ',
5560: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
5561: END IF;
5562:
5563: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5567: x_msg_count,
5568: x_msg_data,
5569: '_PVT');
5570: WHEN OTHERS THEN
5571: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5572: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_stm_payments ',
5573: 'EXCEPTION :'||sqlerrm);
5574: END IF;
5575:
5568: x_msg_data,
5569: '_PVT');
5570: WHEN OTHERS THEN
5571: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5572: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_stm_payments ',
5573: 'EXCEPTION :'||sqlerrm);
5574: END IF;
5575:
5576: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
5673:
5674:
5675: BEGIN
5676: IF (G_DEBUG_ENABLED = 'Y') THEN
5677: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
5678: END IF;
5679:
5680: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5681: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments','Begin(+)');
5676: IF (G_DEBUG_ENABLED = 'Y') THEN
5677: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
5678: END IF;
5679:
5680: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5681: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments','Begin(+)');
5682: END IF;
5683:
5684: --Print Input Variables
5677: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
5678: END IF;
5679:
5680: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5681: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments','Begin(+)');
5682: END IF;
5683:
5684: --Print Input Variables
5685: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5681: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments','Begin(+)');
5682: END IF;
5683:
5684: --Print Input Variables
5685: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5686: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5687: 'p_ppd_request_id :'||p_ppd_request_id);
5688: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5689: 'p_ppd_khr_id :'||p_ppd_khr_id);
5682: END IF;
5683:
5684: --Print Input Variables
5685: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5686: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5687: 'p_ppd_request_id :'||p_ppd_request_id);
5688: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5689: 'p_ppd_khr_id :'||p_ppd_khr_id);
5690: FOR i in p_payment_structure.FIRST..p_payment_structure.LAST LOOP
5684: --Print Input Variables
5685: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5686: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5687: 'p_ppd_request_id :'||p_ppd_request_id);
5688: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5689: 'p_ppd_khr_id :'||p_ppd_khr_id);
5690: FOR i in p_payment_structure.FIRST..p_payment_structure.LAST LOOP
5691: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5692: 'p_payment_structure.Chr_Id :'||p_payment_structure(i).Chr_Id);
5687: 'p_ppd_request_id :'||p_ppd_request_id);
5688: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5689: 'p_ppd_khr_id :'||p_ppd_khr_id);
5690: FOR i in p_payment_structure.FIRST..p_payment_structure.LAST LOOP
5691: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5692: 'p_payment_structure.Chr_Id :'||p_payment_structure(i).Chr_Id);
5693: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5694: 'p_payment_structure.Cle_id :'||p_payment_structure(i).Cle_Id);
5695: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5689: 'p_ppd_khr_id :'||p_ppd_khr_id);
5690: FOR i in p_payment_structure.FIRST..p_payment_structure.LAST LOOP
5691: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5692: 'p_payment_structure.Chr_Id :'||p_payment_structure(i).Chr_Id);
5693: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5694: 'p_payment_structure.Cle_id :'||p_payment_structure(i).Cle_Id);
5695: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5696: 'p_payment_structure.Rule_Information1 :'||p_payment_structure(i).Rule_Information1);
5697: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5691: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5692: 'p_payment_structure.Chr_Id :'||p_payment_structure(i).Chr_Id);
5693: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5694: 'p_payment_structure.Cle_id :'||p_payment_structure(i).Cle_Id);
5695: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5696: 'p_payment_structure.Rule_Information1 :'||p_payment_structure(i).Rule_Information1);
5697: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5698: 'p_payment_structure.Rule_Information2 :'||p_payment_structure(i).Rule_Information2);
5699: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5693: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5694: 'p_payment_structure.Cle_id :'||p_payment_structure(i).Cle_Id);
5695: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5696: 'p_payment_structure.Rule_Information1 :'||p_payment_structure(i).Rule_Information1);
5697: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5698: 'p_payment_structure.Rule_Information2 :'||p_payment_structure(i).Rule_Information2);
5699: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5700: 'p_payment_structure.Rule_Information3 :'||p_payment_structure(i).Rule_Information3);
5701: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5695: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5696: 'p_payment_structure.Rule_Information1 :'||p_payment_structure(i).Rule_Information1);
5697: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5698: 'p_payment_structure.Rule_Information2 :'||p_payment_structure(i).Rule_Information2);
5699: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5700: 'p_payment_structure.Rule_Information3 :'||p_payment_structure(i).Rule_Information3);
5701: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5702: 'p_payment_structure.Rule_Information4 :'||p_payment_structure(i).Rule_Information4);
5703: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5697: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5698: 'p_payment_structure.Rule_Information2 :'||p_payment_structure(i).Rule_Information2);
5699: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5700: 'p_payment_structure.Rule_Information3 :'||p_payment_structure(i).Rule_Information3);
5701: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5702: 'p_payment_structure.Rule_Information4 :'||p_payment_structure(i).Rule_Information4);
5703: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5704: 'p_payment_structure.Rule_Information5 :'||p_payment_structure(i).Rule_Information5);
5705: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5699: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5700: 'p_payment_structure.Rule_Information3 :'||p_payment_structure(i).Rule_Information3);
5701: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5702: 'p_payment_structure.Rule_Information4 :'||p_payment_structure(i).Rule_Information4);
5703: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5704: 'p_payment_structure.Rule_Information5 :'||p_payment_structure(i).Rule_Information5);
5705: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5706: 'p_payment_structure.Rule_Information6 :'||p_payment_structure(i).Rule_Information6);
5707: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5701: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5702: 'p_payment_structure.Rule_Information4 :'||p_payment_structure(i).Rule_Information4);
5703: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5704: 'p_payment_structure.Rule_Information5 :'||p_payment_structure(i).Rule_Information5);
5705: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5706: 'p_payment_structure.Rule_Information6 :'||p_payment_structure(i).Rule_Information6);
5707: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5708: 'p_payment_structure.Rule_Information7 :'||p_payment_structure(i).Rule_Information7);
5709: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5703: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5704: 'p_payment_structure.Rule_Information5 :'||p_payment_structure(i).Rule_Information5);
5705: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5706: 'p_payment_structure.Rule_Information6 :'||p_payment_structure(i).Rule_Information6);
5707: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5708: 'p_payment_structure.Rule_Information7 :'||p_payment_structure(i).Rule_Information7);
5709: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5710: 'p_payment_structure.Rule_Information8 :'||p_payment_structure(i).Rule_Information8);
5711: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5705: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5706: 'p_payment_structure.Rule_Information6 :'||p_payment_structure(i).Rule_Information6);
5707: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5708: 'p_payment_structure.Rule_Information7 :'||p_payment_structure(i).Rule_Information7);
5709: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5710: 'p_payment_structure.Rule_Information8 :'||p_payment_structure(i).Rule_Information8);
5711: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5712: 'p_payment_structure.Rule_Information9 :'||p_payment_structure(i).Rule_Information9);
5713: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5707: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5708: 'p_payment_structure.Rule_Information7 :'||p_payment_structure(i).Rule_Information7);
5709: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5710: 'p_payment_structure.Rule_Information8 :'||p_payment_structure(i).Rule_Information8);
5711: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5712: 'p_payment_structure.Rule_Information9 :'||p_payment_structure(i).Rule_Information9);
5713: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5714: 'p_payment_structure.Rule_Information10 :'||p_payment_structure(i).Rule_Information10);
5715: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5709: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5710: 'p_payment_structure.Rule_Information8 :'||p_payment_structure(i).Rule_Information8);
5711: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5712: 'p_payment_structure.Rule_Information9 :'||p_payment_structure(i).Rule_Information9);
5713: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5714: 'p_payment_structure.Rule_Information10 :'||p_payment_structure(i).Rule_Information10);
5715: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5716: 'p_payment_structure.Rule_Information11 :'||p_payment_structure(i).Rule_Information11);
5717: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5711: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5712: 'p_payment_structure.Rule_Information9 :'||p_payment_structure(i).Rule_Information9);
5713: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5714: 'p_payment_structure.Rule_Information10 :'||p_payment_structure(i).Rule_Information10);
5715: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5716: 'p_payment_structure.Rule_Information11 :'||p_payment_structure(i).Rule_Information11);
5717: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5718: 'p_payment_structure.Rule_Information12 :'||p_payment_structure(i).Rule_Information12);
5719: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5713: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5714: 'p_payment_structure.Rule_Information10 :'||p_payment_structure(i).Rule_Information10);
5715: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5716: 'p_payment_structure.Rule_Information11 :'||p_payment_structure(i).Rule_Information11);
5717: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5718: 'p_payment_structure.Rule_Information12 :'||p_payment_structure(i).Rule_Information12);
5719: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5720: 'p_payment_structure.Rule_Information13 :'||p_payment_structure(i).Rule_Information13);
5721: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5715: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5716: 'p_payment_structure.Rule_Information11 :'||p_payment_structure(i).Rule_Information11);
5717: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5718: 'p_payment_structure.Rule_Information12 :'||p_payment_structure(i).Rule_Information12);
5719: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5720: 'p_payment_structure.Rule_Information13 :'||p_payment_structure(i).Rule_Information13);
5721: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5722: 'p_payment_structure.Rule_Information14 :'||p_payment_structure(i).Rule_Information14);
5723: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5717: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5718: 'p_payment_structure.Rule_Information12 :'||p_payment_structure(i).Rule_Information12);
5719: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5720: 'p_payment_structure.Rule_Information13 :'||p_payment_structure(i).Rule_Information13);
5721: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5722: 'p_payment_structure.Rule_Information14 :'||p_payment_structure(i).Rule_Information14);
5723: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5724: 'p_payment_structure.Rule_Information15 :'||p_payment_structure(i).Rule_Information15);
5725: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5719: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5720: 'p_payment_structure.Rule_Information13 :'||p_payment_structure(i).Rule_Information13);
5721: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5722: 'p_payment_structure.Rule_Information14 :'||p_payment_structure(i).Rule_Information14);
5723: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5724: 'p_payment_structure.Rule_Information15 :'||p_payment_structure(i).Rule_Information15);
5725: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5726: 'p_payment_structure.Rule_Information_Category :'||p_payment_structure(i).Rule_Information_Category);
5727:
5721: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5722: 'p_payment_structure.Rule_Information14 :'||p_payment_structure(i).Rule_Information14);
5723: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5724: 'p_payment_structure.Rule_Information15 :'||p_payment_structure(i).Rule_Information15);
5725: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5726: 'p_payment_structure.Rule_Information_Category :'||p_payment_structure(i).Rule_Information_Category);
5727:
5728: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5729: 'p_payment_structure.Object1_Id1 :'||p_payment_structure(i).Object1_Id1);
5724: 'p_payment_structure.Rule_Information15 :'||p_payment_structure(i).Rule_Information15);
5725: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5726: 'p_payment_structure.Rule_Information_Category :'||p_payment_structure(i).Rule_Information_Category);
5727:
5728: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5729: 'p_payment_structure.Object1_Id1 :'||p_payment_structure(i).Object1_Id1);
5730: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5731: 'p_payment_structure.Object1_Id2 :'||p_payment_structure(i).Object1_Id2);
5732: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5726: 'p_payment_structure.Rule_Information_Category :'||p_payment_structure(i).Rule_Information_Category);
5727:
5728: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5729: 'p_payment_structure.Object1_Id1 :'||p_payment_structure(i).Object1_Id1);
5730: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5731: 'p_payment_structure.Object1_Id2 :'||p_payment_structure(i).Object1_Id2);
5732: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5733: 'p_payment_structure.Object2_Id1 :'||p_payment_structure(i).Object2_Id1);
5734: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5728: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5729: 'p_payment_structure.Object1_Id1 :'||p_payment_structure(i).Object1_Id1);
5730: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5731: 'p_payment_structure.Object1_Id2 :'||p_payment_structure(i).Object1_Id2);
5732: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5733: 'p_payment_structure.Object2_Id1 :'||p_payment_structure(i).Object2_Id1);
5734: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5735: 'p_payment_structure.Object2_Id2 :'||p_payment_structure(i).Object2_Id2);
5736: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5730: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5731: 'p_payment_structure.Object1_Id2 :'||p_payment_structure(i).Object1_Id2);
5732: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5733: 'p_payment_structure.Object2_Id1 :'||p_payment_structure(i).Object2_Id1);
5734: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5735: 'p_payment_structure.Object2_Id2 :'||p_payment_structure(i).Object2_Id2);
5736: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5737: 'p_payment_structure.Object3_Id1 :'||p_payment_structure(i).Object3_Id1);
5738: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5732: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5733: 'p_payment_structure.Object2_Id1 :'||p_payment_structure(i).Object2_Id1);
5734: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5735: 'p_payment_structure.Object2_Id2 :'||p_payment_structure(i).Object2_Id2);
5736: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5737: 'p_payment_structure.Object3_Id1 :'||p_payment_structure(i).Object3_Id1);
5738: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5739: 'p_payment_structure.Object3_Id2 :'||p_payment_structure(i).Object3_Id2);
5740:
5734: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5735: 'p_payment_structure.Object2_Id2 :'||p_payment_structure(i).Object2_Id2);
5736: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5737: 'p_payment_structure.Object3_Id1 :'||p_payment_structure(i).Object3_Id1);
5738: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5739: 'p_payment_structure.Object3_Id2 :'||p_payment_structure(i).Object3_Id2);
5740:
5741: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5742: 'p_payment_structure.Jtot_Object1_Code :'||p_payment_structure(i).Jtot_Object1_Code);
5737: 'p_payment_structure.Object3_Id1 :'||p_payment_structure(i).Object3_Id1);
5738: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5739: 'p_payment_structure.Object3_Id2 :'||p_payment_structure(i).Object3_Id2);
5740:
5741: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5742: 'p_payment_structure.Jtot_Object1_Code :'||p_payment_structure(i).Jtot_Object1_Code);
5743:
5744: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5745: 'p_payment_structure.Jtot_Object2_Code :'||p_payment_structure(i).Jtot_Object2_Code);
5740:
5741: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5742: 'p_payment_structure.Jtot_Object1_Code :'||p_payment_structure(i).Jtot_Object1_Code);
5743:
5744: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5745: 'p_payment_structure.Jtot_Object2_Code :'||p_payment_structure(i).Jtot_Object2_Code);
5746:
5747: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5748: 'p_payment_structure.Jtot_Object3_Code :'||p_payment_structure(i).Jtot_Object3_Code);
5743:
5744: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5745: 'p_payment_structure.Jtot_Object2_Code :'||p_payment_structure(i).Jtot_Object2_Code);
5746:
5747: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5748: 'p_payment_structure.Jtot_Object3_Code :'||p_payment_structure(i).Jtot_Object3_Code);
5749: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5750: 'End of record:' ||i);
5751: END LOOP;
5745: 'p_payment_structure.Jtot_Object2_Code :'||p_payment_structure(i).Jtot_Object2_Code);
5746:
5747: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5748: 'p_payment_structure.Jtot_Object3_Code :'||p_payment_structure(i).Jtot_Object3_Code);
5749: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
5750: 'End of record:' ||i);
5751: END LOOP;
5752: END IF;
5753:
5751: END LOOP;
5752: END IF;
5753:
5754: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5755: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Printing Variables in store_payments');
5756: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'====================================');
5757: END IF;
5758: print_messages(p_payment_structure);
5759:
5752: END IF;
5753:
5754: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5755: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Printing Variables in store_payments');
5756: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'====================================');
5757: END IF;
5758: print_messages(p_payment_structure);
5759:
5760: --Get the currency code for the Contract
5780: RAISE OKL_API.G_EXCEPTION_ERROR;
5781: END IF;
5782:
5783: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5784: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before Creating CFO');
5785: END IF;
5786: l_prev_sty_id := 0;
5787: l_prev_cle_id := 0;
5788:
5806: RAISE OKL_API.G_EXCEPTION_ERROR;
5807: END IF;
5808:
5809: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5810: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Checking for QCO');
5811: END IF;
5812: --Check if this association exists.
5813: l_qco_id := NULL;
5814: OPEN l_qco_id_csr(p_ppd_request_id,l_cfo_id,p_payment_structure(i).cle_id);
5822: lp_qcov_rec.qte_id := p_ppd_request_id;
5823: lp_qcov_rec.cfo_id := l_cfo_id;
5824: lp_qcov_rec.BASE_SOURCE_ID := p_payment_structure(i).cle_id;
5825: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5826: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before Creating QCO');
5827: END IF;
5828:
5829: OKL_TRX_QTE_CF_OBJECTS_PUB.insert_quote_cf_object(p_api_version => p_api_version,
5830: p_init_msg_list => OKL_API.G_FALSE,
5834: p_qcov_rec => lp_qcov_rec,
5835: x_qcov_rec => lx_qcov_rec);
5836:
5837: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5838: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Creating QCO - Return Status: ' || l_return_status);
5839: END IF;
5840:
5841: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5842: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5877: lp_cafv_rec.dnz_qte_id := p_ppd_request_id;
5878:
5879:
5880: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5881: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before Creating CAF');
5882: END IF;
5883:
5884: --Call the API to create the Cash Flow.
5885: okl_cash_flows_pub.insert_cash_flow(
5891: p_cafv_rec => lp_cafv_rec,
5892: x_cafv_rec => lx_cafv_rec);
5893:
5894: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5895: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Creating CAF - Return Status: ' || l_return_status);
5896: END IF;
5897: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5898: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5899: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5923: p_cafv_rec => lp_cafv_rec,
5924: x_cafv_rec => lx_cafv_rec);
5925:
5926: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5927: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Updating CAF - Return Status: ' || l_return_status);
5928: END IF;
5929: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5930: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5931: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5967: p_payment_structure(i).rule_information2);
5968:
5969:
5970: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5971: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before Creating CFL');
5972: END IF;
5973: OKL_CASH_FLOW_LEVELS_PUB.insert_cash_flow_level(
5974: p_api_version => p_api_version,
5975: p_init_msg_list => OKL_API.G_FALSE,
5978: x_msg_data => x_msg_data,
5979: p_cflv_rec => lp_cflv_rec,
5980: x_cflv_rec => lx_cflv_rec);
5981: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5982: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Creating CFL - Return Status: ' || l_return_status);
5983: END IF;
5984:
5985: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5986: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6013:
6014:
6015: lp_cflv_rec.id := l_cfl_id;
6016: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6017: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before Updating CFL');
6018: END IF;
6019: OKL_CASH_FLOW_LEVELS_PUB.update_cash_flow_level(
6020: p_api_version => p_api_version,
6021: p_init_msg_list => OKL_API.G_FALSE,
6024: x_msg_data => x_msg_data,
6025: p_cflv_rec => lp_cflv_rec,
6026: x_cflv_rec => lx_cflv_rec);
6027: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6028: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Updating CFL - Return Status: ' || l_return_status);
6029: END IF;
6030:
6031: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6032: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6046: x_cfo_id := l_cfo_id;
6047: EXCEPTION
6048:
6049: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6050: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6051: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments ',
6052: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
6053: END IF;
6054:
6047: EXCEPTION
6048:
6049: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6050: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6051: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments ',
6052: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
6053: END IF;
6054:
6055: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6059: x_msg_count,
6060: x_msg_data,
6061: '_PVT');
6062: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6063: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6064: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments ',
6065: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
6066: END IF;
6067:
6060: x_msg_data,
6061: '_PVT');
6062: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6063: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6064: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments ',
6065: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
6066: END IF;
6067:
6068: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6072: x_msg_count,
6073: x_msg_data,
6074: '_PVT');
6075: WHEN OTHERS THEN
6076: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6077: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments ',
6078: 'EXCEPTION :'||sqlerrm);
6079: END IF;
6080:
6073: x_msg_data,
6074: '_PVT');
6075: WHEN OTHERS THEN
6076: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6077: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments ',
6078: 'EXCEPTION :'||sqlerrm);
6079: END IF;
6080:
6081: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6142:
6143:
6144: BEGIN
6145: IF (G_DEBUG_ENABLED = 'Y') THEN
6146: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
6147: END IF;
6148:
6149: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6150: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments','Begin(+)');
6145: IF (G_DEBUG_ENABLED = 'Y') THEN
6146: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
6147: END IF;
6148:
6149: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6150: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments','Begin(+)');
6151: END IF;
6152:
6153: --Print Input Variables
6146: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
6147: END IF;
6148:
6149: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6150: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments','Begin(+)');
6151: END IF;
6152:
6153: --Print Input Variables
6154: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6150: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments','Begin(+)');
6151: END IF;
6152:
6153: --Print Input Variables
6154: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6155: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6156: 'p_ppd_request_id :'||p_ppd_request_id);
6157: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6158: 'p_ppd_khr_id :'||p_ppd_khr_id);
6151: END IF;
6152:
6153: --Print Input Variables
6154: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6155: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6156: 'p_ppd_request_id :'||p_ppd_request_id);
6157: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6158: 'p_ppd_khr_id :'||p_ppd_khr_id);
6159: FOR i in p_payment_structure.FIRST..p_payment_structure.LAST LOOP
6153: --Print Input Variables
6154: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6155: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6156: 'p_ppd_request_id :'||p_ppd_request_id);
6157: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6158: 'p_ppd_khr_id :'||p_ppd_khr_id);
6159: FOR i in p_payment_structure.FIRST..p_payment_structure.LAST LOOP
6160: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6161: 'p_payment_structure.Chr_Id :'||p_payment_structure(i).Chr_Id);
6156: 'p_ppd_request_id :'||p_ppd_request_id);
6157: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6158: 'p_ppd_khr_id :'||p_ppd_khr_id);
6159: FOR i in p_payment_structure.FIRST..p_payment_structure.LAST LOOP
6160: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6161: 'p_payment_structure.Chr_Id :'||p_payment_structure(i).Chr_Id);
6162: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6163: 'p_payment_structure.Cle_id :'||p_payment_structure(i).Cle_Id);
6164: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6158: 'p_ppd_khr_id :'||p_ppd_khr_id);
6159: FOR i in p_payment_structure.FIRST..p_payment_structure.LAST LOOP
6160: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6161: 'p_payment_structure.Chr_Id :'||p_payment_structure(i).Chr_Id);
6162: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6163: 'p_payment_structure.Cle_id :'||p_payment_structure(i).Cle_Id);
6164: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6165: 'p_payment_structure.Rule_Information1 :'||p_payment_structure(i).Rule_Information1);
6166: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6160: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6161: 'p_payment_structure.Chr_Id :'||p_payment_structure(i).Chr_Id);
6162: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6163: 'p_payment_structure.Cle_id :'||p_payment_structure(i).Cle_Id);
6164: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6165: 'p_payment_structure.Rule_Information1 :'||p_payment_structure(i).Rule_Information1);
6166: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6167: 'p_payment_structure.Rule_Information2 :'||p_payment_structure(i).Rule_Information2);
6168: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6162: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6163: 'p_payment_structure.Cle_id :'||p_payment_structure(i).Cle_Id);
6164: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6165: 'p_payment_structure.Rule_Information1 :'||p_payment_structure(i).Rule_Information1);
6166: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6167: 'p_payment_structure.Rule_Information2 :'||p_payment_structure(i).Rule_Information2);
6168: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6169: 'p_payment_structure.Rule_Information3 :'||p_payment_structure(i).Rule_Information3);
6170: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6164: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6165: 'p_payment_structure.Rule_Information1 :'||p_payment_structure(i).Rule_Information1);
6166: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6167: 'p_payment_structure.Rule_Information2 :'||p_payment_structure(i).Rule_Information2);
6168: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6169: 'p_payment_structure.Rule_Information3 :'||p_payment_structure(i).Rule_Information3);
6170: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6171: 'p_payment_structure.Rule_Information4 :'||p_payment_structure(i).Rule_Information4);
6172: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6166: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6167: 'p_payment_structure.Rule_Information2 :'||p_payment_structure(i).Rule_Information2);
6168: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6169: 'p_payment_structure.Rule_Information3 :'||p_payment_structure(i).Rule_Information3);
6170: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6171: 'p_payment_structure.Rule_Information4 :'||p_payment_structure(i).Rule_Information4);
6172: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6173: 'p_payment_structure.Rule_Information5 :'||p_payment_structure(i).Rule_Information5);
6174: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6168: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6169: 'p_payment_structure.Rule_Information3 :'||p_payment_structure(i).Rule_Information3);
6170: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6171: 'p_payment_structure.Rule_Information4 :'||p_payment_structure(i).Rule_Information4);
6172: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6173: 'p_payment_structure.Rule_Information5 :'||p_payment_structure(i).Rule_Information5);
6174: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6175: 'p_payment_structure.Rule_Information6 :'||p_payment_structure(i).Rule_Information6);
6176: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6170: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6171: 'p_payment_structure.Rule_Information4 :'||p_payment_structure(i).Rule_Information4);
6172: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6173: 'p_payment_structure.Rule_Information5 :'||p_payment_structure(i).Rule_Information5);
6174: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6175: 'p_payment_structure.Rule_Information6 :'||p_payment_structure(i).Rule_Information6);
6176: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6177: 'p_payment_structure.Rule_Information7 :'||p_payment_structure(i).Rule_Information7);
6178: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6172: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6173: 'p_payment_structure.Rule_Information5 :'||p_payment_structure(i).Rule_Information5);
6174: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6175: 'p_payment_structure.Rule_Information6 :'||p_payment_structure(i).Rule_Information6);
6176: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6177: 'p_payment_structure.Rule_Information7 :'||p_payment_structure(i).Rule_Information7);
6178: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6179: 'p_payment_structure.Rule_Information8 :'||p_payment_structure(i).Rule_Information8);
6180: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6174: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6175: 'p_payment_structure.Rule_Information6 :'||p_payment_structure(i).Rule_Information6);
6176: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6177: 'p_payment_structure.Rule_Information7 :'||p_payment_structure(i).Rule_Information7);
6178: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6179: 'p_payment_structure.Rule_Information8 :'||p_payment_structure(i).Rule_Information8);
6180: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6181: 'p_payment_structure.Rule_Information9 :'||p_payment_structure(i).Rule_Information9);
6182: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6176: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6177: 'p_payment_structure.Rule_Information7 :'||p_payment_structure(i).Rule_Information7);
6178: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6179: 'p_payment_structure.Rule_Information8 :'||p_payment_structure(i).Rule_Information8);
6180: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6181: 'p_payment_structure.Rule_Information9 :'||p_payment_structure(i).Rule_Information9);
6182: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6183: 'p_payment_structure.Rule_Information10 :'||p_payment_structure(i).Rule_Information10);
6184: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6178: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6179: 'p_payment_structure.Rule_Information8 :'||p_payment_structure(i).Rule_Information8);
6180: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6181: 'p_payment_structure.Rule_Information9 :'||p_payment_structure(i).Rule_Information9);
6182: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6183: 'p_payment_structure.Rule_Information10 :'||p_payment_structure(i).Rule_Information10);
6184: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6185: 'p_payment_structure.Rule_Information11 :'||p_payment_structure(i).Rule_Information11);
6186: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6180: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6181: 'p_payment_structure.Rule_Information9 :'||p_payment_structure(i).Rule_Information9);
6182: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6183: 'p_payment_structure.Rule_Information10 :'||p_payment_structure(i).Rule_Information10);
6184: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6185: 'p_payment_structure.Rule_Information11 :'||p_payment_structure(i).Rule_Information11);
6186: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6187: 'p_payment_structure.Rule_Information12 :'||p_payment_structure(i).Rule_Information12);
6188: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6182: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6183: 'p_payment_structure.Rule_Information10 :'||p_payment_structure(i).Rule_Information10);
6184: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6185: 'p_payment_structure.Rule_Information11 :'||p_payment_structure(i).Rule_Information11);
6186: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6187: 'p_payment_structure.Rule_Information12 :'||p_payment_structure(i).Rule_Information12);
6188: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6189: 'p_payment_structure.Rule_Information13 :'||p_payment_structure(i).Rule_Information13);
6190: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6184: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6185: 'p_payment_structure.Rule_Information11 :'||p_payment_structure(i).Rule_Information11);
6186: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6187: 'p_payment_structure.Rule_Information12 :'||p_payment_structure(i).Rule_Information12);
6188: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6189: 'p_payment_structure.Rule_Information13 :'||p_payment_structure(i).Rule_Information13);
6190: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6191: 'p_payment_structure.Rule_Information14 :'||p_payment_structure(i).Rule_Information14);
6192: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6186: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6187: 'p_payment_structure.Rule_Information12 :'||p_payment_structure(i).Rule_Information12);
6188: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6189: 'p_payment_structure.Rule_Information13 :'||p_payment_structure(i).Rule_Information13);
6190: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6191: 'p_payment_structure.Rule_Information14 :'||p_payment_structure(i).Rule_Information14);
6192: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6193: 'p_payment_structure.Rule_Information15 :'||p_payment_structure(i).Rule_Information15);
6194: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6188: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6189: 'p_payment_structure.Rule_Information13 :'||p_payment_structure(i).Rule_Information13);
6190: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6191: 'p_payment_structure.Rule_Information14 :'||p_payment_structure(i).Rule_Information14);
6192: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6193: 'p_payment_structure.Rule_Information15 :'||p_payment_structure(i).Rule_Information15);
6194: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6195: 'p_payment_structure.Rule_Information_Category :'||p_payment_structure(i).Rule_Information_Category);
6196:
6190: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6191: 'p_payment_structure.Rule_Information14 :'||p_payment_structure(i).Rule_Information14);
6192: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6193: 'p_payment_structure.Rule_Information15 :'||p_payment_structure(i).Rule_Information15);
6194: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6195: 'p_payment_structure.Rule_Information_Category :'||p_payment_structure(i).Rule_Information_Category);
6196:
6197: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6198: 'p_payment_structure.Object1_Id1 :'||p_payment_structure(i).Object1_Id1);
6193: 'p_payment_structure.Rule_Information15 :'||p_payment_structure(i).Rule_Information15);
6194: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6195: 'p_payment_structure.Rule_Information_Category :'||p_payment_structure(i).Rule_Information_Category);
6196:
6197: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6198: 'p_payment_structure.Object1_Id1 :'||p_payment_structure(i).Object1_Id1);
6199: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6200: 'p_payment_structure.Object1_Id2 :'||p_payment_structure(i).Object1_Id2);
6201: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6195: 'p_payment_structure.Rule_Information_Category :'||p_payment_structure(i).Rule_Information_Category);
6196:
6197: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6198: 'p_payment_structure.Object1_Id1 :'||p_payment_structure(i).Object1_Id1);
6199: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6200: 'p_payment_structure.Object1_Id2 :'||p_payment_structure(i).Object1_Id2);
6201: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6202: 'p_payment_structure.Object2_Id1 :'||p_payment_structure(i).Object2_Id1);
6203: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6197: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6198: 'p_payment_structure.Object1_Id1 :'||p_payment_structure(i).Object1_Id1);
6199: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6200: 'p_payment_structure.Object1_Id2 :'||p_payment_structure(i).Object1_Id2);
6201: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6202: 'p_payment_structure.Object2_Id1 :'||p_payment_structure(i).Object2_Id1);
6203: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6204: 'p_payment_structure.Object2_Id2 :'||p_payment_structure(i).Object2_Id2);
6205: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6199: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6200: 'p_payment_structure.Object1_Id2 :'||p_payment_structure(i).Object1_Id2);
6201: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6202: 'p_payment_structure.Object2_Id1 :'||p_payment_structure(i).Object2_Id1);
6203: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6204: 'p_payment_structure.Object2_Id2 :'||p_payment_structure(i).Object2_Id2);
6205: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6206: 'p_payment_structure.Object3_Id1 :'||p_payment_structure(i).Object3_Id1);
6207: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6201: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6202: 'p_payment_structure.Object2_Id1 :'||p_payment_structure(i).Object2_Id1);
6203: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6204: 'p_payment_structure.Object2_Id2 :'||p_payment_structure(i).Object2_Id2);
6205: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6206: 'p_payment_structure.Object3_Id1 :'||p_payment_structure(i).Object3_Id1);
6207: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6208: 'p_payment_structure.Object3_Id2 :'||p_payment_structure(i).Object3_Id2);
6209:
6203: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6204: 'p_payment_structure.Object2_Id2 :'||p_payment_structure(i).Object2_Id2);
6205: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6206: 'p_payment_structure.Object3_Id1 :'||p_payment_structure(i).Object3_Id1);
6207: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6208: 'p_payment_structure.Object3_Id2 :'||p_payment_structure(i).Object3_Id2);
6209:
6210: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6211: 'p_payment_structure.Jtot_Object1_Code :'||p_payment_structure(i).Jtot_Object1_Code);
6206: 'p_payment_structure.Object3_Id1 :'||p_payment_structure(i).Object3_Id1);
6207: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6208: 'p_payment_structure.Object3_Id2 :'||p_payment_structure(i).Object3_Id2);
6209:
6210: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6211: 'p_payment_structure.Jtot_Object1_Code :'||p_payment_structure(i).Jtot_Object1_Code);
6212:
6213: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6214: 'p_payment_structure.Jtot_Object2_Code :'||p_payment_structure(i).Jtot_Object2_Code);
6209:
6210: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6211: 'p_payment_structure.Jtot_Object1_Code :'||p_payment_structure(i).Jtot_Object1_Code);
6212:
6213: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6214: 'p_payment_structure.Jtot_Object2_Code :'||p_payment_structure(i).Jtot_Object2_Code);
6215:
6216: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6217: 'p_payment_structure.Jtot_Object3_Code :'||p_payment_structure(i).Jtot_Object3_Code);
6212:
6213: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6214: 'p_payment_structure.Jtot_Object2_Code :'||p_payment_structure(i).Jtot_Object2_Code);
6215:
6216: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6217: 'p_payment_structure.Jtot_Object3_Code :'||p_payment_structure(i).Jtot_Object3_Code);
6218: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6219: 'End of record:' ||i);
6220: END LOOP;
6214: 'p_payment_structure.Jtot_Object2_Code :'||p_payment_structure(i).Jtot_Object2_Code);
6215:
6216: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6217: 'p_payment_structure.Jtot_Object3_Code :'||p_payment_structure(i).Jtot_Object3_Code);
6218: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments.',
6219: 'End of record:' ||i);
6220: END LOOP;
6221: END IF;
6222:
6238: RAISE OKL_API.G_EXCEPTION_ERROR;
6239: END IF;
6240:
6241: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6242: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Printing Variables in store_payments');
6243: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'====================================');
6244: END IF;
6245: print_messages(p_payment_structure);
6246:
6239: END IF;
6240:
6241: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6242: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Printing Variables in store_payments');
6243: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'====================================');
6244: END IF;
6245: print_messages(p_payment_structure);
6246:
6247: --Get the currency code for the Contract
6265: ,p_dependent_sty_purpose => G_PRINCIPAL_PAYMENT
6266: ,x_return_status => x_return_status
6267: ,x_dependent_sty_id => l_pp_sty_id);
6268: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6269: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After get_depend_stream type: '|| x_return_status);
6270: END IF;
6271:
6272:
6273: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6283: ,p_dependent_sty_purpose => G_UNSCHED_PP_STREAM
6284: ,x_return_status => x_return_status
6285: ,x_dependent_sty_id => l_upp_sty_id);
6286: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6287: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After get_depend_stream type: '|| x_return_status);
6288: END IF;
6289:
6290: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6291: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6302: p_contract_id => p_ppd_khr_id,
6303: p_line_id => NULL,
6304: x_value => l_total_k_cost);
6305: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6306: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After execute CONTRACT_CAP_AMNT: '|| l_total_k_cost || x_return_status);
6307: END IF;
6308: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6309: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6310: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6343:
6344: PRINT_STM_PAYMENTS(l_payment_tbl);
6345:
6346: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6347: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'before updating ppd amounts');
6348: END IF;
6349:
6350: l_prev_kle_id := -99;
6351: knt := 1;
6373: p_line_id => l_kle_id,
6374: x_value => l_asset_cost);
6375:
6376: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6377: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After execute LINE_CAP_AMNT: '|| l_asset_cost);
6378: END IF;
6379: If x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR Then
6380: raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
6381: Elsif x_return_status = OKC_API.G_RET_STS_ERROR Then
6389: l_ppd_for_asset := Okl_Accounting_Util.ROUND_AMOUNT(
6390: p_amount => l_raw_ppd_for_asset,
6391: p_currency_code => l_currency_code);
6392: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6393: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'PPD for Asset : '|| l_ppd_for_asset);
6394: END IF;
6395:
6396: knt := knt +1;
6397: l_store_payment_tbl(knt).KHR_ID := p_ppd_khr_id;
6429: p_ppd_khr_id => p_ppd_khr_id,
6430: p_payment_tbl => l_store_payment_tbl,
6431: x_cfo_id => lx_cfo_id);
6432: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6433: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Store stm payments in ESG Inbound:' || x_return_status
6434: || 'CFO Id: '|| lx_cfo_id);
6435: END IF;
6436: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6437: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6439: RAISE OKL_API.G_EXCEPTION_ERROR;
6440: END IF;
6441:
6442:
6443: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6444: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_esg_payments'
6445: ,'End(-)');
6446: END IF;
6447:
6440: END IF;
6441:
6442:
6443: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6444: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_esg_payments'
6445: ,'End(-)');
6446: END IF;
6447:
6448:
6449:
6450: EXCEPTION
6451:
6452: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6453: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6454: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments ',
6455: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
6456: END IF;
6457:
6450: EXCEPTION
6451:
6452: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6453: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6454: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments ',
6455: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
6456: END IF;
6457:
6458: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6462: x_msg_count,
6463: x_msg_data,
6464: '_PVT');
6465: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6466: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6467: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments ',
6468: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
6469: END IF;
6470:
6463: x_msg_data,
6464: '_PVT');
6465: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6466: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6467: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments ',
6468: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
6469: END IF;
6470:
6471: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6475: x_msg_count,
6476: x_msg_data,
6477: '_PVT');
6478: WHEN OTHERS THEN
6479: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6480: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments ',
6481: 'EXCEPTION :'||sqlerrm);
6482: END IF;
6483:
6476: x_msg_data,
6477: '_PVT');
6478: WHEN OTHERS THEN
6479: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6480: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.store_payments ',
6481: 'EXCEPTION :'||sqlerrm);
6482: END IF;
6483:
6484: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6678:
6679:
6680: BEGIN
6681: IF (G_DEBUG_ENABLED = 'Y') THEN
6682: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
6683: END IF;
6684:
6685: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6686: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.process_ppd','Begin(+)');
6681: IF (G_DEBUG_ENABLED = 'Y') THEN
6682: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
6683: END IF;
6684:
6685: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6686: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.process_ppd','Begin(+)');
6687: END IF;
6688:
6689: --Print Input Variables
6682: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
6683: END IF;
6684:
6685: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6686: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.process_ppd','Begin(+)');
6687: END IF;
6688:
6689: --Print Input Variables
6690: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6686: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.process_ppd','Begin(+)');
6687: END IF;
6688:
6689: --Print Input Variables
6690: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6691: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.process_ppd.',
6692: 'p_ppd_request_id :'||p_ppd_request_id);
6693: END IF;
6694:
6687: END IF;
6688:
6689: --Print Input Variables
6690: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6691: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.process_ppd.',
6692: 'p_ppd_request_id :'||p_ppd_request_id);
6693: END IF;
6694:
6695: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6738: END IF;
6739:
6740: --Create the PPD Transaction in OKL_TRX_CONTRACTS
6741: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6742: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before call to okl_transaction_pvt.create_ppd_transaction');
6743: END IF;
6744: okl_transaction_pvt.create_ppd_transaction(
6745: p_api_version => p_api_version,
6746: p_init_msg_list => p_init_msg_list,
6754: x_tcnv_rec => l_tcnv_rec);
6755:
6756: if (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
6757: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6758: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error occurred from okl_transaction_pvt.create_ppd_transaction');
6759: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'x_msg_data=' || x_msg_data);
6760: END IF;
6761: end if;
6762: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6755:
6756: if (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
6757: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6758: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error occurred from okl_transaction_pvt.create_ppd_transaction');
6759: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'x_msg_data=' || x_msg_data);
6760: END IF;
6761: end if;
6762: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
6763: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6785: RAISE OKL_API.G_EXCEPTION_ERROR;
6786: END IF;
6787:
6788: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6789: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Updated Request to ACCEPTED');
6790: END IF;
6791: --Call the Rebook API to Rebook the contract.
6792:
6793: --Populate the kle ids Table.
6811:
6812: --Print out the payment structure:
6813:
6814: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6815: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=== Print out the payment structure before passing to OKL_PROCESS_PPD_PVT.apply_ppd === ');
6816: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Starting the Loop ....');
6817: END IF;
6818: FOR j in l_payment_struc.FIRST..l_payment_struc.LAST LOOP
6819: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6812: --Print out the payment structure:
6813:
6814: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6815: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'=== Print out the payment structure before passing to OKL_PROCESS_PPD_PVT.apply_ppd === ');
6816: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Starting the Loop ....');
6817: END IF;
6818: FOR j in l_payment_struc.FIRST..l_payment_struc.LAST LOOP
6819: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6820: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' ');
6816: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Starting the Loop ....');
6817: END IF;
6818: FOR j in l_payment_struc.FIRST..l_payment_struc.LAST LOOP
6819: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6820: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' ');
6821: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).chr_id ' || j ||' - '||l_payment_struc(j).chr_id);
6822: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).cle_id ' || j ||' - '||l_payment_struc(j).cle_id);
6823: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION_CATEGORY ' || j ||' - '|| l_payment_struc(j).RULE_INFORMATION_CATEGORY);
6824: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION2 ' || j ||' - '|| l_payment_struc(j).RULE_INFORMATION2);
6817: END IF;
6818: FOR j in l_payment_struc.FIRST..l_payment_struc.LAST LOOP
6819: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6820: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' ');
6821: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).chr_id ' || j ||' - '||l_payment_struc(j).chr_id);
6822: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).cle_id ' || j ||' - '||l_payment_struc(j).cle_id);
6823: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION_CATEGORY ' || j ||' - '|| l_payment_struc(j).RULE_INFORMATION_CATEGORY);
6824: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION2 ' || j ||' - '|| l_payment_struc(j).RULE_INFORMATION2);
6825: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION3 ' || j ||' - '|| l_payment_struc(j).RULE_INFORMATION3);
6818: FOR j in l_payment_struc.FIRST..l_payment_struc.LAST LOOP
6819: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6820: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' ');
6821: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).chr_id ' || j ||' - '||l_payment_struc(j).chr_id);
6822: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).cle_id ' || j ||' - '||l_payment_struc(j).cle_id);
6823: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION_CATEGORY ' || j ||' - '|| l_payment_struc(j).RULE_INFORMATION_CATEGORY);
6824: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION2 ' || j ||' - '|| l_payment_struc(j).RULE_INFORMATION2);
6825: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION3 ' || j ||' - '|| l_payment_struc(j).RULE_INFORMATION3);
6826: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION5 ' || j ||' - '|| l_payment_struc(j).RULE_INFORMATION5);
6819: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6820: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' ');
6821: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).chr_id ' || j ||' - '||l_payment_struc(j).chr_id);
6822: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).cle_id ' || j ||' - '||l_payment_struc(j).cle_id);
6823: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION_CATEGORY ' || j ||' - '|| l_payment_struc(j).RULE_INFORMATION_CATEGORY);
6824: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION2 ' || j ||' - '|| l_payment_struc(j).RULE_INFORMATION2);
6825: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION3 ' || j ||' - '|| l_payment_struc(j).RULE_INFORMATION3);
6826: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION5 ' || j ||' - '|| l_payment_struc(j).RULE_INFORMATION5);
6827: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION6 ' || j ||' - '|| l_payment_struc(j).RULE_INFORMATION6);
6820: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,' ');
6821: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).chr_id ' || j ||' - '||l_payment_struc(j).chr_id);
6822: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).cle_id ' || j ||' - '||l_payment_struc(j).cle_id);
6823: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION_CATEGORY ' || j ||' - '|| l_payment_struc(j).RULE_INFORMATION_CATEGORY);
6824: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION2 ' || j ||' - '|| l_payment_struc(j).RULE_INFORMATION2);
6825: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION3 ' || j ||' - '|| l_payment_struc(j).RULE_INFORMATION3);
6826: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION5 ' || j ||' - '|| l_payment_struc(j).RULE_INFORMATION5);
6827: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION6 ' || j ||' - '|| l_payment_struc(j).RULE_INFORMATION6);
6828: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION7 ' || j ||' - '|| l_payment_struc(j).RULE_INFORMATION7);
6821: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).chr_id ' || j ||' - '||l_payment_struc(j).chr_id);
6822: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).cle_id ' || j ||' - '||l_payment_struc(j).cle_id);
6823: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION_CATEGORY ' || j ||' - '|| l_payment_struc(j).RULE_INFORMATION_CATEGORY);
6824: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION2 ' || j ||' - '|| l_payment_struc(j).RULE_INFORMATION2);
6825: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION3 ' || j ||' - '|| l_payment_struc(j).RULE_INFORMATION3);
6826: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION5 ' || j ||' - '|| l_payment_struc(j).RULE_INFORMATION5);
6827: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION6 ' || j ||' - '|| l_payment_struc(j).RULE_INFORMATION6);
6828: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION7 ' || j ||' - '|| l_payment_struc(j).RULE_INFORMATION7);
6829: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION8 ' || j ||' - '|| l_payment_struc(j).RULE_INFORMATION8);
6822: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).cle_id ' || j ||' - '||l_payment_struc(j).cle_id);
6823: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION_CATEGORY ' || j ||' - '|| l_payment_struc(j).RULE_INFORMATION_CATEGORY);
6824: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION2 ' || j ||' - '|| l_payment_struc(j).RULE_INFORMATION2);
6825: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION3 ' || j ||' - '|| l_payment_struc(j).RULE_INFORMATION3);
6826: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION5 ' || j ||' - '|| l_payment_struc(j).RULE_INFORMATION5);
6827: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION6 ' || j ||' - '|| l_payment_struc(j).RULE_INFORMATION6);
6828: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION7 ' || j ||' - '|| l_payment_struc(j).RULE_INFORMATION7);
6829: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION8 ' || j ||' - '|| l_payment_struc(j).RULE_INFORMATION8);
6830: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION10 ' || j ||' - '|| l_payment_struc(j).RULE_INFORMATION10);
6823: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION_CATEGORY ' || j ||' - '|| l_payment_struc(j).RULE_INFORMATION_CATEGORY);
6824: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION2 ' || j ||' - '|| l_payment_struc(j).RULE_INFORMATION2);
6825: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION3 ' || j ||' - '|| l_payment_struc(j).RULE_INFORMATION3);
6826: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION5 ' || j ||' - '|| l_payment_struc(j).RULE_INFORMATION5);
6827: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION6 ' || j ||' - '|| l_payment_struc(j).RULE_INFORMATION6);
6828: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION7 ' || j ||' - '|| l_payment_struc(j).RULE_INFORMATION7);
6829: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION8 ' || j ||' - '|| l_payment_struc(j).RULE_INFORMATION8);
6830: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION10 ' || j ||' - '|| l_payment_struc(j).RULE_INFORMATION10);
6831: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).OBJECT1_ID1 ' || j ||' - '|| l_payment_struc(j).OBJECT1_ID1);
6824: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION2 ' || j ||' - '|| l_payment_struc(j).RULE_INFORMATION2);
6825: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION3 ' || j ||' - '|| l_payment_struc(j).RULE_INFORMATION3);
6826: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION5 ' || j ||' - '|| l_payment_struc(j).RULE_INFORMATION5);
6827: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION6 ' || j ||' - '|| l_payment_struc(j).RULE_INFORMATION6);
6828: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION7 ' || j ||' - '|| l_payment_struc(j).RULE_INFORMATION7);
6829: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION8 ' || j ||' - '|| l_payment_struc(j).RULE_INFORMATION8);
6830: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION10 ' || j ||' - '|| l_payment_struc(j).RULE_INFORMATION10);
6831: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).OBJECT1_ID1 ' || j ||' - '|| l_payment_struc(j).OBJECT1_ID1);
6832: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).jtot_object1_code ' || j ||' - '|| l_payment_struc(j).jtot_object1_code);
6825: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION3 ' || j ||' - '|| l_payment_struc(j).RULE_INFORMATION3);
6826: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION5 ' || j ||' - '|| l_payment_struc(j).RULE_INFORMATION5);
6827: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION6 ' || j ||' - '|| l_payment_struc(j).RULE_INFORMATION6);
6828: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION7 ' || j ||' - '|| l_payment_struc(j).RULE_INFORMATION7);
6829: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION8 ' || j ||' - '|| l_payment_struc(j).RULE_INFORMATION8);
6830: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION10 ' || j ||' - '|| l_payment_struc(j).RULE_INFORMATION10);
6831: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).OBJECT1_ID1 ' || j ||' - '|| l_payment_struc(j).OBJECT1_ID1);
6832: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).jtot_object1_code ' || j ||' - '|| l_payment_struc(j).jtot_object1_code);
6833: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).jtot_object2_code ' || j ||' - '|| l_payment_struc(j).jtot_object2_code);
6826: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION5 ' || j ||' - '|| l_payment_struc(j).RULE_INFORMATION5);
6827: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION6 ' || j ||' - '|| l_payment_struc(j).RULE_INFORMATION6);
6828: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION7 ' || j ||' - '|| l_payment_struc(j).RULE_INFORMATION7);
6829: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION8 ' || j ||' - '|| l_payment_struc(j).RULE_INFORMATION8);
6830: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION10 ' || j ||' - '|| l_payment_struc(j).RULE_INFORMATION10);
6831: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).OBJECT1_ID1 ' || j ||' - '|| l_payment_struc(j).OBJECT1_ID1);
6832: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).jtot_object1_code ' || j ||' - '|| l_payment_struc(j).jtot_object1_code);
6833: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).jtot_object2_code ' || j ||' - '|| l_payment_struc(j).jtot_object2_code);
6834: END IF;
6827: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION6 ' || j ||' - '|| l_payment_struc(j).RULE_INFORMATION6);
6828: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION7 ' || j ||' - '|| l_payment_struc(j).RULE_INFORMATION7);
6829: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION8 ' || j ||' - '|| l_payment_struc(j).RULE_INFORMATION8);
6830: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION10 ' || j ||' - '|| l_payment_struc(j).RULE_INFORMATION10);
6831: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).OBJECT1_ID1 ' || j ||' - '|| l_payment_struc(j).OBJECT1_ID1);
6832: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).jtot_object1_code ' || j ||' - '|| l_payment_struc(j).jtot_object1_code);
6833: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).jtot_object2_code ' || j ||' - '|| l_payment_struc(j).jtot_object2_code);
6834: END IF;
6835:
6828: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION7 ' || j ||' - '|| l_payment_struc(j).RULE_INFORMATION7);
6829: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION8 ' || j ||' - '|| l_payment_struc(j).RULE_INFORMATION8);
6830: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION10 ' || j ||' - '|| l_payment_struc(j).RULE_INFORMATION10);
6831: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).OBJECT1_ID1 ' || j ||' - '|| l_payment_struc(j).OBJECT1_ID1);
6832: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).jtot_object1_code ' || j ||' - '|| l_payment_struc(j).jtot_object1_code);
6833: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).jtot_object2_code ' || j ||' - '|| l_payment_struc(j).jtot_object2_code);
6834: END IF;
6835:
6836: END LOOP;
6829: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION8 ' || j ||' - '|| l_payment_struc(j).RULE_INFORMATION8);
6830: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).RULE_INFORMATION10 ' || j ||' - '|| l_payment_struc(j).RULE_INFORMATION10);
6831: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).OBJECT1_ID1 ' || j ||' - '|| l_payment_struc(j).OBJECT1_ID1);
6832: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).jtot_object1_code ' || j ||' - '|| l_payment_struc(j).jtot_object1_code);
6833: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'p_payment_struc(j).jtot_object2_code ' || j ||' - '|| l_payment_struc(j).jtot_object2_code);
6834: END IF;
6835:
6836: END LOOP;
6837:
6851: p_ppd_txn_id => l_tcnv_rec.id);
6852:
6853:
6854: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6855: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Return Status after call to apply_ppd: '|| x_return_status);
6856: END IF;
6857: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6858: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6859: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
6892: END IF;
6893: END IF;
6894:
6895:
6896: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6897: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.process_ppd','End(+)');
6898: END IF;
6899:
6900: EXCEPTION
6893: END IF;
6894:
6895:
6896: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6897: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.process_ppd','End(+)');
6898: END IF;
6899:
6900: EXCEPTION
6901:
6899:
6900: EXCEPTION
6901:
6902: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6903: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6904: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.process_ppd ',
6905: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
6906: END IF;
6907:
6900: EXCEPTION
6901:
6902: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6903: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6904: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.process_ppd ',
6905: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
6906: END IF;
6907:
6908: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
6912: x_msg_count,
6913: x_msg_data,
6914: '_PVT');
6915: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6916: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6917: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.process_ppd ',
6918: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
6919: END IF;
6920:
6913: x_msg_data,
6914: '_PVT');
6915: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6916: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6917: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.process_ppd ',
6918: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
6919: END IF;
6920:
6921: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6925: x_msg_count,
6926: x_msg_data,
6927: '_PVT');
6928: WHEN OTHERS THEN
6929: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6930: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.process_ppd ',
6931: 'EXCEPTION :'||sqlerrm);
6932: END IF;
6933:
6926: x_msg_data,
6927: '_PVT');
6928: WHEN OTHERS THEN
6929: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6930: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.process_ppd ',
6931: 'EXCEPTION :'||sqlerrm);
6932: END IF;
6933:
6934: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
6990: WHERE receipt_id = c_rcpt_id;
6991:
6992: BEGIN
6993: IF (G_DEBUG_ENABLED = 'Y') THEN
6994: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
6995: END IF;
6996: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6997: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.invoice_bill_apply'
6998: ,'Begin(+)');
6992: BEGIN
6993: IF (G_DEBUG_ENABLED = 'Y') THEN
6994: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
6995: END IF;
6996: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6997: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.invoice_bill_apply'
6998: ,'Begin(+)');
6999: END IF;
7000:
6993: IF (G_DEBUG_ENABLED = 'Y') THEN
6994: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
6995: END IF;
6996: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6997: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.invoice_bill_apply'
6998: ,'Begin(+)');
6999: END IF;
7000:
7001: --Print Input Variables
6998: ,'Begin(+)');
6999: END IF;
7000:
7001: --Print Input Variables
7002: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7003: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.invoice_bill_apply.',
7004: 'p_request_id :'||p_req_id);
7005: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.invoice_bill_apply.',
7006: 'p_khr_id :'||p_khr_id);
6999: END IF;
7000:
7001: --Print Input Variables
7002: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7003: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.invoice_bill_apply.',
7004: 'p_request_id :'||p_req_id);
7005: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.invoice_bill_apply.',
7006: 'p_khr_id :'||p_khr_id);
7007: END IF;
7001: --Print Input Variables
7002: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7003: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.invoice_bill_apply.',
7004: 'p_request_id :'||p_req_id);
7005: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.invoice_bill_apply.',
7006: 'p_khr_id :'||p_khr_id);
7007: END IF;
7008: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7009: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Entering invoice_bill_apply api:');
7005: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.invoice_bill_apply.',
7006: 'p_khr_id :'||p_khr_id);
7007: END IF;
7008: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7009: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Entering invoice_bill_apply api:');
7010: END IF;
7011:
7012: x_return_status := OKL_API.G_RET_STS_SUCCESS;
7013:
7041: l_from_bill_date := l_payment_date -1;
7042: l_to_bill_date := l_payment_date + 1;
7043:
7044: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7045: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Calling Invoice api:');
7046: END IF;
7047: --Call the API to invoice the ppd stream
7048: OKL_BPD_ADVANCED_BILLING_PVT.advanced_billing( p_api_version => p_api_version,
7049: p_init_msg_list => p_init_msg_list,
7057: x_ar_inv_tbl => l_ar_inv_tbl,
7058: p_ppd_flow => 'Y');
7059:
7060: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7061: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Calling Invoice api: Count is :'|| l_ar_inv_tbl.COUNT);
7062: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Return Status after call to advanced_billing : '|| x_return_status);
7063: END IF;
7064:
7065: --Now call the Receipt application API to apply the receipt to these
7058: p_ppd_flow => 'Y');
7059:
7060: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7061: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After Calling Invoice api: Count is :'|| l_ar_inv_tbl.COUNT);
7062: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Return Status after call to advanced_billing : '|| x_return_status);
7063: END IF;
7064:
7065: --Now call the Receipt application API to apply the receipt to these
7066: --AR invoices.
7083:
7084: END IF;
7085:
7086: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7087: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Return Status at the end of invoice_bill_apply : '|| x_return_status);
7088: END IF;
7089:
7090: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7091: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.invoice_bill_apply'
7086: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7087: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Return Status at the end of invoice_bill_apply : '|| x_return_status);
7088: END IF;
7089:
7090: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7091: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.invoice_bill_apply'
7092: ,'End(-)');
7093: END IF;
7094: /*
7087: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Return Status at the end of invoice_bill_apply : '|| x_return_status);
7088: END IF;
7089:
7090: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7091: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.invoice_bill_apply'
7092: ,'End(-)');
7093: END IF;
7094: /*
7095: EXCEPTION
7299: l_comments VARCHAR2(1995);
7300:
7301: BEGIN
7302: IF (G_DEBUG_ENABLED = 'Y') THEN
7303: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
7304: END IF;
7305:
7306: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7307: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.process_lpd','Begin(+)');
7302: IF (G_DEBUG_ENABLED = 'Y') THEN
7303: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
7304: END IF;
7305:
7306: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7307: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.process_lpd','Begin(+)');
7308: END IF;
7309:
7310: --Print Input Variables
7303: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
7304: END IF;
7305:
7306: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7307: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.process_lpd','Begin(+)');
7308: END IF;
7309:
7310: --Print Input Variables
7311: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7307: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.process_lpd','Begin(+)');
7308: END IF;
7309:
7310: --Print Input Variables
7311: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7312: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.process_lpd.',
7313: 'p_ppd_request_id :'||p_ppd_request_id);
7314: END IF;
7315:
7308: END IF;
7309:
7310: --Print Input Variables
7311: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7312: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.process_lpd.',
7313: 'p_ppd_request_id :'||p_ppd_request_id);
7314: END IF;
7315:
7316: x_return_status := OKL_API.G_RET_STS_SUCCESS;
7345: CLOSE c_obj_vers_csr;
7346:
7347: --Create the LPD Transaction in OKL_TRX_CONTRACTS
7348: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7349: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before call to okl_transaction_pvt.create_ppd_transaction');
7350: END IF;
7351: l_try_id := NULL;
7352:
7353: --check the type of paydown
7363: l_tcnv_rec.description := 'Principal Paydown';
7364: END IF;
7365:
7366: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7367: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'AFTER getting try id');
7368: END IF;
7369:
7370: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7371: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Try ID: '||l_try_id);
7367: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'AFTER getting try id');
7368: END IF;
7369:
7370: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7371: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Try ID: '||l_try_id);
7372: END IF;
7373:
7374: l_tcnv_rec.try_id := l_try_id;
7375: l_tcnv_rec.tsu_code := 'ENTERED';
7384: l_tcnv_rec.currency_code := con_header_rec.currency_code;
7385: END LOOP;
7386:
7387: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7388: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'BEFORE calling okl_trx_contracts_pub.create_trx_contracts');
7389: END IF;
7390: -- Create Transaction Header only
7391: okl_trx_contracts_pub.create_trx_contracts(
7392: p_api_version => 1.0,
7398: x_tcnv_rec => l_out_tcnv_rec
7399: );
7400:
7401: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7402: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'AFTER calling okl_trx_contracts_pub.create_trx_contracts');
7403: END IF;
7404:
7405: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
7406: RAISE OKC_API.G_EXCEPTION_ERROR;
7409:
7410:
7411: if (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
7412: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7413: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error occurred from creating loan transactions');
7414: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'x_msg_data=' || x_msg_data);
7415: END IF;
7416: end if;
7417: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7410:
7411: if (x_return_status <> OKL_API.G_RET_STS_SUCCESS) then
7412: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7413: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Error occurred from creating loan transactions');
7414: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'x_msg_data=' || x_msg_data);
7415: END IF;
7416: end if;
7417: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
7418: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7440: RAISE OKL_API.G_EXCEPTION_ERROR;
7441: END IF;
7442:
7443: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7444: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Updated Request to ACCEPTED');
7445: END IF;
7446:
7447: --get the dependent stream type
7448: --check whether loan paydown or principal paydown
7455: ,p_dependent_sty_purpose => G_UNSCHED_LP_STREAM
7456: ,x_return_status => x_return_status
7457: ,x_dependent_sty_id => l_upp_sty_id);
7458: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7459: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After get_depend_stream type LP: '|| x_return_status);
7460: END IF;
7461:
7462:
7463: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7473: ,p_dependent_sty_purpose => G_UNSCHED_PP_STREAM
7474: ,x_return_status => x_return_status
7475: ,x_dependent_sty_id => l_upp_sty_id);
7476: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7477: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After get_depend_stream type PP: '|| x_return_status);
7478: END IF;
7479:
7480:
7481: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7496: FETCH c_unscheduled_count INTO l_count;
7497: CLOSE c_unscheduled_count;
7498:
7499: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7500: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'payment count: ' ||l_count);
7501: END IF;
7502:
7503: OPEN c_contract_details(l_contract_id);
7504: FETCH c_contract_details INTO l_contract_rec;
7507: OPEN c_max_date(l_contract_id,l_upp_sty_id);
7508: FETCH c_max_date INTO l_max_date;
7509: CLOSE c_max_date;
7510: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7511: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'maximum date on the payments: '||l_max_date);
7512: END IF;
7513:
7514:
7515: --Populating the Payment header record.
7590: p_pym_tbl => l_pym_tbl,
7591: p_update_type => 'DELETE',
7592: x_rulv_tbl => l_rulv_tbl_type );
7593: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7594: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'status after deleting original payments: '||x_return_status);
7595: END IF;
7596:
7597: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7598: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7664: IF l_pym_tbl.COUNT > 0 THEN
7665: j := l_pym_tbl.FIRST;
7666: LOOP
7667: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7668: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'period ' || l_pym_tbl(j).period);
7669: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'amount' ||l_pym_tbl(j).amount);
7670: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'stub days '|| l_pym_tbl(j).stub_days);
7671: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'stub amount '||l_pym_tbl(j).stub_amount);
7672: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'update_type '||l_pym_tbl(j).update_type);
7665: j := l_pym_tbl.FIRST;
7666: LOOP
7667: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7668: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'period ' || l_pym_tbl(j).period);
7669: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'amount' ||l_pym_tbl(j).amount);
7670: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'stub days '|| l_pym_tbl(j).stub_days);
7671: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'stub amount '||l_pym_tbl(j).stub_amount);
7672: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'update_type '||l_pym_tbl(j).update_type);
7673: END IF;
7666: LOOP
7667: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7668: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'period ' || l_pym_tbl(j).period);
7669: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'amount' ||l_pym_tbl(j).amount);
7670: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'stub days '|| l_pym_tbl(j).stub_days);
7671: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'stub amount '||l_pym_tbl(j).stub_amount);
7672: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'update_type '||l_pym_tbl(j).update_type);
7673: END IF;
7674: EXIT WHEN j = l_pym_tbl.LAST;
7667: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7668: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'period ' || l_pym_tbl(j).period);
7669: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'amount' ||l_pym_tbl(j).amount);
7670: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'stub days '|| l_pym_tbl(j).stub_days);
7671: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'stub amount '||l_pym_tbl(j).stub_amount);
7672: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'update_type '||l_pym_tbl(j).update_type);
7673: END IF;
7674: EXIT WHEN j = l_pym_tbl.LAST;
7675: j := l_pym_tbl.NEXT(j);
7668: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'period ' || l_pym_tbl(j).period);
7669: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'amount' ||l_pym_tbl(j).amount);
7670: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'stub days '|| l_pym_tbl(j).stub_days);
7671: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'stub amount '||l_pym_tbl(j).stub_amount);
7672: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'update_type '||l_pym_tbl(j).update_type);
7673: END IF;
7674: EXIT WHEN j = l_pym_tbl.LAST;
7675: j := l_pym_tbl.NEXT(j);
7676: END LOOP;
7691: p_update_type => 'CREATE',
7692: x_rulv_tbl => l_rulv_tbl_type );
7693:
7694: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7695: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'status after updating payments: '||x_return_status);
7696: END IF;
7697: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7698: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7699: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
7726: x_msg_data => x_msg_data,
7727: p_stmv_rec => l_stmv_rec,
7728: x_stmv_rec => lx_stmv_rec);
7729: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7730: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Return status from creating streams'|| x_return_status);
7731: END IF;
7732:
7733: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7734: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7766: p_selv_rec => l_selv_rec,
7767: x_selv_rec => lx_selv_rec);
7768:
7769: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7770: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Return status from creating stream elements'|| x_return_status);
7771: END IF;
7772:
7773:
7774: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
7802: -- 3. Apply the selected receipt on the generated invoices.
7803: -- 4. Update the status of the request to Processed. --Call BPD API to create AR journal entries
7804:
7805: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7806: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Before calling WF');
7807: END IF;
7808:
7809: OKL_CS_WF.raise_principal_paydown_event(l_trqv_rec.id);
7810:
7808:
7809: OKL_CS_WF.raise_principal_paydown_event(l_trqv_rec.id);
7810:
7811: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7812: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After calling WF');
7813: END IF;
7814:
7815:
7816: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7812: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'After calling WF');
7813: END IF;
7814:
7815:
7816: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7817: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.process_ppd','End(+)');
7818: END IF;
7819:
7820: EXCEPTION
7813: END IF;
7814:
7815:
7816: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7817: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.process_ppd','End(+)');
7818: END IF;
7819:
7820: EXCEPTION
7821:
7819:
7820: EXCEPTION
7821:
7822: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7823: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7824: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.process_ppd ',
7825: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
7826: END IF;
7827:
7820: EXCEPTION
7821:
7822: WHEN OKL_API.G_EXCEPTION_ERROR THEN
7823: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7824: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.process_ppd ',
7825: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_ERROR');
7826: END IF;
7827:
7828: x_return_status := OKL_API.HANDLE_EXCEPTIONS(
7832: x_msg_count,
7833: x_msg_data,
7834: '_PVT');
7835: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7836: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7837: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.process_ppd ',
7838: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
7839: END IF;
7840:
7833: x_msg_data,
7834: '_PVT');
7835: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
7836: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7837: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.process_ppd ',
7838: 'EXCEPTION :'||'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
7839: END IF;
7840:
7841: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(
7845: x_msg_count,
7846: x_msg_data,
7847: '_PVT');
7848: WHEN OTHERS THEN
7849: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7850: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.process_ppd ',
7851: 'EXCEPTION :'||sqlerrm);
7852: END IF;
7853:
7846: x_msg_data,
7847: '_PVT');
7848: WHEN OTHERS THEN
7849: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7850: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_CS_PRINCIPAL_PAYDOWN_PVT.process_ppd ',
7851: 'EXCEPTION :'||sqlerrm);
7852: END IF;
7853:
7854: x_return_status :=OKL_API.HANDLE_EXCEPTIONS(