Merge branch 'dev' of github.com:dikstub-rssa/simrs-be into migration

internal/use-case/main-use-case/action-report/helper.go

@@ -1,28 +0,0 @@
-/*
-DESCRIPTION:
-Any functions that are used internally by the use-case
-*/
-package actionreport
-
-import (
-	e "simrs-vx/internal/domain/main-entities/action-report"
-)
-
-func setData[T *e.CreateDto | *e.UpdateDto](input T, data *e.ActionReport) {
-	var inputSrc *e.CreateDto
-	if inputT, ok := any(input).(*e.CreateDto); ok {
-		inputSrc = inputT
-	} else {
-		inputTemp := any(input).(*e.UpdateDto)
-		inputSrc = &inputTemp.CreateDto
-	}
-
-	data.Encounter_Id = inputSrc.Encounter_Id
-	data.Date = inputSrc.Date
-	data.Doctor_Code = inputSrc.Doctor_Code
-	data.Operator_Employe_Id = inputSrc.Operator_Employe_Id
-	data.Assistant_Employe_Id = inputSrc.Assistant_Employe_Id
-	data.Instrumentor_Employe_Id = inputSrc.Instrumentor_Employe_Id
-	data.Nurse_Code = inputSrc.Nurse_Code
-	data.Value = inputSrc.Value
-}

internal/use-case/main-use-case/encounter/lib.go

@@ -73,17 +73,35 @@ func ReadListData(input e.ReadListDto, event *pl.Event, dbx ...*gorm.DB) ([]e.En
 		)
 	}
 
-	if input.Person_Name != nil {
+	if input.Patient_Identifier != nil {
 		tx = tx.Joins("JOIN \"Patient\" ON \"Patient\".\"Id\" = \"Encounter\".\"Patient_Id\"").
-			Joins("JOIN \"Person\" ON \"Person\".\"Id\" = \"Patient\".\"Person_Id\"").Where("\"Person\".\"Name\" ILIKE ?", "%"+*input.Person_Name+"%")
+			Joins("JOIN \"Person\" ON \"Person\".\"Id\" = \"Patient\".\"Person_Id\"").Where("\"Person\".\"Name\" ILIKE ? OR \"Patient\".\"Number\" = ?", "%"+*input.Patient_Identifier+"%", *input.Patient_Identifier)
 	}
 
-	tx = tx.Debug().Scopes(gh.Preload(input.Includes)).
-		Scopes(gh.Filter(input.FilterDto)).
+	// TODO: getuk lib need to be updated to support this
+	if input.Status_Code != nil {
+		tx = tx.Where("\"Encounter\".\"Status_Code\" = ?", *input.Status_Code)
+	}
+
+	if input.Unit_Code != nil {
+		tx = tx.Where("\"Encounter\".\"Unit_Code\" = ?", *input.Unit_Code)
+	}
+
+	if input.PaymentMethod_Code != nil {
+		tx = tx.Where("\"Encounter\".\"PaymentMethod_Code\" = ?", *input.PaymentMethod_Code)
+	}
+
+	tx = tx.Scopes(gh.Preload(input.Includes)).
 		Count(&count).
 		Scopes(gh.Paginate(input, &pagination)).
 		Order("\"CreatedAt\" DESC")
 
+	// tx.Debug().Scopes(gh.Preload(input.Includes)).
+	// 	Scopes(gh.Filter(input.FilterDto)).
+	// 	Count(&count).
+	// 	Scopes(gh.Paginate(input, &pagination)).
+	// 	Order("\"CreatedAt\" DESC")
+
 	if err := tx.Find(&data).Error; err != nil {
 		if err == gorm.ErrRecordNotFound {
 			return nil, &meta, nil

internal/use-case/main-use-case/generate-file/case.go

@@ -51,6 +51,12 @@ func Generate(input GenerateDto) (*d.Data, error) {
 				return err
 			}
 
+		// screening
+		case ere.DTCScreening:
+			response, err = generateScreening(input, event, tx)
+			if err != nil {
+				return err
+			}
 		default:
 			return errors.New("invalid type code")
 		}

internal/use-case/main-use-case/generate-file/helper.go

@@ -13,13 +13,16 @@ import (
 	ee "simrs-vx/internal/domain/main-entities/encounter"
 	egc "simrs-vx/internal/domain/main-entities/general-consent"
 	er "simrs-vx/internal/domain/main-entities/resume"
+	es "simrs-vx/internal/domain/main-entities/screening"
 
 	uvs "simrs-vx/internal/use-case/bpjs-use-case/vclaim-sep"
 	uvscl "simrs-vx/internal/use-case/bpjs-use-case/vclaim-sep-control-letter"
 	ue "simrs-vx/internal/use-case/main-use-case/encounter"
 	ugc "simrs-vx/internal/use-case/main-use-case/general-consent"
 	ur "simrs-vx/internal/use-case/main-use-case/resume"
+	us "simrs-vx/internal/use-case/main-use-case/screening"
 
+	ercl "simrs-vx/internal/domain/references/clinical"
 	erc "simrs-vx/internal/domain/references/common"
 	docscfg "simrs-vx/internal/infra/docs-cfg"
 
@@ -339,3 +342,131 @@ func generateResumeTemplateData(resume er.Resume, event pl.Event, tx *gorm.DB) (
 
 	return &templateData, nil
 }
+
+func generateScreeningTemplateData(screenings []es.Screening, event pl.Event, tx *gorm.DB) (*ScreeningPDF, error) {
+	// get encounter
+	includes := "Patient,Patient.Person"
+	encounter, err := ue.ReadDetailData(ee.ReadDetailDto{Id: *screenings[0].Encounter_Id, Includes: includes}, &event)
+	if err != nil {
+		return nil, err
+	}
+
+	switch screenings[0].Type {
+	case ercl.SFTCA:
+		// map template data
+		sData := es.FormA{}
+		if screenings[0].Value != nil {
+			err := json.Unmarshal([]byte(*screenings[0].Value), &sData)
+			if err != nil {
+				event.ErrInfo = pl.ErrorInfo{
+					Code:   "data-unmarshal-fail",
+					Detail: err.Error(),
+					Raw:    err,
+				}
+				return nil, err
+			}
+		} else {
+			return nil, errors.New("there is no data to be used")
+		}
+
+		templateData := ScreeningPDF{}
+		templateData.IssuedDate = pu.GetTimeNow().Format("2006-01-02 15:04:05")
+		templateData.MedicalRecord = *encounter.Patient.Number
+		templateData.Name = encounter.Patient.Person.FullName()
+		templateData.BirthDate = encounter.Patient.Person.BirthDate.Format("2006-01-02 15:04:05")
+		templateData.Employee_Name = screenings[0].Employee.Person.FullName()
+		templateData.EarlyMedic = sData.Screening.SelectedScreeningLabels()
+		templateData.Assessment = sData.AssessmentDetail
+		templateData.ProblemIdentification = sData.ProblemIdentification.SelectedProblemLabels()
+		templateData.Planning = sData.PlanningDetail
+		templateData.Date = screenings[0].CreatedAt.Format("2006-01-02 15:04:05")
+
+		return &templateData, nil
+	case ercl.SFTCB:
+		// map template data
+		templateData := ScreeningPDF{}
+		templateData.IssuedDate = pu.GetTimeNow().Format("2006-01-02 15:04:05")
+		templateData.MedicalRecord = *encounter.Patient.Number
+		templateData.Name = encounter.Patient.Person.FullName()
+		templateData.BirthDate = encounter.Patient.Person.BirthDate.Format("2006-01-02 15:04:05")
+		for k, v := range screenings {
+			templateData.FormB = append(templateData.FormB, ScreeningFormBPDF{
+				Number:        k + 1,
+				Date:          v.CreatedAt.Format("2006-01-02 15:04:05"),
+				Employee_Name: v.Employee.Person.FullName(),
+				Value:         *v.Value,
+			})
+		}
+
+		return &templateData, nil
+	}
+	return nil, errors.New("invalid screening type")
+}
+
+func generateScreening(input GenerateDto, event pl.Event, tx *gorm.DB) (*ResponseDto, error) {
+	// get value from resume by ref_id
+	includes := "Employee.Person"
+	s, err := us.ReadDetailData(es.ReadDetailDto{Id: uint(*pc.StringToUint64(*input.Ref_Id)), Includes: includes}, &event)
+	if err != nil {
+		return nil, err
+	}
+
+	var screenings []es.Screening
+	var templateData *ScreeningPDF
+	if s.IsFormA() {
+		if s.FileUrl != nil {
+			if err := removeFile(string(input.EntityType_Code), *s.FileUrl); err != nil {
+				return nil, err
+			}
+		}
+		screenings = append(screenings, *s)
+		input.FormatType = erc.DFTCPDF
+		input.TemplateName = TDNSA
+		input.Encounter_Id = s.Encounter_Id
+		templateData, err = generateScreeningTemplateData(screenings, event, tx)
+		if err != nil {
+			return nil, err
+		}
+	} else {
+		includes := "Employee.Person"
+		sort := "CreatedAt:ASC"
+		ss, _, err := us.ReadListData(es.ReadListDto{FilterDto: es.FilterDto{Encounter_Id: s.Encounter_Id, Type: ercl.SFTCB}, Includes: includes, Sort: sort}, &event, tx)
+		if err != nil {
+			return nil, err
+		}
+		screenings = append(screenings, ss...)
+		input.FormatType = erc.DFTCPDF
+		input.TemplateName = TDNSB
+		input.Encounter_Id = s.Encounter_Id
+		templateData, err = generateScreeningTemplateData(screenings, event, tx)
+		if err != nil {
+			return nil, err
+		}
+	}
+
+	// generate file
+	urlPub, err := generateFile(input, templateData)
+	if err != nil {
+		return nil, err
+	}
+
+	if len(screenings) > 1 {
+		for i := range screenings {
+			screenings[i].FileUrl = &urlPub
+		}
+		if err := tx.Save(&screenings).Error; err != nil {
+			return nil, err
+		}
+	} else {
+		s.FileUrl = &urlPub
+		if err := tx.Save(&s).Error; err != nil {
+			return nil, err
+		}
+	}
+
+	response := ResponseDto{
+		FileUrl: urlPub,
+	}
+
+	return &response, nil
+}

internal/use-case/main-use-case/generate-file/tycovar.go

@@ -72,6 +72,27 @@ type ResumePDF struct {
 	Date string
 }
 
+type ScreeningPDF struct {
+	IssuedDate            string
+	Date                  string
+	MedicalRecord         string
+	Name                  string
+	BirthDate             string
+	Employee_Name         string
+	EarlyMedic            []string
+	Assessment            string
+	ProblemIdentification []string
+	Planning              string
+	FormB                 []ScreeningFormBPDF
+}
+
+type ScreeningFormBPDF struct {
+	Number        int
+	Date          string
+	Employee_Name string
+	Value         string
+}
+
 type GenerateDto struct {
 	EntityType_Code ere.EntityTypeCode    `json:"entityType_code" validate:"required"`
 	Ref_Id          *string               `json:"ref_id" validate:"required"`
@@ -124,6 +145,8 @@ const (
 	TDNGC TemplateDocsName = "general-consent.html"
 	TDNCL TemplateDocsName = "control-letter.html"
 	TDNR  TemplateDocsName = "resume.html"
+	TDNSA TemplateDocsName = "screening-form-a.html"
+	TDNSB TemplateDocsName = "screening-form-b.html"
 )
 
 func (v VclaimControlLetter) generateTemplateData() ControlLetterPDF {

internal/use-case/main-use-case/item/helper.go

@@ -23,4 +23,6 @@ func setData[T *e.CreateDto | *e.UpdateDto](input T, data *e.Item) {
 	data.Uom_Code = inputSrc.Uom_Code
 	data.Infra_Code = inputSrc.Infra_Code
 	data.Stock = inputSrc.Stock
+	data.BuyingPrice = inputSrc.BuyingPrice
+	data.SellingPrice = inputSrc.SellingPrice
 }

internal/use-case/main-use-case/item/lib.go

@@ -81,7 +81,15 @@ func ReadDetailData(input e.ReadDetailDto, event *pl.Event, dbx ...*gorm.DB) (*e
 		tx = dg.I
 	}
 
-	if err := tx.First(&data, input.Id).Error; err != nil {
+	if input.Code != nil {
+		tx = tx.Where("\"Code\" = ?", *input.Code)
+	}
+
+	if input.Id != nil {
+		tx = tx.Where("\"Id\" = ?", input.Id)
+	}
+
+	if err := tx.First(&data).Error; err != nil {
 		if processedErr := pu.HandleReadError(err, event, source, input.Id, data); processedErr != nil {
 			return nil, processedErr
 		}

internal/use-case/main-use-case/patient/case.go

@@ -39,12 +39,11 @@ func Create(input e.CreateDto) (*d.Data, error) {
 	pl.SetLogInfo(&event, input, "started", "create")
 	mwRunner := newMiddlewareRunner(&event, input.Sync)
 
-	// check if user has employee position
-	if !input.AuthInfo.HasEmployeePosition() {
+	if !input.AuthInfo.IsReg() && !input.AuthInfo.IsSys() {
 		event.Status = "failed"
 		event.ErrInfo = pl.ErrorInfo{
 			Code:   "auth-forbidden",
-			Detail: "user has no employee position",
+			Detail: "user role is not allowed to create patient, only 'reg' position is allowed",
 			Raw:    errors.New("authentication failed"),
 		}
 		return nil, pl.SetLogError(&event, input)
@@ -227,6 +226,16 @@ func Update(input e.UpdateDto) (*d.Data, error) {
 	pl.SetLogInfo(&event, input, "started", "update")
 	mwRunner := newMiddlewareRunner(&event, input.Sync)
 
+	if !input.AuthInfo.IsReg() && !input.AuthInfo.IsSys() {
+		event.Status = "failed"
+		event.ErrInfo = pl.ErrorInfo{
+			Code:   "auth-forbidden",
+			Detail: "user role is not allowed to create patient, only 'reg' position is allowed",
+			Raw:    errors.New("authentication failed"),
+		}
+		return nil, pl.SetLogError(&event, input)
+	}
+
 	err = dg.I.Transaction(func(tx *gorm.DB) error {
 		pl.SetLogInfo(&event, rdDto, "started", "DBReadDetail")
 		if data, err = ReadDetailData(rdDto, &event, tx); err != nil {

internal/use-case/main-use-case/procedure-report/case.go

@@ -1,10 +1,10 @@
-package actionreport
+package procedurereport
 
 import (
 	"errors"
 	"strconv"
 
-	e "simrs-vx/internal/domain/main-entities/action-report"
+	e "simrs-vx/internal/domain/main-entities/procedure-report"
 
 	dg "github.com/karincake/apem/db-gorm-pg"
 	d "github.com/karincake/dodol"
@@ -15,10 +15,10 @@ import (
 	"gorm.io/gorm"
 )
 
-const source = "action-report"
+const source = "procedure-report"
 
 func Create(input e.CreateDto) (*d.Data, error) {
-	data := e.ActionReport{}
+	data := e.ProcedureReport{}
 
 	event := pl.Event{
 		Feature: "Create",
@@ -85,8 +85,8 @@ func Create(input e.CreateDto) (*d.Data, error) {
 }
 
 func ReadList(input e.ReadListDto) (*d.Data, error) {
-	var data *e.ActionReport
-	var dataList []e.ActionReport
+	var data *e.ProcedureReport
+	var dataList []e.ProcedureReport
 	var metaList *e.MetaDto
 	var err error
 
@@ -138,7 +138,7 @@ func ReadList(input e.ReadListDto) (*d.Data, error) {
 }
 
 func ReadDetail(input e.ReadDetailDto) (*d.Data, error) {
-	var data *e.ActionReport
+	var data *e.ProcedureReport
 	var err error
 
 	event := pl.Event{
@@ -186,7 +186,7 @@ func ReadDetail(input e.ReadDetailDto) (*d.Data, error) {
 
 func Update(input e.UpdateDto) (*d.Data, error) {
 	rdDto := e.ReadDetailDto{Id: input.Id}
-	var data *e.ActionReport
+	var data *e.ProcedureReport
 	var err error
 
 	event := pl.Event{
@@ -242,7 +242,7 @@ func Update(input e.UpdateDto) (*d.Data, error) {
 
 func Delete(input e.DeleteDto) (*d.Data, error) {
 	rdDto := e.ReadDetailDto{Id: input.Id}
-	var data *e.ActionReport
+	var data *e.ProcedureReport
 	var err error
 
 	event := pl.Event{

internal/use-case/main-use-case/procedure-report/helper.go

@@ -0,0 +1,39 @@
+/*
+DESCRIPTION:
+Any functions that are used internally by the use-case
+*/
+package procedurereport
+
+import (
+	e "simrs-vx/internal/domain/main-entities/procedure-report"
+)
+
+func setData[T *e.CreateDto | *e.UpdateDto](input T, data *e.ProcedureReport) {
+	var inputSrc *e.CreateDto
+	if inputT, ok := any(input).(*e.CreateDto); ok {
+		inputSrc = inputT
+	} else {
+		inputTemp := any(input).(*e.UpdateDto)
+		inputSrc = &inputTemp.CreateDto
+	}
+
+	data.Encounter_Id = inputSrc.Encounter_Id
+	data.Date = inputSrc.Date
+	data.Doctor_Code = inputSrc.Doctor_Code
+	data.Operator_Name = inputSrc.Operator_Name
+	data.Assistant_Name = inputSrc.Assistant_Name
+	data.Instrumentor_Name = inputSrc.Instrumentor_Name
+	data.Anesthesia_Doctor_Code = inputSrc.Anesthesia_Doctor_Code
+	data.Anesthesia_Nurse_Name = inputSrc.Anesthesia_Nurse_Name
+	data.Diagnose = inputSrc.Diagnose
+	data.Nurse_Name = inputSrc.Nurse_Name
+	data.ProcedureValue = inputSrc.ProcedureValue
+	data.ExecutionValue = inputSrc.ExecutionValue
+	data.Type_Code = inputSrc.Type_Code
+
+	//PROPER
+	// data.Operator_Employe_Id = inputSrc.Operator_Employe_Id
+	// data.Assistant_Employe_Id = inputSrc.Assistant_Employe_Id
+	// data.Instrumentor_Employe_Id = inputSrc.Instrumentor_Employe_Id
+	// data.Nurse_Code = inputSrc.Nurse_Code
+}

internal/use-case/main-use-case/procedure-report/lib.go

@@ -1,7 +1,7 @@
-package actionreport
+package procedurereport
 
 import (
-	e "simrs-vx/internal/domain/main-entities/action-report"
+	e "simrs-vx/internal/domain/main-entities/procedure-report"
 
 	plh "simrs-vx/pkg/lib-helper"
 	pl "simrs-vx/pkg/logger"
@@ -12,10 +12,10 @@ import (
 	"gorm.io/gorm"
 )
 
-func CreateData(input e.CreateDto, event *pl.Event, dbx ...*gorm.DB) (*e.ActionReport, error) {
+func CreateData(input e.CreateDto, event *pl.Event, dbx ...*gorm.DB) (*e.ProcedureReport, error) {
 	pl.SetLogInfo(event, nil, "started", "DBCreate")
 
-	data := e.ActionReport{}
+	data := e.ProcedureReport{}
 	setData(&input, &data)
 
 	var tx *gorm.DB
@@ -33,9 +33,9 @@ func CreateData(input e.CreateDto, event *pl.Event, dbx ...*gorm.DB) (*e.ActionR
 	return &data, nil
 }
 
-func ReadListData(input e.ReadListDto, event *pl.Event, dbx ...*gorm.DB) ([]e.ActionReport, *e.MetaDto, error) {
+func ReadListData(input e.ReadListDto, event *pl.Event, dbx ...*gorm.DB) ([]e.ProcedureReport, *e.MetaDto, error) {
 	pl.SetLogInfo(event, input, "started", "DBReadList")
-	data := []e.ActionReport{}
+	data := []e.ProcedureReport{}
 	pagination := gh.Pagination{}
 	count := int64(0)
 	meta := e.MetaDto{}
@@ -48,7 +48,7 @@ func ReadListData(input e.ReadListDto, event *pl.Event, dbx ...*gorm.DB) ([]e.Ac
 	}
 
 	tx = tx.
-		Model(&e.ActionReport{}).
+		Model(&e.ProcedureReport{}).
 		Scopes(gh.Preload(input.Includes)).
 		Scopes(gh.Filter(input.FilterDto)).
 		Count(&count).
@@ -70,9 +70,9 @@ func ReadListData(input e.ReadListDto, event *pl.Event, dbx ...*gorm.DB) ([]e.Ac
 	return data, &meta, nil
 }
 
-func ReadDetailData(input e.ReadDetailDto, event *pl.Event, dbx ...*gorm.DB) (*e.ActionReport, error) {
+func ReadDetailData(input e.ReadDetailDto, event *pl.Event, dbx ...*gorm.DB) (*e.ProcedureReport, error) {
 	pl.SetLogInfo(event, input, "started", "DBReadDetail")
-	data := e.ActionReport{}
+	data := e.ProcedureReport{}
 
 	var tx *gorm.DB
 	if len(dbx) > 0 {
@@ -91,7 +91,7 @@ func ReadDetailData(input e.ReadDetailDto, event *pl.Event, dbx ...*gorm.DB) (*e
 	return &data, nil
 }
 
-func UpdateData(input e.UpdateDto, data *e.ActionReport, event *pl.Event, dbx ...*gorm.DB) error {
+func UpdateData(input e.UpdateDto, data *e.ProcedureReport, event *pl.Event, dbx ...*gorm.DB) error {
 	pl.SetLogInfo(event, data, "started", "DBUpdate")
 	setData(&input, data)
 
@@ -116,7 +116,7 @@ func UpdateData(input e.UpdateDto, data *e.ActionReport, event *pl.Event, dbx ..
 	return nil
 }
 
-func DeleteData(data *e.ActionReport, event *pl.Event, dbx ...*gorm.DB) error {
+func DeleteData(data *e.ProcedureReport, event *pl.Event, dbx ...*gorm.DB) error {
 	pl.SetLogInfo(event, data, "started", "DBDelete")
 	var tx *gorm.DB
 	if len(dbx) > 0 {

internal/use-case/main-use-case/procedure-report/middleware-runner.go

@@ -0,0 +1,103 @@
+package procedurereport
+
+import (
+	e "simrs-vx/internal/domain/main-entities/procedure-report"
+	pl "simrs-vx/pkg/logger"
+	pu "simrs-vx/pkg/use-case-helper"
+
+	"gorm.io/gorm"
+)
+
+type middlewareRunner struct {
+	Event  *pl.Event
+	Tx     *gorm.DB
+	MwType pu.MWType
+}
+
+// NewMiddlewareExecutor creates a new middleware executor
+func newMiddlewareRunner(event *pl.Event, tx *gorm.DB) *middlewareRunner {
+	return &middlewareRunner{
+		Event: event,
+		Tx:    tx,
+	}
+}
+
+// ExecuteCreateMiddleware executes create middleware
+func (me *middlewareRunner) RunCreateMiddleware(middlewares []createMw, input *e.CreateDto, data *e.ProcedureReport) error {
+	for _, middleware := range middlewares {
+		logData := pu.GetLogData(input, data)
+
+		pl.SetLogInfo(me.Event, logData, "started", middleware.Name)
+
+		if err := middleware.Func(input, data, me.Tx); err != nil {
+			return pu.HandleMiddlewareError(me.Event, string(me.MwType), middleware.Name, logData, err)
+		}
+
+		pl.SetLogInfo(me.Event, nil, "complete")
+	}
+	return nil
+}
+
+func (me *middlewareRunner) RunReadListMiddleware(middlewares []readListMw, input *e.ReadListDto, data *e.ProcedureReport) error {
+	for _, middleware := range middlewares {
+		logData := pu.GetLogData(input, data)
+
+		pl.SetLogInfo(me.Event, logData, "started", middleware.Name)
+
+		if err := middleware.Func(input, data, me.Tx); err != nil {
+			return pu.HandleMiddlewareError(me.Event, string(me.MwType), middleware.Name, logData, err)
+		}
+
+		pl.SetLogInfo(me.Event, nil, "complete")
+	}
+	return nil
+}
+
+func (me *middlewareRunner) RunReadDetailMiddleware(middlewares []readDetailMw, input *e.ReadDetailDto, data *e.ProcedureReport) error {
+	for _, middleware := range middlewares {
+		logData := pu.GetLogData(input, data)
+
+		pl.SetLogInfo(me.Event, logData, "started", middleware.Name)
+
+		if err := middleware.Func(input, data, me.Tx); err != nil {
+			return pu.HandleMiddlewareError(me.Event, string(me.MwType), middleware.Name, logData, err)
+		}
+
+		pl.SetLogInfo(me.Event, nil, "complete")
+	}
+	return nil
+}
+
+func (me *middlewareRunner) RunUpdateMiddleware(middlewares []readDetailMw, input *e.ReadDetailDto, data *e.ProcedureReport) error {
+	for _, middleware := range middlewares {
+		logData := pu.GetLogData(input, data)
+
+		pl.SetLogInfo(me.Event, logData, "started", middleware.Name)
+
+		if err := middleware.Func(input, data, me.Tx); err != nil {
+			return pu.HandleMiddlewareError(me.Event, string(me.MwType), middleware.Name, logData, err)
+		}
+
+		pl.SetLogInfo(me.Event, nil, "complete")
+	}
+	return nil
+}
+
+func (me *middlewareRunner) RunDeleteMiddleware(middlewares []readDetailMw, input *e.ReadDetailDto, data *e.ProcedureReport) error {
+	for _, middleware := range middlewares {
+		logData := pu.GetLogData(input, data)
+
+		pl.SetLogInfo(me.Event, logData, "started", middleware.Name)
+
+		if err := middleware.Func(input, data, me.Tx); err != nil {
+			return pu.HandleMiddlewareError(me.Event, string(me.MwType), middleware.Name, logData, err)
+		}
+
+		pl.SetLogInfo(me.Event, nil, "complete")
+	}
+	return nil
+}
+
+func (me *middlewareRunner) setMwType(mwType pu.MWType) {
+	me.MwType = mwType
+}

internal/use-case/main-use-case/procedure-report/middleware.go

@@ -0,0 +1,9 @@
+package procedurereport
+
+// example of middleware
+// func init() {
+// 	createPreMw = append(createPreMw,
+// 		CreateMw{Name: "modif-input", Func: pm.ModifInput},
+// 		CreateMw{Name: "check-data", Func: pm.CheckData},
+// 	)
+// }

internal/use-case/main-use-case/procedure-report/tycovar.go

@@ -0,0 +1,44 @@
+/*
+DESCRIPTION:
+A sample, part of the package that contains type, constants, and/or variables.
+
+In this sample it also provides type and variable regarding the needs of the
+middleware to separate from main use-case which has the basic CRUD
+functionality. The purpose of this is to make the code more maintainable.
+*/
+package procedurereport
+
+import (
+	"gorm.io/gorm"
+
+	e "simrs-vx/internal/domain/main-entities/procedure-report"
+)
+
+type createMw struct {
+	Name string
+	Func func(input *e.CreateDto, data *e.ProcedureReport, tx *gorm.DB) error
+}
+
+type readListMw struct {
+	Name string
+	Func func(input *e.ReadListDto, data *e.ProcedureReport, tx *gorm.DB) error
+}
+
+type readDetailMw struct {
+	Name string
+	Func func(input *e.ReadDetailDto, data *e.ProcedureReport, tx *gorm.DB) error
+}
+
+type UpdateMw = readDetailMw
+type DeleteMw = readDetailMw
+
+var createPreMw []createMw      // preprocess middleware
+var createPostMw []createMw     // postprocess middleware
+var readListPreMw []readListMw  // ..
+var readListPostMw []readListMw // ..
+var readDetailPreMw []readDetailMw
+var readDetailPostMw []readDetailMw
+var updatePreMw []readDetailMw
+var updatePostMw []readDetailMw
+var deletePreMw []readDetailMw
+var deletePostMw []readDetailMw

internal/use-case/main-use-case/screening/case.go

@@ -0,0 +1,320 @@
+package screening
+
+import (
+	"errors"
+	"strconv"
+
+	e "simrs-vx/internal/domain/main-entities/screening"
+
+	erc "simrs-vx/internal/domain/references/clinical"
+
+	dg "github.com/karincake/apem/db-gorm-pg"
+	d "github.com/karincake/dodol"
+
+	pl "simrs-vx/pkg/logger"
+	pu "simrs-vx/pkg/use-case-helper"
+
+	"gorm.io/gorm"
+)
+
+const source = "screening"
+
+func Create(input e.CreateDto) (*d.Data, error) {
+	data := e.Screening{}
+
+	event := pl.Event{
+		Feature: "Create",
+		Source:  source,
+	}
+
+	// Start log
+	pl.SetLogInfo(&event, input, "started", "create")
+
+	err := dg.I.Transaction(func(tx *gorm.DB) error {
+		mwRunner := newMiddlewareRunner(&event, tx)
+		mwRunner.setMwType(pu.MWTPre)
+		// Run pre-middleware
+		if err := mwRunner.RunCreateMiddleware(createPreMw, &input, &data); err != nil {
+			return err
+		}
+
+		if !pu.Contains([]erc.ScreeningFormTypeCode{erc.SFTCB, erc.SFTCA}, input.Type) {
+			return errors.New("invalid screening form type")
+		}
+
+		if !input.AuthInfo.IsScreener() {
+			event.Status = "failed"
+			event.ErrInfo = pl.ErrorInfo{
+				Code:   "auth-forbidden",
+				Detail: "user position is not allowed",
+				Raw:    errors.New("authentication failed"),
+			}
+			return pl.SetLogError(&event, input)
+		}
+
+		if input.AuthInfo.Employee_Id != nil {
+			v := uint(*input.AuthInfo.Employee_Id)
+			input.Employee_Id = &v
+		} else {
+			input.Employee_Id = nil
+		}
+
+		switch input.Type {
+		case erc.SFTCA:
+			s, _, err := ReadListData(e.ReadListDto{FilterDto: e.FilterDto{Type: erc.SFTCA}}, &event, tx)
+			if err != nil {
+				return err
+			}
+			if len(s) > 0 {
+				return errors.New("screening form type A is already created for this encounter")
+			}
+		case erc.SFTCB:
+			s, _, err := ReadListData(e.ReadListDto{FilterDto: e.FilterDto{Type: erc.SFTCA}}, &event, tx)
+			if err != nil {
+				return err
+			}
+			if len(s) < 1 {
+				return errors.New("screening form type A is not created yet, please create it first")
+			}
+		}
+
+		if resData, err := CreateData(input, &event, tx); err != nil {
+			return err
+		} else {
+			data = *resData
+		}
+
+		mwRunner.setMwType(pu.MWTPost)
+		// Run post-middleware
+		if err := mwRunner.RunCreateMiddleware(createPostMw, &input, &data); err != nil {
+			return err
+		}
+
+		pl.SetLogInfo(&event, nil, "complete")
+
+		return nil
+	})
+
+	if err != nil {
+		return nil, err
+	}
+
+	return &d.Data{
+		Meta: d.II{
+			"source":    source,
+			"structure": "single-data",
+			"status":    "created",
+		},
+		Data: data.ToResponse(),
+	}, nil
+}
+
+func ReadList(input e.ReadListDto) (*d.Data, error) {
+	var data *e.Screening
+	var dataList []e.Screening
+	var metaList *e.MetaDto
+	var err error
+
+	event := pl.Event{
+		Feature: "ReadList",
+		Source:  source,
+	}
+
+	// Start log
+	pl.SetLogInfo(&event, input, "started", "readList")
+
+	err = dg.I.Transaction(func(tx *gorm.DB) error {
+		mwRunner := newMiddlewareRunner(&event, tx)
+		mwRunner.setMwType(pu.MWTPre)
+		// Run pre-middleware
+		if err := mwRunner.RunReadListMiddleware(readListPreMw, &input, data); err != nil {
+			return err
+		}
+
+		if dataList, metaList, err = ReadListData(input, &event, tx); err != nil {
+			return err
+		}
+
+		mwRunner.setMwType(pu.MWTPost)
+		// Run post-middleware
+		if err := mwRunner.RunReadListMiddleware(readListPostMw, &input, data); err != nil {
+			return err
+		}
+
+		return nil
+	})
+
+	if err != nil {
+		return nil, err
+	}
+
+	return &d.Data{
+		Meta: d.IS{
+			"source":              source,
+			"structure":           "list-data",
+			"status":              "fetched",
+			"page_number":         strconv.Itoa(metaList.PageNumber),
+			"page_size":           strconv.Itoa(metaList.PageSize),
+			"record_totalCount":   strconv.Itoa(metaList.Count),
+			"record_currentCount": strconv.Itoa(len(dataList)),
+		},
+		Data: e.ToResponseList(dataList),
+	}, nil
+}
+
+func ReadDetail(input e.ReadDetailDto) (*d.Data, error) {
+	var data *e.Screening
+	var err error
+
+	event := pl.Event{
+		Feature: "ReadDetail",
+		Source:  source,
+	}
+
+	// Start log
+	pl.SetLogInfo(&event, input, "started", "readDetail")
+
+	err = dg.I.Transaction(func(tx *gorm.DB) error {
+		mwRunner := newMiddlewareRunner(&event, tx)
+		mwRunner.setMwType(pu.MWTPre)
+		// Run pre-middleware
+		if err := mwRunner.RunReadDetailMiddleware(readDetailPreMw, &input, data); err != nil {
+			return err
+		}
+
+		if data, err = ReadDetailData(input, &event, tx); err != nil {
+			return err
+		}
+
+		mwRunner.setMwType(pu.MWTPost)
+		// Run post-middleware
+		if err := mwRunner.RunReadDetailMiddleware(readDetailPostMw, &input, data); err != nil {
+			return err
+		}
+
+		return nil
+	})
+
+	if err != nil {
+		return nil, err
+	}
+
+	return &d.Data{
+		Meta: d.IS{
+			"source":    source,
+			"structure": "single-data",
+			"status":    "fetched",
+		},
+		Data: data.ToResponse(),
+	}, nil
+}
+
+func Update(input e.UpdateDto) (*d.Data, error) {
+	rdDto := e.ReadDetailDto{Id: input.Id}
+	var data *e.Screening
+	var err error
+
+	event := pl.Event{
+		Feature: "Update",
+		Source:  source,
+	}
+
+	// Start log
+	pl.SetLogInfo(&event, input, "started", "update")
+
+	err = dg.I.Transaction(func(tx *gorm.DB) error {
+		pl.SetLogInfo(&event, rdDto, "started", "DBReadDetail")
+		if data, err = ReadDetailData(rdDto, &event, tx); err != nil {
+			return err
+		}
+
+		mwRunner := newMiddlewareRunner(&event, tx)
+		mwRunner.setMwType(pu.MWTPre)
+		// Run pre-middleware
+		if err := mwRunner.RunUpdateMiddleware(readDetailPreMw, &rdDto, data); err != nil {
+			return err
+		}
+
+		if err := UpdateData(input, data, &event, tx); err != nil {
+			return err
+		}
+
+		pl.SetLogInfo(&event, nil, "complete")
+
+		mwRunner.setMwType(pu.MWTPost)
+		// Run post-middleware
+		if err := mwRunner.RunUpdateMiddleware(readDetailPostMw, &rdDto, data); err != nil {
+			return err
+		}
+
+		return nil
+	})
+
+	if err != nil {
+		return nil, err
+	}
+
+	return &d.Data{
+		Meta: d.IS{
+			"source":    source,
+			"structure": "single-data",
+			"status":    "updated",
+		},
+		Data: data.ToResponse(),
+	}, nil
+
+}
+
+func Delete(input e.DeleteDto) (*d.Data, error) {
+	rdDto := e.ReadDetailDto{Id: input.Id}
+	var data *e.Screening
+	var err error
+
+	event := pl.Event{
+		Feature: "Delete",
+		Source:  source,
+	}
+
+	// Start log
+	pl.SetLogInfo(&event, input, "started", "delete")
+
+	err = dg.I.Transaction(func(tx *gorm.DB) error {
+		pl.SetLogInfo(&event, rdDto, "started", "DBReadDetail")
+		if data, err = ReadDetailData(rdDto, &event, tx); err != nil {
+			return err
+		}
+
+		mwRunner := newMiddlewareRunner(&event, tx)
+		mwRunner.setMwType(pu.MWTPre)
+		// Run pre-middleware
+		if err := mwRunner.RunDeleteMiddleware(readDetailPreMw, &rdDto, data); err != nil {
+			return err
+		}
+
+		if err := DeleteData(data, &event, tx); err != nil {
+			return err
+		}
+
+		mwRunner.setMwType(pu.MWTPost)
+		// Run post-middleware
+		if err := mwRunner.RunDeleteMiddleware(readDetailPostMw, &rdDto, data); err != nil {
+			return err
+		}
+
+		return nil
+	})
+
+	if err != nil {
+		return nil, err
+	}
+
+	return &d.Data{
+		Meta: d.IS{
+			"source":    source,
+			"structure": "single-data",
+			"status":    "deleted",
+		},
+		Data: data.ToResponse(),
+	}, nil
+
+}

internal/use-case/main-use-case/screening/helper.go

@@ -0,0 +1,26 @@
+/*
+DESCRIPTION:
+Any functions that are used internally by the use-case
+*/
+package screening
+
+import (
+	e "simrs-vx/internal/domain/main-entities/screening"
+	erc "simrs-vx/internal/domain/references/common"
+)
+
+func setData[T *e.CreateDto | *e.UpdateDto](input T, data *e.Screening) {
+	var inputSrc *e.CreateDto
+	if inputT, ok := any(input).(*e.CreateDto); ok {
+		inputSrc = inputT
+		data.Status = erc.DVCValidated
+	} else {
+		inputTemp := any(input).(*e.UpdateDto)
+		inputSrc = &inputTemp.CreateDto
+	}
+
+	data.Encounter_Id = inputSrc.Encounter_Id
+	data.Employee_Id = inputSrc.Employee_Id
+	data.Type = inputSrc.Type
+	data.Value = inputSrc.Value
+}

internal/use-case/main-use-case/screening/lib.go

@@ -0,0 +1,140 @@
+package screening
+
+import (
+	e "simrs-vx/internal/domain/main-entities/screening"
+
+	plh "simrs-vx/pkg/lib-helper"
+	pl "simrs-vx/pkg/logger"
+	pu "simrs-vx/pkg/use-case-helper"
+
+	dg "github.com/karincake/apem/db-gorm-pg"
+	gh "github.com/karincake/getuk"
+	"gorm.io/gorm"
+)
+
+func CreateData(input e.CreateDto, event *pl.Event, dbx ...*gorm.DB) (*e.Screening, error) {
+	pl.SetLogInfo(event, nil, "started", "DBCreate")
+
+	data := e.Screening{}
+	setData(&input, &data)
+
+	var tx *gorm.DB
+	if len(dbx) > 0 {
+		tx = dbx[0]
+	} else {
+		tx = dg.I
+	}
+
+	if err := tx.Create(&data).Error; err != nil {
+		return nil, plh.HandleCreateError(input, event, err)
+	}
+
+	pl.SetLogInfo(event, nil, "complete")
+	return &data, nil
+}
+
+func ReadListData(input e.ReadListDto, event *pl.Event, dbx ...*gorm.DB) ([]e.Screening, *e.MetaDto, error) {
+	pl.SetLogInfo(event, input, "started", "DBReadList")
+	data := []e.Screening{}
+	pagination := gh.Pagination{}
+	count := int64(0)
+	meta := e.MetaDto{}
+
+	var tx *gorm.DB
+	if len(dbx) > 0 {
+		tx = dbx[0]
+	} else {
+		tx = dg.I
+	}
+
+	tx = tx.
+		Model(&e.Screening{}).
+		Scopes(gh.Preload(input.Includes)).
+		Scopes(gh.Filter(input.FilterDto)).
+		Count(&count).
+		Scopes(gh.Paginate(input, &pagination)).
+		Scopes(gh.Sort(input.Sort))
+
+	if err := tx.Find(&data).Error; err != nil {
+		if err == gorm.ErrRecordNotFound {
+			return nil, &meta, nil
+		}
+		return nil, nil, plh.HandleListError(input, event, err)
+	}
+
+	meta.Count = int(count)
+	meta.PageNumber = pagination.PageNumber
+	meta.PageSize = pagination.PageSize
+
+	pl.SetLogInfo(event, nil, "complete")
+	return data, &meta, nil
+}
+
+func ReadDetailData(input e.ReadDetailDto, event *pl.Event, dbx ...*gorm.DB) (*e.Screening, error) {
+	pl.SetLogInfo(event, input, "started", "DBReadDetail")
+	data := e.Screening{}
+
+	var tx *gorm.DB
+	if len(dbx) > 0 {
+		tx = dbx[0]
+	} else {
+		tx = dg.I
+	}
+
+	if err := tx.Scopes(gh.Preload(input.Includes)).First(&data, input.Id).Error; err != nil {
+		if processedErr := pu.HandleReadError(err, event, source, input.Id, data); processedErr != nil {
+			return nil, processedErr
+		}
+	}
+
+	pl.SetLogInfo(event, nil, "complete")
+	return &data, nil
+}
+
+func UpdateData(input e.UpdateDto, data *e.Screening, event *pl.Event, dbx ...*gorm.DB) error {
+	pl.SetLogInfo(event, data, "started", "DBUpdate")
+	setData(&input, data)
+
+	var tx *gorm.DB
+	if len(dbx) > 0 {
+		tx = dbx[0]
+	} else {
+		tx = dg.I
+	}
+
+	if err := tx.Save(&data).Error; err != nil {
+		event.Status = "failed"
+		event.ErrInfo = pl.ErrorInfo{
+			Code:   "data-update-fail",
+			Detail: "Database update failed",
+			Raw:    err,
+		}
+		return pl.SetLogError(event, input)
+	}
+
+	pl.SetLogInfo(event, nil, "complete")
+	return nil
+}
+
+func DeleteData(data *e.Screening, event *pl.Event, dbx ...*gorm.DB) error {
+	pl.SetLogInfo(event, data, "started", "DBDelete")
+	var tx *gorm.DB
+	if len(dbx) > 0 {
+		tx = dbx[0]
+	} else {
+		tx = dg.I
+	}
+
+	if err := tx.Delete(&data).Error; err != nil {
+		event.Status = "failed"
+		event.ErrInfo = pl.ErrorInfo{
+			Code:   "data-delete-fail",
+			Detail: "Database delete failed",
+			Raw:    err,
+		}
+		return pl.SetLogError(event, data)
+	}
+
+	pl.SetLogInfo(event, nil, "complete")
+	return nil
+}

internal/use-case/main-use-case/screening/middleware-runner.go

@@ -1,7 +1,7 @@
-package actionreport
+package screening
 
 import (
-	e "simrs-vx/internal/domain/main-entities/action-report"
+	e "simrs-vx/internal/domain/main-entities/screening"
 	pl "simrs-vx/pkg/logger"
 	pu "simrs-vx/pkg/use-case-helper"
 
@@ -23,7 +23,7 @@ func newMiddlewareRunner(event *pl.Event, tx *gorm.DB) *middlewareRunner {
 }
 
 // ExecuteCreateMiddleware executes create middleware
-func (me *middlewareRunner) RunCreateMiddleware(middlewares []createMw, input *e.CreateDto, data *e.ActionReport) error {
+func (me *middlewareRunner) RunCreateMiddleware(middlewares []createMw, input *e.CreateDto, data *e.Screening) error {
 	for _, middleware := range middlewares {
 		logData := pu.GetLogData(input, data)
 
@@ -38,7 +38,7 @@ func (me *middlewareRunner) RunCreateMiddleware(middlewares []createMw, input *e
 	return nil
 }
 
-func (me *middlewareRunner) RunReadListMiddleware(middlewares []readListMw, input *e.ReadListDto, data *e.ActionReport) error {
+func (me *middlewareRunner) RunReadListMiddleware(middlewares []readListMw, input *e.ReadListDto, data *e.Screening) error {
 	for _, middleware := range middlewares {
 		logData := pu.GetLogData(input, data)
 
@@ -53,7 +53,7 @@ func (me *middlewareRunner) RunReadListMiddleware(middlewares []readListMw, inpu
 	return nil
 }
 
-func (me *middlewareRunner) RunReadDetailMiddleware(middlewares []readDetailMw, input *e.ReadDetailDto, data *e.ActionReport) error {
+func (me *middlewareRunner) RunReadDetailMiddleware(middlewares []readDetailMw, input *e.ReadDetailDto, data *e.Screening) error {
 	for _, middleware := range middlewares {
 		logData := pu.GetLogData(input, data)
 
@@ -68,7 +68,7 @@ func (me *middlewareRunner) RunReadDetailMiddleware(middlewares []readDetailMw,
 	return nil
 }
 
-func (me *middlewareRunner) RunUpdateMiddleware(middlewares []readDetailMw, input *e.ReadDetailDto, data *e.ActionReport) error {
+func (me *middlewareRunner) RunUpdateMiddleware(middlewares []readDetailMw, input *e.ReadDetailDto, data *e.Screening) error {
 	for _, middleware := range middlewares {
 		logData := pu.GetLogData(input, data)
 
@@ -83,7 +83,7 @@ func (me *middlewareRunner) RunUpdateMiddleware(middlewares []readDetailMw, inpu
 	return nil
 }
 
-func (me *middlewareRunner) RunDeleteMiddleware(middlewares []readDetailMw, input *e.ReadDetailDto, data *e.ActionReport) error {
+func (me *middlewareRunner) RunDeleteMiddleware(middlewares []readDetailMw, input *e.ReadDetailDto, data *e.Screening) error {
 	for _, middleware := range middlewares {
 		logData := pu.GetLogData(input, data)
 

internal/use-case/main-use-case/screening/middleware.go

@@ -1,4 +1,4 @@
-package actionreport
+package screening
 
 // example of middleware
 // func init() {

internal/use-case/main-use-case/screening/tycovar.go

@@ -6,27 +6,27 @@ In this sample it also provides type and variable regarding the needs of the
 middleware to separate from main use-case which has the basic CRUD
 functionality. The purpose of this is to make the code more maintainable.
 */
-package actionreport
+package screening
 
 import (
 	"gorm.io/gorm"
 
-	e "simrs-vx/internal/domain/main-entities/action-report"
+	e "simrs-vx/internal/domain/main-entities/screening"
 )
 
 type createMw struct {
 	Name string
-	Func func(input *e.CreateDto, data *e.ActionReport, tx *gorm.DB) error
+	Func func(input *e.CreateDto, data *e.Screening, tx *gorm.DB) error
 }
 
 type readListMw struct {
 	Name string
-	Func func(input *e.ReadListDto, data *e.ActionReport, tx *gorm.DB) error
+	Func func(input *e.ReadListDto, data *e.Screening, tx *gorm.DB) error
 }
 
 type readDetailMw struct {
 	Name string
-	Func func(input *e.ReadDetailDto, data *e.ActionReport, tx *gorm.DB) error
+	Func func(input *e.ReadDetailDto, data *e.Screening, tx *gorm.DB) error
 }
 
 type UpdateMw = readDetailMw

internal/use-case/main-use-case/user/case.go

@@ -166,7 +166,7 @@ func Create(input e.CreateDto) (*d.Data, error) {
 			if _, err := umw.CreateData(createMidWife, &event, tx); err != nil {
 				return err
 			}
-		case ero.EPCReg:
+		case ero.EPCReg, ero.EPCScr:
 			// do nothing
 		default:
 			return errors.New("invalid employee position")
@@ -523,6 +523,8 @@ func Update(input e.UpdateDto) (*d.Data, error) {
 			if _, err := umw.CreateData(createMidWife, &event, tx); err != nil {
 				return err
 			}
+		case ero.EPCReg, ero.EPCScr:
+			// do nothing
 		default:
 			return errors.New("invalid employee position")
 		}