VPR TEAM MEMBER (139)    ENTITY (1.5)

Name Value
NAME VPR TEAM MEMBER
DEFAULT FILE NUMBER 200
DATA MODEL SDA
DISPLAY NAME CareProvider
ITEM
  • Code
    SEQUENCE:   4
    ITEM TYPE:   ID
  • AtOrganization
    SEQUENCE:   12
    ITEM TYPE:   ENTITY
    FILE NUMBER:   200
    ENTITY:   VPR FACILITY
    GET ACTION:   S VALUE=$G(VASITE)
  • Extension
    SEQUENCE:   3
    ITEM TYPE:   ENTITY
    FILE NUMBER:   200
    ENTITY:   VPR PROVIDER EXTENSION
    GET ACTION:   S VALUE=DIEN
  • Description
    SEQUENCE:   5
    ITEM TYPE:   FIXED STRING
    GET ACTION:   S VALUE=$G(VPROLE)
  • SDACodingStandard
    SEQUENCE:   1
    ITEM TYPE:   FIXED STRING
    FIXED RESPONSE:   VA200
  • Name
    SEQUENCE:   6
    ITEM TYPE:   ENTITY
    FILE NUMBER:   200
    FIELD NUMBER:   .01
    ENTITY:   VPR NAME
  • ContactInfo
    SEQUENCE:   8
    ITEM TYPE:   COMPLEX GROUP
    COMPLEX TYPE:
    • COMPLEX ITEM SEQUENCE:   3
      COMPLEX ITEM NAME:   WorkPhoneNumber
    • COMPLEX ITEM SEQUENCE:   4
      COMPLEX ITEM NAME:   MobilePhoneNumber
    • COMPLEX ITEM SEQUENCE:   5
      COMPLEX ITEM NAME:   EmailAddress
  • WorkPhoneNumber
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   200
    FIELD NUMBER:   .132
  • MobilePhoneNumber
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   200
    FIELD NUMBER:   .137
  • EmailAddress
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   200
    FIELD NUMBER:   .151
  • CareProviderType
    SEQUENCE:   9
    ITEM TYPE:   ENTITY
    FILE NUMBER:   200
    ENTITY:   VPR PERSON CLASS
    GET ACTION:   S DATA=$$TAXIND^XUSTAX(DIEN) I DATA'="^",$P(DATA,U)'=-1 S VALUE=$P(DATA,U,2)
GET EXIT ACTION K VPROLE
GET ID ACTION S VPROLE=$P(DIEN,U,2),DIEN=+DIEN S:'DIEN DDEOUT=1