| Name | Value |
|---|---|
| FORM FIELD REFERENCE | UB-04 |
| SECURITY LEVEL | NATIONAL,NO EDIT |
| DATA ELEMENT | N-DIAGNOSES |
| PAD CHARACTER | NO PAD REQUIRED |
| FORMAT CODE | N C,Z,Z0,IBZ M IBZ=IBXDATA K IBXDATA S (C,Z)=0 F S Z=$O(IBZ(Z)) Q:'Z I '$$ECODE^IBCEU4(+IBZ(Z)) S C=C+1 S:C=1 IBXDATA=$TR($P($$ICD9^IBACSV(+IBZ(Z),$$BDATE^IBACSV(IBXIEN)),U),".") S IBXSAVE("DX",C)=+IBZ(Z)_U_$$GETPOA^IBCEU4($P(IBZ(Z),U,2),1) |
| FORMAT CODE DESCRIPTION |
The principal dx is found in the first occurrence of the data element's
values. The diagnoses are saved off in the IBXSAVE("DX") array for later
use. Only allow 3 E-codes in ICD-9.
|