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 |