*** AUDIT09.CHK ***       12OCT2008


BEFORE RECORD
  HIDE TOBCOUNSEL
  HIDE EKGDONE
  HIDE EGFRVALUE
  HIDE CREATDONE
  HIDE CHOLDONE
  HIDE HDLDONE
  HIDE LDLDONE
  HIDE TRIGDONE
  HIDE UPACRQVAL
  HIDE UPACRSQCAT
  HIDE DEPSCREEN
  SOURCESYS="EPI INFO"
  HIDE SOURCESYS
END

AUDITDATE
  MustEnter
  Repeated
END

FACILITYNA
  Repeated
END

AREA
  MustEnter
  Repeated
END

SU
  MustEnter
  Repeated
END

FACILITY
  MustEnter
  Repeated
END

REGNUM
  MustEnter
  Repeated
END

SDPIGRANT
  Repeated
  Comment Legal
  1 YES
  2 NO
  3 UNK
  END
  TYPE COMMENT +2 +0
  Jumps
  2 REVIEWER
  3 REVIEWER
  END
END

GRANTNUM
  Repeated
END

REVIEWER
   Repeated
END

TRIBAL
  Repeated
END

STATE
  Repeated
END

DOB
  IF DOB = . OR AUDITDATE = .
   THEN
    LET AGE = .
  ELSE
   IF DOB > AUDITDATE
    THEN
      COLOR DOB 112 78
      HELP "  Birthdate cannot be LATER than Audit Date!  Please correct. \N  Press <ESC> to continue.." 3 3 79
      COLOR DOB 112 30
      CLEAR DOB
      GOTO DOB
   ELSE
      LET AGE = (AUDITDATE - DOB) DIV 365.25
      GOTO SEX
   ENDIF
  ENDIF
END

AGE
  NoEnter
END

SEX
  Comment Legal
    1 MALE
    2 FEMALE
  END
  TYPE COMMENT +2 +0
END

TOBACCO
  Comment Legal
    1 CURRENT
    2 NON-USER
    3 UNDOCUMENTED
  END
  TYPE COMMENT +2 +0
  IF TOBACCO = 1
  THEN
    UNHIDE TOBCOUNSEL
    GOTO TOBCOUNSEL
  ELSE
    GOTO FEET
  ENDIF
END

TOBCOUNSEL
  Comment Legal
    1 YES
    2 NO
    3 REFUSED
  END
  TYPE COMMENT +2 +0
END

DODX
  IF DOB = . OR DODX = .
  THEN
    LET DURDM = .
  ELSE
    IF DODX <= DOB
    THEN
      COLOR DODX 112 78
      HELP " Error in BIRTHDATE or DATE OF DIAGNOSIS! Please correct.\N Press <ESC> to continue.." 3 11 79
      COLOR DODX 112 30
      CLEAR DODX
      GOTO DODX
    ELSE
      IF DODX > AUDITDATE
      THEN
        COLOR DODX 112 78
        HELP " ERROR! Date of Diagnosis cannot be LATER than Audit Date! \N Press <ESC> to continue.." 3 11 79
        COLOR DODX 112 30
        CLEAR DODX
        GOTO DODX
      ELSE
        LET DURDM = (AUDITDATE - DODX) DIV 365.25
      ENDIF
    ENDIF
  ENDIF
END

DURDM
  NoEnter
  AutoJump FEET
END

DMTYPE
  Comment Legal
    1 "TYPE 1"
    2 "TYPE 2"
  END
  TYPE COMMENT +2 +0
END

FEET
  Range 3 6
END

INCHES
  Range 0 82
  IF FEET = .
  THEN
    LET HEIGHT = INCHES
  ELSE
    IF FEET = . AND INCHES = .
    THEN
    GOTO WEIGHT
      ELSE
       IF INCHES > 11.99
       THEN
       COLOR INCHES 112 78
       HELP " Invalid height entry. Please re-enter. \n Press <ESC> to continue.." -10 +1
       COLOR INCHES 112 30
       CLEAR FEET
       CLEAR INCHES
       GOTO FEET
         ELSE
         LET HEIGHT = (FEET * 12) + INCHES
       ENDIF
    ENDIF
  ENDIF
  IF HEIGHT = . THEN GOTO WEIGHT
  ELSE
   IF HEIGHT < 30 OR > 82
   THEN
     COLOR HEIGHT 112 78
     HELP " Invalid height entry.  Please re-enter.\n Press <ESC> to continue.." -10 +1
     COLOR HEIGHT 112 30
     CLEAR FEET
     CLEAR INCHES
     GOTO FEET
     ELSE
      IF (HEIGHT > 72) AND (SEX = 2)
      THEN
        COLOR HEIGHT 112 78
        HELP " Women in this population rarely over 6 ft tall.\n Please re-check.  Press <ESC> to continue.." 3 +1
        COLOR HEIGHT 112 30
     ELSE
      IF (HEIGHT > 77) AND (SEX = 1)
      THEN
        COLOR HEIGHT 112 78
        HELP " Men in this population rarely over 6 ft 5 inches tall. \n Please re-check.  Press <ESC> to continue.." 3 +1
        COLOR HEIGHT 112 30
      ENDIF
      ENDIF
   ENDIF
  ENDIF
END

HEIGHT
  NoEnter
END

WEIGHT
  IF WEIGHT = . OR HEIGHT = .
  THEN
    LET BMI = .
    GOTO BMI
  ELSE
    IF AGE > 15 AND (WEIGHT < 60 OR WEIGHT > 600)
    THEN
     COLOR WEIGHT 112 78
     HELP " Invalid weight entry.  Please re-enter.\n Press <ESC> to continue..." 3 6
     COLOR WEIGHT 112 30
     CLEAR WEIGHT
     GOTO WEIGHT
   ELSE
       LET BMI = (WEIGHT * 0.4535924) / ((HEIGHT * 0.0254) ^2)
    ENDIF
  ENDIF
END

BMI
  NoEnter
  AutoJump HTNDXTX
END

HTNDXTX
  Comment Legal
    1 "YES, HTN DX OR RX"
    2 "NO HTN DX OR RX"
  END
  TYPE COMMENT +2 +0
END

SYST1
  Range 80 240
  IF SYST1 <> . THEN GOTO DIAST1
  ELSE GOTO FOOTEXAM
  ENDIF
  IF SYST1 <> . AND > 210
  THEN
     COLOR SYST1 112 78
     HELP " BP is outside of expected limits.\n Please re-check.  Press <ESC> to continue..." 3 12
     COLOR SYST1 112 30
  ENDIF
END

DIAST1
  Range 30 140
   IF DIAST1 > 130
   THEN
     COLOR DIAST1 112 78
     HELP " BP is outside of expected limits.\n Please re-check.  Press <ESC> to continue..." 3 11
     COLOR DIAST1 112 30
   ENDIF
END

SYST2
  Range 80 240
  IF SYST2 <> . AND > 210

  THEN
     COLOR SYST2 112 78
     HELP " BP is outside of expected limits.\n Please re-check.  Press <ESC> to continue..." 3 14
     COLOR SYST2 112 30
  ENDIF
  IF SYST2 <> . THEN GOTO DIAST2
    ELSE GOTO FOOTEXAM
  ENDIF
END

DIAST2
  Range 30 140
   IF DIAST2 > 130
   THEN
     COLOR DIAST2 112 78
     HELP " BP is outside of expected limits.\n Please re-check.  Press <ESC> to continue..." 30 11
     COLOR DIAST2 112 30
   ENDIF
END

SYST3
  Range 80 240
  IF SYST3 > 210
  THEN
     COLOR SYST3 112 78
     HELP " BP is outside of expected limits.\n Please re-check.  Press <ESC> to continue..." 30 14
     COLOR SYST3 112 30
  ENDIF
  IF SYST3 <> . THEN GOTO DIAST3
    ELSE GOTO FOOTEXAM
  ENDIF
END

DIAST3
  Range 30 140
   IF DIAST3 > 130
   THEN
     COLOR DIAST3 112 78
     HELP " BP is outside of expected limits.\n Please re-check.  Press <ESC> to continue..." 30 11
     COLOR DIAST3 112 30
   ENDIF
  IF SYST1 = . OR SYST2 = . OR SYST3 = .
  THEN
    LET SYSMEAN = .
  ELSE
    LET SYSMEAN = (SYST1 + SYST2 + SYST3) / 3
  ENDIF
  IF DIAST1 = . OR DIAST2 = . OR DIAST3 = .
  THEN
    LET DIAMEAN = .
  ELSE
    LET DIAMEAN = (DIAST1 + DIAST2 + DIAST3) / 3
  ENDIF
  GOTO FOOTEXAM
END

SYSMEAN
  NoEnter
END

DIAMEAN
  NoEnter
END

FOOTEXAM
  ENTER
  Comment Legal
    1 YES
    2 NO
    3 REFUSED
  END
  TYPE COMMENT +2 +0
END

EYEEXAM
  Comment Legal
    1 YES
    2 NO
    3 REFUSED
  END
  TYPE COMMENT +2 +0
END

DENTALEXAM
  Comment Legal
    1 YES
    2 NO
    3 REFUSED
  END
  TYPE COMMENT +2 +0
END

DIETINSTR
  Comment Legal
    1 RD
    2 NON-RD
    3 "RD & NON-RD"
    4 NONE
    5 REFUSED
  END
  TYPE COMMENT +2 +0
END

EXERCISE
  Comment Legal
    1 YES
    2 NO
    3 REFUSED
  END
  TYPE COMMENT +2 +0
END

DMEDUC
  Comment Legal
    1 YES
    2 NO
    3 REFUSED
  END
  TYPE COMMENT +2 +0
END

TXDIET
  Comment Legal
    1 YES
    2 NO
  END
  IF TXDIET=1
    THEN
    TYPE COMMENT +2 +0
    TXINSUL=2
    TXSUREA=2
    TXMETFORM=2
    TXACAR=2
    TXGLIT=2
    TXBYETTA=2
    TXDPP4=2
    TXAMYLIN=2
    TXREFUNK=2
    GOTO ACE
  ENDIF
  TYPE COMMENT +2 +0
END

TXINSUL
  Comment Legal
    1 YES
    2 NO
  END
  TYPE COMMENT +2 +0
  IF TXINSUL=1
    THEN
    TXDIET=2
    TXREFUNK=2
  ENDIF
END

TXSUREA
  Comment Legal
    1 YES
    2 NO
  END
  TYPE COMMENT +2 +0
  IF TXSUREA=1
    THEN
    TXDIET=2
    TXREFUNK=2
  ENDIF
END

TXMETFORM
  Comment Legal
    1 YES
    2 NO
  END
  TYPE COMMENT +2 +0
  IF TXMETFORM=1
    THEN
    TXDIET=2
    TXREFUNK=2
  ENDIF
END

TXACAR
  Comment Legal
    1 YES
    2 NO
  END
  TYPE COMMENT +2 +0
  IF TXACAR=1
    THEN
    TXDIET=2
    TXREFUNK=2
  ENDIF

END

TXGLIT
  Comment Legal
    1 YES
    2 NO
  END
  TYPE COMMENT +2 +0
  IF TXGLIT=1
    THEN
    TXDIET=2
    TXREFUNK=2
  ENDIF
END

TXBYETTA
  Comment Legal
    1 YES
    2 NO
  END
  TYPE COMMENT +2 +0
  IF TXBYETTA=1
    THEN
    TXDIET=2
    TXREFUNK=2
  ENDIF
END

TXDPP4
  Comment Legal
    1 YES
    2 NO
  END
  TYPE COMMENT +2 +0
  IF TXDPP4=1
    THEN
    TXDIET=2
    TXREFUNK=2
  ENDIF
END

TXAMYLIN
  Comment Legal
    1 YES
    2 NO
  END
  TYPE COMMENT +2 +0
  IF TXAMYLIN=1
    THEN
    TXDIET=2
    TXREFUNK=2
  ENDIF
END

TXREFUNK
  Comment Legal
    1 YES
    2 NO
  END
  TYPE COMMENT +2 +0
  BEFORE ENTRY
    IF TXDIET=1 OR TXINSUL=1 OR TXSUREA=1
      THEN
      TXREFUNK=2
      GOTO ACE
    ENDIF
    IF TXMETFORM=1 OR TXACAR=1 OR TXGLIT=1
      THEN
      TXREFUNK=2
      GOTO ACE
    ENDIF
    IF TXBYETTA=1 OR TXDPP4=1 OR TXAMYLIN=1
      THEN
      TXREFUNK=2
      GOTO ACE
    ENDIF
  END
END

ACE
  Comment Legal
    1 YES
    2 NO
    3 "REFUSE OR ADVRSE RXN"
  END
  TYPE COMMENT +2 +0
END

ASPIRIN
  Comment Legal
    1 ASPIRIN/ANTIPLATELET
    2 NONE
    3 "REFUSE OR ADVRSE RXN"
  END
  TYPE COMMENT +2 +0
END

LIPIDAGENT
  Comment Legal
    1 STATIN
    2 "OTHER AGENT"
    3 "BOTH STATIN & OTHER"
    4 NONE
    5 "REFUSE OR ADVRSE RXN"
  END
  TYPE COMMENT +2 +0
END

FLUVAX
  Comment Legal
    1 YES
    2 NO
    3 REFUSED
  END
  TYPE COMMENT +2 +0
END

PNEUMOVAX
  Comment Legal
    1 YES
    2 NO
    3 REFUSED
  END
  TYPE COMMENT +2 +0
END

TD
  Comment Legal
    1 YES
    2 NO
    3 REFUSED
  END
  TYPE COMMENT +2 +0
END

PPD
  Comment Legal
    1 POSITIVE
    2 NEGATIVE
    3 REFUSED
    4 UNKNOWN
  END
  TYPE COMMENT +2 +0

  Jumps
    1 INHTXCOM
    2 PPDDATE
    3 EKGDONE
    4 EKGDONE
  END
  IF PPD = . OR PPD > 2
  THEN
    LET TBSTATUS = 5
    GOTO EKGDONE
  ENDIF
END

INHTXCOM
  Comment Legal
    1 YES
    2 NO
    3 REFUSED
    4 UNKNOWN
  END
  TYPE COMMENT +2 +0
  AutoJump EKGDATE
  IF INHTXCOM = 1
  THEN
    LET TBSTATUS = 1
  ELSE
    LET TBSTATUS = 2
  ENDIF
END

PPDDATE
  IF PPDDATE > AUDITDATE
    THEN
      COLOR PPDDATE 112 78
      HELP " PPD Date cannot be LATER than Audit Date! Please correct.\N Press <ESC> to continue.." 3 9 79
      COLOR PPDDATE 112 30
      CLEAR PPDDATE
      GOTO PPDDATE
    ELSE
    IF PPDDATE = . OR DODX = .
      THEN
        LET TBSTATUS = 6
    ENDIF
  ENDIF
  IF PPD=2 AND (PPDDATE - DODX) >= 0
  THEN
    LET TBSTATUS = 3
  ENDIF
  IF PPD=2 AND (PPDDATE - DODX) < 0
  THEN
    LET TBSTATUS = 4
  ENDIF
  GOTO EKGDATE
END

TBSTATUS
  Comment Legal
    1 "PPD POS, INH COMPLETE"
    2 "PPD POS, NOT TREATED"
    3 "PPD NEG, UP-TO-DATE"
    4 "PPD NEG, OUTDATED OR UNKNOWN"
    5 "PPD STATUS UNKNOWN"
  END
  GOTO EKGDATE
END

EKGDATE
  UNHIDE EKGDONE
  IF EKGDATE > AUDITDATE
    THEN
      COLOR EKGDATE 112 78
      HELP " EKG Date cannot be LATER than Audit Date! Please correct.\N Press <ESC> to continue.." 3 17 79
      COLOR EKGDATE 112 30
      CLEAR EKGDATE
      GOTO EKGDATE
    ELSE
    IF EKGDATE = .
      THEN
        LET EKGDONE = 2
      ELSE
        LET EKGDONE = 1
    ENDIF
  ENDIF
END

HBA1C
  IF HBA1C = .
  THEN
    GOTO CREATVALUE
  ELSE
   IF HBA1C < 4 OR > 17
   THEN
     COLOR HBA1C 112 78
     HELP " HbA1c is outside of expected limits.\n Please re-check.  Press <ESC> to continue..." 3 5
     COLOR HBA1C 112 30
   ENDIF
  ENDIF
END

HBA1CDATE
    IF HBA1CDATE > AUDITDATE
    THEN
      COLOR HBA1CDATE 112 78
      HELP " Date of HbA1c must be BEFORE the audit date! Please correct.\N Press <ESC> to continue.." 3 5 79
      COLOR HBA1CDATE 112 30
      CLEAR HBA1CDATE
      GOTO HBA1CDATE
    ENDIF
END

CREATDONE
  NoEnter
END

CREATVALUE
  UNHIDE CREATDONE
  IF CREATVALUE = .
    THEN CREATDONE = 2
    ELSE IF CREATVALUE=99.9
         THEN CREATDONE=3
         CREATVALUE=.
    ELSE CREATDONE = 1
    ENDIF
  ENDIF
  IF (CREATVALUE > 5) AND (CREATVALUE < 12.1)
    THEN
    COLOR CREATVALUE 112 78
    HELP "  Serum Creatinine value is outside of expected limits.\n  Please re-check.  Press <ESC> to continue... " 3 11
    COLOR CREATVALUE 112 30
  ENDIF
  IF (CREATVALUE > 15) AND (CREATVALUE <> 99 OR CREATVALUE <> 99.9)
    THEN
    COLOR CREATVALUE 112 78
    HELP "  Serum Creatinine value is not compatible with life!\n  Re-enter correct value. Press <ESC> to continue... " 3 11
    COLOR CREATVALUE 112 30
    CLEAR CREATVALUE
    GOTO CREATVALUE
  ENDIF
END

EGFR
  Comment Legal
    1 YES
    2 NO
  END
  TYPE COMMENT +2 +0
  IF EGFR=1
    THEN
    UNHIDE EGFRVALUE
  ENDIF
  IF EGFR=2
    THEN
    GOTO CHOLVALUE
  ENDIF
END

CHOLDONE
  NoEnter
END

CHOLVALUE
  UNHIDE CHOLDONE
  IF CHOLVALUE = .
   THEN CHOLDONE = 2
   ELSE CHOLDONE = 1
  ENDIF
  IF CHOLVALUE = . THEN GOTO HDLVALUE
    ELSE
     IF CHOLVALUE < 100 OR > 500
      THEN
      COLOR CHOLVALUE 112 78
      HELP "  Outside of expected limits.  Please re-check. \n  Press <ESC> to continue... " 3 14
      COLOR CHOLVALUE 112 30
     ENDIF
  ENDIF
END

HDLDONE
  NoEnter
END

HDLVALUE
  UNHIDE HDLDONE
  IF HDLVALUE = .
    THEN HDLDONE = 2
    ELSE HDLDONE = 1
  ENDIF
  IF HDLVALUE = . THEN GOTO LDLVALUE
    ELSE
    IF HDLVALUE < 10 OR > 100
      THEN
      COLOR HDLVALUE 112 78
      HELP " Outside of expected limits.  Please re-check. \n Press <ESC> to continue..." 3 17
      COLOR HDLVALUE 112 30
    ENDIF
  ENDIF
END

LDLDONE
  NoEnter
END

LDLVALUE
  UNHIDE LDLDONE
  IF LDLVALUE = .
    THEN LDLDONE = 2
    ELSE LDLDONE = 1
  ENDIF
  IF LDLVALUE = . THEN GOTO TRIGVALUE
    ELSE
    IF LDLVALUE < 50 OR > 250
      THEN
      COLOR LDLVALUE 112 78
      HELP " Outside of expected limits.  Please re-check. \n Press <ESC> to continue..." 3 20
      COLOR LDLVALUE 112 30
     ENDIF
    IF (CHOLVALUE > 1) AND (LDLVALUE > CHOLVALUE)
      THEN
      COLOR LDLVALUE 112 78
      HELP " LDL Cholesterol value should not be greater than Total Cholesterol value! \n Please re-check. Press <ESC> to continue..." 3 20
      COLOR LDLVALUE 112 30
     ENDIF
  ENDIF
END

TRIGDONE
  NoEnter
END

TRIGVALUE
  UNHIDE TRIGDONE
  IF TRIGVALUE = .
    THEN TRIGDONE = 2
    ELSE TRIGDONE = 1
  ENDIF
  IF TRIGVALUE = . THEN GOTO UPTESTDONE
    ELSE
     IF TRIGVALUE < 50 OR > 1000
      THEN
      COLOR TRIGVALUE 112 78
      HELP "  Outside of expected limits.  Please re-check. \n  Press <ESC> to continue... " 3 18
      COLOR TRIGVALUE 112 30
     ENDIF
  ENDIF
END

UPTESTDONE
  Comment Legal
    1 YES
    2 NO
    3 REFUSED
  END
  TYPE COMMENT +2 +0
  Jumps
    2 DEPDX
    3 DEPDX
  END
END

UPTESTTYPE
  Comment Legal
    1 UACR
    2 "SEMIQUANT UACR"
    3 UPCR
    4 "OTHER QUANT TEST"
    5 "1+ OR MORE DIPSTICK"
    6 "OTHER NON-QUANT TEST"
  END
  TYPE COMMENT +2 +0
  IF UPTESTTYPE=1
    THEN
     UNHIDE UPACRQVAL
  ENDIF
  IF UPTESTTYPE=2
    THEN
     UNHIDE UPACRSQCAT
     GOTO UPACRSQCAT
  ENDIF
END

UPACRQVAL
  AFTER ENTRY
    GOTO DEPDX
  END
END

UPACRSQCAT
  AFTER ENTRY
    GOTO DEPDX
  END
END

DEPDX
  Comment Legal
    1 YES
    2 NO
  END
  TYPE COMMENT +2 +0
  IF DEPDX=1
  THEN
    GOTO LOCAL
  ENDIF
  IF DEPDX=2
  THEN
    UNHIDE DEPSCREEN
  ENDIF
END

DEPSCREEN
  Comment Legal
    1 YES
    2 NO
    3 REFUSED
  END
  TYPE COMMENT +2 +0
END

*    [Note: if you use a local option question, replace "CHOICE 1",
*           "CHOICE 2", etc, with the actual choice options.]
*LOCAL
*  Comment Legal
*    1 "CHOICE 1"
*    2 "CHOICE 2"
*    3 "CHOICE 3"
*    4 "CHOICE 4"
*    5 "CHOICE 5"
*    6 "CHOICE 6"
*    7 "CHOICE 7"
*    8 "CHOICE 8"
*    9 "CHOICE 9"
*    0 "CHOICE 0"
*  END
*END