| FIELD |
-
- FIELD ORDER: 1
- CAPTION: Select BLOCK
- POST ACTION ON CHANGE: I X]"" D PUT^DDSVALF("FIELD ORDER","","",$O(^DIST(.404,X,40,"B",""),-1)+1\1) D:$D(DUZ)#2 RECALL^DILFD(.4032,X_","_+DDGFPG_","_+DDGFFM_",",DUZ),RECALL^DILFD(.404,X_",",DUZ)
- FIELD TYPE: FORM ONLY
- READ TYPE: POINTER
- QUALIFIERS: DIST(.403,+DDGFFM,40,+DDGFPG,40,:QEAFMZ
- SAVE CODE: S DDGFBLCK=X
- DATA COORDINATE: 1,15
- DATA LENGTH: 30
- CAPTION COORDINATE: 1,1
- DEFAULT: !M
- EXECUTABLE DEFAULT: N X,DA,DIC S DA(2)=+DDGFFM,DA(1)=+DDGFPG,X=" ",DIC="^DIST(.403,"_DA(2)_",""40"","_DA(1)_",""40"",",DIC(0)="M" D ^DIC S Y=$S(Y=-1:"",1:"`"_+Y) I Y="",$P($G(^DIST(.403,+DDGFFM,40,+DDGFPG,40,0)),U,4)=1 S Y=+$O(^(0)),Y=$S(Y:"`"_Y,1:"")
-
- FIELD ORDER: 2
- CAPTION: FIELD ORDER
- FIELD TYPE: FORM ONLY
- READ TYPE: NUMERIC
- QUALIFIERS: 0:99.9:1
- HELP:
This must be a number not already used
- INPUT TRANSFORM: N V S V=$$GET^DDSVALF("BLOCK") I V]"",$O(^DIST(.404,V,40,"B",X,""))]"" K X
- SAVE CODE: S DDGFFORD=X
- DATA COORDINATE: 2,15
- DATA LENGTH: 4
- CAPTION COORDINATE: 2,2
- DEFAULT: !M
- EXECUTABLE DEFAULT: N V S V=$$GET^DDSVALF("BLOCK") I V]"" S Y=$O(^DIST(.404,V,40,"B",""),-1)+1\1
-
- FIELD ORDER: 3
- CAPTION: FIELD TYPE
- FIELD TYPE: FORM ONLY
- READ TYPE: DATA DICTIONARY
- QUALIFIERS: .4044,2
- SAVE CODE: S DDGFTYPE=X
- DATA COORDINATE: 3,15
- DATA LENGTH: 30
- CAPTION COORDINATE: 3,3
- DEFAULT: DATA DICTIONARY
|
