| ITEM |
-
- AlertType
- SEQUENCE: 4
- ITEM TYPE: ENTITY
- ENTITY: VPR CODE TABLE
- GET ACTION: S VALUE="PRF^PATIENT RECORD FLAG"
-
- Extension
- SEQUENCE: 3
- ITEM TYPE: ENTITY
- FILE NUMBER: 26.13
- ENTITY: VPR PRF EXTENSION
- GET ACTION: S VALUE=DIEN
-
- ExternalId
- SEQUENCE: 13
- ITEM TYPE: ID
- OUTPUT TRANSFORM: S VALUE=$P($G(VPRF("FLAG")),U) ;vptr
-
- Alert
- SEQUENCE: 5
- ITEM TYPE: ENTITY
- FILE NUMBER: 26.13
- FIELD NUMBER: .02
- RETURN INTERNAL VALUE: YES
- ENTITY: VPR CODE TABLE
- GET ACTION: N X S X=$G(VPRF("FLAG")) S:X VALUE=+X_U_$P(X,U,2)_"^VA"_+$P(X,"(",2)
-
- Comments
- SEQUENCE: 6
- ITEM TYPE: WORD PROCESSING
- FILE NUMBER: 26.13
- FIELD NUMBER: 1
- WORD WRAP: 1
- GET ACTION: M WP=VPRF("NARR") S:'$D(WP) DDEOUT=1
-
- Status
- SEQUENCE: 7
- ITEM TYPE: SIMPLE FIELD
- FILE NUMBER: 26.13
- FIELD NUMBER: .03
- RETURN INTERNAL VALUE: YES
- FIXED RESPONSE: A
- OUTPUT TRANSFORM: S VALUE=$S(VALUE:"A",1:"I")
- GET ACTION: S VALUE=+$G(VPRF("STATUS"))
-
- EnteredBy
- SEQUENCE: 8
- ITEM TYPE: ENTITY
- FILE NUMBER: 26.14
- FIELD NUMBER: .04
- RETURN INTERNAL VALUE: YES
- ENTITY: VPR USER
- GET ACTION: S VALUE=$P($G(VPRFLH("ENTERBY")),U),IEN=+$G(VPRFLH)
-
- EnteredAt
- SEQUENCE: 9
- ITEM TYPE: ENTITY
- FILE NUMBER: 26.13
- FIELD NUMBER: .05
- RETURN INTERNAL VALUE: YES
- ENTITY: VPR FACILITY
- GET ACTION: S VALUE=$P($G(VPRF("ORIGSITE")),U) S:'VALUE VALUE=$G(VASITE)
-
- EnteredOn
- SEQUENCE: 10
- ITEM TYPE: SIMPLE FIELD
- FILE NUMBER: 26.14
- FIELD NUMBER: .02
- RETURN INTERNAL VALUE: YES
- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
- GET ACTION: S VALUE=$P($G(VPRF1H("ASSIGNDT")),U),IEN=+$G(VPRF1H)
-
- FromTime
- SEQUENCE: 11
- ITEM TYPE: SIMPLE FIELD
- FILE NUMBER: 26.14
- FIELD NUMBER: .02
- RETURN INTERNAL VALUE: YES
- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
- GET ACTION: S VALUE=$P($G(VPRF1H("ASSIGNDT")),U),IEN=+$G(VPRF1H)
-
- ToTime
- SEQUENCE: 12
- ITEM TYPE: SIMPLE FIELD
- FILE NUMBER: 26.13
- FIELD NUMBER: .06
- RETURN INTERNAL VALUE: YES
- OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE)
- GET ACTION: S VALUE=$P($G(VPRF("REVIEWDT")),U)
|
