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

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

@@ -1 @@
-DGPTXX4 ; COMPILED XREF FOR FILE #45.02 ; 12/12/07
+DGPTXX4 ; COMPILED XREF FOR FILE #45.02 ; 12/27/07
  ; 
  S DA=0
@@ -64 +64 @@
  S X=$P(DIKZ(0),U,15)
  I X'="" X ^DD(45.02,15,1,992,2)
-CR1 S DIXR=447
+CR1 S DIXR=462
  K X
  S DIKZ(0)=$G(^DGPT(DA(1),"M",DA,0))
@@ -74 +74 @@
  . S:$D(DIKIL) (X2,X2(1),X2(2))=""
  . D KDGPT9M^DGPTDDCR(.X,.DA,"M ICD1")
-CR2 S DIXR=448
+CR2 S DIXR=463
  K X
  S DIKZ(0)=$G(^DGPT(DA(1),"M",DA,0))
@@ -84 +84 @@
  . S:$D(DIKIL) (X2,X2(1),X2(2))=""
  . D KDGPT9M^DGPTDDCR(.X,.DA,"M ICD2")
-CR3 S DIXR=449
+CR3 S DIXR=464
  K X
  S DIKZ(0)=$G(^DGPT(DA(1),"M",DA,0))
@@ -94 +94 @@
  . S:$D(DIKIL) (X2,X2(1),X2(2))=""
  . D KDGPT9M^DGPTDDCR(.X,.DA,"M ICD3")
-CR4 S DIXR=450
+CR4 S DIXR=465
  K X
  S DIKZ(0)=$G(^DGPT(DA(1),"M",DA,0))
@@ -104 +104 @@
  . S:$D(DIKIL) (X2,X2(1),X2(2))=""
  . D KDGPT9M^DGPTDDCR(.X,.DA,"M ICD4")
-CR5 S DIXR=451
+CR5 S DIXR=466
  K X
  S DIKZ(0)=$G(^DGPT(DA(1),"M",DA,0))
@@ -114 +114 @@
  . S:$D(DIKIL) (X2,X2(1),X2(2))=""
  . D KDGPT9M^DGPTDDCR(.X,.DA,"M ICD5")
-CR6 S DIXR=452
+CR6 S DIXR=467
  K X
  S DIKZ(0)=$G(^DGPT(DA(1),"M",DA,0))
@@ -124 +124 @@
  . S:$D(DIKIL) (X2,X2(1),X2(2))=""
  . D KDGPT9M^DGPTDDCR(.X,.DA,"M ICD6")
-CR7 S DIXR=453
+CR7 S DIXR=468
  K X
  S DIKZ(0)=$G(^DGPT(DA(1),"M",DA,0))
@@ -134 +134 @@
  . S:$D(DIKIL) (X2,X2(1),X2(2))=""
  . D KDGPT9M^DGPTDDCR(.X,.DA,"M ICD7")
-CR8 S DIXR=454
+CR8 S DIXR=469
  K X
  S DIKZ(0)=$G(^DGPT(DA(1),"M",DA,0))
@@ -144 +144 @@
  . S:$D(DIKIL) (X2,X2(1),X2(2))=""
  . D KDGPT9M^DGPTDDCR(.X,.DA,"M ICD8")
-CR9 S DIXR=455
+CR9 S DIXR=470
  K X
  S DIKZ(0)=$G(^DGPT(DA(1),"M",DA,0))
@@ -154 +154 @@
  . S:$D(DIKIL) (X2,X2(1),X2(2))=""
  . D KDGPT9M^DGPTDDCR(.X,.DA,"M ICD9")
-CR10 S DIXR=456
+CR10 S DIXR=471
  K X
  S DIKZ(0)=$G(^DGPT(DA(1),"M",DA,0))