How do calculate FRD value from p-value using COX-PH. Is there any direct function in R to calculate FDR value. using this script given below

BRCA <- read.table("BRCA.txt", header = TRUE, sep=',') 
fit_model <- survfit(Surv(OS_MONTHS, OS_STATUS) ~ SEX, data = file)
summary(fit_model) 



                                       coef  exp(coef)   se(coef)      z Pr(>|z|)    
ABL1                                 -1.514e+00  2.200e-01  5.656e-01 -2.677 0.007431 ** 
ALK                                   5.238e-01  1.688e+00  3.178e-01  1.648 0.099329 .  
ALOX12B                              -1.589e+00  2.041e-01  7.111e-01 -2.235 0.025415 *  
APC                                   -2.436e-01  7.838e-01  2.841e-01 -0.857 0.391196    
AR                                     6.647e-01  1.944e+00  4.364e-01  1.523 0.127731

Thanks