campo-sirio/at/attbpr1.uml

#include "attbpr1.h"

TOOLBAR "" 0 0 0 2 
#include <relapbar.h>
ENDPAGE

PAGE "Tabella conversione stato trasfusionale CETRAPLUS" -1 -1 78 18

STRING F_TABPR1_CODTAB 3
BEGIN
   PROMPT 2 1 "Codice        "
   FIELD CODTAB
   USE PR1
   CHECKTYPE REQUIRED
   INPUT CODTAB F_TABPR1_CODTAB
   DISPLAY "Codice" CODTAB
   DISPLAY "Descrizione@30" S0
   OUTPUT F_TABPR1_CODTAB CODTAB
   OUTPUT F_TABPR1_DESCR S0
   KEY 1
   FLAGS "U"
   HELP "Inserire il codice dello stato trasfusionale"
END

STRING F_TABPR1_DESCR 50
BEGIN
   PROMPT 2 3 "Descrizione   "
   FIELD S0
   USE PR1 KEY 2
   CHECKTYPE REQUIRED
   INPUT S0 F_TABPR1_DESCR
   DISPLAY "Descrizione@30" S0
   DISPLAY "Codice" CODTAB
   COPY OUTPUT F_TABPR1_CODTAB
   KEY 2
   HELP "Inserire la descrizione dello stato trasfusionale"
END

RADIOBUTTON F_TABPR1_OPERAZIONE 35
BEGIN
   PROMPT 2 5 "Operazione "
   FIELD I0
   ITEM "0|Sostituire senza segnalazione"
   ITEM "1|Sostituire con segnalazione"
   ITEM "2|Segnalare"
   ITEM "3|Ignorare"
END

STRING F_TABPR1_CATDON 2
BEGIN
   PROMPT 2 11 "Categoria      "
   FIELD S6
   FLAGS "U"
   USE CTD
   INPUT CODTAB F_TABPR1_CATDON
   DISPLAY "Codice" CODTAB
   DISPLAY "Descrizione@30" S0
   OUTPUT F_TABPR1_CATDON CODTAB
   OUTPUT F_TABPR1_DESC_CATDON S0
   CHECKTYPE NORMAL
   WARNING "Codice non presente"
END	

STRING F_TABPR1_DESC_CATDON 30
BEGIN
   PROMPT 23 11 ""
   FLAGS "D"
END

STRING F_TABPR1_TIPOCON 2
BEGIN
   PROMPT 2 12 "Tipo controllo "
   FIELD S7
   FLAGS "U"
   USE TCS
   INPUT CODTAB F_TABPR1_TIPOCON
   DISPLAY "Codice" CODTAB
   DISPLAY "Descrizione@30" S0
   OUTPUT F_TABPR1_TIPOCON CODTAB
   OUTPUT F_TABPR1_DESC_TIPOCON S0
   CHECKTYPE NORMAL
   WARNING "Codice non presente"
END

STRING F_TABPR1_DESC_TIPOCON 30
BEGIN
   PROMPT 23 12 ""
   FLAGS "D"
END

STRING F_TABPR1_IDON1 2
BEGIN
  PROMPT 2 13 "Tipi donazione "
  FIELD S8
  FLAGS "U"
  USE IDO
  INPUT CODTAB F_TABPR1_IDON1
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@40" S0
  OUTPUT F_TABPR1_IDON1 CODTAB
  OUTPUT F_TABPR1_DESC_IDON1 S0
  CHECKTYPE NORMAL
  WARNING "Codice idoneita' non presente"
  HELP "Idoneita' alla donazione"
END

STRING F_TABPR1_IDON2 2
BEGIN
  PROMPT 17 14 ""
  FIELD S9
  FLAGS "U"
  USE IDO
  INPUT CODTAB F_TABPR1_IDON2
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@40" S0
  OUTPUT F_TABPR1_IDON2 CODTAB
  OUTPUT F_TABPR1_DESC_IDON2 S0
  CHECKTYPE NORMAL
  WARNING "Codice idoneita' non presente"
  HELP "Idoneita' alla donazione"
END

STRING F_TABPR1_IDON3 2
BEGIN
  PROMPT 17 15 ""
  FIELD S10
  FLAGS "U"
  USE IDO
  INPUT CODTAB F_TABPR1_IDON3
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@40" S0
  OUTPUT F_TABPR1_IDON3 CODTAB
  OUTPUT F_TABPR1_DESC_IDON3 S0
  CHECKTYPE NORMAL
  WARNING "Codice idoneita' non presente"
  HELP "Idoneita' alla donazione"
END

STRING F_TABPR1_IDON4 2
BEGIN
  PROMPT 17 16 ""
  FIELD S11
  FLAGS "U"
  USE IDO
  INPUT CODTAB F_TABPR1_IDON4
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@40" S0
  OUTPUT F_TABPR1_IDON4 CODTAB
  OUTPUT F_TABPR1_DESC_IDON4 S0
  CHECKTYPE NORMAL
  WARNING "Codice idoneita' non presente"
  HELP "Idoneita' alla donazione"
END

STRING F_TABPR1_MOTIVO 4
BEGIN
   PROMPT 2 17 "Motivo         "
   FIELD S1
   FLAGS "U"
   USE MTC
   INPUT CODTAB F_TABPR1_MOTIVO
   DISPLAY "Codice" CODTAB
   DISPLAY "Descrizione@50" S0
   OUTPUT F_TABPR1_MOTIVO CODTAB
   OUTPUT F_TABPR1_DESC_MOTIVO S0
   CHECKTYPE NORMAL
   WARNING "Codice motivo non presente"
   HELP "Motivo del controllo sanitario"
END

STRING F_TABPR1_DESC_IDON1 25
BEGIN
  PROMPT 23 13 ""
  FLAGS "D"
END

STRING F_TABPR1_DESC_IDON2 25
BEGIN
  PROMPT 23 14 ""
  FLAGS "D"
END

STRING F_TABPR1_DESC_IDON3 25
BEGIN
  PROMPT 23 15 ""
  FLAGS "D"
END

STRING F_TABPR1_DESC_IDON4 25
BEGIN
  PROMPT 23 16 ""
  FLAGS "D"
END

STRING F_TABPR1_DESC_MOTIVO 25
BEGIN
  PROMPT 23 17 ""
  FLAGS "D"
END
     
ENDPAGE
ENDMASK