Z13.820: Encounter for screening for osteoporosis