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

IBXS124.m

Go to the documentation of this file.

IBXS124 ; ;12/08/20

 S X=DG(DQ),DIC=DIE

 D SET^DGREGDD1(DA,.1216,.121,6,$E(X,1,5))

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBXS124   86     printed  Oct 16, 2024@18:30:35                                                                                                                                                                                                       Page 2

IBXS124   ; ;12/08/20

 +1        SET X=DG(DQ)

           SET DIC=DIE

 +2        DO SET^DGREGDD1(DA,.1216,.121,6,$EXTRACT(X,1,5))