[Home] [Help]
19: g_action VARCHAR2(25);
20:
21: -- Packet ID
22:
23: g_packetid gl_bc_packets.packet_id%TYPE;
24:
25: -- Funds Check Return Code
26:
27: g_return_code VARCHAR2(1);
199: l_precision NUMBER; -- Bug#2310026
200:
201: cursor pkt_po(packet_id NUMBER) is
202: select distinct 'Y'
203: from gl_bc_packets
204: where exists
205: (select 'Y'
206: from gl_bc_packets
207: where reference1 = 'PO'
202: select distinct 'Y'
203: from gl_bc_packets
204: where exists
205: (select 'Y'
206: from gl_bc_packets
207: where reference1 = 'PO'
208: and reference5 is not null
209: and packet_id = packet_id);
210:
294: end if;
295:
296: -- dbms_output.put_line('insert into gl_bc_packtets');
297:
298: -- Insert Records into gl_bc_packets
299:
300: if not po_fc_ins(p_docid => p_docid,
301: p_doctyp => g_doctyp,
302: p_docsubtyp => g_docsubtyp,
337: WHERE GLSOB.set_of_books_id = FSP.set_of_books_id
338: AND FC.currency_code = GLSOB.currency_code;
339:
340: IF (l_min_acct_unit is not null) THEN
341: UPDATE GL_BC_PACKETS
342: SET ENTERED_DR = ROUND(ENTERED_DR/l_min_acct_unit) * l_min_acct_unit ,
343: ENTERED_CR = ROUND(ENTERED_CR/l_min_acct_unit) * l_min_acct_unit,
344: ACCOUNTED_DR = ROUND(ACCOUNTED_DR/l_min_acct_unit ) * l_min_acct_unit ,
345: ACCOUNTED_CR = ROUND(ACCOUNTED_CR/l_min_acct_unit) * l_min_acct_unit
344: ACCOUNTED_DR = ROUND(ACCOUNTED_DR/l_min_acct_unit ) * l_min_acct_unit ,
345: ACCOUNTED_CR = ROUND(ACCOUNTED_CR/l_min_acct_unit) * l_min_acct_unit
346: WHERE PACKET_ID = g_packetid;
347: ELSE
348: UPDATE GL_BC_PACKETS
349: SET ENTERED_DR = ROUND(ENTERED_DR,l_precision),
350: ENTERED_CR = ROUND(ENTERED_CR,l_precision),
351: ACCOUNTED_DR = ROUND(ACCOUNTED_DR,l_precision),
352: ACCOUNTED_CR = ROUND(ACCOUNTED_CR,l_precision)
677:
678: -- Insert Clause
679: -- dbms_output.put_line('before setting up insert');
680:
681: g_sql_insert := 'insert into gl_bc_packets ' ||
682: '(packet_id, ' ||
683: 'set_of_books_id, ' ||
684: 'je_source_name, ' ||
685: 'je_category_name, ' ||
854:
855: FUNCTION po_fc_init RETURN BOOLEAN IS
856:
857: cursor pkt is
858: select gl_bc_packets_s.nextval,
859: fsp.set_of_books_id
860: from financials_system_parameters fsp;
861:
862: BEGIN
1220: incorporating the code to round this value to functional currency precision,
1221: will require two more decode statements for each decode statement. Thus,
1222: to avoid this, we multiply with the rate alone here. This functional amount
1223: will be rounded to the functional currency precision/minimum accountable unit
1224: after inserting the records in the gl_bc_packets in the procedure
1225: po_funds_control after the call po_fc_ins(insertion of gl_bc_packet).
1226:
1227: Similar changes made in the function po_fc_selblnkrel and po_fc_selschrel */
1228:
2115: cur_insert INTEGER;
2116: num_insert INTEGER;
2117:
2118: cursor pkt_id is
2119: select gl_bc_packets_s.nextval
2120: from dual;
2121:
2122: BEGIN
2123:
2236:
2237: -- FRKHAN bug 941171
2238: IF LENGTH (g_dbug) < x_max_length THEN
2239: g_dbug := g_dbug ||
2240: 'Inserted ' || num_insert || ' Records into gl_bc_packets' ||
2241: g_delim;
2242: END IF;
2243: p_packetid := g_packetid;
2244:
3009: glbp.funds_check_level_code,
3010: glbp.accounted_dr,
3011: glbp.accounted_cr,
3012: glbp.automatic_encumbrance_flag
3013: from gl_bc_packets glbp
3014: where glbp.originating_rowid is null
3015: and glbp.packet_id = dist_packet_id
3016: and glbp.template_id is NULL
3017: order by packet_id, to_number(reference3);
3199: l_linemsg || to_char(prl.line_num) ||
3200: ' ' || l_distmsg ||
3201: to_char(prd.distribution_num) || ' ' ||
3202: gll.meaning
3203: from gl_bc_packets gbp,
3204: gl_lookups gll,
3205: po_requisition_lines prl,
3206: po_req_distributions prd
3207: where gbp.packet_id = g_packetid
3243: to_char(poll.shipment_num) || ' ' ||
3244: l_distmsg ||
3245: to_char(pod.distribution_num) || ' ' ||
3246: gll.meaning
3247: from gl_bc_packets gbp,
3248: gl_lookups gll,
3249: po_lines pol,
3250: po_line_locations poll,
3251: po_distributions pod