Patch level : at

Files correlati     : at0100a.msk
Ricompilazione Demo : [ ]
Commento            : commentato ricerca per codice ct


git-svn-id: svn://10.65.10.50/trunk@11253 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
cris 2003-06-19 13:00:51 +00:00
parent feec837ab7
commit ab966865db

View File

@ -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