source: FOIAVistA/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDS14.m@ 794

Last change on this file since 794 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 684 bytes
Line 
1TIUEDS14 ; ;01/12/06
2 ;;
31 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
9X1(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
Note: See TracBrowser for help on using the repository browser.