116: BEGIN
117: -- Fetch criteria_set_id from the sequence
118:
119: SELECT GL_AUTOREV_CRITERIA_SETS_S.Nextval INTO l_criteria_set_id
120: FROM DUAL;
121:
122: -- Retrun new criteria_set_id;
123:
124: RETURN(l_criteria_set_id);
158: Return Boolean IS
159:
160: x_ledger_id NUMBER := 0;
161: BEGIN
162: SELECT 1 into x_ledger_id FROM DUAL
163: WHERE EXISTS (SELECT ledger_id FROM GL_LEDGERS
164: where criteria_set_id = x_criteria_set_id);
165:
166: If (x_ledger_id = 1) Then