PACKAGE BODY: APPS.GL_AUTO_ALLOC_VW_PKG

Source

1 PACKAGE body gl_auto_alloc_vw_pkg AS
2 /* $Header: glalvwfb.pls 120.3 2005/05/05 02:01:27 kvora ship $ */
3 
4 FUNCTION Get_Batch_Name(BATCH_TYPE_CODE IN VARCHAR2,
5                         BATCH_ID        IN NUMBER ) RETURN VARCHAR2 IS
6   Cursor Allocation_Batch Is
7   Select Name
8   From gl_alloc_batches
9   Where Allocation_Batch_Id = BATCH_ID
10   And Actual_flag = BATCH_TYPE_CODE ;
11 
12   Cursor Recurring_Batch Is
13   Select Name
14   From Gl_Recurring_Batches
15   Where Recurring_Batch_Id =  BATCH_ID
16   And Budget_Flag = 'N';
17 
18   Cursor Project_Batch Is
19   Select rule_name
20   From pa_alloc_rules_all
21   Where rule_id = BATCH_ID;
22 
23  l_batch_name Varchar2(60) := NULL;
24 
25 Begin
26   If BATCH_TYPE_CODE In ('A','B','E') then
27      Open Allocation_Batch;
28      Fetch Allocation_Batch into l_batch_name;
29      if l_batch_name is NOT NULL Then
30         Return(l_batch_name);
31      End If;
32      Close Allocation_Batch;
33   ElsIf BATCH_TYPE_CODE = 'R' Then
34      Open Recurring_Batch;
35      Fetch Recurring_Batch into l_batch_name;
36      if l_batch_name is NOT NULL Then
37         Return(l_batch_name);
38      End If;
39      Close Recurring_Batch;
40   Elsif BATCH_TYPE_CODE = 'P' Then
41     Open Project_Batch;
42     Fetch Project_Batch into l_batch_name;
43      if l_batch_name is NOT NULL Then
44         Return(l_batch_name);
45      End If;
46      Close Project_Batch;
47 
48   End If;
49 End;
50 
51 
52 FUNCTION Get_Owner_Dsp (OWNER IN VARCHAR2) RETURN VARCHAR2  IS
53 Cursor dsp_name Is
54        Select Display_Name
55        From GL_WF_ROLES_V
56        Where Name = OWNER;
57 l_dsp_name VARCHAR2(240);
58 Begin
59  If OWNER Is NULL Then
60    Return Null;
61  Else
62    Open dsp_name;
63    Fetch dsp_name into l_dsp_name;
64    Close dsp_name;
65    Return l_dsp_name;
66  End if;
67 End Get_Owner_Dsp;
68 
69 
70 END gl_auto_alloc_vw_pkg;