PACKAGE BODY: APPS.PA_WEBADI_TRX_XFACE

Source

1 PACKAGE BODY PA_WEBADI_TRX_XFACE as
2 /* $Header: PAXWADIB.pls 120.2 2006/05/03 15:26 eyefimov noship $ */
3 
4 Procedure Trx_Import ( P_Transaction_Source IN VARCHAR2,
5                        P_Batch_Name         IN VARCHAR2,
6                        P_Org_Id             IN NUMBER,
7                        X_Msg               OUT NOCOPY VARCHAR,
8                        X_Request_Id        OUT NOCOPY NUMBER )
9 is
10 
11 begin
12 
13      Fnd_Request.Set_Org_Id(P_Org_Id);
14      X_Request_Id := Fnd_Request.Submit_Request(
15                                            'PA',
16                                            'PAXTRTRX',
17                                            NULL,
18                                            NULL,
19                                            FALSE,
20                                            P_Transaction_Source ,
21                                            P_Batch_Name,
22                                            chr(0),NULL,NULL,NULL,NULL,NULL,NULL,NULL,
23                                            NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,
24                                            NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,
25                                            NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,
26                                            NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,
27                                            NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,
28                                            NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,
29                                            NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,
30                                            NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,
31                                            NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL) ;
32 
33     if ( X_Request_Id = 0 ) then
34         FND_MESSAGE.Retrieve(X_Msg);
35     else
36         x_msg := ' ';
37         commit ;
38     end if ;
39 
40 Exception
41      When Others Then
42           Raise;
43 
44 End Trx_Import ;
45 
46 Function Get_Default_OU_Name Return Varchar2 is
47 
48       l_Default_Org_Id Number := Null;
49       l_Default_Ou_Name Varchar2(240) := Null;
50       l_Ou_Count Number := Null;
51 
52 Begin
53 
54       Pa_Moac_Utils.Initialize(P_Product_Code => 'PA');
55       Pa_Moac_Utils.Get_Default_OU(P_Product_Code => 'PA',
56                                    P_Default_Org_Id => l_Default_Org_Id,
57                                    P_Default_Ou_Name => l_Default_Ou_Name,
58                                    P_Ou_Count => l_Ou_Count);
59 
60       Return (l_Default_Ou_Name);
61 
62 End Get_Default_OU_Name;
63 
64 Function Get_Default_Ou_Id Return Number is
65 
66       l_Default_Org_Id Number := Null;
67       l_Default_Ou_Name Varchar2(240) := Null;
68       l_Ou_Count Number := Null;
69 
70 Begin
71 
72       Pa_Moac_Utils.Initialize(P_Product_Code => 'PA');
73       Pa_Moac_Utils.Get_Default_OU(P_Product_Code => 'PA',
74                                    P_Default_Org_Id => l_Default_Org_Id,
75                                    P_Default_Ou_Name => l_Default_Ou_Name,
76                                    P_Ou_Count => l_Ou_Count);
77 
78       Return (l_Default_Org_Id);
79 
80 End Get_Default_OU_Id;
81 
82 End PA_WEBADI_TRX_XFACE;