DBA Data[Home] [Help]

APPS.GMS_LD_PKG dependencies on GMS_LD_PKG

Line 1: PACKAGE BODY GMS_LD_PKG AS

1: PACKAGE BODY GMS_LD_PKG AS
2: -- $Header: gmsenxfb.pls 120.5.12020000.2 2012/07/18 09:30:02 admarath ship $
3:
4: -- Bug :3265300, 3345880
5: -- PSP: encumbrance summarize and transfer gives 'GMS_UNEXPECTED_ERROR'

Line 324: pa_cc_utils.log_message('GMS_LD_PKG.LOCKCNTRLREC : Deleting interface control record in IN_PROGRESS status which is created during last run' ,1);

320:
321: Solution: Delete the 'IN_PROGRESS' record created during the previous unsuccessful
322: run before updating the current run record to same status. */
323:
324: pa_cc_utils.log_message('GMS_LD_PKG.LOCKCNTRLREC : Deleting interface control record in IN_PROGRESS status which is created during last run' ,1);
325:
326: DELETE pa_transaction_xface_control
327: WHERE transaction_source = trx_source
328: AND batch_name = NVL(batch,batch_name) -- Bug 3035863

Line 332: pa_cc_utils.log_message('GMS_LD_PKG.LOCKCNTRLREC : Number of records deleted from pa_transaction_xface_control : '||SQl%ROWCOUNT);

328: AND batch_name = NVL(batch,batch_name) -- Bug 3035863
329: AND system_linkage_function = NVL(etypeclasscode,system_linkage_function) -- Bug 3035863
330: AND status = 'IN_PROGRESS' ;
331:
332: pa_cc_utils.log_message('GMS_LD_PKG.LOCKCNTRLREC : Number of records deleted from pa_transaction_xface_control : '||SQl%ROWCOUNT);
333:
334: UPDATE pa_transaction_xface_control
335: SET
336: interface_id = P_xface_id

Line 526: pa_cc_utils.log_message('GMS_LD_PKG.PROC_VALIDATE_LOCAL : Start');

522: AND gei.encumbrance_item_id = l_orig_enc_item_id ;
523:
524: BEGIN
525:
526: pa_cc_utils.log_message('GMS_LD_PKG.PROC_VALIDATE_LOCAL : Start');
527:
528: -- Bug 3465936 : Added following code to validate the original_encumbrance_item_id and
529: -- to check whether liquidation of encumbrance item id is allowed
530:

Line 533: pa_cc_utils.log_message('GMS_LD_PKG.PROC_VALIDATE_LOCAL : Before vaildating the liquidated Encumbrance');

529: -- to check whether liquidation of encumbrance item id is allowed
530:
531: IF l_orig_enc_item_id IS NOT NULL THEN
532:
533: pa_cc_utils.log_message('GMS_LD_PKG.PROC_VALIDATE_LOCAL : Before vaildating the liquidated Encumbrance');
534:
535: IF l_allow_reversal_flag = 'N' THEN
536: p_status_code := 'GMS_IMP_ENC_NO_REVERSAL';
537: ELSE

Line 552: pa_cc_utils.log_message('GMS_LD_PKG.PROC_VALIDATE_LOCAL : After vaildating the liquidated Encumbrance ,p_status_code : '||p_status_code);

548: CLOSE c_original_enc_exists ;
549:
550: END IF;
551:
552: pa_cc_utils.log_message('GMS_LD_PKG.PROC_VALIDATE_LOCAL : After vaildating the liquidated Encumbrance ,p_status_code : '||p_status_code);
553:
554: IF p_status_code IS NOT NULL THEN
555: X_success := 'F' ;
556: RETURN;

Line 634: pa_cc_utils.log_message('GMS_LD_PKG.PROC_VALIDATE_LOCAL : End');

630:
631: X_success := 'S' ;
632: end if;
633:
634: pa_cc_utils.log_message('GMS_LD_PKG.PROC_VALIDATE_LOCAL : End');
635: EXCEPTION
636: WHEN no_data_found THEN
637: pa_cc_utils.log_message('EXECPTION :Person ' || TrxRec.employee_number, 1);
638: pa_cc_utils.log_message('EXECPTION :Override Organization ' || TrxRec.override_to_organization_name, 1);

Line 773: pa_cc_utils.log_message('GMS_LD_PKG.VALIDATE_TRANSACTION_SOURCE : Start');

769: BEGIN
770: -- Bug 3035863: The following code is added to stop further processing of
771: -- encumbrance if flags not properly set .
772:
773: pa_cc_utils.log_message('GMS_LD_PKG.VALIDATE_TRANSACTION_SOURCE : Start');
774: x_status := NULL;
775:
776: pa_cc_utils.log_message('GMS_LD_PKG.VALIDATE_TRANSACTION_SOURCE : Validating transaction source '||p_transaction_source );
777:

Line 776: pa_cc_utils.log_message('GMS_LD_PKG.VALIDATE_TRANSACTION_SOURCE : Validating transaction source '||p_transaction_source );

772:
773: pa_cc_utils.log_message('GMS_LD_PKG.VALIDATE_TRANSACTION_SOURCE : Start');
774: x_status := NULL;
775:
776: pa_cc_utils.log_message('GMS_LD_PKG.VALIDATE_TRANSACTION_SOURCE : Validating transaction source '||p_transaction_source );
777:
778: IF NVL(l_gl_accted_flag ,'N') = 'Y' THEN
779: x_status := 'GMS_IMP_ENC_GLACCT_FLAG';
780: ELSIF NVL(l_costed_flag,'N') = 'N' THEN

Line 786: pa_cc_utils.log_message('GMS_LD_PKG.VALIDATE_TRANSACTION_SOURCE : After validating transaction source ,Value of x_status : '||x_status );

782: ELSIF NVL(l_allow_burden_flag,'N') = 'Y' THEN
783: x_status := 'GMS_IMP_ENC_BURDEN_FLAG';
784: END IF;
785:
786: pa_cc_utils.log_message('GMS_LD_PKG.VALIDATE_TRANSACTION_SOURCE : After validating transaction source ,Value of x_status : '||x_status );
787:
788: pa_cc_utils.log_message('GMS_LD_PKG.VALIDATE_TRANSACTION_SOURCE : End ');
789:
790: EXCEPTION

Line 788: pa_cc_utils.log_message('GMS_LD_PKG.VALIDATE_TRANSACTION_SOURCE : End ');

784: END IF;
785:
786: pa_cc_utils.log_message('GMS_LD_PKG.VALIDATE_TRANSACTION_SOURCE : After validating transaction source ,Value of x_status : '||x_status );
787:
788: pa_cc_utils.log_message('GMS_LD_PKG.VALIDATE_TRANSACTION_SOURCE : End ');
789:
790: EXCEPTION
791: When others then
792: pa_cc_utils.log_message('GMS_LD_PKG.VALIDATE_TRANSACTION_SOURCE : Unexpected error : '||SQLERRM,1);

Line 792: pa_cc_utils.log_message('GMS_LD_PKG.VALIDATE_TRANSACTION_SOURCE : Unexpected error : '||SQLERRM,1);

788: pa_cc_utils.log_message('GMS_LD_PKG.VALIDATE_TRANSACTION_SOURCE : End ');
789:
790: EXCEPTION
791: When others then
792: pa_cc_utils.log_message('GMS_LD_PKG.VALIDATE_TRANSACTION_SOURCE : Unexpected error : '||SQLERRM,1);
793: x_status := 'GMS_UNEXPECTED_ERROR';
794: END;
795:
796: BEGIN

Line 810: x_calling_module := 'GMS_LD_PKG.PRE_PROCESS' ;

806: ORG_FIRST := TRUE;
807: GROUP_FIRST := TRUE;
808: TASK_FIRST := TRUE;
809: PROJ_FIRST := TRUE;
810: x_calling_module := 'GMS_LD_PKG.PRE_PROCESS' ;
811:
812: IF (P_TRANSACTION_SOURCE = 'GOLDE' OR (SUBSTR(P_TRANSACTION_SOURCE,1,4) = 'GMSE')) THEN
813: NULL;
814: ELSE

Line 818: write_to_log('GMS :begin gms_ld_pkg.pre_process :'||P_TRANSACTION_SOURCE) ;

814: ELSE
815: return ;
816: END IF ;
817:
818: write_to_log('GMS :begin gms_ld_pkg.pre_process :'||P_TRANSACTION_SOURCE) ;
819: write_to_log('GMS :start time gms_ld_pkg.pre_process :'||to_char(sysdate, 'DD-MON-YYYY HH24:MI:SS')) ;
820:
821: open c_trans_source ;
822: fetch c_trans_source into l_emp_org_oride,l_purgeable_flag,l_allow_dup_ref_flag ,

Line 819: write_to_log('GMS :start time gms_ld_pkg.pre_process :'||to_char(sysdate, 'DD-MON-YYYY HH24:MI:SS')) ;

815: return ;
816: END IF ;
817:
818: write_to_log('GMS :begin gms_ld_pkg.pre_process :'||P_TRANSACTION_SOURCE) ;
819: write_to_log('GMS :start time gms_ld_pkg.pre_process :'||to_char(sysdate, 'DD-MON-YYYY HH24:MI:SS')) ;
820:
821: open c_trans_source ;
822: fetch c_trans_source into l_emp_org_oride,l_purgeable_flag,l_allow_dup_ref_flag ,
823: l_gl_accted_flag,l_allow_reversal_flag,l_costed_flag,l_allow_burden_flag; -- Bug 3035863

Line 826: pa_cc_utils.log_message('GMS_LD_PKG.PRE_PROCESS : Before calling VALIDATE_TRANSACTION_SOURCE ');

822: fetch c_trans_source into l_emp_org_oride,l_purgeable_flag,l_allow_dup_ref_flag ,
823: l_gl_accted_flag,l_allow_reversal_flag,l_costed_flag,l_allow_burden_flag; -- Bug 3035863
824: close c_trans_source ;
825:
826: pa_cc_utils.log_message('GMS_LD_PKG.PRE_PROCESS : Before calling VALIDATE_TRANSACTION_SOURCE ');
827:
828: -- Bug 3035863 : Call to validate encumbrance transaction source.
829:
830: IF SUBSTR(p_transaction_source,1,4) ='GMSE' THEN

Line 848: pa_cc_utils.log_message('GMS_LD_PKG.PRE_PROCESS : Number of records marked for failure after VALIDATE_TRANSACTION_SOURCE'||SQL%ROWCOUNT);

844: WHERE xc.transaction_source = P_transaction_source
845: AND xc.batch_name = nvl(P_batch, xc.batch_name)
846: AND xc.status = 'PENDING');
847:
848: pa_cc_utils.log_message('GMS_LD_PKG.PRE_PROCESS : Number of records marked for failure after VALIDATE_TRANSACTION_SOURCE'||SQL%ROWCOUNT);
849:
850: dummy := lockCntrlRec( p_transaction_source,
851: p_batch ,
852: NULL );

Line 941: pa_cc_utils.log_message('GMS_LD_PKG.PRE_PROCESS : Fetching liquidated Encumbrance for txn interface id : '||TrxRec.txn_interface_id);

937:
938: -- Bug 3465939 :Code to fetch liquidated encumbrance item id information
939: -- from grants transaction_interface table
940:
941: pa_cc_utils.log_message('GMS_LD_PKG.PRE_PROCESS : Fetching liquidated Encumbrance for txn interface id : '||TrxRec.txn_interface_id);
942:
943: OPEN c_get_org_enc_item_id(TrxRec.txn_interface_id);
944: FETCH c_get_org_enc_item_id INTO l_orig_enc_item_id,l_net_zero_adj_flag ;
945: CLOSE c_get_org_enc_item_id;

Line 947: pa_cc_utils.log_message('GMS_LD_PKG.PRE_PROCESS : Value of l_orig_enc_item_id'||l_orig_enc_item_id);

943: OPEN c_get_org_enc_item_id(TrxRec.txn_interface_id);
944: FETCH c_get_org_enc_item_id INTO l_orig_enc_item_id,l_net_zero_adj_flag ;
945: CLOSE c_get_org_enc_item_id;
946:
947: pa_cc_utils.log_message('GMS_LD_PKG.PRE_PROCESS : Value of l_orig_enc_item_id'||l_orig_enc_item_id);
948: pa_cc_utils.log_message('GMS_LD_PKG.PRE_PROCESS : Value of l_net_zero_adj_flag'||l_net_zero_adj_flag);
949:
950: -- Bug 3465939 :Shifted the call to PROC_VALIDATE_LOCAL before encumbrance group creation
951:

Line 948: pa_cc_utils.log_message('GMS_LD_PKG.PRE_PROCESS : Value of l_net_zero_adj_flag'||l_net_zero_adj_flag);

944: FETCH c_get_org_enc_item_id INTO l_orig_enc_item_id,l_net_zero_adj_flag ;
945: CLOSE c_get_org_enc_item_id;
946:
947: pa_cc_utils.log_message('GMS_LD_PKG.PRE_PROCESS : Value of l_orig_enc_item_id'||l_orig_enc_item_id);
948: pa_cc_utils.log_message('GMS_LD_PKG.PRE_PROCESS : Value of l_net_zero_adj_flag'||l_net_zero_adj_flag);
949:
950: -- Bug 3465939 :Shifted the call to PROC_VALIDATE_LOCAL before encumbrance group creation
951:
952: PROC_PROJECT_TASK ;

Line 1036: , x_calling_module -- 'GMS_LD_PKG.PRE_PROCESS' calling_module is hardcoded to this.

1032: , TrxRec.non_labor_resource
1033: , TrxRec.non_labor_resource_org_name
1034: , TrxRec.quantity
1035: , TrxRec.denom_raw_cost
1036: , x_calling_module -- 'GMS_LD_PKG.PRE_PROCESS' calling_module is hardcoded to this.
1037: , TrxRec.orig_transaction_reference
1038: , TrxRec.unmatched_negative_txn_flag
1039: , p_user_id
1040: , TrxRec.attribute_category

Line 1162: pa_cc_utils.log_message('GMS_LD_PKG.PRE_PROCESS : Before calling PROC_VALIDATE_LOCAL');

1158: pa_multi_currency.init;
1159: x_acct_currency_code := pa_multi_currency.G_accounting_currency_code;
1160: end if;
1161:
1162: pa_cc_utils.log_message('GMS_LD_PKG.PRE_PROCESS : Before calling PROC_VALIDATE_LOCAL');
1163:
1164: PROC_VALIDATE_LOCAL(TrxRec.raw_cost,x_status_code) ;
1165:
1166: IF x_success = 'F' THEN

Line 1495: pa_cc_utils.log_message('GMS_LD_PKG.PRE_PROCESS : Number of success records deleted from Grants interface table :'||SQL%ROWCOUNT);

1491: WHERE txn_interface_id IN (SELECT txn_interface_id
1492: FROM pa_transaction_interface_all
1493: WHERE interface_id = P_XFACE_ID
1494: AND transaction_status_code ='A' );
1495: pa_cc_utils.log_message('GMS_LD_PKG.PRE_PROCESS : Number of success records deleted from Grants interface table :'||SQL%ROWCOUNT);
1496:
1497: END IF ;
1498:
1499: write_to_log('GMS :end time gms_ld_pkg.pre_process :'||to_char(sysdate, 'DD-MON-YYYY HH24:MI:SS')) ;

Line 1499: write_to_log('GMS :end time gms_ld_pkg.pre_process :'||to_char(sysdate, 'DD-MON-YYYY HH24:MI:SS')) ;

1495: pa_cc_utils.log_message('GMS_LD_PKG.PRE_PROCESS : Number of success records deleted from Grants interface table :'||SQL%ROWCOUNT);
1496:
1497: END IF ;
1498:
1499: write_to_log('GMS :end time gms_ld_pkg.pre_process :'||to_char(sysdate, 'DD-MON-YYYY HH24:MI:SS')) ;
1500:
1501:
1502: commit;
1503:

Line 1602: END GMS_LD_PKG;

1598: END IF;
1599:
1600: END Validate_Dates_YN;
1601:
1602: END GMS_LD_PKG;