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. |