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

DGRPTX27.m

Go to the documentation of this file.

DGRPTX27 ; ;05/14/26

 S X=DG(DQ),DIC=DIE

 I $D(DE(46))'[0!($G(^DD(DP,DIFLD,"AUDIT"))["y") S X=DG(DQ),DIIX=3_U_DIFLD D AUDIT^DIET

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGRPTX27   136     printed  Jul 11, 2026@02:53:08                                                                                                                                                                                                     Page 2

DGRPTX27  ; ;05/14/26

 +1        SET X=DG(DQ)

           SET DIC=DIE

 +2       ;

 +3        IF $DATA(DE(46))'[0!($GET(^DD(DP,DIFLD,"AUDIT"))["y")

               SET X=DG(DQ)

               SET DIIX=3_U_DIFLD

               DO AUDIT^DIET