Changeset 636 for FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUXRC3.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 )
• TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUXRC3.m (modified) (2 diffs)

FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUXRC3.m

@@ -1 @@
-TIUXRC3 ; COMPILED XREF FOR FILE #8925 ; 12/11/06
+TIUXRC3 ; COMPILED XREF FOR FILE #8925 ; 12/25/06
  ; 
  I X'="" I +$P($G(^TIU(8925,+DA,14)),U,4),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,"ASVC",+$P($G(^TIU(8925,+DA,14)),U,4),+X,+$P($G(^TIU(8925,+DA,0)),U,5),(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)
@@ -37 +37 @@
  . S:$D(DIKIL) (X2,X2(1),X2(2),X2(3),X2(4))=""
  . K ^TIU(8925,"ADIV",X(1),X(2),X(3),X(4),DA)
-CR2 S DIXR=308
+CR2 S DIXR=413
  K X
  S DIKZ(12)=$G(^TIU(8925,DA,12))