23: OPEN csr_functional_usage;
24: FETCH csr_functional_usage INTO usage_record;
25: IF csr_functional_usage%NOTFOUND THEN
26: CLOSE csr_functional_usage;
27: Hr_Utility.Set_Message(801,'HR_6153_ALL_PROCEDURE_FAIL');
28: Hr_Utility.Set_Message_Token(
29: 'PROCEDURE',
30: 'PAY_FUNCTIONAL_USAGES_PKG.LOCK_ROW'
31: );
24: FETCH csr_functional_usage INTO usage_record;
25: IF csr_functional_usage%NOTFOUND THEN
26: CLOSE csr_functional_usage;
27: Hr_Utility.Set_Message(801,'HR_6153_ALL_PROCEDURE_FAIL');
28: Hr_Utility.Set_Message_Token(
29: 'PROCEDURE',
30: 'PAY_FUNCTIONAL_USAGES_PKG.LOCK_ROW'
31: );
32: END IF;
44: (usage_record.payroll_id IS NULL AND p_payroll_id IS NULL))
45: THEN
46: RETURN;
47: ELSE
48: Hr_Utility.Set_Message(0,'FORM_RECORD_CHANGED');
49: Hr_Utility.Raise_Error;
50: END IF;
51: END lock_row;
52: --
45: THEN
46: RETURN;
47: ELSE
48: Hr_Utility.Set_Message(0,'FORM_RECORD_CHANGED');
49: Hr_Utility.Raise_Error;
50: END IF;
51: END lock_row;
52: --
53: PROCEDURE insert_row(
91: OPEN csr_usage_rowid;
92: FETCH csr_usage_rowid INTO p_row_id;
93: IF csr_usage_rowid%NOTFOUND THEN
94: CLOSE csr_usage_rowid;
95: Hr_Utility.Set_Message(801,'HR_6153_ALL_PROCEDURE_FAIL');
96: Hr_Utility.Set_Message_Token(
97: 'PROCEDURE',
98: 'PAY_FUNCTIONAL_USAGES_PKG.INSERT_ROW'
99: );
92: FETCH csr_usage_rowid INTO p_row_id;
93: IF csr_usage_rowid%NOTFOUND THEN
94: CLOSE csr_usage_rowid;
95: Hr_Utility.Set_Message(801,'HR_6153_ALL_PROCEDURE_FAIL');
96: Hr_Utility.Set_Message_Token(
97: 'PROCEDURE',
98: 'PAY_FUNCTIONAL_USAGES_PKG.INSERT_ROW'
99: );
100: END IF;
119: payroll_id = p_payroll_id
120: WHERE rowid = p_row_id;
121: --
122: IF SQL%NOTFOUND THEN
123: Hr_Utility.Set_Message(801,'HR_6153_ALL_PROCEDURE_FAIL');
124: Hr_Utility.Set_Message_Token(
125: 'PROCEDURE',
126: 'PAY_FUNCTIONAL_USAGES_PKG.UPDATE_ROW'
127: );
120: WHERE rowid = p_row_id;
121: --
122: IF SQL%NOTFOUND THEN
123: Hr_Utility.Set_Message(801,'HR_6153_ALL_PROCEDURE_FAIL');
124: Hr_Utility.Set_Message_Token(
125: 'PROCEDURE',
126: 'PAY_FUNCTIONAL_USAGES_PKG.UPDATE_ROW'
127: );
128: END IF;
137: FROM pay_functional_usages
138: WHERE rowid = p_row_id;
139: --
140: IF SQL%NOTFOUND THEN
141: Hr_Utility.Set_Message(801,'HR_6153_ALL_PROCEDURE_FAIL');
142: Hr_Utility.Set_Message_Token(
143: 'PROCEDURE',
144: 'PAY_FUNCTIONAL_USAGES_PKG.DELETE_ROW'
145: );
138: WHERE rowid = p_row_id;
139: --
140: IF SQL%NOTFOUND THEN
141: Hr_Utility.Set_Message(801,'HR_6153_ALL_PROCEDURE_FAIL');
142: Hr_Utility.Set_Message_Token(
143: 'PROCEDURE',
144: 'PAY_FUNCTIONAL_USAGES_PKG.DELETE_ROW'
145: );
146: END IF;