Changeset 636 for FOIAVistA/tag/r/RADIOLOGY_NUCLEAR_MEDICINE-RA/RACTRG2.m

Timestamp:

Dec 4, 2009, 8:26:01 PM (14 years ago)

Author:

George Lilly

Message:

WorldVistAEHR overlayed on FOIAVistA

Location:

FOIAVistA/tag/r

Files:

• . (copied) (copied from FOIAVistA/trunk/r )
• RADIOLOGY_NUCLEAR_MEDICINE-RA/RACTRG2.m (modified) (3 diffs)

FOIAVistA/tag/r/RADIOLOGY_NUCLEAR_MEDICINE-RA/RACTRG2.m

@@ -1 @@
-RACTRG2 ; ;05/26/08
+RACTRG2 ; ;11/06/06
  D DE G BEGIN
 DE S DIE="^RADPT(D0,""DT"",D1,""P"",",DIC=DIE,DP=70.03,DL=3,DIEL=2,DU="" K DG,DE,DB Q:$O(^RADPT(D0,"DT",D1,"P",DA,""))=""
@@ -106 +106 @@
  ;
 C8F1 S DIEZRXR(70.03,DIIENS)=$$OREF^DILF($NA(@$$CREF^DILF(DIE)))
- F DIXR=475 S DIEZRXR(70.03,DIXR)=""
+ F DIXR=490 S DIEZRXR(70.03,DIXR)=""
  Q
 X8 S DIC("S")="I $$ACTC^RACPTCSV" X ^DD(70.03,2,9.2)
@@ -144 +144 @@
  ;
 C15F1 S DIEZRXR(70.03,DIIENS)=$$OREF^DILF($NA(@$$CREF^DILF(DIE)))
- F DIXR=475 S DIEZRXR(70.03,DIXR)=""
+ F DIXR=490 S DIEZRXR(70.03,DIXR)=""
  Q
 X15 S DIC("S")="I $$ACTC^RACPTCSV" X ^DD(70.03,2,9.2)