IBCEFG1 ;ALB/TMP - OUTPUT FORMATTER DATA DEFINITION UTILITIES ;18-JAN-96
Source file <IBCEFG1.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EDIBILL(IBXFORM,IBXDA,IBINS,IBTYP) | ; Find element associated with form fld
; IBXFORM = (REQUIRED) actual form being extracted (in file 353) ; IBXDA = (REQUIRED) form definition file (364.6) entry to use to find ; extract data element definition entry (in file 364.7) ; IBINS = (REQUIRED) insurance co. ien for the current insurance on bill ; IBTYP = (REQUIRED) bill type (I/O) |
|
EDIQ | ||
DT(DATE1,DATE2,FORMAT) | ; Return date in DATE1 (and optionally DATE2)
; (input in Fileman format) converted to X12 format ; FORMAT (required) ; DATE1,DATE2 in FILEMAN date format |
|
DTQ | ||
NAME(IBNM1,COMB) | ; Parse person's nm into 5 pieces LAST^FIRST^MIDDLE^CRED^SUFFIX
; IBNM1 = NAME in LAST,FIRST MIDDLE^vp file ien (200 or 355.93)^bill ien^prv type ; OR FIRST MIDDLE LAST^vp file ien (200 or 355.93)^bill ien^prv type ; COMB = if set to 1, then combine the first and middle name ; if set to 2, combine the last and middle names |
|
NAMEQ | ||
DOLLAR(AMT) | ; Format amount in AMT so it is numeric including cents, without
; the decimal and commas. |
|
STATE(CODE) | ;Return state code from state pointer
|
|
SEX(CODE) | ;Return the X12 code for sex
; CODE = DHCP code for sex |
|
EMPLST(CODE) | ;Return the X12 code for employment status
; CODE = DHCP code for employment status |
|
MARITAL(CODE) | ;Return the X12 code for marital status
; CODE = ien of code for marital status |
|
TOS(CODE) | ;Return the X12 code for type of service
; CODE = DHCP code for type of service |
|
FIXLEN(DATA,LEN) | ; Create a fixed length field from data DATA length LEN
|
|
RCDT(IBXSAVE,IBXDATA,IBDT) | ; Format date for multiple revenue code transmission)
|