| ITEM |
-
- Mechanism
- SEQUENCE: 1
- ITEM TYPE: ENTITY
- FILE NUMBER: 120.8
- FIELD NUMBER: 17
- ENTITY: VPR CODE ONLY
- GET ACTION: S VALUE=$P($G(GMRAY),U,6)
-
- Source
- SEQUENCE: 2
- ITEM TYPE: SIMPLE FIELD
- FILE NUMBER: 120.8
- FIELD NUMBER: 6
- GET ACTION: S VALUE=$P($G(GMRAY),U,5)
-
- Comments
- SEQUENCE: 3
- ITEM TYPE: LIST
- ENTITY: VPR COMMENT
- LIST TYPE: ARRAY
- XML NAME: Comment
- GET ACTION: D CMTS^VPRSDAL(DIEN)
-
- Reactions
- SEQUENCE: 4
- ITEM TYPE: LIST
- ENTITY: VPR ALLERGY SIGN/SYMPTOM
- LIST TYPE: ARRAY
- XML NAME: Reaction
- GET ACTION: N I,X S I=0 F S I=$O(VPRALG("S",I)) Q:I<1 S X=$G(VPRALG("S",I)),DLIST(I)=+$P($P(X,U),";",2)_U_$P($P(X,U),";")_$S($L($P(X,U,2))>1:U_$P($P(X,U,2),";",2),1:"")
-
- DrugClasses
- SEQUENCE: 5
- ITEM TYPE: LIST
- ENTITY: VPR DRUG CLASS
- GET ACTION: N I S I=0 F S I=$O(GMRAY("V",I)) Q:I<1 S DLIST(I)=I_U_GMRAY("V",I)
-
- DrugProducts
- SEQUENCE: 6
- ITEM TYPE: LIST
- ENTITY: VPR DRUG INGREDIENT
- LIST TYPE: ARRAY
- XML NAME: DrugProduct
- GET ACTION: M DLIST=GMRAY("I")
-
- OriginalCode
- SEQUENCE: 7
- ITEM TYPE: SIMPLE FIELD
- FILE NUMBER: 120.8
- FIELD NUMBER: 1
- RETURN INTERNAL VALUE: YES
- GET ACTION: S VALUE=$P($G(VPRALG),U,9)
-
- InactiveUser
- SEQUENCE: 8
- ITEM TYPE: ENTITY
- FILE NUMBER: 120.8
- FIELD NUMBER: 24
- RETURN INTERNAL VALUE: YES
- ENTITY: VPR USER
-
- AllergyObservations
- SEQUENCE: 9
- ITEM TYPE: LIST
- ENTITY: VPR ALLERGY OBSERVATION
- GET ACTION: M DLIST=GMRAY("O")
|
