- 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))
- ;
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXUPS 263 printed Jan 18, 2025@03:12:49 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 ;