Quand je corrige, je vois que le problème était avec le rapport immédiat d'exécution. La table à partir d'où le curseur choisit les données est une table provisoire disponible pour cette session.
LE PROCÉDÉ PROGRAMASSIGNMENT_CONV (P_CLIENTID EN NOMBRE) EST
LE TYPE PROGRAMASSIGNMENT_TAB EST TABLE D'INDEX DE PROGRAMASSIGNMENT%ROWTYPE PAR SIMPLE_INTEGER ; L_PROGRAMASSIGNMENT PROGRAMASSIGNMENT_TAB ; -- L_PROGRAMASSIGNMENTID PROGRAMASSIGNMENT.PROGRAMASSIGNMENTID%TYPE ; L_LIMIT PLS_INTEGER : = 500000 ;
LE CURSEUR CUR_PROGRAMASSIGNMENT EST CHOISIR PROGRAMASSIGNMENTID_SEQ.NEXTVAL, A.CLIENTID, A.VENDORID, A.PID, A.SUBPID, A.PROGRAMID, A.TRIAGEFILTERID, A.CASEID, A.CLIENTCASENO, A.WORKFLOWSTATUS, A.APPLICATIONID, A.ISPRIMARYIND, A.STATUSCHANGEREASONID, A.INTERVENTIONLEVELID, A.DMINTERVENTIONTYPEID, A.PROGRAMRANK, A.IDENTIFIEDDATE, A.SELECTEDDATE, A.OPENEDDATE, A.CLOSEDDATE, A.DECLINEDDATE, A.INTAKEDATE, A.INTAKESOURCEID, A.REFERRALID, A.INSERTEDBY, sysdate, A.RUNID DE CDRLOAD.GTEMP_BSC_PROGRAMASSIGNMENT A ;
l_clientname VARCHAR2 (100) ;
COMMENCER -- peupler cdrload.gtemp_bsc_programassignment de serveur de SQL par DBLINK
l_clientname : = getclientname (p_clientid, « CDR_PROGRAMASSIGNMENT_CONV ") ;
EXÉCUTER la « INSERTION IMMÉDIATE DANS cdrload.gtemp_bsc_programassignment CHOISI * DE » || l_clientname ;
CHOISIR A.RUNID DANS L_RUNID DE CDRLOAD.GTEMP_BSC_PROGRAMASSIGNMENT A LÀ OÙ ROWNUM = 1 ;
OUVRIR CUR_PROGRAMASSIGNMENT ; BOUCLE LE VOLUME DE L'EFFORT CUR_PROGRAMASSIGNMENT SE RASSEMBLENT DANS LA LIMITE L_LIMIT DE L_PROGRAMASSIGNMENT ; RUNIDTRACKING_PKG.STATUS_TRACKING (P_CLIENTID, « conversion_pkg.CDR_PROGRAMASSIGNMENT_CONV », Le « volume rassemblent le compte pour l'INSERTION », L_PROGRAMASSIGNMENT.COUNT, L_RUNID) ;
-- insertion dans la table de programassignment
FORALL I DANS 1. L_PROGRAMASSIGNMENT.COUNT L'INSERTION DANS PROGRAMASSIGNMENT ÉVALUE L_PROGRAMASSIGNMENT (I) ; SORTIR QUAND CUR_PROGRAMASSIGNMENT%NOTFOUND ; FINIR LA BOUCLE ; CLÔTURER CUR_PROGRAMASSIGNMENT ; EXCEPTION QUAND D'AUTRES ALORS RUNIDTRACKING_PKG.STATUS_TRACKING (P_CLIENTID, « conversion_pkg.CDR_PROGRAMASSIGNMENT_CONV », SQLERRM, 0, L_RUNID) ; EXTRÉMITÉ PROGRAMASSIGNMENT_CONV ;
|