root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Patch level : 1.7 at

Browse Source 
Files correlati     : at0100a.msk
Ricompilazione Demo : [ ]
Commento            : spostato codice CT in prima pagina con possibilita di ricerca


git-svn-id: svn://10.65.10.50/trunk@13093 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
cris 2005-05-17 11:12:26 +00:00
parent 65412a9d5d
commit fb8edbc545
1 changed files with 22 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
at/at0100a.uml
View File

@ -42,7 +42,28 @@ END
BUTTON F_RICPARZ 23 1
BEGIN
PROMPT 50 1 "Ricerca parziale"
PROMPT 26 1 "Ricerca parziale"
END
STRING F_CODCT 6
BEGIN
PROMPT 60 1 "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
STRING F_COGNOME 25
@ -697,27 +718,6 @@ 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
STRING F_TESSSSN 10
BEGIN
PROMPT 42 8 "SSN "