[Home] [Help]
1: PACKAGE BODY PER_LETTER_GEN_STATUSES_PKG as
2: /* $Header: pelts01t.pkb 115.2 99/07/18 14:01:54 porting ship $ */
3:
4: procedure ASSIGNMENT_STATUS_NOT_UNIQUE (
5: --
17: g_dummy_number number;
18: --
19: cursor csr_duplicate is
20: select null
21: from per_letter_gen_statuses x
22: where x.business_group_id + 0 = p_business_group_id
23: and x.assignment_status_type_id = p_assignment_status_type_id
24: and x.letter_type_id = p_letter_type_id
25: and (p_letter_gen_status_id is null
42: --
43: --
44: procedure get_next_sequence(p_letter_gen_status_id in out number) is
45: --
46: cursor c1 is select per_letter_gen_statuses_s.nextval
47: from sys.dual;
48: --
49: -- Retrieve the nnext sequence number for letter_gen_status_id field
50: --
99: close c1;
100: --
101: end get_assignment_status;
102: --
103: END PER_LETTER_GEN_STATUSES_PKG;