DGPMX44.m

DGPMX44 ; ;04/14/04

 S X=DG(DQ),DIC=DIE

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

DGPMX44   ; ;04/14/04

 +1        SET X=DG(DQ)

           SET DIC=DIE

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

               SET A1B2TAG="ADM"

               DO ^A1B2XFR