- Timestamp:
- Dec 4, 2009, 8:26:01 PM (14 years ago)
- Location:
- FOIAVistA/tag/r
- Files:
-
- 1 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
FOIAVistA/tag/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUR.m
r628 r636 1 1 TIUR ; SLC/JER - Integrated Document Review ;11/01/03 2 ;;1.0;TEXT INTEGRATION UTILITIES;**74,79,58,100,113,112,207 ,224**;Jun 20, 1997;Build72 ;;1.0;TEXT INTEGRATION UTILITIES;**74,79,58,100,113,112,207**;Jun 20, 1997 3 3 ; 11/30/00 Moved PUTLIST & ADDELMNT to TIUR1 4 4 MAKELIST(TIUCLASS,TIUCHVW) ; Get Search Criteria … … 10 10 I +$G(ORVP),(+$G(TIUCHVW)'>0) D EN^TIURPN(TIUCLASS,+ORVP) Q 11 11 STATUS S STATUS=$$STAT 12 ;VMP/ELR changed status ck from <0 TO <1 to account for entering an * p224 13 I +STATUS<1 S VALMQUIT=1 Q 12 I +STATUS<0 S VALMQUIT=1 Q 14 13 S TIUI=0 15 14 F S TIUI=$O(TIUSTAT(TIUI)) Q:'TIUI!(+$G(TIUOUT)) D … … 148 147 S STATUS("IFNS")=$P(TIURIDX0,U,3) 149 148 S TIUEDT=$P(TIURIDX0,U),TIULDT=$P(TIURIDX0,U,2),NOWFLAG=+$P(TIURIDX0,U,4) 150 ;VMP/ELR ADDED THE FOLLOWING LINE IN PATCH 224151 S TIUSCRN="ALL"152 149 D BUILD(TIUCLASS,.STATUS,.TIUSCRN,TIUEDT,TIULDT,NOWFLAG) 153 150 ; Reexpand previously expanded items:
Note:
See TracChangeset
for help on using the changeset viewer.