source: FOIAVistA/tag/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XU8P483.m@ 1569

Last change on this file since 1569 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 397 bytes
Line 
1XU8P483 ;FO-OAK/JLI-Post-init routine for patch XU*8*483 ;1/30/08 14:20
2 ;;8.0;KERNEL;**483**;Jul 10, 1995;Build 15
3 ;;Per VHA Directive 2004-038, this routine should not be modified
4 ;
5EN ;
6 N XUFDA
7 I +$G(XPDQUES("POS1"))>0 S XUFDA(8989.3,"1,",321.01)=+XPDQUES("POS1")
8 I +$G(XPDQUES("POS2"))>0 S XUFDA(8989.3,"1,",321.02)=+XPDQUES("POS2")
9 I $D(XUFDA) D UPDATE^DIE("","XUFDA")
10 D ^XQ55SPEC
11 Q
Note: See TracBrowser for help on using the repository browser.