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
