source:
WorldVistAEHR/trunk/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
Last change on this file was 613, checked in by , 15 years ago | |
---|---|
File size: 397 bytes |
Line | |
---|---|
1 | XU8P483 ;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 | ; |
5 | EN ; |
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.