DBA Data[Home] [Help]

APPS.GL_BC_PACKETS_PKG dependencies on GL_BC_PACKETS

Line 1: PACKAGE BODY gl_bc_packets_pkg AS

1: PACKAGE BODY gl_bc_packets_pkg AS
2: /* $Header: glibcpab.pls 120.6 2005/07/29 16:58:18 djogg ship $ */
3:
4: --
5: -- PRIVATE FUNCTIONS

Line 28: FROM GL_BC_PACKETS

24: X_Combination_Number NUMBER
25: ) IS
26: CURSOR C IS
27: SELECT *
28: FROM GL_BC_PACKETS
29: WHERE rowid = X_Rowid
30: FOR UPDATE of Packet_Id NOWAIT;
31: Recinfo C%ROWTYPE;
32: BEGIN

Line 107: SELECT gl_bc_packets_s.NEXTVAL

103: --
104:
105: FUNCTION get_unique_id RETURN NUMBER IS
106: CURSOR get_new_id IS
107: SELECT gl_bc_packets_s.NEXTVAL
108: FROM dual;
109: new_id number;
110: BEGIN
111: OPEN get_new_id;

Line 120: fnd_message.set_token('SEQUENCE', 'GL_BC_PACKETS_S');

116: return(new_id);
117: ELSE
118: CLOSE get_new_id;
119: fnd_message.set_name('SQLGL', 'GL_ERROR_GETTING_UNIQUE_ID');
120: fnd_message.set_token('SEQUENCE', 'GL_BC_PACKETS_S');
121: app_exception.raise_exception;
122: END IF;
123:
124: EXCEPTION

Line 129: fnd_message.set_token('PROCEDURE', 'gl_bc_packets_pkg.get_unique_id');

125: WHEN app_exceptions.application_exception THEN
126: RAISE;
127: WHEN OTHERS THEN
128: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
129: fnd_message.set_token('PROCEDURE', 'gl_bc_packets_pkg.get_unique_id');
130: RAISE;
131: END get_unique_id;
132:
133: FUNCTION insert_je_packet(batch_id NUMBER,

Line 143: new_packet_id := gl_bc_packets_pkg.get_unique_id;

139: new_packet_id NUMBER;
140: insert_mode VARCHAR2(1);
141: BEGIN
142: -- Get the packet id
143: new_packet_id := gl_bc_packets_pkg.get_unique_id;
144:
145: -- Set the funds check mode
146: IF (mode_code = 'R') THEN
147: insert_mode := 'P';

Line 153: INSERT INTO gl_bc_packets

149: insert_mode := 'C';
150: END IF;
151:
152: -- Insert the data into gl_je_packets
153: INSERT INTO gl_bc_packets
154: (packet_id, ledger_id, je_source_name,
155: je_category_name, code_combination_id, actual_flag,
156: period_name, period_year, period_num, quarter_num,
157: currency_code, status_code,

Line 188: fnd_message.set_token('PROCEDURE', 'gl_bc_packets_pkg.insert_je_packet');

184: WHEN app_exceptions.application_exception THEN
185: RAISE;
186: WHEN OTHERS THEN
187: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
188: fnd_message.set_token('PROCEDURE', 'gl_bc_packets_pkg.insert_je_packet');
189: RAISE;
190: END insert_je_packet;
191:
192: FUNCTION exists_packet(xpacket_id NUMBER) RETURN BOOLEAN IS

Line 197: FROM gl_bc_packets

193: CURSOR check_for_pkt IS
194: SELECT 'Has packet'
195: FROM dual
196: WHERE EXISTS (SELECT 'Has packet'
197: FROM gl_bc_packets
198: WHERE packet_id = xpacket_id);
199: dummy VARCHAR2(100);
200: BEGIN
201: OPEN check_for_pkt;

Line 217: fnd_message.set_token('PROCEDURE', 'gl_bc_packets_pkg.exists_packet');

213: WHEN app_exceptions.application_exception THEN
214: RAISE;
215: WHEN OTHERS THEN
216: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
217: fnd_message.set_token('PROCEDURE', 'gl_bc_packets_pkg.exists_packet');
218: RAISE;
219: END exists_packet;
220:
221: FUNCTION get_ledger_id(xpacket_id NUMBER) RETURN NUMBER IS

Line 224: FROM gl_bc_packets

220:
221: FUNCTION get_ledger_id(xpacket_id NUMBER) RETURN NUMBER IS
222: CURSOR get_lgr_id IS
223: SELECT ledger_id
224: FROM gl_bc_packets
225: WHERE packet_id = xpacket_id;
226: lgr_id NUMBER;
227: BEGIN
228: OPEN get_lgr_id;

Line 244: fnd_message.set_token('PROCEDURE', 'gl_bc_packets_pkg.get_ledger_id');

240: WHEN app_exceptions.application_exception THEN
241: RAISE;
242: WHEN OTHERS THEN
243: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
244: fnd_message.set_token('PROCEDURE', 'gl_bc_packets_pkg.get_ledger_id');
245: RAISE;
246: END get_ledger_id;
247:
248: PROCEDURE Insert_Budget_Transfer_Row(

Line 275: SELECT rowid FROM GL_BC_PACKETS

271: X_Last_Updated_By NUMBER,
272: X_Session_Id NUMBER,
273: X_Serial_Id NUMBER) IS
274: CURSOR C (ccid IN NUMBER, unique_value IN VARCHAR2) IS
275: SELECT rowid FROM GL_BC_PACKETS
276: WHERE packet_id = X_Packet_Id
277: AND ledger_id = X_Ledger_Id
278: AND reference2 = unique_value
279: AND code_combination_id = ccid

Line 285: INSERT INTO GL_BC_PACKETS(

281: AND period_name = X_Period_Name;
282: BEGIN
283:
284: -- Insert the From line
285: INSERT INTO GL_BC_PACKETS(
286: status_code,
287: packet_id,
288: ledger_id,
289: je_source_name,

Line 347: INSERT INTO GL_BC_PACKETS(

343: end if;
344: CLOSE C;
345:
346: -- Insert the to line, switching the Cr and Dr
347: INSERT INTO GL_BC_PACKETS(
348: status_code,
349: packet_id,
350: ledger_id,
351: je_source_name,

Line 410: UPDATE GL_BC_PACKETS

406: CLOSE C;
407:
408:
409: -- Change the from reference2 to the to rowid.
410: UPDATE GL_BC_PACKETS
411: SET reference2 = X_To_RowId
412: WHERE packet_id = X_Packet_Id
413: AND ledger_id = X_Ledger_Id
414: AND reference2 = 'New Budget Transfer Row'

Line 446: UPDATE GL_BC_PACKETS

442: X_To_Entered_Cr NUMBER,
443: X_Last_Update_Date DATE,
444: X_Last_Updated_By NUMBER) IS
445: BEGIN
446: UPDATE GL_BC_PACKETS
447: SET
448: status_code = X_Status_Code,
449: packet_id = X_Packet_Id,
450: ledger_id = X_Ledger_Id,

Line 512: GL_BC_PACKETS_PKG.Lock_Budget_Transfer_Row(

508: X_To_Entered_Cr NUMBER) IS
509: BEGIN
510:
511: -- Lock the from row
512: GL_BC_PACKETS_PKG.Lock_Budget_Transfer_Row(
513: X_Rowid => X_From_RowId,
514: X_Status_Code => X_Status_Code,
515: X_Packet_Id => X_Packet_Id,
516: X_Ledger_Id => X_Ledger_Id,

Line 533: GL_BC_PACKETS_PKG.Lock_Budget_Transfer_Row(

529: X_Je_Batch_Name => X_Je_Batch_Name
530: );
531:
532: -- Lock the to row
533: GL_BC_PACKETS_PKG.Lock_Budget_Transfer_Row(
534: X_Rowid => X_To_RowId,
535: X_Status_Code => X_Status_Code,
536: X_Packet_Id => X_Packet_Id,
537: X_Ledger_Id => X_Ledger_Id,

Line 558: DELETE FROM GL_BC_PACKETS

554:
555: PROCEDURE Delete_Budget_Transfer_Row(X_From_Rowid VARCHAR2,
556: X_To_Rowid VARCHAR2) IS
557: BEGIN
558: DELETE FROM GL_BC_PACKETS
559: WHERE rowid IN (X_From_Rowid, X_To_Rowid);
560:
561: if (SQL%NOTFOUND) then
562: RAISE NO_DATA_FOUND;

Line 569: DELETE gl_bc_packets

565:
566: PROCEDURE Delete_Packet(Packet_Id NUMBER,
567: Reference1 NUMBER DEFAULT NULL) IS
568: BEGIN
569: DELETE gl_bc_packets
570: WHERE packet_id = Delete_Packet.packet_id
571: AND status_code IN ('P', 'C')
572: AND nvl(reference1,'XZYXZ')
573: = nvl(Delete_Packet.reference1, nvl(reference1, 'XZYXZ'));

Line 588: new_packet_id := gl_bc_packets_pkg.get_unique_id;

584: new_packet_id NUMBER;
585: insert_mode VARCHAR2(1);
586: BEGIN
587: -- Get the packet id
588: new_packet_id := gl_bc_packets_pkg.get_unique_id;
589:
590: -- Set the funds check mode
591: IF (mode_code = 'R') THEN
592: insert_mode := 'P';

Line 598: INSERT INTO gl_bc_packets

594: insert_mode := 'C';
595: END IF;
596:
597: -- Insert the data into gl_je_packets
598: INSERT INTO gl_bc_packets
599: (packet_id, ledger_id, je_source_name,
600: je_category_name, code_combination_id, actual_flag,
601: period_name, period_year, period_num, quarter_num,
602: currency_code, status_code,

Line 615: FROM gl_bc_packets bc

611: sysdate, user_id, bc.budget_version_id,
612: bc.entered_dr, bc.entered_cr, bc.accounted_dr, bc.accounted_cr,
613: bc.ussgl_transaction_code, bc.je_batch_name,
614: 101, x_session_id, x_serial_id
615: FROM gl_bc_packets bc
616: WHERE bc.packet_id = copy_packet.packet_id;
617:
618: RETURN (new_packet_id);
619: EXCEPTION

Line 624: fnd_message.set_token('PROCEDURE', 'gl_bc_packets_pkg.copy_packet');

620: WHEN app_exceptions.application_exception THEN
621: RAISE;
622: WHEN OTHERS THEN
623: fnd_message.set_name('SQLGL', 'GL_UNHANDLED_EXCEPTION');
624: fnd_message.set_token('PROCEDURE', 'gl_bc_packets_pkg.copy_packet');
625: RAISE;
626: END copy_packet;
627:
628: FUNCTION view_bc_results_setup(packet_id NUMBER,

Line 652: END gl_bc_packets_pkg;

648:
649: RETURN(seq_id);
650: END view_bc_results_setup;
651:
652: END gl_bc_packets_pkg;