N-TYPE INSURANCE CO NUMBER-ALL (308)    IB DATA ELEMENT DEFINITION (364.5)

Name Value
NAME N-TYPE INSURANCE CO NUMBER-ALL
SECURITY LEVEL NATIONAL,NO EDIT
TYPE OF ELEMENT EXTRACTED VIA CODE
ELEMENT CATEGORY GROUP ELEMENT
BASE FILE BILL/CLAIMS
EXTRACT CODE S (N,V,Z,I,IBXSAVE("D"))="" F S N=$O(^IBE(355.97,N)) Q:N=""&(I="") S I=$P($G(^(N,0)),U,1,4),Z=$P($G(I),U,1),V=$S(Z["CROSS":1,Z["SHIE":2,Z["CHAM":3,Z["COMM":4,Z["ART A":5,Z["ARTB":6,Z["HMO":7,1:"0") S:V $P(IBXSAVE("D"),"|",V)=$P(I,U,4)
DESCRIPTION
Extract using appriate functions, the actual numbers associated with each 
category. To be parsed in 16,2 thru 13.