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.

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

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

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))

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXUPS   263     printed  Oct 16, 2024@18:12:25                                                                                                                                                                                                         Page 2

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       ;