Gdy I debug, I widzieć the problem być z the wykonywać bezpośredni oświadczenie. The stół dokąd kursor wybierać the dane od być chwilowy stół dostępny dla ten sesja.
PROCEDURA PROGRAMASSIGNMENT_CONV (P_CLIENTID W LICZBA) BYĆ
TYP PROGRAMASSIGNMENT_TAB BYĆ STÓŁ PROGRAMASSIGNMENT%ROWTYPE WSKAŹNIK SIMPLE_INTEGER;
L_PROGRAMASSIGNMENT PROGRAMASSIGNMENT_TAB;
-- L_PROGRAMASSIGNMENTID PROGRAMASSIGNMENT.PROGRAMASSIGNMENTID%TYPE;
L_LIMIT PLS_INTEGER: = 500000;
KURSOR CUR_PROGRAMASSIGNMENT BYĆ
WYBRANY 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
OD CDRLOAD.GTEMP_BSC_PROGRAMASSIGNMENT A;
l_clientname VARCHAR2 (100);
ZACZYNAĆ
-- zaludniać cdrload.gtemp_bsc_programassignment od sql serwer przez DBLINK
l_clientname: = getclientname (p_clientid, "CDR_PROGRAMASSIGNMENT_CONV ");
WYKONYWAĆ BEZPOŚREDNI "WSZYWKA W cdrload.gtemp_bsc_programassignment WYBIÓRKA * OD" || l_clientname;
WYBRANY A.RUNID
W L_RUNID
OD CDRLOAD.GTEMP_BSC_PROGRAMASSIGNMENT A
DOKĄD ROWNUM = (1);
OTWIERAĆ CUR_PROGRAMASSIGNMENT;
PĘTLA
PRZYNOSIĆ CUR_PROGRAMASSIGNMENT MASA ZBIERAĆ
W L_PROGRAMASSIGNMENT OGRANICZENIE L_LIMIT;
RUNIDTRACKING_PKG.STATUS_TRACKING (P_CLIENTID,
"conversion_pkg.CDR_PROGRAMASSIGNMENT_CONV",
"Masa zbierać obliczenie dla WSZYWKA",
L_PROGRAMASSIGNMENT.COUNT,
L_runid);
-- wszywka w programassignment stół
FORALL I W 1. L_PROGRAMASSIGNMENT.COUNT
WSZYWKA W PROGRAMASSIGNMENT CENIĆ L_PROGRAMASSIGNMENT (I);
WYCHODZIĆ GDY CUR_PROGRAMASSIGNMENT%NOTFOUND;
KOŃCZYĆ PĘTLA;
ZAMYKAĆ CUR_PROGRAMASSIGNMENT;
WYJĄTEK
GDY INNY WTEDY
RUNIDTRACKING_PKG.STATUS_TRACKING (P_CLIENTID,
"conversion_pkg.CDR_PROGRAMASSIGNMENT_CONV",
SQLERRM,
(0),
L_runid);
KOŃCÓWKA PROGRAMASSIGNMENT_CONV;
|
