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/XUPS.m@
1078
Last change on this file since 1078 was 613, checked in by , 15 years ago | |
---|---|
File size: 249 bytes |
Line | |
---|---|
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.