DBA Data[Home] [Help]

APPS.GMS_FUNDS_POSTING_PKG dependencies on GMS_BC_PACKETS

Line 51: -- Phase 1: Update the status code on GL/GMS bc_packets based on

47: -- Main API.
48: -- GMS_GL_RETURN_CODE : Code change is done to integrate bug fixes for GL bug
49: -- 1751696. As part of GL code change GMS_GL_RETURN_CODE may be called three
50: -- times now.
51: -- Phase 1: Update the status code on GL/GMS bc_packets based on
52: -- GL failure/GMS failure. (gms_result_code_update)
53: -- Phase 2: POSTING MODE. This is to update the burden posting to ADL's
54: -- and summary tables. It is called after bc_packet update and after
55: -- GL updates for gms burden posting.

Line 80: FROM gms_bc_packets

76:
77: -- R12 Funds Management uptake : Cursor to check if gms txns exists for processing
78: CURSOR C_gms_pkt_rec_exist IS
79: SELECT count(*)
80: FROM gms_bc_packets
81: WHERE packet_id = p_packet_id;
82:
83: BEGIN
84: g_error_procedure_name := 'gms_gl_return_code';

Line 168: update gms_bc_packets

164: -- bug 3478028 11.5.10 grants accounting patch.
165: -- BUG: 3517362 forward port funds check related changes.
166: IF l_bc_packet_id.count > 0 THEN
167: forall l_index in l_bc_packet_id.FIRST..l_bc_packet_id.LAST
168: update gms_bc_packets
169: set burdenable_raw_cost = l_burdenable_cost(l_index)
170: where bc_packet_id = l_bc_packet_id(l_index)
171: and packet_id = p_packet_id ;
172: END IF ;

Line 214: UPDATE gms_bc_packets gms

210: l_error_message := SUBSTR((g_error_program_name || '.'
211: ||g_error_procedure_name || '.' || g_error_stage
212: ||' SQLCODE :'||SQLCODE||' SQLERRM :'||SQLERRM),1,2000);
213:
214: UPDATE gms_bc_packets gms
215: SET gms.status_code = 'T',
216: gms.fc_error_message = l_error_message,
217: gms.result_code = DECODE (
218: NVL (SUBSTR (result_code, 1, 1), 'P'),

Line 239: FROM gms_bc_packets

235: x_err_buff VARCHAR2 (2000);
236:
237: CURSOR c_failed_packet IS -- Bug 2181546, Added
238: SELECT 1
239: FROM gms_bc_packets
240: WHERE packet_id = p_packet_id
241: AND SUBSTR (nvl(result_code,'F65'), 1, 1) = 'F' ;
242:
243: CURSOR update_status IS

Line 261: FROM gms_bc_packets

257: award_id,
258: expenditure_organization_id,
259: packet_id,
260: bc_packet_id -- Added for bug : 2927485
261: FROM gms_bc_packets
262: WHERE packet_id = p_packet_id
263: AND parent_bc_packet_id IS NULL
264: AND nvl(burden_adjustment_flag,'N') = 'N'
265: AND status_code in ('A','B') ; --Added to fix bug 2138376 from 'B'

Line 282: UPDATE gms_bc_packets

278: OPEN c_failed_packet;
279: FETCH c_failed_packet INTO x_dummy;
280:
281: IF c_failed_packet%FOUND THEN
282: UPDATE gms_bc_packets
283: SET status_code = decode(p_mode,'S','E','C','F','R'),
284: result_code =
285: DECODE (SUBSTR (NVL (result_code, 'F65'), 1, 1),
286: 'P','F65',

Line 294: UPDATE gms_bc_packets

290: --IF SQL%NOTFOUND THEN
291: -- Bug 2181546, Replaced with ELSE clause
292: ELSE
293:
294: UPDATE gms_bc_packets
295: SET status_code = decode(p_mode,'S','S','B','B','C','C','A')
296: WHERE packet_id = p_packet_id;
297: END IF;
298: CLOSE c_failed_packet;

Line 301: /* Bug 5039545 : When p_partial is 'Y' , the status_code of all the records in gms_bc_packets for the current packet id

297: END IF;
298: CLOSE c_failed_packet;
299:
300:
301: /* Bug 5039545 : When p_partial is 'Y' , the status_code of all the records in gms_bc_packets for the current packet id
302: is updated correctly. */
303: /* Bug 5217281 : Modified the code such that when the GL funds check fails but the GMS fundscheck passes then
304: the status_code is updated correctly on gms_bc_packets. */
305: ELSIF NVL(p_mode,'R') in ('U','S','B','C', 'R') AND p_partial = 'Y' THEN

Line 304: the status_code is updated correctly on gms_bc_packets. */

300:
301: /* Bug 5039545 : When p_partial is 'Y' , the status_code of all the records in gms_bc_packets for the current packet id
302: is updated correctly. */
303: /* Bug 5217281 : Modified the code such that when the GL funds check fails but the GMS fundscheck passes then
304: the status_code is updated correctly on gms_bc_packets. */
305: ELSIF NVL(p_mode,'R') in ('U','S','B','C', 'R') AND p_partial = 'Y' THEN
306:
307: UPDATE gms_bc_packets
308: SET status_code =

Line 307: UPDATE gms_bc_packets

303: /* Bug 5217281 : Modified the code such that when the GL funds check fails but the GMS fundscheck passes then
304: the status_code is updated correctly on gms_bc_packets. */
305: ELSIF NVL(p_mode,'R') in ('U','S','B','C', 'R') AND p_partial = 'Y' THEN
306:
307: UPDATE gms_bc_packets
308: SET status_code =
309: DECODE(status_code,'P',decode(p_mode,'S',DECODE (SUBSTR (result_code, 1, 1), 'P', 'S', 'E')
310: ,'B',DECODE (SUBSTR (result_code, 1, 1), 'P', 'B', 'R')
311: ,'C',DECODE (SUBSTR (result_code, 1, 1), 'P', 'C', 'F')

Line 319: UPDATE gms_bc_packets

315:
316:
317: ELSIF ( NVL(p_mode,'R') in ('E') ) THEN
318:
319: UPDATE gms_bc_packets
320: SET status_code = DECODE (SUBSTR (nvl(result_code,'F65'), 1, 1), 'P', 'A', 'R')
321: WHERE packet_id = p_packet_id;
322:
323: g_error_stage := 'SCU : PARTIAL YES RES';

Line 591: FROM gms_bc_packets

587: l_budget_version_id NUMBER (15);
588:
589: CURSOR cur_valid_bvid IS
590: SELECT DISTINCT budget_version_id
591: FROM gms_bc_packets
592: WHERE packet_id = p_packet_id
593: AND SUBSTR (result_code, 1, 1) = 'P';
594:
595: CURSOR c_budget_rec IS

Line 620: UPDATE gms_bc_packets

616: IF c_budget_rec%NOTFOUND THEN
617: -- R12 Funds management uptake : Fail the full packet only if FULL mode
618: --x_return := 'Y';
619:
620: UPDATE gms_bc_packets
621: SET budget_version_id = NULL,
622: result_code = 'F10'
623: WHERE packet_id = p_packet_id
624: AND budget_version_id = records.budget_version_id

Line 632: UPDATE gms_bc_packets

628: IF p_gms_partial_flag = 'N' THEN
629:
630: x_return := 'Y';
631:
632: UPDATE gms_bc_packets
633: SET result_code = 'F11'
634: WHERE packet_id = p_packet_id
635: AND substr(result_code,1,1) = 'P'; -- Bug 2181546, Added
636: END IF;

Line 667: -- A. In gms_bc_packets there exists Funds check failed records

663: PROCEDURE gl_result_code_update (p_packet_id IN NUMBER) IS
664:
665: -- =================================================================
666: -- This cursor return records in following scenario's
667: -- A. In gms_bc_packets there exists Funds check failed records
668: -- for the current packet.
669: -- B. In gms_bc_packets there exists records which passed Funds
670: -- check in advisory mode for the current packet.
671: -- =================================================================

Line 669: -- B. In gms_bc_packets there exists records which passed Funds

665: -- =================================================================
666: -- This cursor return records in following scenario's
667: -- A. In gms_bc_packets there exists Funds check failed records
668: -- for the current packet.
669: -- B. In gms_bc_packets there exists records which passed Funds
670: -- check in advisory mode for the current packet.
671: -- =================================================================
672: CURSOR c_gl_update_required IS
673: SELECT 1

Line 676: FROM gms_bc_packets

672: CURSOR c_gl_update_required IS
673: SELECT 1
674: FROM DUAL
675: WHERE EXISTS ( SELECT 1
676: FROM gms_bc_packets
677: WHERE packet_id = p_packet_id
678: AND ( result_code IN ('P61', 'P65', 'P69', 'P73', 'P80')
679: OR NVL (SUBSTR (result_code, 1, 1), 'P') = 'F'
680: ));

Line 757: FROM gms_bc_packets bp

753: -- not there in the above List
754: DECODE(NVL(SUBSTR(glc.result_code,1,1),'P'),'P','F67',glc.result_code)
755: )
756: )
757: FROM gms_bc_packets bp
758: WHERE bp.gl_bc_packets_rowid = ROWIDTOCHAR(glc.ROWID)
759: AND bp.result_code NOT IN ('F63', 'F75')
760: AND bp.packet_id = p_packet_id
761: AND ROWNUM = 1)

Line 769: FROM gms_bc_packets gms1

765: -- Bug 2896476 : We should only override if GL Funds check passed
766: -- Bug 3277370 : Added following exists statement to filter out non-GMS transactions , we shouldn't
767: -- update result_code on Non-GMS Transactions.
768: AND EXISTS (SELECT 1
769: FROM gms_bc_packets gms1
770: WHERE gms1.packet_id = glc.packet_id
771: AND gms1.gl_bc_packets_rowid = ROWIDTOCHAR(glc.ROWID)
772: );
773:

Line 792: -- gms_bc_packets with 'F30', 'F31', 'F32' values.

788: -- =============================================================================
789: -- GMS_RESULT_CODE_UPDATE
790: -- Purpose: This is called from gms_gl_return_code to have gms_bc_packet
791: -- in synch with gl_bc_Packets and updates the result_code in
792: -- gms_bc_packets with 'F30', 'F31', 'F32' values.
793: -- =============================================================================
794: PROCEDURE gms_result_code_update ( x_gl_return_code IN OUT NOCOPY VARCHAR2,
795: p_packet_id IN NUMBER,
796: p_mode IN VARCHAR2) IS

Line 816: UPDATE gms_bc_packets

812: IF p_mode IN ('R', 'U') THEN
813: l_result_code := 'F32' ;
814: END IF;
815:
816: UPDATE gms_bc_packets
817: SET result_code = l_result_code
818: WHERE packet_id = p_packet_id
819: AND SUBSTR (result_code, 1, 1) = 'P';
820: END IF;