- 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 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