[Home] [Help]
180: l_msg_count NUMBER;
181: l_msg_data VARCHAR2(2000);
182: ----------------------------------------------------------------------------
183:
184: L_VALIDATION_LINES_REC FPA_VALIDATION_PVT.FPA_VALIDATION_LINES_REC;
185: L_PROJ_VALIDATION_ID NUMBER;
186:
187: L_COST_VLINE_ID NUMBER;
188: L_BENEFIT_VLINE_ID NUMBER;
198: B.VALIDATION_ID
199: INTO
200: L_COST_VLINE_ID, L_BENEFIT_VLINE_ID
201: FROM
202: FPA_VALIDATION_LINES S,
203: FPA_VALIDATION_LINES P,
204: FPA_VALIDATION_LINES C,
205: FPA_VALIDATION_LINES B
206: WHERE
199: INTO
200: L_COST_VLINE_ID, L_BENEFIT_VLINE_ID
201: FROM
202: FPA_VALIDATION_LINES S,
203: FPA_VALIDATION_LINES P,
204: FPA_VALIDATION_LINES C,
205: FPA_VALIDATION_LINES B
206: WHERE
207: S.VALIDATION_ID = P_SCEN_VLINE_ID
200: L_COST_VLINE_ID, L_BENEFIT_VLINE_ID
201: FROM
202: FPA_VALIDATION_LINES S,
203: FPA_VALIDATION_LINES P,
204: FPA_VALIDATION_LINES C,
205: FPA_VALIDATION_LINES B
206: WHERE
207: S.VALIDATION_ID = P_SCEN_VLINE_ID
208: AND P.OBJECT_TYPE = 'BUDGET_VERSIONS_PROJ'
201: FROM
202: FPA_VALIDATION_LINES S,
203: FPA_VALIDATION_LINES P,
204: FPA_VALIDATION_LINES C,
205: FPA_VALIDATION_LINES B
206: WHERE
207: S.VALIDATION_ID = P_SCEN_VLINE_ID
208: AND P.OBJECT_TYPE = 'BUDGET_VERSIONS_PROJ'
209: AND P.HEADER_ID = S.VALIDATION_ID
214: AND B.HEADER_ID = P.VALIDATION_ID
215: AND B.VALIDATION_TYPE = 'FPA_V_PROJ_BENEFIT_VERSION'
216: AND P.OBJECT_ID = P_PROJECT_ID;
217:
218: DELETE FROM FPA_VALIDATION_LINES
219: WHERE VALIDATION_ID IN (L_COST_VLINE_ID, L_BENEFIT_VLINE_ID);
220:
221: EXCEPTION
222: WHEN OTHERS THEN
381: B.VALIDATION_ID
382: INTO
383: L_COST_VLINE_ID, L_BENEFIT_VLINE_ID
384: FROM
385: FPA_VALIDATION_LINES S,
386: FPA_VALIDATION_LINES P,
387: FPA_VALIDATION_LINES C,
388: FPA_VALIDATION_LINES B
389: WHERE
382: INTO
383: L_COST_VLINE_ID, L_BENEFIT_VLINE_ID
384: FROM
385: FPA_VALIDATION_LINES S,
386: FPA_VALIDATION_LINES P,
387: FPA_VALIDATION_LINES C,
388: FPA_VALIDATION_LINES B
389: WHERE
390: S.VALIDATION_ID = P_SCEN_VLINE_ID
383: L_COST_VLINE_ID, L_BENEFIT_VLINE_ID
384: FROM
385: FPA_VALIDATION_LINES S,
386: FPA_VALIDATION_LINES P,
387: FPA_VALIDATION_LINES C,
388: FPA_VALIDATION_LINES B
389: WHERE
390: S.VALIDATION_ID = P_SCEN_VLINE_ID
391: AND P.OBJECT_TYPE = 'BUDGET_VERSIONS_PROJ'
384: FROM
385: FPA_VALIDATION_LINES S,
386: FPA_VALIDATION_LINES P,
387: FPA_VALIDATION_LINES C,
388: FPA_VALIDATION_LINES B
389: WHERE
390: S.VALIDATION_ID = P_SCEN_VLINE_ID
391: AND P.OBJECT_TYPE = 'BUDGET_VERSIONS_PROJ'
392: AND P.HEADER_ID = S.VALIDATION_ID
398: AND B.VALIDATION_TYPE = 'FPA_V_PROJ_BENEFIT_VERSION'
399: AND P.OBJECT_ID = P_PROJECT_ID;
400:
401: UPDATE
402: FPA_VALIDATION_LINES
403: SET
404: OBJECT_ID = P_COST_BVERSION_ID,
405: LAST_UPDATED_BY = FND_GLOBAL.USER_ID,
406: LAST_UPDATE_DATE = SYSDATE,
408: WHERE
409: VALIDATION_ID = L_COST_VLINE_ID;
410:
411: UPDATE
412: FPA_VALIDATION_LINES
413: SET
414: OBJECT_ID = P_BENEFIT_BVERSION_ID,
415: LAST_UPDATED_BY = FND_GLOBAL.USER_ID,
416: LAST_UPDATE_DATE = SYSDATE,
496: L_PC_ID NUMBER := NULL;
497: L_SCENARIO_ID NUMBER := NULL;
498:
499: BUDGET_VERSIONS_REC BUDGET_VERS_CSR%ROWTYPE;
500: L_VALIDATION_LINES_REC FPA_VALIDATION_PVT.FPA_VALIDATION_LINES_REC;
501: L_SCEN_VALIDATION_ID NUMBER;
502: L_PROJ_VALIDATION_ID NUMBER;
503:
504: BEGIN
634:
635: cursor val_lines_csr(sce_id IN NUMBER,
636: validation_set IN VARCHAR2) is
637: SELECT VALIDATION_ID
638: FROM FPA_VALIDATION_LINES
639: WHERE OBJECT_TYPE = 'BUDGET_VERSIONS_SCENARIO' AND
640: OBJECT_ID = sce_id AND
641: HEADER_ID IS NULL AND
642: VALIDATION_TYPE = validation_set;
686:
687: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
688: fnd_log.string ( FND_LOG.LEVEL_PROCEDURE,
689: 'fpa.sql.FPA_VALIDATION_PROCESS_PVT.Budget_Version_Validations 2.',
690: 'Querying FPA_VALIDATION_LINES to obtain current validation ID. Values are, scenario id: ' || l_scenario_id || ', Validation Type: ' || p_validation_set);
691: END IF;
692:
693: -- Bug Reference : 6006705
694: -- We need to trap the no data found condition here.
714:
715: /*
716: SELECT VALIDATION_ID
717: INTO L_SCEN_VALIDATION_ID
718: FROM FPA_VALIDATION_LINES
719: WHERE OBJECT_TYPE = 'BUDGET_VERSIONS_SCENARIO' AND
720: OBJECT_ID = L_SCENARIO_ID AND
721: HEADER_ID IS NULL AND
722: VALIDATION_TYPE = P_VALIDATION_SET;
741:
742: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
743: fnd_log.string ( FND_LOG.LEVEL_PROCEDURE,
744: 'fpa.sql.FPA_VALIDATION_PROCESS_PVT.Budget_Version_Validations 2.',
745: 'Entering loop for insert or updates into FPA_VALIDATION_LINES. Operation to be performed is: ' || l_type);
746: END IF;
747:
748:
749: FOR i IN p_line_projects_tbl.first .. p_line_projects_tbl.last LOOP
796:
797: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
798: fnd_log.string ( FND_LOG.LEVEL_PROCEDURE,
799: 'fpa.sql.FPA_VALIDATION_PROCESS_PVT.Budget_Version_Validations 2.',
800: 'Checking return status inside loop for inserting creating FPA_VALIDATION_LINES.');
801: END IF;
802:
803: if (l_return_status = FPA_UTILITIES_PVT.G_RET_STS_UNEXP_ERROR) then
804: l_msg_log := 'BUDGET_VERSIONS_PROJ-Create_Validation_Line';
812:
813: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
814: fnd_log.string ( FND_LOG.LEVEL_PROCEDURE,
815: 'fpa.sql.FPA_VALIDATION_PROCESS_PVT.Budget_Version_Validations 2.',
816: 'Finished loop for inserting updating FPA_VALIDATION_LINES.');
817: END IF;
818:
819: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
820: fnd_log.string ( FND_LOG.LEVEL_PROCEDURE,