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.