package Ġno . nav . hel se . h ops . fhir Ċ Ċ import Ġorg . hl 7 . fhir . r 4 . model . Bundle Ċ import Ġorg . hl 7 . fhir . r 4 . model . Coding Ċ import Ġorg . hl 7 . fhir . r 4 . model . Message Header Ċ import Ġorg . hl 7 . fhir . r 4 . model . Questionnaire Ċ import Ġorg . hl 7 . fhir . r 4 . model . Resource Ċ import Ġorg . hl 7 . fhir . r 4 . model . Task Ċ import Ġorg . hl 7 . fhir . r 4 . model . Url Type Ċ Ċ fun ĠBundle . add Resource ( resource : ĠResource ) Ġ{ ĊĠĠĠ Ġval Ġentry Ġ= ĠBundle . Bundle Entry Component () ĊĠĠĠ Ġentry . full Url Ġ= Ġ" urn : uuid :${ resource . id }" ĊĠĠĠ Ġentry . resource Ġ= Ġresource ĊĠĠĠ Ġadd Entry ( entry ) Ċ } Ċ Ċ fun Ġcreate Fhir Message (): ĠBundle Ġ{ ĊĠĠĠ Ġval ĠeventType Ġ= ĠCoding (" nav : h ops : eventType ", Ġ" best illing ", Ġ" Best illing ") ĊĠĠĠ Ġval Ġmessage Header Ġ= ĠMessage Header ( eventType , ĠMessage Header . Message Source Component ( Url Type (" "))) ĊĠĠĠ Ġmessage Header . destination Ġ= ĠlistOf ( Message Header . Message Destination Component ( Url Type (" http :// localhost : 1 2 3 4 "))) ĊĠĠĠ Ġval Ġtask Ġ= ĠTask () ĊĠĠĠ Ġval Ġquestion naire Ġ= ĠQuestion naire () ĊĊĠĠĠ Ġreturn ĠBundle (). apply Ġ{ ĊĠĠĠĠĠĠĠ Ġtype Ġ= ĠBundle . Bundle Type . MESSAGE ĊĠĠĠĠĠĠĠ Ġadd Resource ( message Header ) ĊĠĠĠĠĠĠĠ Ġadd Resource ( task ) ĊĠĠĠĠĠĠĠ Ġadd Resource ( question naire ) ĊĠĠĠ Ġ} Ċ } Ċ