VPR VACC HF REFUSAL (171)    ENTITY (1.5)

Name Value
NAME VPR VACC HF REFUSAL
DEFAULT FILE NUMBER 9000010.23
DATA MODEL SDA
DISPLAY NAME Vaccination
ITEM
  • FillerId
    SEQUENCE:   3
    ITEM TYPE:   ID
  • EncounterNumber
    SEQUENCE:   61
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   9000010.23
    FIELD NUMBER:   .03
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S:'$D(^AUPNVSIT(VALUE,0)) VALUE=""
    GET ACTION:   S VALUE=$G(VPRVST)
  • OrderedBy
    SEQUENCE:   8
    ITEM TYPE:   ENTITY
    FILE NUMBER:   9000010.23
    FIELD NUMBER:   1202
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR PROVIDER
    GET ACTION:   S VALUE=$P($G(VPRHF("ORDERING PROVIDER")),U)
  • ExternalId
    SEQUENCE:   60
    ITEM TYPE:   ID
    OUTPUT TRANSFORM:   S VALUE=VALUE_";HF"
  • Extension
    SEQUENCE:   62
    ITEM TYPE:   ENTITY
    FILE NUMBER:   9000010.23
    ENTITY:   VPR VACC HF EXT
    GET ACTION:   S VALUE=DIEN
  • EnteredBy
    SEQUENCE:   30
    ITEM TYPE:   ENTITY
    FILE NUMBER:   9000010.23
    FIELD NUMBER:   .03
    EXTENDED POINTER LKUP:   .23
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR USER
    GET ACTION:   S VALUE=$P(VPRVST0,U,23)
  • EnteredAt
    SEQUENCE:   31
    ITEM TYPE:   ENTITY
    FILE NUMBER:   9000010.23
    FIELD NUMBER:   .03
    EXTENDED POINTER LKUP:   .06
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR FACILITY
    GET ACTION:   S VALUE=$P(VPRVST0,U,6) S:'VALUE VALUE=$G(VASITE)
  • EnteredOn
    SEQUENCE:   32
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   9000010.23
    FIELD NUMBER:   .03
    EXTENDED POINTER LKUP:   .01
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
    GET ACTION:   S VALUE=$P(VPRVST0,U)
  • FromTime
    SEQUENCE:   33
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   9000010.23
    FIELD NUMBER:   1201
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
    GET ACTION:   S VALUE=$G(VPRHF("EVENT DATE AND TIME")) S:VALUE<1 VALUE=$P(VPRVST0,U) S VPRDT=$G(VALUE)
  • ToTime
    SEQUENCE:   34
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   9000010.23
    FIELD NUMBER:   1201
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
    GET ACTION:   S VALUE=$G(VPRDT) S:VALUE<1 DDEOUT=1
  • OrderItem
    SEQUENCE:   35
    ITEM TYPE:   ENTITY
    FILE NUMBER:   9000010.23
    FIELD NUMBER:   .01
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR CODE TABLE
    GET ACTION:   N HF,NM,CVX S HF=+$G(^AUPNVHF(DIEN,0)),NM=$$GET1^DIQ(9000010.23,DIEN,.01),CVX=$P(NM," CVX ",2),VALUE=$S(CVX:CVX_U_NM_"^CVX",1:HF_U_NM_"^VA9999999.64")
  • Administrations
    SEQUENCE:   53
    ITEM TYPE:   LIST
    ENTITY:   VPR VACC HF ADMIN
    LIST TYPE:   ARRAY
    XML NAME:   Administration
    GET ACTION:   S DLIST(1)=DIEN
DESCRIPTION
This entity supports the temporary placement of vaccination refusals in
the V HEALTH FACTOR (#9000010.23) file, with the record IEN as the ID.
 
The VPR PCE EVENTS listener will pass in 'ien~visit' for the record ID if
it detects that the record is being deleted; control will pass to the VPR
VFILE DELETE entity to return a stub to HealthShare containing only these
two values, so the HS matching logic can find and remove the record there.
GET ENTRY ACTION S VASITE=+$$SITE^VASITE S:VASITE'>0 VASITE=$$KSP^XUPARAM("INST") I $G(ID)["~" D VDEL^VPRSDAV
GET EXIT ACTION K VPRHF,VPRVST,VPRVST0,VASITE
GET ID ACTION D HF1^VPRSDAV
GET QUERY ROUTINE HFCVR^VPRSDAQ