TIUDDX.m

TIUDDX ;SLC/MKB,ASMR/BL - Event Cross-references ; 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.

 ;

 ; External References          DBIA#

 ; TIU^HMPEVNT                  6299

 ;

 ; Set/Kill Logic to broadcast updates to TIU Document file

 ;

 ; No cross reference nodes are set or killed.

 ; Subscribers must read-only the DA, X arrays provided by FileMan.

 ;

DOC ; -- AEVT index on #8925

 N DFN S DFN=$G(X(12))

 D:$L($T(TIU^VPREVNT)) TIU^VPREVNT(DFN,DA)

 D:$L($T(TIU^HMPEVNT)) TIU^HMPEVNT(DFN,DA)  ;DBIA 6299

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---TIUDDX   626     printed  Feb 19, 2025@00:06:13                                                                                                                                                                                                       Page 2

TIUDDX    ;SLC/MKB,ASMR/BL - Event Cross-references ; 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       ;

 +4       ; External References          DBIA#

 +5       ; TIU^HMPEVNT                  6299

 +6       ;

 +7       ; Set/Kill Logic to broadcast updates to TIU Document file

 +8       ;

 +9       ; No cross reference nodes are set or killed.

 +10      ; Subscribers must read-only the DA, X arrays provided by FileMan.

 +11      ;

DOC       ; -- AEVT index on #8925

 +1        NEW DFN

           SET DFN=$GET(X(12))

 +2        if $LENGTH($TEXT(TIU^VPREVNT))

               DO TIU^VPREVNT(DFN,DA)

 +3       ;DBIA 6299

           if $LENGTH($TEXT(TIU^HMPEVNT))

               DO TIU^HMPEVNT(DFN,DA)

 +4        QUIT