IBCF22 ;ALB/ARH - HCFA 1500 19-90 DATA (gather other data) ;12-JUN-93
Source file <IBCF22.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DATES | ;S IBFLD(14)=$$DATE($$EVENT(IBIFN))
|
|
| DX | ;S X=14 F IBI="21A","21B","21C","21D" S IBFLD(IBI)=$P($G(^ICD9(+$P(IB("C"),U,X),0)),U,1),X=X+1
|
|
| LAST3 | ||
| END | ||
| EVENT(IBIFN,IBXSAVE,IBERR,IBD) | ; The event date for box 14 on the
; HCFA 1500 ; IBIFN = bill ien ; IBXSAVE = the array returned by the output formatter for data element ; N-OCCURRENCE CODES ; Returns IBERR=1 if passed by reference meaning more than one condition ; has been found ; IBD("LMP"), IBD("ACC"), IBD("ONS"), IBD("EVT") returned with ; Last menstrual period date, accident date, date of onset, ; event date if IBD passed by reference ; Function returns the appropriate date |
|
| DATE(X) | ; format date(X) as MM DD YYYY
|
|
| QUAL(IBIFN,IBXBOX,IBXSAVE,IBD) | ; The event date for box 14 & box 15 on the
; HCFA 1500 ; IBIFN = bill ien ; IBXBOX = BOX 14 OR BOX 15 of CMS-1500 form ; IBXSAVE = the array returned by the output formatter for data element ; N-OCCURRENCE CODES ; ; IBD("LMP"), IBD("ACC"), IBD("ONS"), IBD("EVT") returned with ; Last menstrual period date, accident date, date of onset, ; event date if IBD passed by reference ; Function returns the appropriate date |
|
| ACC | ;Accident - 439
|
|
| LXRY | ; Last X-Ray - 455
|
|
| SCPT | ; Prescription - 471
|
|
| LVC | ;Latest Visit or Consultation - 304
|
|
| INTTRT | ;Initial Treatment - 454
|
|
| AMCC | ;Acute Manifestation of Chronic Condition - 453
|
