IBCEU ;ALB/TMP - EDI UTILITIES ;02-OCT-96
Source file <IBCEU.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| TESTPT(DFN) | ; Determine if pt is test pt
; Returns 1 if a test pt, 0 if not |
|
| MAINPRV(IBIFN) | ; Returns name^id^ien^type code of 'main' prov on bill IBIFN
|
|
| PRVOK(VAL,IBIFN) | ; Check bill form & prov function agree
; VAL = internal value of prov function |
|
| PRVOK1(VAL,IBIFN) | ; Check for both attending and rendering on bill
|
|
| SPEC(IBPRV,IBDT) | ; Returns spec code for vp ien IBPRV from file 355.9
; (for new person entries, as of date in IBDT) ; DBIA 1625 |
|
| CRED(IBPRV,IBIFN,IBPIEN,IBTYP) | ; Returns prov credentials
; IBPRV = vp of provider for file 200 or 355.93 ; IBIFN = bill ien in file 399 (optional) ; IBPIEN = prov ien - file 399.0222 (optional) ; DEM;432 - prov ien can be from file 399.0404 ; as well (optional). ; IBTYP = the prov type |
|
| CREDQ | ;
|
|
| GETPRV(IBIFN,IBTYP,IBPRV) | ; Returns prov(s) of type(s) IBTYP for
; bill ien IBIFN. ; IBTYP = prov types needed, separated by ',' or ALL ; ; OUTPUT: ; IBPRV array: IBPRV(type)= 1 if prov is from old prov flds ; IBPRV(type,ct)=name^current COB id^vp provider ien^cred ; IBPRV(type,ct,seq)=COB seq specific id ; IBPRV(type)=default nm^def id ; IBPRV(type,"NOTOPT")= defined if a required prov type |
|
| GETQ | ||
| NEEDPRV(IBIFN,IBTYP,IBPRV) | ; Check for needed prov
; If needed, not entered, insert defaults for MCR only |
|
| CKPROV(IBIFN,IBTYP,IBVAL) | ; Checks if prov of type IBTYP in 'PRV' node
; of bill IBIFN ; If IBVAL = 1, skips the check for an existing provider, just looks ; for existence of the function itself |
|
| XFER(IBQ) | ; Transfer DILIST
; IBQ = # of entries already found |
|
| DATE(X) | ; Convert date X in YYYYMMDD or YYMMDD to FM format
; FP = flag to indicate if past or future dates are expected |
|
| DTQ | ||
| BCLASS(IBIFN) | ; Returns actual bill classif. code from ptr fld
; .25 in file 399 for bill ien IBIFN |
|
| ADMHR(IBIFN,IBDTTM) | ; Extract admit hr from admit dt/tm
; Default 00 if no time and bill is 11X or 18X |
|
| OLAB(IBIFN) | ; Returns 1 if bill IBIFN is outside lab
|
|
| PSRV(IBIFN) | ; Returns 1 if bill IBIFN has any purch services
|
|
| SEQBILL(IBIFN) | ; Returns the ien's of all bills in COB sequence for bill IBIFN
; Return value is "^" delimited: primary ien^secondary ien^tertiary ien |
|
| GETPRV1(IBIFN,IBTYP,IBPRV) | ; Returns prov(s) of type(s) IBTYP for
; bill ien IBIFN for TPJI display ; IBTYP = prov types needed, separated by ',' or ALL ; ; OUTPUT: ; IBPRV array: IBPRV(level,type,ct)=name^current COB id^vp provider ien^cred |
|
| RTYPOK(VAL,IBIFN) | ;sceen for field 399,285 Attachment Report Type - Check for a valid Report Type depending on Claim Type
; VAL = internal value of report type file#353.3 ; IBIFN = file 399 ien |
