- 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
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXU8P483 408 printed Dec 13, 2024@02:07:53 Page 2
- 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