[Home] [Help]
866:
867: TYPE tab_doc_head_id IS TABLE OF gms_bc_packets.document_header_id%TYPE;
868: TYPE tab_doc_type IS TABLE OF gms_bc_packets.document_type%TYPE;
869: TYPE tab_res_code IS TABLE OF gms_bc_packets.result_code%TYPE;
870: TYPE tab_sta_code IS TABLE OF gms_bc_packets.status_code%TYPE;
871: TYPE tab_dr_code IS TABLE OF gms_bc_packets.entered_dr%TYPE;
872: TYPE tab_cr_code IS TABLE OF gms_bc_packets.entered_cr%TYPE;
873: TYPE tab_bud_task_id IS TABLE OF gms_bc_packets.bud_task_id%TYPE;
874: TYPE tab_proj_id IS TABLE OF gms_bc_packets.project_id%TYPE;
881: TYPE tab_packet_id IS TABLE OF gms_bc_packets.packet_id%TYPE;
882: TYPE tab_bc_packet_id IS TABLE OF gms_bc_packets.bc_packet_id%TYPE;
883: TYPE tab_exp_type IS TABLE OF gms_bc_packets.expenditure_type%TYPE;
884: TYPE tab_ind_comp_setid IS TABLE OF gms_bc_packets.ind_compiled_set_id%TYPE;
885: TYPE tab_set_of_books_id IS TABLE OF gms_bc_packets.set_of_books_id%TYPE; --Bug 5845974
886:
887: tdocument_header_id tab_doc_head_id;
888: tdocument_type tab_doc_type;
889: tresult_code tab_res_code;
1923: ,p_doc_header_id_tab(i)
1924: ,p_doc_dist_id_tab(i)
1925: ,'N' -- For GMSIP 'N' should not cause an issue
1926: ,NULL
1927: ,gms_bc_packets_s.NEXTVAL
1928: ,p_vendor_id_tab(i)
1929: ,p_exp_category_tab(i)
1930: ,p_revenue_category_tab(i)
1931: ,l_request_id
2945: -- Initializing OUT variables
2946: x_return_code := 'P';
2947: l_award_dist_option := 'N';
2948:
2949: SELECT gms_bc_packets_s.nextval
2950: INTO l_packet_id
2951: FROM dual;
2952:
2953: IF g_debug = 'Y' THEN
3711: gbc.time_phased_type_code,
3712: gbc.categorization_code,
3713: gbc.request_id,
3714: gbc.gl_bc_packets_rowid,
3715: gms_bc_packets_s.NEXTVAL,
3716: decode(gbc.burden_adjustment_flag,'Y',gbc.parent_bc_packet_id,gbc.bc_packet_id),
3717: -- In case of burden adjustment flag, use parent_bc_packet_id on raw adjsutment line
3718: gbc.vendor_id, --ADDED FOR BUG 16009601
3719: gbc.person_id,
4450: x_time_phased_type_code IN pa_budget_entry_methods.time_phased_type_code%TYPE,
4451: x_expenditure_item_date IN DATE,
4452: x_amount_type IN gms_awards.amount_type%TYPE,
4453: x_boundary_code IN gms_awards.boundary_code%TYPE,
4454: x_set_of_books_id IN gms_bc_packets.set_of_books_id%TYPE,
4455:
4456: -- x_budgeted_task_id IN gms_bc_packets.bud_task_id%TYPE,
4457: -- x_bud_res_list_member_id IN NUMBER,
4458: x_start_date OUT NOCOPY DATE,
4997: TYPE t_tptypecd IS TABLE OF gms_bc_packets.time_phased_type_code%TYPE;
4998: TYPE t_expdate IS TABLE OF gms_bc_packets.expenditure_item_date%TYPE;
4999: TYPE t_amttype IS TABLE OF gms_bc_packets.amount_type%TYPE;
5000: TYPE t_boudrcd IS TABLE OF gms_bc_packets.boundary_code%TYPE;
5001: TYPE t_sobid IS TABLE OF gms_bc_packets.set_of_books_id%TYPE;
5002: TYPE t_startdt IS TABLE OF DATE;
5003: TYPE t_enddt IS TABLE OF DATE;
5004: TYPE t_errcode IS TABLE OF NUMBER;
5005: TYPE t_errcbuff IS TABLE OF VARCHAR2(500);
5798: -- Bug 2176230
5799: -- ********************************************************************************
5800: -- NOTE :- Don't Put Any Commit after this point till gms_fc_process is complete,
5801: -- Reason being for funds checking in C Mode (check funds mode)
5802: -- transactions in gms_bc_packets should not be accounted by any other
5803: -- subsequent packet.
5804: -- ********************************************************************************
5805:
5806: insert_arrival_order_seq (x_packetid, x_mode);
6402: -- ==============================================================================
6403: -- ********************* RESOURCE LEVEL SUMMARY UPDATE ************************
6404: -- ==============================================================================
6405: -- Bug 2092791
6406: -- Following Insert statement inserts records in gms_bc_packets_summary.
6407: -- Records in this table will later be used to summarize amount at
6408: -- resource,task and Award Level for previous and currne packet.
6409: IF g_debug = 'Y' THEN
6410: gms_error_pkg.gms_debug ('RESOURCE LEVEL - SUMMARY INSERT ', 'C');
6431: LOCK_BUDGET_VERSIONS(x_packetid);
6432: End If;
6433:
6434: -- Bug 2605070, Replaced bud_resource_list_member_id with resource_list_member_id
6435: INSERT INTO gms_bc_packets_summary
6436: (packet_id,
6437: creation_date,
6438: budget_version_id,
6439: top_task_id,
6550: SUM(actual_approved), --Bug 2490381 : Added SUM
6551: SUM(actual_pending), --Bug 2490381 : Added SUM
6552: SUM(enc_approved), --Bug 2490381 : Added SUM
6553: SUM(enc_pending) --Bug 2490381 : Added SUM
6554: FROM gms_bc_packets_summary gmsbcs
6555: WHERE gmsbcs.packet_id = x_packetid
6556: AND gmsbcs.bud_task_id = bp.bud_task_id
6557: AND gmsbcs.budget_version_id = bp.budget_version_id
6558: AND gmsbcs.resource_list_member_id =
6743: --===============================================================================
6744: -- RESOURCE LEVEL : INSERT NEGATIVE IN SUMMARY FOR FAILED TRANSACTIONS
6745: --===============================================================================
6746: g_error_stage := 'FC PR : RES INSERT NEG';
6747: INSERT INTO gms_bc_packets_summary
6748: (packet_id,
6749: creation_date,
6750: budget_version_id,
6751: top_task_id,
6847: SUM(actual_approved),
6848: SUM(actual_pending),
6849: SUM(enc_approved),
6850: SUM(enc_pending)
6851: FROM gms_bc_packets_summary gmsbcs
6852: WHERE gmsbcs.packet_id = x_packetid
6853: AND gmsbcs.bud_task_id = bp.bud_task_id
6854: AND gmsbcs.budget_version_id = bp.budget_version_id
6855: AND gmsbcs.parent_resource_id = bp.parent_resource_id
7037: --===============================================================================
7038: -- RESOURCE GROUP LEVEL : INSERT NEGATIVE IN SUMMARY FOR FAILED TRANSACTIONS
7039: --===============================================================================
7040: g_error_stage := 'FC PR : RESG IN NEG';
7041: INSERT INTO gms_bc_packets_summary
7042: (packet_id,
7043: creation_date,
7044: budget_version_id,
7045: top_task_id,
7124: SUM (actual_approved),
7125: SUM (actual_pending),
7126: SUM (enc_approved),
7127: SUM (enc_pending)
7128: FROM gms_bc_packets_summary gmsbcs
7129: WHERE gmsbcs.packet_id = x_packetid
7130: AND gmsbcs.budget_version_id = bp.budget_version_id
7131: AND gmsbcs.bud_task_id = bp.bud_task_id
7132: --Bug 2490381 : Changed "=" to "<=" to consider all the
7306: --==========================================================================
7307: -- TASK LEVEL : INSERT NEGATIVE IN SUMMARY FOR FAILED TRANSACTIONS
7308: --==========================================================================
7309: g_error_stage := 'FC PR : TASK IN NEG';
7310: INSERT INTO gms_bc_packets_summary
7311: (packet_id,
7312: creation_date,
7313: budget_version_id,
7314: top_task_id,
7393: SUM (actual_approved),
7394: SUM (actual_pending),
7395: SUM (enc_approved),
7396: SUM (enc_pending)
7397: FROM gms_bc_packets_summary gmsbcs
7398: WHERE gmsbcs.packet_id = x_packetid
7399: AND gmsbcs.budget_version_id = bp.budget_version_id
7400: AND gmsbcs.top_task_id = bp.top_task_id
7401: --Bug 2490381 : Changed "=" to "<=" to consider all the
7574: End if;
7575: End If;
7576:
7577: g_error_stage := 'FC PR : TTASK IN NEG';
7578: INSERT INTO gms_bc_packets_summary
7579: (packet_id,
7580: creation_date,
7581: budget_version_id,
7582: budget_period_start_date,
7654: SUM (actual_approved),
7655: SUM (actual_pending),
7656: SUM (enc_approved),
7657: SUM (enc_pending)
7658: FROM gms_bc_packets_summary gmsbcs
7659: WHERE gmsbcs.packet_id = x_packetid
7660: AND gmsbcs.budget_version_id = bp.budget_version_id
7661: --Bug 2490381 : Changed "=" to "<=" to consider all the
7662: -- records from summary table which fall
7850: --================================================================================--
7851: -- Data clean up code from summary tables after Amount calculation
7852: --================================================================================--
7853: g_error_stage := 'FC PR : DELETE';
7854: DELETE gms_bc_packets_summary
7855: WHERE packet_id = x_packetid;
7856: DELETE gms_bc_packets_bvid
7857: WHERE packet_id = x_packetid;
7858:
7884: -- This function calls all the procedures and functions for funds checker
7885: --------------------------------------------------------------------------------------------------------------------------------------------------
7886: -- Funds Check Processor
7887: FUNCTION gms_fcp (
7888: x_sobid IN gms_bc_packets.set_of_books_id%TYPE,
7889: x_packetid IN gms_bc_packets.packet_id%TYPE,
7890: x_mode IN VARCHAR2,
7891: x_partial IN VARCHAR2,
7892: x_arrival_seq IN gl_bc_packet_arrival_order.arrival_seq%TYPE,
7928: -- Bug 2176230
7929: -- ********************************************************************************
7930: -- NOTE :- Don't Put Any Commit after this point till gms_fc_process is complete,
7931: -- Reason being for funds checking in C Mode (check funds mode)
7932: -- transactions in gms_bc_packets should not be accounted by any other
7933: -- subsequent packet. (Applicable for x_mode = R,U,C,E)
7934: -- ********************************************************************************
7935:
7936: