DGPMX62.m

DGPMX62 ; ;10/15/12

 S X=DG(DQ),DIC=DIE

 S DGPMDDF=9 D ^DGPMDD1

 S X=DG(DQ),DIC=DIE

 S DGPMDDF=9,DGPMDDT=1 D ^DGPMDDCN

 S X=DG(DQ),DIC=DIE

 I $D(^DGPM(+$P(^DGPM(DA,0),"^",24),0)),($P(^(0),"^",2)=1) S A1B2TAG="ADM1" D ^A1B2XFR

 S X=DG(DQ),DIC=DIE

 S Y=^DGPM(DA,0) I +Y,Y<DT S Y=$P(Y,U,2) I Y=6,X'=$P(Y,U,9) S DGHNYT=13 D ^DGPMGLC

 S X=DG(DQ),DIC=DIE

 D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DFN)

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

DGPMX62   ; ;10/15/12

 +1        SET X=DG(DQ)

           SET DIC=DIE

 +2        SET DGPMDDF=9

           DO ^DGPMDD1

 +3        SET X=DG(DQ)

           SET DIC=DIE

 +4        SET DGPMDDF=9

           SET DGPMDDT=1

           DO ^DGPMDDCN

 +5        SET X=DG(DQ)

           SET DIC=DIE

 +6        IF $DATA(^DGPM(+$PIECE(^DGPM(DA,0),"^",24),0))

               IF ($PIECE(^(0),"^",2)=1)

                   SET A1B2TAG="ADM1"

                   DO ^A1B2XFR

 +7        SET X=DG(DQ)

           SET DIC=DIE

 +8        SET Y=^DGPM(DA,0)

           IF +Y

               IF Y<DT

                   SET Y=$PIECE(Y,U,2)

                   IF Y=6

                       IF X'=$PIECE(Y,U,9)

                           SET DGHNYT=13

                           DO ^DGPMGLC

 +9        SET X=DG(DQ)

           SET DIC=DIE

 +10       IF ($TEXT(ADGRU^DGRUDD01)'="")

               DO ADGRU^DGRUDD01(DFN)

 +11       IF $DATA(DE(14))'[0!(^DD(DP,DIFLD,"AUDIT")'="e")

               SET X=DG(DQ)

               SET DIIX=3_U_DIFLD

               DO AUDIT^DIET