wip, need to test

assets/docs/control-letter.html

@@ -37,7 +37,7 @@
             </td>
             <td>
                 <div>
-                    No. :replace
+                    No. : {{ .Number }}
                 </div>
             </td>
         </tr>
@@ -52,10 +52,10 @@
             </td>
             <td>
                 <div>
-                    DANI SETIAWAN
+                    {{ .Doctor_Name }}
                 </div>
                 <div>
-                    Sp./Sub. Rehabilitasi Medik
+                    Sp./Sub. {{ .DstUnit_Name }}
                 </div>
             </td>
         </tr>
@@ -72,7 +72,7 @@
                 No.Kartu
             </td>
             <td>
-                :Replace
+                : {{ .CardNumber }}
             </td>
         </tr>
         <tr>
@@ -80,7 +80,7 @@
                 Nama Peserta
             </td>
             <td>
-                :Replace
+                : {{ .Name }}
             </td>
         </tr>
         <tr>
@@ -88,7 +88,7 @@
                 Tgl.Lahir
             </td>
             <td>
-                :Replace
+                : {{ .BirthDate }}
             </td>
         </tr>
         <tr>
@@ -96,7 +96,7 @@
                 Diagnosa
             </td>
             <td>
-                :Replace
+                : {{ .Diagnose }}
             </td>
         </tr>
         <tr>
@@ -104,7 +104,7 @@
                 Rencana Kontrol
             </td>
             <td>
-                :Replace
+                : {{ .PlanDate }}
             </td>
         </tr>
     </table>
@@ -117,13 +117,13 @@
         <tr>
             <td></td>
             <td style="width: 15rem;">
-                Mengetahui, DPJP :Replace
+                Mengetahui, DPJP : {{ .ResponsibleDoctor_Name }}
             </td>
         </tr>
     </table>
 
     <div style="margin-top: 6rem;">
-        Tgl. Entry: 2025-06-07 | Tgl. Cetak: 07-06-2025 16:52 PM
+        Tgl. Cetak : {{ .PrintDate }}
     </div>    
 
     <div style="height: 3rem;"></div>

internal/domain/bpjs-entities/vclaim-sep-control-letter/dto.go

@@ -6,6 +6,9 @@ import (
 
 type CreateDto struct {
 	VclaimSep_Number *string `json:"vclaimSep_number"`
+	Number           *string `json:"number" gorm:"unique;size:20"`
+	Value            *string `json:"value"`
+	FileUrl          *string `json:"fileUrl" gorm:"unique;size:1024"`
 }
 
 type ReadListDto struct {
@@ -20,7 +23,8 @@ type FilterDto struct {
 }
 
 type ReadDetailDto struct {
-	Id uint `json:"id"`
+	Id     *uint   `json:"id"`
+	Number *string `json:"number"`
 }
 
 type UpdateDto struct {
@@ -29,7 +33,8 @@ type UpdateDto struct {
 }
 
 type DeleteDto struct {
-	Id uint `json:"id"`
+	Id     uint    `json:"id"`
+	Number *string `json:"number"`
 }
 
 type MetaDto struct {
@@ -41,12 +46,17 @@ type MetaDto struct {
 type ResponseDto struct {
 	ecore.Main
 	VclaimSep_Number *string `json:"vclaimSep_number"`
-	Counter          *uint   `json:"counter"`
+	Number           *string `json:"number"`
+	Value            *string `json:"value"`
+	FileUrl          *string `json:"fileUrl"`
 }
 
 func (d VclaimSepControlLetter) ToResponse() ResponseDto {
 	resp := ResponseDto{
 		VclaimSep_Number: d.VclaimSep_Number,
+		Number:           d.Number,
+		Value:            d.Value,
+		FileUrl:          d.FileUrl,
 	}
 	resp.Main = d.Main
 	return resp

internal/domain/references/encounter/encounter.go

@@ -120,6 +120,7 @@ const (
 	DTCSEP       DocTypeCode = "vclaim-sep"  // SEP
 	DTCSIPP      DocTypeCode = "vclaim-sipp" // SIPP
 	DTCGC        DocTypeCode = "general-consent"
+	DTCVSCL      DocTypeCode = "vclaim-control-letter" // vclaim control letter
 
 	ETCPerson    EntityTypeCode = "person"
 	ETCEncounter EntityTypeCode = "encounter"

internal/use-case/bpjs-use-case/vclaim-sep-control-letter/case.go

@@ -0,0 +1,277 @@
+package vclaimsepcontrolletter
+
+import (
+	"strconv"
+
+	e "simrs-vx/internal/domain/bpjs-entities/vclaim-sep-control-letter"
+
+	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 = "vclaim-sep-control-letter"
+
+func Create(input e.CreateDto) (*d.Data, error) {
+	data := e.VclaimSepControlLetter{}
+
+	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 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.VclaimSepControlLetter
+	var dataList []e.VclaimSepControlLetter
+	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.VclaimSepControlLetter
+	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{Number: input.Number}
+	var data *e.VclaimSepControlLetter
+	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{Number: input.Number}
+	var data *e.VclaimSepControlLetter
+	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/bpjs-use-case/vclaim-sep-control-letter/helper.go

@@ -0,0 +1,24 @@
+/*
+DESCRIPTION:
+Any functions that are used internally by the use-case
+*/
+package vclaimsepcontrolletter
+
+import (
+	e "simrs-vx/internal/domain/bpjs-entities/vclaim-sep-control-letter"
+)
+
+func setData[T *e.CreateDto | *e.UpdateDto](input T, data *e.VclaimSepControlLetter) {
+	var inputSrc *e.CreateDto
+	if inputT, ok := any(input).(*e.CreateDto); ok {
+		inputSrc = inputT
+	} else {
+		inputTemp := any(input).(*e.UpdateDto)
+		inputSrc = &inputTemp.CreateDto
+	}
+
+	data.VclaimSep_Number = inputSrc.VclaimSep_Number
+	data.Number = inputSrc.Number
+	data.Value = inputSrc.Value
+	data.FileUrl = inputSrc.FileUrl
+}

internal/use-case/bpjs-use-case/vclaim-sep-control-letter/lib.go

@@ -0,0 +1,148 @@
+package vclaimsepcontrolletter
+
+import (
+	e "simrs-vx/internal/domain/bpjs-entities/vclaim-sep-control-letter"
+
+	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.VclaimSepControlLetter, error) {
+	pl.SetLogInfo(event, nil, "started", "DBCreate")
+
+	data := e.VclaimSepControlLetter{}
+
+	var tx *gorm.DB
+	if len(dbx) > 0 {
+		tx = dbx[0]
+	} else {
+		tx = dg.I
+	}
+
+	setData(&input, &data)
+
+	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.VclaimSepControlLetter, *e.MetaDto, error) {
+	pl.SetLogInfo(event, input, "started", "DBReadList")
+	data := []e.VclaimSepControlLetter{}
+	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.VclaimSepControlLetter{}).
+		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.VclaimSepControlLetter, error) {
+	pl.SetLogInfo(event, input, "started", "DBReadDetail")
+	data := e.VclaimSepControlLetter{}
+
+	var tx *gorm.DB
+	if len(dbx) > 0 {
+		tx = dbx[0]
+	} else {
+		tx = dg.I
+	}
+
+	if input.Number != nil {
+		tx = tx.Where("\"Number\" = ?", *input.Number)
+	}
+	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
+		}
+	}
+
+	pl.SetLogInfo(event, nil, "complete")
+	return &data, nil
+}
+
+func UpdateData(input e.UpdateDto, data *e.VclaimSepControlLetter, 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.VclaimSepControlLetter, 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/bpjs-use-case/vclaim-sep-control-letter/middleware-runner.go

@@ -0,0 +1,103 @@
+package vclaimsepcontrolletter
+
+import (
+	e "simrs-vx/internal/domain/bpjs-entities/vclaim-sep-control-letter"
+	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.VclaimSepControlLetter) 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.VclaimSepControlLetter) 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.VclaimSepControlLetter) 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.VclaimSepControlLetter) 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.VclaimSepControlLetter) 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/bpjs-use-case/vclaim-sep-control-letter/middleware.go

@@ -0,0 +1,9 @@
+package vclaimsepcontrolletter
+
+// 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/bpjs-use-case/vclaim-sep-control-letter/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 vclaimsepcontrolletter
+
+import (
+	"gorm.io/gorm"
+
+	e "simrs-vx/internal/domain/bpjs-entities/vclaim-sep-control-letter"
+)
+
+type createMw struct {
+	Name string
+	Func func(input *e.CreateDto, data *e.VclaimSepControlLetter, tx *gorm.DB) error
+}
+
+type readListMw struct {
+	Name string
+	Func func(input *e.ReadListDto, data *e.VclaimSepControlLetter, tx *gorm.DB) error
+}
+
+type readDetailMw struct {
+	Name string
+	Func func(input *e.ReadDetailDto, data *e.VclaimSepControlLetter, 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/generate-file/case.go

@@ -4,9 +4,15 @@ import (
 	"encoding/json"
 	"errors"
 
+	evs "simrs-vx/internal/domain/bpjs-entities/vclaim-sep"
+	evscl "simrs-vx/internal/domain/bpjs-entities/vclaim-sep-control-letter"
 	egc "simrs-vx/internal/domain/main-entities/general-consent"
+
+	uvs "simrs-vx/internal/use-case/bpjs-use-case/vclaim-sep"
+	uvscl "simrs-vx/internal/use-case/bpjs-use-case/vclaim-sep-control-letter"
 	ugc "simrs-vx/internal/use-case/main-use-case/general-consent"
 
+	pc "simrs-vx/pkg/conv-helper"
 	pl "simrs-vx/pkg/logger"
 	pu "simrs-vx/pkg/use-case-helper"
 
@@ -25,6 +31,8 @@ func Generate(input GenerateDto) (*d.Data, error) {
 		Source:  source,
 	}
 
+	var response ResponseDto
+
 	// Start log
 	pl.SetLogInfo(&event, input, "started", "create")
 
@@ -32,7 +40,7 @@ func Generate(input GenerateDto) (*d.Data, error) {
 	// general-consent
 	case ere.DTCGC:
 		// get value from general consent by ref_id
-		gc, err := ugc.ReadDetailData(egc.ReadDetailDto{Id: *input.Ref_Id}, &event)
+		gc, err := ugc.ReadDetailData(egc.ReadDetailDto{Id: uint(*pc.StringToUint64(*input.Ref_Id))}, &event)
 		if err != nil {
 			return nil, err
 		}
@@ -75,20 +83,89 @@ func Generate(input GenerateDto) (*d.Data, error) {
 			return nil, err
 		}
 
-		response := ResponseDto{
+		response = ResponseDto{
+			FileUrl: urlPub,
+		}
+
+	// control-letter
+	case ere.DTCVSCL:
+		// get value from control letter by ref_id
+		cl, err := uvscl.ReadDetailData(evscl.ReadDetailDto{Number: input.Ref_Id}, &event)
+		if err != nil {
+			if !pu.IsDataNotFoundError(err) {
+				return nil, err
+			}
+		}
+
+		if cl != nil && cl.FileUrl != nil {
+			if err := removeFile(string(input.EntityType_Code), *cl.FileUrl); err != nil {
+				return nil, err
+			}
+		}
+
+		// map template data
+		clData := VclaimControlLetter{}
+		if input.Data != nil {
+			err := json.Unmarshal([]byte(*input.Data), &clData)
+			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")
+		}
+
+		if cl == nil {
+			createCL := evscl.CreateDto{
+				VclaimSep_Number: &clData.VclaimSep.Number,
+				Number:           &clData.Number,
+				Value:            input.Data,
+			}
+			if cl, err = uvscl.CreateData(createCL, &event); err != nil {
+				return nil, err
+			}
+
+		}
+		// get encounter id by vclaim sep number
+		vs, err := uvs.ReadDetailData(evs.ReadDetailDto{Number: &clData.VclaimSep.Number}, &event)
+		if err != nil {
+			return nil, err
+		}
+
+		input.FormatType = erc.DFTCPDF
+		input.TemplateName = TDNCL
+		input.Encounter_Id = vs.Encounter_Id
+
+		templateData := clData.generateTemplateData()
+		// generate file
+		urlPub, err := generateFile(input, templateData)
+		if err != nil {
+			return nil, err
+		}
+
+		cl.FileUrl = &urlPub
+		if err := dg.I.Save(&cl).Error; err != nil {
+			return nil, err
+		}
+
+		response = ResponseDto{
 			FileUrl: urlPub,
 		}
 
-		return &d.Data{
-			Meta: d.II{
-				"source":    source,
-				"structure": "single-data",
-				"status":    "created",
-			},
-			Data: response,
-		}, nil
 	default:
 		return nil, errors.New("invalid type code")
 	}
 
+	return &d.Data{
+		Meta: d.II{
+			"source":    source,
+			"structure": "single-data",
+			"status":    "created",
+		},
+		Data: response,
+	}, nil
 }

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

@@ -1,8 +1,13 @@
 package generatefile
 
 import (
+	"fmt"
+	"time"
+
 	erc "simrs-vx/internal/domain/references/common"
 	ere "simrs-vx/internal/domain/references/encounter"
+
+	pu "simrs-vx/pkg/use-case-helper"
 )
 
 type GeneralConsentPDF struct {
@@ -14,18 +19,34 @@ type GeneralConsentPDF struct {
 	Date        string   `json:"date"`
 }
 
+type ControlLetterPDF struct {
+	Number                 string
+	Doctor_Name            string
+	DstUnit_Name           string
+	CardNumber             string
+	Name                   string
+	BirthDate              string
+	Diagnose               string
+	PlanDate               string
+	ResponsibleDoctor_Name string
+	PrintDate              string
+}
+
 type GenerateDto struct {
 	EntityType_Code ere.EntityTypeCode    `json:"entityType_code" validate:"required"`
-	Ref_Id          *uint                 `json:"ref_id" validate:"required"`
+	Ref_Id          *string               `json:"ref_id" validate:"required"`
 	Type_Code       ere.DocTypeCode       `json:"type_code" validate:"required"`
 	FormatType      erc.DocFormatTypeCode `json:"formatType"`
 	TemplateName    TemplateDocsName      `json:"-"`
 	Encounter_Id    *uint                 `json:"-"`
+
+	Data *string `json:"data"`
 }
 
 type VclaimControlLetter struct {
 	Number                 string    `json:"noSuratKontrol"`
-	Date                   string    `json:"tglRencanaKontrol"`
+	PlannedControlDate     string    `json:"tglRencanaKontrol"`
+	IssuedDate             string    `json:"tglTerbit"`
 	Doctor_Name            string    `json:"namaDokter"`
 	DstUnit_Name           string    `json:"namaPoliTujuan"`
 	ResponsibleDoctor_Name string    `json:"namaDokterPembuat"`
@@ -60,4 +81,40 @@ type TemplateDocsName string
 // TemplateDocsName is the name of the template file in the assets/docs folder
 const (
 	TDNGC TemplateDocsName = "general-consent.html"
+	TDNCL TemplateDocsName = "control-letter.html"
 )
+
+func (v VclaimControlLetter) generateTemplateData() ControlLetterPDF {
+
+	return ControlLetterPDF{
+		Number:                 v.Number,
+		Doctor_Name:            v.Doctor_Name,
+		DstUnit_Name:           v.DstUnit_Name,
+		CardNumber:             v.VclaimSep.VclaimMember.CardNumber,
+		Name:                   v.generateNameWithGender(),
+		BirthDate:              v.generateBirthDate(),
+		Diagnose:               v.VclaimSep.Diagnose,
+		PlanDate:               v.PlannedControlDate,
+		ResponsibleDoctor_Name: v.ResponsibleDoctor_Name,
+		PrintDate:              generatePrintDate(),
+	}
+}
+
+func (v VclaimControlLetter) generateNameWithGender() string {
+	gender := "Perempuan"
+	if v.VclaimSep.VclaimMember.Gender == "L" {
+		gender = "Laki-Laki"
+	}
+
+	return fmt.Sprintf("%s (%s)", v.VclaimSep.VclaimMember.Name, gender)
+}
+
+func (v VclaimControlLetter) generateBirthDate() string {
+	t, _ := time.Parse("2006-01-02", v.VclaimSep.VclaimMember.BirthDate)
+	return pu.FormatIndonesianDate(t)
+}
+
+func generatePrintDate() string {
+	now := time.Now()
+	return now.Format("2006/01/02")
+}