[Home] [Help]
159:
160: END IS_PA_INSTALL_IN_OU;
161:
162: /** This is an autonmous Transaction API, which inserts records into
163: * pa_bc_packets. If the operation is success ,x_return_status will be set to 'S'
164: * else it will be set to 'T' - for fatal error and x_error_msg will return the sqlcode and sqlerrm
165: **/
166: PROCEDURE Load_pkts(
167: p_calling_module IN varchar2 default 'CCTRXIMPORT'
242:
243: Else
244: l_fc_rec_tab(i).budget_version_id := -1;
245: l_fc_rec_tab(i).status_code := 'Z';
246: -- set status code to Z to avoid copying project related non-budgetary control records into pa_bc_packets
247:
248: End If;
249:
250: -- Note: We cannot use Bulk insert due to table of records
248: End If;
249:
250: -- Note: We cannot use Bulk insert due to table of records
251: --PLS-00436: implementation restriction: cannot reference fields of BULK In-BIND table of records
252: INSERT INTO PA_BC_PACKETS
253: (PACKET_ID
254: ,BC_PACKET_ID
255: ,PARENT_BC_PACKET_ID
256: ,BC_COMMITMENT_ID
294: ,CREATION_DATE
295: ,LAST_UPDATE_LOGIN
296: ) select
297: l_fc_rec_tab(i).PACKET_ID
298: ,pa_bc_packets_s.nextval --l_fc_rec_tab(i).BC_PACKET_ID
299: ,l_fc_rec_tab(i).PARENT_BC_PACKET_ID
300: ,l_fc_rec_tab(i).BC_COMMITMENT_ID
301: ,l_fc_rec_tab(i).PROJECT_ID
302: ,l_fc_rec_tab(i).TASK_ID
352: l_tab_count := 0;
353:
354: select count(*)
355: into l_tab_count
356: from pa_bc_packets
357: where packet_id = p_packet_id;
358:
359: print_msg('Number of rec inserted ['||l_tab_count);
360:
360:
361: If l_tab_count > 0 Then
362:
363: -- populate burden rows for the above inserted rows
364: -- calling the Populate_burden_cost API in TRXIMPORT api will not insert records into pa_bc_packets
365: -- for document type 'CC_C_CO','CC_P_CO','CC_C_PAY','CC_P_PAY','AP' so the api should be called
366: -- with calling mode manipulated with GL or CBC
367: If p_ext_budget_type = 'CC' Then
368: l_ext_budget_type := 'CBC';
387:
388: EXCEPTION
389: WHEN OTHERS THEN
390: print_msg('When others of exception in Load pkts');
391: update pa_bc_packets
392: set result_code = decode(substr(nvl(result_code,'P'),1,1),'P','F142'
393: ,'F',result_code
394: ,'F142')
395: ,status_code = 'T'
426: * 2.When you import CC transactions without calling normal funds check process,
427: * we assume that PA Encumbrance are populated in CC and GL budgets. so we will not post any
428: * liqudiation or burden entries into igc interface or gl_bc_packets
429: *
430: * 3.The CC calls Pa_enc_import_fck API, we assume that CC is putting raw amount into pa_bc_packets
431: * so this API will derive the burden amounts based on setup on the PA burden setup
432: **/
433:
434: PROCEDURE Pa_enc_import_fck(
535:
536:
537: /** This is tieback API for Contract commitment import process,Once the import process is completed
538: * this api will be called by passing the cbc result code. based on the cbc_result_code the
539: * status of the pa_bc_packets and pa_bdgt_acct_balances will be updated
540: * The return status of this API will be 'S' - success, 'F' - Failure, 'T' - Fatal error
541: **/
542: PROCEDURE Pa_enc_import_fck_tieback(
543: p_calling_module IN varchar2
670: select pkt.rowid
671: ,pkt.bc_packet_id
672: ,pkt.status_code
673: ,pkt.result_code
674: from pa_bc_packets pkt
675: where pkt.packet_id = p_packet_id
676: and substr(nvl(result_code,'P'),1,1) = 'P';
677:
678: l_num_rows Number := 500;
702: EXIT;
703: END IF;
704: -- update the result code of the packets where it is passed
705: FORALL i IN l_tab_rowid.FIRST .. l_tab_rowid.LAST
706: UPDATE pa_bc_packets
707: SET result_code =
708: decode(p_calling_module,
709: 'GL',
710: decode(p_partial_flag,