VPR PREGNANCY (85)    ENTITY (1.5)

Name Value
NAME VPR PREGNANCY
DEFAULT FILE NUMBER 790.05
DATA MODEL SDA
DISPLAY NAME SocialHistory
ITEM
  • ToTime
    SEQUENCE:   13
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   790.05
    FIELD NUMBER:   42
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
    GET ACTION:   S VALUE=$G(VPRPREG("TO TIME"))
  • EnteredBy
    SEQUENCE:   9
    ITEM TYPE:   ENTITY
    FILE NUMBER:   790.05
    FIELD NUMBER:   2
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR USER
    GET ACTION:   S VALUE=$G(VPRPREG("ENTERED BY"))
  • FromTime
    SEQUENCE:   12
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   790.05
    FIELD NUMBER:   41
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
    GET ACTION:   S VALUE=$G(VPRPREG("FROM TIME"))
  • SocialHabit
    SEQUENCE:   4
    ITEM TYPE:   ENTITY
    FILE NUMBER:   790.05
    ENTITY:   VPR CODE TABLE
    GET ACTION:   S VALUE="PREGNANCY^^VHAT"
  • SocialHabitCategory
    SEQUENCE:   6
    ITEM TYPE:   ENTITY
    FILE NUMBER:   790.05
    ENTITY:   VPR CODE ONLY
    GET ACTION:   S VALUE="PREGNANCY"
  • EnteredAt
    SEQUENCE:   10
    ITEM TYPE:   ENTITY
    FILE NUMBER:   790.05
    ENTITY:   VPR FACILITY
    GET ACTION:   S VALUE=$G(VASITE)
  • EnteredOn
    SEQUENCE:   11
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   790.05
    FIELD NUMBER:   .01
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
    GET ACTION:   S VALUE=$G(VPRPREG("ENTERED ON"))
  • Status
    SEQUENCE:   8
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   790.05
    FIELD NUMBER:   21
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$S(VALUE>0:"A",1:"I")
    GET ACTION:   S VALUE=$G(VPRPREG("STATE"))
DESCRIPTION
This entity populates the Social History container in HealthShare.
GET ENTRY ACTION S VASITE=+$$SITE^VASITE S:VASITE'>0 VASITE=$$KSP^XUPARAM("INST")
GET EXIT ACTION K VASITE,VPRPREG,^TMP("WVPREGST",$J)
GET ID ACTION D WVPL1^VPRSDA(.DIEN)
GET QUERY ROUTINE WVPL^VPRSDAQ