Use CPONE user name for HIS LoginBuat

internal/http/login_buat.go

@@ -0,0 +1,16 @@
+package http
+
+import "strings"
+
+// HIS package tables limit LoginBuat to 30 characters.
+func requiredLoginBuat(payload map[string]any) (string, string) {
+	name, message := requiredString(payload, "login_buat", 30, "login_buat wajib diisi dengan nama pengguna CPONE")
+	if message != "" {
+		return "", message
+	}
+	name = strings.TrimSpace(name)
+	if name == "" {
+		return "", "login_buat wajib diisi dengan nama pengguna CPONE"
+	}
+	return name, ""
+}