1: PACKAGE BODY GML_PO_GLDIST AS
2: /* $Header: GMLDISTB.pls 120.1.12020000.2 2012/09/14 07:19:50 guobxu ship $ */
3:
4:
5: v_lang VARCHAR2(10) := 'ENG';
18: # DESCRIPTION
19: # calculate amount_trans using indicators in gl_event_plc and po_cost_dtl
20: # before inserting into po_dist_dtl table
21: # HISTORY
22: # 2/17/99 T.Ricci increment var GML_PO_GLDIST.P_tot_amount_aap_aqui
23: # when calculating an AAP account (was only doing it for AAC)
24: # Bug820997
25: ##########################################################################*/
26:
29: /* Cursor for getting orgn. for a particular whse_code.*/
30: CURSOR Cur_orgn_for_whse IS
31: SELECT orgn_code
32: FROM ic_whse_mst
33: WHERE whse_code = GML_PO_GLDIST.P_to_whse;
34:
35: /* Cursor for getting std_act_ind, exp_booked_ind and aqui_cost_ind*/
36: /* for a particular event code and source_code.*/
37: CURSOR Cur_get_ind_set IS
37: CURSOR Cur_get_ind_set IS
38: SELECT std_actual_ind , exp_booked_ind ,
39: acquis_cost_ind
40: FROM gl_evnt_plc e, gl_srce_mst s, gl_evnt_mst m
41: WHERE e.co_code = GML_PO_GLDIST.P_co_code and
42: e.trans_source_type = s.trans_source_type and e.event_type = m.event_type
43: and e.trans_source_type = m.trans_source_type
44: and s.trans_source_code = 'PO' and m.event_code = 'RCPT'
45: and e.delete_mark = 0;
47: /* Cursor for getting the cmpnt_cls_id and analysis_code for a specific aqui_cost_id.*/
48: CURSOR Cur_po_cost_mst IS
49: SELECT cmpntcls_id , analysis_code
50: FROM po_cost_mst
51: WHERE aqui_cost_id = GML_PO_GLDIST.P_aqui_cost_id;
52:
53: /* Cursor for getting the cost_amount and incl_ind for a particular po_id, line_id and doc_type.*/
54: CURSOR Cur_po_cost_dtl IS
55: SELECT incl_ind,cost_amount
53: /* Cursor for getting the cost_amount and incl_ind for a particular po_id, line_id and doc_type.*/
54: CURSOR Cur_po_cost_dtl IS
55: SELECT incl_ind,cost_amount
56: FROM po_cost_dtl
57: WHERE doc_type = GML_PO_GLDIST.P_doc_type and
58: pos_id = GML_PO_GLDIST.P_pos_id and
59: line_id = GML_PO_GLDIST.P_line_id and
60: aqui_cost_id = GML_PO_GLDIST.P_aqui_cost_id;
61:
54: CURSOR Cur_po_cost_dtl IS
55: SELECT incl_ind,cost_amount
56: FROM po_cost_dtl
57: WHERE doc_type = GML_PO_GLDIST.P_doc_type and
58: pos_id = GML_PO_GLDIST.P_pos_id and
59: line_id = GML_PO_GLDIST.P_line_id and
60: aqui_cost_id = GML_PO_GLDIST.P_aqui_cost_id;
61:
62: X_std_actual_ind NUMBER;
55: SELECT incl_ind,cost_amount
56: FROM po_cost_dtl
57: WHERE doc_type = GML_PO_GLDIST.P_doc_type and
58: pos_id = GML_PO_GLDIST.P_pos_id and
59: line_id = GML_PO_GLDIST.P_line_id and
60: aqui_cost_id = GML_PO_GLDIST.P_aqui_cost_id;
61:
62: X_std_actual_ind NUMBER;
63: X_exp_booked_ind NUMBER;
56: FROM po_cost_dtl
57: WHERE doc_type = GML_PO_GLDIST.P_doc_type and
58: pos_id = GML_PO_GLDIST.P_pos_id and
59: line_id = GML_PO_GLDIST.P_line_id and
60: aqui_cost_id = GML_PO_GLDIST.P_aqui_cost_id;
61:
62: X_std_actual_ind NUMBER;
63: X_exp_booked_ind NUMBER;
64: X_aqui_cost_ind NUMBER;
85: END IF;
86:
87: /* cmpntcls_id and analysis code comes for each row from the poglded2_process_trans. Hence, commented.*/
88: OPEN Cur_po_cost_mst ;
89: FETCH Cur_po_cost_mst INTO GML_PO_GLDIST.P_cost_cmpntcls_id, GML_PO_GLDIST.P_cost_analysis_code ;
90: CLOSE Cur_po_cost_mst;
91:
92: OPEN Cur_po_cost_dtl;
93: FETCH Cur_po_cost_dtl INTO X_incl_ind, X_cost_amount;
93: FETCH Cur_po_cost_dtl INTO X_incl_ind, X_cost_amount;
94: CLOSE Cur_po_cost_dtl;
95:
96: IF X_incl_ind = 1 THEN
97: X_retvar := gmf_cmcommon.cmcommon_get_cost ( GML_PO_GLDIST.P_gl_item_id, GML_PO_GLDIST.P_to_whse,
98: X_orgn_code , GML_PO_GLDIST.P_po_date,
99: X_cost_mthd , GML_PO_GLDIST.P_cost_cmpntcls_id,
100: GML_PO_GLDIST.P_cost_analysis_code, 3,
101: X_total_cost, X_row_count );
94: CLOSE Cur_po_cost_dtl;
95:
96: IF X_incl_ind = 1 THEN
97: X_retvar := gmf_cmcommon.cmcommon_get_cost ( GML_PO_GLDIST.P_gl_item_id, GML_PO_GLDIST.P_to_whse,
98: X_orgn_code , GML_PO_GLDIST.P_po_date,
99: X_cost_mthd , GML_PO_GLDIST.P_cost_cmpntcls_id,
100: GML_PO_GLDIST.P_cost_analysis_code, 3,
101: X_total_cost, X_row_count );
102: IF (x_row_count IS NULL) THEN
95:
96: IF X_incl_ind = 1 THEN
97: X_retvar := gmf_cmcommon.cmcommon_get_cost ( GML_PO_GLDIST.P_gl_item_id, GML_PO_GLDIST.P_to_whse,
98: X_orgn_code , GML_PO_GLDIST.P_po_date,
99: X_cost_mthd , GML_PO_GLDIST.P_cost_cmpntcls_id,
100: GML_PO_GLDIST.P_cost_analysis_code, 3,
101: X_total_cost, X_row_count );
102: IF (x_row_count IS NULL) THEN
103: x_row_count := 0;
96: IF X_incl_ind = 1 THEN
97: X_retvar := gmf_cmcommon.cmcommon_get_cost ( GML_PO_GLDIST.P_gl_item_id, GML_PO_GLDIST.P_to_whse,
98: X_orgn_code , GML_PO_GLDIST.P_po_date,
99: X_cost_mthd , GML_PO_GLDIST.P_cost_cmpntcls_id,
100: GML_PO_GLDIST.P_cost_analysis_code, 3,
101: X_total_cost, X_row_count );
102: IF (x_row_count IS NULL) THEN
103: x_row_count := 0;
104: END IF;
103: x_row_count := 0;
104: END IF;
105:
106: IF X_retvar < 1 THEN
107: GML_PO_GLDIST.P_po_cost := 0;
108: END IF;
109: FOR i IN 1..x_row_count LOOP
110: /* This routine below returns the total cost in a loop,as cmcommon_get_cost routine */
111: /* returns only the row count.*/
112: gmf_cmcommon.get_multiple_cmpts_cost(i,x_cmpntcls_id,x_analysis_code,x_total_cost,3,x_status);
113: x_cost := nvl(x_cost,0) + nvl (x_total_cost,0) ;
114: END LOOP;
115: IF X_retvar < 1 THEN
116: GML_PO_GLDIST.P_po_cost := 0 ;
117: ELSE
118: GML_PO_GLDIST.P_po_cost := X_cost; /* Returned cost for the particular pair.*/
119: END IF;
120: ELSE
114: END LOOP;
115: IF X_retvar < 1 THEN
116: GML_PO_GLDIST.P_po_cost := 0 ;
117: ELSE
118: GML_PO_GLDIST.P_po_cost := X_cost; /* Returned cost for the particular pair.*/
119: END IF;
120: ELSE
121: GML_PO_GLDIST.P_po_cost := X_cost_amount ;
122: END IF;
117: ELSE
118: GML_PO_GLDIST.P_po_cost := X_cost; /* Returned cost for the particular pair.*/
119: END IF;
120: ELSE
121: GML_PO_GLDIST.P_po_cost := X_cost_amount ;
122: END IF;
123:
124: GML_PO_GLDIST.P_tmp_po_cost := GML_PO_GLDIST.P_po_cost / GML_PO_GLDIST.P_exchange_rate ;
125:
120: ELSE
121: GML_PO_GLDIST.P_po_cost := X_cost_amount ;
122: END IF;
123:
124: GML_PO_GLDIST.P_tmp_po_cost := GML_PO_GLDIST.P_po_cost / GML_PO_GLDIST.P_exchange_rate ;
125:
126: OPEN Cur_get_ind_set;
127: FETCH Cur_get_ind_set INTO X_std_actual_ind, X_exp_booked_ind, X_aqui_cost_ind;
128: CLOSE Cur_get_ind_set;
126: OPEN Cur_get_ind_set;
127: FETCH Cur_get_ind_set INTO X_std_actual_ind, X_exp_booked_ind, X_aqui_cost_ind;
128: CLOSE Cur_get_ind_set;
129:
130: IF GML_PO_GLDIST.P_acct_ttl_num = GML_PO_GLDIST.GL$AT_INV THEN
131: IF X_std_actual_ind = 1 THEN
132: GML_PO_GLDIST.P_amount_trans_aqui := X_cost_amount * GML_PO_GLDIST.P_order_qty1;
133: ELSE
134: GML_PO_GLDIST.P_amount_trans_aqui := GML_PO_GLDIST.P_order_qty1 * GML_PO_GLDIST.P_tmp_po_cost;
128: CLOSE Cur_get_ind_set;
129:
130: IF GML_PO_GLDIST.P_acct_ttl_num = GML_PO_GLDIST.GL$AT_INV THEN
131: IF X_std_actual_ind = 1 THEN
132: GML_PO_GLDIST.P_amount_trans_aqui := X_cost_amount * GML_PO_GLDIST.P_order_qty1;
133: ELSE
134: GML_PO_GLDIST.P_amount_trans_aqui := GML_PO_GLDIST.P_order_qty1 * GML_PO_GLDIST.P_tmp_po_cost;
135: END IF;
136: GML_PO_GLDIST.P_tot_amount_inv_aqui := nvl(GML_PO_GLDIST.P_tot_amount_inv_aqui, 0) + nvl (GML_PO_GLDIST.P_amount_trans_aqui,0);
130: IF GML_PO_GLDIST.P_acct_ttl_num = GML_PO_GLDIST.GL$AT_INV THEN
131: IF X_std_actual_ind = 1 THEN
132: GML_PO_GLDIST.P_amount_trans_aqui := X_cost_amount * GML_PO_GLDIST.P_order_qty1;
133: ELSE
134: GML_PO_GLDIST.P_amount_trans_aqui := GML_PO_GLDIST.P_order_qty1 * GML_PO_GLDIST.P_tmp_po_cost;
135: END IF;
136: GML_PO_GLDIST.P_tot_amount_inv_aqui := nvl(GML_PO_GLDIST.P_tot_amount_inv_aqui, 0) + nvl (GML_PO_GLDIST.P_amount_trans_aqui,0);
137: END IF;
138:
132: GML_PO_GLDIST.P_amount_trans_aqui := X_cost_amount * GML_PO_GLDIST.P_order_qty1;
133: ELSE
134: GML_PO_GLDIST.P_amount_trans_aqui := GML_PO_GLDIST.P_order_qty1 * GML_PO_GLDIST.P_tmp_po_cost;
135: END IF;
136: GML_PO_GLDIST.P_tot_amount_inv_aqui := nvl(GML_PO_GLDIST.P_tot_amount_inv_aqui, 0) + nvl (GML_PO_GLDIST.P_amount_trans_aqui,0);
137: END IF;
138:
139: IF GML_PO_GLDIST.P_acct_ttl_num = GML_PO_GLDIST.GL$AT_AAP AND X_aqui_cost_ind = 0 THEN
140: GML_PO_GLDIST.P_amount_trans_aqui := X_cost_amount * GML_PO_GLDIST.P_order_qty1;
135: END IF;
136: GML_PO_GLDIST.P_tot_amount_inv_aqui := nvl(GML_PO_GLDIST.P_tot_amount_inv_aqui, 0) + nvl (GML_PO_GLDIST.P_amount_trans_aqui,0);
137: END IF;
138:
139: IF GML_PO_GLDIST.P_acct_ttl_num = GML_PO_GLDIST.GL$AT_AAP AND X_aqui_cost_ind = 0 THEN
140: GML_PO_GLDIST.P_amount_trans_aqui := X_cost_amount * GML_PO_GLDIST.P_order_qty1;
141: GML_PO_GLDIST.P_amount_base_aqui := GML_PO_GLDIST.P_amount_trans_aqui * GML_PO_GLDIST.P_exchange_rate;
142: GML_PO_GLDIST.P_amount_base_aqui := ROUND (GML_PO_GLDIST.P_amount_base_aqui, GML_PO_GLDIST.P_precision);
143: GML_PO_GLDIST.P_amount_trans_aqui := ROUND (GML_PO_GLDIST.P_amount_trans_aqui, GML_PO_GLDIST.P_precision);
136: GML_PO_GLDIST.P_tot_amount_inv_aqui := nvl(GML_PO_GLDIST.P_tot_amount_inv_aqui, 0) + nvl (GML_PO_GLDIST.P_amount_trans_aqui,0);
137: END IF;
138:
139: IF GML_PO_GLDIST.P_acct_ttl_num = GML_PO_GLDIST.GL$AT_AAP AND X_aqui_cost_ind = 0 THEN
140: GML_PO_GLDIST.P_amount_trans_aqui := X_cost_amount * GML_PO_GLDIST.P_order_qty1;
141: GML_PO_GLDIST.P_amount_base_aqui := GML_PO_GLDIST.P_amount_trans_aqui * GML_PO_GLDIST.P_exchange_rate;
142: GML_PO_GLDIST.P_amount_base_aqui := ROUND (GML_PO_GLDIST.P_amount_base_aqui, GML_PO_GLDIST.P_precision);
143: GML_PO_GLDIST.P_amount_trans_aqui := ROUND (GML_PO_GLDIST.P_amount_trans_aqui, GML_PO_GLDIST.P_precision);
144: GML_PO_GLDIST.P_tot_amount_aap_aqui := GML_PO_GLDIST.P_amount_trans_aqui;
137: END IF;
138:
139: IF GML_PO_GLDIST.P_acct_ttl_num = GML_PO_GLDIST.GL$AT_AAP AND X_aqui_cost_ind = 0 THEN
140: GML_PO_GLDIST.P_amount_trans_aqui := X_cost_amount * GML_PO_GLDIST.P_order_qty1;
141: GML_PO_GLDIST.P_amount_base_aqui := GML_PO_GLDIST.P_amount_trans_aqui * GML_PO_GLDIST.P_exchange_rate;
142: GML_PO_GLDIST.P_amount_base_aqui := ROUND (GML_PO_GLDIST.P_amount_base_aqui, GML_PO_GLDIST.P_precision);
143: GML_PO_GLDIST.P_amount_trans_aqui := ROUND (GML_PO_GLDIST.P_amount_trans_aqui, GML_PO_GLDIST.P_precision);
144: GML_PO_GLDIST.P_tot_amount_aap_aqui := GML_PO_GLDIST.P_amount_trans_aqui;
145: RETURN 0;
138:
139: IF GML_PO_GLDIST.P_acct_ttl_num = GML_PO_GLDIST.GL$AT_AAP AND X_aqui_cost_ind = 0 THEN
140: GML_PO_GLDIST.P_amount_trans_aqui := X_cost_amount * GML_PO_GLDIST.P_order_qty1;
141: GML_PO_GLDIST.P_amount_base_aqui := GML_PO_GLDIST.P_amount_trans_aqui * GML_PO_GLDIST.P_exchange_rate;
142: GML_PO_GLDIST.P_amount_base_aqui := ROUND (GML_PO_GLDIST.P_amount_base_aqui, GML_PO_GLDIST.P_precision);
143: GML_PO_GLDIST.P_amount_trans_aqui := ROUND (GML_PO_GLDIST.P_amount_trans_aqui, GML_PO_GLDIST.P_precision);
144: GML_PO_GLDIST.P_tot_amount_aap_aqui := GML_PO_GLDIST.P_amount_trans_aqui;
145: RETURN 0;
146: END IF;
139: IF GML_PO_GLDIST.P_acct_ttl_num = GML_PO_GLDIST.GL$AT_AAP AND X_aqui_cost_ind = 0 THEN
140: GML_PO_GLDIST.P_amount_trans_aqui := X_cost_amount * GML_PO_GLDIST.P_order_qty1;
141: GML_PO_GLDIST.P_amount_base_aqui := GML_PO_GLDIST.P_amount_trans_aqui * GML_PO_GLDIST.P_exchange_rate;
142: GML_PO_GLDIST.P_amount_base_aqui := ROUND (GML_PO_GLDIST.P_amount_base_aqui, GML_PO_GLDIST.P_precision);
143: GML_PO_GLDIST.P_amount_trans_aqui := ROUND (GML_PO_GLDIST.P_amount_trans_aqui, GML_PO_GLDIST.P_precision);
144: GML_PO_GLDIST.P_tot_amount_aap_aqui := GML_PO_GLDIST.P_amount_trans_aqui;
145: RETURN 0;
146: END IF;
147:
140: GML_PO_GLDIST.P_amount_trans_aqui := X_cost_amount * GML_PO_GLDIST.P_order_qty1;
141: GML_PO_GLDIST.P_amount_base_aqui := GML_PO_GLDIST.P_amount_trans_aqui * GML_PO_GLDIST.P_exchange_rate;
142: GML_PO_GLDIST.P_amount_base_aqui := ROUND (GML_PO_GLDIST.P_amount_base_aqui, GML_PO_GLDIST.P_precision);
143: GML_PO_GLDIST.P_amount_trans_aqui := ROUND (GML_PO_GLDIST.P_amount_trans_aqui, GML_PO_GLDIST.P_precision);
144: GML_PO_GLDIST.P_tot_amount_aap_aqui := GML_PO_GLDIST.P_amount_trans_aqui;
145: RETURN 0;
146: END IF;
147:
148: IF GML_PO_GLDIST.P_acct_ttl_num = GML_PO_GLDIST.GL$AT_AAP THEN
144: GML_PO_GLDIST.P_tot_amount_aap_aqui := GML_PO_GLDIST.P_amount_trans_aqui;
145: RETURN 0;
146: END IF;
147:
148: IF GML_PO_GLDIST.P_acct_ttl_num = GML_PO_GLDIST.GL$AT_AAP THEN
149: GML_PO_GLDIST.P_amount_trans_aqui := -(X_cost_amount * (GML_PO_GLDIST.P_order_qty1)) ;
150: GML_PO_GLDIST.P_tot_amount_aap_aqui := GML_PO_GLDIST.P_amount_trans_aqui;
151:
152: END IF;
145: RETURN 0;
146: END IF;
147:
148: IF GML_PO_GLDIST.P_acct_ttl_num = GML_PO_GLDIST.GL$AT_AAP THEN
149: GML_PO_GLDIST.P_amount_trans_aqui := -(X_cost_amount * (GML_PO_GLDIST.P_order_qty1)) ;
150: GML_PO_GLDIST.P_tot_amount_aap_aqui := GML_PO_GLDIST.P_amount_trans_aqui;
151:
152: END IF;
153:
146: END IF;
147:
148: IF GML_PO_GLDIST.P_acct_ttl_num = GML_PO_GLDIST.GL$AT_AAP THEN
149: GML_PO_GLDIST.P_amount_trans_aqui := -(X_cost_amount * (GML_PO_GLDIST.P_order_qty1)) ;
150: GML_PO_GLDIST.P_tot_amount_aap_aqui := GML_PO_GLDIST.P_amount_trans_aqui;
151:
152: END IF;
153:
154: IF GML_PO_GLDIST.P_acct_ttl_num = GML_PO_GLDIST.GL$AT_PPV THEN
150: GML_PO_GLDIST.P_tot_amount_aap_aqui := GML_PO_GLDIST.P_amount_trans_aqui;
151:
152: END IF;
153:
154: IF GML_PO_GLDIST.P_acct_ttl_num = GML_PO_GLDIST.GL$AT_PPV THEN
155: IF X_std_actual_ind = 1 THEN
156: GML_PO_GLDIST.P_amount_trans_aqui := 0;
157: ELSE
158: GML_PO_GLDIST.P_extended_price := ROUND (GML_PO_GLDIST.P_extended_price, GML_PO_GLDIST.P_precision);
152: END IF;
153:
154: IF GML_PO_GLDIST.P_acct_ttl_num = GML_PO_GLDIST.GL$AT_PPV THEN
155: IF X_std_actual_ind = 1 THEN
156: GML_PO_GLDIST.P_amount_trans_aqui := 0;
157: ELSE
158: GML_PO_GLDIST.P_extended_price := ROUND (GML_PO_GLDIST.P_extended_price, GML_PO_GLDIST.P_precision);
159: GML_PO_GLDIST.P_tmp_amt := (GML_PO_GLDIST.P_order_qty1 * GML_PO_GLDIST.P_tmp_po_cost);
160: GML_PO_GLDIST.P_tmp_amt := ROUND (GML_PO_GLDIST.P_tmp_amt, GML_PO_GLDIST.P_precision);
154: IF GML_PO_GLDIST.P_acct_ttl_num = GML_PO_GLDIST.GL$AT_PPV THEN
155: IF X_std_actual_ind = 1 THEN
156: GML_PO_GLDIST.P_amount_trans_aqui := 0;
157: ELSE
158: GML_PO_GLDIST.P_extended_price := ROUND (GML_PO_GLDIST.P_extended_price, GML_PO_GLDIST.P_precision);
159: GML_PO_GLDIST.P_tmp_amt := (GML_PO_GLDIST.P_order_qty1 * GML_PO_GLDIST.P_tmp_po_cost);
160: GML_PO_GLDIST.P_tmp_amt := ROUND (GML_PO_GLDIST.P_tmp_amt, GML_PO_GLDIST.P_precision);
161: GML_PO_GLDIST.P_amount_trans_aqui := -(GML_PO_GLDIST.P_tot_amount_inv_aqui + GML_PO_GLDIST.P_tot_amount_aap_aqui );
162: END IF;
155: IF X_std_actual_ind = 1 THEN
156: GML_PO_GLDIST.P_amount_trans_aqui := 0;
157: ELSE
158: GML_PO_GLDIST.P_extended_price := ROUND (GML_PO_GLDIST.P_extended_price, GML_PO_GLDIST.P_precision);
159: GML_PO_GLDIST.P_tmp_amt := (GML_PO_GLDIST.P_order_qty1 * GML_PO_GLDIST.P_tmp_po_cost);
160: GML_PO_GLDIST.P_tmp_amt := ROUND (GML_PO_GLDIST.P_tmp_amt, GML_PO_GLDIST.P_precision);
161: GML_PO_GLDIST.P_amount_trans_aqui := -(GML_PO_GLDIST.P_tot_amount_inv_aqui + GML_PO_GLDIST.P_tot_amount_aap_aqui );
162: END IF;
163: /* B908529 clear for PPV calc with multiple lines */
156: GML_PO_GLDIST.P_amount_trans_aqui := 0;
157: ELSE
158: GML_PO_GLDIST.P_extended_price := ROUND (GML_PO_GLDIST.P_extended_price, GML_PO_GLDIST.P_precision);
159: GML_PO_GLDIST.P_tmp_amt := (GML_PO_GLDIST.P_order_qty1 * GML_PO_GLDIST.P_tmp_po_cost);
160: GML_PO_GLDIST.P_tmp_amt := ROUND (GML_PO_GLDIST.P_tmp_amt, GML_PO_GLDIST.P_precision);
161: GML_PO_GLDIST.P_amount_trans_aqui := -(GML_PO_GLDIST.P_tot_amount_inv_aqui + GML_PO_GLDIST.P_tot_amount_aap_aqui );
162: END IF;
163: /* B908529 clear for PPV calc with multiple lines */
164: P_tot_amount_inv_aqui := 0;
157: ELSE
158: GML_PO_GLDIST.P_extended_price := ROUND (GML_PO_GLDIST.P_extended_price, GML_PO_GLDIST.P_precision);
159: GML_PO_GLDIST.P_tmp_amt := (GML_PO_GLDIST.P_order_qty1 * GML_PO_GLDIST.P_tmp_po_cost);
160: GML_PO_GLDIST.P_tmp_amt := ROUND (GML_PO_GLDIST.P_tmp_amt, GML_PO_GLDIST.P_precision);
161: GML_PO_GLDIST.P_amount_trans_aqui := -(GML_PO_GLDIST.P_tot_amount_inv_aqui + GML_PO_GLDIST.P_tot_amount_aap_aqui );
162: END IF;
163: /* B908529 clear for PPV calc with multiple lines */
164: P_tot_amount_inv_aqui := 0;
165: END IF;
163: /* B908529 clear for PPV calc with multiple lines */
164: P_tot_amount_inv_aqui := 0;
165: END IF;
166:
167: IF GML_PO_GLDIST.P_acct_ttl_num = GML_PO_GLDIST.GL$AT_EXP THEN
168: IF X_incl_ind = 0 THEN
169: /* po_amount_trans already is amount of aquisition on PO*/
170: GML_PO_GLDIST.P_amount_trans_aqui := X_cost_amount * GML_PO_GLDIST.P_order_qty1;
171: ELSE
166:
167: IF GML_PO_GLDIST.P_acct_ttl_num = GML_PO_GLDIST.GL$AT_EXP THEN
168: IF X_incl_ind = 0 THEN
169: /* po_amount_trans already is amount of aquisition on PO*/
170: GML_PO_GLDIST.P_amount_trans_aqui := X_cost_amount * GML_PO_GLDIST.P_order_qty1;
171: ELSE
172: GML_PO_GLDIST.P_amount_trans_aqui := 0;
173: END IF;
174: END IF;
168: IF X_incl_ind = 0 THEN
169: /* po_amount_trans already is amount of aquisition on PO*/
170: GML_PO_GLDIST.P_amount_trans_aqui := X_cost_amount * GML_PO_GLDIST.P_order_qty1;
171: ELSE
172: GML_PO_GLDIST.P_amount_trans_aqui := 0;
173: END IF;
174: END IF;
175:
176: IF GML_PO_GLDIST.P_acct_ttl_num = GML_PO_GLDIST.GL$AT_AAC THEN
172: GML_PO_GLDIST.P_amount_trans_aqui := 0;
173: END IF;
174: END IF;
175:
176: IF GML_PO_GLDIST.P_acct_ttl_num = GML_PO_GLDIST.GL$AT_AAC THEN
177: IF X_aqui_cost_ind = 1 THEN
178: GML_PO_GLDIST.P_amount_trans_aqui := (X_cost_amount * GML_PO_GLDIST.P_order_qty1) * (-1);
179: ELSE
180: GML_PO_GLDIST.P_amount_trans_aqui := 0;
174: END IF;
175:
176: IF GML_PO_GLDIST.P_acct_ttl_num = GML_PO_GLDIST.GL$AT_AAC THEN
177: IF X_aqui_cost_ind = 1 THEN
178: GML_PO_GLDIST.P_amount_trans_aqui := (X_cost_amount * GML_PO_GLDIST.P_order_qty1) * (-1);
179: ELSE
180: GML_PO_GLDIST.P_amount_trans_aqui := 0;
181: END IF;
182: GML_PO_GLDIST.P_tot_amount_aap_aqui := GML_PO_GLDIST.P_amount_trans_aqui;
176: IF GML_PO_GLDIST.P_acct_ttl_num = GML_PO_GLDIST.GL$AT_AAC THEN
177: IF X_aqui_cost_ind = 1 THEN
178: GML_PO_GLDIST.P_amount_trans_aqui := (X_cost_amount * GML_PO_GLDIST.P_order_qty1) * (-1);
179: ELSE
180: GML_PO_GLDIST.P_amount_trans_aqui := 0;
181: END IF;
182: GML_PO_GLDIST.P_tot_amount_aap_aqui := GML_PO_GLDIST.P_amount_trans_aqui;
183: END IF;
184:
178: GML_PO_GLDIST.P_amount_trans_aqui := (X_cost_amount * GML_PO_GLDIST.P_order_qty1) * (-1);
179: ELSE
180: GML_PO_GLDIST.P_amount_trans_aqui := 0;
181: END IF;
182: GML_PO_GLDIST.P_tot_amount_aap_aqui := GML_PO_GLDIST.P_amount_trans_aqui;
183: END IF;
184:
185: IF GML_PO_GLDIST.P_acct_ttl_num = GML_PO_GLDIST.GL$AT_ACV THEN
186: IF X_incl_ind = 1 THEN
181: END IF;
182: GML_PO_GLDIST.P_tot_amount_aap_aqui := GML_PO_GLDIST.P_amount_trans_aqui;
183: END IF;
184:
185: IF GML_PO_GLDIST.P_acct_ttl_num = GML_PO_GLDIST.GL$AT_ACV THEN
186: IF X_incl_ind = 1 THEN
187: GML_PO_GLDIST.P_tmp_amt := X_cost_amount * GML_PO_GLDIST.P_order_qty1;
188: GML_PO_GLDIST.P_tmp_amt := ROUND (GML_PO_GLDIST.P_tmp_amt, GML_PO_GLDIST.P_precision);
189: GML_PO_GLDIST.P_tmp_amt2 := (GML_PO_GLDIST.P_order_qty1 * GML_PO_GLDIST.P_tmp_po_cost);
183: END IF;
184:
185: IF GML_PO_GLDIST.P_acct_ttl_num = GML_PO_GLDIST.GL$AT_ACV THEN
186: IF X_incl_ind = 1 THEN
187: GML_PO_GLDIST.P_tmp_amt := X_cost_amount * GML_PO_GLDIST.P_order_qty1;
188: GML_PO_GLDIST.P_tmp_amt := ROUND (GML_PO_GLDIST.P_tmp_amt, GML_PO_GLDIST.P_precision);
189: GML_PO_GLDIST.P_tmp_amt2 := (GML_PO_GLDIST.P_order_qty1 * GML_PO_GLDIST.P_tmp_po_cost);
190: GML_PO_GLDIST.P_tmp_amt2 := ROUND (GML_PO_GLDIST.P_tmp_amt2, GML_PO_GLDIST.P_precision);
191: /*Sandeep. Bug Fixed for wrong totalling of ACV acct title. */
184:
185: IF GML_PO_GLDIST.P_acct_ttl_num = GML_PO_GLDIST.GL$AT_ACV THEN
186: IF X_incl_ind = 1 THEN
187: GML_PO_GLDIST.P_tmp_amt := X_cost_amount * GML_PO_GLDIST.P_order_qty1;
188: GML_PO_GLDIST.P_tmp_amt := ROUND (GML_PO_GLDIST.P_tmp_amt, GML_PO_GLDIST.P_precision);
189: GML_PO_GLDIST.P_tmp_amt2 := (GML_PO_GLDIST.P_order_qty1 * GML_PO_GLDIST.P_tmp_po_cost);
190: GML_PO_GLDIST.P_tmp_amt2 := ROUND (GML_PO_GLDIST.P_tmp_amt2, GML_PO_GLDIST.P_precision);
191: /*Sandeep. Bug Fixed for wrong totalling of ACV acct title. */
192: /*GML_PO_GLDIST.P_amount_trans_aqui := GML_PO_GLDIST.P_tmp_amt - GML_PO_GLDIST.P_tmp_amt2;*/
185: IF GML_PO_GLDIST.P_acct_ttl_num = GML_PO_GLDIST.GL$AT_ACV THEN
186: IF X_incl_ind = 1 THEN
187: GML_PO_GLDIST.P_tmp_amt := X_cost_amount * GML_PO_GLDIST.P_order_qty1;
188: GML_PO_GLDIST.P_tmp_amt := ROUND (GML_PO_GLDIST.P_tmp_amt, GML_PO_GLDIST.P_precision);
189: GML_PO_GLDIST.P_tmp_amt2 := (GML_PO_GLDIST.P_order_qty1 * GML_PO_GLDIST.P_tmp_po_cost);
190: GML_PO_GLDIST.P_tmp_amt2 := ROUND (GML_PO_GLDIST.P_tmp_amt2, GML_PO_GLDIST.P_precision);
191: /*Sandeep. Bug Fixed for wrong totalling of ACV acct title. */
192: /*GML_PO_GLDIST.P_amount_trans_aqui := GML_PO_GLDIST.P_tmp_amt - GML_PO_GLDIST.P_tmp_amt2;*/
193: GML_PO_GLDIST.P_amount_trans_aqui := -(GML_PO_GLDIST.P_tot_amount_inv_aqui + GML_PO_GLDIST.P_tot_amount_aap_aqui);
186: IF X_incl_ind = 1 THEN
187: GML_PO_GLDIST.P_tmp_amt := X_cost_amount * GML_PO_GLDIST.P_order_qty1;
188: GML_PO_GLDIST.P_tmp_amt := ROUND (GML_PO_GLDIST.P_tmp_amt, GML_PO_GLDIST.P_precision);
189: GML_PO_GLDIST.P_tmp_amt2 := (GML_PO_GLDIST.P_order_qty1 * GML_PO_GLDIST.P_tmp_po_cost);
190: GML_PO_GLDIST.P_tmp_amt2 := ROUND (GML_PO_GLDIST.P_tmp_amt2, GML_PO_GLDIST.P_precision);
191: /*Sandeep. Bug Fixed for wrong totalling of ACV acct title. */
192: /*GML_PO_GLDIST.P_amount_trans_aqui := GML_PO_GLDIST.P_tmp_amt - GML_PO_GLDIST.P_tmp_amt2;*/
193: GML_PO_GLDIST.P_amount_trans_aqui := -(GML_PO_GLDIST.P_tot_amount_inv_aqui + GML_PO_GLDIST.P_tot_amount_aap_aqui);
194: ELSE
188: GML_PO_GLDIST.P_tmp_amt := ROUND (GML_PO_GLDIST.P_tmp_amt, GML_PO_GLDIST.P_precision);
189: GML_PO_GLDIST.P_tmp_amt2 := (GML_PO_GLDIST.P_order_qty1 * GML_PO_GLDIST.P_tmp_po_cost);
190: GML_PO_GLDIST.P_tmp_amt2 := ROUND (GML_PO_GLDIST.P_tmp_amt2, GML_PO_GLDIST.P_precision);
191: /*Sandeep. Bug Fixed for wrong totalling of ACV acct title. */
192: /*GML_PO_GLDIST.P_amount_trans_aqui := GML_PO_GLDIST.P_tmp_amt - GML_PO_GLDIST.P_tmp_amt2;*/
193: GML_PO_GLDIST.P_amount_trans_aqui := -(GML_PO_GLDIST.P_tot_amount_inv_aqui + GML_PO_GLDIST.P_tot_amount_aap_aqui);
194: ELSE
195: GML_PO_GLDIST.P_amount_trans_aqui := 0;
196: END IF;
189: GML_PO_GLDIST.P_tmp_amt2 := (GML_PO_GLDIST.P_order_qty1 * GML_PO_GLDIST.P_tmp_po_cost);
190: GML_PO_GLDIST.P_tmp_amt2 := ROUND (GML_PO_GLDIST.P_tmp_amt2, GML_PO_GLDIST.P_precision);
191: /*Sandeep. Bug Fixed for wrong totalling of ACV acct title. */
192: /*GML_PO_GLDIST.P_amount_trans_aqui := GML_PO_GLDIST.P_tmp_amt - GML_PO_GLDIST.P_tmp_amt2;*/
193: GML_PO_GLDIST.P_amount_trans_aqui := -(GML_PO_GLDIST.P_tot_amount_inv_aqui + GML_PO_GLDIST.P_tot_amount_aap_aqui);
194: ELSE
195: GML_PO_GLDIST.P_amount_trans_aqui := 0;
196: END IF;
197: /* B908529 clear for PPV calc with multiple lines */
191: /*Sandeep. Bug Fixed for wrong totalling of ACV acct title. */
192: /*GML_PO_GLDIST.P_amount_trans_aqui := GML_PO_GLDIST.P_tmp_amt - GML_PO_GLDIST.P_tmp_amt2;*/
193: GML_PO_GLDIST.P_amount_trans_aqui := -(GML_PO_GLDIST.P_tot_amount_inv_aqui + GML_PO_GLDIST.P_tot_amount_aap_aqui);
194: ELSE
195: GML_PO_GLDIST.P_amount_trans_aqui := 0;
196: END IF;
197: /* B908529 clear for PPV calc with multiple lines */
198: P_tot_amount_inv_aqui := 0;
199: END IF;
197: /* B908529 clear for PPV calc with multiple lines */
198: P_tot_amount_inv_aqui := 0;
199: END IF;
200:
201: IF GML_PO_GLDIST.P_acct_ttl_num = GML_PO_GLDIST.GL$AT_ERV THEN
202: GML_PO_GLDIST.P_amount_trans_aqui := 0;
203: END IF;
204:
205: /*Sandeep. Bug Fixed.The following Amount base for Aquisition is modified.*/
198: P_tot_amount_inv_aqui := 0;
199: END IF;
200:
201: IF GML_PO_GLDIST.P_acct_ttl_num = GML_PO_GLDIST.GL$AT_ERV THEN
202: GML_PO_GLDIST.P_amount_trans_aqui := 0;
203: END IF;
204:
205: /*Sandeep. Bug Fixed.The following Amount base for Aquisition is modified.*/
206: /* It is multiplied with Extended cost, instead of X_cost_amount.*/
203: END IF;
204:
205: /*Sandeep. Bug Fixed.The following Amount base for Aquisition is modified.*/
206: /* It is multiplied with Extended cost, instead of X_cost_amount.*/
207: GML_PO_GLDIST.P_amount_base_aqui := X_cost_amount * GML_PO_GLDIST.P_exchange_rate;
208: GML_PO_GLDIST.P_amount_base_aqui := GML_PO_GLDIST.P_amount_trans_aqui * GML_PO_GLDIST.P_exchange_rate;
209:
210: GML_PO_GLDIST.P_amount_base_aqui := ROUND (GML_PO_GLDIST.P_amount_base_aqui, GML_PO_GLDIST.P_precision);
211:
204:
205: /*Sandeep. Bug Fixed.The following Amount base for Aquisition is modified.*/
206: /* It is multiplied with Extended cost, instead of X_cost_amount.*/
207: GML_PO_GLDIST.P_amount_base_aqui := X_cost_amount * GML_PO_GLDIST.P_exchange_rate;
208: GML_PO_GLDIST.P_amount_base_aqui := GML_PO_GLDIST.P_amount_trans_aqui * GML_PO_GLDIST.P_exchange_rate;
209:
210: GML_PO_GLDIST.P_amount_base_aqui := ROUND (GML_PO_GLDIST.P_amount_base_aqui, GML_PO_GLDIST.P_precision);
211:
212: GML_PO_GLDIST.P_amount_trans_aqui := ROUND (GML_PO_GLDIST.P_amount_trans_aqui, GML_PO_GLDIST.P_precision);
206: /* It is multiplied with Extended cost, instead of X_cost_amount.*/
207: GML_PO_GLDIST.P_amount_base_aqui := X_cost_amount * GML_PO_GLDIST.P_exchange_rate;
208: GML_PO_GLDIST.P_amount_base_aqui := GML_PO_GLDIST.P_amount_trans_aqui * GML_PO_GLDIST.P_exchange_rate;
209:
210: GML_PO_GLDIST.P_amount_base_aqui := ROUND (GML_PO_GLDIST.P_amount_base_aqui, GML_PO_GLDIST.P_precision);
211:
212: GML_PO_GLDIST.P_amount_trans_aqui := ROUND (GML_PO_GLDIST.P_amount_trans_aqui, GML_PO_GLDIST.P_precision);
213:
214: RETURN 0;
208: GML_PO_GLDIST.P_amount_base_aqui := GML_PO_GLDIST.P_amount_trans_aqui * GML_PO_GLDIST.P_exchange_rate;
209:
210: GML_PO_GLDIST.P_amount_base_aqui := ROUND (GML_PO_GLDIST.P_amount_base_aqui, GML_PO_GLDIST.P_precision);
211:
212: GML_PO_GLDIST.P_amount_trans_aqui := ROUND (GML_PO_GLDIST.P_amount_trans_aqui, GML_PO_GLDIST.P_precision);
213:
214: RETURN 0;
215:
216: END calc_dist_amount_aqui;
235:
236: CURSOR Cur_orgn_for_whse IS
237: SELECT orgn_code
238: FROM ic_whse_mst
239: WHERE whse_code = GML_PO_GLDIST.P_to_whse;
240:
241: CURSOR Cur_get_ind_set IS
242: SELECT std_actual_ind , exp_booked_ind ,
243: acquis_cost_ind
241: CURSOR Cur_get_ind_set IS
242: SELECT std_actual_ind , exp_booked_ind ,
243: acquis_cost_ind
244: FROM gl_evnt_plc e, gl_srce_mst s, gl_evnt_mst m
245: WHERE e.co_code = GML_PO_GLDIST.P_co_code and
246: e.trans_source_type = s.trans_source_type and e.event_type = m.event_type
247: and e.trans_source_type = m.trans_source_type
248: and s.trans_source_code = 'PO' and m.event_code = 'RCPT'
249: and e.delete_mark = 0;
272: X_orgn_code := FND_PROFILE.VALUE ('GEMMS_DEFAULT_ORGN');
273: END IF;
274: CLOSE Cur_orgn_for_whse;
275:
276: IF GML_PO_GLDIST.P_cost_cmpntcls_id IS NOT NULL AND GML_PO_GLDIST.P_cost_analysis_code IS NOT NULL THEN
277: X_retr_ind := 3;
278: X_retvar := gmf_cmcommon.cmcommon_get_cost( GML_PO_GLDIST.P_gl_item_id, GML_PO_GLDIST.P_to_whse,
279: X_orgn_code , GML_PO_GLDIST.P_po_date,
280: X_cost_mthd , GML_PO_GLDIST.P_cost_cmpntcls_id,
274: CLOSE Cur_orgn_for_whse;
275:
276: IF GML_PO_GLDIST.P_cost_cmpntcls_id IS NOT NULL AND GML_PO_GLDIST.P_cost_analysis_code IS NOT NULL THEN
277: X_retr_ind := 3;
278: X_retvar := gmf_cmcommon.cmcommon_get_cost( GML_PO_GLDIST.P_gl_item_id, GML_PO_GLDIST.P_to_whse,
279: X_orgn_code , GML_PO_GLDIST.P_po_date,
280: X_cost_mthd , GML_PO_GLDIST.P_cost_cmpntcls_id,
281: GML_PO_GLDIST.P_cost_analysis_code, X_retr_ind,
282: X_total_cost, X_row_count );
275:
276: IF GML_PO_GLDIST.P_cost_cmpntcls_id IS NOT NULL AND GML_PO_GLDIST.P_cost_analysis_code IS NOT NULL THEN
277: X_retr_ind := 3;
278: X_retvar := gmf_cmcommon.cmcommon_get_cost( GML_PO_GLDIST.P_gl_item_id, GML_PO_GLDIST.P_to_whse,
279: X_orgn_code , GML_PO_GLDIST.P_po_date,
280: X_cost_mthd , GML_PO_GLDIST.P_cost_cmpntcls_id,
281: GML_PO_GLDIST.P_cost_analysis_code, X_retr_ind,
282: X_total_cost, X_row_count );
283: IF (x_row_count IS NULL) THEN
276: IF GML_PO_GLDIST.P_cost_cmpntcls_id IS NOT NULL AND GML_PO_GLDIST.P_cost_analysis_code IS NOT NULL THEN
277: X_retr_ind := 3;
278: X_retvar := gmf_cmcommon.cmcommon_get_cost( GML_PO_GLDIST.P_gl_item_id, GML_PO_GLDIST.P_to_whse,
279: X_orgn_code , GML_PO_GLDIST.P_po_date,
280: X_cost_mthd , GML_PO_GLDIST.P_cost_cmpntcls_id,
281: GML_PO_GLDIST.P_cost_analysis_code, X_retr_ind,
282: X_total_cost, X_row_count );
283: IF (x_row_count IS NULL) THEN
284: x_row_count := 0;
277: X_retr_ind := 3;
278: X_retvar := gmf_cmcommon.cmcommon_get_cost( GML_PO_GLDIST.P_gl_item_id, GML_PO_GLDIST.P_to_whse,
279: X_orgn_code , GML_PO_GLDIST.P_po_date,
280: X_cost_mthd , GML_PO_GLDIST.P_cost_cmpntcls_id,
281: GML_PO_GLDIST.P_cost_analysis_code, X_retr_ind,
282: X_total_cost, X_row_count );
283: IF (x_row_count IS NULL) THEN
284: x_row_count := 0;
285: END IF;
284: x_row_count := 0;
285: END IF;
286:
287: IF X_retvar < 1 THEN
288: GML_PO_GLDIST.P_po_cost := 0 ;
289: END IF;
290: ELSE
291: X_retr_ind := 5;
292: X_retvar := gmf_cmcommon.cmcommon_get_cost ( GML_PO_GLDIST.P_gl_item_id, GML_PO_GLDIST.P_to_whse,
288: GML_PO_GLDIST.P_po_cost := 0 ;
289: END IF;
290: ELSE
291: X_retr_ind := 5;
292: X_retvar := gmf_cmcommon.cmcommon_get_cost ( GML_PO_GLDIST.P_gl_item_id, GML_PO_GLDIST.P_to_whse,
293: X_orgn_code , GML_PO_GLDIST.P_po_date,
294: X_cost_mthd , GML_PO_GLDIST.P_cost_cmpntcls_id,
295: GML_PO_GLDIST.P_cost_analysis_code, X_retr_ind,
296: X_total_cost, X_row_count );
289: END IF;
290: ELSE
291: X_retr_ind := 5;
292: X_retvar := gmf_cmcommon.cmcommon_get_cost ( GML_PO_GLDIST.P_gl_item_id, GML_PO_GLDIST.P_to_whse,
293: X_orgn_code , GML_PO_GLDIST.P_po_date,
294: X_cost_mthd , GML_PO_GLDIST.P_cost_cmpntcls_id,
295: GML_PO_GLDIST.P_cost_analysis_code, X_retr_ind,
296: X_total_cost, X_row_count );
297: IF x_row_count IS NULL THEN
290: ELSE
291: X_retr_ind := 5;
292: X_retvar := gmf_cmcommon.cmcommon_get_cost ( GML_PO_GLDIST.P_gl_item_id, GML_PO_GLDIST.P_to_whse,
293: X_orgn_code , GML_PO_GLDIST.P_po_date,
294: X_cost_mthd , GML_PO_GLDIST.P_cost_cmpntcls_id,
295: GML_PO_GLDIST.P_cost_analysis_code, X_retr_ind,
296: X_total_cost, X_row_count );
297: IF x_row_count IS NULL THEN
298: x_row_count := 0;
291: X_retr_ind := 5;
292: X_retvar := gmf_cmcommon.cmcommon_get_cost ( GML_PO_GLDIST.P_gl_item_id, GML_PO_GLDIST.P_to_whse,
293: X_orgn_code , GML_PO_GLDIST.P_po_date,
294: X_cost_mthd , GML_PO_GLDIST.P_cost_cmpntcls_id,
295: GML_PO_GLDIST.P_cost_analysis_code, X_retr_ind,
296: X_total_cost, X_row_count );
297: IF x_row_count IS NULL THEN
298: x_row_count := 0;
299: END IF;
305: gmf_cmcommon.get_multiple_cmpts_cost(i,x_cmpntcls_id,x_analysis_code,x_total_cost,X_retr_ind,x_status);
306: x_cost := nvl(x_cost,0) + nvl (x_total_cost,0) ;
307: END LOOP;
308: IF X_retvar < 1 THEN
309: GML_PO_GLDIST.P_po_cost := 0 ;
310: ELSE
311: GML_PO_GLDIST.P_po_cost := X_cost; /* Returned cost for the particular pair.*/
312: END IF;
313: GML_PO_GLDIST.P_tmp_po_cost := GML_PO_GLDIST.P_po_cost / GML_PO_GLDIST.P_exchange_rate;
307: END LOOP;
308: IF X_retvar < 1 THEN
309: GML_PO_GLDIST.P_po_cost := 0 ;
310: ELSE
311: GML_PO_GLDIST.P_po_cost := X_cost; /* Returned cost for the particular pair.*/
312: END IF;
313: GML_PO_GLDIST.P_tmp_po_cost := GML_PO_GLDIST.P_po_cost / GML_PO_GLDIST.P_exchange_rate;
314: OPEN Cur_get_ind_set;
315: FETCH Cur_get_ind_set INTO X_std_actual_ind, X_exp_booked_ind, X_aqui_cost_ind;
309: GML_PO_GLDIST.P_po_cost := 0 ;
310: ELSE
311: GML_PO_GLDIST.P_po_cost := X_cost; /* Returned cost for the particular pair.*/
312: END IF;
313: GML_PO_GLDIST.P_tmp_po_cost := GML_PO_GLDIST.P_po_cost / GML_PO_GLDIST.P_exchange_rate;
314: OPEN Cur_get_ind_set;
315: FETCH Cur_get_ind_set INTO X_std_actual_ind, X_exp_booked_ind, X_aqui_cost_ind;
316: CLOSE Cur_get_ind_set;
317:
314: OPEN Cur_get_ind_set;
315: FETCH Cur_get_ind_set INTO X_std_actual_ind, X_exp_booked_ind, X_aqui_cost_ind;
316: CLOSE Cur_get_ind_set;
317:
318: IF GML_PO_GLDIST.P_acct_ttl_num = GML_PO_GLDIST.GL$AT_INV THEN
319: IF X_std_actual_ind = 1 THEN
320: GML_PO_GLDIST.P_amount_trans := GML_PO_GLDIST.P_extended_price ;
321: ELSE
322: GML_PO_GLDIST.P_amount_trans := GML_PO_GLDIST.P_order_qty1 * GML_PO_GLDIST.P_tmp_po_cost ;
316: CLOSE Cur_get_ind_set;
317:
318: IF GML_PO_GLDIST.P_acct_ttl_num = GML_PO_GLDIST.GL$AT_INV THEN
319: IF X_std_actual_ind = 1 THEN
320: GML_PO_GLDIST.P_amount_trans := GML_PO_GLDIST.P_extended_price ;
321: ELSE
322: GML_PO_GLDIST.P_amount_trans := GML_PO_GLDIST.P_order_qty1 * GML_PO_GLDIST.P_tmp_po_cost ;
323: END IF;
324: GML_PO_GLDIST.P_tot_amount_inv := nvl(GML_PO_GLDIST.P_tot_amount_inv,0) + nvl(GML_PO_GLDIST.P_amount_trans, 0);
318: IF GML_PO_GLDIST.P_acct_ttl_num = GML_PO_GLDIST.GL$AT_INV THEN
319: IF X_std_actual_ind = 1 THEN
320: GML_PO_GLDIST.P_amount_trans := GML_PO_GLDIST.P_extended_price ;
321: ELSE
322: GML_PO_GLDIST.P_amount_trans := GML_PO_GLDIST.P_order_qty1 * GML_PO_GLDIST.P_tmp_po_cost ;
323: END IF;
324: GML_PO_GLDIST.P_tot_amount_inv := nvl(GML_PO_GLDIST.P_tot_amount_inv,0) + nvl(GML_PO_GLDIST.P_amount_trans, 0);
325: END IF;
326:
320: GML_PO_GLDIST.P_amount_trans := GML_PO_GLDIST.P_extended_price ;
321: ELSE
322: GML_PO_GLDIST.P_amount_trans := GML_PO_GLDIST.P_order_qty1 * GML_PO_GLDIST.P_tmp_po_cost ;
323: END IF;
324: GML_PO_GLDIST.P_tot_amount_inv := nvl(GML_PO_GLDIST.P_tot_amount_inv,0) + nvl(GML_PO_GLDIST.P_amount_trans, 0);
325: END IF;
326:
327: IF GML_PO_GLDIST.P_acct_ttl_num = GML_PO_GLDIST.GL$AT_EXP THEN
328: GML_PO_GLDIST.P_amount_trans := GML_PO_GLDIST.P_extended_price ;
323: END IF;
324: GML_PO_GLDIST.P_tot_amount_inv := nvl(GML_PO_GLDIST.P_tot_amount_inv,0) + nvl(GML_PO_GLDIST.P_amount_trans, 0);
325: END IF;
326:
327: IF GML_PO_GLDIST.P_acct_ttl_num = GML_PO_GLDIST.GL$AT_EXP THEN
328: GML_PO_GLDIST.P_amount_trans := GML_PO_GLDIST.P_extended_price ;
329: END IF;
330:
331: IF GML_PO_GLDIST.P_acct_ttl_num = GML_PO_GLDIST.GL$AT_AAP THEN
324: GML_PO_GLDIST.P_tot_amount_inv := nvl(GML_PO_GLDIST.P_tot_amount_inv,0) + nvl(GML_PO_GLDIST.P_amount_trans, 0);
325: END IF;
326:
327: IF GML_PO_GLDIST.P_acct_ttl_num = GML_PO_GLDIST.GL$AT_EXP THEN
328: GML_PO_GLDIST.P_amount_trans := GML_PO_GLDIST.P_extended_price ;
329: END IF;
330:
331: IF GML_PO_GLDIST.P_acct_ttl_num = GML_PO_GLDIST.GL$AT_AAP THEN
332: GML_PO_GLDIST.P_amount_trans := GML_PO_GLDIST.P_extended_price * (-1);
327: IF GML_PO_GLDIST.P_acct_ttl_num = GML_PO_GLDIST.GL$AT_EXP THEN
328: GML_PO_GLDIST.P_amount_trans := GML_PO_GLDIST.P_extended_price ;
329: END IF;
330:
331: IF GML_PO_GLDIST.P_acct_ttl_num = GML_PO_GLDIST.GL$AT_AAP THEN
332: GML_PO_GLDIST.P_amount_trans := GML_PO_GLDIST.P_extended_price * (-1);
333: GML_PO_GLDIST.P_tot_amount_aap := GML_PO_GLDIST.P_amount_trans;
334: END IF;
335:
328: GML_PO_GLDIST.P_amount_trans := GML_PO_GLDIST.P_extended_price ;
329: END IF;
330:
331: IF GML_PO_GLDIST.P_acct_ttl_num = GML_PO_GLDIST.GL$AT_AAP THEN
332: GML_PO_GLDIST.P_amount_trans := GML_PO_GLDIST.P_extended_price * (-1);
333: GML_PO_GLDIST.P_tot_amount_aap := GML_PO_GLDIST.P_amount_trans;
334: END IF;
335:
336: IF GML_PO_GLDIST.P_acct_ttl_num = GML_PO_GLDIST.GL$AT_PPV THEN
329: END IF;
330:
331: IF GML_PO_GLDIST.P_acct_ttl_num = GML_PO_GLDIST.GL$AT_AAP THEN
332: GML_PO_GLDIST.P_amount_trans := GML_PO_GLDIST.P_extended_price * (-1);
333: GML_PO_GLDIST.P_tot_amount_aap := GML_PO_GLDIST.P_amount_trans;
334: END IF;
335:
336: IF GML_PO_GLDIST.P_acct_ttl_num = GML_PO_GLDIST.GL$AT_PPV THEN
337: IF ( X_std_actual_ind = 1 OR GML_PO_GLDIST.P_non_inv_ind = 1 ) THEN
332: GML_PO_GLDIST.P_amount_trans := GML_PO_GLDIST.P_extended_price * (-1);
333: GML_PO_GLDIST.P_tot_amount_aap := GML_PO_GLDIST.P_amount_trans;
334: END IF;
335:
336: IF GML_PO_GLDIST.P_acct_ttl_num = GML_PO_GLDIST.GL$AT_PPV THEN
337: IF ( X_std_actual_ind = 1 OR GML_PO_GLDIST.P_non_inv_ind = 1 ) THEN
338: GML_PO_GLDIST.P_amount_trans := 0;
339: ELSE
340: X_tmp_amt := (GML_PO_GLDIST.P_order_qty1 * GML_PO_GLDIST.P_tmp_po_cost) ;
333: GML_PO_GLDIST.P_tot_amount_aap := GML_PO_GLDIST.P_amount_trans;
334: END IF;
335:
336: IF GML_PO_GLDIST.P_acct_ttl_num = GML_PO_GLDIST.GL$AT_PPV THEN
337: IF ( X_std_actual_ind = 1 OR GML_PO_GLDIST.P_non_inv_ind = 1 ) THEN
338: GML_PO_GLDIST.P_amount_trans := 0;
339: ELSE
340: X_tmp_amt := (GML_PO_GLDIST.P_order_qty1 * GML_PO_GLDIST.P_tmp_po_cost) ;
341: X_tmp_amt := ROUND (X_tmp_amt, GML_PO_GLDIST.P_precision);
334: END IF;
335:
336: IF GML_PO_GLDIST.P_acct_ttl_num = GML_PO_GLDIST.GL$AT_PPV THEN
337: IF ( X_std_actual_ind = 1 OR GML_PO_GLDIST.P_non_inv_ind = 1 ) THEN
338: GML_PO_GLDIST.P_amount_trans := 0;
339: ELSE
340: X_tmp_amt := (GML_PO_GLDIST.P_order_qty1 * GML_PO_GLDIST.P_tmp_po_cost) ;
341: X_tmp_amt := ROUND (X_tmp_amt, GML_PO_GLDIST.P_precision);
342: /*P_amount_trans := P_tot_amount_inv - P_amount_trans - X_tmp_amt;*/
336: IF GML_PO_GLDIST.P_acct_ttl_num = GML_PO_GLDIST.GL$AT_PPV THEN
337: IF ( X_std_actual_ind = 1 OR GML_PO_GLDIST.P_non_inv_ind = 1 ) THEN
338: GML_PO_GLDIST.P_amount_trans := 0;
339: ELSE
340: X_tmp_amt := (GML_PO_GLDIST.P_order_qty1 * GML_PO_GLDIST.P_tmp_po_cost) ;
341: X_tmp_amt := ROUND (X_tmp_amt, GML_PO_GLDIST.P_precision);
342: /*P_amount_trans := P_tot_amount_inv - P_amount_trans - X_tmp_amt;*/
343: GML_PO_GLDIST.P_amount_trans := -(GML_PO_GLDIST.P_tot_amount_inv + GML_PO_GLDIST.P_tot_amount_aap );
344: END IF;
337: IF ( X_std_actual_ind = 1 OR GML_PO_GLDIST.P_non_inv_ind = 1 ) THEN
338: GML_PO_GLDIST.P_amount_trans := 0;
339: ELSE
340: X_tmp_amt := (GML_PO_GLDIST.P_order_qty1 * GML_PO_GLDIST.P_tmp_po_cost) ;
341: X_tmp_amt := ROUND (X_tmp_amt, GML_PO_GLDIST.P_precision);
342: /*P_amount_trans := P_tot_amount_inv - P_amount_trans - X_tmp_amt;*/
343: GML_PO_GLDIST.P_amount_trans := -(GML_PO_GLDIST.P_tot_amount_inv + GML_PO_GLDIST.P_tot_amount_aap );
344: END IF;
345: /* B908529 clear for PPV calc with multiple lines */
339: ELSE
340: X_tmp_amt := (GML_PO_GLDIST.P_order_qty1 * GML_PO_GLDIST.P_tmp_po_cost) ;
341: X_tmp_amt := ROUND (X_tmp_amt, GML_PO_GLDIST.P_precision);
342: /*P_amount_trans := P_tot_amount_inv - P_amount_trans - X_tmp_amt;*/
343: GML_PO_GLDIST.P_amount_trans := -(GML_PO_GLDIST.P_tot_amount_inv + GML_PO_GLDIST.P_tot_amount_aap );
344: END IF;
345: /* B908529 clear for PPV calc with multiple lines */
346: P_tot_amount_inv := 0;
347: END IF;
345: /* B908529 clear for PPV calc with multiple lines */
346: P_tot_amount_inv := 0;
347: END IF;
348:
349: IF GML_PO_GLDIST.P_acct_ttl_num = GML_PO_GLDIST.GL$AT_ERV THEN
350: GML_PO_GLDIST.P_amount_trans := 0;
351: END IF;
352:
353: /* # 10/13/95 Convert amount_trans to amount_base*/
346: P_tot_amount_inv := 0;
347: END IF;
348:
349: IF GML_PO_GLDIST.P_acct_ttl_num = GML_PO_GLDIST.GL$AT_ERV THEN
350: GML_PO_GLDIST.P_amount_trans := 0;
351: END IF;
352:
353: /* # 10/13/95 Convert amount_trans to amount_base*/
354: GML_PO_GLDIST.P_amount_base := GML_PO_GLDIST.P_amount_trans * GML_PO_GLDIST.P_exchange_rate;
350: GML_PO_GLDIST.P_amount_trans := 0;
351: END IF;
352:
353: /* # 10/13/95 Convert amount_trans to amount_base*/
354: GML_PO_GLDIST.P_amount_base := GML_PO_GLDIST.P_amount_trans * GML_PO_GLDIST.P_exchange_rate;
355: GML_PO_GLDIST.P_amount_base := ROUND (GML_PO_GLDIST.P_amount_base, GML_PO_GLDIST.P_precision);
356: GML_PO_GLDIST.P_amount_trans := ROUND (GML_PO_GLDIST.P_amount_trans, GML_PO_GLDIST.P_precision); /* workfloat1 comes from curr_rounding procedure*/
357: END calc_dist_amount;
358:
351: END IF;
352:
353: /* # 10/13/95 Convert amount_trans to amount_base*/
354: GML_PO_GLDIST.P_amount_base := GML_PO_GLDIST.P_amount_trans * GML_PO_GLDIST.P_exchange_rate;
355: GML_PO_GLDIST.P_amount_base := ROUND (GML_PO_GLDIST.P_amount_base, GML_PO_GLDIST.P_precision);
356: GML_PO_GLDIST.P_amount_trans := ROUND (GML_PO_GLDIST.P_amount_trans, GML_PO_GLDIST.P_precision); /* workfloat1 comes from curr_rounding procedure*/
357: END calc_dist_amount;
358:
359:
352:
353: /* # 10/13/95 Convert amount_trans to amount_base*/
354: GML_PO_GLDIST.P_amount_base := GML_PO_GLDIST.P_amount_trans * GML_PO_GLDIST.P_exchange_rate;
355: GML_PO_GLDIST.P_amount_base := ROUND (GML_PO_GLDIST.P_amount_base, GML_PO_GLDIST.P_precision);
356: GML_PO_GLDIST.P_amount_trans := ROUND (GML_PO_GLDIST.P_amount_trans, GML_PO_GLDIST.P_precision); /* workfloat1 comes from curr_rounding procedure*/
357: END calc_dist_amount;
358:
359:
360: /*##########################################################################
552: P_exchange_rate := 1;
553: P_mul_div_sign := 0;
554: ELSE
555: /* PLL call to GLCOMMON*/
556: X_retvar := GML_PO_GLDIST.get_exchg_rate( 1, P_po_date, P_default_currency ,P_Billing_currency);
557: IF X_retvar < 1 THEN /*- Query Fails*/
558: P_exchange_rate := 1;
559: P_mul_div_sign := 0;
560: END IF;
585: /* Then Fiscal Yr and Period values are fetched*/
586: /* from FINANCIAL Tables, else, fetched from GEMMS Tables.*/
587: /* B1297909 */
588: /* IF FND_PROFILE.VALUE ('GL$FINANCIAL_PACKAGE' ) = 'ORAFIN' THEN */
589: X_retval := GML_PO_GLDIST.get_orafin_sob (P_co_code, 0);
590: IF X_retval >= 0 THEN
591: /* GML_PO_GLDIST.P_period_date := P_po_date;*/
592: X_retval := GML_PO_GLDIST.get_ofperiod_info (P_co_code, 0,
593: GML_PO_GLDIST.P_sobname,GML_PO_GLDIST.P_calendar_name,
587: /* B1297909 */
588: /* IF FND_PROFILE.VALUE ('GL$FINANCIAL_PACKAGE' ) = 'ORAFIN' THEN */
589: X_retval := GML_PO_GLDIST.get_orafin_sob (P_co_code, 0);
590: IF X_retval >= 0 THEN
591: /* GML_PO_GLDIST.P_period_date := P_po_date;*/
592: X_retval := GML_PO_GLDIST.get_ofperiod_info (P_co_code, 0,
593: GML_PO_GLDIST.P_sobname,GML_PO_GLDIST.P_calendar_name,
594: GML_PO_GLDIST.P_period_type, NULL, NULL,P_po_date);
595: /* 11.Nov.98 GLCOMMON.pll is modified, and accordingly , the changes */
588: /* IF FND_PROFILE.VALUE ('GL$FINANCIAL_PACKAGE' ) = 'ORAFIN' THEN */
589: X_retval := GML_PO_GLDIST.get_orafin_sob (P_co_code, 0);
590: IF X_retval >= 0 THEN
591: /* GML_PO_GLDIST.P_period_date := P_po_date;*/
592: X_retval := GML_PO_GLDIST.get_ofperiod_info (P_co_code, 0,
593: GML_PO_GLDIST.P_sobname,GML_PO_GLDIST.P_calendar_name,
594: GML_PO_GLDIST.P_period_type, NULL, NULL,P_po_date);
595: /* 11.Nov.98 GLCOMMON.pll is modified, and accordingly , the changes */
596: /* are reflected here.*/
589: X_retval := GML_PO_GLDIST.get_orafin_sob (P_co_code, 0);
590: IF X_retval >= 0 THEN
591: /* GML_PO_GLDIST.P_period_date := P_po_date;*/
592: X_retval := GML_PO_GLDIST.get_ofperiod_info (P_co_code, 0,
593: GML_PO_GLDIST.P_sobname,GML_PO_GLDIST.P_calendar_name,
594: GML_PO_GLDIST.P_period_type, NULL, NULL,P_po_date);
595: /* 11.Nov.98 GLCOMMON.pll is modified, and accordingly , the changes */
596: /* are reflected here.*/
597: IF X_retval >= 0 THEN
590: IF X_retval >= 0 THEN
591: /* GML_PO_GLDIST.P_period_date := P_po_date;*/
592: X_retval := GML_PO_GLDIST.get_ofperiod_info (P_co_code, 0,
593: GML_PO_GLDIST.P_sobname,GML_PO_GLDIST.P_calendar_name,
594: GML_PO_GLDIST.P_period_type, NULL, NULL,P_po_date);
595: /* 11.Nov.98 GLCOMMON.pll is modified, and accordingly , the changes */
596: /* are reflected here.*/
597: IF X_retval >= 0 THEN
598: GML_PO_GLDIST.P_fiscal_year := GML_PO_GLDIST.P_periodyear;
594: GML_PO_GLDIST.P_period_type, NULL, NULL,P_po_date);
595: /* 11.Nov.98 GLCOMMON.pll is modified, and accordingly , the changes */
596: /* are reflected here.*/
597: IF X_retval >= 0 THEN
598: GML_PO_GLDIST.P_fiscal_year := GML_PO_GLDIST.P_periodyear;
599: GML_PO_GLDIST.P_period := GML_PO_GLDIST.P_periodnumber;
600: END IF;
601: /* 11.Nov.98. Change ends here.*/
602: END IF;
595: /* 11.Nov.98 GLCOMMON.pll is modified, and accordingly , the changes */
596: /* are reflected here.*/
597: IF X_retval >= 0 THEN
598: GML_PO_GLDIST.P_fiscal_year := GML_PO_GLDIST.P_periodyear;
599: GML_PO_GLDIST.P_period := GML_PO_GLDIST.P_periodnumber;
600: END IF;
601: /* 11.Nov.98. Change ends here.*/
602: END IF;
603: /* ELSE
625: FETCH Cur_po_vend_mst INTO P_vend_gl_class;
626: CLOSE Cur_po_vend_mst;
627:
628: IF V_Single_aqui = TRUE THEN
629: GML_PO_GLDIST.poglded2_check_new_aqui(retcode) ;
630: ELSE
631: GML_PO_GLDIST.load_acct_titles('ITEM',
632: P_gl_item_id,
633: P_co_code,
627:
628: IF V_Single_aqui = TRUE THEN
629: GML_PO_GLDIST.poglded2_check_new_aqui(retcode) ;
630: ELSE
631: GML_PO_GLDIST.load_acct_titles('ITEM',
632: P_gl_item_id,
633: P_co_code,
634: P_non_inv_ind,
635: P_to_whse,
652: P_cost_analysis_code := X_analysiscode1(i);
653: IF P_cost_cmpntcls_id = 0 THEN
654: P_cost_cmpntcls_id := NULL;
655: END IF;
656: GML_PO_GLDIST.process_trans ('ITEM', retcode);
657: END LOOP;
658:
659: /*Initialise X_aqui_row_num*/
660: X_aqui_row_num := 0;
676: CLOSE Cur_po_cost_mst;
677: ELSE
678: CLOSE Cur_po_cost_mst;
679: /*X_no_acqui_titles := poglded2_load_acct_title_array ('AQUI',X_aqui_row_num );*/
680: GML_PO_GLDIST.load_acct_titles('AQUI',
681: P_gl_item_id,
682: P_co_code,
683: P_non_inv_ind,
684: P_to_whse,
722:
723: PROCEDURE process_trans (V_type VARCHAR2, retcode IN OUT NOCOPY NUMBER) AS
724: X_retvar NUMBER;
725: BEGIN
726: P_acct_id := GML_PO_GLDIST.default_mapping ;
727: P_acctg_unit_no := GML_PO_GLDIST.get_acctg_unit_no ;
728: GML_PO_GLDIST.get_acct_no (P_acct_no, P_acct_desc );
729: IF (V_type = 'ITEM') THEN
730: GML_PO_GLDIST.calc_dist_amount ;
723: PROCEDURE process_trans (V_type VARCHAR2, retcode IN OUT NOCOPY NUMBER) AS
724: X_retvar NUMBER;
725: BEGIN
726: P_acct_id := GML_PO_GLDIST.default_mapping ;
727: P_acctg_unit_no := GML_PO_GLDIST.get_acctg_unit_no ;
728: GML_PO_GLDIST.get_acct_no (P_acct_no, P_acct_desc );
729: IF (V_type = 'ITEM') THEN
730: GML_PO_GLDIST.calc_dist_amount ;
731: ELSIF (V_type = 'AQUI') THEN
724: X_retvar NUMBER;
725: BEGIN
726: P_acct_id := GML_PO_GLDIST.default_mapping ;
727: P_acctg_unit_no := GML_PO_GLDIST.get_acctg_unit_no ;
728: GML_PO_GLDIST.get_acct_no (P_acct_no, P_acct_desc );
729: IF (V_type = 'ITEM') THEN
730: GML_PO_GLDIST.calc_dist_amount ;
731: ELSIF (V_type = 'AQUI') THEN
732: IF P_aqui_cost_id > 0 THEN
726: P_acct_id := GML_PO_GLDIST.default_mapping ;
727: P_acctg_unit_no := GML_PO_GLDIST.get_acctg_unit_no ;
728: GML_PO_GLDIST.get_acct_no (P_acct_no, P_acct_desc );
729: IF (V_type = 'ITEM') THEN
730: GML_PO_GLDIST.calc_dist_amount ;
731: ELSIF (V_type = 'AQUI') THEN
732: IF P_aqui_cost_id > 0 THEN
733: X_retvar := GML_PO_GLDIST.calc_dist_amount_aqui ;
734: END IF;
729: IF (V_type = 'ITEM') THEN
730: GML_PO_GLDIST.calc_dist_amount ;
731: ELSIF (V_type = 'AQUI') THEN
732: IF P_aqui_cost_id > 0 THEN
733: X_retvar := GML_PO_GLDIST.calc_dist_amount_aqui ;
734: END IF;
735: END IF;
736: GML_PO_GLDIST.set_data (retcode);
737: END process_trans;
732: IF P_aqui_cost_id > 0 THEN
733: X_retvar := GML_PO_GLDIST.calc_dist_amount_aqui ;
734: END IF;
735: END IF;
736: GML_PO_GLDIST.set_data (retcode);
737: END process_trans;
738:
739: /*##########################################################################
740: # PROC
928: order by 3 desc;
929: X_fetch NUMBER DEFAULT 0;
930: BEGIN
931: OPEN Cur_get_exch_rate;
932: FETCH Cur_get_exch_rate INTO GML_PO_GLDIST.P_exchange_rate, GML_PO_GLDIST.P_mul_div_sign, GML_PO_GLDIST.P_exch_date;
933: IF Cur_get_exch_rate%NOTFOUND THEN
934: X_fetch := 0;
935: OPEN Cur_get_exch_rate_inv;
936: X_fetch := 1;
933: IF Cur_get_exch_rate%NOTFOUND THEN
934: X_fetch := 0;
935: OPEN Cur_get_exch_rate_inv;
936: X_fetch := 1;
937: FETCH Cur_get_exch_rate_inv INTO GML_PO_GLDIST.P_exchange_rate, GML_PO_GLDIST.P_mul_div_sign, GML_PO_GLDIST.P_exch_date;
938: IF Cur_get_exch_rate_inv%NOTFOUND THEN
939: X_fetch := 0;
940: GML_PO_GLDIST.P_exchange_rate := 1;
941: GML_PO_GLDIST.P_mul_div_sign := 0;
936: X_fetch := 1;
937: FETCH Cur_get_exch_rate_inv INTO GML_PO_GLDIST.P_exchange_rate, GML_PO_GLDIST.P_mul_div_sign, GML_PO_GLDIST.P_exch_date;
938: IF Cur_get_exch_rate_inv%NOTFOUND THEN
939: X_fetch := 0;
940: GML_PO_GLDIST.P_exchange_rate := 1;
941: GML_PO_GLDIST.P_mul_div_sign := 0;
942: ELSE
943: IF GML_PO_GLDIST.P_mul_div_sign = 0 THEN
944: GML_PO_GLDIST.P_mul_div_sign := 1;
937: FETCH Cur_get_exch_rate_inv INTO GML_PO_GLDIST.P_exchange_rate, GML_PO_GLDIST.P_mul_div_sign, GML_PO_GLDIST.P_exch_date;
938: IF Cur_get_exch_rate_inv%NOTFOUND THEN
939: X_fetch := 0;
940: GML_PO_GLDIST.P_exchange_rate := 1;
941: GML_PO_GLDIST.P_mul_div_sign := 0;
942: ELSE
943: IF GML_PO_GLDIST.P_mul_div_sign = 0 THEN
944: GML_PO_GLDIST.P_mul_div_sign := 1;
945: ELSE
939: X_fetch := 0;
940: GML_PO_GLDIST.P_exchange_rate := 1;
941: GML_PO_GLDIST.P_mul_div_sign := 0;
942: ELSE
943: IF GML_PO_GLDIST.P_mul_div_sign = 0 THEN
944: GML_PO_GLDIST.P_mul_div_sign := 1;
945: ELSE
946: GML_PO_GLDIST.P_mul_div_sign := 0;
947: END IF;
940: GML_PO_GLDIST.P_exchange_rate := 1;
941: GML_PO_GLDIST.P_mul_div_sign := 0;
942: ELSE
943: IF GML_PO_GLDIST.P_mul_div_sign = 0 THEN
944: GML_PO_GLDIST.P_mul_div_sign := 1;
945: ELSE
946: GML_PO_GLDIST.P_mul_div_sign := 0;
947: END IF;
948: END IF;
942: ELSE
943: IF GML_PO_GLDIST.P_mul_div_sign = 0 THEN
944: GML_PO_GLDIST.P_mul_div_sign := 1;
945: ELSE
946: GML_PO_GLDIST.P_mul_div_sign := 0;
947: END IF;
948: END IF;
949: CLOSE Cur_get_exch_rate_inv;
950: CLOSE Cur_get_exch_rate;
987: X_combination_id NUMBER;
988:
989: CURSOR Cur_count_rows IS
990: SELECT count (*) from po_dist_dtl
991: WHERE doc_id = GML_PO_GLDIST.P_pos_id and
992: line_id = GML_PO_GLDIST.P_line_id and
993: doc_type = GML_PO_GLDIST.P_doc_type;
994:
995: BEGIN
988:
989: CURSOR Cur_count_rows IS
990: SELECT count (*) from po_dist_dtl
991: WHERE doc_id = GML_PO_GLDIST.P_pos_id and
992: line_id = GML_PO_GLDIST.P_line_id and
993: doc_type = GML_PO_GLDIST.P_doc_type;
994:
995: BEGIN
996: GML_PO_GLDIST.P_doc_type := GML_PO_GLDIST.P_doc_type;
989: CURSOR Cur_count_rows IS
990: SELECT count (*) from po_dist_dtl
991: WHERE doc_id = GML_PO_GLDIST.P_pos_id and
992: line_id = GML_PO_GLDIST.P_line_id and
993: doc_type = GML_PO_GLDIST.P_doc_type;
994:
995: BEGIN
996: GML_PO_GLDIST.P_doc_type := GML_PO_GLDIST.P_doc_type;
997: GML_PO_GLDIST.P_recv_seq_no := GML_PO_GLDIST.GL$SE_NEW_RECV ;
992: line_id = GML_PO_GLDIST.P_line_id and
993: doc_type = GML_PO_GLDIST.P_doc_type;
994:
995: BEGIN
996: GML_PO_GLDIST.P_doc_type := GML_PO_GLDIST.P_doc_type;
997: GML_PO_GLDIST.P_recv_seq_no := GML_PO_GLDIST.GL$SE_NEW_RECV ;
998:
999: OPEN Cur_count_rows;
1000: FETCH Cur_count_rows INTO GML_PO_GLDIST.P_row_num;
993: doc_type = GML_PO_GLDIST.P_doc_type;
994:
995: BEGIN
996: GML_PO_GLDIST.P_doc_type := GML_PO_GLDIST.P_doc_type;
997: GML_PO_GLDIST.P_recv_seq_no := GML_PO_GLDIST.GL$SE_NEW_RECV ;
998:
999: OPEN Cur_count_rows;
1000: FETCH Cur_count_rows INTO GML_PO_GLDIST.P_row_num;
1001: CLOSE Cur_count_rows;
996: GML_PO_GLDIST.P_doc_type := GML_PO_GLDIST.P_doc_type;
997: GML_PO_GLDIST.P_recv_seq_no := GML_PO_GLDIST.GL$SE_NEW_RECV ;
998:
999: OPEN Cur_count_rows;
1000: FETCH Cur_count_rows INTO GML_PO_GLDIST.P_row_num;
1001: CLOSE Cur_count_rows;
1002: GML_PO_GLDIST.P_row_num := nvl(GML_PO_GLDIST.P_row_num, 0) + 1;
1003:
1004: IF GML_PO_GLDIST.P_type = 'ITEM' THEN
998:
999: OPEN Cur_count_rows;
1000: FETCH Cur_count_rows INTO GML_PO_GLDIST.P_row_num;
1001: CLOSE Cur_count_rows;
1002: GML_PO_GLDIST.P_row_num := nvl(GML_PO_GLDIST.P_row_num, 0) + 1;
1003:
1004: IF GML_PO_GLDIST.P_type = 'ITEM' THEN
1005: X_amount_base := GML_PO_GLDIST.P_amount_base;
1006: X_amount_trans := GML_PO_GLDIST.P_amount_trans;
1000: FETCH Cur_count_rows INTO GML_PO_GLDIST.P_row_num;
1001: CLOSE Cur_count_rows;
1002: GML_PO_GLDIST.P_row_num := nvl(GML_PO_GLDIST.P_row_num, 0) + 1;
1003:
1004: IF GML_PO_GLDIST.P_type = 'ITEM' THEN
1005: X_amount_base := GML_PO_GLDIST.P_amount_base;
1006: X_amount_trans := GML_PO_GLDIST.P_amount_trans;
1007: ELSIF GML_PO_GLDIST.P_type = 'AQUI' THEN
1008: X_amount_base := GML_PO_GLDIST.P_amount_base_aqui;
1001: CLOSE Cur_count_rows;
1002: GML_PO_GLDIST.P_row_num := nvl(GML_PO_GLDIST.P_row_num, 0) + 1;
1003:
1004: IF GML_PO_GLDIST.P_type = 'ITEM' THEN
1005: X_amount_base := GML_PO_GLDIST.P_amount_base;
1006: X_amount_trans := GML_PO_GLDIST.P_amount_trans;
1007: ELSIF GML_PO_GLDIST.P_type = 'AQUI' THEN
1008: X_amount_base := GML_PO_GLDIST.P_amount_base_aqui;
1009: X_amount_trans := GML_PO_GLDIST.P_amount_trans_aqui;
1002: GML_PO_GLDIST.P_row_num := nvl(GML_PO_GLDIST.P_row_num, 0) + 1;
1003:
1004: IF GML_PO_GLDIST.P_type = 'ITEM' THEN
1005: X_amount_base := GML_PO_GLDIST.P_amount_base;
1006: X_amount_trans := GML_PO_GLDIST.P_amount_trans;
1007: ELSIF GML_PO_GLDIST.P_type = 'AQUI' THEN
1008: X_amount_base := GML_PO_GLDIST.P_amount_base_aqui;
1009: X_amount_trans := GML_PO_GLDIST.P_amount_trans_aqui;
1010: END IF;
1003:
1004: IF GML_PO_GLDIST.P_type = 'ITEM' THEN
1005: X_amount_base := GML_PO_GLDIST.P_amount_base;
1006: X_amount_trans := GML_PO_GLDIST.P_amount_trans;
1007: ELSIF GML_PO_GLDIST.P_type = 'AQUI' THEN
1008: X_amount_base := GML_PO_GLDIST.P_amount_base_aqui;
1009: X_amount_trans := GML_PO_GLDIST.P_amount_trans_aqui;
1010: END IF;
1011:
1004: IF GML_PO_GLDIST.P_type = 'ITEM' THEN
1005: X_amount_base := GML_PO_GLDIST.P_amount_base;
1006: X_amount_trans := GML_PO_GLDIST.P_amount_trans;
1007: ELSIF GML_PO_GLDIST.P_type = 'AQUI' THEN
1008: X_amount_base := GML_PO_GLDIST.P_amount_base_aqui;
1009: X_amount_trans := GML_PO_GLDIST.P_amount_trans_aqui;
1010: END IF;
1011:
1012: X_last_update_date := SYSDATE;
1005: X_amount_base := GML_PO_GLDIST.P_amount_base;
1006: X_amount_trans := GML_PO_GLDIST.P_amount_trans;
1007: ELSIF GML_PO_GLDIST.P_type = 'AQUI' THEN
1008: X_amount_base := GML_PO_GLDIST.P_amount_base_aqui;
1009: X_amount_trans := GML_PO_GLDIST.P_amount_trans_aqui;
1010: END IF;
1011:
1012: X_last_update_date := SYSDATE;
1013: X_created_by := FND_PROFILE.VALUE ('USER_ID');
1019: X_delete_mark := 0;
1020:
1021: /*Sandeep. Bug Fixed. Modified for setting the Qty to '0' , if it is an*/
1022: /* Aqui. row.*/
1023: IF GML_PO_GLDIST.p_aqui_cost_id = 0 OR
1024: GML_PO_GLDIST.p_aqui_cost_id IS NULL THEN
1025: GML_PO_GLDIST.P_aqui_cost_id := NULL;
1026: X_order_qty1 := GML_PO_GLDIST.P_order_qty1;
1027: ELSE
1020:
1021: /*Sandeep. Bug Fixed. Modified for setting the Qty to '0' , if it is an*/
1022: /* Aqui. row.*/
1023: IF GML_PO_GLDIST.p_aqui_cost_id = 0 OR
1024: GML_PO_GLDIST.p_aqui_cost_id IS NULL THEN
1025: GML_PO_GLDIST.P_aqui_cost_id := NULL;
1026: X_order_qty1 := GML_PO_GLDIST.P_order_qty1;
1027: ELSE
1028: X_order_qty1 := 0;
1021: /*Sandeep. Bug Fixed. Modified for setting the Qty to '0' , if it is an*/
1022: /* Aqui. row.*/
1023: IF GML_PO_GLDIST.p_aqui_cost_id = 0 OR
1024: GML_PO_GLDIST.p_aqui_cost_id IS NULL THEN
1025: GML_PO_GLDIST.P_aqui_cost_id := NULL;
1026: X_order_qty1 := GML_PO_GLDIST.P_order_qty1;
1027: ELSE
1028: X_order_qty1 := 0;
1029: END IF;
1022: /* Aqui. row.*/
1023: IF GML_PO_GLDIST.p_aqui_cost_id = 0 OR
1024: GML_PO_GLDIST.p_aqui_cost_id IS NULL THEN
1025: GML_PO_GLDIST.P_aqui_cost_id := NULL;
1026: X_order_qty1 := GML_PO_GLDIST.P_order_qty1;
1027: ELSE
1028: X_order_qty1 := 0;
1029: END IF;
1030:
1027: ELSE
1028: X_order_qty1 := 0;
1029: END IF;
1030:
1031: IF (GML_PO_GLDIST.P_acct_id IS NULL OR GML_PO_GLDIST.P_acct_id = -1) THEN
1032: retcode := 1;
1033: ELSIF GML_PO_GLDIST.P_acctg_unit_id IS NULL THEN
1034: retcode := 2;
1035: ELSIF GML_PO_GLDIST.P_fiscal_year IS NULL THEN
1029: END IF;
1030:
1031: IF (GML_PO_GLDIST.P_acct_id IS NULL OR GML_PO_GLDIST.P_acct_id = -1) THEN
1032: retcode := 1;
1033: ELSIF GML_PO_GLDIST.P_acctg_unit_id IS NULL THEN
1034: retcode := 2;
1035: ELSIF GML_PO_GLDIST.P_fiscal_year IS NULL THEN
1036: retcode := 3;
1037: ELSIF GML_PO_GLDIST.P_ledger_code IS NULL THEN
1031: IF (GML_PO_GLDIST.P_acct_id IS NULL OR GML_PO_GLDIST.P_acct_id = -1) THEN
1032: retcode := 1;
1033: ELSIF GML_PO_GLDIST.P_acctg_unit_id IS NULL THEN
1034: retcode := 2;
1035: ELSIF GML_PO_GLDIST.P_fiscal_year IS NULL THEN
1036: retcode := 3;
1037: ELSIF GML_PO_GLDIST.P_ledger_code IS NULL THEN
1038: retcode := 4;
1039: END IF;
1033: ELSIF GML_PO_GLDIST.P_acctg_unit_id IS NULL THEN
1034: retcode := 2;
1035: ELSIF GML_PO_GLDIST.P_fiscal_year IS NULL THEN
1036: retcode := 3;
1037: ELSIF GML_PO_GLDIST.P_ledger_code IS NULL THEN
1038: retcode := 4;
1039: END IF;
1040:
1041: IF retcode >0 THEN
1042: RETURN;
1043: END IF;
1044:
1045:
1046: IF (GML_PO_GLDIST.P_action = 1 ) THEN
1047: INSERT INTO PO_DIST_DTL ( DOC_TYPE,
1048: DOC_ID,
1049: LINE_ID,
1050: RECV_SEQ_NO,
1075: LAST_UPDATE_LOGIN,
1076: TRANS_CNT,
1077: TEXT_CODE,
1078: DELETE_MARK)
1079: VALUES (GML_PO_GLDIST.P_doc_type,
1080: GML_PO_GLDIST.P_pos_id,
1081: GML_PO_GLDIST.P_line_id,
1082: GML_PO_GLDIST.P_recv_seq_no,
1083: GML_PO_GLDIST.p_row_num,
1076: TRANS_CNT,
1077: TEXT_CODE,
1078: DELETE_MARK)
1079: VALUES (GML_PO_GLDIST.P_doc_type,
1080: GML_PO_GLDIST.P_pos_id,
1081: GML_PO_GLDIST.P_line_id,
1082: GML_PO_GLDIST.P_recv_seq_no,
1083: GML_PO_GLDIST.p_row_num,
1084: GML_PO_GLDIST.P_aqui_cost_id,
1077: TEXT_CODE,
1078: DELETE_MARK)
1079: VALUES (GML_PO_GLDIST.P_doc_type,
1080: GML_PO_GLDIST.P_pos_id,
1081: GML_PO_GLDIST.P_line_id,
1082: GML_PO_GLDIST.P_recv_seq_no,
1083: GML_PO_GLDIST.p_row_num,
1084: GML_PO_GLDIST.P_aqui_cost_id,
1085: GML_PO_GLDIST.P_gl_item_id,
1078: DELETE_MARK)
1079: VALUES (GML_PO_GLDIST.P_doc_type,
1080: GML_PO_GLDIST.P_pos_id,
1081: GML_PO_GLDIST.P_line_id,
1082: GML_PO_GLDIST.P_recv_seq_no,
1083: GML_PO_GLDIST.p_row_num,
1084: GML_PO_GLDIST.P_aqui_cost_id,
1085: GML_PO_GLDIST.P_gl_item_id,
1086: GML_PO_GLDIST.P_acctg_unit_id,
1079: VALUES (GML_PO_GLDIST.P_doc_type,
1080: GML_PO_GLDIST.P_pos_id,
1081: GML_PO_GLDIST.P_line_id,
1082: GML_PO_GLDIST.P_recv_seq_no,
1083: GML_PO_GLDIST.p_row_num,
1084: GML_PO_GLDIST.P_aqui_cost_id,
1085: GML_PO_GLDIST.P_gl_item_id,
1086: GML_PO_GLDIST.P_acctg_unit_id,
1087: GML_PO_GLDIST.P_acct_id,
1080: GML_PO_GLDIST.P_pos_id,
1081: GML_PO_GLDIST.P_line_id,
1082: GML_PO_GLDIST.P_recv_seq_no,
1083: GML_PO_GLDIST.p_row_num,
1084: GML_PO_GLDIST.P_aqui_cost_id,
1085: GML_PO_GLDIST.P_gl_item_id,
1086: GML_PO_GLDIST.P_acctg_unit_id,
1087: GML_PO_GLDIST.P_acct_id,
1088: GML_PO_GLDIST.P_acct_desc,
1081: GML_PO_GLDIST.P_line_id,
1082: GML_PO_GLDIST.P_recv_seq_no,
1083: GML_PO_GLDIST.p_row_num,
1084: GML_PO_GLDIST.P_aqui_cost_id,
1085: GML_PO_GLDIST.P_gl_item_id,
1086: GML_PO_GLDIST.P_acctg_unit_id,
1087: GML_PO_GLDIST.P_acct_id,
1088: GML_PO_GLDIST.P_acct_desc,
1089: GML_PO_GLDIST.P_acct_ttl_num,
1082: GML_PO_GLDIST.P_recv_seq_no,
1083: GML_PO_GLDIST.p_row_num,
1084: GML_PO_GLDIST.P_aqui_cost_id,
1085: GML_PO_GLDIST.P_gl_item_id,
1086: GML_PO_GLDIST.P_acctg_unit_id,
1087: GML_PO_GLDIST.P_acct_id,
1088: GML_PO_GLDIST.P_acct_desc,
1089: GML_PO_GLDIST.P_acct_ttl_num,
1090: nvl(X_amount_base,0),
1083: GML_PO_GLDIST.p_row_num,
1084: GML_PO_GLDIST.P_aqui_cost_id,
1085: GML_PO_GLDIST.P_gl_item_id,
1086: GML_PO_GLDIST.P_acctg_unit_id,
1087: GML_PO_GLDIST.P_acct_id,
1088: GML_PO_GLDIST.P_acct_desc,
1089: GML_PO_GLDIST.P_acct_ttl_num,
1090: nvl(X_amount_base,0),
1091: nvl(X_amount_trans,0),
1084: GML_PO_GLDIST.P_aqui_cost_id,
1085: GML_PO_GLDIST.P_gl_item_id,
1086: GML_PO_GLDIST.P_acctg_unit_id,
1087: GML_PO_GLDIST.P_acct_id,
1088: GML_PO_GLDIST.P_acct_desc,
1089: GML_PO_GLDIST.P_acct_ttl_num,
1090: nvl(X_amount_base,0),
1091: nvl(X_amount_trans,0),
1092: nvl(X_order_qty1,0),
1085: GML_PO_GLDIST.P_gl_item_id,
1086: GML_PO_GLDIST.P_acctg_unit_id,
1087: GML_PO_GLDIST.P_acct_id,
1088: GML_PO_GLDIST.P_acct_desc,
1089: GML_PO_GLDIST.P_acct_ttl_num,
1090: nvl(X_amount_base,0),
1091: nvl(X_amount_trans,0),
1092: nvl(X_order_qty1,0),
1093: GML_PO_GLDIST.P_order_um1,
1089: GML_PO_GLDIST.P_acct_ttl_num,
1090: nvl(X_amount_base,0),
1091: nvl(X_amount_trans,0),
1092: nvl(X_order_qty1,0),
1093: GML_PO_GLDIST.P_order_um1,
1094: GML_PO_GLDIST.P_project,
1095: nvl(GML_PO_GLDIST.P_gl_posted_ind,0),
1096: GML_PO_GLDIST.P_po_date,
1097: GML_PO_GLDIST.P_billing_currency,
1090: nvl(X_amount_base,0),
1091: nvl(X_amount_trans,0),
1092: nvl(X_order_qty1,0),
1093: GML_PO_GLDIST.P_order_um1,
1094: GML_PO_GLDIST.P_project,
1095: nvl(GML_PO_GLDIST.P_gl_posted_ind,0),
1096: GML_PO_GLDIST.P_po_date,
1097: GML_PO_GLDIST.P_billing_currency,
1098: GML_PO_GLDIST.P_base_currency,
1091: nvl(X_amount_trans,0),
1092: nvl(X_order_qty1,0),
1093: GML_PO_GLDIST.P_order_um1,
1094: GML_PO_GLDIST.P_project,
1095: nvl(GML_PO_GLDIST.P_gl_posted_ind,0),
1096: GML_PO_GLDIST.P_po_date,
1097: GML_PO_GLDIST.P_billing_currency,
1098: GML_PO_GLDIST.P_base_currency,
1099: GML_PO_GLDIST.P_co_code,
1092: nvl(X_order_qty1,0),
1093: GML_PO_GLDIST.P_order_um1,
1094: GML_PO_GLDIST.P_project,
1095: nvl(GML_PO_GLDIST.P_gl_posted_ind,0),
1096: GML_PO_GLDIST.P_po_date,
1097: GML_PO_GLDIST.P_billing_currency,
1098: GML_PO_GLDIST.P_base_currency,
1099: GML_PO_GLDIST.P_co_code,
1100: GML_PO_GLDIST.P_ledger_code,
1093: GML_PO_GLDIST.P_order_um1,
1094: GML_PO_GLDIST.P_project,
1095: nvl(GML_PO_GLDIST.P_gl_posted_ind,0),
1096: GML_PO_GLDIST.P_po_date,
1097: GML_PO_GLDIST.P_billing_currency,
1098: GML_PO_GLDIST.P_base_currency,
1099: GML_PO_GLDIST.P_co_code,
1100: GML_PO_GLDIST.P_ledger_code,
1101: GML_PO_GLDIST.P_fiscal_year,
1094: GML_PO_GLDIST.P_project,
1095: nvl(GML_PO_GLDIST.P_gl_posted_ind,0),
1096: GML_PO_GLDIST.P_po_date,
1097: GML_PO_GLDIST.P_billing_currency,
1098: GML_PO_GLDIST.P_base_currency,
1099: GML_PO_GLDIST.P_co_code,
1100: GML_PO_GLDIST.P_ledger_code,
1101: GML_PO_GLDIST.P_fiscal_year,
1102: GML_PO_GLDIST.P_period,
1095: nvl(GML_PO_GLDIST.P_gl_posted_ind,0),
1096: GML_PO_GLDIST.P_po_date,
1097: GML_PO_GLDIST.P_billing_currency,
1098: GML_PO_GLDIST.P_base_currency,
1099: GML_PO_GLDIST.P_co_code,
1100: GML_PO_GLDIST.P_ledger_code,
1101: GML_PO_GLDIST.P_fiscal_year,
1102: GML_PO_GLDIST.P_period,
1103: X_last_update_date,
1096: GML_PO_GLDIST.P_po_date,
1097: GML_PO_GLDIST.P_billing_currency,
1098: GML_PO_GLDIST.P_base_currency,
1099: GML_PO_GLDIST.P_co_code,
1100: GML_PO_GLDIST.P_ledger_code,
1101: GML_PO_GLDIST.P_fiscal_year,
1102: GML_PO_GLDIST.P_period,
1103: X_last_update_date,
1104: X_created_by,
1097: GML_PO_GLDIST.P_billing_currency,
1098: GML_PO_GLDIST.P_base_currency,
1099: GML_PO_GLDIST.P_co_code,
1100: GML_PO_GLDIST.P_ledger_code,
1101: GML_PO_GLDIST.P_fiscal_year,
1102: GML_PO_GLDIST.P_period,
1103: X_last_update_date,
1104: X_created_by,
1105: X_creation_date,
1098: GML_PO_GLDIST.P_base_currency,
1099: GML_PO_GLDIST.P_co_code,
1100: GML_PO_GLDIST.P_ledger_code,
1101: GML_PO_GLDIST.P_fiscal_year,
1102: GML_PO_GLDIST.P_period,
1103: X_last_update_date,
1104: X_created_by,
1105: X_creation_date,
1106: X_last_updated_by,
1111:
1112:
1113: /*Bug# 1324319 Added code to pass the AAP and PPV accts generated at the OPM side
1114: over to the APPS side. */
1115: if GML_PO_GLDIST.P_acct_ttl_num in (3100,6100) and GML_PO_GLDIST.P_aqui_cost_id is NULL
1116: then
1117: /* RVK 1394532 */
1118: GML_PO_GLDIST.combination_id( GML_PO_GLDIST.P_whse_co_code,
1119: GML_PO_GLDIST.P_acct_id,
1114: over to the APPS side. */
1115: if GML_PO_GLDIST.P_acct_ttl_num in (3100,6100) and GML_PO_GLDIST.P_aqui_cost_id is NULL
1116: then
1117: /* RVK 1394532 */
1118: GML_PO_GLDIST.combination_id( GML_PO_GLDIST.P_whse_co_code,
1119: GML_PO_GLDIST.P_acct_id,
1120: GML_PO_GLDIST.P_acctg_unit_id,
1121: X_combination_id);
1122:
1115: if GML_PO_GLDIST.P_acct_ttl_num in (3100,6100) and GML_PO_GLDIST.P_aqui_cost_id is NULL
1116: then
1117: /* RVK 1394532 */
1118: GML_PO_GLDIST.combination_id( GML_PO_GLDIST.P_whse_co_code,
1119: GML_PO_GLDIST.P_acct_id,
1120: GML_PO_GLDIST.P_acctg_unit_id,
1121: X_combination_id);
1122:
1123: GML_PO_GLDIST.update_accounts_orcl( GML_PO_GLDIST.P_pos_id,
1116: then
1117: /* RVK 1394532 */
1118: GML_PO_GLDIST.combination_id( GML_PO_GLDIST.P_whse_co_code,
1119: GML_PO_GLDIST.P_acct_id,
1120: GML_PO_GLDIST.P_acctg_unit_id,
1121: X_combination_id);
1122:
1123: GML_PO_GLDIST.update_accounts_orcl( GML_PO_GLDIST.P_pos_id,
1124: GML_PO_GLDIST.P_line_id,
1119: GML_PO_GLDIST.P_acct_id,
1120: GML_PO_GLDIST.P_acctg_unit_id,
1121: X_combination_id);
1122:
1123: GML_PO_GLDIST.update_accounts_orcl( GML_PO_GLDIST.P_pos_id,
1124: GML_PO_GLDIST.P_line_id,
1125: GML_PO_GLDIST.P_orgn_code,
1126: GML_PO_GLDIST.P_acct_ttl_num,
1127: X_combination_id);
1120: GML_PO_GLDIST.P_acctg_unit_id,
1121: X_combination_id);
1122:
1123: GML_PO_GLDIST.update_accounts_orcl( GML_PO_GLDIST.P_pos_id,
1124: GML_PO_GLDIST.P_line_id,
1125: GML_PO_GLDIST.P_orgn_code,
1126: GML_PO_GLDIST.P_acct_ttl_num,
1127: X_combination_id);
1128: end if;
1121: X_combination_id);
1122:
1123: GML_PO_GLDIST.update_accounts_orcl( GML_PO_GLDIST.P_pos_id,
1124: GML_PO_GLDIST.P_line_id,
1125: GML_PO_GLDIST.P_orgn_code,
1126: GML_PO_GLDIST.P_acct_ttl_num,
1127: X_combination_id);
1128: end if;
1129:
1122:
1123: GML_PO_GLDIST.update_accounts_orcl( GML_PO_GLDIST.P_pos_id,
1124: GML_PO_GLDIST.P_line_id,
1125: GML_PO_GLDIST.P_orgn_code,
1126: GML_PO_GLDIST.P_acct_ttl_num,
1127: X_combination_id);
1128: end if;
1129:
1130: ELSIF ( GML_PO_GLDIST.P_action = 4 ) THEN
1126: GML_PO_GLDIST.P_acct_ttl_num,
1127: X_combination_id);
1128: end if;
1129:
1130: ELSIF ( GML_PO_GLDIST.P_action = 4 ) THEN
1131: GML_PO_GLDIST.P_row_num_upd := NVL(GML_PO_GLDIST.P_row_num_upd,0) + 1;
1132: UPDATE PO_DIST_DTL SET aqui_cost_id = GML_PO_GLDIST.P_aqui_cost_id,
1133: item_id = GML_PO_GLDIST.P_gl_item_id,
1134: acctg_unit_id = GML_PO_GLDIST.P_acctg_unit_id,
1127: X_combination_id);
1128: end if;
1129:
1130: ELSIF ( GML_PO_GLDIST.P_action = 4 ) THEN
1131: GML_PO_GLDIST.P_row_num_upd := NVL(GML_PO_GLDIST.P_row_num_upd,0) + 1;
1132: UPDATE PO_DIST_DTL SET aqui_cost_id = GML_PO_GLDIST.P_aqui_cost_id,
1133: item_id = GML_PO_GLDIST.P_gl_item_id,
1134: acctg_unit_id = GML_PO_GLDIST.P_acctg_unit_id,
1135: acct_id = GML_PO_GLDIST.P_acct_id,
1128: end if;
1129:
1130: ELSIF ( GML_PO_GLDIST.P_action = 4 ) THEN
1131: GML_PO_GLDIST.P_row_num_upd := NVL(GML_PO_GLDIST.P_row_num_upd,0) + 1;
1132: UPDATE PO_DIST_DTL SET aqui_cost_id = GML_PO_GLDIST.P_aqui_cost_id,
1133: item_id = GML_PO_GLDIST.P_gl_item_id,
1134: acctg_unit_id = GML_PO_GLDIST.P_acctg_unit_id,
1135: acct_id = GML_PO_GLDIST.P_acct_id,
1136: acct_desc = GML_PO_GLDIST.P_acct_desc,
1129:
1130: ELSIF ( GML_PO_GLDIST.P_action = 4 ) THEN
1131: GML_PO_GLDIST.P_row_num_upd := NVL(GML_PO_GLDIST.P_row_num_upd,0) + 1;
1132: UPDATE PO_DIST_DTL SET aqui_cost_id = GML_PO_GLDIST.P_aqui_cost_id,
1133: item_id = GML_PO_GLDIST.P_gl_item_id,
1134: acctg_unit_id = GML_PO_GLDIST.P_acctg_unit_id,
1135: acct_id = GML_PO_GLDIST.P_acct_id,
1136: acct_desc = GML_PO_GLDIST.P_acct_desc,
1137: acct_ttl_type = GML_PO_GLDIST.P_acct_ttl_num,
1130: ELSIF ( GML_PO_GLDIST.P_action = 4 ) THEN
1131: GML_PO_GLDIST.P_row_num_upd := NVL(GML_PO_GLDIST.P_row_num_upd,0) + 1;
1132: UPDATE PO_DIST_DTL SET aqui_cost_id = GML_PO_GLDIST.P_aqui_cost_id,
1133: item_id = GML_PO_GLDIST.P_gl_item_id,
1134: acctg_unit_id = GML_PO_GLDIST.P_acctg_unit_id,
1135: acct_id = GML_PO_GLDIST.P_acct_id,
1136: acct_desc = GML_PO_GLDIST.P_acct_desc,
1137: acct_ttl_type = GML_PO_GLDIST.P_acct_ttl_num,
1138: amount_base = nvl(X_amount_base,0),
1131: GML_PO_GLDIST.P_row_num_upd := NVL(GML_PO_GLDIST.P_row_num_upd,0) + 1;
1132: UPDATE PO_DIST_DTL SET aqui_cost_id = GML_PO_GLDIST.P_aqui_cost_id,
1133: item_id = GML_PO_GLDIST.P_gl_item_id,
1134: acctg_unit_id = GML_PO_GLDIST.P_acctg_unit_id,
1135: acct_id = GML_PO_GLDIST.P_acct_id,
1136: acct_desc = GML_PO_GLDIST.P_acct_desc,
1137: acct_ttl_type = GML_PO_GLDIST.P_acct_ttl_num,
1138: amount_base = nvl(X_amount_base,0),
1139: amount_trans = nvl(X_amount_trans,0),
1132: UPDATE PO_DIST_DTL SET aqui_cost_id = GML_PO_GLDIST.P_aqui_cost_id,
1133: item_id = GML_PO_GLDIST.P_gl_item_id,
1134: acctg_unit_id = GML_PO_GLDIST.P_acctg_unit_id,
1135: acct_id = GML_PO_GLDIST.P_acct_id,
1136: acct_desc = GML_PO_GLDIST.P_acct_desc,
1137: acct_ttl_type = GML_PO_GLDIST.P_acct_ttl_num,
1138: amount_base = nvl(X_amount_base,0),
1139: amount_trans = nvl(X_amount_trans,0),
1140: quantity = nvl(GML_PO_GLDIST.P_order_qty1,0),
1133: item_id = GML_PO_GLDIST.P_gl_item_id,
1134: acctg_unit_id = GML_PO_GLDIST.P_acctg_unit_id,
1135: acct_id = GML_PO_GLDIST.P_acct_id,
1136: acct_desc = GML_PO_GLDIST.P_acct_desc,
1137: acct_ttl_type = GML_PO_GLDIST.P_acct_ttl_num,
1138: amount_base = nvl(X_amount_base,0),
1139: amount_trans = nvl(X_amount_trans,0),
1140: quantity = nvl(GML_PO_GLDIST.P_order_qty1,0),
1141: quantity_um = GML_PO_GLDIST.P_order_um1,
1136: acct_desc = GML_PO_GLDIST.P_acct_desc,
1137: acct_ttl_type = GML_PO_GLDIST.P_acct_ttl_num,
1138: amount_base = nvl(X_amount_base,0),
1139: amount_trans = nvl(X_amount_trans,0),
1140: quantity = nvl(GML_PO_GLDIST.P_order_qty1,0),
1141: quantity_um = GML_PO_GLDIST.P_order_um1,
1142: project_no = GML_PO_GLDIST.P_project,
1143: gl_posted_ind = nvl(GML_PO_GLDIST.P_gl_posted_ind,0),
1144: last_update_date = X_last_update_date,
1137: acct_ttl_type = GML_PO_GLDIST.P_acct_ttl_num,
1138: amount_base = nvl(X_amount_base,0),
1139: amount_trans = nvl(X_amount_trans,0),
1140: quantity = nvl(GML_PO_GLDIST.P_order_qty1,0),
1141: quantity_um = GML_PO_GLDIST.P_order_um1,
1142: project_no = GML_PO_GLDIST.P_project,
1143: gl_posted_ind = nvl(GML_PO_GLDIST.P_gl_posted_ind,0),
1144: last_update_date = X_last_update_date,
1145: last_updated_by = X_last_updated_by,
1138: amount_base = nvl(X_amount_base,0),
1139: amount_trans = nvl(X_amount_trans,0),
1140: quantity = nvl(GML_PO_GLDIST.P_order_qty1,0),
1141: quantity_um = GML_PO_GLDIST.P_order_um1,
1142: project_no = GML_PO_GLDIST.P_project,
1143: gl_posted_ind = nvl(GML_PO_GLDIST.P_gl_posted_ind,0),
1144: last_update_date = X_last_update_date,
1145: last_updated_by = X_last_updated_by,
1146: last_update_login = X_last_update_login
1139: amount_trans = nvl(X_amount_trans,0),
1140: quantity = nvl(GML_PO_GLDIST.P_order_qty1,0),
1141: quantity_um = GML_PO_GLDIST.P_order_um1,
1142: project_no = GML_PO_GLDIST.P_project,
1143: gl_posted_ind = nvl(GML_PO_GLDIST.P_gl_posted_ind,0),
1144: last_update_date = X_last_update_date,
1145: last_updated_by = X_last_updated_by,
1146: last_update_login = X_last_update_login
1147:
1144: last_update_date = X_last_update_date,
1145: last_updated_by = X_last_updated_by,
1146: last_update_login = X_last_update_login
1147:
1148: WHERE doc_type = GML_PO_GLDIST.P_doc_type and /* B2237665 */
1149: doc_id = GML_PO_GLDIST.P_pos_id and
1150: line_id = GML_PO_GLDIST.P_line_id and
1151: recv_seq_no = GML_PO_GLDIST.P_recv_seq_no and
1152: acct_ttl_type = GML_PO_GLDIST.P_acct_ttl_num and
1145: last_updated_by = X_last_updated_by,
1146: last_update_login = X_last_update_login
1147:
1148: WHERE doc_type = GML_PO_GLDIST.P_doc_type and /* B2237665 */
1149: doc_id = GML_PO_GLDIST.P_pos_id and
1150: line_id = GML_PO_GLDIST.P_line_id and
1151: recv_seq_no = GML_PO_GLDIST.P_recv_seq_no and
1152: acct_ttl_type = GML_PO_GLDIST.P_acct_ttl_num and
1153: seq_no = GML_PO_GLDIST.P_row_num_upd;
1146: last_update_login = X_last_update_login
1147:
1148: WHERE doc_type = GML_PO_GLDIST.P_doc_type and /* B2237665 */
1149: doc_id = GML_PO_GLDIST.P_pos_id and
1150: line_id = GML_PO_GLDIST.P_line_id and
1151: recv_seq_no = GML_PO_GLDIST.P_recv_seq_no and
1152: acct_ttl_type = GML_PO_GLDIST.P_acct_ttl_num and
1153: seq_no = GML_PO_GLDIST.P_row_num_upd;
1154:
1147:
1148: WHERE doc_type = GML_PO_GLDIST.P_doc_type and /* B2237665 */
1149: doc_id = GML_PO_GLDIST.P_pos_id and
1150: line_id = GML_PO_GLDIST.P_line_id and
1151: recv_seq_no = GML_PO_GLDIST.P_recv_seq_no and
1152: acct_ttl_type = GML_PO_GLDIST.P_acct_ttl_num and
1153: seq_no = GML_PO_GLDIST.P_row_num_upd;
1154:
1155: /* B1409258 PPB added the above insert statement incase if PO distributions are not created
1148: WHERE doc_type = GML_PO_GLDIST.P_doc_type and /* B2237665 */
1149: doc_id = GML_PO_GLDIST.P_pos_id and
1150: line_id = GML_PO_GLDIST.P_line_id and
1151: recv_seq_no = GML_PO_GLDIST.P_recv_seq_no and
1152: acct_ttl_type = GML_PO_GLDIST.P_acct_ttl_num and
1153: seq_no = GML_PO_GLDIST.P_row_num_upd;
1154:
1155: /* B1409258 PPB added the above insert statement incase if PO distributions are not created
1156: for PO due to some reason. If the PO is then updated the the correct distributions will be created...
1149: doc_id = GML_PO_GLDIST.P_pos_id and
1150: line_id = GML_PO_GLDIST.P_line_id and
1151: recv_seq_no = GML_PO_GLDIST.P_recv_seq_no and
1152: acct_ttl_type = GML_PO_GLDIST.P_acct_ttl_num and
1153: seq_no = GML_PO_GLDIST.P_row_num_upd;
1154:
1155: /* B1409258 PPB added the above insert statement incase if PO distributions are not created
1156: for PO due to some reason. If the PO is then updated the the correct distributions will be created...
1157: ie program goes to update the po_dist_dtl and finds no record there and then inserts a new if there is
1189: LAST_UPDATE_LOGIN,
1190: TRANS_CNT,
1191: TEXT_CODE,
1192: DELETE_MARK)
1193: VALUES (GML_PO_GLDIST.P_doc_type,
1194: GML_PO_GLDIST.P_pos_id,
1195: GML_PO_GLDIST.P_line_id,
1196: GML_PO_GLDIST.P_recv_seq_no,
1197: GML_PO_GLDIST.p_row_num,
1190: TRANS_CNT,
1191: TEXT_CODE,
1192: DELETE_MARK)
1193: VALUES (GML_PO_GLDIST.P_doc_type,
1194: GML_PO_GLDIST.P_pos_id,
1195: GML_PO_GLDIST.P_line_id,
1196: GML_PO_GLDIST.P_recv_seq_no,
1197: GML_PO_GLDIST.p_row_num,
1198: GML_PO_GLDIST.P_aqui_cost_id,
1191: TEXT_CODE,
1192: DELETE_MARK)
1193: VALUES (GML_PO_GLDIST.P_doc_type,
1194: GML_PO_GLDIST.P_pos_id,
1195: GML_PO_GLDIST.P_line_id,
1196: GML_PO_GLDIST.P_recv_seq_no,
1197: GML_PO_GLDIST.p_row_num,
1198: GML_PO_GLDIST.P_aqui_cost_id,
1199: GML_PO_GLDIST.P_gl_item_id,
1192: DELETE_MARK)
1193: VALUES (GML_PO_GLDIST.P_doc_type,
1194: GML_PO_GLDIST.P_pos_id,
1195: GML_PO_GLDIST.P_line_id,
1196: GML_PO_GLDIST.P_recv_seq_no,
1197: GML_PO_GLDIST.p_row_num,
1198: GML_PO_GLDIST.P_aqui_cost_id,
1199: GML_PO_GLDIST.P_gl_item_id,
1200: GML_PO_GLDIST.P_acctg_unit_id,
1193: VALUES (GML_PO_GLDIST.P_doc_type,
1194: GML_PO_GLDIST.P_pos_id,
1195: GML_PO_GLDIST.P_line_id,
1196: GML_PO_GLDIST.P_recv_seq_no,
1197: GML_PO_GLDIST.p_row_num,
1198: GML_PO_GLDIST.P_aqui_cost_id,
1199: GML_PO_GLDIST.P_gl_item_id,
1200: GML_PO_GLDIST.P_acctg_unit_id,
1201: GML_PO_GLDIST.P_acct_id,
1194: GML_PO_GLDIST.P_pos_id,
1195: GML_PO_GLDIST.P_line_id,
1196: GML_PO_GLDIST.P_recv_seq_no,
1197: GML_PO_GLDIST.p_row_num,
1198: GML_PO_GLDIST.P_aqui_cost_id,
1199: GML_PO_GLDIST.P_gl_item_id,
1200: GML_PO_GLDIST.P_acctg_unit_id,
1201: GML_PO_GLDIST.P_acct_id,
1202: GML_PO_GLDIST.P_acct_desc,
1195: GML_PO_GLDIST.P_line_id,
1196: GML_PO_GLDIST.P_recv_seq_no,
1197: GML_PO_GLDIST.p_row_num,
1198: GML_PO_GLDIST.P_aqui_cost_id,
1199: GML_PO_GLDIST.P_gl_item_id,
1200: GML_PO_GLDIST.P_acctg_unit_id,
1201: GML_PO_GLDIST.P_acct_id,
1202: GML_PO_GLDIST.P_acct_desc,
1203: GML_PO_GLDIST.P_acct_ttl_num,
1196: GML_PO_GLDIST.P_recv_seq_no,
1197: GML_PO_GLDIST.p_row_num,
1198: GML_PO_GLDIST.P_aqui_cost_id,
1199: GML_PO_GLDIST.P_gl_item_id,
1200: GML_PO_GLDIST.P_acctg_unit_id,
1201: GML_PO_GLDIST.P_acct_id,
1202: GML_PO_GLDIST.P_acct_desc,
1203: GML_PO_GLDIST.P_acct_ttl_num,
1204: nvl(X_amount_base,0),
1197: GML_PO_GLDIST.p_row_num,
1198: GML_PO_GLDIST.P_aqui_cost_id,
1199: GML_PO_GLDIST.P_gl_item_id,
1200: GML_PO_GLDIST.P_acctg_unit_id,
1201: GML_PO_GLDIST.P_acct_id,
1202: GML_PO_GLDIST.P_acct_desc,
1203: GML_PO_GLDIST.P_acct_ttl_num,
1204: nvl(X_amount_base,0),
1205: nvl(X_amount_trans,0),
1198: GML_PO_GLDIST.P_aqui_cost_id,
1199: GML_PO_GLDIST.P_gl_item_id,
1200: GML_PO_GLDIST.P_acctg_unit_id,
1201: GML_PO_GLDIST.P_acct_id,
1202: GML_PO_GLDIST.P_acct_desc,
1203: GML_PO_GLDIST.P_acct_ttl_num,
1204: nvl(X_amount_base,0),
1205: nvl(X_amount_trans,0),
1206: nvl(X_order_qty1,0),
1199: GML_PO_GLDIST.P_gl_item_id,
1200: GML_PO_GLDIST.P_acctg_unit_id,
1201: GML_PO_GLDIST.P_acct_id,
1202: GML_PO_GLDIST.P_acct_desc,
1203: GML_PO_GLDIST.P_acct_ttl_num,
1204: nvl(X_amount_base,0),
1205: nvl(X_amount_trans,0),
1206: nvl(X_order_qty1,0),
1207: GML_PO_GLDIST.P_order_um1,
1203: GML_PO_GLDIST.P_acct_ttl_num,
1204: nvl(X_amount_base,0),
1205: nvl(X_amount_trans,0),
1206: nvl(X_order_qty1,0),
1207: GML_PO_GLDIST.P_order_um1,
1208: GML_PO_GLDIST.P_project,
1209: nvl(GML_PO_GLDIST.P_gl_posted_ind,0),
1210: GML_PO_GLDIST.P_po_date,
1211: GML_PO_GLDIST.P_billing_currency,
1204: nvl(X_amount_base,0),
1205: nvl(X_amount_trans,0),
1206: nvl(X_order_qty1,0),
1207: GML_PO_GLDIST.P_order_um1,
1208: GML_PO_GLDIST.P_project,
1209: nvl(GML_PO_GLDIST.P_gl_posted_ind,0),
1210: GML_PO_GLDIST.P_po_date,
1211: GML_PO_GLDIST.P_billing_currency,
1212: GML_PO_GLDIST.P_base_currency,
1205: nvl(X_amount_trans,0),
1206: nvl(X_order_qty1,0),
1207: GML_PO_GLDIST.P_order_um1,
1208: GML_PO_GLDIST.P_project,
1209: nvl(GML_PO_GLDIST.P_gl_posted_ind,0),
1210: GML_PO_GLDIST.P_po_date,
1211: GML_PO_GLDIST.P_billing_currency,
1212: GML_PO_GLDIST.P_base_currency,
1213: GML_PO_GLDIST.P_co_code,
1206: nvl(X_order_qty1,0),
1207: GML_PO_GLDIST.P_order_um1,
1208: GML_PO_GLDIST.P_project,
1209: nvl(GML_PO_GLDIST.P_gl_posted_ind,0),
1210: GML_PO_GLDIST.P_po_date,
1211: GML_PO_GLDIST.P_billing_currency,
1212: GML_PO_GLDIST.P_base_currency,
1213: GML_PO_GLDIST.P_co_code,
1214: GML_PO_GLDIST.P_ledger_code,
1207: GML_PO_GLDIST.P_order_um1,
1208: GML_PO_GLDIST.P_project,
1209: nvl(GML_PO_GLDIST.P_gl_posted_ind,0),
1210: GML_PO_GLDIST.P_po_date,
1211: GML_PO_GLDIST.P_billing_currency,
1212: GML_PO_GLDIST.P_base_currency,
1213: GML_PO_GLDIST.P_co_code,
1214: GML_PO_GLDIST.P_ledger_code,
1215: GML_PO_GLDIST.P_fiscal_year,
1208: GML_PO_GLDIST.P_project,
1209: nvl(GML_PO_GLDIST.P_gl_posted_ind,0),
1210: GML_PO_GLDIST.P_po_date,
1211: GML_PO_GLDIST.P_billing_currency,
1212: GML_PO_GLDIST.P_base_currency,
1213: GML_PO_GLDIST.P_co_code,
1214: GML_PO_GLDIST.P_ledger_code,
1215: GML_PO_GLDIST.P_fiscal_year,
1216: GML_PO_GLDIST.P_period,
1209: nvl(GML_PO_GLDIST.P_gl_posted_ind,0),
1210: GML_PO_GLDIST.P_po_date,
1211: GML_PO_GLDIST.P_billing_currency,
1212: GML_PO_GLDIST.P_base_currency,
1213: GML_PO_GLDIST.P_co_code,
1214: GML_PO_GLDIST.P_ledger_code,
1215: GML_PO_GLDIST.P_fiscal_year,
1216: GML_PO_GLDIST.P_period,
1217: X_last_update_date,
1210: GML_PO_GLDIST.P_po_date,
1211: GML_PO_GLDIST.P_billing_currency,
1212: GML_PO_GLDIST.P_base_currency,
1213: GML_PO_GLDIST.P_co_code,
1214: GML_PO_GLDIST.P_ledger_code,
1215: GML_PO_GLDIST.P_fiscal_year,
1216: GML_PO_GLDIST.P_period,
1217: X_last_update_date,
1218: X_created_by,
1211: GML_PO_GLDIST.P_billing_currency,
1212: GML_PO_GLDIST.P_base_currency,
1213: GML_PO_GLDIST.P_co_code,
1214: GML_PO_GLDIST.P_ledger_code,
1215: GML_PO_GLDIST.P_fiscal_year,
1216: GML_PO_GLDIST.P_period,
1217: X_last_update_date,
1218: X_created_by,
1219: X_creation_date,
1212: GML_PO_GLDIST.P_base_currency,
1213: GML_PO_GLDIST.P_co_code,
1214: GML_PO_GLDIST.P_ledger_code,
1215: GML_PO_GLDIST.P_fiscal_year,
1216: GML_PO_GLDIST.P_period,
1217: X_last_update_date,
1218: X_created_by,
1219: X_creation_date,
1220: X_last_updated_by,
1225: END IF;
1226:
1227: /*Bug# 1324319 Added code to pass the AAP and PPV accts generated at the OPM side
1228: over to the APPS side.*/
1229: if GML_PO_GLDIST.P_acct_ttl_num in (3100,6100) and GML_PO_GLDIST.p_aqui_cost_id is NULL
1230: then
1231: /* RVK 1394532 */
1232: GML_PO_GLDIST.combination_id( GML_PO_GLDIST.P_whse_co_code,
1233: GML_PO_GLDIST.P_acct_id,
1228: over to the APPS side.*/
1229: if GML_PO_GLDIST.P_acct_ttl_num in (3100,6100) and GML_PO_GLDIST.p_aqui_cost_id is NULL
1230: then
1231: /* RVK 1394532 */
1232: GML_PO_GLDIST.combination_id( GML_PO_GLDIST.P_whse_co_code,
1233: GML_PO_GLDIST.P_acct_id,
1234: GML_PO_GLDIST.P_acctg_unit_id,
1235: X_combination_id);
1236:
1229: if GML_PO_GLDIST.P_acct_ttl_num in (3100,6100) and GML_PO_GLDIST.p_aqui_cost_id is NULL
1230: then
1231: /* RVK 1394532 */
1232: GML_PO_GLDIST.combination_id( GML_PO_GLDIST.P_whse_co_code,
1233: GML_PO_GLDIST.P_acct_id,
1234: GML_PO_GLDIST.P_acctg_unit_id,
1235: X_combination_id);
1236:
1237: GML_PO_GLDIST.update_accounts_orcl( GML_PO_GLDIST.P_pos_id,
1230: then
1231: /* RVK 1394532 */
1232: GML_PO_GLDIST.combination_id( GML_PO_GLDIST.P_whse_co_code,
1233: GML_PO_GLDIST.P_acct_id,
1234: GML_PO_GLDIST.P_acctg_unit_id,
1235: X_combination_id);
1236:
1237: GML_PO_GLDIST.update_accounts_orcl( GML_PO_GLDIST.P_pos_id,
1238: GML_PO_GLDIST.P_line_id,
1233: GML_PO_GLDIST.P_acct_id,
1234: GML_PO_GLDIST.P_acctg_unit_id,
1235: X_combination_id);
1236:
1237: GML_PO_GLDIST.update_accounts_orcl( GML_PO_GLDIST.P_pos_id,
1238: GML_PO_GLDIST.P_line_id,
1239: GML_PO_GLDIST.P_orgn_code,
1240: GML_PO_GLDIST.P_acct_ttl_num,
1241: X_combination_id);
1234: GML_PO_GLDIST.P_acctg_unit_id,
1235: X_combination_id);
1236:
1237: GML_PO_GLDIST.update_accounts_orcl( GML_PO_GLDIST.P_pos_id,
1238: GML_PO_GLDIST.P_line_id,
1239: GML_PO_GLDIST.P_orgn_code,
1240: GML_PO_GLDIST.P_acct_ttl_num,
1241: X_combination_id);
1242: end if;
1235: X_combination_id);
1236:
1237: GML_PO_GLDIST.update_accounts_orcl( GML_PO_GLDIST.P_pos_id,
1238: GML_PO_GLDIST.P_line_id,
1239: GML_PO_GLDIST.P_orgn_code,
1240: GML_PO_GLDIST.P_acct_ttl_num,
1241: X_combination_id);
1242: end if;
1243: END IF;
1236:
1237: GML_PO_GLDIST.update_accounts_orcl( GML_PO_GLDIST.P_pos_id,
1238: GML_PO_GLDIST.P_line_id,
1239: GML_PO_GLDIST.P_orgn_code,
1240: GML_PO_GLDIST.P_acct_ttl_num,
1241: X_combination_id);
1242: end if;
1243: END IF;
1244: EXCEPTION
1333: x_status NUMBER;
1334: x_row_count NUMBER DEFAULT 0;
1335:
1336: BEGIN
1337: GML_PO_GLDIST.P_type := V_type;
1338:
1339: OPEN cur_get_srcevtplc;
1340: FETCH cur_get_srcevtplc INTO x_std_act_ind,x_exp_booked_ind,x_acq_cst_ind ;
1341: CLOSE cur_get_srcevtplc;
1448:
1449: CURSOR Cur_po_cost_mst IS
1450: SELECT cmpntcls_id , analysis_code
1451: FROM po_cost_mst
1452: WHERE aqui_cost_id = GML_PO_GLDIST.P_aqui_cost_id;
1453:
1454: CURSOR Cur_get_aqui_costs IS
1455: SELECT aqui_cost_id , cost_amount , incl_ind, delete_mark
1456: FROM po_cost_dtl
1453:
1454: CURSOR Cur_get_aqui_costs IS
1455: SELECT aqui_cost_id , cost_amount , incl_ind, delete_mark
1456: FROM po_cost_dtl
1457: WHERE doc_type = GML_PO_GLDIST.P_doc_type and
1458: pos_id = GML_PO_GLDIST.P_pos_id and
1459: line_id = GML_PO_GLDIST.P_line_id;
1460:
1461: X_aqui_row_num NUMBER;
1454: CURSOR Cur_get_aqui_costs IS
1455: SELECT aqui_cost_id , cost_amount , incl_ind, delete_mark
1456: FROM po_cost_dtl
1457: WHERE doc_type = GML_PO_GLDIST.P_doc_type and
1458: pos_id = GML_PO_GLDIST.P_pos_id and
1459: line_id = GML_PO_GLDIST.P_line_id;
1460:
1461: X_aqui_row_num NUMBER;
1462: X_no_acqui_titles NUMBER;
1455: SELECT aqui_cost_id , cost_amount , incl_ind, delete_mark
1456: FROM po_cost_dtl
1457: WHERE doc_type = GML_PO_GLDIST.P_doc_type and
1458: pos_id = GML_PO_GLDIST.P_pos_id and
1459: line_id = GML_PO_GLDIST.P_line_id;
1460:
1461: X_aqui_row_num NUMBER;
1462: X_no_acqui_titles NUMBER;
1463: X_row_num NUMBER;
1473: /*initialize X_aqui_row_num*/
1474: X_aqui_row_num := 0;
1475: /* Sandeep. 11.Nov.98. This procedure modified to delete the existing aqui*/
1476: /* rows and re-post the same in Update mode.*/
1477: GML_PO_GLDIST.delete_aqui_costs;
1478:
1479: FOR Rec IN Cur_get_aqui_costs LOOP
1480: GML_PO_GLDIST.P_amount_trans := 0;
1481: GML_PO_GLDIST.P_amount_base := 0;
1476: /* rows and re-post the same in Update mode.*/
1477: GML_PO_GLDIST.delete_aqui_costs;
1478:
1479: FOR Rec IN Cur_get_aqui_costs LOOP
1480: GML_PO_GLDIST.P_amount_trans := 0;
1481: GML_PO_GLDIST.P_amount_base := 0;
1482: GML_PO_GLDIST.P_amount_trans_aqui := 0;
1483: GML_PO_GLDIST.P_amount_base_aqui := 0;
1484:
1477: GML_PO_GLDIST.delete_aqui_costs;
1478:
1479: FOR Rec IN Cur_get_aqui_costs LOOP
1480: GML_PO_GLDIST.P_amount_trans := 0;
1481: GML_PO_GLDIST.P_amount_base := 0;
1482: GML_PO_GLDIST.P_amount_trans_aqui := 0;
1483: GML_PO_GLDIST.P_amount_base_aqui := 0;
1484:
1485: GML_PO_GLDIST.P_aqui_cost_id := Rec.aqui_cost_id;
1478:
1479: FOR Rec IN Cur_get_aqui_costs LOOP
1480: GML_PO_GLDIST.P_amount_trans := 0;
1481: GML_PO_GLDIST.P_amount_base := 0;
1482: GML_PO_GLDIST.P_amount_trans_aqui := 0;
1483: GML_PO_GLDIST.P_amount_base_aqui := 0;
1484:
1485: GML_PO_GLDIST.P_aqui_cost_id := Rec.aqui_cost_id;
1486: GML_PO_GLDIST.P_cost_amount := Rec.cost_amount;
1479: FOR Rec IN Cur_get_aqui_costs LOOP
1480: GML_PO_GLDIST.P_amount_trans := 0;
1481: GML_PO_GLDIST.P_amount_base := 0;
1482: GML_PO_GLDIST.P_amount_trans_aqui := 0;
1483: GML_PO_GLDIST.P_amount_base_aqui := 0;
1484:
1485: GML_PO_GLDIST.P_aqui_cost_id := Rec.aqui_cost_id;
1486: GML_PO_GLDIST.P_cost_amount := Rec.cost_amount;
1487: GML_PO_GLDIST.P_incl_ind := Rec.incl_ind;
1481: GML_PO_GLDIST.P_amount_base := 0;
1482: GML_PO_GLDIST.P_amount_trans_aqui := 0;
1483: GML_PO_GLDIST.P_amount_base_aqui := 0;
1484:
1485: GML_PO_GLDIST.P_aqui_cost_id := Rec.aqui_cost_id;
1486: GML_PO_GLDIST.P_cost_amount := Rec.cost_amount;
1487: GML_PO_GLDIST.P_incl_ind := Rec.incl_ind;
1488: /*Sandeep. 11.Nov.98. Added an extra column.*/
1489: GML_PO_GLDIST.P_delete_mark := Rec.delete_mark;
1482: GML_PO_GLDIST.P_amount_trans_aqui := 0;
1483: GML_PO_GLDIST.P_amount_base_aqui := 0;
1484:
1485: GML_PO_GLDIST.P_aqui_cost_id := Rec.aqui_cost_id;
1486: GML_PO_GLDIST.P_cost_amount := Rec.cost_amount;
1487: GML_PO_GLDIST.P_incl_ind := Rec.incl_ind;
1488: /*Sandeep. 11.Nov.98. Added an extra column.*/
1489: GML_PO_GLDIST.P_delete_mark := Rec.delete_mark;
1490:
1483: GML_PO_GLDIST.P_amount_base_aqui := 0;
1484:
1485: GML_PO_GLDIST.P_aqui_cost_id := Rec.aqui_cost_id;
1486: GML_PO_GLDIST.P_cost_amount := Rec.cost_amount;
1487: GML_PO_GLDIST.P_incl_ind := Rec.incl_ind;
1488: /*Sandeep. 11.Nov.98. Added an extra column.*/
1489: GML_PO_GLDIST.P_delete_mark := Rec.delete_mark;
1490:
1491: GML_PO_GLDIST.P_aqui_cmpntcls_id := 0;
1485: GML_PO_GLDIST.P_aqui_cost_id := Rec.aqui_cost_id;
1486: GML_PO_GLDIST.P_cost_amount := Rec.cost_amount;
1487: GML_PO_GLDIST.P_incl_ind := Rec.incl_ind;
1488: /*Sandeep. 11.Nov.98. Added an extra column.*/
1489: GML_PO_GLDIST.P_delete_mark := Rec.delete_mark;
1490:
1491: GML_PO_GLDIST.P_aqui_cmpntcls_id := 0;
1492:
1493: OPEN Cur_po_cost_mst;
1487: GML_PO_GLDIST.P_incl_ind := Rec.incl_ind;
1488: /*Sandeep. 11.Nov.98. Added an extra column.*/
1489: GML_PO_GLDIST.P_delete_mark := Rec.delete_mark;
1490:
1491: GML_PO_GLDIST.P_aqui_cmpntcls_id := 0;
1492:
1493: OPEN Cur_po_cost_mst;
1494: FETCH Cur_po_cost_mst INTO GML_PO_GLDIST.P_aqui_cmpntcls_id,GML_PO_GLDIST.P_aqui_analysis_code;
1495: IF Cur_po_cost_mst%NOTFOUND THEN
1490:
1491: GML_PO_GLDIST.P_aqui_cmpntcls_id := 0;
1492:
1493: OPEN Cur_po_cost_mst;
1494: FETCH Cur_po_cost_mst INTO GML_PO_GLDIST.P_aqui_cmpntcls_id,GML_PO_GLDIST.P_aqui_analysis_code;
1495: IF Cur_po_cost_mst%NOTFOUND THEN
1496: CLOSE Cur_po_cost_mst;
1497: ELSE
1498: CLOSE Cur_po_cost_mst;
1495: IF Cur_po_cost_mst%NOTFOUND THEN
1496: CLOSE Cur_po_cost_mst;
1497: ELSE
1498: CLOSE Cur_po_cost_mst;
1499: GML_PO_GLDIST.load_acct_titles('AQUI',
1500: GML_PO_GLDIST.P_gl_item_id,
1501: GML_PO_GLDIST.P_co_code,
1502: GML_PO_GLDIST.P_non_inv_ind,
1503: GML_PO_GLDIST.P_to_whse,
1496: CLOSE Cur_po_cost_mst;
1497: ELSE
1498: CLOSE Cur_po_cost_mst;
1499: GML_PO_GLDIST.load_acct_titles('AQUI',
1500: GML_PO_GLDIST.P_gl_item_id,
1501: GML_PO_GLDIST.P_co_code,
1502: GML_PO_GLDIST.P_non_inv_ind,
1503: GML_PO_GLDIST.P_to_whse,
1504: GML_PO_GLDIST.P_po_date,
1497: ELSE
1498: CLOSE Cur_po_cost_mst;
1499: GML_PO_GLDIST.load_acct_titles('AQUI',
1500: GML_PO_GLDIST.P_gl_item_id,
1501: GML_PO_GLDIST.P_co_code,
1502: GML_PO_GLDIST.P_non_inv_ind,
1503: GML_PO_GLDIST.P_to_whse,
1504: GML_PO_GLDIST.P_po_date,
1505: GML_PO_GLDIST.P_incl_ind,
1498: CLOSE Cur_po_cost_mst;
1499: GML_PO_GLDIST.load_acct_titles('AQUI',
1500: GML_PO_GLDIST.P_gl_item_id,
1501: GML_PO_GLDIST.P_co_code,
1502: GML_PO_GLDIST.P_non_inv_ind,
1503: GML_PO_GLDIST.P_to_whse,
1504: GML_PO_GLDIST.P_po_date,
1505: GML_PO_GLDIST.P_incl_ind,
1506: X_row_num,
1499: GML_PO_GLDIST.load_acct_titles('AQUI',
1500: GML_PO_GLDIST.P_gl_item_id,
1501: GML_PO_GLDIST.P_co_code,
1502: GML_PO_GLDIST.P_non_inv_ind,
1503: GML_PO_GLDIST.P_to_whse,
1504: GML_PO_GLDIST.P_po_date,
1505: GML_PO_GLDIST.P_incl_ind,
1506: X_row_num,
1507: X_status,
1500: GML_PO_GLDIST.P_gl_item_id,
1501: GML_PO_GLDIST.P_co_code,
1502: GML_PO_GLDIST.P_non_inv_ind,
1503: GML_PO_GLDIST.P_to_whse,
1504: GML_PO_GLDIST.P_po_date,
1505: GML_PO_GLDIST.P_incl_ind,
1506: X_row_num,
1507: X_status,
1508: X_gltitles1,
1501: GML_PO_GLDIST.P_co_code,
1502: GML_PO_GLDIST.P_non_inv_ind,
1503: GML_PO_GLDIST.P_to_whse,
1504: GML_PO_GLDIST.P_po_date,
1505: GML_PO_GLDIST.P_incl_ind,
1506: X_row_num,
1507: X_status,
1508: X_gltitles1,
1509: X_cmpntcls1,
1508: X_gltitles1,
1509: X_cmpntcls1,
1510: X_analysiscode1);
1511: FOR i IN 1..X_row_num LOOP
1512: GML_PO_GLDIST.P_acct_ttl_num := X_gltitles1(i);
1513: GML_PO_GLDIST.P_cost_cmpntcls_id := X_cmpntcls1(i);
1514: GML_PO_GLDIST.P_cost_analysis_code := X_analysiscode1(i);
1515: IF GML_PO_GLDIST.P_cost_cmpntcls_id = 0 THEN
1516: GML_PO_GLDIST.P_cost_cmpntcls_id := NULL;
1509: X_cmpntcls1,
1510: X_analysiscode1);
1511: FOR i IN 1..X_row_num LOOP
1512: GML_PO_GLDIST.P_acct_ttl_num := X_gltitles1(i);
1513: GML_PO_GLDIST.P_cost_cmpntcls_id := X_cmpntcls1(i);
1514: GML_PO_GLDIST.P_cost_analysis_code := X_analysiscode1(i);
1515: IF GML_PO_GLDIST.P_cost_cmpntcls_id = 0 THEN
1516: GML_PO_GLDIST.P_cost_cmpntcls_id := NULL;
1517: END IF;
1510: X_analysiscode1);
1511: FOR i IN 1..X_row_num LOOP
1512: GML_PO_GLDIST.P_acct_ttl_num := X_gltitles1(i);
1513: GML_PO_GLDIST.P_cost_cmpntcls_id := X_cmpntcls1(i);
1514: GML_PO_GLDIST.P_cost_analysis_code := X_analysiscode1(i);
1515: IF GML_PO_GLDIST.P_cost_cmpntcls_id = 0 THEN
1516: GML_PO_GLDIST.P_cost_cmpntcls_id := NULL;
1517: END IF;
1518: GML_PO_GLDIST.process_trans ('AQUI',retcode) ;
1511: FOR i IN 1..X_row_num LOOP
1512: GML_PO_GLDIST.P_acct_ttl_num := X_gltitles1(i);
1513: GML_PO_GLDIST.P_cost_cmpntcls_id := X_cmpntcls1(i);
1514: GML_PO_GLDIST.P_cost_analysis_code := X_analysiscode1(i);
1515: IF GML_PO_GLDIST.P_cost_cmpntcls_id = 0 THEN
1516: GML_PO_GLDIST.P_cost_cmpntcls_id := NULL;
1517: END IF;
1518: GML_PO_GLDIST.process_trans ('AQUI',retcode) ;
1519: END LOOP;
1512: GML_PO_GLDIST.P_acct_ttl_num := X_gltitles1(i);
1513: GML_PO_GLDIST.P_cost_cmpntcls_id := X_cmpntcls1(i);
1514: GML_PO_GLDIST.P_cost_analysis_code := X_analysiscode1(i);
1515: IF GML_PO_GLDIST.P_cost_cmpntcls_id = 0 THEN
1516: GML_PO_GLDIST.P_cost_cmpntcls_id := NULL;
1517: END IF;
1518: GML_PO_GLDIST.process_trans ('AQUI',retcode) ;
1519: END LOOP;
1520: END IF;
1514: GML_PO_GLDIST.P_cost_analysis_code := X_analysiscode1(i);
1515: IF GML_PO_GLDIST.P_cost_cmpntcls_id = 0 THEN
1516: GML_PO_GLDIST.P_cost_cmpntcls_id := NULL;
1517: END IF;
1518: GML_PO_GLDIST.process_trans ('AQUI',retcode) ;
1519: END LOOP;
1520: END IF;
1521: END LOOP;
1522: /* Sandeep. 11.Nov.98. Change ends here.*/
1538: PROCEDURE delete_aqui_costs IS
1539: BEGIN
1540: DELETE FROM PO_DIST_DTL
1541: WHERE nvl(aqui_cost_id,0) > 0 and
1542: doc_id = GML_PO_GLDIST.P_pos_id and
1543: line_id = GML_PO_GLDIST.P_line_id and
1544: doc_type = GML_PO_GLDIST.P_doc_type ;
1545: /* FORMS_DDL ('COMMIT');*/
1546: END delete_aqui_costs;
1539: BEGIN
1540: DELETE FROM PO_DIST_DTL
1541: WHERE nvl(aqui_cost_id,0) > 0 and
1542: doc_id = GML_PO_GLDIST.P_pos_id and
1543: line_id = GML_PO_GLDIST.P_line_id and
1544: doc_type = GML_PO_GLDIST.P_doc_type ;
1545: /* FORMS_DDL ('COMMIT');*/
1546: END delete_aqui_costs;
1547:
1540: DELETE FROM PO_DIST_DTL
1541: WHERE nvl(aqui_cost_id,0) > 0 and
1542: doc_id = GML_PO_GLDIST.P_pos_id and
1543: line_id = GML_PO_GLDIST.P_line_id and
1544: doc_type = GML_PO_GLDIST.P_doc_type ;
1545: /* FORMS_DDL ('COMMIT');*/
1546: END delete_aqui_costs;
1547:
1548: /*#############################################################
2058: FETCH cur_get_ccid INTO x_combination_id;
2059: CLOSE cur_get_ccid;
2060: END IF;
2061:
2062: if GML_PO_GLDIST.P_transaction_type in ('STANDARD')
2063: then
2064: OPEN Cur_get_std_poinf;
2065: FETCH Cur_get_std_poinf INTO v_po_header_id, v_po_line_id,
2066: v_po_line_location_id;
2088: END IF;
2089:
2090:
2091:
2092: if GML_PO_GLDIST.P_transaction_type in ('BLANKET')
2093: then
2094: OPEN Cur_get_blk_poinf;
2095: FETCH Cur_get_blk_poinf INTO v_po_header_id, v_po_line_id,
2096: v_po_line_location_id, v_po_release_id;
2119: CLOSE Cur_get_blk_poinf;
2120: END IF;
2121:
2122:
2123: if GML_PO_GLDIST.P_transaction_type in ('PLANNED')
2124: then
2125:
2126: /* In planned purchase order -- distributions are generated on the OPM side only when we create a
2127: release against it and in that case there use po_header_id,po_line_id,po_line_location_id and po_release_id
2159: /*End Bug# 1324319 */
2160:
2161:
2162:
2163: END GML_PO_GLDIST;