| Name | Value |
|---|---|
| NAME | N-PURCHASED SERVICE ALL |
| SECURITY LEVEL | NATIONAL,NO EDIT |
| TYPE OF ELEMENT | EXTRACTED VIA CODE |
| ELEMENT CATEGORY | GROUP ELEMENT |
| BASE FILE | BILL/CLAIMS |
| EXTRACT CODE | S A=$P($G(^DGCR(399,IBXIEN,"U2")),U,10,11) S:$P(A,U,2)\2 I1=$P(A,U,1),N=$P(^IBA(355.93,I1,0),U,9),I4=+$P($Q(^IBA(355.9,"C",N)),",",4),I5=$P(^IBA(355.9,I4,0),U,6) |
| DESCRIPTION | USED IN 364.7 SEQUENCE 56 PICES 2 AND 3. cAN BE USED FOR THE REST ALSO. I5 USED TO EXTRACT THE QUALIFIER FROM ^IBE(355.97) PIECE 3 |