VPR SCHEDULED ADMISSION (91)    ENTITY (1.5)

Name Value
NAME VPR SCHEDULED ADMISSION
DEFAULT FILE NUMBER 41.1
DATA MODEL SDA
DISPLAY NAME Appointment
ITEM
  • Status
    SEQUENCE:   4
    ITEM TYPE:   FIXED STRING
    GET ACTION:   S VALUE=$S($P(VPRADM,U,13):"CANCELLED",$P(VPRADM,U,17):"ADMITTED",$P(VPRADM,U,2)>DT:"FUTURE",1:"NO ACTION TAKEN")
  • CareProvider
    SEQUENCE:   12
    ITEM TYPE:   ENTITY
    FILE NUMBER:   41.1
    FIELD NUMBER:   5
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR PROVIDER
    GET ACTION:   S VALUE=$P(VPRADM,U,5)
  • PlacerApptId
    SEQUENCE:   7
    ITEM TYPE:   FIXED STRING
    GET ACTION:   S VALUE="H;"_DIEN
  • FillerApptId
    SEQUENCE:   8
    ITEM TYPE:   ID
  • Location
    SEQUENCE:   13
    ITEM TYPE:   ENTITY
    FILE NUMBER:   41.1
    FIELD NUMBER:   8
    EXTENDED POINTER LKUP:   44
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR LOCATION
  • EnteredBy
    SEQUENCE:   15
    ITEM TYPE:   ENTITY
    FILE NUMBER:   41.1
    FIELD NUMBER:   11
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR USER
    GET ACTION:   S VALUE=$P(VPRADM,U,11)
  • EnteredAt
    SEQUENCE:   16
    ITEM TYPE:   ENTITY
    FILE NUMBER:   41.1
    FIELD NUMBER:   12
    EXTENDED POINTER LKUP:   .07
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR FACILITY
  • FromTime
    SEQUENCE:   18
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   41.1
    FIELD NUMBER:   2
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
  • ToTime
    SEQUENCE:   19
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   41.1
    FIELD NUMBER:   17
    EXTENDED POINTER LKUP:   .01
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
    GET ACTION:   S:$P(VPRADM,U,13) VALUE=$P(VPRADM,U,13) ;cancelled instead
  • Extension
    SEQUENCE:   3
    ITEM TYPE:   ENTITY
    FILE NUMBER:   41.1
    ENTITY:   VPR SCH ADM EXTENSION
    GET ACTION:   S VALUE=DIEN
DESCRIPTION
This entity populates the Appointment container in HealthShare. It expects
the SCHEDULED ADMISSION (#41.1) file ien as its ID.
GET EXIT ACTION K VPRADM
GET ID ACTION S VPRADM=$G(^DGS(41.1,DIEN,0))
GET QUERY ROUTINE SCHADMS^VPRSDAQ