| Name | Value |
|---|---|
| NAME | N-ALL INSURED PT RELATION |
| SECURITY LEVEL | NATIONAL,NO EDIT |
| TYPE OF ELEMENT | EXTRACTED VIA CODE |
| ELEMENT CATEGORY | GROUP ELEMENT |
| BASE FILE | BILL/CLAIMS |
| EXTRACT CODE | N Z,Q,T,R,DFN,VAEL S Q=IBXIEN,DFN=$P($G(^DGCR(399,Q,0)),U,2) F Z=1:1:3 K VAEL S (T,IBXDATA(Z))=$$POLICY^IBCEF(Q,16,Z) I +T,"12"[+T D ELIG^VADPT S R=$S('VAEL(4):"",1:$$POLICY^IBCEF(Q,6,Z)),IBXDATA(Z)=$S(R="v":"01",R="s":"02",T:T,1:"09") |
| DESCRIPTION | Extracts the primary, secondary, and tertiary insurance insured's pt relation into the IBXDATA(1),(2),(3) array for bill entry IBXIEN. |