74:
75: BEGIN
76:
77: IF p_ERROR_MSG IS NULL THEN
78: l_ERROR_MSG := FND_MESSAGE.GET;
79: FND_MESSAGE.CLEAR;
80: ELSE
81: l_ERROR_MSG := p_ERROR_MSG;
82: END IF;
75: BEGIN
76:
77: IF p_ERROR_MSG IS NULL THEN
78: l_ERROR_MSG := FND_MESSAGE.GET;
79: FND_MESSAGE.CLEAR;
80: ELSE
81: l_ERROR_MSG := p_ERROR_MSG;
82: END IF;
83:
105: EXCEPTION
106: WHEN others THEN
107: -- Bug 12919783
108: hr_utility.trace(dbms_utility.format_error_backtrace);
109: FND_MESSAGE.SET_NAME('HXT','HXT_39469_ERR_INS_HXT_ERR');
110: l_error := SQLERRM;
111: insert into hxt_errors_f(id, error_msg, creation_date, location,
112: created_by, err_type, PPB_ID, TIM_ID, HRW_ID, PTP_ID, ora_message
113: ,EFFECTIVE_START_DATE
112: created_by, err_type, PPB_ID, TIM_ID, HRW_ID, PTP_ID, ora_message
113: ,EFFECTIVE_START_DATE
114: ,EFFECTIVE_END_DATE)
115: values(l_EXCEP_seqno,
116: FND_MESSAGE.GET||' '||nls_initcap(substr(p_error_msg,1,100)),
117: sysdate, 'ERROR', 999, 'NEW', 999, 999, 999, 999,
118: l_error
119: ,nvl(p_EFFECTIVE_START_DATE,sysdate)
120: ,nvl(p_EFFECTIVE_END_DATE,hr_general.end_of_time)); --FORMS60
117: sysdate, 'ERROR', 999, 'NEW', 999, 999, 999, 999,
118: l_error
119: ,nvl(p_EFFECTIVE_START_DATE,sysdate)
120: ,nvl(p_EFFECTIVE_END_DATE,hr_general.end_of_time)); --FORMS60
121: FND_MESSAGE.CLEAR;
122: END;
123: END gen_error;
124: --
125: /*-------------------------Procedure GEN_ERROR---------------------------------*/
172: l_person_id := GetPersonID(p_TIM_ID);
173: l_payroll_id := GetPayrollID(p_PTP_ID);
174:
175: IF p_ERROR_MSG IS NULL THEN
176: l_ERROR_MSG := FND_MESSAGE.GET;
177: FND_MESSAGE.CLEAR;
178: ELSE
179: l_ERROR_MSG := p_ERROR_MSG;
180: END IF;
173: l_payroll_id := GetPayrollID(p_PTP_ID);
174:
175: IF p_ERROR_MSG IS NULL THEN
176: l_ERROR_MSG := FND_MESSAGE.GET;
177: FND_MESSAGE.CLEAR;
178: ELSE
179: l_ERROR_MSG := p_ERROR_MSG;
180: END IF;
181: BEGIN
201: EXCEPTION
202: WHEN others THEN
203: -- Bug 12919783
204: hr_utility.trace(dbms_utility.format_error_backtrace);
205: FND_MESSAGE.SET_NAME('HXT','HXT_39469_ERR_INS_HXT_ERR');
206: l_error := SQLERRM;
207: insert into hxt_errors_f(id, error_msg, creation_date, location,
208: created_by, err_type, TIM_ID, HRW_ID, PTP_ID, ora_message
209: ,EFFECTIVE_START_DATE
208: created_by, err_type, TIM_ID, HRW_ID, PTP_ID, ora_message
209: ,EFFECTIVE_START_DATE
210: ,EFFECTIVE_END_DATE)
211: values(l_EXCEP_seqno,
212: FND_MESSAGE.GET||' '||nls_initcap(substr(p_error_msg,1,100)),
213: sysdate, 'ERROR', 999, 'NEW', 999, 999, 999,
214: l_error
215: ,nvl(p_EFFECTIVE_START_DATE,sysdate)
216: ,nvl(p_EFFECTIVE_END_DATE,hr_general.end_of_time));
213: sysdate, 'ERROR', 999, 'NEW', 999, 999, 999,
214: l_error
215: ,nvl(p_EFFECTIVE_START_DATE,sysdate)
216: ,nvl(p_EFFECTIVE_END_DATE,hr_general.end_of_time));
217: FND_MESSAGE.CLEAR;
218: END;
219: END gen_error;
220: --
221: -------------------------------------Procedure autogen_error-------------------------------------
1533: -- RETURN 0;
1534:
1535: EXCEPTION
1536: WHEN no_structure_found THEN
1537: FND_MESSAGE.SET_NAME('HXT','HXT_39470_CA_NOT_LOC_4_BUS_GRP');
1538: o_error_msg := FND_MESSAGE.GET;
1539: FND_MESSAGE.CLEAR;
1540: DEBUG('Cost Allocation Structure not located for this Business Group');
1541: RETURN 1;
1534:
1535: EXCEPTION
1536: WHEN no_structure_found THEN
1537: FND_MESSAGE.SET_NAME('HXT','HXT_39470_CA_NOT_LOC_4_BUS_GRP');
1538: o_error_msg := FND_MESSAGE.GET;
1539: FND_MESSAGE.CLEAR;
1540: DEBUG('Cost Allocation Structure not located for this Business Group');
1541: RETURN 1;
1542: WHEN flex_not_found THEN
1535: EXCEPTION
1536: WHEN no_structure_found THEN
1537: FND_MESSAGE.SET_NAME('HXT','HXT_39470_CA_NOT_LOC_4_BUS_GRP');
1538: o_error_msg := FND_MESSAGE.GET;
1539: FND_MESSAGE.CLEAR;
1540: DEBUG('Cost Allocation Structure not located for this Business Group');
1541: RETURN 1;
1542: WHEN flex_not_found THEN
1543: FND_MESSAGE.SET_NAME('HXT','HXT_39471_CA_NOT_LOC_4_APP');
1539: FND_MESSAGE.CLEAR;
1540: DEBUG('Cost Allocation Structure not located for this Business Group');
1541: RETURN 1;
1542: WHEN flex_not_found THEN
1543: FND_MESSAGE.SET_NAME('HXT','HXT_39471_CA_NOT_LOC_4_APP');
1544: o_error_msg := FND_MESSAGE.GET;
1545: FND_MESSAGE.CLEAR;
1546: DEBUG('Cost Allocation Flexfield not located for application 801');
1547: RETURN 1;
1540: DEBUG('Cost Allocation Structure not located for this Business Group');
1541: RETURN 1;
1542: WHEN flex_not_found THEN
1543: FND_MESSAGE.SET_NAME('HXT','HXT_39471_CA_NOT_LOC_4_APP');
1544: o_error_msg := FND_MESSAGE.GET;
1545: FND_MESSAGE.CLEAR;
1546: DEBUG('Cost Allocation Flexfield not located for application 801');
1547: RETURN 1;
1548: WHEN cost_flex_not_enabled THEN
1541: RETURN 1;
1542: WHEN flex_not_found THEN
1543: FND_MESSAGE.SET_NAME('HXT','HXT_39471_CA_NOT_LOC_4_APP');
1544: o_error_msg := FND_MESSAGE.GET;
1545: FND_MESSAGE.CLEAR;
1546: DEBUG('Cost Allocation Flexfield not located for application 801');
1547: RETURN 1;
1548: WHEN cost_flex_not_enabled THEN
1549: FND_MESSAGE.SET_NAME('HXT','HXT_39472_CA_NOT_ENABLED');
1545: FND_MESSAGE.CLEAR;
1546: DEBUG('Cost Allocation Flexfield not located for application 801');
1547: RETURN 1;
1548: WHEN cost_flex_not_enabled THEN
1549: FND_MESSAGE.SET_NAME('HXT','HXT_39472_CA_NOT_ENABLED');
1550: o_error_msg := FND_MESSAGE.GET;
1551: FND_MESSAGE.CLEAR;
1552: DEBUG('Cost Allocation Flexfield is not enabled');
1553: RETURN 1;
1546: DEBUG('Cost Allocation Flexfield not located for application 801');
1547: RETURN 1;
1548: WHEN cost_flex_not_enabled THEN
1549: FND_MESSAGE.SET_NAME('HXT','HXT_39472_CA_NOT_ENABLED');
1550: o_error_msg := FND_MESSAGE.GET;
1551: FND_MESSAGE.CLEAR;
1552: DEBUG('Cost Allocation Flexfield is not enabled');
1553: RETURN 1;
1554: WHEN cost_flex_not_frozen THEN
1547: RETURN 1;
1548: WHEN cost_flex_not_enabled THEN
1549: FND_MESSAGE.SET_NAME('HXT','HXT_39472_CA_NOT_ENABLED');
1550: o_error_msg := FND_MESSAGE.GET;
1551: FND_MESSAGE.CLEAR;
1552: DEBUG('Cost Allocation Flexfield is not enabled');
1553: RETURN 1;
1554: WHEN cost_flex_not_frozen THEN
1555: FND_MESSAGE.SET_NAME('HXT','HXT_39473_CA_NOT_COMPILED');
1551: FND_MESSAGE.CLEAR;
1552: DEBUG('Cost Allocation Flexfield is not enabled');
1553: RETURN 1;
1554: WHEN cost_flex_not_frozen THEN
1555: FND_MESSAGE.SET_NAME('HXT','HXT_39473_CA_NOT_COMPILED');
1556: o_error_msg := FND_MESSAGE.GET;
1557: FND_MESSAGE.CLEAR;
1558: DEBUG('Cost Allocation Flexfield needs to be frozen and compiled');
1559: RETURN 1;
1552: DEBUG('Cost Allocation Flexfield is not enabled');
1553: RETURN 1;
1554: WHEN cost_flex_not_frozen THEN
1555: FND_MESSAGE.SET_NAME('HXT','HXT_39473_CA_NOT_COMPILED');
1556: o_error_msg := FND_MESSAGE.GET;
1557: FND_MESSAGE.CLEAR;
1558: DEBUG('Cost Allocation Flexfield needs to be frozen and compiled');
1559: RETURN 1;
1560: WHEN OTHERS THEN
1553: RETURN 1;
1554: WHEN cost_flex_not_frozen THEN
1555: FND_MESSAGE.SET_NAME('HXT','HXT_39473_CA_NOT_COMPILED');
1556: o_error_msg := FND_MESSAGE.GET;
1557: FND_MESSAGE.CLEAR;
1558: DEBUG('Cost Allocation Flexfield needs to be frozen and compiled');
1559: RETURN 1;
1560: WHEN OTHERS THEN
1561: -- Bug 12919783
2125: THEN
2126:
2127: -- the USER has modified the lookup_code
2128:
2129: fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
2130: fnd_message.set_token('PROCEDURE', 'HXTUTL');
2131: fnd_message.set_token('STEP','Invalid HXT_TIMECARD_VALIDATION-'||p_lookup_code);
2132: fnd_message.raise_error;
2133: END IF;
2126:
2127: -- the USER has modified the lookup_code
2128:
2129: fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
2130: fnd_message.set_token('PROCEDURE', 'HXTUTL');
2131: fnd_message.set_token('STEP','Invalid HXT_TIMECARD_VALIDATION-'||p_lookup_code);
2132: fnd_message.raise_error;
2133: END IF;
2134:
2127: -- the USER has modified the lookup_code
2128:
2129: fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
2130: fnd_message.set_token('PROCEDURE', 'HXTUTL');
2131: fnd_message.set_token('STEP','Invalid HXT_TIMECARD_VALIDATION-'||p_lookup_code);
2132: fnd_message.raise_error;
2133: END IF;
2134:
2135: FND_MESSAGE.SET_NAME('HXT',l_meaning);
2128:
2129: fnd_message.set_name('PAY', 'HR_6153_ALL_PROCEDURE_FAIL');
2130: fnd_message.set_token('PROCEDURE', 'HXTUTL');
2131: fnd_message.set_token('STEP','Invalid HXT_TIMECARD_VALIDATION-'||p_lookup_code);
2132: fnd_message.raise_error;
2133: END IF;
2134:
2135: FND_MESSAGE.SET_NAME('HXT',l_meaning);
2136: p_error_msg := FND_MESSAGE.GET;
2131: fnd_message.set_token('STEP','Invalid HXT_TIMECARD_VALIDATION-'||p_lookup_code);
2132: fnd_message.raise_error;
2133: END IF;
2134:
2135: FND_MESSAGE.SET_NAME('HXT',l_meaning);
2136: p_error_msg := FND_MESSAGE.GET;
2137: END IF;
2138:
2139: IF l_type = 'SKIP' THEN
2132: fnd_message.raise_error;
2133: END IF;
2134:
2135: FND_MESSAGE.SET_NAME('HXT',l_meaning);
2136: p_error_msg := FND_MESSAGE.GET;
2137: END IF;
2138:
2139: IF l_type = 'SKIP' THEN
2140: p_msg_level := ' ';
2140: p_msg_level := ' ';
2141: p_valid := ' ';
2142: RETURN;
2143: ELSIF l_type = 'ERR' THEN
2144: FND_MESSAGE.SET_NAME('HXT','HXT_39503_QUICK_CODE_STOP');
2145: l_error_msg := FND_MESSAGE.GET || p_error_msg;
2146: p_msg_level := 'E';
2147: ELSIF l_type = 'WRN' THEN
2148: FND_MESSAGE.SET_NAME('HXT','HXT_39504_QUICK_CODE_WARN');
2141: p_valid := ' ';
2142: RETURN;
2143: ELSIF l_type = 'ERR' THEN
2144: FND_MESSAGE.SET_NAME('HXT','HXT_39503_QUICK_CODE_STOP');
2145: l_error_msg := FND_MESSAGE.GET || p_error_msg;
2146: p_msg_level := 'E';
2147: ELSIF l_type = 'WRN' THEN
2148: FND_MESSAGE.SET_NAME('HXT','HXT_39504_QUICK_CODE_WARN');
2149: l_error_msg := FND_MESSAGE.GET || p_error_msg;
2144: FND_MESSAGE.SET_NAME('HXT','HXT_39503_QUICK_CODE_STOP');
2145: l_error_msg := FND_MESSAGE.GET || p_error_msg;
2146: p_msg_level := 'E';
2147: ELSIF l_type = 'WRN' THEN
2148: FND_MESSAGE.SET_NAME('HXT','HXT_39504_QUICK_CODE_WARN');
2149: l_error_msg := FND_MESSAGE.GET || p_error_msg;
2150: p_msg_level := 'W';
2151: ELSE
2152: FND_MESSAGE.SET_NAME('HXT','HXT_39505_INVALID_QUICK_CODE');
2145: l_error_msg := FND_MESSAGE.GET || p_error_msg;
2146: p_msg_level := 'E';
2147: ELSIF l_type = 'WRN' THEN
2148: FND_MESSAGE.SET_NAME('HXT','HXT_39504_QUICK_CODE_WARN');
2149: l_error_msg := FND_MESSAGE.GET || p_error_msg;
2150: p_msg_level := 'W';
2151: ELSE
2152: FND_MESSAGE.SET_NAME('HXT','HXT_39505_INVALID_QUICK_CODE');
2153: l_error_msg := FND_MESSAGE.GET;
2148: FND_MESSAGE.SET_NAME('HXT','HXT_39504_QUICK_CODE_WARN');
2149: l_error_msg := FND_MESSAGE.GET || p_error_msg;
2150: p_msg_level := 'W';
2151: ELSE
2152: FND_MESSAGE.SET_NAME('HXT','HXT_39505_INVALID_QUICK_CODE');
2153: l_error_msg := FND_MESSAGE.GET;
2154: l_type := 'ERR';
2155: p_msg_level := 'E';
2156: END IF;
2149: l_error_msg := FND_MESSAGE.GET || p_error_msg;
2150: p_msg_level := 'W';
2151: ELSE
2152: FND_MESSAGE.SET_NAME('HXT','HXT_39505_INVALID_QUICK_CODE');
2153: l_error_msg := FND_MESSAGE.GET;
2154: l_type := 'ERR';
2155: p_msg_level := 'E';
2156: END IF;
2157:
2208: -- Bug 12919783
2209: hr_utility.trace(dbms_utility.format_error_backtrace);
2210: l_error := SQLERRM;
2211:
2212: FND_MESSAGE.SET_NAME('HXT','HXT_39469_ERR_INS_HXT_ERR');
2213: insert into hxt_errors_f(
2214: id,
2215: error_msg,
2216: creation_date,
2224: ora_message,
2225: EFFECTIVE_START_DATE,
2226: EFFECTIVE_END_DATE)
2227: values(l_EXCEP_seqno,
2228: FND_MESSAGE.GET
2229: ||nls_initcap(substr(p_error_msg,1,100)),
2230: sysdate,
2231: 'SET_TIMECARD_ERROR',
2232: -1,