DGPMX41.m

DGPMX41 ; ;10/15/12

 S X=DE(12),DIC=DIE

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

DGPMX41   ; ;10/15/12

 +1        SET X=DE(12)

           SET DIC=DIE

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

               SET A1B2TAG="ADM"

               DO ^A1B2XFR