Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: XUPS

XUPS.m

Go to the documentation of this file.
  1. XUPS ;CS&ISS-RAM/DW - NPF API ; 1 April 2004
  1. ;;8.0;KERNEL;**309**; Jul 10, 1995;
  1. ;
  1. Q
  1. ;
  1. VPID(IEN) ; VA Person ID
  1. ;
  1. Q $P($G(^VA(200,+$G(IEN),"VPID")),U)
  1. ;
  1. IEN(VPID) ; Internal Entry Number
  1. ;
  1. Q:$G(VPID)="" ""
  1. Q $O(^VA(200,"AVPID",VPID,0))
  1. ;