Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: IBXSA24

IBXSA24.m

Go to the documentation of this file.

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  Mar 13, 2025@21:35:53                                                                                                                                                                                                      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)