source: WorldVistAEHR/trunk/r/RADIOLOGY_NUCLEAR_MEDICINE-RA/RACTRG10.m@ 613

Last change on this file since 613 was 613, checked in by George Lilly, 14 years ago

initial load of WorldVistAEHR

File size: 311 bytes
Line 
1RACTRG10 ; ;01/02/09
2 ;;
31 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
9X1(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.