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

GRPX75.m

Go to the documentation of this file.

GRPX75 ; ;11/21/01

 S X=DG(DQ),DIC=DIE

 X "S DFN=DA D EN^DGMTR K DGREQF"

 S X=DG(DQ),DIC=DIE

 D AUTOUPD^DGENA2(DA)

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGRPX75   120     printed  Nov 22, 2024@17:06:15                                                                                                                                                                                                       Page 2

GRPX75    ; ;11/21/01

 +1        SET X=DG(DQ)

           SET DIC=DIE

 +2        XECUTE "S DFN=DA D EN^DGMTR K DGREQF"

 +3        SET X=DG(DQ)

           SET DIC=DIE

 +4        DO AUTOUPD^DGENA2(DA)