Routine: TIUPS106

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

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HTIUPS106   1435     printed  Apr 23, 2025@18:58:27                                                                                                                                                                                                    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

TIUPS106.m