XUPS.m

XUPS ;CS&ISS-RAM/DW - NPF API ; 1 April 2004

 ;;8.0;KERNEL;**309**; Jul 10, 1995;

 ;

 Q

 ;

VPID(IEN) ; VA Person ID

 ;

 Q $P($G(^VA(200,+$G(IEN),"VPID")),U)

 ;

IEN(VPID) ; Internal Entry Number

 ;

 Q:$G(VPID)="" ""

 Q $O(^VA(200,"AVPID",VPID,0))

 ;

XUPS      ;CS&ISS-RAM/DW - NPF API ; 1 April 2004

 +1       ;;8.0;KERNEL;**309**; Jul 10, 1995;

 +2       ;

 +3        QUIT 

 +4       ;

VPID(IEN) ; VA Person ID

 +1       ;

 +2        QUIT $PIECE($GET(^VA(200,+$GET(IEN),"VPID")),U)

 +3       ;

IEN(VPID) ; Internal Entry Number

 +1       ;

 +2        IF $GET(VPID)=""

               QUIT ""

 +3        QUIT $ORDER(^VA(200,"AVPID",VPID,0))

 +4       ;