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) | ;
|
FileNo | Call Tags |
---|---|
^IBA(364 - [#364] | GET1^DIQ |
^IBA(364.1 - [#364.1] | GET1^DIQ |
^DGCR(399 - [#399] | GET1^DIQ |
399.0304 | GET1^DIQ |