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

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

@@ -1 @@
-DGRPTX13 ; ;04/10/06
+DGRPTX13 ; ;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,""))=""
@@ -60 +60 @@
 C1S S X="" G:DG(DQ)=X C1F1 K DB
 C1F1 S DIEZRXR(2,DIIENS)=$$OREF^DILF($NA(@$$CREF^DILF(DIE)))
- F DIXR=607 S DIEZRXR(2,DIXR)=""
+ F DIXR=604 S DIEZRXR(2,DIXR)=""
  Q
 X1 I $D(X),X="Y" D K1^DGLOCK2
@@ -97 +97 @@
  Q
 C6F2 S DIEZRXR(2,DIIENS)=$$OREF^DILF($NA(@$$CREF^DILF(DIE)))
- F DIXR=607 S DIEZRXR(2,DIXR)=""
+ F DIXR=604 S DIEZRXR(2,DIXR)=""
  Q
 X6 K:$L(X)>35!($L(X)<3) X I $D(X) S DG20NAME=X,(X,DG20NAME)=$$FORMAT^XLFNAME7(.DG20NAME,3,35) K:'$L(X) X,DG20NAME
@@ -112 +112 @@
 C8S S X="" G:DG(DQ)=X C8F1 K DB
 C8F1 S DIEZRXR(2,DIIENS)=$$OREF^DILF($NA(@$$CREF^DILF(DIE)))
- F DIXR=607 S DIEZRXR(2,DIXR)=""
+ F DIXR=604 S DIEZRXR(2,DIXR)=""
  Q
 X8 K:$L(X)>30!($L(X)<2) X I $D(X) S DFN=DA D E1^DGLOCK2
@@ -128 +128 @@
  ;
 C9F1 S DIEZRXR(2,DIIENS)=$$OREF^DILF($NA(@$$CREF^DILF(DIE)))
- F DIXR=607 S DIEZRXR(2,DIXR)=""
+ F DIXR=604 S DIEZRXR(2,DIXR)=""
  Q
 X9 K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X I $D(X) S DFN=DA D E1^DGLOCK2
@@ -147 +147 @@
  ;
 C11F1 S DIEZRXR(2,DIIENS)=$$OREF^DILF($NA(@$$CREF^DILF(DIE)))
- F DIXR=607 S DIEZRXR(2,DIXR)=""
+ F DIXR=604 S DIEZRXR(2,DIXR)=""
  Q
 X11 K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X I $D(X) S DFN=DA D E1^DGLOCK2
@@ -162 +162 @@
 C13S S X="" G:DG(DQ)=X C13F1 K DB
 C13F1 S DIEZRXR(2,DIIENS)=$$OREF^DILF($NA(@$$CREF^DILF(DIE)))
- F DIXR=607 S DIEZRXR(2,DIXR)=""
+ F DIXR=604 S DIEZRXR(2,DIXR)=""
  Q
 X13 K:$L(X)>30!($L(X)<3) X I $D(X) S DFN=DA D E1^DGLOCK2
@@ -174 +174 @@
 C14S S X="" G:DG(DQ)=X C14F1 K DB
 C14F1 S DIEZRXR(2,DIIENS)=$$OREF^DILF($NA(@$$CREF^DILF(DIE)))
- F DIXR=607 S DIEZRXR(2,DIXR)=""
+ F DIXR=604 S DIEZRXR(2,DIXR)=""
  Q
 X14 K:$L(X)>30!($L(X)<3) X I $D(X) S DFN=DA D E1^DGLOCK2
@@ -187 +187 @@
 C15S S X="" G:DG(DQ)=X C15F1 K DB
 C15F1 S DIEZRXR(2,DIIENS)=$$OREF^DILF($NA(@$$CREF^DILF(DIE)))
- F DIXR=607 S DIEZRXR(2,DIXR)=""
+ F DIXR=604 S DIEZRXR(2,DIXR)=""
  Q
 X15 I $D(X) S DFN=DA D E1^DGLOCK2
@@ -201 +201 @@
  D ^DGRPTX15
 C16F1 S DIEZRXR(2,DIIENS)=$$OREF^DILF($NA(@$$CREF^DILF(DIE)))
- F DIXR=607 S DIEZRXR(2,DIXR)=""
+ F DIXR=604 S DIEZRXR(2,DIXR)=""
  Q
 X16 K:X[""""!($A(X)=45) X I $D(X) S DFN=DA D E1^DGLOCK2 I $D(X) K:$L(X)>15!($L(X)<5) X I $D(X) D ZIPIN^VAFADDR