M80.011D Age-related osteoporosis with current pathological fracture, right shoulder, subsequent encounter for fracture with routine healing