1 PACKAGE GMS_BILLING AS
2 -- $Header: gmsinbls.pls 120.0 2005/05/29 11:50:00 appldev noship $
3
4 PROCEDURE AWARD_BILLING( X_project_id IN NUMBER,
5 X_top_Task_id IN NUMBER DEFAULT NULL,
6 X_calling_process IN VARCHAR2 DEFAULT NULL,
7 X_calling_place IN VARCHAR2 DEFAULT NULL,
8 X_amount IN NUMBER DEFAULT NULL,
9 X_percentage IN NUMBER DEFAULT NULL,
10 X_rev_or_bill_date IN DATE DEFAULT NULL,
11 X_bill_extn_assignment_id IN NUMBER DEFAULT NULL,
12 X_bill_extension_id IN NUMBER DEFAULT NULL,
13 X_request_id IN NUMBER DEFAULT NULL) ;
14 TYPE Mark_Sel_Grp_Diff_Array IS TABLE OF VARCHAR2(1) INDEX BY BINARY_INTEGER;
15 TYPE Selected_Values_Rows IS TABLE OF VARCHAR2(1000) INDEX BY BINARY_INTEGER;
16 TYPE Padding_Length_Array IS TABLE OF NUMBER(3) INDEX BY BINARY_INTEGER;
17 TYPE Running_Total_Array IS TABLE OF NUMBER(10) INDEX BY BINARY_INTEGER;
18 TYPE Free_Text_Array IS TABLE OF VARCHAR2(240) INDEX BY BINARY_INTEGER;
19
20 TYPE Burden_Component_Rec_Type IS RECORD(actual_project_id NUMBER(15) := NULL,
21 actual_task_id NUMBER(15) := NULL,
22 burden_expenditure_type VARCHAR2(30) := NULL,
23 burden_cost_code VARCHAR2(30) := NULL,
24 expenditure_org_id NUMBER(15) := NULL,
25 burden_cost NUMBER := NULL);
26
27 TYPE Burden_Component_Tab_Type IS TABLE OF Burden_Component_Rec_Type
28 INDEX BY BINARY_INTEGER;
29
30 -- PROCEDURE: INSERT_EVENT, new procedure to insert records into GMS_EVENT_ATTRIBUTE table
31
32 PROCEDURE INSERT_EVENT(X_AWARD_PROJECT_ID IN NUMBER DEFAULT NULL,
33 X_EVENT_NUM IN NUMBER DEFAULT NULL,
34 X_INSTALLMENT_ID IN NUMBER DEFAULT NULL,
35 X_ACTUAL_PROJECT_ID IN NUMBER DEFAULT NULL,
36 X_ACTUAL_TASK_ID IN NUMBER DEFAULT NULL,
37 X_BURDEN_COST_CODE IN VARCHAR2 DEFAULT NULL,
38 X_EXPENDITURE_ORG_ID IN NUMBER DEFAULT NULL,
39 X_BILL_AMOUNT IN NUMBER DEFAULT NULL,
40 X_REVENUE_AMOUNT IN NUMBER DEFAULT NULL,
41 X_REQUEST_ID IN NUMBER DEFAULT NULL,
42 X_EXPENDITURE_TYPE IN VARCHAR2 DEFAULT NULL,
43 X_Err_Code IN OUT NOCOPY NUMBER,
44 X_Err_Buff IN OUT NOCOPY VARCHAR2,
45 X_Calling_Process IN VARCHAR2 DEFAULT NULL);
46
47 -- PROCEDURE: UPDATE_EVENT, new procedure to update GMS_EVENT_ATTRIBUTE table records
48
49 PROCEDURE UPDATE_EVENT(X_AWARD_PROJECT_ID IN NUMBER DEFAULT NULL,
50 X_EVENT_NUM IN NUMBER DEFAULT NULL,
51 X_INSTALLMENT_ID IN NUMBER DEFAULT NULL,
52 X_ACTUAL_PROJECT_ID IN NUMBER DEFAULT NULL,
53 X_ACTUAL_TASK_ID IN NUMBER DEFAULT NULL,
54 X_BURDEN_COST_CODE IN VARCHAR2 DEFAULT NULL,
55 X_EXPENDITURE_ORG_ID IN NUMBER DEFAULT NULL,
56 X_BILL_AMOUNT IN NUMBER DEFAULT NULL,
57 X_REVENUE_AMOUNT IN NUMBER DEFAULT NULL,
58 X_REQUEST_ID IN NUMBER DEFAULT NULL,
59 X_EXPENDITURE_TYPE IN VARCHAR2 DEFAULT NULL,
60 X_Err_Code IN OUT NOCOPY NUMBER,
61 X_Err_Buff IN OUT NOCOPY VARCHAR2);
62
63 -- PROCEDURE: DELETE_EVENT, new procedure to delete records from GMS_EVENT_ATTRIBUTE table
64
65 PROCEDURE DELETE_EVENT (X_AWARD_PROJECT_ID IN NUMBER,
66 X_EVENT_NUM IN NUMBER,
67 X_INSTALLMENT_ID IN NUMBER,
68 X_Err_Code IN OUT NOCOPY NUMBER,
69 X_Err_Buff IN OUT NOCOPY VARCHAR2);
70
71 -- Function : GET_TOTAL_ADL_RAW_COST to get the total billable amount
72 FUNCTION GET_TOTAL_ADL_RAW_COST(X_BILLING_TYPE IN VARCHAR2 , X_EXPENDITURE_ITEM_ID IN NUMBER ) RETURN NUMBER;
73
74 -- Function Is_Invoice_Format_Valid : This is called from :AWARDS form and gms_billing.award_billing
75 -- Function checks whether the invoice format (labor/non-labor) has any element (column) that is not
76 -- supported by Grants Accounting.
77 -- Calling context would be 'AWARDS_FORM' or 'BILLING_PROCESS'
78 -- Function returns TRUE is format is VALID else returns FALSE
79
80 Function Is_Invoice_Format_Valid(X_Award_project_id IN NUMBER,
81 X_Labor_format_id IN NUMBER,
82 X_Non_Labor_format_id IN NUMBER,
83 X_calling_context IN VARCHAR2)
84 RETURN BOOLEAN;
85
86 END GMS_BILLING;