VPR V CPT (87)    ENTITY (1.5)

Name Value
NAME VPR V CPT
DEFAULT FILE NUMBER 9000010.18
DATA MODEL SDA
DISPLAY NAME Procedure
ITEM
  • EnteredOn
    SEQUENCE:   12
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   9000010.18
    FIELD NUMBER:   .03
    EXTENDED POINTER LKUP:   .01
    OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
    GET ACTION:   S VALUE=$P(VPRVST0,U)
  • ExternalId
    SEQUENCE:   13
    ITEM TYPE:   ID
    OUTPUT TRANSFORM:   S VALUE=VALUE_";PX"
  • FromTime
    SEQUENCE:   2
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   9000010.18
    FIELD NUMBER:   1201
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
    GET ACTION:   S VALUE=$G(VPRCPT("EVENT DATE AND TIME")) S:VALUE<1 VALUE=$P($G(VPRVST0),U)
  • EncounterNumber
    SEQUENCE:   4
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   9000010.18
    FIELD NUMBER:   .03
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S:'$D(^AUPNVSIT(VALUE,0)) VALUE=""
    GET ACTION:   S VALUE=$G(VPRVST)
  • Extension
    SEQUENCE:   5
    ITEM TYPE:   ENTITY
    FILE NUMBER:   9000010.18
    ENTITY:   VPR VCPT EXTENSION
    GET ACTION:   S VALUE=DIEN
  • Procedure
    SEQUENCE:   6
    ITEM TYPE:   ENTITY
    FILE NUMBER:   9000010.18
    FIELD NUMBER:   .01
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR CPT
    GET ACTION:   N PN S VPRDT=+$G(VPRVST0),PN=+$G(VPRCPT("PROVIDER NARRATIVE")) S:PN DATA=$P($G(^AUTNPOV(PN,0)),U) ;CPT date versioning, OrigText
  • Clinician
    SEQUENCE:   7
    ITEM TYPE:   ENTITY
    FILE NUMBER:   9000010.18
    FIELD NUMBER:   1204
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR PROVIDER
    GET ACTION:   S VALUE=$G(VPRCPT("ENCOUNTER PROVIDER"))
  • ProcedureTime
    SEQUENCE:   9
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   9000010.18
    FIELD NUMBER:   1201
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
    GET ACTION:   S VALUE=$G(VPRCPT("EVENT DATE AND TIME")) S:VALUE<1 VALUE=$P($G(VPRVST0),U)
  • EnteredBy
    SEQUENCE:   10
    ITEM TYPE:   ENTITY
    FILE NUMBER:   9000010.18
    FIELD NUMBER:   .03
    EXTENDED POINTER LKUP:   .23
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR USER
    GET ACTION:   S VALUE=$P(VPRVST0,U,23)
  • EnteredAt
    SEQUENCE:   11
    ITEM TYPE:   ENTITY
    FILE NUMBER:   9000010.18
    FIELD NUMBER:   .03
    EXTENDED POINTER LKUP:   .06
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR FACILITY
    GET ACTION:   S VALUE=$P(VPRVST0,U,6)
DESCRIPTION
This entity populates the Procedure container from the V CPT (#9000010.18)
file. Duplicate entries are screened out:
 * Surgeries from the SURGERY (#130) file
 * Immunizations from V IMMUNIZATION (#9000010.11) file, also stored in
   the Vaccination container
 * Evaluation & Management codes (99200 - 99399) are returned as the type
   of visit in the Encounter container
GET ENTRY ACTION S VASITE=+$$SITE^VASITE S:VASITE'>0 VASITE=$$KSP^XUPARAM("INST") I $G(ID)["~" D VDEL^VPRSDAV
GET EXIT ACTION K VPRCPT,VPRVST,VPRVST0,VPRDT,VASITE
GET ID ACTION D CPT1^VPRSDAV
GET QUERY ROUTINE CPT^VPRSDAQ