Routine: IBCF23A

Information

IBCF23A ;ALB/ARH - HCFA 1500 19-90 DATA - Split from IBCF23 ;12-JUN-93

Source file <IBCF23A.m>

Name	Comments	DBIA/ICR reference
B24	; set individual entries in print array, external format ; IBAUX = additional data for EDI output ; IBRXF = array of RX procedures
AUXOK(IBSS,IBSS1)	; Check all other flds are the same to combine procs ; IBSS = subscript of IBCP to check for dups to combine - pass by ref ; IBSS(IBSS,"AUX-X",n) = all the previously extracted line items for the ; same set of basic data, but having different "AUX" data ; IBSS1 = the "AUX" data of the current IBCP entry
PRC	; Extract procedure data for HCFA 1500 ; IBRC(IBSS) = #rev codes with same billing criteria (IBSS) ; IBLINK('CP' ien,'RC' ien) = IBSS including modifiers,rx seq in pc 7,8 ; IBLINK1(IBSS, 'RC' ien) = auto (1)^ 'CP' ien (soft link)
IBSS(IBI,IBDXI,IBLN)	; Creates index sequence for procedure
IBSSX	;
IBNWPTCH(IBIFN,IBPATCH)	;