DGPMX41 ; ;08/02/04
 S X=DE(12),DIC=DIE
 I $P(^DGPM(DA,0),"^",2)=3 S A1B2TAG="ADM" D ^A1B2XFR