Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- PROCEDURE Review_Log(w_type VARCHAR2,
- w_nr_check SBTTEBTC.NR_CHECK%TYPE,
- wCommit VARCHAR2 DEFAULT 'Y') IS
- wIdPrmsCF ParamList;
- w_fl_review SBTTEBTC.FL_REVIEW%TYPE;
- w_te_review SBTTEBTC.TE_REVIEW%TYPE;
- dummy NUMBER;
- w_cd_site SBTPRTCL.CD_SITE%TYPE;
- w_cd_bunit SBTPRTCL.CD_BUNIT%TYPE;
- BEGIN
- w_cd_site := NAME_IN('PARAMETER.P_CD_SITE');
- w_cd_bunit := NAME_IN('PARAMETER.P_CD_BUNIT');
- wIdPrmsCF := Get_Parameter_List('wCdPrmsCF');
- IF NOT Id_Null (wIdPrmsCF) THEN
- Destroy_Parameter_List(wIdPrmsCF);
- END IF;
- -- parameter list da passare alla call form della dialog
- wIdPrmsCF := Create_Parameter_list('wCdPrmsCF');
- --passaggio di parametri al form chiamato
- Add_Parameter(wIdPrmsCF, 'P_NR_CHECK', TEXT_PARAMETER, w_nr_check);
- Add_Parameter(wIdPrmsCF, 'P_TYPE', TEXT_PARAMETER, w_type);
- Add_Parameter(wIdPrmsCF, 'P_COMMIT', TEXT_PARAMETER, wCommit);
- Run_Funz(w_cd_site,w_cd_bunit,'LOG_REVW',wIdPrmsCF);
- Destroy_Parameter_List(wIdPrmsCF);
- -- controllo se il formato di review era stato chiamato per una riga
- -- di log da giustificare subito.
- IF w_type = 'BATCH' THEN
- SELECT FL_REVIEW,TE_REVIEW
- INTO w_fl_review, w_te_review
- FROM SBTTEBTC
- WHERE NR_CHECK = w_nr_check;
- ELSIF w_type = 'PROTOCOL' THEN
- SELECT FL_REVIEW,TE_REVIEW
- INTO w_fl_review, w_te_review
- FROM SBTTEPRT
- WHERE NR_CHECK = w_nr_check;
- ELSIF w_type = 'STUDY' THEN
- SELECT FL_REVIEW,TE_REVIEW
- INTO w_fl_review, w_te_review
- FROM SBTTESTY
- WHERE NR_CHECK = w_nr_check;
- ELSIF w_type = 'REPORT' THEN
- SELECT FL_REVIEW,TE_REVIEW
- INTO w_fl_review, w_te_review
- FROM SBTTEREP
- WHERE NR_CHECK = w_nr_check;
- ELSE
- RAISE Form_Trigger_Failure;
- END IF;
- IF w_fl_review = 'I' AND
- w_te_review IS NULL THEN
- dummy := Show_Msg('STOP','Log review failed. Aborting current operation.',NAME_IN('GLOBAL.CD_APPLI'));
- RAISE Form_Trigger_Failure;
- END IF;
- END;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement