| EXTRACT CODE |
K ^TMP($J,"IBC-RC"),IBXSAVE("DATE") N IBIFN,IBFL,IBZ S IBIFN=IBXIEN X "N A,B S A="""",B=6 F S A=$O(^TMP($J,""PROC"",A)) Q:'A S B=B+1,IBFL(80,B)=^(A),IBFL(80)=B" S:'$$INPAT^IBCEF(IBXIEN,1) IBXSAVE("DATE")=$$SERVDT^IBCEF(IBXIEN,6,0) D ^IBCF33 |
| DESCRIPTION |
The data to be included in form locators 42-49 for bill entry IBXIEN.
Also, for outpatient UB-04 claims, it saves the statement from date in
IBXSAVE("DATE")
Two formats of data are returned in ^TMP($J,"IBC-RC"):
^TMP($J,"IBC-RC",line #) = column flag=1^revenue code^revenue code std
abbreviation^CPT code^unit charge^units^total
charges^non-covered charges^form locator 49
^ien of revenue code multiple^modifiers
OR
^TMP($J,"IBC-RC",line #) = column flag=2 or 3^free text (2 prints text in
column 1, 3 in column 6)
|
