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

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

@@ -1 @@
-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 +62 @@
  ;
  ; *** 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 +78 @@
  ..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 +175 @@
  ;
  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)
  ;