| 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))
|
