Name	Value
NAME	WV PROC-EDITBLK-1
DATA DICTIONARY NUMBER	790.1
PRE ACTION	D:$$COLP^WVUTL4(DA) HLP^DDSUTL(" * Move to PAGE 2 to edit clinical and pathology findings. ")
DESCRIPTION	WV PROCEDURE-EDIT-BLOCK-1
FIELD	FIELD ORDER: 1 CAPTION: Date of Procedure POST ACTION ON CHANGE: N WVX S WVX=$$PDELQ1^WVUTL4(DA,X,DUZ(2)) D PUT^DDSVAL(DIE,DA,.13,WVX) FIELD TYPE: DATA DICTIONARY FIELD DATA COORDINATE: 2,25 DATA LENGTH: 18 CAPTION COORDINATE: 2,6 DEFAULT: T FIELD ORDER: 4 CAPTION: Status FIELD TYPE: DATA DICTIONARY FIELD DATA COORDINATE: 3,68 DATA LENGTH: 6 CAPTION COORDINATE: 3,60 DEFAULT: o FIELD ORDER: 17 CAPTION: !M EXECUTABLE CAPTION: I $$COLP^WVUTL4(DA) S Y="(PAGE 1 OF 2)" FIELD TYPE: CAPTION ONLY CAPTION COORDINATE: 9,65 FIELD ORDER: 13 CAPTION: Sec Results/Diagnosis BRANCHING LOGIC: S:$$PNOCX^WVUTL6($P(^WV(790.1,DA,0),U,4)) DDSBR=14 PRE ACTION: S WVPN=$$GET^DDSVAL(DIE,DA,.04) POST ACTION: K WVPN I X,$P(^WV(790.31,X,0),U,22) D PUT^DDSVAL(DIE,DA,.08,1) FIELD TYPE: DATA DICTIONARY FIELD DATA COORDINATE: 8,25 DATA LENGTH: 30 CAPTION COORDINATE: 8,2 FIELD ORDER: 15 CAPTION: HPV FIELD TYPE: DATA DICTIONARY FIELD DATA COORDINATE: 8,68 DATA LENGTH: 3 CAPTION COORDINATE: 8,63 FIELD ORDER: 7 CAPTION: !M EXECUTABLE CAPTION: N WVROOT S WVROOT=$$GET^DDSVAL(DIE,DA,1.01) I WVROOT]"",$O(@WVROOT@(0)) S Y="+" FIELD TYPE: CAPTION ONLY CAPTION COORDINATE: 4,68 FIELD ORDER: 11 CAPTION: Comments FIELD TYPE: DATA DICTIONARY FIELD DATA COORDINATE: 6,25 DATA LENGTH: 53 CAPTION COORDINATE: 6,15 FIELD ORDER: 10 CAPTION: !M EXECUTABLE CAPTION: S:$O(^WV(790.1,DA,9,0)) Y="+" FIELD TYPE: CAPTION ONLY CAPTION COORDINATE: 5,68 FIELD ORDER: 6 CAPTION: Reports (WP) FIELD TYPE: DATA DICTIONARY FIELD DATA COORDINATE: 4,69 DATA LENGTH: 1 CAPTION COORDINATE: 4,54 DISABLE EDITING: YES FIELD ORDER: 16 CAPTION: Select Follow Up Item FIELD TYPE: DATA DICTIONARY FIELD UNIQUE NAME: ITEMS DATA COORDINATE: 9,25 DATA LENGTH: 35 CAPTION COORDINATE: 9,2 FIELD ORDER: 14 CAPTION: OUTSIDE REPORT FIELD TYPE: DATA DICTIONARY FIELD DATA COORDINATE: 7,68 DATA LENGTH: 5 CAPTION COORDINATE: 7,52 FIELD ORDER: 3 CAPTION: Clinician/Provider FIELD TYPE: DATA DICTIONARY FIELD DATA COORDINATE: 3,25 DATA LENGTH: 25 CAPTION COORDINATE: 3,5 FIELD ORDER: 5 CAPTION: Ward/Clinic/Location POST ACTION ON CHANGE: D PUT^DDSVAL(790.1,.DA,.1,$$INSTIT^WVUTL6) FIELD TYPE: DATA DICTIONARY FIELD DATA COORDINATE: 4,25 DATA LENGTH: 27 CAPTION COORDINATE: 4,3 FIELD ORDER: 8 CAPTION: Health Care Facility FIELD TYPE: DATA DICTIONARY FIELD DATA COORDINATE: 5,25 DATA LENGTH: 28 CAPTION COORDINATE: 5,3 REQUIRED: YES FIELD ORDER: 12 CAPTION: Results/Diagnosis BRANCHING LOGIC: S DDSBR=$S(X:13,1:14) PRE ACTION: S WVPN=$$GET^DDSVAL(DIE,DA,.04) POST ACTION: K WVPN I X,$P(^WV(790.31,X,0),U,22) D PUT^DDSVAL(DIE,DA,.08,1) FIELD TYPE: DATA DICTIONARY FIELD DATA COORDINATE: 7,25 DATA LENGTH: 24 CAPTION COORDINATE: 7,6 FIELD ORDER: 9 CAPTION: Notes (WP) FIELD TYPE: DATA DICTIONARY FIELD DATA COORDINATE: 5,69 DATA LENGTH: 1 CAPTION COORDINATE: 5,56 DISABLE EDITING: NO FIELD ORDER: 2 CAPTION: Complete by (Date) FIELD TYPE: DATA DICTIONARY FIELD DATA COORDINATE: 2,68 DATA LENGTH: 12 CAPTION COORDINATE: 2,48 DEFAULT: !M EXECUTABLE DEFAULT: S Y=$$PDELQ^WVUTL4(DA,DUZ(2))

WV PROC-EDITBLK-1 (250) BLOCK (.404)