TIUPS106 ;SLC/JER,MKB,ASMR/BL - post install for 106 ; 10/16/15 2:12pm
;;1.0;TEXT INTEGRATION UTILITIES;**106**;Jun 20, 1997;Build 328
;Per VA Directive 6402, this routine should not be modified.
;
MAIN ;controls branching
D NEWXREF
Q
;
NEWXREF ;creates new index "AEVT" on Documents file #8925
D DELIXN^DDMOD(8925,"AVPR","W")
N TIUARR,TIURES
S TIUARR("FILE")=8925
S TIUARR("NAME")="AEVT"
S TIUARR("TYPE")="MU"
S TIUARR("USE")="A"
S TIUARR("EXECUTION")="R"
S TIUARR("ACTIVITY")="R"
S TIUARR("SET CONDITION")="S X=(X2(12)'="""")" ;Patient defined
S TIUARR("KILL CONDITION")="S X=(X2(1)="""")" ;Document type deleted
S TIUARR("SET")="D DOC^TIUDDX"
S TIUARR("KILL")="D DOC^TIUDDX"
S TIUARR("SHORT DESCR")="Data Update Event"
S TIUARR("DESCR",1)="This is an action index that broadcasts when any of the fields"
S TIUARR("DESCR",2)="in this index are changed. No actual cross-reference nodes are"
S TIUARR("DESCR",3)="set or killed."
S TIUARR("VAL",1)=.01
S TIUARR("VAL",2)=.05
S TIUARR("VAL",3)=.06
S TIUARR("VAL",4)=.07
S TIUARR("VAL",5)=.08
S TIUARR("VAL",6)=1202
S TIUARR("VAL",7)=1205
S TIUARR("VAL",8)=1301
S TIUARR("VAL",9)=1405
S TIUARR("VAL",10)=1701
S TIUARR("VAL",11)=2101
S TIUARR("VAL",12)=.02
D CREIXN^DDMOD(.TIUARR,"kW",.TIURES)
; Compiled xrefs require Activity=R so set NoReIndex flag [DBIA 4754]
S:$G(TIURES) ^DD("IX",+TIURES,"NOREINDEX")=1
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HTIUPS106 1435 printed Nov 22, 2024@17:53:51 Page 2
TIUPS106 ;SLC/JER,MKB,ASMR/BL - post install for 106 ; 10/16/15 2:12pm
+1 ;;1.0;TEXT INTEGRATION UTILITIES;**106**;Jun 20, 1997;Build 328
+2 ;Per VA Directive 6402, this routine should not be modified.
+3 ;
MAIN ;controls branching
+1 DO NEWXREF
+2 QUIT
+3 ;
NEWXREF ;creates new index "AEVT" on Documents file #8925
+1 DO DELIXN^DDMOD(8925,"AVPR","W")
+2 NEW TIUARR,TIURES
+3 SET TIUARR("FILE")=8925
+4 SET TIUARR("NAME")="AEVT"
+5 SET TIUARR("TYPE")="MU"
+6 SET TIUARR("USE")="A"
+7 SET TIUARR("EXECUTION")="R"
+8 SET TIUARR("ACTIVITY")="R"
+9 ;Patient defined
SET TIUARR("SET CONDITION")="S X=(X2(12)'="""")"
+10 ;Document type deleted
SET TIUARR("KILL CONDITION")="S X=(X2(1)="""")"
+11 SET TIUARR("SET")="D DOC^TIUDDX"
+12 SET TIUARR("KILL")="D DOC^TIUDDX"
+13 SET TIUARR("SHORT DESCR")="Data Update Event"
+14 SET TIUARR("DESCR",1)="This is an action index that broadcasts when any of the fields"
+15 SET TIUARR("DESCR",2)="in this index are changed. No actual cross-reference nodes are"
+16 SET TIUARR("DESCR",3)="set or killed."
+17 SET TIUARR("VAL",1)=.01
+18 SET TIUARR("VAL",2)=.05
+19 SET TIUARR("VAL",3)=.06
+20 SET TIUARR("VAL",4)=.07
+21 SET TIUARR("VAL",5)=.08
+22 SET TIUARR("VAL",6)=1202
+23 SET TIUARR("VAL",7)=1205
+24 SET TIUARR("VAL",8)=1301
+25 SET TIUARR("VAL",9)=1405
+26 SET TIUARR("VAL",10)=1701
+27 SET TIUARR("VAL",11)=2101
+28 SET TIUARR("VAL",12)=.02
+29 DO CREIXN^DDMOD(.TIUARR,"kW",.TIURES)
+30 ; Compiled xrefs require Activity=R so set NoReIndex flag [DBIA 4754]
+31 if $GET(TIURES)
SET ^DD("IX",+TIURES,"NOREINDEX")=1
+32 QUIT
