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/XUPS.m@
752
Last change on this file since 752 was 628, checked in by , 15 years ago | |
---|---|
File size: 249 bytes |
Rev | Line | |
---|---|---|
[628] | 1 | XUPS ;CS&ISS-RAM/DW - NPF API ; 1 April 2004 |
2 | ;;8.0;KERNEL;**309**; Jul 10, 1995; | |
3 | ; | |
4 | Q | |
5 | ; | |
6 | VPID(IEN) ; VA Person ID | |
7 | ; | |
8 | Q $P($G(^VA(200,+$G(IEN),"VPID")),U) | |
9 | ; | |
10 | IEN(VPID) ; Internal Entry Number | |
11 | ; | |
12 | Q:$G(VPID)="" "" | |
13 | Q $O(^VA(200,"AVPID",VPID,0)) | |
14 | ; |
Note:
See TracBrowser
for help on using the repository browser.