| Name | Value |
|---|---|
| FORM FIELD REFERENCE | LEGACY UB-92 |
| 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=$P($G(^ICD9(+IBZ(Z),0)),U) I C>1 S IBXSAVE("DX",C)=+IBZ(Z) |
| FORMAT CODE DESCRIPTION |
The principal dx is found in the first occurrence of the data element's
values. The rest of the diagnoses are saved off in the IBXSAVE("DX") array
for later use. Only allow 1 E-code.
|