assignment_algorithm: Replicate the PIR assignment algorithm

In publichealthengland/hcaidcs: R functions for the mandatory surveillance of bacteraemia and C. difficile infection

Replicate the PIR assignment algorithm

Description

Provisionally assigned cases are counted as if final assignment status, i.e. a case provisionally assigned to a Trust will be reported as Trust-assigned in any report.

Usage

assignment_algorithm(
  pircasestatus,
  assignmentmethodcode,
  patientlocation,
  patientcategory,
  provisionalorganisationname,
  finalpirassignedorganisationtype
)

Arguments

pircasestatus	Text string of either 'Final assignment' or 'Provisional assignment'
assignmentmethodcode	Numeric variable giving assignment method
patientlocation	Text string giving patient location
patientcategory	Text string giving patient inpatient status (one of "", "A&E only", "Day patient", "Emergency Assessment" "In-patient", "Other", "Outpatient", "Regular Attender", "Unknown" )
provisionalorganisationname	Text string giving the name of the provisionally assigned organisation
finalpirassignedorganisationtype	Text string giving organisation type of finally assigned pir organisation. One of either "NHS Trust" or "Clinical Commissioning Group"

Value

string giving the name of the finally assigned organisation or one of "NHS Trust" or "CCG"

Examples

data(assignment_data)
assignment_data$new <- assignment_algorithm(pircasestatus = assignment_data$pircasestatus,
        assignmentmethodcode = assignment_data$assignmentmethodcode,
        patientlocation = assignment_data$patientlocation,
        patientcategory = assignment_data$patient_category,
        provisionalorganisationname = assignment_data$provisionalorganisationname,
        finalpirassignedorganisationtype = assignment_data$finalpirassignedorganisation)
assignment_data

dat2 <- assignment_data[13, ]
dat2$new <- NULL
dat2$new <- assignment_algorithm(pircasestatus = dat2$pircasestatus,
        assignmentmethodcode = dat2$assignmentmethodcode,
        patientlocation = dat2$patientlocation,
        patientcategory = dat2$patient_category,
        provisionalorganisationname = dat2$provisionalorganisationname,
        finalpirassignedorganisationtype = dat2$finalpirassignedorganisation)
dat2

data(assignment_data2)
assignment_data2$new <- assignment_algorithm(pircasestatus = assignment_data2$pir_case_status,
        assignmentmethodcode = assignment_data2$assignment_method_code,
        patientlocation = assignment_data2$patient_location,
        patientcategory = assignment_data2$patient_category,
        provisionalorganisationname = assignment_data2$provisional_organisation_name,
        finalpirassignedorganisationtype = assignment_data2$final_pir_assigned_organisation_type)
assignment_data2

publichealthengland/hcaidcs documentation built on Jan. 17, 2024, 1:34 p.m.