VPR SIGNER (132)    ENTITY (1.5)

Name Value
NAME VPR SIGNER
DEFAULT FILE NUMBER 200
DATA MODEL SDA
DISPLAY NAME CareProvider
ITEM
  • Code
    SEQUENCE:   4
    ITEM TYPE:   ID
  • Extension
    SEQUENCE:   3
    ITEM TYPE:   ENTITY
    FILE NUMBER:   200
    ENTITY:   VPR SIGNER EXTENSION
    GET ACTION:   S VALUE=DIEN
  • Description
    SEQUENCE:   5
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   200
    FIELD NUMBER:   .01
  • 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 CODE TABLE
    GET ACTION:   N X S X=$G(VPROLE),VALUE=$S(X="S":"S^SIGNER",X="C":"C^COSIGNER",X="V":"V^VERIFIER",1:"")
DESCRIPTION
This entity returns a coded element for a New Person file #200 entry,
very similar to VPR PROVIDER except for the CareProviderType property
which here reflects the signature role of the user. ID should be a 
two-piece string, consisting of the IEN^[type] where type is S (signer) 
or C (cosigner) or V (verifier).
GET EXIT ACTION K VPROLE
GET ID ACTION S VPROLE=$P(DIEN,U,2),DIEN=+DIEN S:'DIEN DDEOUT=1