VPR PROCEDURE (51)    ENTITY (1.5)

Name Value
NAME VPR PROCEDURE
DEFAULT FILE NUMBER 702
DATA MODEL SDA
DISPLAY NAME Procedure
ITEM
  • FromTime
    SEQUENCE:   2
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   702
    FIELD NUMBER:   .06
    EXTENDED POINTER LKUP:   70202
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
    GET ACTION:   S VALUE=$P(VPRCP,U,6)
  • EnteredOn
    SEQUENCE:   12
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   702
    FIELD NUMBER:   .02
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
  • ExternalId
    SEQUENCE:   13
    ITEM TYPE:   ID
    OUTPUT TRANSFORM:   S VALUE=VALUE_";MD"
  • EncounterNumber
    SEQUENCE:   4
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   702
    FIELD NUMBER:   .06
    EXTENDED POINTER LKUP:   .03
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S:'$D(^AUPNVSIT(VALUE,0)) VALUE=""
    GET ACTION:   S VALUE=$G(VPRTIU(.03,"I"))
  • Extension
    SEQUENCE:   5
    ITEM TYPE:   ENTITY
    FILE NUMBER:   702
    ENTITY:   VPR PROCEDURE EXTENSION
    GET ACTION:   S VALUE=DIEN
  • Procedure
    SEQUENCE:   6
    ITEM TYPE:   ENTITY
    FILE NUMBER:   702
    FIELD NUMBER:   .04
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR CODE TABLE
    GET ACTION:   N X S X=$$FIND1^DIC(702.01,,"QX",$P(VPRCP,U)) S:X VALUE=X_U_$P(VPRCP,U)_"^VA702.01"
  • Clinician
    SEQUENCE:   7
    ITEM TYPE:   ENTITY
    FILE NUMBER:   702
    FIELD NUMBER:   .06
    EXTENDED POINTER LKUP:   1202
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR PROVIDER
    GET ACTION:   S VALUE=$G(VPRTIU(1202,"I"))
  • ProcedureTime
    SEQUENCE:   9
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   702
    FIELD NUMBER:   .06
    EXTENDED POINTER LKUP:   70202
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
    GET ACTION:   S VALUE=$P(VPRCP,U,6)
  • EnteredBy
    SEQUENCE:   10
    ITEM TYPE:   ENTITY
    FILE NUMBER:   702
    FIELD NUMBER:   .03
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR USER
  • EnteredAt
    SEQUENCE:   11
    ITEM TYPE:   ENTITY
    FILE NUMBER:   702
    FIELD NUMBER:   .06
    EXTENDED POINTER LKUP:   1212
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR FACILITY
    GET ACTION:   S VALUE=$G(VPRTIU(1212,"I")) S:'VALUE VALUE=$G(VASITE)
DESCRIPTION
This entity populated the Procedure container in HealthShare from the CP 
TRANSACTION (#702) file but is no longer in use. Clinical Procedures are
handled via the Consult/Request package and as such are available in the 
Referral container; clients may filter referrals by extension properties 
Type and ClinicalProcedure to find them.
GET ENTRY ACTION S VASITE=+$$SITE^VASITE S:VASITE'>0 VASITE=$$KSP^XUPARAM("INST")
GET EXIT ACTION K ^TMP("MDHSP",$J),VPRCP,VPRCN,VPRTIU,VASITE
GET ID ACTION D CP1^VPRSDA(DIEN)
GET QUERY ROUTINE NOQ^VPRSDAQ