DBA Data[Home] [Help]

APPS.JMF_GTA_SPLIT_TRX_PROC dependencies on JMF_GTA_TRX_UTIL

Line 106: , P_GTA_TRX_Tbl IN JMF_GTA_TRX_UTIL.TRX_TBL_TYPE

102: --=============================================================================
103: PROCEDURE Split_Transactions
104: ( P_ORG_ID IN NUMBER
105: , p_transfer_id IN NUMBER
106: , P_GTA_TRX_Tbl IN JMF_GTA_TRX_UTIL.TRX_TBL_TYPE
107: , x_GTA_TRX_Tbl OUT NOCOPY JMF_GTA_TRX_UTIL.TRX_TBL_TYPE
108: )
109: IS
110: l_procedure_name VARCHAR2(30):='Split_Transactions';

Line 107: , x_GTA_TRX_Tbl OUT NOCOPY JMF_GTA_TRX_UTIL.TRX_TBL_TYPE

103: PROCEDURE Split_Transactions
104: ( P_ORG_ID IN NUMBER
105: , p_transfer_id IN NUMBER
106: , P_GTA_TRX_Tbl IN JMF_GTA_TRX_UTIL.TRX_TBL_TYPE
107: , x_GTA_TRX_Tbl OUT NOCOPY JMF_GTA_TRX_UTIL.TRX_TBL_TYPE
108: )
109: IS
110: l_procedure_name VARCHAR2(30):='Split_Transactions';
111:

Line 125: l_GTA_TRX JMF_GTA_TRX_UTIL.trx_rec_type; -- trx get from input parameter

121: l_max_line NUMBER;
122: l_sales_list_flag jmf_gta_rule_headers_all.Sales_List_Flag%TYPE;
123: l_split_flag jmf_gta_system_parameters.Trx_Line_Split_Flag%TYPE;
124:
125: l_GTA_TRX JMF_GTA_TRX_UTIL.trx_rec_type; -- trx get from input parameter
126: l_gta_trx_succesed JMF_GTA_TRX_UTIL.trx_rec_type; -- trx for insert into temp table for report
127: l_gta_trx_init JMF_GTA_TRX_UTIL.trx_rec_type; -- trx for init
128:
129: -- use when split a trx line

Line 126: l_gta_trx_succesed JMF_GTA_TRX_UTIL.trx_rec_type; -- trx for insert into temp table for report

122: l_sales_list_flag jmf_gta_rule_headers_all.Sales_List_Flag%TYPE;
123: l_split_flag jmf_gta_system_parameters.Trx_Line_Split_Flag%TYPE;
124:
125: l_GTA_TRX JMF_GTA_TRX_UTIL.trx_rec_type; -- trx get from input parameter
126: l_gta_trx_succesed JMF_GTA_TRX_UTIL.trx_rec_type; -- trx for insert into temp table for report
127: l_gta_trx_init JMF_GTA_TRX_UTIL.trx_rec_type; -- trx for init
128:
129: -- use when split a trx line
130: l_GTA_Trx_line_old JMF_GTA_TRX_UTIL.trx_line_rec_type;

Line 127: l_gta_trx_init JMF_GTA_TRX_UTIL.trx_rec_type; -- trx for init

123: l_split_flag jmf_gta_system_parameters.Trx_Line_Split_Flag%TYPE;
124:
125: l_GTA_TRX JMF_GTA_TRX_UTIL.trx_rec_type; -- trx get from input parameter
126: l_gta_trx_succesed JMF_GTA_TRX_UTIL.trx_rec_type; -- trx for insert into temp table for report
127: l_gta_trx_init JMF_GTA_TRX_UTIL.trx_rec_type; -- trx for init
128:
129: -- use when split a trx line
130: l_GTA_Trx_line_old JMF_GTA_TRX_UTIL.trx_line_rec_type;
131: l_GTA_TRX_line_new JMF_GTA_TRX_UTIL.trx_line_rec_type;

Line 130: l_GTA_Trx_line_old JMF_GTA_TRX_UTIL.trx_line_rec_type;

126: l_gta_trx_succesed JMF_GTA_TRX_UTIL.trx_rec_type; -- trx for insert into temp table for report
127: l_gta_trx_init JMF_GTA_TRX_UTIL.trx_rec_type; -- trx for init
128:
129: -- use when split a trx line
130: l_GTA_Trx_line_old JMF_GTA_TRX_UTIL.trx_line_rec_type;
131: l_GTA_TRX_line_new JMF_GTA_TRX_UTIL.trx_line_rec_type;
132: l_gta_trx_line_init JMF_GTA_TRX_UTIL.trx_line_rec_type;
133:
134: -- use when split a new trx

Line 131: l_GTA_TRX_line_new JMF_GTA_TRX_UTIL.trx_line_rec_type;

127: l_gta_trx_init JMF_GTA_TRX_UTIL.trx_rec_type; -- trx for init
128:
129: -- use when split a trx line
130: l_GTA_Trx_line_old JMF_GTA_TRX_UTIL.trx_line_rec_type;
131: l_GTA_TRX_line_new JMF_GTA_TRX_UTIL.trx_line_rec_type;
132: l_gta_trx_line_init JMF_GTA_TRX_UTIL.trx_line_rec_type;
133:
134: -- use when split a new trx
135: l_GTA_Trx_new JMF_GTA_TRX_UTIL.trx_rec_type;

Line 132: l_gta_trx_line_init JMF_GTA_TRX_UTIL.trx_line_rec_type;

128:
129: -- use when split a trx line
130: l_GTA_Trx_line_old JMF_GTA_TRX_UTIL.trx_line_rec_type;
131: l_GTA_TRX_line_new JMF_GTA_TRX_UTIL.trx_line_rec_type;
132: l_gta_trx_line_init JMF_GTA_TRX_UTIL.trx_line_rec_type;
133:
134: -- use when split a new trx
135: l_GTA_Trx_new JMF_GTA_TRX_UTIL.trx_rec_type;
136: l_gta_trx_new_succ Jmf_Gta_Trx_Util.trx_rec_type;

Line 135: l_GTA_Trx_new JMF_GTA_TRX_UTIL.trx_rec_type;

131: l_GTA_TRX_line_new JMF_GTA_TRX_UTIL.trx_line_rec_type;
132: l_gta_trx_line_init JMF_GTA_TRX_UTIL.trx_line_rec_type;
133:
134: -- use when split a new trx
135: l_GTA_Trx_new JMF_GTA_TRX_UTIL.trx_rec_type;
136: l_gta_trx_new_succ Jmf_Gta_Trx_Util.trx_rec_type;
137: l_trx_lines_new JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE := JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE();
138: l_trx_header_new JMF_GTA_TRX_UTIL.TRX_header_rec_TYPE;
139:

Line 136: l_gta_trx_new_succ Jmf_Gta_Trx_Util.trx_rec_type;

132: l_gta_trx_line_init JMF_GTA_TRX_UTIL.trx_line_rec_type;
133:
134: -- use when split a new trx
135: l_GTA_Trx_new JMF_GTA_TRX_UTIL.trx_rec_type;
136: l_gta_trx_new_succ Jmf_Gta_Trx_Util.trx_rec_type;
137: l_trx_lines_new JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE := JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE();
138: l_trx_header_new JMF_GTA_TRX_UTIL.TRX_header_rec_TYPE;
139:
140:

Line 137: l_trx_lines_new JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE := JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE();

133:
134: -- use when split a new trx
135: l_GTA_Trx_new JMF_GTA_TRX_UTIL.trx_rec_type;
136: l_gta_trx_new_succ Jmf_Gta_Trx_Util.trx_rec_type;
137: l_trx_lines_new JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE := JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE();
138: l_trx_header_new JMF_GTA_TRX_UTIL.TRX_header_rec_TYPE;
139:
140:
141: -- use by split trx by tax rate and fp registration number

Line 138: l_trx_header_new JMF_GTA_TRX_UTIL.TRX_header_rec_TYPE;

134: -- use when split a new trx
135: l_GTA_Trx_new JMF_GTA_TRX_UTIL.trx_rec_type;
136: l_gta_trx_new_succ Jmf_Gta_Trx_Util.trx_rec_type;
137: l_trx_lines_new JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE := JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE();
138: l_trx_header_new JMF_GTA_TRX_UTIL.TRX_header_rec_TYPE;
139:
140:
141: -- use by split trx by tax rate and fp registration number
142: l_gta_rate_trx_tbl JMF_GTA_TRX_UTIL.TRX_Tbl_TYPE := JMF_GTA_TRX_UTIL.TRX_Tbl_TYPE();

Line 142: l_gta_rate_trx_tbl JMF_GTA_TRX_UTIL.TRX_Tbl_TYPE := JMF_GTA_TRX_UTIL.TRX_Tbl_TYPE();

138: l_trx_header_new JMF_GTA_TRX_UTIL.TRX_header_rec_TYPE;
139:
140:
141: -- use by split trx by tax rate and fp registration number
142: l_gta_rate_trx_tbl JMF_GTA_TRX_UTIL.TRX_Tbl_TYPE := JMF_GTA_TRX_UTIL.TRX_Tbl_TYPE();
143: l_gta_taxreg_trx_tbl JMF_GTA_TRX_UTIL.TRX_Tbl_TYPE := JMF_GTA_TRX_UTIL.TRX_Tbl_TYPE();
144:
145: l_quantity_limit NUMBER;
146:

Line 143: l_gta_taxreg_trx_tbl JMF_GTA_TRX_UTIL.TRX_Tbl_TYPE := JMF_GTA_TRX_UTIL.TRX_Tbl_TYPE();

139:
140:
141: -- use by split trx by tax rate and fp registration number
142: l_gta_rate_trx_tbl JMF_GTA_TRX_UTIL.TRX_Tbl_TYPE := JMF_GTA_TRX_UTIL.TRX_Tbl_TYPE();
143: l_gta_taxreg_trx_tbl JMF_GTA_TRX_UTIL.TRX_Tbl_TYPE := JMF_GTA_TRX_UTIL.TRX_Tbl_TYPE();
144:
145: l_quantity_limit NUMBER;
146:
147: l_trx_lines JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE := JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE();

Line 147: l_trx_lines JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE := JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE();

143: l_gta_taxreg_trx_tbl JMF_GTA_TRX_UTIL.TRX_Tbl_TYPE := JMF_GTA_TRX_UTIL.TRX_Tbl_TYPE();
144:
145: l_quantity_limit NUMBER;
146:
147: l_trx_lines JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE := JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE();
148:
149: l_trx_index NUMBER; -- loop index of l_gta_trx
150: l_trx_rate_index NUMBER; -- loop index of l_gta_rate_trx
151: l_trx_line_index NUMBER; -- loop index of trx lines

Line 179: l_trx_lines_new := JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE();

175: END IF;
176:
177:
178: -- init all nested table
179: l_trx_lines_new := JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE();
180: l_trx_lines := JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE();
181: l_gta_trx_new.trx_lines := JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE();
182: l_gta_rate_trx_tbl := JMF_GTA_TRX_UTIL.TRX_Tbl_TYPE();
183: x_GTA_TRX_Tbl := JMF_GTA_TRX_UTIL.TRX_TBL_TYPE();

Line 180: l_trx_lines := JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE();

176:
177:
178: -- init all nested table
179: l_trx_lines_new := JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE();
180: l_trx_lines := JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE();
181: l_gta_trx_new.trx_lines := JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE();
182: l_gta_rate_trx_tbl := JMF_GTA_TRX_UTIL.TRX_Tbl_TYPE();
183: x_GTA_TRX_Tbl := JMF_GTA_TRX_UTIL.TRX_TBL_TYPE();
184:

Line 181: l_gta_trx_new.trx_lines := JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE();

177:
178: -- init all nested table
179: l_trx_lines_new := JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE();
180: l_trx_lines := JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE();
181: l_gta_trx_new.trx_lines := JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE();
182: l_gta_rate_trx_tbl := JMF_GTA_TRX_UTIL.TRX_Tbl_TYPE();
183: x_GTA_TRX_Tbl := JMF_GTA_TRX_UTIL.TRX_TBL_TYPE();
184:
185: --begin select max amount, max number of lines and sales list flag

Line 182: l_gta_rate_trx_tbl := JMF_GTA_TRX_UTIL.TRX_Tbl_TYPE();

178: -- init all nested table
179: l_trx_lines_new := JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE();
180: l_trx_lines := JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE();
181: l_gta_trx_new.trx_lines := JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE();
182: l_gta_rate_trx_tbl := JMF_GTA_TRX_UTIL.TRX_Tbl_TYPE();
183: x_GTA_TRX_Tbl := JMF_GTA_TRX_UTIL.TRX_TBL_TYPE();
184:
185: --begin select max amount, max number of lines and sales list flag
186: BEGIN

Line 183: x_GTA_TRX_Tbl := JMF_GTA_TRX_UTIL.TRX_TBL_TYPE();

179: l_trx_lines_new := JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE();
180: l_trx_lines := JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE();
181: l_gta_trx_new.trx_lines := JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE();
182: l_gta_rate_trx_tbl := JMF_GTA_TRX_UTIL.TRX_Tbl_TYPE();
183: x_GTA_TRX_Tbl := JMF_GTA_TRX_UTIL.TRX_TBL_TYPE();
184:
185: --begin select max amount, max number of lines and sales list flag
186: BEGIN
187: SELECT

Line 415: l_trx_lines_new := JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE();

411: -- init l_gta_trx_line_old
412: l_gta_trx_line_old := l_gta_trx_line_init;
413: l_gta_trx_new := l_gta_trx_init;
414: l_gta_trx_new_succ := l_gta_trx_init;
415: l_trx_lines_new := JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE();
416:
417: l_GTA_TRX_line_old :=l_GTA_TRX.trx_lines(l_processing_row);
418: l_amount:=l_GTA_TRX_line_old.amount;
419:

Line 897: ( p_GTA_TRX_Header_Rec IN JMF_GTA_TRX_UTIL.TRX_HEADER_REC_TYPE

893: -- HISTORY:
894: -- 10-MAY-2005 : Jim.Zheng Create
895: --=============================================================================
896: PROCEDURE Copy_Header
897: ( p_GTA_TRX_Header_Rec IN JMF_GTA_TRX_UTIL.TRX_HEADER_REC_TYPE
898: , x_GTA_TRX_Header_Rec OUT NOCOPY JMF_GTA_TRX_UTIL.TRX_HEADER_REC_TYPE
899: ) AS
900: l_procedure_name VARCHAR2(30):= 'Copy_Header';
901: l_gta_header_id jmf_gta_trx_headers.gta_trx_header_id%TYPE;

Line 898: , x_GTA_TRX_Header_Rec OUT NOCOPY JMF_GTA_TRX_UTIL.TRX_HEADER_REC_TYPE

894: -- 10-MAY-2005 : Jim.Zheng Create
895: --=============================================================================
896: PROCEDURE Copy_Header
897: ( p_GTA_TRX_Header_Rec IN JMF_GTA_TRX_UTIL.TRX_HEADER_REC_TYPE
898: , x_GTA_TRX_Header_Rec OUT NOCOPY JMF_GTA_TRX_UTIL.TRX_HEADER_REC_TYPE
899: ) AS
900: l_procedure_name VARCHAR2(30):= 'Copy_Header';
901: l_gta_header_id jmf_gta_trx_headers.gta_trx_header_id%TYPE;
902: l_gta_trx_header_rec JMF_GTA_TRX_UTIL.TRX_HEADER_REC_TYPE;

Line 902: l_gta_trx_header_rec JMF_GTA_TRX_UTIL.TRX_HEADER_REC_TYPE;

898: , x_GTA_TRX_Header_Rec OUT NOCOPY JMF_GTA_TRX_UTIL.TRX_HEADER_REC_TYPE
899: ) AS
900: l_procedure_name VARCHAR2(30):= 'Copy_Header';
901: l_gta_header_id jmf_gta_trx_headers.gta_trx_header_id%TYPE;
902: l_gta_trx_header_rec JMF_GTA_TRX_UTIL.TRX_HEADER_REC_TYPE;
903:
904: BEGIN
905: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
906: THEN

Line 971: (p_trx_lines IN JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE

967: -- HISTORY:
968: -- 10-MAY-2005 : Jim.Zheng Create
969: --=============================================================================
970: PROCEDURE Split_Nested_Table
971: (p_trx_lines IN JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE
972: , p_split_flag IN NUMBER
973: , x_first_lines OUT NOCOPY JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE
974: , x_last_lines OUT NOCOPY JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE
975: )

Line 973: , x_first_lines OUT NOCOPY JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE

969: --=============================================================================
970: PROCEDURE Split_Nested_Table
971: (p_trx_lines IN JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE
972: , p_split_flag IN NUMBER
973: , x_first_lines OUT NOCOPY JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE
974: , x_last_lines OUT NOCOPY JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE
975: )
976: IS
977: l_first_lines JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE := JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE();

Line 974: , x_last_lines OUT NOCOPY JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE

970: PROCEDURE Split_Nested_Table
971: (p_trx_lines IN JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE
972: , p_split_flag IN NUMBER
973: , x_first_lines OUT NOCOPY JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE
974: , x_last_lines OUT NOCOPY JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE
975: )
976: IS
977: l_first_lines JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE := JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE();
978: l_last_lines JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE := JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE();

Line 977: l_first_lines JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE := JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE();

973: , x_first_lines OUT NOCOPY JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE
974: , x_last_lines OUT NOCOPY JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE
975: )
976: IS
977: l_first_lines JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE := JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE();
978: l_last_lines JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE := JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE();
979: l_index NUMBER;
980: l_procedure_name VARCHAR2(50):='Split_Nested_Table';
981:

Line 978: l_last_lines JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE := JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE();

974: , x_last_lines OUT NOCOPY JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE
975: )
976: IS
977: l_first_lines JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE := JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE();
978: l_last_lines JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE := JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE();
979: l_index NUMBER;
980: l_procedure_name VARCHAR2(50):='Split_Nested_Table';
981:
982: BEGIN

Line 991: x_first_lines := JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE();

987: ,'Begin Procedure. ');
988: END IF;
989:
990: --init
991: x_first_lines := JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE();
992: x_last_lines := JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE();
993:
994: IF p_split_flag = 0
995: THEN

Line 992: x_last_lines := JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE();

988: END IF;
989:
990: --init
991: x_first_lines := JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE();
992: x_last_lines := JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE();
993:
994: IF p_split_flag = 0
995: THEN
996: l_last_lines := p_trx_lines;

Line 1055: x_gta_trx_rec IN OUT NOCOPY Jmf_Gta_Trx_Util.TRX_REC_TYPE

1051: -- 10-MAY-2005 : Jim.Zheng Create
1052: --=============================================================================
1053: PROCEDURE process_before_split
1054: (
1055: x_gta_trx_rec IN OUT NOCOPY Jmf_Gta_Trx_Util.TRX_REC_TYPE
1056: )
1057: AS
1058:
1059: l_procedure_name VARCHAR2(35) := 'get_trx_header_id';

Line 1103: x_gta_trx_rec.trx_header.invoice_type := jmf_gta_trx_util.get_invoice_type(p_org_id => x_gta_trx_rec.trx_header.org_id

1099:
1100: --28/12/07 added by subba for R12.1
1101:
1102:
1103: x_gta_trx_rec.trx_header.invoice_type := jmf_gta_trx_util.get_invoice_type(p_org_id => x_gta_trx_rec.trx_header.org_id
1104: ,p_customer_trx_id=> x_gta_trx_rec.trx_header.ra_trx_id
1105: ,p_fp_tax_registration_num => x_gta_trx_rec.trx_lines(1).fp_tax_registration_number);
1106:
1107:

Line 1148: p_gta_trx_rec IN Jmf_Gta_Trx_Util.TRX_REC_TYPE

1144: -- 15-Jan-2009: Yao Zhang Modified for bug 7709947
1145: --=============================================================================
1146: PROCEDURE add_succ_to_temp
1147: (
1148: p_gta_trx_rec IN Jmf_Gta_Trx_Util.TRX_REC_TYPE
1149: )
1150: AS
1151: l_amount NUMBER;
1152: l_trx_num VARCHAR2(30);

Line 1281: -- p_gta_trx in JMF_GTA_TRX_UTIL.trx_rec_type

1277: --
1278: -- DESCRIPTION:
1279: -- split trx by first party registration number
1280: -- PARAMETERS:
1281: -- p_gta_trx in JMF_GTA_TRX_UTIL.trx_rec_type
1282: -- x_trx_tbl out Jmf_Gta_Trx_Util.trx_tbl_type
1283: -- HISTORY:
1284: -- 10-Sep-2005 : Jim.Zheng Create
1285: --=============================================================================

Line 1282: -- x_trx_tbl out Jmf_Gta_Trx_Util.trx_tbl_type

1278: -- DESCRIPTION:
1279: -- split trx by first party registration number
1280: -- PARAMETERS:
1281: -- p_gta_trx in JMF_GTA_TRX_UTIL.trx_rec_type
1282: -- x_trx_tbl out Jmf_Gta_Trx_Util.trx_tbl_type
1283: -- HISTORY:
1284: -- 10-Sep-2005 : Jim.Zheng Create
1285: --=============================================================================
1286: PROCEDURE split_trx_by_taxreg_number

Line 1287: (p_gta_trx IN JMF_GTA_TRX_UTIL.trx_rec_type

1283: -- HISTORY:
1284: -- 10-Sep-2005 : Jim.Zheng Create
1285: --=============================================================================
1286: PROCEDURE split_trx_by_taxreg_number
1287: (p_gta_trx IN JMF_GTA_TRX_UTIL.trx_rec_type
1288: ,x_trx_tbl OUT NOCOPY Jmf_Gta_Trx_Util.trx_tbl_type
1289: )
1290: IS
1291: l_procedure_name VARCHAR2(100) := 'split_trx_by_tax_registration_number';

Line 1288: ,x_trx_tbl OUT NOCOPY Jmf_Gta_Trx_Util.trx_tbl_type

1284: -- 10-Sep-2005 : Jim.Zheng Create
1285: --=============================================================================
1286: PROCEDURE split_trx_by_taxreg_number
1287: (p_gta_trx IN JMF_GTA_TRX_UTIL.trx_rec_type
1288: ,x_trx_tbl OUT NOCOPY Jmf_Gta_Trx_Util.trx_tbl_type
1289: )
1290: IS
1291: l_procedure_name VARCHAR2(100) := 'split_trx_by_tax_registration_number';
1292: l_gta_rate_trx_line JMF_GTA_TRX_UTIL.trx_line_rec_type;

Line 1292: l_gta_rate_trx_line JMF_GTA_TRX_UTIL.trx_line_rec_type;

1288: ,x_trx_tbl OUT NOCOPY Jmf_Gta_Trx_Util.trx_tbl_type
1289: )
1290: IS
1291: l_procedure_name VARCHAR2(100) := 'split_trx_by_tax_registration_number';
1292: l_gta_rate_trx_line JMF_GTA_TRX_UTIL.trx_line_rec_type;
1293: l_gta_rate_trx JMF_GTA_TRX_UTIL.trx_rec_type;
1294: l_gta_rate_trx_tbl JMF_GTA_TRX_UTIL.TRX_Tbl_TYPE := JMF_GTA_TRX_UTIL.TRX_Tbl_TYPE();
1295: l_tax_reg_number jmf_gta_trx_headers_all.fp_tax_registration_number%TYPE;
1296: l_add_flag NUMBER := 0;

Line 1293: l_gta_rate_trx JMF_GTA_TRX_UTIL.trx_rec_type;

1289: )
1290: IS
1291: l_procedure_name VARCHAR2(100) := 'split_trx_by_tax_registration_number';
1292: l_gta_rate_trx_line JMF_GTA_TRX_UTIL.trx_line_rec_type;
1293: l_gta_rate_trx JMF_GTA_TRX_UTIL.trx_rec_type;
1294: l_gta_rate_trx_tbl JMF_GTA_TRX_UTIL.TRX_Tbl_TYPE := JMF_GTA_TRX_UTIL.TRX_Tbl_TYPE();
1295: l_tax_reg_number jmf_gta_trx_headers_all.fp_tax_registration_number%TYPE;
1296: l_add_flag NUMBER := 0;
1297: l_gta_trx JMF_GTA_TRX_UTIL.trx_rec_type;

Line 1294: l_gta_rate_trx_tbl JMF_GTA_TRX_UTIL.TRX_Tbl_TYPE := JMF_GTA_TRX_UTIL.TRX_Tbl_TYPE();

1290: IS
1291: l_procedure_name VARCHAR2(100) := 'split_trx_by_tax_registration_number';
1292: l_gta_rate_trx_line JMF_GTA_TRX_UTIL.trx_line_rec_type;
1293: l_gta_rate_trx JMF_GTA_TRX_UTIL.trx_rec_type;
1294: l_gta_rate_trx_tbl JMF_GTA_TRX_UTIL.TRX_Tbl_TYPE := JMF_GTA_TRX_UTIL.TRX_Tbl_TYPE();
1295: l_tax_reg_number jmf_gta_trx_headers_all.fp_tax_registration_number%TYPE;
1296: l_add_flag NUMBER := 0;
1297: l_gta_trx JMF_GTA_TRX_UTIL.trx_rec_type;
1298: l_gta_trx_line_init JMF_GTA_TRX_UTIL.trx_line_rec_type;

Line 1297: l_gta_trx JMF_GTA_TRX_UTIL.trx_rec_type;

1293: l_gta_rate_trx JMF_GTA_TRX_UTIL.trx_rec_type;
1294: l_gta_rate_trx_tbl JMF_GTA_TRX_UTIL.TRX_Tbl_TYPE := JMF_GTA_TRX_UTIL.TRX_Tbl_TYPE();
1295: l_tax_reg_number jmf_gta_trx_headers_all.fp_tax_registration_number%TYPE;
1296: l_add_flag NUMBER := 0;
1297: l_gta_trx JMF_GTA_TRX_UTIL.trx_rec_type;
1298: l_gta_trx_line_init JMF_GTA_TRX_UTIL.trx_line_rec_type;
1299: l_trx_header_new JMF_GTA_TRX_UTIL.TRX_header_rec_TYPE;
1300: l_trx_rate_index NUMBER; -- index for nested table loop
1301: l_index NUMBER; -- index for nested table loop

Line 1298: l_gta_trx_line_init JMF_GTA_TRX_UTIL.trx_line_rec_type;

1294: l_gta_rate_trx_tbl JMF_GTA_TRX_UTIL.TRX_Tbl_TYPE := JMF_GTA_TRX_UTIL.TRX_Tbl_TYPE();
1295: l_tax_reg_number jmf_gta_trx_headers_all.fp_tax_registration_number%TYPE;
1296: l_add_flag NUMBER := 0;
1297: l_gta_trx JMF_GTA_TRX_UTIL.trx_rec_type;
1298: l_gta_trx_line_init JMF_GTA_TRX_UTIL.trx_line_rec_type;
1299: l_trx_header_new JMF_GTA_TRX_UTIL.TRX_header_rec_TYPE;
1300: l_trx_rate_index NUMBER; -- index for nested table loop
1301: l_index NUMBER; -- index for nested table loop
1302: BEGIN

Line 1299: l_trx_header_new JMF_GTA_TRX_UTIL.TRX_header_rec_TYPE;

1295: l_tax_reg_number jmf_gta_trx_headers_all.fp_tax_registration_number%TYPE;
1296: l_add_flag NUMBER := 0;
1297: l_gta_trx JMF_GTA_TRX_UTIL.trx_rec_type;
1298: l_gta_trx_line_init JMF_GTA_TRX_UTIL.trx_line_rec_type;
1299: l_trx_header_new JMF_GTA_TRX_UTIL.TRX_header_rec_TYPE;
1300: l_trx_rate_index NUMBER; -- index for nested table loop
1301: l_index NUMBER; -- index for nested table loop
1302: BEGIN
1303: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)

Line 1310: l_gta_rate_trx_tbl := JMF_GTA_TRX_UTIL.TRX_Tbl_TYPE();

1306: , G_MODULE_PREFIX || l_procedure_name
1307: ,'Begin Procedure. ');
1308: END IF;
1309: -- init l_gta_rate_trx_tbl
1310: l_gta_rate_trx_tbl := JMF_GTA_TRX_UTIL.TRX_Tbl_TYPE();
1311:
1312: -- init x_trx_tbl
1313: x_trx_tbl := JMF_GTA_TRX_UTIL.TRX_Tbl_TYPE();
1314:

Line 1313: x_trx_tbl := JMF_GTA_TRX_UTIL.TRX_Tbl_TYPE();

1309: -- init l_gta_rate_trx_tbl
1310: l_gta_rate_trx_tbl := JMF_GTA_TRX_UTIL.TRX_Tbl_TYPE();
1311:
1312: -- init x_trx_tbl
1313: x_trx_tbl := JMF_GTA_TRX_UTIL.TRX_Tbl_TYPE();
1314:
1315: -- init l_gta_rate_trx
1316: l_gta_rate_trx.trx_lines := JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE();
1317:

Line 1316: l_gta_rate_trx.trx_lines := JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE();

1312: -- init x_trx_tbl
1313: x_trx_tbl := JMF_GTA_TRX_UTIL.TRX_Tbl_TYPE();
1314:
1315: -- init l_gta_rate_trx
1316: l_gta_rate_trx.trx_lines := JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE();
1317:
1318: l_gta_trx := p_gta_trx;
1319:
1320: -- split the different rate lines to different trx, use loop and if else

Line 1363: l_gta_rate_trx.trx_lines := JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE();

1359: -- new trx for new tax_rate
1360: copy_header( p_GTA_TRX_Header_Rec => l_gta_rate_trx_tbl(l_gta_rate_trx_tbl.COUNT).trx_header
1361: , x_GTA_TRX_Header_Rec => l_trx_header_new );
1362: l_gta_rate_trx.trx_header := l_trx_header_new;
1363: l_gta_rate_trx.trx_lines := JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE();
1364: l_gta_rate_trx.trx_lines.EXTEND;
1365: l_gta_rate_trx.trx_lines(l_gta_rate_trx.trx_lines.COUNT) := l_gta_rate_trx_line;
1366:
1367: l_gta_rate_trx_tbl.EXTEND;

Line 1411: -- p_gta_trx in JMF_GTA_TRX_UTIL.trx_tbl_type

1407: --
1408: -- DESCRIPTION:
1409: -- split trx by tax rate
1410: -- PARAMETERS:
1411: -- p_gta_trx in JMF_GTA_TRX_UTIL.trx_tbl_type
1412: -- x_trx_tbl out Jmf_Gta_Trx_Util.trx_tbl_type
1413: -- HISTORY:
1414: -- 10-Sep-2005 : Jim.Zheng Create
1415: --=============================================================================

Line 1412: -- x_trx_tbl out Jmf_Gta_Trx_Util.trx_tbl_type

1408: -- DESCRIPTION:
1409: -- split trx by tax rate
1410: -- PARAMETERS:
1411: -- p_gta_trx in JMF_GTA_TRX_UTIL.trx_tbl_type
1412: -- x_trx_tbl out Jmf_Gta_Trx_Util.trx_tbl_type
1413: -- HISTORY:
1414: -- 10-Sep-2005 : Jim.Zheng Create
1415: --=============================================================================
1416: PROCEDURE split_trx_by_rate

Line 1417: (p_gta_tbl IN JMF_GTA_TRX_UTIL.trx_tbl_type

1413: -- HISTORY:
1414: -- 10-Sep-2005 : Jim.Zheng Create
1415: --=============================================================================
1416: PROCEDURE split_trx_by_rate
1417: (p_gta_tbl IN JMF_GTA_TRX_UTIL.trx_tbl_type
1418: ,x_trx_tbl OUT NOCOPY Jmf_Gta_Trx_Util.trx_tbl_type
1419: )
1420: IS
1421: l_procedure_name VARCHAR2(100) := 'split_trx_by_tax_registration_number';

Line 1418: ,x_trx_tbl OUT NOCOPY Jmf_Gta_Trx_Util.trx_tbl_type

1414: -- 10-Sep-2005 : Jim.Zheng Create
1415: --=============================================================================
1416: PROCEDURE split_trx_by_rate
1417: (p_gta_tbl IN JMF_GTA_TRX_UTIL.trx_tbl_type
1418: ,x_trx_tbl OUT NOCOPY Jmf_Gta_Trx_Util.trx_tbl_type
1419: )
1420: IS
1421: l_procedure_name VARCHAR2(100) := 'split_trx_by_tax_registration_number';
1422: l_gta_rate_trx_line JMF_GTA_TRX_UTIL.trx_line_rec_type;

Line 1422: l_gta_rate_trx_line JMF_GTA_TRX_UTIL.trx_line_rec_type;

1418: ,x_trx_tbl OUT NOCOPY Jmf_Gta_Trx_Util.trx_tbl_type
1419: )
1420: IS
1421: l_procedure_name VARCHAR2(100) := 'split_trx_by_tax_registration_number';
1422: l_gta_rate_trx_line JMF_GTA_TRX_UTIL.trx_line_rec_type;
1423: l_gta_rate_trx JMF_GTA_TRX_UTIL.trx_rec_type;
1424: l_gta_rate_trx_tbl JMF_GTA_TRX_UTIL.TRX_Tbl_TYPE := JMF_GTA_TRX_UTIL.TRX_Tbl_TYPE();
1425: l_tax_rate NUMBER;
1426: l_add_flag NUMBER := 0;

Line 1423: l_gta_rate_trx JMF_GTA_TRX_UTIL.trx_rec_type;

1419: )
1420: IS
1421: l_procedure_name VARCHAR2(100) := 'split_trx_by_tax_registration_number';
1422: l_gta_rate_trx_line JMF_GTA_TRX_UTIL.trx_line_rec_type;
1423: l_gta_rate_trx JMF_GTA_TRX_UTIL.trx_rec_type;
1424: l_gta_rate_trx_tbl JMF_GTA_TRX_UTIL.TRX_Tbl_TYPE := JMF_GTA_TRX_UTIL.TRX_Tbl_TYPE();
1425: l_tax_rate NUMBER;
1426: l_add_flag NUMBER := 0;
1427: l_gta_trx JMF_GTA_TRX_UTIL.trx_rec_type;

Line 1424: l_gta_rate_trx_tbl JMF_GTA_TRX_UTIL.TRX_Tbl_TYPE := JMF_GTA_TRX_UTIL.TRX_Tbl_TYPE();

1420: IS
1421: l_procedure_name VARCHAR2(100) := 'split_trx_by_tax_registration_number';
1422: l_gta_rate_trx_line JMF_GTA_TRX_UTIL.trx_line_rec_type;
1423: l_gta_rate_trx JMF_GTA_TRX_UTIL.trx_rec_type;
1424: l_gta_rate_trx_tbl JMF_GTA_TRX_UTIL.TRX_Tbl_TYPE := JMF_GTA_TRX_UTIL.TRX_Tbl_TYPE();
1425: l_tax_rate NUMBER;
1426: l_add_flag NUMBER := 0;
1427: l_gta_trx JMF_GTA_TRX_UTIL.trx_rec_type;
1428: l_gta_trx_line_init JMF_GTA_TRX_UTIL.trx_line_rec_type;

Line 1427: l_gta_trx JMF_GTA_TRX_UTIL.trx_rec_type;

1423: l_gta_rate_trx JMF_GTA_TRX_UTIL.trx_rec_type;
1424: l_gta_rate_trx_tbl JMF_GTA_TRX_UTIL.TRX_Tbl_TYPE := JMF_GTA_TRX_UTIL.TRX_Tbl_TYPE();
1425: l_tax_rate NUMBER;
1426: l_add_flag NUMBER := 0;
1427: l_gta_trx JMF_GTA_TRX_UTIL.trx_rec_type;
1428: l_gta_trx_line_init JMF_GTA_TRX_UTIL.trx_line_rec_type;
1429: l_trx_header_new JMF_GTA_TRX_UTIL.TRX_header_rec_TYPE;
1430: l_trx_rate_index NUMBER; -- index for nested table loop
1431: l_index NUMBER; -- index for nested table loop

Line 1428: l_gta_trx_line_init JMF_GTA_TRX_UTIL.trx_line_rec_type;

1424: l_gta_rate_trx_tbl JMF_GTA_TRX_UTIL.TRX_Tbl_TYPE := JMF_GTA_TRX_UTIL.TRX_Tbl_TYPE();
1425: l_tax_rate NUMBER;
1426: l_add_flag NUMBER := 0;
1427: l_gta_trx JMF_GTA_TRX_UTIL.trx_rec_type;
1428: l_gta_trx_line_init JMF_GTA_TRX_UTIL.trx_line_rec_type;
1429: l_trx_header_new JMF_GTA_TRX_UTIL.TRX_header_rec_TYPE;
1430: l_trx_rate_index NUMBER; -- index for nested table loop
1431: l_index NUMBER; -- index for nested table loop
1432: l_gta_index NUMBER; -- index for nested table loop

Line 1429: l_trx_header_new JMF_GTA_TRX_UTIL.TRX_header_rec_TYPE;

1425: l_tax_rate NUMBER;
1426: l_add_flag NUMBER := 0;
1427: l_gta_trx JMF_GTA_TRX_UTIL.trx_rec_type;
1428: l_gta_trx_line_init JMF_GTA_TRX_UTIL.trx_line_rec_type;
1429: l_trx_header_new JMF_GTA_TRX_UTIL.TRX_header_rec_TYPE;
1430: l_trx_rate_index NUMBER; -- index for nested table loop
1431: l_index NUMBER; -- index for nested table loop
1432: l_gta_index NUMBER; -- index for nested table loop
1433: BEGIN

Line 1441: l_gta_rate_trx_tbl := JMF_GTA_TRX_UTIL.TRX_Tbl_TYPE();

1437: , G_MODULE_PREFIX || l_procedure_name
1438: ,'Begin Procedure. ');
1439: END IF;
1440: -- init l_gta_rate_trx_tbl
1441: l_gta_rate_trx_tbl := JMF_GTA_TRX_UTIL.TRX_Tbl_TYPE();
1442:
1443: -- init x_trx_tbl
1444: x_trx_tbl := JMF_GTA_TRX_UTIL.TRX_Tbl_TYPE();
1445:

Line 1444: x_trx_tbl := JMF_GTA_TRX_UTIL.TRX_Tbl_TYPE();

1440: -- init l_gta_rate_trx_tbl
1441: l_gta_rate_trx_tbl := JMF_GTA_TRX_UTIL.TRX_Tbl_TYPE();
1442:
1443: -- init x_trx_tbl
1444: x_trx_tbl := JMF_GTA_TRX_UTIL.TRX_Tbl_TYPE();
1445:
1446: l_gta_index := p_gta_tbl.FIRST;
1447: WHILE l_gta_index IS NOT NULL
1448: LOOP

Line 1450: l_gta_rate_trx.trx_lines := JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE();

1446: l_gta_index := p_gta_tbl.FIRST;
1447: WHILE l_gta_index IS NOT NULL
1448: LOOP
1449: -- init l_gta_rate_trx
1450: l_gta_rate_trx.trx_lines := JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE();
1451:
1452: l_gta_trx := p_gta_tbl(l_gta_index);
1453:
1454: -- split the different rate lines to different trx, use loop and if else

Line 1497: l_gta_rate_trx.trx_lines := JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE();

1493: -- new trx for new tax_rate
1494: copy_header( p_GTA_TRX_Header_Rec => l_gta_rate_trx_tbl(l_gta_rate_trx_tbl.COUNT).trx_header
1495: , x_GTA_TRX_Header_Rec => l_trx_header_new );
1496: l_gta_rate_trx.trx_header := l_trx_header_new;
1497: l_gta_rate_trx.trx_lines := JMF_GTA_TRX_UTIL.TRX_line_Tbl_TYPE();
1498: l_gta_rate_trx.trx_lines.EXTEND;
1499: l_gta_rate_trx.trx_lines(l_gta_rate_trx.trx_lines.COUNT) := l_gta_rate_trx_line;
1500:
1501: l_gta_rate_trx_tbl.EXTEND;

Line 1549: -- p_gta_trx in JMF_GTA_TRX_UTIL.trx_tbl_type

1545: -- DESCRIPTION:
1546: -- get trx type by trx id
1547: -- PARAMETERS:
1548: -- p_org_id IN NUMBER
1549: -- p_gta_trx in JMF_GTA_TRX_UTIL.trx_tbl_type
1550: -- x_trx_type out ra_cust_trx_types_all.type%TYPE
1551: -- HISTORY:
1552: -- 10-Sep-2005 : Jim.Zheng Create
1553: --=============================================================================

Line 1556: , p_gta_trx IN Jmf_Gta_Trx_Util.trx_rec_type

1552: -- 10-Sep-2005 : Jim.Zheng Create
1553: --=============================================================================
1554: PROCEDURE get_trx_type
1555: (p_org_id IN NUMBER
1556: , p_gta_trx IN Jmf_Gta_Trx_Util.trx_rec_type
1557: , x_trx_type OUT NOCOPY ra_cust_trx_types_all.type%TYPE
1558: )
1559: IS
1560:

Line 1618: -- p_gta_trx in JMF_GTA_TRX_UTIL.trx_tbl_type

1614: --
1615: -- DESCRIPTION:
1616: -- Judge wether the CM exceed the max line and max amount
1617: -- PARAMETERS:
1618: -- p_gta_trx in JMF_GTA_TRX_UTIL.trx_tbl_type
1619: -- p_org_id in number
1620: -- x_result out BOOLEAN
1621: -- HISTORY:
1622: -- 10-Sep-2005 : Jim.Zheng Create

Line 1627: (p_gta_trx IN Jmf_Gta_Trx_Util.trx_rec_type

1623: -- 16-Dec-2008 Yao Zhang Changed for bug 7644235
1624: -- 23-Jan-2009 : Yao Zhang changed for bug 7758496
1625: --=============================================================================
1626: PROCEDURE judge_cm_limit
1627: (p_gta_trx IN Jmf_Gta_Trx_Util.trx_rec_type
1628: , p_org_id IN NUMBER
1629: , p_transfer_id IN NUMBER --yao zhang changed for bug 7758496
1630: , x_result OUT NOCOPY BOOLEAN)
1631: IS

Line 1633: l_gta_trx Jmf_Gta_Trx_Util.trx_rec_type;

1629: , p_transfer_id IN NUMBER --yao zhang changed for bug 7758496
1630: , x_result OUT NOCOPY BOOLEAN)
1631: IS
1632: l_procedure_name VARCHAR2(30) := 'judge_cm_limit';
1633: l_gta_trx Jmf_Gta_Trx_Util.trx_rec_type;
1634: l_fp_reg_num jmf_gta_trx_headers_all.fp_tax_registration_number%TYPE;
1635: l_max_amount jmf_gta_tax_limits_all.max_amount%TYPE;
1636: l_max_line jmf_gta_tax_limits_all.max_num_of_line%TYPE;
1637: l_lines_number NUMBER;

Line 1656: l_invoice_type := jmf_gta_trx_util.get_invoice_type(p_org_id => l_gta_trx.trx_header.org_id

1652: l_fp_reg_num := l_gta_trx.trx_lines(1).fp_tax_registration_number;
1653:
1654: --added by subba for R12.1, getting invoice type to caliculate VAT limits
1655:
1656: l_invoice_type := jmf_gta_trx_util.get_invoice_type(p_org_id => l_gta_trx.trx_header.org_id
1657: ,p_customer_trx_id=> l_gta_trx.trx_header.ra_trx_id
1658: ,p_fp_tax_registration_num => l_fp_reg_num);
1659: l_sum_of_amount := 0;
1660:

Line 1782: -- p_gta_trx in JMF_GTA_TRX_UTIL.trx_tbl_type

1778: --
1779: -- DESCRIPTION:
1780: -- get max line and max amount by fp registration number
1781: -- PARAMETERS:
1782: -- p_gta_trx in JMF_GTA_TRX_UTIL.trx_tbl_type
1783: -- p_org_id in number
1784: -- x_max_amount in number
1785: -- x_max_line in number
1786: -- HISTORY:

Line 1790: (p_gta_trx IN Jmf_Gta_Trx_Util.trx_rec_type

1786: -- HISTORY:
1787: -- 10-Sep-2005 : Jim.Zheng Create
1788: --=============================================================================
1789: PROCEDURE get_max_amount_line
1790: (p_gta_trx IN Jmf_Gta_Trx_Util.trx_rec_type
1791: , p_org_id IN NUMBER
1792: , x_max_amount OUT NOCOPY NUMBER
1793: , x_max_line OUT NOCOPY NUMBER)
1794: IS

Line 1796: l_gta_trx Jmf_Gta_Trx_Util.trx_rec_type;

1792: , x_max_amount OUT NOCOPY NUMBER
1793: , x_max_line OUT NOCOPY NUMBER)
1794: IS
1795: l_procedure_name VARCHAR2(30) := 'judge_cm_limit';
1796: l_gta_trx Jmf_Gta_Trx_Util.trx_rec_type;
1797: l_fp_reg_num jmf_gta_trx_headers_all.fp_tax_registration_number%TYPE;
1798: l_max_amount NUMBER;
1799: l_max_line NUMBER;
1800: l_error_string VARCHAR2(2000); --added by subba.

Line 1860: l_gta_trx.trx_header.invoice_type := jmf_gta_trx_util.get_invoice_type(p_org_id => p_org_id

1856: */ --New logic is added below
1857:
1858:
1859:
1860: l_gta_trx.trx_header.invoice_type := jmf_gta_trx_util.get_invoice_type(p_org_id => p_org_id
1861: ,p_customer_trx_id=> l_gta_trx.trx_header.ra_trx_id
1862: ,p_fp_tax_registration_num => l_fp_reg_num);
1863:
1864: BEGIN

Line 1944: -- p_gta_trx_tbl in jmf_gta_trx_util.trx_tbl_type

1940: -- DESCRIPTION:
1941: -- filter credit memo which amount and lines number exceeded.
1942: -- PARAMETERS:
1943: -- p_org_id in number
1944: -- p_gta_trx_tbl in jmf_gta_trx_util.trx_tbl_type
1945: -- x_gta_trx_tbl out nocopy jmf_gta_trx_util.trx_tbl_type
1946: --
1947: -- HISTORY:
1948: -- 10-Sep-2005 : Jim.Zheng Create

Line 1945: -- x_gta_trx_tbl out nocopy jmf_gta_trx_util.trx_tbl_type

1941: -- filter credit memo which amount and lines number exceeded.
1942: -- PARAMETERS:
1943: -- p_org_id in number
1944: -- p_gta_trx_tbl in jmf_gta_trx_util.trx_tbl_type
1945: -- x_gta_trx_tbl out nocopy jmf_gta_trx_util.trx_tbl_type
1946: --
1947: -- HISTORY:
1948: -- 10-Sep-2005 : Jim.Zheng Create
1949: -- 23-Jan-2009 : yao zhang changed for bug 7758496

Line 1954: , p_gta_trx_tbl IN jmf_gta_trx_util.trx_tbl_type

1950: --=============================================================================
1951: PROCEDURE filter_credit_memo
1952: (p_org_id IN NUMBER
1953: , p_transfer_id IN NUMBER--yao zhang changed for bug 7758496
1954: , p_gta_trx_tbl IN jmf_gta_trx_util.trx_tbl_type
1955: , x_gta_Trx_tbl OUT NOCOPY jmf_gta_trx_util.trx_tbl_type
1956: )
1957: IS
1958: l_index NUMBER;

Line 1955: , x_gta_Trx_tbl OUT NOCOPY jmf_gta_trx_util.trx_tbl_type

1951: PROCEDURE filter_credit_memo
1952: (p_org_id IN NUMBER
1953: , p_transfer_id IN NUMBER--yao zhang changed for bug 7758496
1954: , p_gta_trx_tbl IN jmf_gta_trx_util.trx_tbl_type
1955: , x_gta_Trx_tbl OUT NOCOPY jmf_gta_trx_util.trx_tbl_type
1956: )
1957: IS
1958: l_index NUMBER;
1959: l_procedure_name VARCHAR2(50) := 'filter_credit_memo';

Line 1961: l_trx_reg_tbl jmf_gta_trx_util.trx_tbl_type;

1957: IS
1958: l_index NUMBER;
1959: l_procedure_name VARCHAR2(50) := 'filter_credit_memo';
1960: l_trx_type VARCHAR2(30);
1961: l_trx_reg_tbl jmf_gta_trx_util.trx_tbl_type;
1962: l_trx_rate_tbl jmf_gta_trx_util.trx_tbl_type;
1963: l_rate_index NUMBER;
1964: l_result BOOLEAN;
1965: l_gta_trx jmf_gta_trx_util.trx_rec_type;

Line 1962: l_trx_rate_tbl jmf_gta_trx_util.trx_tbl_type;

1958: l_index NUMBER;
1959: l_procedure_name VARCHAR2(50) := 'filter_credit_memo';
1960: l_trx_type VARCHAR2(30);
1961: l_trx_reg_tbl jmf_gta_trx_util.trx_tbl_type;
1962: l_trx_rate_tbl jmf_gta_trx_util.trx_tbl_type;
1963: l_rate_index NUMBER;
1964: l_result BOOLEAN;
1965: l_gta_trx jmf_gta_trx_util.trx_rec_type;
1966: l_gta_rate_trx jmf_gta_trx_util.trx_rec_type;

Line 1965: l_gta_trx jmf_gta_trx_util.trx_rec_type;

1961: l_trx_reg_tbl jmf_gta_trx_util.trx_tbl_type;
1962: l_trx_rate_tbl jmf_gta_trx_util.trx_tbl_type;
1963: l_rate_index NUMBER;
1964: l_result BOOLEAN;
1965: l_gta_trx jmf_gta_trx_util.trx_rec_type;
1966: l_gta_rate_trx jmf_gta_trx_util.trx_rec_type;
1967: l_cm_exceed_limit EXCEPTION;
1968: l_error_string VARCHAR2(500);
1969:

Line 1966: l_gta_rate_trx jmf_gta_trx_util.trx_rec_type;

1962: l_trx_rate_tbl jmf_gta_trx_util.trx_tbl_type;
1963: l_rate_index NUMBER;
1964: l_result BOOLEAN;
1965: l_gta_trx jmf_gta_trx_util.trx_rec_type;
1966: l_gta_rate_trx jmf_gta_trx_util.trx_rec_type;
1967: l_cm_exceed_limit EXCEPTION;
1968: l_error_string VARCHAR2(500);
1969:
1970: BEGIN

Line 1987: x_gta_Trx_tbl := jmf_gta_trx_util.trx_tbl_type();

1983: END IF;
1984: -- end log
1985:
1986: -- init x_gta_Trx_tbl
1987: x_gta_Trx_tbl := jmf_gta_trx_util.trx_tbl_type();
1988:
1989: -- begin loop the p_gta_trx_tbl
1990: l_index := p_gta_trx_tbl.FIRST;
1991: WHILE l_index IS NOT NULL