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

IBXSC828.m

Go to the documentation of this file.

IBXSC828 ; ;09/05/07

 S X=DG(DQ),DIC=DIE

 D ATTREND^IBCU1(DA(1),DA,.06)

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBXSC828   75     printed  Apr 09, 2024@21:29:13                                                                                                                                                                                                      Page 2

IBXSC828  ; ;09/05/07

 +1        SET X=DG(DQ)

           SET DIC=DIE

 +2        DO ATTREND^IBCU1(DA(1),DA,.06)