DDGF FIELD ADD (.404011) BLOCK (.404)

Name

Value

NAME

DDGF FIELD ADD

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