diff --git a/at/at0100a.uml b/at/at0100a.uml
index 5a1b80881..76ece7cc9 100755
--- a/at/at0100a.uml
+++ b/at/at0100a.uml
@@ -686,12 +686,24 @@ BEGIN
   HELP "Numero cartella clinica"
 END
 
-
 STRING F_CODCT 6
 BEGIN
   PROMPT 25 8 "Cod. CT "
   FIELDS CODCT
   FLAGS "U"
+  //KEY 7
+  //MESSAGE COPY,5@
+  //USE LF_SOGGETTI KEY 7
+  //INPUT CODCT F_CODCT
+  //DISPLAY "Codice CT" CODCT
+  //DISPLAY "Codice@8" CODICE
+  //DISPLAY "Cognome@25" COGNOME
+  //DISPLAY "Nome@25" NOME
+  //DISPLAY "Nato il@10" DATANASC
+  //DISPLAY "Sez." CODSEZ
+  //DISPLAY "Sot." CODSOT
+  //DISPLAY "C." CATDON
+  //OUTPUT F_CODICE CODICE
   HELP "Codice Centro Trasfusionale"
 END