VPR SURGERY (50)    ENTITY (1.5)

Name Value
NAME VPR SURGERY
DEFAULT FILE NUMBER 130
DATA MODEL SDA
DISPLAY NAME Procedure
ITEM
  • FromTime
    SEQUENCE:   2
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   130
    FIELD NUMBER:   .09
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
    GET ACTION:   S VPRDT=$P(VPRSR(DIEN),U,3),VALUE=VPRDT
  • EnteredOn
    SEQUENCE:   12
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   130
    FIELD NUMBER:   1.098
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
  • Procedure
    SEQUENCE:   6
    ITEM TYPE:   ENTITY
    FILE NUMBER:   130
    FIELD NUMBER:   26
    ENTITY:   VPR CODE TABLE
    GET ACTION:   D PROC^VPRSR(DIEN)
  • ExternalId
    SEQUENCE:   13
    ITEM TYPE:   ID
    OUTPUT TRANSFORM:   S VALUE=VALUE_";SR"
  • EncounterNumber
    SEQUENCE:   4
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   8925
    FIELD NUMBER:   .03
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S:'$D(^AUPNVSIT(VALUE,0)) VALUE=""
    GET ACTION:   N I S I=+$O(VPRSR(DIEN,0)),IEN=+$G(VPRSR(DIEN,I)) S:IEN<1 DDEOUT=1 ;TIU ien
  • Extension
    SEQUENCE:   5
    ITEM TYPE:   ENTITY
    FILE NUMBER:   130
    ENTITY:   VPR SURGERY EXTENSION
    GET ACTION:   S VALUE=DIEN
  • Clinician
    SEQUENCE:   7
    ITEM TYPE:   ENTITY
    FILE NUMBER:   130
    FIELD NUMBER:   .14
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR PROVIDER
    GET ACTION:   N X S X=+$P(VPRSR(DIEN),U,4) S:X VALUE=X
  • ProcedureTime
    SEQUENCE:   9
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   130
    FIELD NUMBER:   .09
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
    GET ACTION:   S VALUE=$P(VPRSR(DIEN),U,3)
  • EnteredBy
    SEQUENCE:   10
    ITEM TYPE:   ENTITY
    FILE NUMBER:   130
    FIELD NUMBER:   1.099
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR USER
  • EnteredAt
    SEQUENCE:   11
    ITEM TYPE:   ENTITY
    FILE NUMBER:   130
    FIELD NUMBER:   50
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR FACILITY
    GET ACTION:   S VALUE=+$G(^SRF(DIEN,8)) S:VALUE<1 VALUE=$G(VASITE)
DESCRIPTION
This entity populates the Procedure container in HealthShare. It expects
the SURGERY (#130) file ien as its ID.
GET ENTRY ACTION S VASITE=+$$SITE^VASITE S:VASITE'>0 VASITE=$$KSP^XUPARAM("INST")
GET EXIT ACTION K VPRSR,VPRDT,SREXT,SRPROV,SRSDATE,VASITE
GET ID ACTION D ONE^SROESTV("VPRSR",DIEN) S:$G(VPRSR(DIEN))="" DDEOUT=1
GET QUERY ROUTINE SURGERYS^VPRSDAQ