XU8P483.m

XU8P483 ;FO-OAK/JLI-Post-init routine for patch XU*8*483 ;1/30/08  14:20

 ;;8.0;KERNEL;**483**;Jul 10, 1995;Build 15

 ;;Per VHA Directive 2004-038, this routine should not be modified

 ;

EN ;

 N XUFDA

 I +$G(XPDQUES("POS1"))>0 S XUFDA(8989.3,"1,",321.01)=+XPDQUES("POS1")

 I +$G(XPDQUES("POS2"))>0 S XUFDA(8989.3,"1,",321.02)=+XPDQUES("POS2")

 I $D(XUFDA) D UPDATE^DIE("","XUFDA")

 D ^XQ55SPEC

 Q

XU8P483   ;FO-OAK/JLI-Post-init routine for patch XU*8*483 ;1/30/08  14:20

 +1       ;;8.0;KERNEL;**483**;Jul 10, 1995;Build 15

 +2       ;;Per VHA Directive 2004-038, this routine should not be modified

 +3       ;

EN        ;

 +1        NEW XUFDA

 +2        IF +$GET(XPDQUES("POS1"))>0

               SET XUFDA(8989.3,"1,",321.01)=+XPDQUES("POS1")

 +3        IF +$GET(XPDQUES("POS2"))>0

               SET XUFDA(8989.3,"1,",321.02)=+XPDQUES("POS2")

 +4        IF $DATA(XUFDA)

               DO UPDATE^DIE("","XUFDA")

 +5        DO ^XQ55SPEC

 +6        QUIT