- 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