/*
* Library: IMMZD18SHPVSingleDoseLogic (IMMZ.D18.S.Single-dose schedule)
* Schedule Table: Alternative single-dose schedule
*/
library IMMZD18SHPVSingleDoseLogicusing FHIR version '4.0.1'include FHIRHelpers version '4.0.1'include WHOCommon called WCinclude IMMZCommon called Commoninclude IMMZConcepts called Conceptsinclude IMMZEncounterElements called IEinclude IMMZD2DTHPVEncounterElements called Encounterparameter Today Date default Today()/*
@complete: First HPV dose from the primary series was administered
@pseudocode: Count of vaccines administered (where "Vaccine type" = "HPV vaccines") = 1
*/
define "First HPV dose from the primary series was administered":
Encounter."One HPV primary series dose was administered"/*
@output: Human papillomavirus (HPV) dose 1
@description: Provision of the HPV dose 1
@trigger: Child's birth
@pseudo:
@triggerDate: "Date of birth"
*/
define "Human papillomavirus (HPV) dose 1":
Encounter."No HPV primary series doses were administered"
and not "First HPV dose from the primary series was administered"/*
@dynamicValue: Human papillomavirus (HPV) dose 1 Due Date
@pseudocode: "Date of birth" + 9 years
*/
define "Human papillomavirus (HPV) dose 1 Due Date":
if "Human papillomavirus (HPV) dose 1" then Patient.birthDate + 9 years
else null/*
@dynamicValue: Human papillomavirus (HPV) dose 1 Overdue
@pseudocode: "Date of birth" + 20 years
*/
define "Human papillomavirus (HPV) dose 1 Overdue":
if "Human papillomavirus (HPV) dose 1" then Patient.birthDate + 20 years
else null/*
@output: Human papillomavirus (HPV) dose 1 Create
@create: HPV dose 1 should be provided if the client is older than 9 years of age.
*/
define "Human papillomavirus (HPV) dose 1 Create":
if "Human papillomavirus (HPV) dose 1"
then 'HPV dose 1 should be provided if the client is older than 9 years of age.' + '
Due Date: ' + ToString("Human papillomavirus (HPV) dose 1 Due Date") + '
Overdue: ' + ToString("Human papillomavirus (HPV) dose 1 Overdue")
else ''/*
@dynamicValue: Human papillomavirus (HPV) dose 1 Expiration
@pseudocode: To be determined by Member States; however, there is no recommended expiration date.
*/
define "Human papillomavirus (HPV) dose 1 Expiration":
null/*
@complete: Second HPV dose from the primary series was administered
@pseudocode: Count of vaccines administered (where "Vaccine type" = "HPV vaccines") = 2
*/
define "Second HPV dose from the primary series was administered":
Encounter."Two HPV primary series doses were administered"/*
@output: HPV dose 2 (Immunocompromised or HIV-positive)
@description: Provision of the HPV dose 2 for individuals immunocompromised or infected with HIV
@trigger: First HPV dose from the primary series was administered and client's HIV status is positive or client is immunocompromised
@pseudo: Count of vaccines administered (where "Vaccine type" = "HPV vaccines") = 1 AND ("HIV status" = "HIV-positive" OR "Immunocompromised" = TRUE)
@triggerDate: "Date and time of vaccination" (where "Vaccine type" = "HPV vaccines")
*/
define "HPV dose 2 (Immunocompromised or HIV-positive)":
"First HPV dose from the primary series was administered"
and (
Encounter."Client's HIV status is positive"
or Encounter."Client is immunocompromised"
)
and not "Second HPV dose from the primary series was administered"/*
@dynamicValue: HPV dose 2 (Immunocompromised or HIV-positive) Due Date
@pseudocode: "Date and time of vaccination" (where "Vaccine type" = "HPV vaccines") + 6 months
*/
define "HPV dose 2 (Immunocompromised or HIV-positive) Due Date":
if "HPV dose 2 (Immunocompromised or HIV-positive)" then Encounter."Date of Latest HPV Dose" + 6 months
else null/*
@output: HPV dose 2 (Immunocompromised or HIV-positive) Create
@create: Individuals known to be immunocompromised or infected with HIV should receive at least two HPV vaccine doses.
*/
define "HPV dose 2 (Immunocompromised or HIV-positive) Create":
if "HPV dose 2 (Immunocompromised or HIV-positive)"
then 'Individuals known to be immunocompromised or infected with HIV should receive at least two HPV vaccine doses.' + '
Due Date: ' + ToString("HPV dose 2 (Immunocompromised or HIV-positive) Due Date")
else ''/*
@dynamicValue: HPV dose 2 (Immunocompromised or HIV-positive) Overdue
@pseudocode: To be determined by Member States; however, there is no recommended overdue date.
*/
define "HPV dose 2 (Immunocompromised or HIV-positive) Overdue":
null/*
@dynamicValue: HPV dose 2 (Immunocompromised or HIV-positive) Expiration
@pseudocode: To be determined by Member States; however, there is no recommended expiration date.
*/
define "HPV dose 2 (Immunocompromised or HIV-positive) Expiration":
null/*
@complete: Third HPV dose from the primary series was administered
@pseudocode: Count of vaccines administered (where "Vaccine type" = "HPV vaccines") = 3
*/
define "Third HPV dose from the primary series was administered":
Encounter."Three HPV primary series doses were administered"/*
@output: HPV dose 3 (Immunocompromised or HIV-positive)
@description: Provision of the HPV dose 3 for individuals immunocompromised or infected with HIV
@trigger: Second HPV dose from the primary series was administered and client's HIV status is positive or client is immunocompromised
@pseudo: Count of vaccines administered (where "Vaccine type" = "HPV vaccines") = 2 AND ("HIV status" = "HIV-positive" OR "Immunocompromised" = TRUE)
@triggerDate: Latest "Date and time of vaccination" (where "Vaccine type" = "HPV vaccines")
*/
define "HPV dose 3 (Immunocompromised or HIV-positive)":
"Second HPV dose from the primary series was administered"
and (
Encounter."Client's HIV status is positive"
or Encounter."Client is immunocompromised"
)
and not "Third HPV dose from the primary series was administered"/*
@dynamicValue: HPV dose 3 (Immunocompromised or HIV-positive) Due Date
@pseudocode: Latest "Date and time of vaccination" (where "Vaccine type" = "HPV vaccines") + 6 months
*/
define "HPV dose 3 (Immunocompromised or HIV-positive) Due Date":
if "HPV dose 3 (Immunocompromised or HIV-positive)" then Encounter."Date of Latest HPV Dose" + 6 months
else null/*
@output: HPV dose 3 (Immunocompromised or HIV-positive) Create
@create: Where possible, three HPV doses should be provided to individuals known to be immunocompromised or infected with HIV.
*/
define "HPV dose 3 (Immunocompromised or HIV-positive) Create":
if "HPV dose 3 (Immunocompromised or HIV-positive)"
then 'Where possible, three HPV doses should be provided to individuals known to be immunocompromised or infected with HIV.' + '
Due Date: ' + ToString("HPV dose 3 (Immunocompromised or HIV-positive) Due Date")
else ''/*
@dynamicValue: HPV dose 3 (Immunocompromised or HIV-positive) Overdue
@pseudocode: To be determined by Member States; however, there is no recommended overdue date.
*/
define "HPV dose 3 (Immunocompromised or HIV-positive) Overdue":
null/*
@dynamicValue: HPV dose 3 (Immunocompromised or HIV-positive) Expiration
@pseudocode: To be determined by Member States; however, there is no recommended expiration date.
*/
define "HPV dose 3 (Immunocompromised or HIV-positive) Expiration":
null/*
@test: Test expected results based on example patients
*/
define "Test Validation":
case
when Patient.id = 'HPV27.1' then "Human papillomavirus (HPV) dose 1"when Patient.id = 'HPV28.2' then "Human papillomavirus (HPV) dose 1"when Patient.id = 'HPV29.2' then "Human papillomavirus (HPV) dose 1"when Patient.id = 'HPV30.3' then "HPV dose 2 (Immunocompromised or HIV-positive)"when Patient.id = 'HPV31.3' then "HPV dose 2 (Immunocompromised or HIV-positive)"when Patient.id = 'HPV32.3' then "HPV dose 2 (Immunocompromised or HIV-positive)"when Patient.id = 'HPV33.3' then "HPV dose 2 (Immunocompromised or HIV-positive)"when Patient.id = 'HPV34.3' then "First HPV dose from the primary series was administered" and not "HPV dose 2 (Immunocompromised or HIV-positive)"when Patient.id = 'HPV35.3' then "HPV dose 3 (Immunocompromised or HIV-positive)"when Patient.id = 'HPV36.3' then "HPV dose 3 (Immunocompromised or HIV-positive)"when Patient.id = 'HPV37.3' then "HPV dose 3 (Immunocompromised or HIV-positive)"when Patient.id = 'HPV38.3' then "HPV dose 3 (Immunocompromised or HIV-positive)"when Patient.id = 'HPV39.1' then "Third HPV dose from the primary series was administered"
else 'No test case set'
end