Return to DINIT0F4.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

Restructure repository

    1: DINIT0F4	;SFISC/MKO-FORMS AND BLOCKS FOR FORM EDITOR ;11/23/94  1:24 PM
    2: 	;;21.0;VA FileMan;;Dec 28, 1994
    3: 	;Per VHA Directive 10-93-142, this routine should not be modified.
    4: 	F I=1:2 S X=$T(ENTRY+I) G:X="" ^DINIT0F5 S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
    5: 	Q
    6: ENTRY	;
    7: 	;;^DIST(.404,.403041,40,1,20)
    8: 	;;=P^^DIST(.403,+DDGFFM,40,:QEAMZF
    9: 	;;^DIST(.404,.403041,40,1,23)
   10: 	;;=S DDGFPAGE=X
   11: 	;;^DIST(.404,.403051,0)
   12: 	;;=DDGF FORM EDIT^.403
   13: 	;;^DIST(.404,.403051,40,0)
   14: 	;;=^.4044I^11^11
   15: 	;;^DIST(.404,.403051,40,1,0)
   16: 	;;=1^ Form Properties ^1
   17: 	;;^DIST(.404,.403051,40,1,2)
   18: 	;;=^^1,29
   19: 	;;^DIST(.404,.403051,40,2,0)
   20: 	;;=2^NAME^3
   21: 	;;^DIST(.404,.403051,40,2,1)
   22: 	;;=.01
   23: 	;;^DIST(.404,.403051,40,2,2)
   24: 	;;=3,20^30^3,14
   25: 	;;^DIST(.404,.403051,40,2,4)
   26: 	;;=1
   27: 	;;^DIST(.404,.403051,40,3,0)
   28: 	;;=4^PRE ACTION^3
   29: 	;;^DIST(.404,.403051,40,3,1)
   30: 	;;=11
   31: 	;;^DIST(.404,.403051,40,3,2)
   32: 	;;=6,20^54^6,8
   33: 	;;^DIST(.404,.403051,40,4,0)
   34: 	;;=5^POST ACTION^3
   35: 	;;^DIST(.404,.403051,40,4,1)
   36: 	;;=12
   37: 	;;^DIST(.404,.403051,40,4,2)
   38: 	;;=7,20^54^7,7
   39: 	;;^DIST(.404,.403051,40,5,0)
   40: 	;;=8^DESCRIPTION^3
   41: 	;;^DIST(.404,.403051,40,5,1)
   42: 	;;=15
   43: 	;;^DIST(.404,.403051,40,5,2)
   44: 	;;=11,20^1^11,7
   45: 	;;^DIST(.404,.403051,40,6,0)
   46: 	;;=6^DATA VALIDATION^3
   47: 	;;^DIST(.404,.403051,40,6,1)
   48: 	;;=20
   49: 	;;^DIST(.404,.403051,40,6,2)
   50: 	;;=8,20^54^8,3
   51: 	;;^DIST(.404,.403051,40,7,0)
   52: 	;;=9^RECORD SELECTION PAGE^3
   53: 	;;^DIST(.404,.403051,40,7,1)
   54: 	;;=21
   55: 	;;^DIST(.404,.403051,40,7,2)
   56: 	;;=11,69^5^11,46
   57: 	;;^DIST(.404,.403051,40,8,0)
   58: 	;;=7^POST SAVE^3
   59: 	;;^DIST(.404,.403051,40,8,1)
   60: 	;;=14
   61: 	;;^DIST(.404,.403051,40,8,2)
   62: 	;;=9,20^54^9,9
   63: 	;;^DIST(.404,.403051,40,9,0)
   64: 	;;=3^TITLE^3
   65: 	;;^DIST(.404,.403051,40,9,1)
   66: 	;;=6
   67: 	;;^DIST(.404,.403051,40,9,2)
   68: 	;;=4,20^50^4,13
   69: 	;;^DIST(.404,.403051,40,10,0)
   70: 	;;=10^READ ACCESS^3
   71: 	;;^DIST(.404,.403051,40,10,1)
   72: 	;;=1
   73: 	;;^DIST(.404,.403051,40,10,2)
   74: 	;;=13,20^15^13,7
   75: 	;;^DIST(.404,.403051,40,11,0)
   76: 	;;=11^WRITE ACCESS^3
   77: 	;;^DIST(.404,.403051,40,11,1)
   78: 	;;=2
   79: 	;;^DIST(.404,.403051,40,11,2)
   80: 	;;=14,20^15^14,6
   81: 	;;^DIST(.404,.403061,0)
   82: 	;;=DDGF HEADER BLOCK EDIT^.4031
   83: 	;;^DIST(.404,.403061,40,0)
   84: 	;;=^.4044I^2^2
   85: 	;;^DIST(.404,.403061,40,1,0)
   86: 	;;=2^HEADER BLOCK^3
   87: 	;;^DIST(.404,.403061,40,1,1)
   88: 	;;=1
   89: 	;;^DIST(.404,.403061,40,1,2)
   90: 	;;=3,17^30^3,3
   91: 	;;^DIST(.404,.403061,40,1,13)
   92: 	;;=D:X]"" PUT^DDSVALF("NAME","DDGF BLOCK EDIT 2","",DDSEXT,"I")
   93: 	;;^DIST(.404,.403061,40,1,14)
   94: 	;;=D HBVAL^DDGFU
   95: 	;;^DIST(.404,.403061,40,2,0)
   96: 	;;=1^ Edit Header Block Parameters ^1
   97: 	;;^DIST(.404,.403061,40,2,2)
   98: 	;;=^^1,24
   99: 	;;^DIST(.404,.404011,0)
  100: 	;;=DDGF FIELD ADD
  101: 	;;^DIST(.404,.404011,40,0)
  102: 	;;=^.4044I^3^3
  103: 	;;^DIST(.404,.404011,40,1,0)
  104: 	;;=1^Select BLOCK^2
  105: 	;;^DIST(.404,.404011,40,1,2)
  106: 	;;=1,15^30^1,1
  107: 	;;^DIST(.404,.404011,40,1,3)
  108: 	;;=!M
  109: 	;;^DIST(.404,.404011,40,1,3.1)
  110: 	;;=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:"")
  111: 	;;^DIST(.404,.404011,40,1,13)
  112: 	;;=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)
  113: 	;;^DIST(.404,.404011,40,1,20)
  114: 	;;=P^^DIST(.403,+DDGFFM,40,+DDGFPG,40,:QEAFMZ
  115: 	;;^DIST(.404,.404011,40,1,23)
  116: 	;;=S DDGFBLCK=X
  117: 	;;^DIST(.404,.404011,40,2,0)
  118: 	;;=2^FIELD ORDER^2
  119: 	;;^DIST(.404,.404011,40,2,2)
  120: 	;;=2,15^4^2,2
  121: 	;;^DIST(.404,.404011,40,2,3)
  122: 	;;=!M
  123: 	;;^DIST(.404,.404011,40,2,3.1)
  124: 	;;=N V S V=$$GET^DDSVALF("BLOCK") I V]"" S Y=$O(^DIST(.404,V,40,"B",""),-1)+1\1
  125: 	;;^DIST(.404,.404011,40,2,20)
  126: 	;;=N^^0:99.9:1
  127: 	;;^DIST(.404,.404011,40,2,21,0)
  128: 	;;=^^1^1^2940630^
  129: 	;;^DIST(.404,.404011,40,2,21,1,0)
  130: 	;;=This must be a number not already used
  131: 	;;^DIST(.404,.404011,40,2,22)
  132: 	;;=N V S V=$$GET^DDSVALF("BLOCK") I V]"",$O(^DIST(.404,V,40,"B",X,""))]"" K X
  133: 	;;^DIST(.404,.404011,40,2,23)
  134: 	;;=S DDGFFORD=X
  135: 	;;^DIST(.404,.404011,40,3,0)
  136: 	;;=3^FIELD TYPE^2
  137: 	;;^DIST(.404,.404011,40,3,2)
  138: 	;;=3,15^30^3,3
  139: 	;;^DIST(.404,.404011,40,3,3)
  140: 	;;=DATA DICTIONARY
  141: 	;;^DIST(.404,.404011,40,3,20)
  142: 	;;=DD^^.4044,2
  143: 	;;^DIST(.404,.404011,40,3,23)
  144: 	;;=S DDGFTYPE=X
  145: 	;;^DIST(.404,.404021,0)
  146: 	;;=DDGF FIELD CAPTION ONLY^.4044
  147: 	;;^DIST(.404,.404021,40,0)
  148: 	;;=^.4044I^9^6
  149: 	;;^DIST(.404,.404021,40,1,0)
  150: 	;;=1^ Caption-Only Field Properties ^1
  151: 	;;^DIST(.404,.404021,40,1,2)
  152: 	;;=^^1,22
  153: 	;;^DIST(.404,.404021,40,2,0)
  154: 	;;=2^FIELD ORDER^3
  155: 	;;^DIST(.404,.404021,40,2,1)
  156: 	;;=.01
  157: 	;;^DIST(.404,.404021,40,2,2)
  158: 	;;=3,21^4^3,8
  159: 	;;^DIST(.404,.404021,40,6,0)
  160: 	;;=3^CAPTION^2
  161: 	;;^DIST(.404,.404021,40,6,2)
  162: 	;;=4,21^50^4,12
  163: 	;;^DIST(.404,.404021,40,6,3)
  164: 	;;=!M
  165: 	;;^DIST(.404,.404021,40,6,3.1)
  166: 	;;=S Y=DDGFCAP0
  167: 	;;^DIST(.404,.404021,40,6,4)
  168: 	;;=1