DDGF BLOCK EDIT OTHER (.403013) BLOCK (.404)

Name	Value
NAME	DDGF BLOCK EDIT OTHER
DATA DICTIONARY NUMBER	.4032
PRE ACTION	I $$GET^DDSVAL(DIE,.DA,"REPLICATION")<2 N DDGFZ F DDGFZ="INDEX","INITIAL POSITION","DISALLOW LAYGO","FIELD FOR SELECTION","ASK 'OK'","COMPUTED MULTIPLE","COMPUTED MUL PTR" D UNED^DDSUTL(DDGFZ,"","",1)
FIELD	FIELD ORDER: 1 CAPTION: Other Block Parameters FIELD TYPE: CAPTION ONLY CAPTION COORDINATE: 1,16 FIELD ORDER: 2 CAPTION: BLOCK COORDINATE FIELD TYPE: FORM ONLY READ TYPE: DATA DICTIONARY QUALIFIERS: .4032,2 SAVE CODE: S DDGFBKCN=X DATA COORDINATE: 3,24 DATA LENGTH: 7 CAPTION COORDINATE: 3,6 DEFAULT: !M EXECUTABLE DEFAULT: S Y=DDGFBKCO FIELD ORDER: 3 CAPTION: Parameters for Repeating Blocks FIELD TYPE: CAPTION ONLY CAPTION COORDINATE: 5,3 FIELD ORDER: 4 CAPTION: REPLICATION POST ACTION ON CHANGE: Q:DDSOLD>1&(X>1) N DDGFZ F DDGFZ="INDEX","INITIAL POSITION","DISALLOW LAYGO","FIELD FOR SELECTION","ASK 'OK'","COMPUTED MULTIPLE","COMPUTED MUL PTR" D UNED^DDSUTL(DDGFZ,"","",X<2) D:X<2 PUT^DDSVAL(DIE,.DA,DDGFZ) FIELD TYPE: DATA DICTIONARY FIELD DATA COORDINATE: 6,24 DATA LENGTH: 3 CAPTION COORDINATE: 6,11 FIELD ORDER: 5 CAPTION: INDEX POST ACTION ON CHANGE: Q:X="" N DDGFZ F DDGFZ="COMPUTED MULTIPLE","COMPUTED MUL PTR" D UNED^DDSUTL(DDGFZ,"","",X<2) D:X<2 PUT^DDSVAL(DIE,.DA,DDGFZ) ;IF THERE'S AN INDEX, COMPUTED MULTIPLE NOT ENTERABLE FIELD TYPE: DATA DICTIONARY FIELD DATA COORDINATE: 7,24 DATA LENGTH: 30 CAPTION COORDINATE: 7,17 FIELD ORDER: 6 CAPTION: INITIAL POSITION FIELD TYPE: DATA DICTIONARY FIELD DATA COORDINATE: 8,24 DATA LENGTH: 15 CAPTION COORDINATE: 8,6 FIELD ORDER: 7 CAPTION: DISALLOW LAYGO FIELD TYPE: DATA DICTIONARY FIELD DATA COORDINATE: 9,24 DATA LENGTH: 3 CAPTION COORDINATE: 9,8 FIELD ORDER: 8 CAPTION: FIELD FOR SELECTION FIELD TYPE: DATA DICTIONARY FIELD DATA COORDINATE: 10,24 DATA LENGTH: 30 CAPTION COORDINATE: 10,3 FIELD ORDER: 9 CAPTION: ASK 'OK' FIELD TYPE: DATA DICTIONARY FIELD DATA COORDINATE: 11,24 DATA LENGTH: 3 CAPTION COORDINATE: 11,14 FIELD ORDER: 98 CAPTION: COMPUTED MULTIPLE POST ACTION ON CHANGE: D PUT^DDSVAL(DIE,.DA,"INDEX") FIELD TYPE: DATA DICTIONARY FIELD DATA COORDINATE: 12,24 DATA LENGTH: 30 CAPTION COORDINATE: 12,5 FIELD ORDER: 98.1 CAPTION: COMPUTED MUL PTR FIELD TYPE: DATA DICTIONARY FIELD DATA COORDINATE: 13,24 DATA LENGTH: 18 CAPTION COORDINATE: 13,6