source:
WorldVistAEHR/trunk/r/RADIOLOGY_NUCLEAR_MEDICINE-RA/RACTRG11.m
Last change on this file was 613, checked in by , 15 years ago | |
---|---|
File size: 311 bytes |
Rev | Line | |
---|---|---|
[613] | 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.