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

XU8P483.m

Go to the documentation of this file.
  1. 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
  1. ;;Per VHA Directive 2004-038, this routine should not be modified
  1. ;
  1. EN ;
  1. N XUFDA
  1. I +$G(XPDQUES("POS1"))>0 S XUFDA(8989.3,"1,",321.01)=+XPDQUES("POS1")
  1. I +$G(XPDQUES("POS2"))>0 S XUFDA(8989.3,"1,",321.02)=+XPDQUES("POS2")
  1. I $D(XUFDA) D UPDATE^DIE("","XUFDA")
  1. D ^XQ55SPEC
  1. Q