Last change
on this file since 1318 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
311 bytes
|
Line | |
---|
1 | RACTRG11 ; ;05/26/08
|
---|
2 | ;;
|
---|
3 | 1 N X,X1,X2 S DIXR=475 D X1(U) K X2 M X2=X D X1("F") K X1 M X1=X
|
---|
4 | I $G(X(1))]"" D
|
---|
5 | . D KRAD^RAPXRM(.X,.DA)
|
---|
6 | K X M X=X2 I $G(X(1))]"" D
|
---|
7 | . D SRAD^RAPXRM(.X,.DA)
|
---|
8 | Q
|
---|
9 | X1(DION) K X
|
---|
10 | S X(1)=$G(@DIEZTMP@("V",70.03,DIIENS,2,DION),$P($G(^RADPT(DA(2),"DT",DA(1),"P",DA,0)),U,2))
|
---|
11 | S X=$G(X(1))
|
---|
12 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.