Advertisement
Guest User

Untitled

a guest
Apr 4th, 2016
100
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. PROCEDURE Review_Log(w_type VARCHAR2,
  2.                                         w_nr_check SBTTEBTC.NR_CHECK%TYPE,
  3.                                         wCommit VARCHAR2 DEFAULT 'Y') IS
  4.     wIdPrmsCF       ParamList;
  5.     w_fl_review SBTTEBTC.FL_REVIEW%TYPE;
  6.     w_te_review SBTTEBTC.TE_REVIEW%TYPE;
  7.     dummy NUMBER;
  8.     w_cd_site SBTPRTCL.CD_SITE%TYPE;
  9.     w_cd_bunit SBTPRTCL.CD_BUNIT%TYPE;
  10. BEGIN
  11.     w_cd_site := NAME_IN('PARAMETER.P_CD_SITE');
  12.     w_cd_bunit := NAME_IN('PARAMETER.P_CD_BUNIT');
  13.     wIdPrmsCF := Get_Parameter_List('wCdPrmsCF');
  14.   IF NOT Id_Null (wIdPrmsCF) THEN
  15.         Destroy_Parameter_List(wIdPrmsCF);
  16.   END IF;
  17.   -- parameter list da passare alla call form  della dialog
  18.     wIdPrmsCF := Create_Parameter_list('wCdPrmsCF');
  19.   --passaggio di parametri al form chiamato
  20.     Add_Parameter(wIdPrmsCF, 'P_NR_CHECK', TEXT_PARAMETER, w_nr_check);
  21.     Add_Parameter(wIdPrmsCF, 'P_TYPE', TEXT_PARAMETER, w_type);
  22.     Add_Parameter(wIdPrmsCF, 'P_COMMIT', TEXT_PARAMETER, wCommit);
  23.     Run_Funz(w_cd_site,w_cd_bunit,'LOG_REVW',wIdPrmsCF);
  24.     Destroy_Parameter_List(wIdPrmsCF);
  25.     -- controllo se il formato di review era stato chiamato per una riga
  26.     -- di log da giustificare subito.
  27.     IF w_type = 'BATCH' THEN
  28.         SELECT FL_REVIEW,TE_REVIEW
  29.         INTO w_fl_review, w_te_review
  30.         FROM SBTTEBTC
  31.         WHERE NR_CHECK = w_nr_check;
  32.     ELSIF w_type = 'PROTOCOL' THEN
  33.         SELECT FL_REVIEW,TE_REVIEW
  34.         INTO w_fl_review, w_te_review
  35.         FROM SBTTEPRT
  36.         WHERE NR_CHECK = w_nr_check;
  37.     ELSIF w_type = 'STUDY' THEN
  38.         SELECT FL_REVIEW,TE_REVIEW
  39.         INTO w_fl_review, w_te_review
  40.         FROM SBTTESTY
  41.         WHERE NR_CHECK = w_nr_check;
  42.     ELSIF w_type = 'REPORT' THEN
  43.         SELECT FL_REVIEW,TE_REVIEW
  44.         INTO w_fl_review, w_te_review
  45.         FROM SBTTEREP
  46.         WHERE NR_CHECK = w_nr_check;       
  47.     ELSE
  48.         RAISE Form_Trigger_Failure;
  49.     END IF;
  50.     IF w_fl_review = 'I' AND
  51.         w_te_review IS NULL THEN
  52.         dummy := Show_Msg('STOP','Log review failed. Aborting current operation.',NAME_IN('GLOBAL.CD_APPLI'));
  53.         RAISE Form_Trigger_Failure;
  54.     END IF;
  55. END;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement