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:   .205
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
    GET ACTION:   S:$G(VPRNONOR) DDEOUT=1
  • 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^VPRSDASR(DIEN)
  • ExternalId
    SEQUENCE:   13
    ITEM TYPE:   ID
    OUTPUT TRANSFORM:   S VALUE=VALUE_";SR"
  • ToTime
    SEQUENCE:   3
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   130
    FIELD NUMBER:   .232
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
    GET ACTION:   S:$G(VPRNONOR) DDEOUT=1
  • FromTime
    SEQUENCE:   2.1
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   130
    FIELD NUMBER:   121
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
    GET ACTION:   S:'$G(VPRNONOR) DDEOUT=1
  • ToTime
    SEQUENCE:   3.1
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   130
    FIELD NUMBER:   122
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
    GET ACTION:   S:'$G(VPRNONOR) DDEOUT=1
  • 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=$$SITE^VPRSDA
DESCRIPTION
This entity populates the Procedure container in HealthShare from the
SURGERY (#130) file; it expects the record IEN as the ID (DIEN).
 
This entity is supported by code in routine VPRSDASR, which uses the
SROESTV calls to extract surgery data. Data in SDA is populated when
the related Operative Summary report is completed in TIU; only completed
procedures are saved in SDA.
GET EXIT ACTION K VPRSR,VPRNONOR,SREXT,SRPROV,SRSDATE
GET ID ACTION D ONE^SROESTV("VPRSR",DIEN) S:$G(VPRSR(DIEN))="" DDEOUT=1 S:'$G(DDEOUT) VPRNONOR=$$NON^SROESTV(DIEN)
GET QUERY ROUTINE QRY^VPRSDASR