[Home] [Help]
1216: fem_engines_pkg.tech_message(p_severity=>G_LOG_STATEMENT ,
1217: p_module=> l_module_name,
1218: p_msg_text=> 'match found.. failing');
1219: z_Err_Code := 4;
1220: -- todo:: fix to new standards..
1221: IF p_Child_Object_Type_Code = 'RULE_SET' THEN
1222:
1223: FEM_UTILS.set_master_err_state( z_master_err_state,
1224: FEM_UTILS.G_RSM_NONFATAL_ERR,
1370: x_Rule_Set_Level := x_Rule_Set_Level +1;
1371:
1372: /***Level Check***/
1373: If (x_Rule_Set_Level > g_max_rule_set_depth) then
1374: -- todo:: fix to new standards..
1375: z_Err_Code := 3;
1376: FEM_UTILS.set_master_err_state( z_master_err_state,
1377: FEM_UTILS.G_RSM_FATAL_ERR,
1378: G_APP_NAME,
1758: End;
1759:
1760: If (l_Dependent_Obj_Def_ID = -1) then
1761: -- we DIDN'T find a def ID for this dependent object..
1762: -- todo:: fix to new standards
1763: z_Err_Code := 6;
1764: --FEM_UTILS.set_master_err_state( z_master_err_state,
1765: -- FEM_UTILS.G_RSM_NONFATAL_ERR,
1766: -- G_APP_NAME,
1932:
1933: If (p_Rule_Obj_Def_ID = -1) then
1934: -- no valid definition ID!
1935: p_Valid_Rule_Def_Status := G_RSM_NO_VALID_DEFN;
1936: -- todo:: fix to new standards ... this one may be ok
1937: z_Err_Code := 1;
1938: FEM_UTILS.set_master_err_state( z_master_err_state,
1939: FEM_UTILS.G_RSM_NONFATAL_ERR,
1940: G_APP_NAME,
1958: ,p_object_id => p_Rule_Object_ID
1959: ,p_lock_exists => l_Is_Rule_Locked);
1960: If (l_Is_Rule_Locked) then
1961: p_Valid_Lock_Status := G_RSM_RULE_LOCKED;
1962: -- todo:: fix to new standards..
1963: z_Err_Code := 7;
1964: set_master_err_state(FEM_UTILS.G_RSM_NONFATAL_ERR,
1965: G_APP_NAME,);
1966: Else
1975: -- our general session LOCAL_VS must match the rule's LOCAL_VS, or we
1976: -- have SERIOUS problems (non-existant dimension values)
1977: If (p_Rule_Local_VS_Combo_ID <> z_local_vs_for_session) then
1978: p_Valid_Local_VS_Status := G_RSM_INVALID_STATUS;
1979: -- todo:: fix to new standards
1980: z_Err_Code := 8;
1981: FEM_UTILS.set_master_err_state( z_master_err_state,
1982: FEM_UTILS.G_RSM_NONFATAL_ERR,
1983: G_APP_NAME,
1998: If (p_IsProductionODS) then
1999:
2000: If ((l_Rule_Approval_Status_Code <> 'APPROVED')AND(l_Rule_Approval_Status_Code <> 'XX')) then
2001: p_Valid_Approval_Status := G_RSM_RULE_NOT_APPROVED;
2002: -- todo:: fix to new standards
2003: z_Err_Code := 5;
2004: FEM_UTILS.set_master_err_state( z_master_err_state,
2005: FEM_UTILS.G_RSM_NONFATAL_ERR,
2006: G_APP_NAME,
2842: z_Err_Code := 0;
2843:
2844: -- fetch the local value set associated with the p_Ledger_ID we were passed.
2845: Begin
2846: -- todo:: fix to new standards ??
2847: z_local_vs_for_session := fem_dimension_util_pkg.Local_VS_Combo_ID
2848: ( p_Ledger_ID
2849: , z_Err_Code
2850: ,l_TEMP);
2849: , z_Err_Code
2850: ,l_TEMP);
2851:
2852: If (z_local_vs_for_session = -1) then
2853: -- todo:: fix to new standards..
2854: RAISE USER_EXCEPTION;
2855: End If;
2856: End;
2857:
2875: G_ERRMAC_RULE_NAME,
2876: GetObjectDisplayName(p_Rule_Object_ID)
2877: );
2878: z_Err_Msg := G_INVALID_LVSCID_ON_OBJECT;
2879: -- todo:: fix to new standards..
2880: RAISE USER_EXCEPTION;
2881: End If;
2882:
2883: End;
2911: FEM_UTILS.G_RSM_NONFATAL_ERR,
2912: G_APP_NAME,
2913: G_ERRMSG_DSGRP_NOT_FOUND );
2914: z_Err_Msg := G_INVALID_DATASET_GROUP;
2915: -- todo:: fix to new standards..
2916: RAISE USER_EXCEPTION;
2917: End If;
2918:
2919: Log_Rule_Status( p_Rule_Object_ID
2941: EXCEPTION
2942: WHEN USER_EXCEPTION THEN
2943: x_Err_Code := z_Err_Code;
2944: x_Err_Msg := z_Err_Msg;
2945: -- todo:: fix to new standards
2946: fem_engines_pkg.user_message(p_msg_text =>
2947: z_Err_Code||':'||z_Err_Msg);
2948: fnd_file.put_line(FND_FILE.OUTPUT,z_Err_Msg);
2949: ROLLBACK TO Validate_Rule_Public_SvPt;
2983:
2984: Begin
2985: -- *******************************************************************************************
2986: -- name : Validate_Rule_Public
2987: -- Function : Standards-compliant wrapper around Validate_Rule_Public
2988: --
2989: -- HISTORY
2990: -- 27-Jun-2006 dyung initial version
2991: --
3451: ,p_Continue_Process_On_Err_Flg IN VARCHAR2
3452: ,p_Execution_Mode IN VARCHAR2
3453: )
3454: IS
3455: -- STANDARD STUFF
3456: l_api_version NUMBER := 1.0;
3457: l_api_name CONSTANT VARCHAR2(27) := 'FEM_Preprocess_RuleSet_PVT';
3458: l_module_name VARCHAR2(70) := G_MODULE_NAME || l_api_name;
3459:
3498: reset_master_err_state;
3499: z_dataset_error := FALSE;
3500:
3501: -------------------------------------------------------
3502: -- standard API support header ------------------------
3503: -------------------------------------------------------
3504:
3505: -- initialize our status to 'we are good!'
3506: x_return_status := FND_API.G_RET_STS_SUCCESS;
3568: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3569: END IF;
3570:
3571: -------------------------------------------------------
3572: -- end of standard API support header -----------------
3573: -------------------------------------------------------
3574:
3575: -- todo:: most likely bye-bye
3576: z_Err_Code := 0;
3679: -- For nonfatal errors, report error if "continue to process on error"
3680: -- is set to No. In either case, do not rollback what was stored
3681: -- in fem_ruleset_process_data so the engines can run.
3682: -- Ideally, we want to differentiate between a fatal and nonfatal error
3683: -- but since the FND API Standard has only one expected error code,
3684: -- we have to continue to report error for the same cases as before this
3685: -- change for backward compatability.
3686: ELSIF ((z_master_err_state = FEM_UTILS.G_RSM_NONFATAL_ERR) AND
3687: (NOT z_continue_on_error)) THEN
3689: END IF;
3690:
3691:
3692: -------------------------------------------------------
3693: -- standard API support
3694: -------------------------------------------------------
3695: IF fnd_api.to_boolean(p_commit) THEN
3696: COMMIT WORK;
3697: END IF;