M80019A: Age-related osteoporosis with current pathological fracture, unspecified shoulder, initial encounter for fracture