IBCEP2A ;ALB/TMP - EDI UTILITIES for provider ID ;25-APR-01
Source file <IBCEP2A.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ALT(IBPERF,IBSRC,IBALT,IBINS4,IBPTYP) | ; set source level to next higher level
; or set the alternate type and source if performing provider id ; alternate type and source exist ; IBPERF = 1 if performing provider id is requested ; IBINS4 = '4' node of insurance co (file 36) ; Pass IBPTYP by reference to get alternate provider id type ; Pass IBALT by reference. Set to 1 if alternate id is to be used next |
|
| ALTQ | ||
| IDSET(IBPTYP,IBINS4,IBPERF,IBSPEC,IBSRC,IBUP) | ; set variables for provider id type search
|
|
| CAREST(IBIFN) | ; Return state file ien of state where care was performed
; IBIFN = ien of bill in file 399 |
|
| CARESTX | ;
|
|
| RECALCA(IBIFN) | ; Recalculate all performing provider id's on bill IBIFN
; IBIFN = ien of bill entry (file 399) |
|
| RECALC(IBDA,IBSEQ,IBX,IBD) | ; Recalculate id #, if possible - called
; from input transforms in subfile 399.0222, fields .05-.07 ; IBDA = DA array of the provider entry (file 399.0222) ; IBSEQ = the numeric COB sequence of the provider id (1-3) ; IBX = the current value of the id in the subfile ; IBD = flag that if set to 1 will suppress the display text |
|
| RECALCQ | ||
| PERFPRV(IBIFN) | ; Returns the variable pointer of the 'performing provider'
; (attending or rendering) for a bill IBIFN |
|
| INSPAR(IBIFN,SEQ) | ;
|
|
| GETTYP(IBXIEN,IBCOBN,IBFUNC) | ; Function returns provider id type for insurance co
; with COB of IBCOBN on claim ien IBXIEN in first ^ pc and 1 in second ; ^ piece if the id is required ; ; IBFUNC=1:REFERRING;2:OPERATING;3:RENDERING;4:ATTENDING;5:SUPERVISING;6:ASSISTANT SURGEON;9:OTHER ; |
|
| UNIQ1(IBIFN,IBINS,IBPTYP,IBPROV,IBUNIT,IBCU,IBT) | ; Match most-least specific
; *** SEE PARAMETER DEFINITIONS IN IBCEP3 *** |
|
| UNIQ1Q | ||
| UNIQ2(IBIFN,IBINS,IBPTYP,IBUNIT,IBCU,IBT) | ; Match on most-least specific
; *** SEE PARAMETER DEFINITIONS IN IBCEP3 *** |
|
| UNIQ2Q |
