TIUEDS3.m

TIUEDS3 ; ;02/28/13

 S X=DE(12),DIC=DIE

 K ^TIU(8925,"CA",$E(X,1,30),DA)

 S X=DE(12),DIC=DIE

 I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,"AAU",+X,+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-$P(^TIU(8925,+DA,13),U)),+DA)

 S X=DE(12),DIC=DIE

 I +$P($G(^TIU(8925,+DA,15)),U) K ^TIU(8925,"AAUP",+X,+$P($G(^TIU(8925,+DA,15)),U),+DA)

 S X=DE(12),DIC=DIE

 D KACLAU^TIUDD01(1202,X)

 S X=DE(12),DIC=DIE

 ;

TIUEDS3   ; ;02/28/13

 +1        SET X=DE(12)

           SET DIC=DIE

 +2        KILL ^TIU(8925,"CA",$EXTRACT(X,1,30),DA)

 +3        SET X=DE(12)

           SET DIC=DIE

 +4        IF +$PIECE($GET(^TIU(8925,+DA,0)),U)

               IF +$PIECE($GET(^TIU(8925,+DA,13)),U)

                   IF +$PIECE($GET(^TIU(8925,+DA,0)),U,5)

                       KILL ^TIU(8925,"AAU",+X,+$PIECE(^TIU(8925,+DA,0),U),+$PIECE(^TIU(8925,+DA,0),U,5),(9999999-$PIECE(^TIU(8925,+DA,13),U)),+DA)

 +5        SET X=DE(12)

           SET DIC=DIE

 +6        IF +$PIECE($GET(^TIU(8925,+DA,15)),U)

               KILL ^TIU(8925,"AAUP",+X,+$PIECE($GET(^TIU(8925,+DA,15)),U),+DA)

 +7        SET X=DE(12)

           SET DIC=DIE

 +8        DO KACLAU^TIUDD01(1202,X)

 +9        SET X=DE(12)

           SET DIC=DIE

 +10      ;