DGPTX15.m

DGPTX15 ; ;10/15/12

 S X=DG(DQ),DIC=DIE

 X ^DD(2,.32103,1,1,1.3) I X S X=DIV S Y(2)=";"_$S($D(^DD(2,.3212,0)):$P(^(0),U,3),1:""),Y(1)=$S($D(^DPT(D0,.321)):^(.321),1:"") S X=$P($P(Y(2),";"_$P(Y(1),U,12)_":",2),";",1) S DIU=X K Y S X=DIV S X="" X ^DD(2,.32103,1,1,1.4)

 S X=DG(DQ),DIC=DIE

 X ^DD(2,.32103,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.321)):^(.321),1:"") S X=$P(Y(1),U,11) S DIU=X K Y S X=DIV S X="" X ^DD(2,.32103,1,2,1.4)

 S X=DG(DQ),DIC=DIE

 D AUTOUPD^DGENA2(DA)

DGPTX15   ; ;10/15/12

 +1        SET X=DG(DQ)

           SET DIC=DIE

 +2        XECUTE ^DD(2,.32103,1,1,1.3)

           IF X

               SET X=DIV

               SET Y(2)=";"_$SELECT($DATA(^DD(2,.3212,0)):$PIECE(^(0),U,3),1:"")

               SET Y(1)=$SELECT($DATA(^DPT(D0,.321)):^(.321),1:"")

               SET X=$PIECE($PIECE(Y(2),";"_$PIECE(Y(1),U,12)_":",2),";",1)

               SET DIU=X

               KILL Y

               SET X=DIV

               SET X=""

               XECUTE ^DD(2,.32103,1,1,1.4)

 +3        SET X=DG(DQ)

           SET DIC=DIE

 +4        XECUTE ^DD(2,.32103,1,2,1.3)

           IF X

               SET X=DIV

               SET Y(1)=$SELECT($DATA(^DPT(D0,.321)):^(.321),1:"")

               SET X=$PIECE(Y(1),U,11)

               SET DIU=X

               KILL Y

               SET X=DIV

               SET X=""

               XECUTE ^DD(2,.32103,1,2,1.4)

 +5        SET X=DG(DQ)

           SET DIC=DIE

 +6        DO AUTOUPD^DGENA2(DA)