VPR ADMISSION EXTENSION (104)    ENTITY (1.5)

Name Value
NAME VPR ADMISSION EXTENSION
DEFAULT FILE NUMBER 405
DATA MODEL SDA
DISPLAY NAME EncounterExtension
ITEM
  • Admitnumber
    SEQUENCE:   1
    ITEM TYPE:   ID
  • Complaint
    SEQUENCE:   11
    ITEM TYPE:   WORD PROCESSING
    FILE NUMBER:   405
    FIELD NUMBER:   99
    WORD WRAP:   1
    GET ACTION:   I '$O(^DGPM(DIEN,"DX",0)) N ADT S ADT=+$G(VAIP(13,1)),IEN=+$O(^DGPM("APTT6",DFN,ADT,0)) S:'IEN DDEOUT=1
  • VisitID
    SEQUENCE:   9
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   9000010
    FIELD NUMBER:   15001
    GET ACTION:   S IEN=+$G(VPRVST)
  • Status
    SEQUENCE:   12
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   405
    FIELD NUMBER:   .17
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$S(VALUE:"ADMITTED",1:"DISCHARGED")
    GET ACTION:   S VALUE=$G(VAIP(17))
  • Ptf
    SEQUENCE:   2
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   405
    FIELD NUMBER:   .16
    RETURN INTERNAL VALUE:   YES
    GET ACTION:   S VALUE=$G(VAIP(12))
  • OriginalTime
    SEQUENCE:   3
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   405
    FIELD NUMBER:   .01
    RETURN INTERNAL VALUE:   YES
    GET ACTION:   S VALUE=$P($G(VAIP(13,1)),U)
  • LastTransferDate
    SEQUENCE:   4
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   405
    OUTPUT TRANSFORM:   S VALUE=$$DATE^VPRSDA(VALUE)
    GET ACTION:   N MDT,I S MDT=0 F S MDT=$O(^DGPM("APCA",DFN,DIEN,MDT)) Q:MDT<1 S I=$O(^(MDT,0)) I $P($G(^DGPM(+I,0)),U,2)=2 S VALUE=MDT
  • Movements
    SEQUENCE:   5
    ITEM TYPE:   LIST
    FILE NUMBER:   405
    ENTITY:   VPR ADMISSION MOVEMENT
    LIST TYPE:   ARRAY
    XML NAME:   Movement
    GET ACTION:   D MVTS^VPRSDAV(DIEN)
  • CurrentMovement
    SEQUENCE:   6
    ITEM TYPE:   FIXED STRING
    GET ACTION:   S VALUE=$S(DIEN=$G(VPRCA):$P($G(^DPT(DFN,.102)),U),1:$P($G(^DGPM(DIEN,0)),U,17)) ;Use Discharge Mvt if prior admission
  • ExcludeFromFacDirectory
    SEQUENCE:   7
    ITEM TYPE:   FIXED STRING
    GET ACTION:   I DIEN=$G(VPRCA) N X S X=+$G(^DPT(DFN,.109)),VALUE=$S(X:"true",1:"false") ;only defined for current admission
  • Eligibility
    SEQUENCE:   8
    ITEM TYPE:   ENTITY
    FILE NUMBER:   9000010
    FIELD NUMBER:   .21
    RETURN INTERNAL VALUE:   YES
    ENTITY:   VPR ELIGIBILITY
    GET ACTION:   S IEN=+$G(VPRVST)
  • IsServiceConnected
    SEQUENCE:   10
    ITEM TYPE:   SIMPLE FIELD
    FILE NUMBER:   405
    FIELD NUMBER:   .11
    RETURN INTERNAL VALUE:   YES
    OUTPUT TRANSFORM:   S VALUE=$S(VALUE:"true",1:"false")
DESCRIPTION
This entity extends VPR ADMISSION; it expects the VAIP array from VADPT
to be defined, and is intended to be called within VPR ADMISSION.