| Name | Value |
|---|---|
| NAME | N-DIAGNOSES |
| SECURITY LEVEL | NATIONAL,NO EDIT |
| TYPE OF ELEMENT | EXTRACTED VIA CODE |
| ELEMENT CATEGORY | GROUP ELEMENT |
| BASE FILE | BILL/CLAIMS |
| EXTRACT CODE | N IBNDXX,IBDXX D SET^IBCSC4D(IBXIEN,.IBDXX,.IBNDXX) S IBNDXX=0 F S IBNDXX=$O(IBNDXX(IBNDXX)) Q:'IBNDXX S IBXDATA(IBNDXX)=+IBNDXX(IBNDXX)_U_$G(IBDXX(+IBNDXX(IBNDXX))) K ^TMP("IBXSAVE",$J,"DX",IBXIEN) |
| DESCRIPTION |
The array of diagnoses for bill entry IBXIEN. Principal diagnosis is in
IBXDATA(1). Data is in internal (pointer value) format.
Array ^TMP("IBXSAVE",$J,"DX",ib diagnosis file ptr (file 362.3))=ctr is used
to determine the associated diagnosis positional pointer (box 24E on HCFA
1500). Data is returned in an array IBXDATA(1-n).
|