| 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")
|
