1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41
| create or replace
PROCEDURE "test_CREATE"
(
udProspect IN structure%Rowtype,
DateStamp IN TIMESTAMP, -- date d'appel de la procédure
PN$strChemin IN VARCHAR2 , -- chemin vers le répertoire des ressources
LR$recSiteVirtuel organization%Rowtype,
contactIdSA contact.contact_id%type,
recUserSA "access"%Rowtype,
primaireModifie8100 x_lkp_activity%Rowtype,
stageIdSite LOOKUP_ACCOUNT_STAGE%Rowtype,
FileHandlerLog utl_file.file_type)
AS
PN$udcontact personne%Rowtype;
TYPE TYP_TAB_organization
IS
TABLE OF organization%Rowtype ;
lstSiteTab TYP_TAB_organization;
recSite organization%Rowtype;
TYPE TYP_TAB_organiz_adr
IS
TABLE OF organization_address%Rowtype ;
lstBr TYP_TAB_organiz_adr;
recAddress organization_address%Rowtype ;
LN$seqOrganization NUMBER(10) := 0;
LE$Fin EXCEPTION ;
strNote VARCHAR2(255);
Postalcode VARCHAR2(200) :='00000';
LocalityName VARCHAR2(200) :='<Ville Inconnue>';
PostalAdress VARCHAR2 (200):='<Adresse inconnue>';
TYPE TYP_TAB_organiz_email
IS
TABLE OF organization_emailaddress%Rowtype ;
orgMailTab TYP_TAB_organiz_email;
BEGIN
.....
END "test_CREATE" ; |
Partager