| ITEM |
-
- Cpt
- SEQUENCE: 1
- ITEM TYPE: ENTITY
- FILE NUMBER: 9000010.18
- ENTITY: VPR CPT
- GET ACTION: S VALUE=$$CPT^VPRDVSIT(DIEN),VPRDT=$P($G(@VPRVST@(0)),U),VPRVAL=VALUE
-
- IsServiceConnected
- SEQUENCE: 9
- ITEM TYPE: SIMPLE FIELD
- FILE NUMBER: 9000010
- FIELD NUMBER: 80001
- RETURN INTERNAL VALUE: YES
- OUTPUT TRANSFORM: S VALUE=$S(VALUE:"true",1:"false")
- GET ACTION: S VPRVSC=$G(@VPRVST@(800)),VALUE=$P(VPRVSC,U)
-
- IsExposureAO
- SEQUENCE: 10
- ITEM TYPE: SIMPLE FIELD
- FILE NUMBER: 9000010
- FIELD NUMBER: 80002
- RETURN INTERNAL VALUE: YES
- OUTPUT TRANSFORM: S VALUE=$S(VALUE:"true",1:"false")
- GET ACTION: S VALUE=$P(VPRVSC,U,2)
-
- IsExposureIR
- SEQUENCE: 11
- ITEM TYPE: SIMPLE FIELD
- FILE NUMBER: 9000010
- FIELD NUMBER: 80003
- RETURN INTERNAL VALUE: YES
- OUTPUT TRANSFORM: S VALUE=$S(VALUE:"true",1:"false")
- GET ACTION: S VALUE=$P(VPRVSC,U,3)
-
- IsExposureSWA
- SEQUENCE: 12
- ITEM TYPE: SIMPLE FIELD
- FILE NUMBER: 9000010
- FIELD NUMBER: 80004
- RETURN INTERNAL VALUE: YES
- OUTPUT TRANSFORM: S VALUE=$S(VALUE:"true",1:"false")
- GET ACTION: S VALUE=$P(VPRVSC,U,4)
-
- IsExposureMST
- SEQUENCE: 13
- ITEM TYPE: SIMPLE FIELD
- FILE NUMBER: 9000010
- FIELD NUMBER: 80005
- RETURN INTERNAL VALUE: YES
- OUTPUT TRANSFORM: S VALUE=$S(VALUE:"true",1:"false")
- GET ACTION: S VALUE=$P(VPRVSC,U,5)
-
- IsExposureHNC
- SEQUENCE: 14
- ITEM TYPE: SIMPLE FIELD
- FILE NUMBER: 9000010
- FIELD NUMBER: 80006
- RETURN INTERNAL VALUE: YES
- OUTPUT TRANSFORM: S VALUE=$S(VALUE:"true",1:"false")
- GET ACTION: S VALUE=$P(VPRVSC,U,6)
-
- IsExposureCV
- SEQUENCE: 15
- ITEM TYPE: SIMPLE FIELD
- FILE NUMBER: 9000010
- FIELD NUMBER: 80007
- RETURN INTERNAL VALUE: YES
- OUTPUT TRANSFORM: S VALUE=$S(VALUE:"true",1:"false")
- GET ACTION: S VALUE=$P(VPRVSC,U,7)
-
- IsExposureSHAD
- SEQUENCE: 16
- ITEM TYPE: SIMPLE FIELD
- FILE NUMBER: 9000010
- FIELD NUMBER: 80008
- RETURN INTERNAL VALUE: YES
- OUTPUT TRANSFORM: S VALUE=$S(VALUE:"true",1:"false")
- GET ACTION: S VALUE=$P(VPRVSC,U,8)
-
- OriginatingProcess
- SEQUENCE: 17
- ITEM TYPE: ENTITY
- FILE NUMBER: 409.68
- FIELD NUMBER: .08
- RETURN INTERNAL VALUE: YES
- ENTITY: VPR CODE TABLE
- GET ACTION: S IEN=$O(^SCE("AVSIT",DIEN,0)) S:IEN<1 DDEOUT=1
-
- Status
- SEQUENCE: 18
- ITEM TYPE: SIMPLE FIELD
- FILE NUMBER: 409.68
- FIELD NUMBER: .12
- GET ACTION: S IEN=$O(^SCE("AVSIT",DIEN,0)) S:IEN<1 DDEOUT=1
-
- StopCode
- SEQUENCE: 2
- ITEM TYPE: ENTITY
- FILE NUMBER: 9000010
- FIELD NUMBER: .08
- RETURN INTERNAL VALUE: YES
- ENTITY: VPR CODE TABLE
- OUTPUT TRANSFORM: S VALUE=$$AMIS^VPRDVSIT(VALUE)_"^AMIS"
- GET ACTION: S VALUE=$P($G(@VPRVST@(0)),U,8)
-
- Cpt
- SEQUENCE: 1.1
- ITEM TYPE: ENTITY
- FILE NUMBER: 9000010
- ENTITY: VPR CODE TABLE
- GET ACTION: I VPRVAL="" N SEQ S SEQ=+$G(FILTER("sequence")) S:$P($G(^XTMP("VPR-"_SEQ,+$G(DIEN))),U,6) VALUE=$$NULL^VPRSDA(3) ;delete values
-
- ParentEncounterNumber
- SEQUENCE: 3
- ITEM TYPE: SIMPLE FIELD
- FILE NUMBER: 9000010
- FIELD NUMBER: .12
- RETURN INTERNAL VALUE: YES
- GET ACTION: S VALUE=$P($G(@VPRVST@(0)),U,12)
-
- Eligibility
- SEQUENCE: 4
- ITEM TYPE: ENTITY
- FILE NUMBER: 9000010
- FIELD NUMBER: .21
- RETURN INTERNAL VALUE: YES
- ENTITY: VPR ELIGIBILITY
- GET ACTION: S VALUE=$P($G(@VPRVST@(0)),U,21)
-
- VisitID
- SEQUENCE: 5
- ITEM TYPE: SIMPLE FIELD
- FILE NUMBER: 9000010
- FIELD NUMBER: 15001
- GET ACTION: S VALUE=$P($G(@VPRVST@(150)),U)
-
- Comments
- SEQUENCE: 6
- ITEM TYPE: SIMPLE FIELD
- FILE NUMBER: 9000010
- FIELD NUMBER: 81101
- GET ACTION: S VALUE=$P($G(@VPRVST@(811)),U)
-
- Package
- SEQUENCE: 7
- ITEM TYPE: ENTITY
- FILE NUMBER: 9000010
- FIELD NUMBER: 81202
- RETURN INTERNAL VALUE: YES
- ENTITY: VPR PACKAGE
- GET ACTION: S VALUE=$P($G(@VPRVST@(812)),U,2)
-
- DataSource
- SEQUENCE: 8
- ITEM TYPE: SIMPLE FIELD
- FILE NUMBER: 9000010
- FIELD NUMBER: 81203
|
