| ITEM |
-
- IsContraindicated
- SEQUENCE: 1
- ITEM TYPE: SIMPLE FIELD
- FILE NUMBER: 9000010.11
- FIELD NUMBER: .07
- RETURN INTERNAL VALUE: YES
- OUTPUT TRANSFORM: S VALUE=$S(VALUE:"true",1:"false")
- GET ACTION: S VALUE=$G(VPRM("CONTRAINDICATED"))
-
- IsWarningAcknowledged
- SEQUENCE: 11
- ITEM TYPE: SIMPLE FIELD
- FILE NUMBER: 9000010.11
- FIELD NUMBER: 1220
- RETURN INTERNAL VALUE: YES
- OUTPUT TRANSFORM: S VALUE=$S(VALUE:"true",1:"false")
- GET ACTION: S VALUE=$G(VPRM("WARNING ACK"))
-
- WarningOverride
- SEQUENCE: 12
- ITEM TYPE: SIMPLE FIELD
- FILE NUMBER: 9000010.11
- FIELD NUMBER: 1601
- GET ACTION: S VALUE=$G(VPRM("OVERRIDE REASON"))
-
- Manufacturer
- SEQUENCE: 8
- ITEM TYPE: ENTITY
- FILE NUMBER: 9000010.11
- FIELD NUMBER: 1207
- EXTENDED POINTER LKUP: .02
- RETURN INTERNAL VALUE: YES
- ENTITY: VPR IMM MANUFACTURER
- GET ACTION: S VALUE=$P($G(VPRM("MANUFACTURER")),U)
-
- Reaction
- SEQUENCE: 2
- ITEM TYPE: ENTITY
- FILE NUMBER: 9000010.11
- FIELD NUMBER: .06
- RETURN INTERNAL VALUE: YES
- ENTITY: VPR CODE TABLE
- OUTPUT TRANSFORM: S VALUE=VALUE_U_$$EXTERNAL^DILFD(9000010.11,.06,,VALUE)
- GET ACTION: S VALUE=$G(VPRM("REACTION"))
-
- Source
- SEQUENCE: 3
- ITEM TYPE: ENTITY
- FILE NUMBER: 9000010.11
- FIELD NUMBER: 1301
- ENTITY: VPR CODE TABLE
- GET ACTION: N X S X=$G(VPRM("INFO SOURCE")) S:X VALUE=$P(X,U,2,3)_"^HL7" S:X<1 DDEOUT=1 ;HL7 code ^ name
-
- VISOffers
- SEQUENCE: 5
- ITEM TYPE: LIST
- ENTITY: VPR IMM VIS
- LIST TYPE: ARRAY
- XML NAME: VISOffer
- GET ACTION: N I S I=0 F S I=$O(VPRM("VIS OFFERED",I)) Q:I<1 S DLIST(I)=$G(VPRM("VIS OFFERED",I,0))
-
- CPT
- SEQUENCE: 4
- ITEM TYPE: ENTITY
- FILE NUMBER: 9000010.11
- ENTITY: VPR CPT
- GET ACTION: S VALUE=$P($G(VPRM("CODES","CPT")),U)
-
- NDCCode
- SEQUENCE: 6
- ITEM TYPE: SIMPLE FIELD
- FILE NUMBER: 9000010.11
- FIELD NUMBER: 1207
- EXTENDED POINTER LKUP: .18
- RETURN INTERNAL VALUE: YES
- GET ACTION: S VALUE=$G(VPRM("NDC CODE (VA)"))
-
- CDCName
- SEQUENCE: 7
- ITEM TYPE: WORD PROCESSING
- FILE NUMBER: 9999999.14
- FIELD NUMBER: 2
- WORD WRAP: 1
- GET ACTION: S IEN=+$G(VPRM("IMMUNIZATION")),WP(1)=$G(VPRM("CDC FULL VACCINE NAME")) I WP(1)="" K WP
-
- DataSource
- SEQUENCE: 9
- ITEM TYPE: SIMPLE FIELD
- FILE NUMBER: 9000010.11
- FIELD NUMBER: 81203
- GET ACTION: S VALUE=$P($G(VPRM("DATA SOURCE")),U,2)
-
- Package
- SEQUENCE: 10
- ITEM TYPE: ENTITY
- FILE NUMBER: 9000010.11
- FIELD NUMBER: 81202
- RETURN INTERNAL VALUE: YES
- ENTITY: VPR PACKAGE
- GET ACTION: S VALUE=$P($G(VPRM("PACKAGE")),U)
|
