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