Modul:PrevalenceData
Udseende
-- Indsat uredigeret fra det engelske modul : [[:en:Module:PrevalenceData]]
-- Brugt for parameteren 'Frequency' i den engelske [[:en:Template:infobox medical condition]]
-- Hensigten er at udvide den danske [[Skabelon:Infoboks sygdom]] med ekstra parametre, herunder:
-- 'Frequency' : "Incidence (rate of newly diagnosed cases of the disease during a specified period of time, e.g., one month or one year);
-- Period prevalence (the actual number people with the disease during a specified period of time);
-- Lifetime prevalence (the proportion of people who have had the disorder at some time in their life);
-- Lifetime morbid risk (the proportion of people who will eventually develop the disorder at some time in their life
-- whether or not they have a lifetime history at the time of assessment)."
-- Eksempel : PTSD – 8.7% (lifetime risk); 3.5% (12-month risk, US)
local p = {}
p.main = function ( frame )
local qid = frame.args.qId or ""
if qid == "" then qid = mw.wikibase.getEntityIdForCurrentPage() end
if not qid then return nil end
local prevalenceClaims = mw.wikibase.getBestStatements(qid, "P1193")
local pRange = ''
-- Run through all prevalence claims - the table prevalenceClaims always exists but may be empty
for i, prevalenceClaim in ipairs( prevalenceClaims ) do
local prevalenceValue = prevalenceClaim.mainsnak.datavalue and prevalenceClaim.mainsnak.datavalue.value
if prevalenceValue then
if string.len( pRange ) > 0 then
-- Split multiple claims
-- Maybe line break instead?
pRange = pRange .. ', '
end
if prevalenceValue.lowerBound and prevalenceValue.upperBound then
local lowerBound = prevalenceValue.lowerBound * 100
local upperBound = prevalenceValue.upperBound * 100
pRange = pRange .. lowerBound
if lowerBound ~= upperBound then
pRange = pRange .. '—' .. upperBound
end
else
local amount = prevalenceValue.amount * 100
pRange = pRange .. amount
end
pRange = pRange .. '%'
if prevalenceClaim.qualifiers then
-- Qualifiers for prevalence are currently unstandardized.
-- Keep guessing until the right one is found.
local quals = prevalenceClaim.qualifiers.P276 or -- location
prevalenceClaim.qualifiers.P1001 or -- applies to jurisdiction
prevalenceClaim.qualifiers.P17 -- country
if quals then
pRange = pRange .. ' ('
for k, qual in pairs(quals) do
if k > 1 then
pRange = pRange .. ', '
end
local qualId = qual.datavalue.value[ 'numeric-id' ]
local link = mw.wikibase.sitelink( 'Q' .. qualId )
local label = ({
-- Certain geographic locales might need a
-- manual-ish override for labels.
[ 132453 ] = 'developed world'
})[ qualId ] or mw.wikibase.label( 'Q' .. qualId )
if link then
label = '[[' .. link .. '|' .. label .. ']]'
end
pRange = pRange .. label
end
pRange = pRange .. ')'
end
end
end
--[[ Todo: References
if prevalenceClaim.references then
end
--]]
end
return pRange
end
return p