|
Last change
on this file since 635 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.
