1 PACKAGE PA_WORK_TYPE_UPGRADE AUTHID CURRENT_USER AS
2 /* $Header: PAWKUPGS.pls 120.1 2005/08/05 14:58:47 vgade noship $ */
3
4 /* Procedure: Upgrade_WT_Main
5
6 Updates Work Type Id on
7 pa_projects_all,
8 pa_tasks,
9 pa_expenditure_items_all,
10 pa_cost_distribution_lines_all
11
12 Simultaneously, it also updates Tp Amt Type Code on
13 pa_expenditure_items_all,
14 pa_cc_dist_lines_all
15 pa_draft_invoice_details_all
16
17 Parameters: IN
18 P_Num_Of_Processes : User given number, that many processes will be spawned
19 P_Worker_Id : Holds the worker id
20 P_Org_Id : Holds the operating unit
21 P_Txn_Date_Arg : Holds the transaction start date
22
23 --Added for R12 AP Lines uptake
24 P_Min_Project_Id : Holds the minimum of the project id range, internally used
25 P_Max_Project_Id : Holds the maximum of the project id range, internally used
26
27 OUT
28 X_Return_Status : Currently not used
29 X_Error_Message_Code : Currently not used
30
31 */
32
33 Procedure Upgrade_WT_Main(
34 X_RETURN_STATUS OUT NOCOPY VARCHAR2
35 ,X_ERROR_MESSAGE_CODE OUT NOCOPY VARCHAR2
36 ,P_TXN_TYPE IN VARCHAR2
37 ,P_TXN_SRC IN VARCHAR2
38 ,P_NUM_OF_PROCESSES IN NUMBER
39 ,P_WORKER_ID IN NUMBER
40 ,P_ORG_ID IN NUMBER DEFAULT NULL
41 ,P_TXN_DATE IN VARCHAR2
42 ,P_Min_Project_Id IN NUMBER DEFAULT NULL
43 ,P_Max_Project_Id IN NUMBER DEFAULT NULL
44 );
45
46 TYPE ResStsRecord is RECORD (
47 Request_Id NUMBER,
48 Status Varchar2(255));
49
50 TYPE ResStsTabType is TABLE of ResStsRecord INDEX BY BINARY_INTEGER;
51
52 END PA_WORK_TYPE_UPGRADE;