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@
1211
| Last change on this file since 1211 was 613, checked in by , 15 years ago | |
|---|---|
| File size: 249 bytes | |
| Rev | Line | |
|---|---|---|
| [613] | 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.
