| 1 | TIUEDS14 ; ;01/12/06
|
|---|
| 2 | ;;
|
|---|
| 3 | 1 N X,X1,X2 S DIXR=247 D X1(U) K X2 M X2=X D X1("F") K X1 M X1=X
|
|---|
| 4 | I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
|
|---|
| 5 | . K ^TIU(8925,"ADIV",X(1),X(2),X(3),X(4),DA)
|
|---|
| 6 | K X M X=X2 I $G(X(1))]"",$G(X(2))]"",$G(X(3))]"",$G(X(4))]"" D
|
|---|
| 7 | . S ^TIU(8925,"ADIV",X(1),X(2),X(3),X(4),DA)=""
|
|---|
| 8 | Q
|
|---|
| 9 | X1(DION) K X
|
|---|
| 10 | S X(1)=$G(@DIEZTMP@("V",8925,DIIENS,1212,DION),$P($G(^TIU(8925,DA,12)),U,12))
|
|---|
| 11 | S X(2)=$G(@DIEZTMP@("V",8925,DIIENS,.01,DION),$P($G(^TIU(8925,DA,0)),U,1))
|
|---|
| 12 | S X(3)=$G(@DIEZTMP@("V",8925,DIIENS,.05,DION),$P($G(^TIU(8925,DA,0)),U,5))
|
|---|
| 13 | S X=$G(@DIEZTMP@("V",8925,DIIENS,1301,DION),$P($G(^TIU(8925,DA,13)),U,1))
|
|---|
| 14 | I $D(X)#2 S X=9999999-X
|
|---|
| 15 | S:$D(X)#2 X(4)=X
|
|---|
| 16 | S X=$G(X(1))
|
|---|
| 17 | Q
|
|---|
