ACHSTX5D ;IHS/SET/GTH - RECORD 5(DOCUMENT FOR AO/FI) FORMAT ; [ 04/23/2003 10:19 AM ]
;;3.1;CONTRACT HEALTH MGMT SYSTEM;**5,19**;JUN 11, 2001
;IHS/SET/GTH ACHS*3.1*5 12/06/2002 - New Routine.
;;
;;Record 5A - DOCUMENT (PURCHASE ORDER) RECORD.
;;Routine: ACHSTX5
;;
;; POSIT LENGTH VAR NAME JUSTIFY
;; ----- ------ -------- -------------------------- -------
;; 1- 2 2 constant 5A -
;; 3-12 10 ACHSDOCN PURCHASE ORDER NUMBER -
;; 13-14 2 ACHSTOS PO TYPE (43, 57,64) -
;; 15-20 6 FAC FACILITY CODE -
;; 21- 1 ACHSBIND BLANKET INDICATOR -
;; 22-33 12 ACHSEIN VENDOR ID NUMBER L
;; 34-39 6 ACHSHRN HEALTH RECORD NUMBER R
;; 40-39 10 ACHSCN CONTRACT NUMBER L
;; 50-56 7 ACHSCAN COMMON ACCOUNTING NUMBER -
;; 57-60 4 ACHSOBJC OBJECT CLASSIFICATION -
;; 61-66 6 ORDER DATE (YYMMDD) -
;; 67-68 2 ACHSSTS PO SUFFIX (2 blanks or "AD") -
;; 69-76 8 ACHSIPA AMOUNT R
;; 77-79 3 ACHSESDA EST. INPATIENT DAYS R
;; 80 1 ACHSFED FED NON FED CODE -
;;
;;Record 5B - DOCUMENT (PO) RECORD (PART 2).
;;Routine: ACHSTX5
;;
;; POSIT LENGTH VAR NAME JUSTIFY
;; ----- ------ -------- -------------------------- -------
;; 1-2 2 constant 5B -
;; 3-4 2 ACHSREFT REFERRAL TYPE (DENTAL ONLY) R
;; 5-10 6 ACHSEDOS DATE OF SERV. (EST) (YYMMDD) -
;; 11-16 6 ACHSFDT BEGIN AUTH. DATE (YYMMDD) -
;; 17-22 6 ACHSTDT ENDING AUTH. DATE (YYMMDD) -
;; 23-38 16 PATIENT NAME (LAST,FIRST) -
;; 39-54 16 PATIENT INSURER # 1 -
;; 55-70 16 PATIENT INSURER # 2 -
;; 71-73 3 TRIBAL CODE (3 DIGIT)
;; 74-80 7 COMMUNITY CODE (COMM_CO_ST)
;;
;;Record 5C - DOCUMENT (PO) RECORD (PART 3).
;;
;; POSIT LENGTH VAR NAME JUSTIFY
;; ----- ------ -------- -------------------------- -------
;; 1-2 2 constant 5C -
;; 3-6 4 ACHSSCC SERVICE CLASS CODE -
;; 7-14 8 ORDER DATE CCYYMMDD
;; 15-22 8 DATE OF SERVICE (EST) CCYYMMDD
;; 23-30 8 BEGIN AUTH. DATE CCYYMMDD
;; 31-38 8 ENDING AUTH. DATE CCYYMMDD
;; 39-54 16 ACHSAGID PT REG UNIQ ID 15 CHAR 1 BLNK -
;; 55 1 APPROVE STERILIZATON
;; 56 1 APPROVE IN SUPPORT DIRECT CARE
;; 57 1 ACHSDB DATABASE ID 1-NEW BLNK-OLD -
;; 58-80 26 blanks -
;
ACHSTX5D ;IHS/SET/GTH - RECORD 5(DOCUMENT FOR AO/FI) FORMAT ; [ 04/23/2003 10:19 AM ]
+1 ;;3.1;CONTRACT HEALTH MGMT SYSTEM;**5,19**;JUN 11, 2001
+2 ;IHS/SET/GTH ACHS*3.1*5 12/06/2002 - New Routine.
+3 ;;
+4 ;;Record 5A - DOCUMENT (PURCHASE ORDER) RECORD.
+5 ;;Routine: ACHSTX5
+6 ;;
+7 ;; POSIT LENGTH VAR NAME JUSTIFY
+8 ;; ----- ------ -------- -------------------------- -------
+9 ;; 1- 2 2 constant 5A -
+10 ;; 3-12 10 ACHSDOCN PURCHASE ORDER NUMBER -
+11 ;; 13-14 2 ACHSTOS PO TYPE (43, 57,64) -
+12 ;; 15-20 6 FAC FACILITY CODE -
+13 ;; 21- 1 ACHSBIND BLANKET INDICATOR -
+14 ;; 22-33 12 ACHSEIN VENDOR ID NUMBER L
+15 ;; 34-39 6 ACHSHRN HEALTH RECORD NUMBER R
+16 ;; 40-39 10 ACHSCN CONTRACT NUMBER L
+17 ;; 50-56 7 ACHSCAN COMMON ACCOUNTING NUMBER -
+18 ;; 57-60 4 ACHSOBJC OBJECT CLASSIFICATION -
+19 ;; 61-66 6 ORDER DATE (YYMMDD) -
+20 ;; 67-68 2 ACHSSTS PO SUFFIX (2 blanks or "AD") -
+21 ;; 69-76 8 ACHSIPA AMOUNT R
+22 ;; 77-79 3 ACHSESDA EST. INPATIENT DAYS R
+23 ;; 80 1 ACHSFED FED NON FED CODE -
+24 ;;
+25 ;;Record 5B - DOCUMENT (PO) RECORD (PART 2).
+26 ;;Routine: ACHSTX5
+27 ;;
+28 ;; POSIT LENGTH VAR NAME JUSTIFY
+29 ;; ----- ------ -------- -------------------------- -------
+30 ;; 1-2 2 constant 5B -
+31 ;; 3-4 2 ACHSREFT REFERRAL TYPE (DENTAL ONLY) R
+32 ;; 5-10 6 ACHSEDOS DATE OF SERV. (EST) (YYMMDD) -
+33 ;; 11-16 6 ACHSFDT BEGIN AUTH. DATE (YYMMDD) -
+34 ;; 17-22 6 ACHSTDT ENDING AUTH. DATE (YYMMDD) -
+35 ;; 23-38 16 PATIENT NAME (LAST,FIRST) -
+36 ;; 39-54 16 PATIENT INSURER # 1 -
+37 ;; 55-70 16 PATIENT INSURER # 2 -
+38 ;; 71-73 3 TRIBAL CODE (3 DIGIT)
+39 ;; 74-80 7 COMMUNITY CODE (COMM_CO_ST)
+40 ;;
+41 ;;Record 5C - DOCUMENT (PO) RECORD (PART 3).
+42 ;;
+43 ;; POSIT LENGTH VAR NAME JUSTIFY
+44 ;; ----- ------ -------- -------------------------- -------
+45 ;; 1-2 2 constant 5C -
+46 ;; 3-6 4 ACHSSCC SERVICE CLASS CODE -
+47 ;; 7-14 8 ORDER DATE CCYYMMDD
+48 ;; 15-22 8 DATE OF SERVICE (EST) CCYYMMDD
+49 ;; 23-30 8 BEGIN AUTH. DATE CCYYMMDD
+50 ;; 31-38 8 ENDING AUTH. DATE CCYYMMDD
+51 ;; 39-54 16 ACHSAGID PT REG UNIQ ID 15 CHAR 1 BLNK -
+52 ;; 55 1 APPROVE STERILIZATON
+53 ;; 56 1 APPROVE IN SUPPORT DIRECT CARE
+54 ;; 57 1 ACHSDB DATABASE ID 1-NEW BLNK-OLD -
+55 ;; 58-80 26 blanks -
+56 ;