Index: FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUDD1.m
===================================================================
--- FOIAVistA/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUDD1.m	(revision 631)
+++ FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUDD1.m	(revision 636)
@@ -1,4 +1,4 @@
 TIUDD1 ; SLC/JER - XREFs for file 8925.1 ;19-OCT-2001 10:05:37 [7/28/04 9:08am]
- ;;1.0;TEXT INTEGRATION UTILITIES;**7,51,115,163,224**;Jun 20, 1997;Build 7
+ ;;1.0;TEXT INTEGRATION UTILITIES;**7,51,115,163**;Jun 20, 1997
 SACL(X,FLD) ; Set logic for ACL cross-reference
  ; Called from fields .01 (NAME), .07 (STATUS), .03 (PRINT NAME),
@@ -31,7 +31,6 @@
  . I $P($G(^TIU(8925.1,+TIUDA,0)),U,4)'="DOC" Q
  . S TIUSTTS=$P($G(^TIU(8925.1,+TIUDA,0)),U,7)
- . ;VMPELR P 224 allow the update of inactive titles
- . ; Include only TEST or ACTIVE or INACTIVE TITLES
- . I $S(TIUSTTS=10:0,TIUSTTS=11:0,TIUSTTS=13:0,1:1) Q
+ . ; Include only TEST or ACTIVE titles
+ . I $S(TIUSTTS=10:0,TIUSTTS=11:0,1:1) Q
  . S TIUTTL=$P($G(^TIU(8925.1,+TIUDA,0)),U)
  . Q:TIUTTL']""
@@ -73,6 +72,6 @@
  . I $P($G(^TIU(8925.1,+TIUDA,0)),U,4)'="DOC" Q
  . S TIUSTTS=$P($G(^TIU(8925.1,+TIUDA,0)),U,7)
- . ; Include only TEST or ACTIVE OR inactive titles
- . I $S(TIUSTTS=10:0,TIUSTTS=11:0,TIUSTTS=13:0,1:1) Q
+ . ; Include only TEST or ACTIVE titles
+ . I $S(TIUSTTS=10:0,TIUSTTS=11:0,1:1) Q
  . ; First build x-ref for Clinical Documents & Immediate descendents
  . S TIUCLASS=+$$CLINDOC^TIULC1(+TIUDA)
@@ -80,8 +79,4 @@
  . S ^TIU(8925.1,"ACL",TIUCLASS,X,+TIUDA)=""
  . S ^TIU(8925.1,"ACL",38,X,+TIUDA)=""
- . S TIUABV=$P($G(^TIU(8925.1,+TIUDA,0)),U,2)
- . I TIUABV]"" S TIUABV=TIUABV_"  <"_X_">" S ^TIU(8925.1,"ACL",TIUCLASS,TIUABV,+TIUDA)="",^TIU(8925.1,"ACL",38,TIUABV,+TIUDA)=""
- . S TIUPN=$P($G(^TIU(8925.1,+TIUDA,0)),U,3)
- . I TIUPN]"" S TIUPN=TIUPN_"  <"_X_">" S ^TIU(8925.1,"ACL",TIUCLASS,TIUPN,+TIUDA)="",^TIU(8925.1,"ACL",38,TIUPN,+TIUDA)=""
  . D SACLKWIC(X,TIUCLASS,+TIUDA)
  . ; Now build x-ref for document classes
@@ -89,9 +84,4 @@
  . I TIUCLASS'>0 Q
  . S ^TIU(8925.1,"ACL",TIUCLASS,X,+TIUDA)=""
- . ;VMP/ELR PATCH 224 ADDED NEXT 4 LINES
- . S TIUABV=$P($G(^TIU(8925.1,+TIUDA,0)),U,2)
- . I TIUABV]"" S TIUABV=TIUABV_"  <"_X_">" S ^TIU(8925.1,"ACL",TIUCLASS,TIUABV,+TIUDA)=""
- . S TIUPN=$P($G(^TIU(8925.1,+TIUDA,0)),U,3)
- . I TIUPN]"" S TIUPN=TIUPN_"  <"_X_">" S ^TIU(8925.1,"ACL",TIUCLASS,TIUPN,+TIUDA)=""
  . D SACLKWIC(X,TIUCLASS,+TIUDA)
  Q
@@ -124,6 +114,6 @@
  . I $P($G(^TIU(8925.1,+TIUDA,0)),U,4)'="DOC" Q
  . S TIUSTTS=$P($G(^TIU(8925.1,+TIUDA,0)),U,7)
- . ; Include only TEST or ACTIVE or INACTIVE titles
- . I $S(TIUSTTS=10:0,TIUSTTS=11:0,TIUSTTS=13:0,1:1) Q
+ . ; Include only TEST or ACTIVE titles
+ . I $S(TIUSTTS=10:0,TIUSTTS=11:0,1:1) Q
  . S TIUTTL=$P($G(^TIU(8925.1,+TIUDA,0)),U)
  . Q:TIUTTL']""
@@ -153,5 +143,5 @@
  . D KACLKWIC(TIUTTL,TIUCLASS,+TIUDA)
  I FLD=.01 D
- . N TIUDA,TIUABV,TIUPN
+ . N TIUDA
  . S TIUDA=$S(+$G(DA(1)):+$G(DA(1)),1:+$G(DA))
  . ; First remove x-ref for Clinical Documents & Immediate descendents
@@ -159,17 +149,8 @@
  . K ^TIU(8925.1,"ACL",TIUCLASS,X,+TIUDA)
  . K ^TIU(8925.1,"ACL",38,X,+TIUDA)
- . S TIUABV=$P($G(^TIU(8925.1,+TIUDA,0)),U,2)
- . I TIUABV]"" S TIUABV=TIUABV_"  <"_X_">" K ^TIU(8925.1,"ACL",TIUCLASS,TIUABV,+TIUDA),^TIU(8925.1,"ACL",38,TIUABV,+TIUDA)
- . S TIUPN=$P($G(^TIU(8925.1,+TIUDA,0)),U,3)
- . I TIUPN]"" S TIUPN=TIUPN_"  <"_X_">" K ^TIU(8925.1,"ACL",TIUCLASS,TIUPN,+TIUDA),^TIU(8925.1,"ACL",38,TIUPN,+TIUDA)
  . D KACLKWIC(X,TIUCLASS,+TIUDA)
  . ; Now remove x-ref for document classes
  . S TIUCLASS=+$$DOCCLASS^TIULC1(+TIUDA)
  . K ^TIU(8925.1,"ACL",TIUCLASS,X,+TIUDA)
- . ;VMP/ELR PATCH 224 ADDED NEXT 4 LINES
- . S TIUABV=$P($G(^TIU(8925.1,+TIUDA,0)),U,2)
- . I TIUABV]"" S TIUABV=TIUABV_"  <"_X_">" K ^TIU(8925.1,"ACL",TIUCLASS,TIUABV,+TIUDA)
- . S TIUPN=$P($G(^TIU(8925.1,+TIUDA,0)),U,3)
- . I TIUPN]"" S TIUPN=TIUPN_"  <"_X_">" K ^TIU(8925.1,"ACL",TIUCLASS,TIUPN,+TIUDA)
  . D KACLKWIC(X,TIUCLASS,+TIUDA)
  Q
@@ -180,3 +161,3 @@
  . I "(,.?! '-/&:;)"[TIUC S TIUC=$E($E(X,TIUI,TIUJ-1),1,30),TIUI=TIUJ+1
  . I  I $L(TIUC)>2 K ^TIU(8925.1,"ACL",TIUCLASS,TIUC_"  <"_X_">",TIUDA),^TIU(8925.1,"ACL",38,TIUC_"  <"_X_">",TIUDA)
- Q 
+ Q
Index: FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDS.m
===================================================================
--- FOIAVistA/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDS.m	(revision 631)
+++ FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDS.m	(revision 636)
@@ -1,3 +1,3 @@
-TIUEDS ; GENERATED FROM 'TIU ENTER/EDIT DS' INPUT TEMPLATE(#1491), FILE 8925;01/12/06
+TIUEDS ; GENERATED FROM 'TIU ENTER/EDIT DS' INPUT TEMPLATE(#1491), FILE 8925;03/29/06
  D DE G BEGIN
 DE S DIE="^TIU(8925,",DIC=DIE,DP=8925,DL=1,DIEL=0,DU="" K DG,DE,DB Q:$O(^TIU(8925,DA,""))=""
Index: FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDS1.m
===================================================================
--- FOIAVistA/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDS1.m	(revision 631)
+++ FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDS1.m	(revision 636)
@@ -1,3 +1,3 @@
-TIUEDS1 ; ;01/12/06
+TIUEDS1 ; ;03/29/06
  S X=DG(DQ),DIC=DIE
  I $P($$DOCTYPE^TIULF(+DA),U)="DOC",$L($P(^TIU(8925,+DA,0),U)),(+$P(^(0),U,3)>0) S ^TIU(8925,"AA",+X,+^TIU(8925,+DA,0),(9999999-$P(+^AUPNVSIT($P(^TIU(8925,+DA,0),U,3),0),".")),+DA)=""
Index: FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDS10.m
===================================================================
--- FOIAVistA/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDS10.m	(revision 631)
+++ FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDS10.m	(revision 636)
@@ -1,3 +1,3 @@
-TIUEDS10 ; ;01/12/06
+TIUEDS10 ; ;03/29/06
  D DE G BEGIN
 DE S DIE="^TIU(8925,",DIC=DIE,DP=8925,DL=1,DIEL=0,DU="" K DG,DE,DB Q:$O(^TIU(8925,DA,""))=""
Index: FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDS11.m
===================================================================
--- FOIAVistA/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDS11.m	(revision 631)
+++ FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDS11.m	(revision 636)
@@ -1,3 +1,3 @@
-TIUEDS11 ; ;01/12/06
+TIUEDS11 ; ;03/29/06
  S X=DE(12),DIC=DIE
  I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,"ALOC",+X,+$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,5),(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)
Index: FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDS12.m
===================================================================
--- FOIAVistA/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDS12.m	(revision 631)
+++ FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDS12.m	(revision 636)
@@ -1,3 +1,3 @@
-TIUEDS12 ; ;01/12/06
+TIUEDS12 ; ;03/29/06
  S X=DG(DQ),DIC=DIE
  I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TIU(8925,"ALOC",+X,+$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,5),(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)=""
Index: FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDS13.m
===================================================================
--- FOIAVistA/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDS13.m	(revision 631)
+++ FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDS13.m	(revision 636)
@@ -1,1 +1,1 @@
-TIUEDS13 ; ;01/12/06
+TIUEDS13 ; ;03/29/06
Index: FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDS14.m
===================================================================
--- FOIAVistA/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDS14.m	(revision 631)
+++ FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDS14.m	(revision 636)
@@ -1,3 +1,3 @@
-TIUEDS14 ; ;01/12/06
+TIUEDS14 ; ;03/29/06
  ;;
 1 N X,X1,X2 S DIXR=247 D X1(U) K X2 M X2=X D X1("F") K X1 M X1=X
Index: FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDS2.m
===================================================================
--- FOIAVistA/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDS2.m	(revision 631)
+++ FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDS2.m	(revision 636)
@@ -1,3 +1,3 @@
-TIUEDS2 ; ;01/12/06
+TIUEDS2 ; ;03/29/06
  S X=DG(DQ),DIC=DIE
  I $P($$DOCTYPE^TIULF(+DA),U)="DOC",$L($P(^TIU(8925,+DA,0),U)),(+$P(^(0),U,2)>0) S ^TIU(8925,"AA",$P(^(0),U,2),+$P(^(0),U),(9999999-$P(+$G(^AUPNVSIT(X,0)),".")),DA)=""
Index: FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDS3.m
===================================================================
--- FOIAVistA/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDS3.m	(revision 631)
+++ FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDS3.m	(revision 636)
@@ -1,3 +1,3 @@
-TIUEDS3 ; ;01/12/06
+TIUEDS3 ; ;03/29/06
  S X=DE(12),DIC=DIE
  K ^TIU(8925,"CA",$E(X,1,30),DA)
Index: FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDS4.m
===================================================================
--- FOIAVistA/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDS4.m	(revision 631)
+++ FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDS4.m	(revision 636)
@@ -1,3 +1,3 @@
-TIUEDS4 ; ;01/12/06
+TIUEDS4 ; ;03/29/06
  S X=DG(DQ),DIC=DIE
  S ^TIU(8925,"CA",$E(X,1,30),DA)=""
Index: FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDS5.m
===================================================================
--- FOIAVistA/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDS5.m	(revision 631)
+++ FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDS5.m	(revision 636)
@@ -1,3 +1,3 @@
-TIUEDS5 ; ;01/12/06
+TIUEDS5 ; ;03/29/06
  D DE G BEGIN
 DE S DIE="^TIU(8925,",DIC=DIE,DP=8925,DL=1,DIEL=0,DU="" K DG,DE,DB Q:$O(^TIU(8925,DA,""))=""
Index: FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDS6.m
===================================================================
--- FOIAVistA/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDS6.m	(revision 631)
+++ FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDS6.m	(revision 636)
@@ -1,3 +1,3 @@
-TIUEDS6 ; ;01/12/06
+TIUEDS6 ; ;03/29/06
  S X=DE(9),DIC=DIE
  I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,12)),U,2),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,"AAU",+$P(^TIU(8925,+DA,12),U,2),+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-X),+DA)
Index: FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDS7.m
===================================================================
--- FOIAVistA/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDS7.m	(revision 631)
+++ FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDS7.m	(revision 636)
@@ -1,3 +1,3 @@
-TIUEDS7 ; ;01/12/06
+TIUEDS7 ; ;03/29/06
  S X=DG(DQ),DIC=DIE
  I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,12)),U,2),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TIU(8925,"AAU",+$P(^TIU(8925,+DA,12),U,2),+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-X),+DA)=""
Index: FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDS8.m
===================================================================
--- FOIAVistA/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDS8.m	(revision 631)
+++ FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDS8.m	(revision 636)
@@ -1,3 +1,3 @@
-TIUEDS8 ; ;01/12/06
+TIUEDS8 ; ;03/29/06
  S X=DE(17),DIC=DIE
  K ^TIU(8925,"F",$E(X,1,30),DA)
Index: FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDS9.m
===================================================================
--- FOIAVistA/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDS9.m	(revision 631)
+++ FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUEDS9.m	(revision 636)
@@ -1,3 +1,3 @@
-TIUEDS9 ; ;01/12/06
+TIUEDS9 ; ;03/29/06
  S X=DG(DQ),DIC=DIE
  S ^TIU(8925,"F",$E(X,1,30),DA)=""
Index: FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUFLF4.m
===================================================================
--- FOIAVistA/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUFLF4.m	(revision 631)
+++ FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUFLF4.m	(revision 636)
@@ -1,4 +1,4 @@
 TIUFLF4 ; SLC/MAM - Lib; ANCESTOR(FILEDA,NODE0,ANCESTOR,DOCFLAG), ORPHAN(FILEDA,NODE0,ANCESTOR), STUFFLDS(FILEDA,PFILEDA), ADDTEN(PFILEDA,FILEDA,NODE0,TENDA),NUMITEMS(FILEDA), MISSITEM(FILEDA) ;4/23/97  11:02
- ;;1.0;TEXT INTEGRATION UTILITIES;**11,43,236**;Jun 20, 1997;Build 2
+ ;;1.0;TEXT INTEGRATION UTILITIES;**11,43**;Jun 20, 1997
  ;
 NUMITEMS(FILEDA) ; Function returns Number of Items of FILEDA; Possibly 0
Index: FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIULMED.m
===================================================================
--- FOIAVistA/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIULMED.m	(revision 631)
+++ FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIULMED.m	(revision 636)
@@ -1,4 +1,4 @@
-TIULMED ; SLC/JM,JH,AJB - Active/Recent Med Objects Routine ; 12/18/07
- ;;1.0;TEXT INTEGRATION UTILITIES;**38,73,92,94,183,193,197,198,202,213,238**;Jun 20, 1997;Build 6
+TIULMED ; SLC/JM,JH - Active/Recent Med Objects Routine ;1/23/07
+ ;;1.0;TEXT INTEGRATION UTILITIES;**38,73,92,94,183,193,197,198,202,213**;Jun 20, 1997;Build 3
  Q
 LIST(DFN,TARGET,ACTVONLY,DETAILED,ALLMEDS,ONELIST,CLASSORT,SUPPLIES) ;
@@ -62,9 +62,6 @@
  ;
  ; *** Scan medication data and skip unwanted meds ***
- ; Changes for *238 required by PSO*7*294
- D
- . I $$PATCH^XPDUTL("PSO*7.0*294"),+$D(TIUDATE) S TIUDATE=$$FMADD^XLFDT(DT,-$G(TIUDATE)) D OCL^PSOQ0496(DFN,TIUDATE,"") Q  ; IA 2400
- . D OCL^PSOORRL(DFN,"","") ; IA 2400
  ;
+ D OCL^PSOORRL(DFN,"","") ; IA 2400
  S INDEX=0
  F  S INDEX=$O(^TMP("PS",$J,INDEX))  Q:INDEX'>0  D
@@ -81,6 +78,4 @@
  ..I ACTVONLY=2 S KEEPMED=(STATIDX=3)
  ..I +ONELIST S STATIDX=1
- ..; Changes for *238 required by PSO*7*294
- ..I $$PATCH^XPDUTL("PSO*7.0*294"),+$D(TIUDATE),STATUS["DISCONTINUED" S KEEPMED=0
  .I KEEPMED D
  ..S TYPE=$P($P(NODE,U),";",2)
@@ -180,5 +175,5 @@
  ;
  D SORTSAVE^TIULMED3 K @TARGET@("B"),@TARGET@("C") ;P213
-LISTX K ^TMP("PS",$J),^TMP($J,"TIULMED"),TIUDATE ; K TIUDATE added for PSO*7*294
+LISTX K ^TMP("PS",$J),^TMP($J,"TIULMED")
  Q "~@"_$NA(@TARGET)
  ;
Index: FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIULP.m
===================================================================
--- FOIAVistA/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIULP.m	(revision 631)
+++ FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIULP.m	(revision 636)
@@ -1,4 +1,4 @@
 TIULP ; SLC/JER - Functions determining privilege ;7/29/05
- ;;1.0;TEXT INTEGRATION UTILITIES;**98,100,116,109,138,152,175,157,182,184,217,236**;Jun 20, 1997;Build 2
+ ;;1.0;TEXT INTEGRATION UTILITIES;**98,100,116,109,138,152,175,157,182,184,217**;Jun 20, 1997
 CANDO(TIUDA,TIUACT,PERSON) ; Can PERSON perform action now
  ; Receives: TIUDA=Record number in file 8925
Index: FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUPR200.m
===================================================================
--- FOIAVistA/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUPR200.m	(revision 631)
+++ FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUPR200.m	(revision 636)
@@ -2,5 +2,5 @@
  ;;1.0;TEXT INTEGRATION UTILITIES;**200**;Jun 20, 1997
  ;
- Q  
+ N LINE,TIUABORT,TIUCNSLT,TIUCOCOR,TIUFPRIV,TIUNAME,TIUPGNTS,TIUPRNT,TITLE,X,Y
  W !,"Verifying installation environment..."
  S TIUCOCOR=$$LU(8930,"CLINICAL COORDINATOR","X") I '+TIUCOCOR W !,"Installation Error:  CLINICAL COORDINATOR (Class Owner) cannot be defined." S TIUABORT=1
@@ -10,5 +10,5 @@
  W "complete."
  Q 
-EN Q  
+EN ;
  N LINE,TIUABORT,TIUCNSLT,TIUCOCOR,TIUFPRIV,TIUNAME,TIUPGNTS,TIUPRNT,TITLE,X,Y
  X ^%ZOSF("EON") W $G(IOCUON) W:+$L($G(IOF)) @IOF
Index: FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUPR222.m
===================================================================
--- FOIAVistA/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUPR222.m	(revision 631)
+++ FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUPR222.m	(revision 636)
@@ -1,3 +1,3 @@
-TIUPR222 ; SLC/AJB - TIU Form Letter Update;06Mar07
+TIUPR222 ; SLC/AJB - TIU Form Letter Update;06Mar07 ;12/27/07  18:20
  ;;1.0;TEXT INTEGRATION UTILITIES;**222**;Jun 20, 1997
  Q
@@ -8,5 +8,5 @@
  . . I $$CHKTITLE(8925.1,NAME)>0 S TIUQUIT=1
  I +$G(TIUQUIT) W !!,"Titles have already been installed and will not be installed again." Q
- I '$D(ZTQUEUED) X ^%ZOSF("EON") W IOCUON,@IOF
+ I '$D(ZTQUEUED) X ^%ZOSF("EON") W $G(IOCUON),@IOF ;WVEHR/VOE IOCUON TO $G(IOCUON)
  I $$CHKTITLE(8925.1,"PROGRESS NOTES")<0 G EXIT
  W !!,"Creating the new DOCUMENT CLASS ""FORM LETTERS"" and"
Index: FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUPRPN8.m
===================================================================
--- FOIAVistA/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUPRPN8.m	(revision 631)
+++ FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUPRPN8.m	(revision 636)
@@ -1,4 +1,4 @@
 TIUPRPN8 ;SLC/MAM - Print SF 509-Progress Notes, Cont ;11/10/04 [1/4/05 12:17pm]
- ;;1.0;TEXT INTEGRATION UTILITIES;**100,176,157,182,224**;Jun 20, 1997;Build 7
+ ;;1.0;TEXT INTEGRATION UTILITIES;**100,176,157,182**;Jun 20, 1997
  ;
 SIGBLK(TIUFOOT,TIUMISC,TIUCONT1,TIUCONT,TIUSIG,TIUROOT) ; Print signature block info
@@ -55,9 +55,7 @@
  . N TIUI S TIUI=0
  . S TIUCONT=$$SETCONT^TIUPRPN1(.TIUFOOT,TIUMISC,TIUCONT1,0,$G(TIUROOT)) Q:'TIUCONT
+ . W !?4,"Receipt Acknowledged By:"
  . F  S TIUI=$O(@TIUROOT@("EXTRASGNR",TIUI)) Q:'TIUI  D
- . . W !!?4,"Receipt Acknowledged By:"
- . . ;VMP/ELR P224 ADDED code to print awaiting signature and expected additional signer name
- . . I +$G(@TIUROOT@("EXTRASGNR",TIUI,"DATE"))'>0 D  Q
- . . . W !,?4,"* AWAITING SIGNATURE *",?30,$G(@TIUROOT@("EXTRASGNR",TIUI,"EXPNAME"))
+ . . I +$G(@TIUROOT@("EXTRASGNR",TIUI,"DATE"))'>0 Q
  . . I TIUI>1 S TIUCONT=$$SETCONT^TIUPRPN1(.TIUFOOT,TIUMISC,TIUCONT1,0,$G(TIUROOT)) Q:'TIUCONT
  . . W !?29,"/es/ ",$G(@TIUROOT@("EXTRASGNR",TIUI,"NAME"))
Index: FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUR.m
===================================================================
--- FOIAVistA/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUR.m	(revision 631)
+++ FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUR.m	(revision 636)
@@ -1,4 +1,4 @@
 TIUR ; SLC/JER - Integrated Document Review ;11/01/03
- ;;1.0;TEXT INTEGRATION UTILITIES;**74,79,58,100,113,112,207,224**;Jun 20, 1997;Build 7
+ ;;1.0;TEXT INTEGRATION UTILITIES;**74,79,58,100,113,112,207**;Jun 20, 1997
  ; 11/30/00 Moved PUTLIST & ADDELMNT to TIUR1
 MAKELIST(TIUCLASS,TIUCHVW) ; Get Search Criteria
@@ -10,6 +10,5 @@
  I +$G(ORVP),(+$G(TIUCHVW)'>0) D EN^TIURPN(TIUCLASS,+ORVP) Q
 STATUS S STATUS=$$STAT
- ;VMP/ELR changed status ck from <0 TO <1 to account for entering an *  p224
- I +STATUS<1 S VALMQUIT=1 Q
+ I +STATUS<0 S VALMQUIT=1 Q
  S TIUI=0
  F  S TIUI=$O(TIUSTAT(TIUI)) Q:'TIUI!(+$G(TIUOUT))  D
@@ -148,6 +147,4 @@
  S STATUS("IFNS")=$P(TIURIDX0,U,3)
  S TIUEDT=$P(TIURIDX0,U),TIULDT=$P(TIURIDX0,U,2),NOWFLAG=+$P(TIURIDX0,U,4)
- ;VMP/ELR ADDED THE FOLLOWING LINE IN PATCH 224
- S TIUSCRN="ALL"
  D BUILD(TIUCLASS,.STATUS,.TIUSCRN,TIUEDT,TIULDT,NOWFLAG)
  ; Reexpand previously expanded items:
Index: FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIURL.m
===================================================================
--- FOIAVistA/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIURL.m	(revision 631)
+++ FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIURL.m	(revision 636)
@@ -1,4 +1,4 @@
 TIURL ; SLC/JER - List Management Library ;2/21/01
- ;;1.0;TEXT INTEGRATION UTILITIES;**88,100,224**;Jun 20, 1997;Build 7
+ ;;1.0;TEXT INTEGRATION UTILITIES;**88,100**;Jun 20, 1997
  ; 11/14/00 Moved UPDATEID, etc to TIURL1
  ;
@@ -22,7 +22,4 @@
  ;    rebuilt, not updated:
  I RTN="TIUROR",$G(TIUCHNG("UPDATE")) S TIUCHNG("RBLD")=1
- ;VMP/ELR ADDED THE FOLLOWING 2 LINES IN PATCH 224
- I RTN="TIUR",$G(TIUCHNG("UPDATE")) S TIUCHNG("RBLD")=1
- I RTN="TIURM",$G(TIUCHNG("UPDATE")) S TIUCHNG("RBLD")=1
  ; -- Rebuild, Update, or Refresh list:
  ;    (In cases (e.g.browse) where more than one action
@@ -44,6 +41,4 @@
  . F  S TIUI=$O(ITEMS(TIUI)) Q:'TIUI  D
  . . D SETREC(TIUI,.TIUREC)
- . . ;VMP/ELR ADDED THE FOLLOWING LINE IN PATCH 224
- . . I $G(TIUREC)="" Q
  . . S ^TMP("TIUR",$J,TIUI,0)=TIUREC
  I $G(TIUCHNG("REFRESH")) D  Q
Index: FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIURM.m
===================================================================
--- FOIAVistA/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIURM.m	(revision 631)
+++ FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIURM.m	(revision 636)
@@ -1,4 +1,4 @@
 TIURM ; SLC/JER - MIS Document Review ;9/24/03
- ;;1.0;TEXT INTEGRATION UTILITIES;**74,79,58,100,113,216,224**;Jun 20, 1997;Build 7
+ ;;1.0;TEXT INTEGRATION UTILITIES;**74,79,58,100,113,216**;Jun 20, 1997
  ;12/7/00 split TIURM into TIURM & TIURM1
 MAKELIST(TIUCLASS) ; Get Search Criteria
@@ -15,6 +15,5 @@
  E  S TIUDI("ENTRIES")="ALL DIVISIONS"
 STATUS S STATUS=$S($D(TIUQUIK):$$SELSTAT^TIULA(.TIUSTAT,"F","UNSIGNED,UNCOSIGNED"),1:$$SELSTAT^TIULA(.TIUSTAT,"A",$$DFLTSTAT(DUZ)))
- ;VMP/ELR changed status ck from <0 TO <1 to account for entering an *  p224
- I +STATUS<1 S VALMQUIT=1 Q
+ I +STATUS<0 S VALMQUIT=1 Q
  S TIUI=0
  F  S TIUI=$O(TIUSTAT(TIUI)) Q:'TIUI  D
@@ -104,5 +103,5 @@
 RBLD ; Rebuild list after actions 11/30/00
  N TIUEXP,TIUR0,TIURIDX0,TIUEDT,TIULDT
- N TIURBLD,TIUI,TIUCLASS,TIUDI,TIUSCRN
+ N TIURBLD,TIUI,TIUCLASS,TIUDI
  S TIURBLD=1
  D FIXLSTNW^TIULM ;restore video for elements added to end of list
@@ -115,6 +114,4 @@
  S TIUEDT=$P(TIURIDX0,U),TIULDT=$P(TIURIDX0,U,2),NOWFLAG=+$P(TIURIDX0,U,4)
  M TIUDI=^TMP("TIUR",$J,"DIV")
- ;VMP/ELR ADDED THE FOLLOWING LINE IN PATCH 224
- S TIUSCRN="ALL"
  D BUILD(TIUCLASS,.STATUS,TIUEDT,TIULDT,NOWFLAG,.TIUDI)
  ; Reexpand previously expanded items:
Index: FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUSRVA.m
===================================================================
--- FOIAVistA/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUSRVA.m	(revision 631)
+++ FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUSRVA.m	(revision 636)
@@ -1,4 +1,4 @@
 TIUSRVA ; SLC/JER,AJB - API's for Authorization ; 03/18/04 [10/19/04 1:21pm]
- ;;1.0;TEXT INTEGRATION UTILITIES;**19,28,47,80,100,116,152,160,178,175,157,236**;Jun 20, 1997;Build 2
+ ;;1.0;TEXT INTEGRATION UTILITIES;**19,28,47,80,100,116,152,160,178,175,157**;Jun 20, 1997
  ;
  ;External reference to File ^AUPNVSIT supported by DBIA 3580
Index: FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUXRC.m
===================================================================
--- FOIAVistA/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUXRC.m	(revision 631)
+++ FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUXRC.m	(revision 636)
@@ -1,3 +1,3 @@
-TIUXRC ; DRIVER FOR COMPILED XREFS FOR FILE #8925 ; 12/11/06
+TIUXRC ; DRIVER FOR COMPILED XREFS FOR FILE #8925 ; 12/25/06
  ; 
  N DH,DU,DIKILL,DISET,DIKJ,DIKZ,DIKYR,DIKZA,DIK0Z,DIKZK,DIKDP,DIKM1,DIKUP,DIKUM,DV,DIIX,DIKF,DIAU,DIKNM,DIKDA,DIKLK,DIKLM,DIKY,DIXR,DIKCOND,DIKSVDA,DIKPUSH,X1,X2
Index: FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUXRC1.m
===================================================================
--- FOIAVistA/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUXRC1.m	(revision 631)
+++ FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUXRC1.m	(revision 636)
@@ -1,3 +1,3 @@
-TIUXRC1 ; COMPILED XREF FOR FILE #8925 ; 12/11/06
+TIUXRC1 ; COMPILED XREF FOR FILE #8925 ; 12/25/06
  ; 
  S DIKZK=2
Index: FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUXRC2.m
===================================================================
--- FOIAVistA/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUXRC2.m	(revision 631)
+++ FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUXRC2.m	(revision 636)
@@ -1,3 +1,3 @@
-TIUXRC2 ; COMPILED XREF FOR FILE #8925 ; 12/11/06
+TIUXRC2 ; COMPILED XREF FOR FILE #8925 ; 12/25/06
  ; 
  I X'="" I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,12)),U,2),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,"AAU",+$P(^TIU(8925,+DA,12),U,2),+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-X),+DA)
Index: FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUXRC3.m
===================================================================
--- FOIAVistA/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUXRC3.m	(revision 631)
+++ FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUXRC3.m	(revision 636)
@@ -1,3 +1,3 @@
-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,5 +37,5 @@
  . 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))
Index: FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUXRC4.m
===================================================================
--- FOIAVistA/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUXRC4.m	(revision 631)
+++ FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUXRC4.m	(revision 636)
@@ -1,3 +1,3 @@
-TIUXRC4 ; COMPILED XREF FOR FILE #8925 ; 12/11/06
+TIUXRC4 ; COMPILED XREF FOR FILE #8925 ; 12/25/06
  ; 
  S DIKZK=1
Index: FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUXRC5.m
===================================================================
--- FOIAVistA/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUXRC5.m	(revision 631)
+++ FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUXRC5.m	(revision 636)
@@ -1,3 +1,3 @@
-TIUXRC5 ; COMPILED XREF FOR FILE #8925 ; 12/11/06
+TIUXRC5 ; COMPILED XREF FOR FILE #8925 ; 12/25/06
  ; 
  I X'="" I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,12)),U,2),+$P($G(^TIU(8925,+DA,13)),U) S ^TIU(8925,"AAU",+$P(^TIU(8925,+DA,12),U,2),+$P(^TIU(8925,+DA,0),U),+X,(9999999-$P(^TIU(8925,+DA,13),U)),+DA)=""
Index: FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUXRC6.m
===================================================================
--- FOIAVistA/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUXRC6.m	(revision 631)
+++ FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUXRC6.m	(revision 636)
@@ -1,3 +1,3 @@
-TIUXRC6 ; COMPILED XREF FOR FILE #8925 ; 12/11/06
+TIUXRC6 ; COMPILED XREF FOR FILE #8925 ; 12/25/06
  ; 
  I X'="" I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,12)),U,5),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TIU(8925,"ALOC",+$P(^TIU(8925,+DA,12),U,5),+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-X),+DA)=""
@@ -70,5 +70,5 @@
  . K X1,X2 M X1=X,X2=X
  . S ^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))
