948: l_status_code VARCHAR2(1);
949: l_override_mode VARCHAR2(1) := 'N';
950: l_return_code VARCHAR2(30);
951:
952: t_funds_dist_tab PSA_AP_BC_PVT.Funds_Dist_Tab_Type;
953:
954: l_dist_rec_count NUMBER := 0;
955: i BINARY_INTEGER := 1;
956: j BINARY_INTEGER := 1;
1090: | Step 4 - Accounting Event Handling - Create, Stamp, Cleanup |
1091: +-----------------------------------------------------------------*/
1092:
1093: IF (G_LEVEL_STATEMENT >= g_log_level ) THEN
1094: l_log_msg := 'Step 3 - Call psa_ap_bc_pvt.Create_Events';
1095: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||
1096: l_procedure_name, l_log_msg);
1097: END IF;
1098:
1112: --IF ( P_calling_mode = 'CANCEL') THEN
1113:
1114: -- bug 9026201
1115: BEGIN
1116: psa_ap_bc_pvt.Reinstate_PO_Encumbrance(
1117: p_calling_mode => p_calling_mode,
1118: p_tab_fc_dist => t_funds_dist_tab,
1119: p_calling_sequence => l_curr_calling_sequence,
1120: x_return_status => l_return_status,
1121: x_msg_count => l_msg_count,
1122: x_msg_data => l_msg_data);
1123:
1124: IF (G_LEVEL_STATEMENT >= g_log_level ) THEN
1125: l_log_msg := 'Call psa_ap_bc_pvt.reinstate_po_encumbrance returned' ||
1126: 'l_return_status =' || l_return_status;
1127: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||
1128: l_procedure_name, l_log_msg);
1129: END IF;
1135:
1136: EXCEPTION
1137: WHEN OTHERS THEN
1138: IF (G_LEVEL_STATEMENT >= g_log_level ) THEN
1139: l_log_msg := 'Call psa_ap_bc_pvt.reinstate_po_encumbrance '||
1140: 'raised an Exception' ||SQLERRM;
1141: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||
1142: l_procedure_name, l_log_msg);
1143: END IF;
1148: END;
1149:
1150: -- bug9026201
1151: BEGIN
1152: psa_ap_bc_pvt.Create_Events (
1153: p_init_msg_list => fnd_api.g_true,
1154: p_tab_fc_dist => t_funds_dist_tab,
1155: p_calling_mode => p_calling_mode,
1156: p_bc_mode => l_bc_mode,
1159: x_msg_count => l_msg_count,
1160: x_msg_data => l_msg_data);
1161:
1162: IF (G_LEVEL_STATEMENT >= g_log_level ) THEN
1163: l_log_msg := 'Call psa_ap_bc_pvt.Create_Events returned' ||
1164: 'l_return_status =' || l_return_status;
1165: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||
1166: l_procedure_name, l_log_msg);
1167: END IF;
1173:
1174: EXCEPTION
1175: WHEN OTHERS THEN
1176: IF (G_LEVEL_STATEMENT >= g_log_level ) THEN
1177: l_log_msg := 'Call psa_ap_bc_pvt.Create_Events '||
1178: 'raised an Exception' ||SQLERRM;
1179: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||
1180: l_procedure_name, l_log_msg);
1181: END IF;
1212: x_status_code => l_return_code,
1213: x_Packet_ID => l_packet_id );
1214:
1215: IF (G_LEVEL_STATEMENT >= g_log_level ) THEN
1216: l_log_msg := 'Call psa_ap_bc_pvt.Budgetary_Control returned' ||
1217: 'l_return_status =' || l_return_status ||
1218: 'l_packet_id =' || to_char(l_packet_id);
1219: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||
1220: l_procedure_name, l_log_msg);
1227:
1228: EXCEPTION
1229: WHEN OTHERS THEN
1230: IF (G_LEVEL_STATEMENT >= g_log_level ) THEN
1231: l_log_msg := 'Call psa_ap_bc_pvt.Budgetary_Control '||
1232: 'raised an Exception' ||SQLERRM;
1233: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||
1234: l_procedure_name, l_log_msg);
1235: END IF;
1288: IF l_return_code = 'PARTIAL' THEN
1289:
1290: IF (G_LEVEL_STATEMENT >= g_log_level ) THEN
1291: l_log_msg := 'funds reservation returned Partial and calling '||
1292: 'psa_ap_bc_pvt.Get_Detailed_Results';
1293: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||
1294: l_procedure_name, l_log_msg);
1295: END IF;
1296:
1295: END IF;
1296:
1297: -- bug9026201
1298: BEGIN
1299: psa_ap_bc_pvt.Get_Detailed_Results (
1300: p_init_msg_list => FND_API.g_true,
1301: p_tab_fc_dist => t_funds_dist_tab,
1302: p_calling_sequence => l_curr_calling_sequence,
1303: x_return_status => l_return_status,
1304: x_msg_count => l_msg_count,
1305: x_msg_data => l_msg_data);
1306:
1307: IF (G_LEVEL_STATEMENT >= g_log_level ) THEN
1308: l_log_msg := 'Call psa_ap_bc_pvt.Get_Detailed_Results returned' ||
1309: 'l_return_status =' || l_return_status;
1310:
1311: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||
1312: l_procedure_name, l_log_msg);
1319:
1320: EXCEPTION
1321: WHEN OTHERS THEN
1322: IF (G_LEVEL_STATEMENT >= g_log_level ) THEN
1323: l_log_msg := 'Call psa_ap_bc_pvt.Get_Detailed_Results '||
1324: 'raised an Exception' ||SQLERRM;
1325: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||
1326: l_procedure_name, l_log_msg);
1327: END IF;
1652:
1653: /* removing the code added as apart of bugfix :9168747 , as fix handled through 11659334 */
1654:
1655: IF (G_LEVEL_STATEMENT >= g_log_level ) THEN
1656: l_log_msg := 'Step 3 - no Call of psa_ap_bc_pvt.Create_Events' ||
1657: 'distribution cursor count = 0';
1658: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||
1659: l_procedure_name, l_log_msg);
1660: END IF;
2846: l_return_code VARCHAR(30);
2847:
2848: l_status_code VARCHAR2(1);
2849:
2850: t_funds_dist_tab PSA_AP_BC_PVT.Funds_Dist_Tab_Type;--bc
2851:
2852: l_bc_mode VARCHAR2(1) := 'C'; --bc
2853: l_set_of_books_id NUMBER;
2854: l_chart_of_accounts_id NUMBER;
2958: | Step 3 - Accounting Event Handling - Create, Stamp, Cleanup |
2959: +-----------------------------------------------------------------*/
2960:
2961: IF (G_LEVEL_STATEMENT >= g_log_level ) THEN
2962: l_log_msg := 'Step 3 - Call psa_ap_bc_pvt.Create_Events';
2963: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||
2964: l_procedure_name, l_log_msg);
2965: END IF;
2966:
2965: END IF;
2966:
2967: IF ( t_funds_dist_tab.COUNT <> 0 ) THEN
2968:
2969: psa_ap_bc_pvt.Create_Events (
2970: p_init_msg_list => fnd_api.g_true,
2971: p_tab_fc_dist => t_funds_dist_tab,
2972: p_calling_mode => 'APPROVE',
2973: p_bc_mode => l_bc_mode,
2976: x_msg_count => l_msg_count,
2977: x_msg_data => l_msg_data);
2978:
2979: IF (G_LEVEL_STATEMENT >= g_log_level ) THEN
2980: l_log_msg := 'Call psa_ap_bc_pvt.Create_Events status result ' ||
2981: 'l_return_status =' || l_return_status;
2982: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||
2983: l_procedure_name, l_log_msg);
2984: END IF;
2985:
2986: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2987:
2988: IF (G_LEVEL_STATEMENT >= g_log_level ) THEN
2989: l_log_msg := 'Step 3 - Call psa_ap_bc_pvt.Create_Events not success ' ||
2990: 'l_return_status =' || l_return_status;
2991: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||
2992: l_procedure_name, l_log_msg);
2993: END IF;
3102: | Process PSA BUDGETARY CONTROL return codes |
3103: +-------------------------------------------------------------------*/
3104: p_return_message_name := 'AP_ENC_NO_DIST_APPL'; --added for bug 8639979
3105: IF (G_LEVEL_STATEMENT >= g_log_level ) THEN
3106: l_log_msg := 'no Call of psa_ap_bc_pvt.Create_Events' ||
3107: 'distribution cursor count = 0';
3108: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||
3109: l_procedure_name, l_log_msg);
3110: END IF;