Name	Value
NAME	VPR MED EXTENSION
DEFAULT FILE NUMBER	100
DATA MODEL	SDA
DISPLAY NAME	MedicationExtension
ITEM	Sig SEQUENCE: 5 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 100.045 FIELD NUMBER: 1 GET ACTION: S VALUE=$$SIG^VPRSDAP(DIEN) S:VALUE="" DDEOUT=1 IVRate SEQUENCE: 28 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 100.045 FIELD NUMBER: 1 GET ACTION: S:$G(PSTYPE)="V" VALUE=$P($G(@VPRPS@(0)),U,2) S:VALUE="" DDEOUT=1 VAStatus SEQUENCE: 15 ITEM TYPE: ENTITY FILE NUMBER: 100 ENTITY: VPR CODE TABLE GET ACTION: N X S X=$P($G(@VPRPS@(0)),U,6) I $L(X) S VALUE=X_U_X_"^VHAT" PharmacyOrderItem SEQUENCE: 21 ITEM TYPE: FIXED STRING GET ACTION: S VALUE=$G(PSOI) IsNonFormulary SEQUENCE: 22 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 50.7 FIELD NUMBER: 5 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$S(VALUE:"true",1:"false") GET ACTION: S IEN=+$G(PSOI) S:'IEN DDEOUT=1 Released SEQUENCE: 1 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 100.008 FIELD NUMBER: 16 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) GET ACTION: S VALUE=$P($G(OR8),U,16),IEN="1,"_DIEN OrderType SEQUENCE: 6 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 100 FIELD NUMBER: 8.1 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$S(VALUE=1:"EDIT",VALUE=2:"RENEW",1:"NEW") GET ACTION: S VALUE=$P($G(OR3),U,11) IVCategory SEQUENCE: 26 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 100.045 FIELD NUMBER: 1 GET ACTION: S:$G(PSTYPE)="V" VALUE=$$VALUE^ORX8(DIEN,"TYPE") S:VALUE="" DDEOUT=1 IVType SEQUENCE: 27 ITEM TYPE: FIXED STRING GET ACTION: I $G(PSTYPE)="V" S VALUE=$$IVTYPE^VPRSDAP(DIEN) NatureOfOrder SEQUENCE: 7 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 100.008 FIELD NUMBER: 12 GET ACTION: S IEN=$$LASTACT^VPRSDAOR(DIEN)_","_DIEN IsServiceConnected SEQUENCE: 24 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 100.045 FIELD NUMBER: 1 OUTPUT TRANSFORM: S VALUE=$S(VALUE:"true",1:"false") GET ACTION: N X S X=$$VALUE^ORX8(ORIFN,"SC") S:$L(X) VALUE=X S:VALUE="" DDEOUT=1 IsIMO SEQUENCE: 25 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 100 FIELD NUMBER: 6 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$IMO^VPRSDAP(+VALUE,$G(PSTYPE)) ;true or false GET ACTION: S VALUE=$P($G(OR0),U,10) DiscontinuedDateTime SEQUENCE: 11 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 100 FIELD NUMBER: 63 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) GET ACTION: S VALUE=$P($G(OR6),U,3) DiscontinueType SEQUENCE: 10 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 100 FIELD NUMBER: 61 GET ACTION: I $G(PSTYPE)="O",$G(ORPK)["R" S VALUE=$$GET1^DIQ(52,+ORPK,100.1) Statement SEQUENCE: 29 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 100.045 FIELD NUMBER: 1 GET ACTION: S VALUE=$$WP^VPRSDAOR(ORIFN,"STATEMENTS") S:VALUE="" DDEOUT=1 TradeName SEQUENCE: 35 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 52 FIELD NUMBER: 6.5 GET ACTION: S:$S($G(PSTYPE)'="O":1,$G(ORPK)'["R":1,1:0) DDEOUT=1 I '$G(DDEOUT) S IEN=+$G(ORPK) PickupInstructions SEQUENCE: 36 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 52 FIELD NUMBER: 35 GET ACTION: S:$S($G(PSTYPE)'="O":1,$G(ORPK)'["R":1,1:0) DDEOUT=1 I '$G(DDEOUT) S IEN=+$G(ORPK) WasPatientCounseled SEQUENCE: 37 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 52 FIELD NUMBER: 41 OUTPUT TRANSFORM: S VALUE=$S(VALUE:"true",1:"false") GET ACTION: S:$S($G(PSTYPE)'="O":1,$G(ORPK)'["R":1,1:0) DDEOUT=1 I '$G(DDEOUT) S IEN=+$G(ORPK) Remarks SEQUENCE: 38 ITEM TYPE: FIXED STRING GET ACTION: I $G(PSTYPE)="O",$G(ORPK)["R" S VALUE=$G(@VPRX52@(12)) OutpatientSite SEQUENCE: 39 ITEM TYPE: ENTITY FILE NUMBER: 100 ENTITY: VPR CODE TABLE GET ACTION: I $G(PSTYPE)="O",$G(ORPK)["R" S:$G(@VPRX52@(20)) VALUE=@VPRX52@(20)_"^VA59" CopayTransactionType SEQUENCE: 40 ITEM TYPE: FIXED STRING GET ACTION: I $G(PSTYPE)="O",$G(ORPK)["R" S VALUE=$P($G(@VPRX52@(105)),U,2) CMOP SEQUENCE: 41 ITEM TYPE: FIXED STRING GET ACTION: I $G(PSTYPE)="O",$G(ORPK)["R" S VALUE=$$CMOP^VPRSDAP(+ORPK) IsSupply SEQUENCE: 30 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 50.7 FIELD NUMBER: .09 RETURN INTERNAL VALUE: YES GET ACTION: S:$G(PSTYPE)="O" VALUE=$$SUPPLY^VPRSDAP(DIEN),IEN=+$G(PSOI) S:VALUE="" DDEOUT=1 Titration SEQUENCE: 42 ITEM TYPE: FIXED STRING GET ACTION: I $G(PSTYPE)="O" S VALUE=$S($G(ORPK)["R":$$TITRX^PSOUTL(+ORPK),$$VALUE^ORX8(ORIFN,"TITR"):"t",1:"") EBilling SEQUENCE: 43 ITEM TYPE: FIXED STRING GET ACTION: I $G(PSTYPE)="O",$G(ORPK)["R" S VALUE=$$ECME^PSOBPSUT(+ORPK) IsERX SEQUENCE: 44 ITEM TYPE: FIXED STRING GET ACTION: N X S X=+$O(^PS(52.49,"ORN",ORIFN,0)),VALUE=$S(X:"true",1:"false") DiscontinuedBy SEQUENCE: 12 ITEM TYPE: ENTITY FILE NUMBER: 100 FIELD NUMBER: 62 RETURN INTERNAL VALUE: YES ENTITY: VPR PROVIDER GET ACTION: S VALUE=$P($G(OR6),U,2) DiscontinuedReason SEQUENCE: 13 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 100 FIELD NUMBER: 65 GET ACTION: N X S X=$P($G(OR6),U,4),VALUE=$S(X:$$GET1^DIQ(100.03,X,.01),1:$P(OR6,U,5)) S:VALUE="" DDEOUT=1 SignedBy SEQUENCE: 4 ITEM TYPE: ENTITY FILE NUMBER: 100.008 FIELD NUMBER: 5 RETURN INTERNAL VALUE: YES ENTITY: VPR PROVIDER GET ACTION: S VALUE=$P($G(ORSIG),U,2),IEN="1,"_DIEN SignatureStatus SEQUENCE: 3 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 100.008 FIELD NUMBER: 4 GET ACTION: S VALUE=$P($G(ORSIG),U),IEN="1,"_DIEN ReleasedBy SEQUENCE: 2 ITEM TYPE: ENTITY FILE NUMBER: 100.008 FIELD NUMBER: 17 RETURN INTERNAL VALUE: YES ENTITY: VPR USER GET ACTION: S VALUE=$P($G(OR8),U,17),IEN="1,"_DIEN ReplacedOrder SEQUENCE: 8 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 100 FIELD NUMBER: 9 RETURN INTERNAL VALUE: YES GET ACTION: S VALUE=$P($G(OR3),U,5) ReplacementOrder SEQUENCE: 9 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 100 FIELD NUMBER: 9.1 RETURN INTERNAL VALUE: YES GET ACTION: S VALUE=$P($G(OR3),U,6) Routing SEQUENCE: 31 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 100.045 FIELD NUMBER: 1 GET ACTION: S:$G(PSTYPE)="O" VALUE=$$VALUE^ORX8(DIEN,"PICKUP",1,"E") S:VALUE="" DDEOUT=1 PatientClass SEQUENCE: 16 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 100 FIELD NUMBER: 10 RETURN INTERNAL VALUE: YES GET ACTION: S VALUE=$P($G(OR0),U,12) Specialty SEQUENCE: 17 ITEM TYPE: ENTITY FILE NUMBER: 100 FIELD NUMBER: 11 RETURN INTERNAL VALUE: YES ENTITY: VPR SPECIALTY GET ACTION: S VALUE=$P($G(OR0),U,13) OrderEvent SEQUENCE: 18 ITEM TYPE: ENTITY FILE NUMBER: 100 FIELD NUMBER: 15 RETURN INTERNAL VALUE: YES ENTITY: VPR ORDER EVENT GET ACTION: S IEN=$S($G(ORDAD):ORDAD,1:DIEN) VAStartDate SEQUENCE: 19 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 100 OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) GET ACTION: S:$P($G(OR0),U,8) VALUE=$P($G(@VPRPS@(0)),U,5) ;use PS value IsParked SEQUENCE: 45 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 52 OUTPUT TRANSFORM: S VALUE=$S(VALUE:"true",1:"false") GET ACTION: I $G(PSTYPE)="O",$G(ORPK) S VALUE=+$P($G(^PSRX(+ORPK,"PARK")),U) DCEvent SEQUENCE: 14 ITEM TYPE: ENTITY FILE NUMBER: 100 FIELD NUMBER: 68 RETURN INTERNAL VALUE: YES ENTITY: VPR ORDER DC EVENT GET ACTION: S VALUE=$P($G(OR6),U,8) Package SEQUENCE: 20 ITEM TYPE: ENTITY FILE NUMBER: 100 FIELD NUMBER: 12 RETURN INTERNAL VALUE: YES ENTITY: VPR PACKAGE GET ACTION: S VALUE=$P($G(OR0),U,14) IsFlagged SEQUENCE: 46 ITEM TYPE: FIXED STRING GET ACTION: S VALUE=$$FLAGS^VPRSDAOR(ORIFN,.VPRFLAG) Flags SEQUENCE: 47 ITEM TYPE: LIST ENTITY: VPR ORDER FLAG LIST TYPE: ARRAY XML NAME: Flag GET ACTION: M DLIST=VPRFLAG Expires SEQUENCE: 23 ITEM TYPE: FIXED STRING GET ACTION: N X S X=$P($G(@VPRPS@(0)),U,3) S:X VALUE=$$DATE^VPRSDA(X) DaysSupply SEQUENCE: 32 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 100.045 FIELD NUMBER: 1 GET ACTION: S:$G(PSTYPE)="O" VALUE=$S($G(ORPK)["S":$G(@VPRX52P@(101)),1:$P($G(@VPRPS@(0)),U,7)) S:VALUE="" DDEOUT=1 LastFilled SEQUENCE: 33 ITEM TYPE: FIXED STRING GET ACTION: I $G(PSTYPE)="O" N X S X=$P($G(@VPRPS@(0)),U,12) S:X VALUE=$$DATE^VPRSDA(X) Fills SEQUENCE: 34 ITEM TYPE: LIST ENTITY: VPR MED FILL LIST TYPE: ARRAY XML NAME: Fill GET ACTION: I $G(PSTYPE)="O" D GETFILLS^VPRSDAP
DESCRIPTION	This entity extends VPR MEDICATION. It expects the ORDER (#100) ien as the ID, as well as the VPRPS array defined in the ID Action.
GET EXIT ACTION	K:$D(VPRX52) @VPRX52 K:$D(VPRX52P) @VPRX52P K VPRX52,VPRX52P,VPRFLAG
GET ID ACTION	D PSRX^VPRSDAP($G(ORPK))

VPR MED EXTENSION (122) ENTITY (1.5)