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.