VPR SURGERY EXTENSION (119) ENTITY (1.5)

Name	Value
NAME	VPR SURGERY EXTENSION
DEFAULT FILE NUMBER	130
DATA MODEL	SDA
DISPLAY NAME	ProcedureExtension
ITEM	Category SEQUENCE: 1 ITEM TYPE: FIXED STRING FIXED RESPONSE: SR SecondaryVisit SEQUENCE: 13 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 130 FIELD NUMBER: .015 RETURN INTERNAL VALUE: YES IsNonOR SEQUENCE: 14 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 130 FIELD NUMBER: 118 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$S(VALUE:"true",VALUE="Y":"true",1:"false") GET ACTION: S VALUE=$G(VPRNONOR) Specialty SEQUENCE: 15 ITEM TYPE: ENTITY FILE NUMBER: 130 FIELD NUMBER: .04 EXTENDED POINTER LKUP: 1 RETURN INTERNAL VALUE: YES ENTITY: VPR SURG SPECIALTY GET ACTION: S:$G(VPRNONOR) DDEOUT=1 I '$G(DDEOUT) S DATA=$$GET1^DIQ(130,DIEN,.04) AttendingClinician SEQUENCE: 16 ITEM TYPE: ENTITY FILE NUMBER: 130 FIELD NUMBER: .164 RETURN INTERNAL VALUE: YES ENTITY: VPR PROVIDER GET ACTION: S:$G(VPRNONOR) DDEOUT=1 Specialty SEQUENCE: 15.1 ITEM TYPE: ENTITY FILE NUMBER: 130 FIELD NUMBER: 125 RETURN INTERNAL VALUE: YES ENTITY: VPR MED SPECIALTY GET ACTION: S:'$G(VPRNONOR) DDEOUT=1 AttendingClinician SEQUENCE: 16.1 ITEM TYPE: ENTITY FILE NUMBER: 130 FIELD NUMBER: 124 RETURN INTERNAL VALUE: YES ENTITY: VPR PROVIDER GET ACTION: S:'$G(VPRNONOR) DDEOUT=1 DictatedOn SEQUENCE: 17 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 130 FIELD NUMBER: 15 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) TranscribedOn SEQUENCE: 18 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 130 FIELD NUMBER: 39 RETURN INTERNAL VALUE: YES OUTPUT TRANSFORM: S VALUE=$$DATE^VPRSDA(VALUE) Status SEQUENCE: 7 ITEM TYPE: FIXED STRING GET ACTION: S VALUE=$S($P(VPRSR(DIEN),U,2)["Aborted":"ABORTED",$P(VPRSR(DIEN),U,2)="":"",1:"COMPLETED") DocumentNumbers SEQUENCE: 12 ITEM TYPE: LIST LIST TYPE: ARRAY XML NAME: DocumentNumbersItem GET ACTION: D RPTS^VPRSDASR(DIEN) CptModifiers SEQUENCE: 10 ITEM TYPE: LIST FILE NUMBER: 136 FIELD NUMBER: 1 ENTITY: VPR CPT MODIFIER LIST TYPE: ARRAY XML NAME: CptModifier GET ACTION: N I S I=0 F S I=$O(^SRO(136,DIEN,1,I)) Q:I<1 S DLIST(I)=+$G(^(I,0)) CPTs SEQUENCE: 11 ITEM TYPE: LIST FILE NUMBER: 136 FIELD NUMBER: 3 ENTITY: VPR CPT LIST TYPE: ARRAY XML NAME: CPT GET ACTION: N I S I=0 F S I=$O(^SRO(136,DIEN,3,I)) Q:I<1 S DLIST(I)=+$G(^(I,0)) Location SEQUENCE: 5 ITEM TYPE: ENTITY FILE NUMBER: 8925 FIELD NUMBER: 1211 RETURN INTERNAL VALUE: YES ENTITY: VPR LOCATION GET ACTION: N I S I=+$O(VPRSR(DIEN,0)),IEN=+$G(VPRSR(DIEN,I)) S:IEN<1 DDEOUT=1 ;use 1st report OrderNumber SEQUENCE: 6 ITEM TYPE: SIMPLE FIELD FILE NUMBER: 130 FIELD NUMBER: 100 RETURN INTERNAL VALUE: YES DataSource SEQUENCE: 8 ITEM TYPE: FIXED STRING FIXED RESPONSE: SURGERY DATA Package SEQUENCE: 9 ITEM TYPE: ENTITY FILE NUMBER: 130 ENTITY: VPR PACKAGE GET ACTION: S VALUE=+$O(^DIC(9.4,"C","SR",0)) S:VALUE<1 DDEOUT=1
DESCRIPTION	This entity extends VPR SURGERY; it expects the VPRSR array. CPT codes are extracted from the SURGERY PROCEDURE/DIAGNOSIS CODES (#136) file, which is DINUM'd to the SURGERY (#130) file.
GET ENTRY ACTION	S VPRDT=$P(VPRSR(DIEN),U,3)
GET EXIT ACTION	K VPRDT