ACHSTX4D ;IHS/SET/GTH - RECORD 4(VENDOR FOR AO/FI) FORMAT ; [ 12/06/2002 10:36 AM ]
;;3.1;CONTRACT HEALTH MGMT SYSTEM;**5**;JUN 11, 2001
;IHS/SET/GTH ACHS*3.1*5 12/06/2002 - New Routine.
;;
;;Record 4A - VENDOR RECORD.
;;Routine: ACHSTX4
;;
;; POSIT LENGTH VAR NAME JUSTIFY
;; ----- ------ -------- -------------------------- -------
;; 1- 2 2 constant 4A -
;; 3-14 12 ACHSEIN VENDOR ID NUMBER & SUF L
;; 15-44 30 ACHSNAME VENDOR NAME L
;; 45-46 2 ACHSPTYP VENDOR TYPE L
;; 47- 1 ACHSFED FED NON FED CODE -
;; 48-53 6 ACHSFAC FACILITY CODE -
;; 54-63 10 ACHSDAP VENDOR YTD PAID R
;; 64-69 6 ACHSUPDT DATE OF LAST UPDATE MMDDYY
;; Note: Century for above date is in 4B, 77-78.
;; 70-79 10 ACHSCN CONTRACT NUMBER L
;; 80 1 DOCUMENT DESTINATION -
;;
;;Record 4B - VENDOR RECORD.
;;Routine: ACHSTX4
;;
;; POSIT LENGTH VAR NAME JUSTIFY
;; ----- ------ -------- -------------------------- -------
;; 1- 2 2 constant 4B -
;; 3-32 30 STREET ADDRESS L
;; 33-52 20 CITY L
;; 53-54 2 ACHSST STATE -
;; 55-63 9 ZIP CODE L
;; 64- 1 ACHS1099 1099 PRINTED -
;; 65-74 10 ACHSFONE VENDOR PHONE NUMBER R
;; 75-76 2 ACHSAPN SITE ACCOUNTING POINT NUM R
;; 77-78 2 DATE OF LAST UPDATE, CENTURY CC
;; 78- 1 blank -
;; 80 1 DOCUMENT DESTINATION -
;
ACHSTX4D ;IHS/SET/GTH - RECORD 4(VENDOR FOR AO/FI) FORMAT ; [ 12/06/2002 10:36 AM ]
+1 ;;3.1;CONTRACT HEALTH MGMT SYSTEM;**5**;JUN 11, 2001
+2 ;IHS/SET/GTH ACHS*3.1*5 12/06/2002 - New Routine.
+3 ;;
+4 ;;Record 4A - VENDOR RECORD.
+5 ;;Routine: ACHSTX4
+6 ;;
+7 ;; POSIT LENGTH VAR NAME JUSTIFY
+8 ;; ----- ------ -------- -------------------------- -------
+9 ;; 1- 2 2 constant 4A -
+10 ;; 3-14 12 ACHSEIN VENDOR ID NUMBER & SUF L
+11 ;; 15-44 30 ACHSNAME VENDOR NAME L
+12 ;; 45-46 2 ACHSPTYP VENDOR TYPE L
+13 ;; 47- 1 ACHSFED FED NON FED CODE -
+14 ;; 48-53 6 ACHSFAC FACILITY CODE -
+15 ;; 54-63 10 ACHSDAP VENDOR YTD PAID R
+16 ;; 64-69 6 ACHSUPDT DATE OF LAST UPDATE MMDDYY
+17 ;; Note: Century for above date is in 4B, 77-78.
+18 ;; 70-79 10 ACHSCN CONTRACT NUMBER L
+19 ;; 80 1 DOCUMENT DESTINATION -
+20 ;;
+21 ;;Record 4B - VENDOR RECORD.
+22 ;;Routine: ACHSTX4
+23 ;;
+24 ;; POSIT LENGTH VAR NAME JUSTIFY
+25 ;; ----- ------ -------- -------------------------- -------
+26 ;; 1- 2 2 constant 4B -
+27 ;; 3-32 30 STREET ADDRESS L
+28 ;; 33-52 20 CITY L
+29 ;; 53-54 2 ACHSST STATE -
+30 ;; 55-63 9 ZIP CODE L
+31 ;; 64- 1 ACHS1099 1099 PRINTED -
+32 ;; 65-74 10 ACHSFONE VENDOR PHONE NUMBER R
+33 ;; 75-76 2 ACHSAPN SITE ACCOUNTING POINT NUM R
+34 ;; 77-78 2 DATE OF LAST UPDATE, CENTURY CC
+35 ;; 78- 1 blank -
+36 ;; 80 1 DOCUMENT DESTINATION -
+37 ;