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 ---[H[J[2J[HTIUDDX 626 printed Sep 23, 2025@20:16:02 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
