[Home] [Help]
11: G_PrevCCPrjProcessFlag VARCHAR2(1);
12: G_PrevPrjOrgId NUMBER;
13:
14:
15: P_DEBUG_MODE BOOLEAN := pa_cc_utils.g_debug_mode;
16:
17: PROCEDURE PRINT_MESSAGE(p_msg varchar2) IS
18:
19: BEGIN
21: --r_debug.r_msg(p_msg => p_msg);
22: Null;
23: End if;
24: IF P_DEBUG_MODE THEN
25: pa_cc_utils.LOG_MESSAGE('PRINT_MESSAGE: ' || p_msg);
26: END IF;
27:
28:
29: END PRINT_MESSAGE;
81: l_PrevPrvdrOrgId pa_projects_all.org_id%type := Null;
82:
83:
84: BEGIN
85: pa_cc_utils.set_curr_function('PA_CC_IDENTIFY_TXN_FI');
86: l_MinRecs := P_SysLinkTab.FIRST;
87: l_MaxRecs := P_SysLinkTab.LAST;
88:
89: FOR j IN l_MinRecs..l_MaxRecs LOOP
93:
94: -- forecast items
95:
96: IF P_DEBUG_MODE THEN
97: pa_cc_utils.log_message('PA_CC_IDENTIFY_TXN_FI: ' || '20.05.01: This FI is already erroneous and needs no CC identification');
98: END IF;
99:
100: NULL ;
101:
103: --
104: -- Determine Current Operating Unit
105: --
106: IF P_DEBUG_MODE THEN
107: pa_cc_utils.log_message('PA_CC_IDENTIFY_TXN_FI: ' || '20.05.02: Determine the Expenditure OU and its cross charge options');
108: END IF;
109:
110: IF nvl(l_prevexporgid,-99) <> P_ExpOrgidTab(j) Then
111: IF P_DEBUG_MODE THEN
108: END IF;
109:
110: IF nvl(l_prevexporgid,-99) <> P_ExpOrgidTab(j) Then
111: IF P_DEBUG_MODE THEN
112: pa_cc_utils.log_message('PA_CC_IDENTIFY_TXN_FI: ' || '20.05.03: Derive the cross charge options from pa_implementations');
113: END IF;
114:
115: SELECT imp.org_id,
116: nvl(imp.cc_process_io_code,'N'),
130:
131: ELSE
132:
133: IF P_DEBUG_MODE THEN
134: pa_cc_utils.log_message('PA_CC_IDENTIFY_TXN_FI: ' || '20.05.04: Retrive cross charge options from cache');
135: END IF;
136: l_current_org_id := l_PrevPrvdrOrgId;
137: l_current_process_io_code := l_PrevCCProcessIOCode;
138: l_current_process_iu_code := l_PrevCCProcessIUCode;
150:
151: -- org id which is the receiver OU.
152: --
153: IF P_DEBUG_MODE THEN
154: pa_cc_utils.log_message('PA_CC_IDENTIFY_TXN_FI: ' || '20.05.05: Derive receiving org id for the given project');
155: END IF;
156:
157:
158: SELECT p.carrying_out_organization_id,
172:
173:
174: ELSE
175: IF P_DEBUG_MODE THEN
176: pa_cc_utils.log_message('PA_CC_IDENTIFY_TXN_FI: ' || '20.05.06: Retreive receiving org id cache');
177: END IF;
178:
179: l_recvr_organization_id := l_prev_recvr_organization_id;
180: l_cc_prj_process_flag := l_prev_cc_prj_process_flag;
191: X_RecvrOrgIdTab(j) := P_PrjOrgIdTab(j);
192: X_PrvdrOrgIdTab(j) := l_current_org_id;
193:
194: IF P_DEBUG_MODE THEN
195: pa_cc_utils.log_message
196: ('PA_CC_IDENTIFY_TXN_FI: ' || '20.05.07: Calling Client Extension to override the PRVDR_RECVR orgs');
197: END IF;
198:
199: -- Call client extension to override the provider and receiver organizations.
211: X_Error_Stage => X_Error_Stage,
212: X_Error_Code => X_Error_Code );
213:
214: IF P_DEBUG_MODE THEN
215: pa_cc_utils.log_message('PA_CC_IDENTIFY_TXN_FI: ' || 'P_ProjectIdTab='||P_ProjectIdTab(j)||'P_PrvdrOrganizationId='||X_PrvdrOrganizationIdTab(j)
216: ||'X_RecvrOrganizationIdTab='||X_RecvrOrganizationIdTab(j)||'X_RecvrOrgIdTab='
217: ||X_RecvrOrgIdTab(j)||'P_SysLinkTab='||P_SysLinkTab(j)
218: ||'l_CCPrjFlagTab='||l_CCPrjFlagTab(j)||'l_CCProcessIUCodeTab='
219: ||l_CCProcessIUCodeTab(j)||'l_CCProcessIOCodeTab='||l_CCProcessIOCodeTab(j));
216: ||'X_RecvrOrganizationIdTab='||X_RecvrOrganizationIdTab(j)||'X_RecvrOrgIdTab='
217: ||X_RecvrOrgIdTab(j)||'P_SysLinkTab='||P_SysLinkTab(j)
218: ||'l_CCPrjFlagTab='||l_CCPrjFlagTab(j)||'l_CCProcessIUCodeTab='
219: ||l_CCProcessIUCodeTab(j)||'l_CCProcessIOCodeTab='||l_CCProcessIOCodeTab(j));
220: pa_cc_utils.log_message('PA_CC_IDENTIFY_TXN_FI: ' || '20.05.08: End of Client Extension to override the PRVDR_RECVR orgs');
221: END IF;
222:
223: END IF; -- end of status_tab
224:
223: END IF; -- end of status_tab
224:
225: END LOOP;
226: IF P_DEBUG_MODE THEN
227: pa_cc_utils.log_message('PA_CC_IDENTIFY_TXN_FI: ' || '20.05.09: Calling PA_CC_GET_CROSS_CHARGE_TYPE api');
228: END IF;
229:
230:
231: PA_CC_IDENT.PA_CC_GET_CROSS_CHARGE_TYPE (
251: ,X_CrossChargeCodeTab => X_CrossChargeCodeTab
252: ,X_Error_Stage => X_Error_Stage
253: ,X_Error_Code => X_Error_Code );
254: IF P_DEBUG_MODE THEN
255: pa_cc_utils.log_message('PA_CC_IDENTIFY_TXN_FI: ' || '20.05.10: End of PA_CC_GET_CROSS_CHARGE_TYPE api');
256: END IF;
257:
258: pa_cc_utils.reset_curr_function;
259:
254: IF P_DEBUG_MODE THEN
255: pa_cc_utils.log_message('PA_CC_IDENTIFY_TXN_FI: ' || '20.05.10: End of PA_CC_GET_CROSS_CHARGE_TYPE api');
256: END IF;
257:
258: pa_cc_utils.reset_curr_function;
259:
260: EXCEPTION
261:
262: WHEN OTHERS THEN
260: EXCEPTION
261:
262: WHEN OTHERS THEN
263: IF P_DEBUG_MODE THEN
264: pa_cc_utils.log_message('Failed in PA_CC_IDENTIFY_TXN_FI Error:'||SQLCODE||SQLERRM);
265: END IF;
266: RAISE ;
267:
268: END PA_CC_IDENTIFY_TXN_FI;
336:
337: -- Assign all the input values to the tables. These tables will be passed
338: -- to the the main identification procedure.
339:
340: pa_cc_utils.set_curr_function('PA_CC_IDENTIFY_TXN_ADJ');
341: IF P_DEBUG_MODE THEN
342: pa_cc_utils.log_message('PA_CC_IDENTIFY_TXN_ADJ: ' || '10: Assign all the input values to the tables');
343: END IF;
344:
338: -- to the the main identification procedure.
339:
340: pa_cc_utils.set_curr_function('PA_CC_IDENTIFY_TXN_ADJ');
341: IF P_DEBUG_MODE THEN
342: pa_cc_utils.log_message('PA_CC_IDENTIFY_TXN_ADJ: ' || '10: Assign all the input values to the tables');
343: END IF;
344:
345: l_ExpOrganizationIdTab(1) := P_ExpOrganizationId ;
346: l_ExpOrgIdTab(1) := P_ExpOrgId ;
361: l_Error_Stage := X_Error_Stage;
362: l_Error_Code := X_Error_Code;
363:
364: IF P_DEBUG_MODE THEN
365: pa_cc_utils.log_message('PA_CC_IDENTIFY_TXN_ADJ: ' || '20: Calling procedure PA_CC_IDENT.PA_CC_IDENTIFY_TXN');
366: END IF;
367:
368: PA_CC_IDENT.PA_CC_IDENTIFY_TXN(
369: P_ExpOrganizationIdTab => l_ExpOrganizationIdTab,
392: /* Added calling module for 3234973 */
393: X_Calling_Module => X_Calling_Module);
394:
395: IF P_DEBUG_MODE THEN
396: pa_cc_utils.log_message('PA_CC_IDENTIFY_TXN_ADJ: ' || '30: Assigning the returned values to the output variables');
397: END IF;
398:
399: X_status := l_StatusTab(1);
400: X_CrossChargeType := l_CrossChargeTypeTab(1);
403: X_RecvrOrganizationId := l_RecvrOrganizationIdTab(1);
404: X_RecvrOrgId := l_RecvrOrgIdTab(1);
405:
406: IF P_DEBUG_MODE THEN
407: pa_cc_utils.log_message('40: Exiting the procedure PA_CC_IDENT.PA_CC_IDENTIFY_TXN_ADJ');
408: END IF;
409:
410: pa_cc_utils.reset_curr_function;
411: EXCEPTION
406: IF P_DEBUG_MODE THEN
407: pa_cc_utils.log_message('40: Exiting the procedure PA_CC_IDENT.PA_CC_IDENTIFY_TXN_ADJ');
408: END IF;
409:
410: pa_cc_utils.reset_curr_function;
411: EXCEPTION
412:
413: WHEN OTHERS THEN
414: x_error_stage := l_error_stage;
465: -- 2. Receiver Organization
466: -- 3. Provider Operating Unit
467: -- 4. Receiver Operating Unit
468:
469: pa_cc_utils.set_curr_function('PA_CC_IDENTIFY_TXN');
470:
471: IF P_DEBUG_MODE THEN
472: pa_cc_utils.log_message('PA_CC_IDENTIFY_TXN: ' || '20.10: Calling the procedure to determine the orgs');
473: END IF;
468:
469: pa_cc_utils.set_curr_function('PA_CC_IDENTIFY_TXN');
470:
471: IF P_DEBUG_MODE THEN
472: pa_cc_utils.log_message('PA_CC_IDENTIFY_TXN: ' || '20.10: Calling the procedure to determine the orgs');
473: END IF;
474:
475: PA_CC_IDENT.PA_CC_GET_PRVDR_RECVR_ORGS (
476: P_ExpOrganizationIdTab => P_ExpOrganizationIdTab,
500: -- This procedure is called for determining the cross charge code.
501: --
502:
503: IF P_DEBUG_MODE THEN
504: pa_cc_utils.log_message('PA_CC_IDENTIFY_TXN: ' || '20.20: Calling the procedure to determine the cross charge code and type');
505: END IF;
506:
507: PA_CC_IDENT.PA_CC_GET_CROSS_CHARGE_TYPE (
508: P_PrvdrOrganizationIdTab => X_PrvdrOrganizationIdTab,
528: X_CrossChargeCodeTab => X_CrossChargeCodeTab,
529: X_Error_Stage => X_Error_Stage,
530: X_Error_Code => X_Error_Code);
531:
532: pa_cc_utils.reset_curr_function;
533:
534: EXCEPTION
535:
536: WHEN OTHERS THEN
594:
595: l_MinRecs := P_SysLinkTab.FIRST;
596: l_MaxRecs := P_SysLinkTab.LAST;
597:
598: pa_cc_utils.set_curr_function('PA_CC_GET_PRVDR_RECVR_ORGS');
599:
600: --
601: -- Determine Current Operating Unit
602: --
606: -- to the procedure except Transaction Import.
607: --
608:
609: IF P_DEBUG_MODE THEN
610: pa_cc_utils.log_message('PA_CC_GET_PRVDR_RECVR_ORGS: ' || '20.10.10: Determine the Expenditure OU and its cross charge options');
611: print_message('G_PrevCCProcessIOCode=' ||G_PrevCCProcessIOCode);
612: print_message('l_current_org_id=' ||l_current_org_id);
613: print_message('l_current_process_io_code=' ||l_current_process_io_code);
614: print_message('l_current_process_iu_code=' ||l_current_process_iu_code);
662: -- by this PL/SQL able then do not process CC identification for that
663: -- expenditure item
664:
665: IF P_DEBUG_MODE THEN
666: pa_cc_utils.log_message('PA_CC_GET_PRVDR_RECVR_ORGS: ' || '20.10.20: This expenditure item is already erroneous and needs no CC identification');
667: END IF;
668: NULL ;
669:
670: ELSE
673: --
674: l_project_org_id := NULL ;
675:
676: IF P_DEBUG_MODE THEN
677: pa_cc_utils.log_message('PA_CC_GET_PRVDR_RECVR_ORGS: ' || '20.10.30: Determine Provider Organization');
678: END IF;
679:
680: -- Determine Provider Organization
681: --
689: -- will be the non-labor resource organization of the resource. So if
690:
691: X_Error_Stage := 'Checking if NLR organization id is NULL for usages';
692: IF P_DEBUG_MODE THEN
693: pa_cc_utils.log_message('PA_CC_GET_PRVDR_RECVR_ORGS: ' || '20.10.40: Checking if NLR organization id is NULL for usages');
694: END IF;
695: IF P_NLROrganizationIdTab(j) IS NULL THEN
696: -- So if non-labor resource organization is not provided then an error
697: -- code is returned.
696: -- So if non-labor resource organization is not provided then an error
697: -- code is returned.
698:
699: IF P_DEBUG_MODE THEN
700: pa_cc_utils.log_message('PA_CC_GET_PRVDR_RECVR_ORGS: ' || '20.10.50: Setting the error code for null NLR organization Id');
701: END IF;
702: X_Error_Stage := 'Setting the error code for null NLR organization Id';
703: X_StatusTab(j) := 'PA_CC_NO_NL_ORG_FOR_USG';
704: ELSE
704: ELSE
705: -- Return non-labor resource organization as the provider organization.
706:
707: IF P_DEBUG_MODE THEN
708: pa_cc_utils.log_message('PA_CC_GET_PRVDR_RECVR_ORGS: ' || '20.10.60: Returning the NLR organization Id');
709: END IF;
710: X_Error_Stage := 'Returning the NLR organization Id';
711: l_Prvdr_Organization_Id := P_NLROrganizationIdTab(j);
712: END IF;
715: -- Else the provider organization is the expenditure organization. Return
716: -- expenditure organization as provider organization.
717:
718: IF P_DEBUG_MODE THEN
719: pa_cc_utils.log_message('PA_CC_GET_PRVDR_RECVR_ORGS: ' || '20.10.70: Returning the expenditure organization id');
720: END IF;
721: X_Error_Stage := 'Returning the expenditure organization id';
722: l_Prvdr_Organization_Id := P_ExpOrganizationIdTab(j);
723: END IF;
728: -- Receiver Organization is the organization that owns the task
729: -- ( Carrying_Out_Organization_Id). In this select we also
730:
731: IF P_DEBUG_MODE THEN
732: pa_cc_utils.log_message('PA_CC_GET_PRVDR_RECVR_ORGS: ' || '20.10.80: Checking if current task id is the same as the previous task id');
733: END IF;
734: X_Error_Stage := 'Checking if project OU is NULL';
735: IF l_PrevTaskId = P_TaskIdTab(j) THEN
736: -- If the current task id is the same as the previous task id then
737: -- the receiver organization and receiver operating unit will be
738: -- the same as previous one
739:
740: IF P_DEBUG_MODE THEN
741: pa_cc_utils.log_message('PA_CC_GET_PRVDR_RECVR_ORGS: ' || '20.10.90: current task id is the same as the previous task id');
742: END IF;
743: l_Recvr_Organization_Id := l_PrevRecvrOrganizationId ;
744: l_project_org_id := l_PrevRecvrOrgId ;
745: l_cc_prj_process_flag := l_PrevCCPrjFlag ;
761: -- then we do not need to join to the projects table to get the project
762: -- org id which is the receiver OU.
763: --
764: IF P_DEBUG_MODE THEN
765: pa_cc_utils.log_message('PA_CC_GET_PRVDR_RECVR_ORGS: ' || '20.10.100: If current project id is the same as the previous project id do not join to projects table');
766: END IF;
767:
768: If (G_PrevTaskId = P_TaskIdTab(j) and G_PrevSysLink = P_SysLinkTab(j)) Then
769:
798: -- org id also.
799: --
800:
801: IF P_DEBUG_MODE THEN
802: pa_cc_utils.log_message('PA_CC_GET_PRVDR_RECVR_ORGS: ' || '20.10.110: If current project id is not the same as the previous project id join to projects table to get org_id');
803: END IF;
804:
805: BEGIN -- 2650361
806:
821: /* Adding exception handling for 2650361 */
822: EXCEPTION
823: WHEN NO_DATA_FOUND THEN
824: IF P_DEBUG_MODE THEN
825: pa_cc_utils.log_message('PA_CC_GET_PRVDR_RECVR_ORGS: ' || '20.10.115: Setting the rejection code to INV_DATA when no data found');
826: END IF;
827: UPDATE pa_expenditure_items_all
828: SET cost_dist_rejection_code = 'INV_DATA'
829: WHERE task_id = P_TaskIdTab(j)
852: -- The Operating Unit in which the Expenditure is charged. In this case it is the
853: -- same as p_expenditure_org_id.
854:
855: IF P_DEBUG_MODE THEN
856: pa_cc_utils.log_message('PA_CC_GET_PRVDR_RECVR_ORGS: ' || '20.10.120: Determine the cross charge process codes in implementations');
857: END IF;
858: X_Error_Stage := 'Determine the cross charge process codes in implementations';
859:
860: --
872: -- unit then we can use the same implementation options as that of the
873: -- previous one
874: --
875: IF P_DEBUG_MODE THEN
876: pa_cc_utils.log_message('PA_CC_GET_PRVDR_RECVR_ORGS: ' || '20.10.130: If expenditure OUs are not changed use previous values');
877: END IF;
878:
879: l_cc_process_io_code := l_PrevCCProcessIOCode ;
880: l_cc_process_iu_code := l_PrevCCProcessIUCode ;
891: -- procedure.
892: --
893:
894: IF P_DEBUG_MODE THEN
895: pa_cc_utils.log_message('PA_CC_GET_PRVDR_RECVR_ORGS: ' || '20.10.140: Expenditure OU is the same as current OU ');
896: END IF;
897: l_cc_process_io_code := l_current_process_io_code ;
898: l_cc_process_iu_code := l_current_process_iu_code ;
899:
898: l_cc_process_iu_code := l_current_process_iu_code ;
899:
900: ELSE
901: IF P_DEBUG_MODE THEN
902: pa_cc_utils.log_message('PA_CC_GET_PRVDR_RECVR_ORGS: ' || '20.10.150: Determine cross charge codes of current Expenditure OU');
903: END IF;
904:
905: SELECT nvl(imp.cc_process_io_code,'N'),
906: nvl(imp.cc_process_iu_code,'N')
927: --
928: --
929:
930: IF P_DEBUG_MODE THEN
931: pa_cc_utils.log_message('PA_CC_GET_PRVDR_RECVR_ORGS: ' || '20.10.160: Determine Receiver Operating Unit');
932: END IF;
933:
934: X_Error_Stage := 'Assigning the project OU as provider OU';
935: X_PrvdrOrganizationIdTab(j) := l_Prvdr_Organization_Id ;
939: X_RecvrOrgIdTab(j) := NVL( P_PrjOrgIdTab(j), l_project_org_id);
940: X_CCPrjFlagTab(j) := l_cc_prj_process_flag;
941:
942: IF P_DEBUG_MODE THEN
943: pa_cc_utils.log_message('PA_CC_GET_PRVDR_RECVR_ORGS: ' || '20.10.170: Calling the client extension PA_CC_IDENT_CLIENT_EXTN.OVERRIDE_PRVDR_RECVR');
944: END IF;
945:
946: PA_CC_IDENT_CLIENT_EXTN.OVERRIDE_PRVDR_RECVR (
947: P_PrvdrOrganizationId => X_PrvdrOrganizationIdTab(j),
961:
962: END IF;
963:
964: IF P_DEBUG_MODE THEN
965: pa_cc_utils.log_message('PA_CC_GET_PRVDR_RECVR_ORGS: ' || '20.10.180: After determining the orgs for this transaction');
966: print_message('Exiting..l_cc_process_io_code=' ||l_cc_process_io_code);
967: print_message('l_cc_process_iu_code=' ||l_cc_process_iu_code);
968: END IF;
969: END LOOP;
968: END IF;
969: END LOOP;
970:
971: IF P_DEBUG_MODE THEN
972: pa_cc_utils.log_message('PA_CC_GET_PRVDR_RECVR_ORGS: ' || '20.10.180: After determining the orgs for the bulk of transactions');
973: END IF;
974:
975: pa_cc_utils.reset_curr_function;
976:
971: IF P_DEBUG_MODE THEN
972: pa_cc_utils.log_message('PA_CC_GET_PRVDR_RECVR_ORGS: ' || '20.10.180: After determining the orgs for the bulk of transactions');
973: END IF;
974:
975: pa_cc_utils.reset_curr_function;
976:
977: EXCEPTION
978:
979: WHEN OTHERS THEN
1060: Else
1061: l_calling_module := P_calling_mode;
1062: End if;
1063:
1064: pa_cc_utils.set_curr_function('PA_CC_GET_CROSS_CHARGE_TYPE');
1065:
1066: l_MinRecs := P_SysLinkTab.FIRST;
1067: l_MaxRecs := P_SysLinkTab.LAST;
1068:
1066: l_MinRecs := P_SysLinkTab.FIRST;
1067: l_MaxRecs := P_SysLinkTab.LAST;
1068:
1069: IF P_DEBUG_MODE THEN
1070: pa_cc_utils.log_message('PA_CC_GET_CROSS_CHARGE_TYPE: ' || '20.20.10: Determine cross charge code and type');
1071: END IF;
1072:
1073: FOR j IN l_MinRecs..l_MaxRecs
1074: LOOP
1077: -- by this PL/SQL able then do not process CC identification for that
1078: -- expenditure item
1079:
1080: IF P_DEBUG_MODE THEN
1081: pa_cc_utils.log_message('PA_CC_GET_CROSS_CHARGE_TYPE: ' || '20.20.20: Since expenditure item is already erroneous no CC identification is necessary');
1082: END IF;
1083: NULL ;
1084:
1085: ELSE
1089: -- organizations check if the transaction requires cc processing.
1090: --
1091:
1092: IF P_DEBUG_MODE THEN
1093: pa_cc_utils.log_message('PA_CC_GET_CROSS_CHARGE_TYPE: ' || '20.20.30: Check for never cross charged');
1094: END IF;
1095:
1096: IF ( ( P_PrvdrOrganizationIdTab(j) = P_RecvrOrganizationIdTab(j) AND
1097: nvl(P_RecvrOrgIdTab(j), -99) = nvl(P_PrvdrOrgIdTab(j), -99)) OR
1097: nvl(P_RecvrOrgIdTab(j), -99) = nvl(P_PrvdrOrgIdTab(j), -99)) OR
1098: P_SysLinkTab(j) = 'BTC' ) THEN
1099:
1100: IF P_DEBUG_MODE THEN
1101: pa_cc_utils.log_message('PA_CC_GET_CROSS_CHARGE_TYPE: ' || '20.20.40: Same provider and receiver org and same provider and receiver OU or a BTC');
1102: END IF;
1103: --
1104: -- If provider organization is the same as the receiver organization
1105: -- and provider OU is the same as the receiver OU then the transaction
1115:
1116: ELSIF P_RecvrOrgIdTab(j) IS NULL THEN
1117:
1118: IF P_DEBUG_MODE THEN
1119: pa_cc_utils.log_message('PA_CC_GET_CROSS_CHARGE_TYPE: ' || '20.20.50: Single org implementation, cross charge code is IO code at the implementation .');
1120: END IF;
1121:
1122: l_cross_charge_code := P_CCProcessIOCodeTab(j) ;
1123: l_cross_charge_type := 'NO' ;
1130: -- Determine the cross charge type
1131: --
1132:
1133: IF P_DEBUG_MODE THEN
1134: pa_cc_utils.log_message('PA_CC_GET_CROSS_CHARGE_TYPE: ' || '20.20.60: Determine the cross charge type');
1135: END IF;
1136:
1137: IF P_PrvdrLEIdTab(j) = l_PrevPrvdrLEId AND
1138: P_RecvrLEIdTab(j) = l_PrevRecvrLEId AND
1145: -- entity is the same as the previous receiver legal entity then
1146: -- use the same cross charge code as that of the previous one
1147: --
1148: IF P_DEBUG_MODE THEN
1149: pa_cc_utils.log_message('PA_CC_GET_CROSS_CHARGE_TYPE: ' || '20.20.70: If parameters for determining cross charge type is same as previous ones, use the same cross charge type');
1150: END IF;
1151:
1152: l_cross_charge_type := l_PrevCrossChargeType;
1153:
1155: --
1156: -- Get the value of the provider legal entity
1157: --
1158: IF P_DEBUG_MODE THEN
1159: pa_cc_utils.log_message('PA_CC_GET_CROSS_CHARGE_TYPE: ' || '20.20.80: Determining provider legal entity');
1160: END IF;
1161:
1162: IF P_PrvdrLEIdTab(j) IS NULL THEN
1163: --
1208: --
1209: -- Get the value of the receiver legal entity
1210: --
1211: IF P_DEBUG_MODE THEN
1212: pa_cc_utils.log_message('PA_CC_GET_CROSS_CHARGE_TYPE: ' || '20.20.90: Determining receiver legal entity');
1213: END IF;
1214:
1215: IF P_RecvrLEIdTab(j) IS NULL THEN
1216: --
1275: --
1276:
1277:
1278: IF P_DEBUG_MODE THEN
1279: pa_cc_utils.log_message('PA_CC_GET_CROSS_CHARGE_TYPE: ' || '20.20.100: Check if project is cross chargeable');
1280: END IF;
1281:
1282: IF P_CCPrjFlagTab(j) = 'N' THEN
1283: --
1292:
1293: ELSE
1294:
1295: IF P_DEBUG_MODE THEN
1296: pa_cc_utils.log_message('PA_CC_GET_CROSS_CHARGE_TYPE: ' || '20.20.110: Check if transaction source is cross chargeable');
1297: END IF;
1298:
1299: IF P_TransSourceTab(j) IS NOT NULL THEN
1300: --
1304: -- i.e. if the transaction source element is NULL.
1305: --
1306:
1307: IF P_DEBUG_MODE THEN
1308: pa_cc_utils.log_message('PA_CC_GET_CROSS_CHARGE_TYPE: ' || '20.20.120: Check if transaction source is same as previous one');
1309: END IF;
1310:
1311: IF P_TransSourceTab(j) = l_PrevTransSource THEN
1312: --
1323: -- If the transaction source is different then get the value of
1324: -- cross charge process flag for the current transaction source.
1325: --
1326: IF P_DEBUG_MODE THEN
1327: pa_cc_utils.log_message('PA_CC_GET_CROSS_CHARGE_TYPE: ' || '20.20.130: Get the cc process flag for current transaction source');
1328: END IF;
1329:
1330: SELECT t.cc_process_flag
1331: INTO l_cc_tr_src_process_flag
1348: -- checks.
1349: --
1350:
1351: IF P_DEBUG_MODE THEN
1352: pa_cc_utils.log_message('PA_CC_GET_CROSS_CHARGE_TYPE: ' || '20.20.140: Setting l_cross_charge_code to N if transaction source is not CC');
1353: END IF;
1354: l_cross_charge_code := 'N' ;
1355:
1356: ELSE
1355:
1356: ELSE
1357:
1358: IF P_DEBUG_MODE THEN
1359: pa_cc_utils.log_message('PA_CC_GET_CROSS_CHARGE_TYPE: ' || '20.20.150: Check if provider OU is same as receiver OU');
1360: END IF;
1361:
1362: IF P_PrvdrOrgIdTab(j) = P_RecvrOrgIdTab(j) THEN
1363: --
1368: -- OU.
1369: --
1370:
1371: IF P_DEBUG_MODE THEN
1372: pa_cc_utils.log_message('PA_CC_GET_CROSS_CHARGE_TYPE: ' || '20.20.160: If provider OU is same as receiver OU assign cc code of implementation option');
1373: END IF;
1374:
1375: l_cross_charge_code := P_CCProcessIOCodeTab(j) ;
1376:
1380: -- for that combination of provider ou and receiver OU. If there is
1381: -- any record then the cross charge code on that record is used.
1382:
1383: IF P_DEBUG_MODE THEN
1384: pa_cc_utils.log_message('PA_CC_GET_CROSS_CHARGE_TYPE: ' || '20.20.170: For different provider and receiver ous check if any controls exist');
1385: END IF;
1386: OPEN GetCCOrgRel(P_PrvdrOrgIdTab(j),
1387: P_RecvrOrgIdTab(j));
1388: FETCH GetCCOrgRel
1406: -- then the value then check in the implementations option of the
1407: -- provider operating unit.
1408: --
1409: IF P_DEBUG_MODE THEN
1410: pa_cc_utils.log_message('PA_CC_GET_CROSS_CHARGE_TYPE: ' || '20.20.180: If there are no controls, then check cross charge type');
1411: END IF;
1412:
1413: IF l_cross_charge_type = 'IU' THEN
1414: --
1422:
1423: l_cross_charge_code := P_CCProcessIUCodeTab(j) ;
1424:
1425: IF P_DEBUG_MODE THEN
1426: pa_cc_utils.log_message('PA_CC_GET_CROSS_CHARGE_TYPE: ' || '20.20.190: For IU CC type set the CC code as the IU code in the implementation options');
1427: END IF;
1428:
1429: ELSE
1430:
1433: -- no processing method defined in cross charge org relationships entity.
1434: -- So we cannot process cross charge for this item.
1435:
1436: IF P_DEBUG_MODE THEN
1437: pa_cc_utils.log_message('PA_CC_GET_CROSS_CHARGE_TYPE: ' || '20.20.200: This scenario exists when CC type is IU and not controls exist');
1438: END IF;
1439: l_cross_charge_code := 'N' ;
1440:
1441: END IF; -- End Section : No entry in CC Org relationships entity.
1463:
1464: IF P_DEBUG_MODE THEN
1465: print_message('l_cross_charge_code=' ||l_cross_charge_code);
1466: print_message('l_cross_charge_type=' ||l_cross_charge_type);
1467: pa_cc_utils.log_message('PA_CC_GET_CROSS_CHARGE_TYPE: ' || '20.20.210: Calling client extension');
1468: END IF;
1469: --
1470: -- Call client extension
1471: --
1494: -- After Client extension
1495: --
1496:
1497: IF P_DEBUG_MODE THEN
1498: pa_cc_utils.log_message('PA_CC_GET_CROSS_CHARGE_TYPE: ' || '20.20.220: Validating the overriden CC code');
1499: END IF;
1500: IF l_OvrridCrossChargeCodeTab(j) = X_CrossChargeCodeTab(j) THEN
1501:
1502: NULL ;
1503: ELSE
1504: IF l_OvrridCrossChargeCodeTab(j) = 'I' THEN
1505:
1506: IF P_DEBUG_MODE THEN
1507: pa_cc_utils.log_message('PA_CC_GET_CROSS_CHARGE_TYPE: ' || '20.20.230: If the overriden CC code is I the check for validity');
1508: END IF;
1509: IF X_CrossChargeTypeTab(j) = 'IO' THEN
1510:
1511: IF P_DEBUG_MODE THEN
1508: END IF;
1509: IF X_CrossChargeTypeTab(j) = 'IO' THEN
1510:
1511: IF P_DEBUG_MODE THEN
1512: pa_cc_utils.log_message('PA_CC_GET_CROSS_CHARGE_TYPE: ' || '20.20.240: If CC type is IO then the overriden code is invalid');
1513: END IF;
1514:
1515: X_StatusTab(j) := 'PA_CC_CODE_TYPE_INVALID';
1516: X_CrossChargeCodeTab(j) := NULL;
1515: X_StatusTab(j) := 'PA_CC_CODE_TYPE_INVALID';
1516: X_CrossChargeCodeTab(j) := NULL;
1517: ELSE
1518: IF P_DEBUG_MODE THEN
1519: pa_cc_utils.log_message('PA_CC_GET_CROSS_CHARGE_TYPE: ' || '20.20.250: If CC type is IU the check for valid controls ');
1520: END IF;
1521: OPEN GetCCOrgRel(P_PrvdrOrgIdTab(j), P_RecvrOrgIdTab(j));
1522: FETCH GetCCOrgRel
1523: INTO l_cross_charge_code,
1537: END IF ;
1538: ELSIF l_OvrridCrossChargeCodeTab(j) = 'B' THEN
1539:
1540: IF P_DEBUG_MODE THEN
1541: pa_cc_utils.log_message('PA_CC_GET_CROSS_CHARGE_TYPE: ' || '20.20.260: If the overriden CC code is B the check for validity');
1542: END IF;
1543: IF X_CrossChargeTypeTab(j) = 'IC' THEN
1544:
1545: IF P_DEBUG_MODE THEN
1542: END IF;
1543: IF X_CrossChargeTypeTab(j) = 'IC' THEN
1544:
1545: IF P_DEBUG_MODE THEN
1546: pa_cc_utils.log_message('PA_CC_GET_CROSS_CHARGE_TYPE: ' || '20.20.240: If CC type is IC then the overriden code is invalid');
1547: END IF;
1548: X_StatusTab(j) := 'PA_CC_CODE_TYPE_INVALID';
1549: X_CrossChargeCodeTab(j) := NULL;
1550: ELSE
1560: END IF;
1561: END IF;
1562:
1563: IF P_DEBUG_MODE THEN
1564: pa_cc_utils.log_message('PA_CC_GET_CROSS_CHARGE_TYPE: ' || '20.20.250: End of determination of CC code and Type for this transaction');
1565: END IF;
1566: END LOOP ;
1567:
1568: IF P_DEBUG_MODE THEN
1565: END IF;
1566: END LOOP ;
1567:
1568: IF P_DEBUG_MODE THEN
1569: pa_cc_utils.log_message('PA_CC_GET_CROSS_CHARGE_TYPE: ' || '20.20.260: End of CC code and type determination for the bulk of transactions');
1570: print_message('Exiting afetr checking client extn l_cross_charge_code=' ||l_cross_charge_code);
1571: print_message('l_cross_charge_type=' ||l_cross_charge_type);
1572: END IF;
1573:
1570: print_message('Exiting afetr checking client extn l_cross_charge_code=' ||l_cross_charge_code);
1571: print_message('l_cross_charge_type=' ||l_cross_charge_type);
1572: END IF;
1573:
1574: pa_cc_utils.reset_curr_function;
1575:
1576: EXCEPTION
1577: WHEN OTHERS THEN
1578: RAISE;