IBXSA24 ; ;11/02/18
S X=DG(DQ),DIC=DIE
X ^DD(399,142,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,"M2")):^("M2"),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X=$$ACIDD^IBCU(DA,2,X) X ^DD(399,142,1,1,1.4)
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBXSA24 215 printed Nov 22, 2024@17:40:55 Page 2
IBXSA24 ; ;11/02/18
+1 SET X=DG(DQ)
SET DIC=DIE
+2 XECUTE ^DD(399,142,1,1,1.3)
IF X
SET X=DIV
SET Y(1)=$SELECT($DATA(^DGCR(399,D0,"M2")):^("M2"),1:"")
SET X=$PIECE(Y(1),U,4)
SET X=X
SET DIU=X
KILL Y
SET X=DIV
SET X=$$ACIDD^IBCU(DA,2,X)
XECUTE ^DD(399,142,1,1,1.4)
