Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ACHSTX5D

ACHSTX5D.m

Go to the documentation of this file. 
  1. 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
  1.  ;IHS/SET/GTH ACHS*3.1*5 12/06/2002 - New Routine.
  1.  ;;
  1.  ;;Record 5A - DOCUMENT (PURCHASE ORDER) RECORD.
  1.  ;;Routine:  ACHSTX5
  1.  ;;
  1.  ;;   POSIT  LENGTH  VAR       NAME                         JUSTIFY
  1.  ;;   -----  ------  --------  --------------------------   -------
  1.  ;;    1- 2       2  constant  5A                           -
  1.  ;;    3-12      10  ACHSDOCN  PURCHASE ORDER NUMBER        -
  1.  ;;   13-14       2  ACHSTOS   PO TYPE (43, 57,64)          -
  1.  ;;   15-20       6  FAC       FACILITY CODE                -
  1.  ;;   21-         1  ACHSBIND  BLANKET INDICATOR            -
  1.  ;;   22-33      12  ACHSEIN   VENDOR ID NUMBER             L
  1.  ;;   34-39       6  ACHSHRN   HEALTH RECORD NUMBER         R
  1.  ;;   40-39      10  ACHSCN    CONTRACT NUMBER              L
  1.  ;;   50-56       7  ACHSCAN   COMMON ACCOUNTING NUMBER     -
  1.  ;;   57-60       4  ACHSOBJC  OBJECT CLASSIFICATION        -
  1.  ;;   61-66       6            ORDER DATE (YYMMDD)          -
  1.  ;;   67-68       2  ACHSSTS   PO SUFFIX (2 blanks or "AD") -
  1.  ;;   69-76       8  ACHSIPA   AMOUNT                       R
  1.  ;;   77-79       3  ACHSESDA  EST. INPATIENT DAYS          R
  1.  ;;   80          1  ACHSFED   FED NON FED CODE             -
  1.  ;;
  1.  ;;Record 5B - DOCUMENT (PO) RECORD (PART 2).
  1.  ;;Routine:  ACHSTX5
  1.  ;;
  1.  ;;   POSIT  LENGTH  VAR       NAME                         JUSTIFY
  1.  ;;   -----  ------  --------  --------------------------   -------
  1.  ;;    1-2        2  constant  5B                           -
  1.  ;;    3-4        2  ACHSREFT  REFERRAL TYPE (DENTAL ONLY)  R
  1.  ;;    5-10       6  ACHSEDOS  DATE OF SERV. (EST) (YYMMDD) -
  1.  ;;   11-16       6  ACHSFDT   BEGIN AUTH. DATE (YYMMDD)    -
  1.  ;;   17-22       6  ACHSTDT   ENDING AUTH. DATE (YYMMDD)   -
  1.  ;;   23-38      16            PATIENT NAME (LAST,FIRST)    -
  1.  ;;   39-54      16            PATIENT INSURER # 1          -
  1.  ;;   55-70      16            PATIENT INSURER # 2          -
  1.  ;;   71-73       3            TRIBAL CODE (3 DIGIT)
  1.  ;;   74-80       7            COMMUNITY CODE (COMM_CO_ST)
  1.  ;;
  1.  ;;Record  5C - DOCUMENT (PO) RECORD (PART 3).
  1.  ;;
  1.  ;;   POSIT  LENGTH  VAR       NAME                         JUSTIFY
  1.  ;;   -----  ------  --------  --------------------------   -------
  1.  ;;    1-2        2  constant 5C                            -
  1.  ;;    3-6        4  ACHSSCC   SERVICE CLASS CODE           -
  1.  ;;    7-14       8            ORDER DATE                   CCYYMMDD
  1.  ;;   15-22       8            DATE OF SERVICE (EST)        CCYYMMDD
  1.  ;;   23-30       8            BEGIN AUTH. DATE             CCYYMMDD
  1.  ;;   31-38       8            ENDING AUTH. DATE            CCYYMMDD
  1.  ;;   39-54      16  ACHSAGID  PT REG UNIQ ID 15 CHAR 1 BLNK  -
  1.  ;;    55         1            APPROVE STERILIZATON
  1.  ;;    56         1            APPROVE IN SUPPORT DIRECT CARE
  1.  ;;    57         1  ACHSDB    DATABASE ID 1-NEW BLNK-OLD   -
  1.  ;;    58-80      26            blanks                       -
  1.  ;