ACHSTX3D ;IHS/SET/GTH - RECORD 3(PATIENT FOR AO/FI) FORMAT ; [ 12/06/2002 10:36 AM ]
;;3.1;CONTRACT HEALTH MGMT SYSTEM;**5,22**;JUN 11, 2001;Build 43
;IHS/SET/GTH ACHS*3.1*5 12/06/2002 - New Routine.
;ACHS*3.1*22 IHS/OIT/FCJ MODIFICATION TO 3C to include century data
;;
;;Record 3A - PATIENT RECORD.
;;Routine : ACHSTX3
;;
;; POSIT LENGTH VAR NAME JUSTIFY
;; ----- ------ -------- -------------------------- -------
;; 1 2 constant 3A -
;; 3- 8 6 ACHSFAC AUTHORIZING FACILITY -
;; 9-14 6 ACHSHRN HEALTH RECORD NUMBER R
;; 15-21 7 ACHSDOB DATE OF BIRTH L
;; 22 1 ACHSSEX SEX -
;; 23-25 3 ACHSTRIB TRIBE -
;; 26-55 30 ACHSNAME NAME L
;; 56 1 ACHSCOV CARE, CAID "AB", RR or PVT -
;; 57-63 7 ACHSCOMM COMMUNITY CODE L
;; 64-72 9 ACHSSSN SSN -
;; 73-78 6 ACHSUPDT DATE OF LAST PT UPDATE -
;; 79 1 $$SSV SSN VERIFICATION STATUS -
;; 80 1 ACHSDEST DOCUMENT DESTINATION -
;;
;;Record 3B - PATIENT RECORD.
;;Routine: ACHSTX3
;;
;; POSIT LENGTH VAR NAME JUSTIFY
;; ----- ------ -------- -------------------------- -------
;; 1- 2 2 constant 3B -
;; 3-32 30 ACHSADDR STREET ADDRESS L
;; 33-52 20 ACHSCITY CITY L
;; 53-54 2 ACHSST STATE -
;; 55-63 9 ACHSZIP ZIP CODE L
;; 64-80 17 ACHSINSR INSURED NAME L
;;
;;Record 3C - PATIENT RECORD 3RD PARTY COVERAGE.
;;Routine: ACHSTX3C
;; POSIT LENGTH VAR NAME JUSTIFY
;; ----- ------ -------- -------------------------- -------
;; 1- 2 2 "3C"
;; 3-32 30 INSURER NAME L
;; 33-47 15 POLICY NUMBER L
;; 48-49 2 STATE
;; 50-51 2 POLICY SUFFIX
;; 52-57 6 ELIG BEGIN DATE (YYMMDD)
;; 58-63 6 ELIG END DATE (YYMMDD)
;; 64-80 17 COVERAGE TYPE L
;; 77-78 2 Century Elig Begin
;; 79-80 2 Century Elig End
ACHSTX3D ;IHS/SET/GTH - RECORD 3(PATIENT FOR AO/FI) FORMAT ; [ 12/06/2002 10:36 AM ]
+1 ;;3.1;CONTRACT HEALTH MGMT SYSTEM;**5,22**;JUN 11, 2001;Build 43
+2 ;IHS/SET/GTH ACHS*3.1*5 12/06/2002 - New Routine.
+3 ;ACHS*3.1*22 IHS/OIT/FCJ MODIFICATION TO 3C to include century data
+4 ;;
+5 ;;Record 3A - PATIENT RECORD.
+6 ;;Routine : ACHSTX3
+7 ;;
+8 ;; POSIT LENGTH VAR NAME JUSTIFY
+9 ;; ----- ------ -------- -------------------------- -------
+10 ;; 1 2 constant 3A -
+11 ;; 3- 8 6 ACHSFAC AUTHORIZING FACILITY -
+12 ;; 9-14 6 ACHSHRN HEALTH RECORD NUMBER R
+13 ;; 15-21 7 ACHSDOB DATE OF BIRTH L
+14 ;; 22 1 ACHSSEX SEX -
+15 ;; 23-25 3 ACHSTRIB TRIBE -
+16 ;; 26-55 30 ACHSNAME NAME L
+17 ;; 56 1 ACHSCOV CARE, CAID "AB", RR or PVT -
+18 ;; 57-63 7 ACHSCOMM COMMUNITY CODE L
+19 ;; 64-72 9 ACHSSSN SSN -
+20 ;; 73-78 6 ACHSUPDT DATE OF LAST PT UPDATE -
+21 ;; 79 1 $$SSV SSN VERIFICATION STATUS -
+22 ;; 80 1 ACHSDEST DOCUMENT DESTINATION -
+23 ;;
+24 ;;Record 3B - PATIENT RECORD.
+25 ;;Routine: ACHSTX3
+26 ;;
+27 ;; POSIT LENGTH VAR NAME JUSTIFY
+28 ;; ----- ------ -------- -------------------------- -------
+29 ;; 1- 2 2 constant 3B -
+30 ;; 3-32 30 ACHSADDR STREET ADDRESS L
+31 ;; 33-52 20 ACHSCITY CITY L
+32 ;; 53-54 2 ACHSST STATE -
+33 ;; 55-63 9 ACHSZIP ZIP CODE L
+34 ;; 64-80 17 ACHSINSR INSURED NAME L
+35 ;;
+36 ;;Record 3C - PATIENT RECORD 3RD PARTY COVERAGE.
+37 ;;Routine: ACHSTX3C
+38 ;; POSIT LENGTH VAR NAME JUSTIFY
+39 ;; ----- ------ -------- -------------------------- -------
+40 ;; 1- 2 2 "3C"
+41 ;; 3-32 30 INSURER NAME L
+42 ;; 33-47 15 POLICY NUMBER L
+43 ;; 48-49 2 STATE
+44 ;; 50-51 2 POLICY SUFFIX
+45 ;; 52-57 6 ELIG BEGIN DATE (YYMMDD)
+46 ;; 58-63 6 ELIG END DATE (YYMMDD)
+47 ;; 64-80 17 COVERAGE TYPE L
+48 ;; 77-78 2 Century Elig Begin
+49 ;; 79-80 2 Century Elig End