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

XUZP1013.m

Go to the documentation of this file.
  1. XUZP1013 ;IHS/OIT/DMJ - PATCH XU*8.0*1013 POST-INSTALL ROUTINE [ 08/22/2006 2:49 PM ]
  1. ;;8.0;KERNEL;**1013**;AUG 11, 2006
  1. ;
  1. EN ;EP -- MAIN ENTRY POINT
  1. ;
  1. D BMES^XPDUTL("SETTING DATE E-SIG LAST CHANGED FIELD, FILE 200.")
  1. ;
  1. LOOP ;loop through file 200 entries
  1. S DA=0
  1. F S DA=$O(^VA(200,DA)) Q:'DA D
  1. .Q:$P($G(^VA(200,DA,20)),"^",4)=""
  1. .Q:$P($G(^VA(200,DA,20)),"^",1)
  1. .S $P(^VA(200,DA,20),"^",1)=+$H
  1. Q