|
Last change
on this file since 628 was 628, checked in by George Lilly, 14 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
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.
