VPR APPOINTMENT (40)    ENTITY (1.5)

Name Value
NAME VPR APPOINTMENT
DEFAULT FILE NUMBER 2.98
DATA MODEL SDA
DISPLAY NAME Appointment
ITEM
  • EnteredAt
    SEQUENCE:   16
    ITEM TYPE:   ENTITY
    FILE NUMBER:   2.98
    FIELD NUMBER:   .01
    EXTENDED POINTER LKUP:   3
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR FACILITY
    GET ACTION:   S VALUE=$$GET1^DIQ(44,+$P(VPRAPPT,U,2)_",",3,"I") S:'VALUE VALUE=$G(VASITE)
  • EnteredOn
    SEQUENCE:   17
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   2.98
    FIELD NUMBER:   20
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
  • FromTime
    SEQUENCE:   18
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   2.98
    FIELD NUMBER:   .001
    OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
    GET ACTION:   S VALUE=+$G(VPRAPPT)
  • ToTime
    SEQUENCE:   19
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   2.98
    FIELD NUMBER:   15
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
    GET ACTION:   S VALUE=$P($G(VPRAPPT),U,11) I VALUE="",$P(VPRAPPT,U,3)["NS" S VALUE=$$GET1^DIQ(2.98,DIEN_",",15,"I")
  • PlacerApptId
    SEQUENCE:   7
    ITEM TYPE:   FIXED STRING
    GET ACTION:   S VALUE="A;"_+$G(VPRAPPT)_";"_+$P($G(VPRAPPT),U,2)
  • CareProvider
    SEQUENCE:   12
    ITEM TYPE:   ENTITY
    FILE NUMBER:   2.98
    ENTITY:   VPR PROVIDER
    GET ACTION:   S VALUE=$$APPTPRV^VPRSDAV ;expects VPRAPPT
  • Extension
    SEQUENCE:   3
    ITEM TYPE:   ENTITY
    FILE NUMBER:   2.98
    ENTITY:   VPR APPOINTMENT EXTENSION
    GET ACTION:   S VALUE=DIEN
  • Status
    SEQUENCE:   4
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   2.98
    FIELD NUMBER:   100
    GET ACTION:   S VALUE=$P($P($G(VPRAPPT),U,22),";",3)
  • NoShow
    SEQUENCE:   5
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   2.98
    FIELD NUMBER:   3
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$S(VALUE:"true",1:"false")
    GET ACTION:   S VALUE=($P($G(VPRAPPT),U,3)?1"NS".E)
  • Type
    SEQUENCE:   6
    ITEM TYPE:   ENTITY
    FILE NUMBER:   2.98
    FIELD NUMBER:   9.5
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR CODE TABLE
    OUTPUT TRANSFORM:   S $P(VALUE,U,3)="VA409.1"
    GET ACTION:   S VALUE=$TR($P($G(VPRAPPT),U,10),";","^")
  • FillerApptId
    SEQUENCE:   8
    ITEM TYPE:   ID
  • Location
    SEQUENCE:   13
    ITEM TYPE:   ENTITY
    FILE NUMBER:   2.98
    FIELD NUMBER:   .01
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR LOCATION
    GET ACTION:   S VALUE=+$P($G(VPRAPPT),U,2)
  • EnteredBy
    SEQUENCE:   15
    ITEM TYPE:   ENTITY
    FILE NUMBER:   2.98
    FIELD NUMBER:   19
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR USER
DESCRIPTION
This entity populates the Appointment container in HealthShare. It 
expects the APPOINTMENT (#2.98) sub-file IENS string as its ID.
GET ENTRY ACTION S VASITE=+$$SITE^VASITE S:VASITE'>0 VASITE=$$KSP^XUPARAM("INST")
GET EXIT ACTION K ^TMP($J,"SDAMA301"),VPRAPPT,VASITE
GET ID ACTION D APPT1^VPRSDAV(DIEN)
GET QUERY ROUTINE APPTS^VPRSDAQ