DGPMX42.m

DGPMX42 ; ;10/15/12

 S X=DG(DQ),DIC=DIE

 I $P(^DGPM(DA,0),"^",2)=3 S A1B2TAG="ADM" D ^A1B2XFR

DGPMX42   ; ;10/15/12

 +1        SET X=DG(DQ)

           SET DIC=DIE

 +2        IF $PIECE(^DGPM(DA,0),"^",2)=3

               SET A1B2TAG="ADM"

               DO ^A1B2XFR