1 Package Pa_Tieback_Adj_Costs AUTHID CURRENT_USER As
2 /* $Header: PAXAPJTS.pls 115.1 2002/08/22 19:14:44 eyefimov noship $ */
3
4 TYPE PoDistTab IS TABLE OF VARCHAR2(1)
5 INDEX BY BINARY_INTEGER;
6
7 TYPE ParentTxnTab IS TABLE OF VARCHAR2(1)
8 INDEX BY BINARY_INTEGER;
9
10 Function Is_Adjusted(P_Po_Dist IN Number,
11 P_Txn_Id IN Number,
12 P_Parent_Txn_Id IN Number,
13 P_Trx_Type IN Varchar2) Return Varchar2;
14
15 Procedure TiebackAdjCosts(X_Return_Status OUT Varchar2,
16 X_Error_Message_Code OUT Varchar2);
17
18 G_REQUEST_ID Number;
19 G_PROGRAM_APPLICATION_ID Number;
20 G_PROGRAM_ID Number;
21 G_DEBUG_MODE Varchar2(1);
22
23 Procedure Init ;
24
25 Procedure Log_Message(P_Message IN Varchar2);
26
27 Procedure Write_Output (X_Return_Status OUT Varchar2,
28 X_Error_Message_Code OUT Varchar2);
29
30 End Pa_Tieback_Adj_Costs;