***AUDIT05J.CHK***       21June2005

BEFORE RECORD
  HIDE COUNSEL
  HIDE EKG
END

AUDITDATE
  MustEnter
  Repeated
END

FACILITYNA
  Repeated
END

AREA
  Repeated
  MustEnter
END

SU
  Repeated
  MustEnter
END

FACILITY
  Repeated
END

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

GRANTNUM
  Repeated
END

TRIBAL
  Repeated
END

COMM
  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.." 1 10 79
      COLOR DOB 112 30
      CLEAR DOB
      GOTO DOB
   ELSE
      LET AGE = (AUDITDATE - DOB) DIV 365.25
      GOTO SEX
   ENDIF
  ENDIF
END

REGNUM
  Repeated
  MustEnter
END

AGE
  NoEnter
END

REVIEWER
  Repeated
END

SEX
  MustEnter
  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 COUNSEL
    GOTO COUNSEL
  ELSE
    GOTO FEET
  ENDIF
END

COUNSEL
  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.." 10 13 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.." 10 13 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
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.." 1 +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.." 1 +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..." 1 5
     COLOR WEIGHT 112 30
     CLEAR WEIGHT
     GOTO WEIGHT
   ELSE
       LET BMI = (WEIGHT * 0.45359) / ((HEIGHT * 0.0254) ^2)
    ENDIF
  ENDIF
END

BMI
  NoEnter
  AutoJump CHARTHTN
END

CHARTHTN
  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..." 30 11
     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..." 30 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..." 30 11
     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 11
     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

TXCODE
  AutoJump ACE
  CodeField TXNAME
  Codes
    1 DIET
    2 INSULIN
    3 SULFONYLUREA
    4 METFORMIN
    5 ACARBOSE
    6 GLITAZONE
    9 REFUSED/UNKNOWN
   23 INSULIN+S'UREA
   24 INSULIN+MET
   25 INSULIN+ACAR
   26 INSULIN+GLITAZONE
   34 S'UREA+MET
   35 S'UREA+ACAR
   36 S'UREA+GLITAZONE
   45 MET+ACAR
   46 MET+GLITAZONE
   56 ACAR+GLITAZONE
  234 INS+S'UREA+MET
  235 INS+S'UREA+ACAR
  236 INS+S'UREA+GLIT
  245 INS+MET+ACAR
  246 INS+MET+GLITAZONE
  256 INS+ACAR+GLITAZONE
  345 S'UREA+MET+ACAR
  346 S'UREA+MET+GLIT
  356 S'UREA+ACAR+GLIT
  456 MET+ACAR+GLIT
 2345 INS+S'U+MET+ACAR
 2346 INS+S'U+MET+GLIT
 2356 INS+S'U+ACAR+GLIT
 2456 INS+MET+ACAR+GLIT
 3456 S'U+MET+ACAR+GLIT
  END
END

TXNAME
  AutoJump ACE
  CodeField TXCODE
END

ACE
  Comment Legal
    1 YES
    2 NO
    3 UNKNOWN
  END
  TYPE COMMENT +2 +0
END

ASPIRIN
  Comment Legal
    1 ASPIRIN
    2 "OTH ANTI-PLATELET RX"
    3 "BOTH ASA & OTHER"
    4 NONE
    5 REFUSED
  END
  TYPE COMMENT +2 +0
END

LIPIDAGENT
  Comment Legal
    1 STATIN
    2 "OTHER AGENT"
    3 "BOTH STATIN & OTHER"
    4 NONE
    5 REFUSED
  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 EKG
    4 EKG
  END
  IF PPD = . OR PPD > 2
  THEN
    LET TBSTATUS = 5
    GOTO EKG
  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.." 10 11 79
      COLOR PPDDATE 112 30
      CLEAR PPDDATE
      GOTO PPDDATE
    ELSE
    IF PPDDATE = . OR DODX = .
      THEN
        LET TBSTATUS = 4
    ENDIF
  ENDIF
  IF ((PPDDATE - DODX) >= 0) AND (PPD = 2)
  THEN
    LET TBSTATUS = 3
  ENDIF
  IF (PPDDATE - DODX) < 0 AND (PPD = 2)
  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 EKG
  IF EKGDATE > AUDITDATE
    THEN
      COLOR EKGDATE 112 78
      HELP " EKG Date cannot be LATER than Audit Date! Please correct.\N Press <ESC> to continue.." 10 15 79
      COLOR EKGDATE 112 30
      CLEAR EKGDATE
      GOTO EKGDATE
    ELSE
    IF EKGDATE = .
      THEN
        LET EKG = 2
      ELSE
        LET EKG = 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..." 22 5
     COLOR HBA1C 112 30
   ENDIF
  ENDIF
END

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

HBA1C2
   IF (HBA1C2 > 1) AND (HBA1C2 < 4 OR HBA1C2 > 17)
   THEN
     COLOR HBA1C2 112 78
     HELP " HbA1c is outside of expected limits.\n Please re-check.  Press <ESC> to continue..." 30 7
     COLOR HBA1C2 112 30
   ENDIF
END

CREATIN
  NoEnter
END

CREATVALUE
  UNHIDE CREATIN
  IF CREATVALUE = .
    THEN CREATIN = 2
    ELSE IF CREATVALUE=99.9
         THEN CREATIN=3
         CREATVALUE=.
    ELSE CREATIN = 1
    ENDIF
  ENDIF
  IF (CREATVALUE > 5) AND (CREATVALUE < 12.1)
    THEN
    COLOR CREATVALUE 112 78
    HELP "  Creatinine value is outside of expected limits.\n  Please re-check.  Press <ESC> to continue... " 1 10
    COLOR CREATVALUE 112 30
  ENDIF
  IF (CREATVALUE > 12) AND (CREATVALUE <> 99 OR CREATVALUE <> 99.9)
    THEN
    COLOR CREATVALUE 112 78
    HELP "  Creatinine value is not compatible with life!\n  Re-enter correct value. Press <ESC> to continue... " 1 10
    COLOR CREATVALUE 112 30
    CLEAR CREATVALUE
    GOTO CREATVALUE
  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... " 30 13
      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..." 1 16
      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..." 1 19
      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..." 1 25
      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 UA
    ELSE
     IF TRIGVALUE < 50 OR > 1000
      THEN
      COLOR TRIGVALUE 112 78
      HELP "  Outside of expected limits.  Please re-check. \n  Press <ESC> to continue... " 1 17
      COLOR TRIGVALUE 112 30
     ENDIF
  ENDIF
END

UA
  Comment Legal
    1 YES
    2 NO
    3 REFUSED
  END
  TYPE COMMENT +2 +0
  Jumps
    2 SMBG
    3 SMBG
  END
END

PROTEINURI
  Comment Legal
    1 "YES, 1+ OR MORE"
    2 "NONE OR TRACE"
    3 "NOT TESTED"
  END
  TYPE COMMENT +2 +0
  IF (UA=2 OR UA=3) AND (PROTEINURI=1 OR PROTEINURI=2)
  THEN
    COLOR PROTEINURI 112 78
    HELP " Logic error. Urinalysis recorded as not done. Please re-check. \n Press <ESC> to continue..." 8 7
    COLOR PROTEINURI 112 30
    CLEAR PROTEINURI
    GOTO PROTEINURI
  ENDIF
  Jumps
    1 SMBG
  END
END

MICROALB
  Comment Legal
    1 "YES, 30 MG/L OR MORE"
    2 NO
    3 "NOT TESTED"
  END
  TYPE COMMENT +2 +0
END

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

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

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

EPIC
 RANGE 1 5
END

FAMTHER
  Comment Legal
    1 YES
    2 NO
    3 REFUSED
  END
  TYPE COMMENT +2 +0
  IF SYSMEAN >50 AND SYSMEAN <130 AND DIAMEAN <80
    THEN
    GOTO LOWLIPID
  ENDIF
END

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

LOWLIPID
  Comment Legal
    1 YES
    2 NO
    3 REFUSED
  END
  TYPE COMMENT +2 +0
  IF BMI <30.0
    THEN
    GOTO YRLYCLINIC
  ENDIF
END

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

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

YRLYCLINIC
  Comment Legal
    1 YES
    2 NO
    3 REFUSED
  END
  TYPE COMMENT +2 +0
  IF YRLYCLINIC>1
    THEN
    GOTO A1CAVAIL
  ENDIF
END

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

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

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

FOOTSTAGE
  RANGE 0 3
  IF FOOTSTAGE=0 OR FOOTSTAGE=1
    THEN
    GOTO SMOKECESS
  ENDIF
END

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

SHOESATIS
  Comment Legal
    1 YES
    2 NO
    3 REFUSED
  END
  TYPE COMMENT +2 +0
  IF TOBACCO>1
    THEN
    GOTO WRITEREC
  ENDIF
END

SMOKECESS
  RANGE 0 6
END