source: FOIAVistA/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@ 1397

Last change on this file since 1397 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version
File size: 249 bytes
Line 
1XUPS ;CS&ISS-RAM/DW - NPF API ; 1 April 2004
2 ;;8.0;KERNEL;**309**; Jul 10, 1995;
3 ;
4 Q
5 ;
6VPID(IEN) ; VA Person ID
7 ;
8 Q $P($G(^VA(200,+$G(IEN),"VPID")),U)
9 ;
10IEN(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.