source: FOIAVistA/trunk/r/RADIOLOGY_NUCLEAR_MEDICINE-RA/RACTRG11.m@ 1757

Last change on this file since 1757 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 311 bytes
Line 
1RACTRG11 ; ;05/26/08
2 ;;
31 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
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.