Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: TIUDDX

TIUDDX.m

Go to the documentation of this file.
  1. 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
  1. ;Per VA Directive 6402, this routine should not be modified.
  1. ;
  1. ; External References DBIA#
  1. ; TIU^HMPEVNT 6299
  1. ;
  1. ; Set/Kill Logic to broadcast updates to TIU Document file
  1. ;
  1. ; No cross reference nodes are set or killed.
  1. ; Subscribers must read-only the DA, X arrays provided by FileMan.
  1. ;
  1. DOC ; -- AEVT index on #8925
  1. N DFN S DFN=$G(X(12))
  1. D:$L($T(TIU^VPREVNT)) TIU^VPREVNT(DFN,DA)
  1. D:$L($T(TIU^HMPEVNT)) TIU^HMPEVNT(DFN,DA) ;DBIA 6299
  1. Q