[Home] [Help]
14: l_project_number pa_projects_all.segment1%TYPE;
15: l_expenditure_org_id hr_organization_units.organization_id%TYPE;
16: l_project_org_id hr_organization_units.organization_id%TYPE;
17: l_acc_org_id hr_organization_units.organization_id%TYPE;
18: l_org_map pa_lookups.meaning%TYPE;
19: l_expenditure_type pa_expenditure_types.expenditure_type%TYPE;
20: l_segment_value gl_code_combinations.segment1%TYPE;
21:
22: BEGIN
31: -- Assume that rules for obtaining the segment are as follows: If the
32: -- first two characters of the project number are 'AA' then the
33: -- project org should be used to get the segment otherwise the
34: -- expenditure org should be used to get the segment. Also assume that
35: -- the segment value is obtained from a lookup table, say PA_LOOKUPS
36: -- using the organization id and the expenditure type.
37: --
38: -- The equivalent SQL function in autoaccounting would have had the
39: -- Project number, Expenditure Organization Id, Project Organization
94: l_acc_org_id := l_expenditure_org_id;
95: END IF;
96:
97: -- Assume that the organization id is mapped to another field from a lookup
98: -- table. PA_LOOKUPS has been used in this example. Any table could
99: -- function as a lookup. Please note that the LOOKUP_TYPE used here
100: -- may not actually exist and is just used for illustration
101:
102: BEGIN
102: BEGIN
103:
104: SELECT meaning
105: INTO l_org_map
106: FROM pa_lookups
107: WHERE lookup_type = 'ORG_TO_ACC'
108: AND lookup_code = l_acc_org_id;
109:
110: EXCEPTION
138: RETURN;
139: END;
140:
141: -- Assume that the final segment value is again derived from
142: -- PA_LOOKUPS and is a combination of the variable l_org_map
143: -- determined above and the Expenditure type
144:
145: BEGIN
146:
145: BEGIN
146:
147: SELECT meaning
148: INTO l_segment_value
149: FROM pa_lookups
150: WHERE lookup_type = 'ORG_EXP_TYPE'
151: AND lookup_code = l_org_map || l_expenditure_type;
152:
153: EXCEPTION