Screeplot of eigenvalues from the reduced correlation matrix

[Isabel Ruthotto]

I assume that STATA's screeplot command prints the eigenvalues from the sample correlation matrix. However, I want to plot a scree test using the eigenvalues from the reduced correlation matrix (i.e., the matrix where the off-diagonal elements are the communialities of each of the measured variables). Is there a way to change the command or do I need to write my own code?