65:
66: ------------------------------------------------------------------------------------------
67: PROCEDURE setReturnCode(retcode IN NUMBER, errbuf IN VARCHAR2) IS
68: BEGIN
69: IF(retcode > CZ_ORAAPPS_INTEGRATE.mRETCODE)THEN
70:
71: CZ_ORAAPPS_INTEGRATE.mRETCODE := retcode;
72: CZ_ORAAPPS_INTEGRATE.mERRBUF := errbuf;
73: END IF;
67: PROCEDURE setReturnCode(retcode IN NUMBER, errbuf IN VARCHAR2) IS
68: BEGIN
69: IF(retcode > CZ_ORAAPPS_INTEGRATE.mRETCODE)THEN
70:
71: CZ_ORAAPPS_INTEGRATE.mRETCODE := retcode;
72: CZ_ORAAPPS_INTEGRATE.mERRBUF := errbuf;
73: END IF;
74: END setReturnCode;
75: ------------------------------------------------------------------------------------------
68: BEGIN
69: IF(retcode > CZ_ORAAPPS_INTEGRATE.mRETCODE)THEN
70:
71: CZ_ORAAPPS_INTEGRATE.mRETCODE := retcode;
72: CZ_ORAAPPS_INTEGRATE.mERRBUF := errbuf;
73: END IF;
74: END setReturnCode;
75: ------------------------------------------------------------------------------------------
76: PROCEDURE goSingleBill_cp
83: l_run_id NUMBER;
84:
85: BEGIN
86:
87: CZ_ORAAPPS_INTEGRATE.mERRBUF := '';
88: CZ_ORAAPPS_INTEGRATE.mRETCODE := 0;
89:
90: /* Log a message if the bill being imported (not refreshed) refers to a common bill */
91: IF (REFRESH_MODEL_ID = -1) THEN
84:
85: BEGIN
86:
87: CZ_ORAAPPS_INTEGRATE.mERRBUF := '';
88: CZ_ORAAPPS_INTEGRATE.mRETCODE := 0;
89:
90: /* Log a message if the bill being imported (not refreshed) refers to a common bill */
91: IF (REFRESH_MODEL_ID = -1) THEN
92: check_for_common_bill(errbuf,retcode,nORG_ID,nTOP_ID);
92: check_for_common_bill(errbuf,retcode,nORG_ID,nTOP_ID);
93: END IF;
94: goSingleBill(nORG_ID,nTOP_ID,COPY_CHILD_MODELS,REFRESH_MODEL_ID, '0', l_run_id);
95:
96: errbuf := CZ_ORAAPPS_INTEGRATE.mERRBUF;
97: retcode := CZ_ORAAPPS_INTEGRATE.mRETCODE;
98:
99: EXCEPTION
100: WHEN CZ_ADMIN.IMP_ACTIVE_SESSION_EXISTS THEN
93: END IF;
94: goSingleBill(nORG_ID,nTOP_ID,COPY_CHILD_MODELS,REFRESH_MODEL_ID, '0', l_run_id);
95:
96: errbuf := CZ_ORAAPPS_INTEGRATE.mERRBUF;
97: retcode := CZ_ORAAPPS_INTEGRATE.mRETCODE;
98:
99: EXCEPTION
100: WHEN CZ_ADMIN.IMP_ACTIVE_SESSION_EXISTS THEN
101: retcode:=2;
875: v_copy_child_models CHAR(1);
876: l_run_id NUMBER; -- sselahi: added to pass to call goSingleBill
877: BEGIN
878:
879: CZ_ORAAPPS_INTEGRATE.mERRBUF := '';
880: CZ_ORAAPPS_INTEGRATE.mRETCODE := 0;
881:
882: SELECT DECODE(COPY_CHILD_MODELS,'Y','0','N','1','YES','0','NO','1','TRUE','0','FALSE','1','T','0','F','1','1','1','0') into v_copy_child_models from dual;
883:
876: l_run_id NUMBER; -- sselahi: added to pass to call goSingleBill
877: BEGIN
878:
879: CZ_ORAAPPS_INTEGRATE.mERRBUF := '';
880: CZ_ORAAPPS_INTEGRATE.mRETCODE := 0;
881:
882: SELECT DECODE(COPY_CHILD_MODELS,'Y','0','N','1','YES','0','NO','1','TRUE','0','FALSE','1','T','0','F','1','1','1','0') into v_copy_child_models from dual;
883:
884: SELECT ORGANIZATION_ID INTO nOrg_ID FROM CZ_EXV_ORGANIZATIONS
892: /* Log a message if the bill being imported (not refreshed) refers to a common bill */
893: check_for_common_bill(errbuf,retcode,nORG_ID,nTOP_ID);
894: goSingleBill(nOrg_ID,nTop_ID,v_COPY_CHILD_MODELS,-1, '0',l_run_id); -- sselahi: added l_run_id
895:
896: IF(CZ_ORAAPPS_INTEGRATE.mRETCODE = 2)THEN
897: errbuf := CZ_ORAAPPS_INTEGRATE.mERRBUF;
898: retcode := CZ_ORAAPPS_INTEGRATE.mRETCODE;
899: RETURN;
900: END IF;
893: check_for_common_bill(errbuf,retcode,nORG_ID,nTOP_ID);
894: goSingleBill(nOrg_ID,nTop_ID,v_COPY_CHILD_MODELS,-1, '0',l_run_id); -- sselahi: added l_run_id
895:
896: IF(CZ_ORAAPPS_INTEGRATE.mRETCODE = 2)THEN
897: errbuf := CZ_ORAAPPS_INTEGRATE.mERRBUF;
898: retcode := CZ_ORAAPPS_INTEGRATE.mRETCODE;
899: RETURN;
900: END IF;
901:
894: goSingleBill(nOrg_ID,nTop_ID,v_COPY_CHILD_MODELS,-1, '0',l_run_id); -- sselahi: added l_run_id
895:
896: IF(CZ_ORAAPPS_INTEGRATE.mRETCODE = 2)THEN
897: errbuf := CZ_ORAAPPS_INTEGRATE.mERRBUF;
898: retcode := CZ_ORAAPPS_INTEGRATE.mRETCODE;
899: RETURN;
900: END IF;
901:
902: END LOOP;
902: END LOOP;
903: CLOSE C_GETMODELS;
904: COMMIT;
905:
906: errbuf := CZ_ORAAPPS_INTEGRATE.mERRBUF;
907: retcode := CZ_ORAAPPS_INTEGRATE.mRETCODE;
908:
909: EXCEPTION
910: WHEN CZ_ADMIN.IMP_UNEXP_SQL_ERROR THEN
903: CLOSE C_GETMODELS;
904: COMMIT;
905:
906: errbuf := CZ_ORAAPPS_INTEGRATE.mERRBUF;
907: retcode := CZ_ORAAPPS_INTEGRATE.mRETCODE;
908:
909: EXCEPTION
910: WHEN CZ_ADMIN.IMP_UNEXP_SQL_ERROR THEN
911: RAISE;
946: v_copy_child_models CHAR(1);
947: l_run_id NUMBER; -- sselahi: added to pass to call goSingleBill
948: BEGIN
949:
950: CZ_ORAAPPS_INTEGRATE.mERRBUF := '';
951: CZ_ORAAPPS_INTEGRATE.mRETCODE := 0;
952:
953: SELECT DECODE(COPY_CHILD_MODELS,'Y','0','N','1','YES','0','NO','1','TRUE','0','FALSE','1','T','0','F','1','1','1','0') into v_copy_child_models from dual;
954:
947: l_run_id NUMBER; -- sselahi: added to pass to call goSingleBill
948: BEGIN
949:
950: CZ_ORAAPPS_INTEGRATE.mERRBUF := '';
951: CZ_ORAAPPS_INTEGRATE.mRETCODE := 0;
952:
953: SELECT DECODE(COPY_CHILD_MODELS,'Y','0','N','1','YES','0','NO','1','TRUE','0','FALSE','1','T','0','F','1','1','1','0') into v_copy_child_models from dual;
954:
955: SELECT ORGANIZATION_ID INTO nOrg_ID FROM CZ_EXV_ORGANIZATIONS
963: /* Log a message if the bill being imported (not refreshed) refers to a common bill */
964: check_for_common_bill(errbuf,retcode,nORG_ID,nTOP_ID);
965: goSingleBill(nOrg_ID,nTop_ID,v_COPY_CHILD_MODELS,-1, '0',l_run_id); -- sselahi: added l_run_id
966:
967: IF(CZ_ORAAPPS_INTEGRATE.mRETCODE = 2)THEN
968: errbuf := CZ_ORAAPPS_INTEGRATE.mERRBUF;
969: retcode := CZ_ORAAPPS_INTEGRATE.mRETCODE;
970: RETURN;
971: END IF;
964: check_for_common_bill(errbuf,retcode,nORG_ID,nTOP_ID);
965: goSingleBill(nOrg_ID,nTop_ID,v_COPY_CHILD_MODELS,-1, '0',l_run_id); -- sselahi: added l_run_id
966:
967: IF(CZ_ORAAPPS_INTEGRATE.mRETCODE = 2)THEN
968: errbuf := CZ_ORAAPPS_INTEGRATE.mERRBUF;
969: retcode := CZ_ORAAPPS_INTEGRATE.mRETCODE;
970: RETURN;
971: END IF;
972:
965: goSingleBill(nOrg_ID,nTop_ID,v_COPY_CHILD_MODELS,-1, '0',l_run_id); -- sselahi: added l_run_id
966:
967: IF(CZ_ORAAPPS_INTEGRATE.mRETCODE = 2)THEN
968: errbuf := CZ_ORAAPPS_INTEGRATE.mERRBUF;
969: retcode := CZ_ORAAPPS_INTEGRATE.mRETCODE;
970: RETURN;
971: END IF;
972:
973: END LOOP;
973: END LOOP;
974: CLOSE C_GETMODELS;
975: COMMIT;
976:
977: errbuf := CZ_ORAAPPS_INTEGRATE.mERRBUF;
978: retcode := CZ_ORAAPPS_INTEGRATE.mRETCODE;
979:
980: EXCEPTION
981: WHEN CZ_ADMIN.IMP_UNEXP_SQL_ERROR THEN
974: CLOSE C_GETMODELS;
975: COMMIT;
976:
977: errbuf := CZ_ORAAPPS_INTEGRATE.mERRBUF;
978: retcode := CZ_ORAAPPS_INTEGRATE.mRETCODE;
979:
980: EXCEPTION
981: WHEN CZ_ADMIN.IMP_UNEXP_SQL_ERROR THEN
982: RAISE;
999: ------------------------------------------------------------------------------------------
1000:
1001: PROCEDURE RefreshModels(errbuf OUT NOCOPY VARCHAR2,retcode OUT NOCOPY NUMBER) IS
1002: BEGIN
1003: CZ_ORAAPPS_INTEGRATE.go_cp(errbuf, retcode);
1004: END;
1005: ------------------------------------------------------------------------------------------
1006: PROCEDURE setRunID(inRun_ID IN PLS_INTEGER,table_name IN VARCHAR2) IS
1007: DC_CURSOR INTEGER;