Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points
Print Page as PDF
Routine: IBCEFG1

Package: Integrated Billing

Routine: IBCEFG1


Information

IBCEFG1 ;ALB/TMP - OUTPUT FORMATTER DATA DEFINITION UTILITIES ;18-JAN-96

Source Information

Source file <IBCEFG1.m>

Entry Points

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)
Info |  Source |  Entry Points