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

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

@@ -1 +1 @@
 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 +15 @@
  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 +103 @@
 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 +114 @@
  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: