source:
WorldVistAEHR/tag/Release_6_08/r/RADIOLOGY_NUCLEAR_MEDICINE-RA/RACTRG11.m
Last change on this file was 613, checked in by , 15 years ago | |
---|---|
File size: 311 bytes |
Line | |
---|---|
1 | RACTRG11 ; ;11/06/06 |
2 | ;; |
3 | 1 N X,X1,X2 S DIXR=490 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.