Changeset 636 for FOIAVistA/tag/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGRPTX10.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 )
• REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGRPTX10.m (modified) (9 diffs)

FOIAVistA/tag/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGRPTX10.m

@@ -1 @@
-DGRPTX10 ; ;04/10/06
+DGRPTX10 ; ;04/21/06
  D DE G BEGIN
 DE S DIE="^DPT(",DIC=DIE,DP=2,DL=1,DIEL=0,DU="" K DG,DE,DB Q:$O(^DPT(DA,""))=""
@@ -62 +62 @@
  D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
 C1F1 S DIEZRXR(2,DIIENS)=$$OREF^DILF($NA(@$$CREF^DILF(DIE)))
- F DIXR=605 S DIEZRXR(2,DIXR)=""
+ F DIXR=602 S DIEZRXR(2,DIXR)=""
  Q
 X1 K:$L(X)>30!($L(X)<1) X I $D(X) S DFN=DA D K1^DGLOCK2
@@ -77 +77 @@
 C3S S X="" G:DG(DQ)=X C3F1 K DB
 C3F1 S DIEZRXR(2,DIIENS)=$$OREF^DILF($NA(@$$CREF^DILF(DIE)))
- F DIXR=605 S DIEZRXR(2,DIXR)=""
+ F DIXR=602 S DIEZRXR(2,DIXR)=""
  Q
 X3 I $D(X),X="Y" S DFN=DA D K1^DGLOCK2
@@ -99 +99 @@
  D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
 C5F1 S DIEZRXR(2,DIIENS)=$$OREF^DILF($NA(@$$CREF^DILF(DIE)))
- F DIXR=605 S DIEZRXR(2,DIXR)=""
+ F DIXR=602 S DIEZRXR(2,DIXR)=""
  Q
 X5 K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X I $D(X) S DFN=DA D K1^DGLOCK2
@@ -122 +122 @@
  D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
 C7F1 S DIEZRXR(2,DIIENS)=$$OREF^DILF($NA(@$$CREF^DILF(DIE)))
- F DIXR=605 S DIEZRXR(2,DIXR)=""
+ F DIXR=602 S DIEZRXR(2,DIXR)=""
  Q
 X7 K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X I $D(X) S DFN=DA D K1^DGLOCK2
@@ -137 +137 @@
 C9S S X="" G:DG(DQ)=X C9F1 K DB
 C9F1 S DIEZRXR(2,DIIENS)=$$OREF^DILF($NA(@$$CREF^DILF(DIE)))
- F DIXR=605 S DIEZRXR(2,DIXR)=""
+ F DIXR=602 S DIEZRXR(2,DIXR)=""
  Q
 X9 K:$L(X)>30!($L(X)<3) X I $D(X) S DFN=DA D K1^DGLOCK2
@@ -153 +153 @@
  D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
 C10F1 S DIEZRXR(2,DIIENS)=$$OREF^DILF($NA(@$$CREF^DILF(DIE)))
- F DIXR=605 S DIEZRXR(2,DIXR)=""
+ F DIXR=602 S DIEZRXR(2,DIXR)=""
  Q
 X10 K:$L(X)>30!($L(X)<3) X I $D(X) S DFN=DA D K1^DGLOCK2
@@ -170 +170 @@
  D:($T(ADGRU^DGRUDD01)'="") ADGRU^DGRUDD01(DA)
 C11F1 S DIEZRXR(2,DIIENS)=$$OREF^DILF($NA(@$$CREF^DILF(DIE)))
- F DIXR=605 S DIEZRXR(2,DIXR)=""
+ F DIXR=602 S DIEZRXR(2,DIXR)=""
  Q
 X11 I $D(X) S DFN=DA D K1^DGLOCK2
@@ -186 +186 @@
  D SET^DGREGDD1(DA,.218,.21,8,$E(X,1,5))
 C12F1 S DIEZRXR(2,DIIENS)=$$OREF^DILF($NA(@$$CREF^DILF(DIE)))
- F DIXR=605 S DIEZRXR(2,DIXR)=""
+ F DIXR=602 S DIEZRXR(2,DIXR)=""
  Q
 X12 K:X[""""!($A(X)=45) X I $D(X) S DFN=DA D K1^DGLOCK2 I $D(X) K:$L(X)>15!($L(X)<5) X I $D(X) D ZIPIN^VAFADDR