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: IBCEP2A

Package: Integrated Billing

Routine: IBCEP2A


Information

IBCEP2A ;ALB/TMP - EDI UTILITIES for provider ID ;25-APR-01

Source Information

Source file <IBCEP2A.m>

Entry Points

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