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;
872: v_copy_child_models CHAR(1);
873: l_run_id NUMBER; -- sselahi: added to pass to call goSingleBill
874: BEGIN
875:
876: CZ_ORAAPPS_INTEGRATE.mERRBUF := '';
877: CZ_ORAAPPS_INTEGRATE.mRETCODE := 0;
878:
879: 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;
880:
873: l_run_id NUMBER; -- sselahi: added to pass to call goSingleBill
874: BEGIN
875:
876: CZ_ORAAPPS_INTEGRATE.mERRBUF := '';
877: CZ_ORAAPPS_INTEGRATE.mRETCODE := 0;
878:
879: 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;
880:
881: SELECT ORGANIZATION_ID INTO nOrg_ID FROM CZ_EXV_ORGANIZATIONS
889: /* Log a message if the bill being imported (not refreshed) refers to a common bill */
890: check_for_common_bill(errbuf,retcode,nORG_ID,nTOP_ID);
891: goSingleBill(nOrg_ID,nTop_ID,v_COPY_CHILD_MODELS,-1, '0',l_run_id); -- sselahi: added l_run_id
892:
893: IF(CZ_ORAAPPS_INTEGRATE.mRETCODE = 2)THEN
894: errbuf := CZ_ORAAPPS_INTEGRATE.mERRBUF;
895: retcode := CZ_ORAAPPS_INTEGRATE.mRETCODE;
896: RETURN;
897: END IF;
890: check_for_common_bill(errbuf,retcode,nORG_ID,nTOP_ID);
891: goSingleBill(nOrg_ID,nTop_ID,v_COPY_CHILD_MODELS,-1, '0',l_run_id); -- sselahi: added l_run_id
892:
893: IF(CZ_ORAAPPS_INTEGRATE.mRETCODE = 2)THEN
894: errbuf := CZ_ORAAPPS_INTEGRATE.mERRBUF;
895: retcode := CZ_ORAAPPS_INTEGRATE.mRETCODE;
896: RETURN;
897: END IF;
898:
891: goSingleBill(nOrg_ID,nTop_ID,v_COPY_CHILD_MODELS,-1, '0',l_run_id); -- sselahi: added l_run_id
892:
893: IF(CZ_ORAAPPS_INTEGRATE.mRETCODE = 2)THEN
894: errbuf := CZ_ORAAPPS_INTEGRATE.mERRBUF;
895: retcode := CZ_ORAAPPS_INTEGRATE.mRETCODE;
896: RETURN;
897: END IF;
898:
899: END LOOP;
899: END LOOP;
900: CLOSE C_GETMODELS;
901: COMMIT;
902:
903: errbuf := CZ_ORAAPPS_INTEGRATE.mERRBUF;
904: retcode := CZ_ORAAPPS_INTEGRATE.mRETCODE;
905:
906: EXCEPTION
907: WHEN CZ_ADMIN.IMP_UNEXP_SQL_ERROR THEN
900: CLOSE C_GETMODELS;
901: COMMIT;
902:
903: errbuf := CZ_ORAAPPS_INTEGRATE.mERRBUF;
904: retcode := CZ_ORAAPPS_INTEGRATE.mRETCODE;
905:
906: EXCEPTION
907: WHEN CZ_ADMIN.IMP_UNEXP_SQL_ERROR THEN
908: RAISE;
924: END;
925: ------------------------------------------------------------------------------------------
926: PROCEDURE RefreshModels(errbuf OUT NOCOPY VARCHAR2,retcode OUT NOCOPY NUMBER) IS
927: BEGIN
928: CZ_ORAAPPS_INTEGRATE.go_cp(errbuf, retcode);
929: END;
930: ------------------------------------------------------------------------------------------
931: PROCEDURE setRunID(inRun_ID IN PLS_INTEGER,table_name IN VARCHAR2) IS
932: DC_CURSOR INTEGER;