DGPMX14.m

DGPMX14 ; ;04/14/04

 S X=DE(12),DIC=DIE

 S DGPMDDF=6,DGPMDDT=0 D ^DGPMDDCN

 S X=DE(12),DIC=DIE

 ;

 S X=DE(12),DIC=DIE

 S Y=^DGPM(DA,0) I +Y,Y<DT,X'=$P(Y,U,6) S Y=$P(Y,U,2) I Y<3 S DGOWD=$S($D(^DIC(42,+X,0)):$P(^(0),U),1:"") K DGIDX

DGPMX14   ; ;04/14/04

 +1        SET X=DE(12)

           SET DIC=DIE

 +2        SET DGPMDDF=6

           SET DGPMDDT=0

           DO ^DGPMDDCN

 +3        SET X=DE(12)

           SET DIC=DIE

 +4       ;

 +5        SET X=DE(12)

           SET DIC=DIE

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

           IF +Y

               IF Y<DT

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

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

                       IF Y<3

                           SET DGOWD=$SELECT($DATA(^DIC(42,+X,0)):$PIECE(^(0),U),1:"")

                           KILL DGIDX