VPR CDC EXTENSION (199)    ENTITY (1.5)

Name Value
NAME VPR CDC EXTENSION
DEFAULT FILE NUMBER 10.3
DATA MODEL SDA
DISPLAY NAME CDCExtension
ITEM
  • Method
    SEQUENCE:   1
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   10.3
    FIELD NUMBER:   .01
    GET ACTION:   S VALUE=$P($G(VPRCM),U,2)
DESCRIPTION 
This entity extends the Race and EthnicGroup properties of VPR PATIENT; 
source is expected to come from VADM(11,#,1) or VADM(12,#,1) via VADPT.
GET EXIT ACTION K VPRCM
GET ID ACTION S VPRCM=$G(DIEN),DIEN=+$G(DIEN)