XUZP1013.m

XUZP1013 ;IHS/OIT/DMJ - PATCH XU*8.0*1013 POST-INSTALL ROUTINE [ 08/22/2006  2:49 PM ]

 ;;8.0;KERNEL;**1013**;AUG 11, 2006

 ;

EN ;EP -- MAIN ENTRY POINT

 ;

 D BMES^XPDUTL("SETTING DATE E-SIG LAST CHANGED FIELD, FILE 200.")

 ;

LOOP ;loop through file 200 entries

 S DA=0

 F  S DA=$O(^VA(200,DA)) Q:'DA  D

 .Q:$P($G(^VA(200,DA,20)),"^",4)=""

 .Q:$P($G(^VA(200,DA,20)),"^",1)

 .S $P(^VA(200,DA,20),"^",1)=+$H

 Q

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

 +2       ;

EN        ;EP -- MAIN ENTRY POINT

 +1       ;

 +2        DO BMES^XPDUTL("SETTING DATE E-SIG LAST CHANGED FIELD, FILE 200.")

 +3       ;

LOOP      ;loop through file 200 entries

 +1        SET DA=0

 +2        FOR 

               SET DA=$ORDER(^VA(200,DA))

               IF 'DA

                   QUIT 

               Begin DoDot:1

 +3                IF $PIECE($GET(^VA(200,DA,20)),"^",4)=""

                       QUIT 

 +4                IF $PIECE($GET(^VA(200,DA,20)),"^",1)

                       QUIT 

 +5                SET $PIECE(^VA(200,DA,20),"^",1)=+$HOROLOG

               End DoDot:1

 +6        QUIT