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@
660
| Last change on this file since 660 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.
