WV NOTIF-EDITBLK-2 (255) BLOCK (.404)

Name	Value
NAME	WV NOTIF-EDITBLK-2
DATA DICTIONARY NUMBER	790.4
PRE ACTION	D HLP^DDSUTL("* NOTE: Most fields cannot be edited because the letter has been printed. *")
FIELD	FIELD ORDER: 3 CAPTION: Date of Notification FIELD TYPE: DATA DICTIONARY FIELD DATA COORDINATE: 3,25 DATA LENGTH: 12 CAPTION COORDINATE: 3,3 DEFAULT: T DISABLE EDITING: YES FIELD ORDER: 7 CAPTION: Complete by (Date) FIELD TYPE: DATA DICTIONARY FIELD DATA COORDINATE: 7,29 DATA LENGTH: 12 CAPTION COORDINATE: 7,9 DISABLE EDITING: YES FIELD ORDER: 6.5 CAPTION: Print Date FIELD TYPE: DATA DICTIONARY FIELD DATA COORDINATE: 6,69 DATA LENGTH: 11 CAPTION COORDINATE: 6,57 DISABLE EDITING: YES FIELD ORDER: 7.5 CAPTION: Printed PRE ACTION: W IOINHI POST ACTION: W IOINORM FIELD TYPE: DATA DICTIONARY FIELD DATA COORDINATE: 7,69 DATA LENGTH: 12 CAPTION COORDINATE: 7,60 DISABLE EDITING: YES FIELD ORDER: 3.5 CAPTION: Facility FIELD TYPE: DATA DICTIONARY FIELD DATA COORDINATE: 3,56 DATA LENGTH: 23 CAPTION COORDINATE: 3,46 DISABLE EDITING: YES FIELD ORDER: 10 CAPTION: Who Contacted FIELD TYPE: DATA DICTIONARY FIELD DATA COORDINATE: 9,29 DATA LENGTH: 22 CAPTION COORDINATE: 9,14 FIELD ORDER: 11 CAPTION: Contacted Date FIELD TYPE: DATA DICTIONARY FIELD DATA COORDINATE: 9,69 DATA LENGTH: 11 CAPTION COORDINATE: 9,53 FIELD ORDER: 1 CAPTION: Accession# PRE ACTION: S DIC("S")="I $P(^WV(790.1,Y,0),U,2)=WVDFN" POST ACTION: I X]"" W ?46,IOINORM,"PROCEDURE: ",$$NTPROC^WVUTL1A,IOELEOL FIELD TYPE: DATA DICTIONARY FIELD DATA COORDINATE: 2,15 DATA LENGTH: 12 CAPTION COORDINATE: 2,3 DISABLE EDITING: YES FIELD ORDER: 6 CAPTION: Type of Notification BRANCHING LOGIC: I X S:'$P(^WV(790.403,X,0),U,2) DDSBR=7 POST ACTION ON CHANGE: D PRTDATE^WVUTL2 FIELD TYPE: DATA DICTIONARY FIELD DATA COORDINATE: 6,29 DATA LENGTH: 26 CAPTION COORDINATE: 6,7 DISABLE EDITING: YES FIELD ORDER: 4 CAPTION: Purpose of Notification POST ACTION ON CHANGE: S Y=X W !?18,"PRIORITY: ",$$PRIOR1^WVUTL1A," " S X=$$NDELQ1^WVUTL4 D PUT^DDSVAL(DIE,DA,.13,X) FIELD TYPE: DATA DICTIONARY FIELD DATA COORDINATE: 4,29 DATA LENGTH: 50 CAPTION COORDINATE: 4,4 DISABLE EDITING: YES FIELD ORDER: 8 CAPTION: Outcome POST ACTION: S X=$S(X:"c",1:"o") D PUT^DDSVAL(790.4,DA,.14,X) FIELD TYPE: DATA DICTIONARY FIELD DATA COORDINATE: 8,29 DATA LENGTH: 30 CAPTION COORDINATE: 8,20 FIELD ORDER: 9 CAPTION: Status FIELD TYPE: DATA DICTIONARY FIELD DATA COORDINATE: 8,69 DATA LENGTH: 6 CAPTION COORDINATE: 8,61 FIELD ORDER: 5 CAPTION: !M EXECUTABLE CAPTION: S Y="Priority: "_IOINHI_$$PRIOR^WVUTL1A_IOINORM FIELD TYPE: CAPTION ONLY CAPTION COORDINATE: 5,19 FIELD ORDER: 2 CAPTION: !M EXECUTABLE CAPTION: S Y=IOINORM_"Procedure: "_IOINHI_$$NTPROC^WVUTL1A_IOINORM FIELD TYPE: CAPTION ONLY CAPTION COORDINATE: 2,38 FIELD ORDER: 5.5 CAPTION: Patient Ed FIELD TYPE: DATA DICTIONARY FIELD DATA COORDINATE: 5,69 DATA LENGTH: 7 CAPTION COORDINATE: 5,57