POST ACTION ON CHANGE: D PUT^DDSVAL(6914,DA,90,"@")
FIELD TYPE: DATA DICTIONARY FIELD
DATA COORDINATE: 2,11
DATA LENGTH: 20
CAPTION COORDINATE: 2,1
FIELD ORDER: 2
CAPTION: NON-SPACE FILE LOCATION
FIELD TYPE: DATA DICTIONARY FIELD
DATA COORDINATE: 2,58
DATA LENGTH: 20
CAPTION COORDINATE: 2,33
FIELD ORDER: 3
CAPTION: IT REMOTE LOCATION (Press Z for zoom editor)
FIELD TYPE: DATA DICTIONARY FIELD
DATA COORDINATE: 5,3
DATA LENGTH: 75
CAPTION COORDINATE: 4,1
FIELD ORDER: 4
CAPTION: CMR
DATA VALIDATION: I X'=DDSOLD S:'X DDSERROR=1 D:'X HLP^DDSUTL("Can't delete CMR.") Q:'X I '$D(^ENG(6914.1,"AIT",1,X)) S DDSERROR=1 D HLP^DDSUTL("New CMR must have IT TRACKING = YES")
FIELD TYPE: DATA DICTIONARY FIELD
DATA COORDINATE: 7,6
DATA LENGTH: 5
CAPTION COORDINATE: 7,1
FIELD ORDER: 5
CAPTION: USING SERVICE
FIELD TYPE: DATA DICTIONARY FIELD
DATA COORDINATE: 7,28
DATA LENGTH: 30
CAPTION COORDINATE: 7,13
FIELD ORDER: 6
CAPTION: UPDATE INVENTORY DATE?
POST ACTION ON CHANGE: I X D PUT^DDSVAL(6914,DA,23,DT,"","I"),PUT^DDSVALF("UPDINVDT","","","")
FIELD TYPE: FORM ONLY
READ TYPE: YES OR NO
HELP:
Enter YES if you want to update Last Inventoried value to today.
UNIQUE NAME: UPDINVDT
DATA COORDINATE: 9,25
DATA LENGTH: 1
CAPTION COORDINATE: 9,1
FIELD ORDER: 7
CAPTION: LAST INVENTORIED(R)
FIELD TYPE: DATA DICTIONARY FIELD
DATA COORDINATE: 9,50
DATA LENGTH: 12
CAPTION COORDINATE: 9,29
DISABLE EDITING: YES
FIELD ORDER: 8
CAPTION: IT COMMENTS (wp)
FIELD TYPE: DATA DICTIONARY FIELD
DATA COORDINATE: 11,19
DATA LENGTH: 1
CAPTION COORDINATE: 11,1
FIELD ORDER: 9
CAPTION: !M
EXECUTABLE CAPTION: N ENWP S ENWP=$$GET^DDSVAL(6914,.DA,92),Y=$S(ENWP]"":$G(@ENWP@(1,0)),1:""),Y=$S(Y]"":"["_$E(Y,1,56)_"]",1:"(empty)")
