VPR PATIENT NUMBER (70)    ENTITY (1.5)

Name Value
NAME VPR PATIENT NUMBER
DATA MODEL SDA
DISPLAY NAME PatientNumber
ITEM
  • Number
    SEQUENCE:   7
    ITEM TYPE:   FIXED STRING
    GET ACTION:   S VALUE=$P(VPRNMBR,U)
  • NumberType
    SEQUENCE:   9
    ITEM TYPE:   FIXED STRING
    GET ACTION:   S VALUE=$P(VPRNMBR,U,2)
  • Organization
    SEQUENCE:   8
    ITEM TYPE:   ENTITY
    ENTITY:   VPR CODE ONLY
    GET ACTION:   S VALUE=$P(VPRNMBR,U,3)
  • ISOAssigningAuthority
    SEQUENCE:   10
    ITEM TYPE:   FIXED STRING
    GET ACTION:   S VALUE=$P(VPRNMBR,U,4)
DESCRIPTION 
This entity supports VPR PATIENT, and expects the Patient file #2 ien
as the ID. It expects a string as the ID in the form:
  number ^ type ^ organization ^ ISO assigning authority
GET EXIT ACTION K VPRNMBR
GET ID ACTION S VPRNMBR=$G(DIEN) S:VPRNMBR="" DDEOUT=1