Return to DINIT0F0.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

Restructure repository

    1: DINIT0F0	;SFISC/MKO-FORMS AND BLOCKS FOR FORM EDITOR ;01:25 PM  23 Nov 1994
    2: 	;;21.0;VA FileMan;;Dec 28, 1994
    3: 	;Per VHA Directive 10-93-142, this routine should not be modified.
    4: 	D PRE^DINIT29P
    5: 	F I=1:2 S X=$T(ENTRY+I) G:X="" ^DINIT0F1 S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
    6: 	Q
    7: ENTRY	;
    8: 	;;^DIST(.403,.40301,0)
    9: 	;;=DDGF BLOCK EDIT^^^0^2930413^2941115.0919^^.403^0^0^1
   10: 	;;^DIST(.403,.40301,40,0)
   11: 	;;=^.4031I^2^2
   12: 	;;^DIST(.403,.40301,40,1,0)
   13: 	;;=1^^1,2^^^1^17,77
   14: 	;;^DIST(.403,.40301,40,1,1)
   15: 	;;=Edit Block Parameters
   16: 	;;^DIST(.403,.40301,40,1,40,0)
   17: 	;;=^.4032PI^.403012^2
   18: 	;;^DIST(.403,.40301,40,1,40,.403011,0)
   19: 	;;=.403011^1^1,1^e
   20: 	;;^DIST(.403,.40301,40,1,40,.403012,0)
   21: 	;;=.403012^2^10,1^e
   22: 	;;^DIST(.403,.40301,40,1,40,.403012,1)
   23: 	;;=PAGE:BLOCK:.01
   24: 	;;^DIST(.403,.40301,40,2,0)
   25: 	;;=11^^5,11^^^1^16,65
   26: 	;;^DIST(.403,.40301,40,2,1)
   27: 	;;=Page 11
   28: 	;;^DIST(.403,.40301,40,2,40,0)
   29: 	;;=^.4032PI^.403013^1
   30: 	;;^DIST(.403,.40301,40,2,40,.403013,0)
   31: 	;;=.403013^1^1,1^e
   32: 	;;^DIST(.403,.40302,0)
   33: 	;;=DDGF PAGE ADD^^^0^2930419^2940908.0956^^.403^0^1^1
   34: 	;;^DIST(.403,.40302,40,0)
   35: 	;;=^.4031I^2^2
   36: 	;;^DIST(.403,.40302,40,1,0)
   37: 	;;=1^^4,18^^^1^8,43
   38: 	;;^DIST(.403,.40302,40,1,1)
   39: 	;;=Add a New Page
   40: 	;;^DIST(.403,.40302,40,1,40,0)
   41: 	;;=^.4032PI^.403021^1
   42: 	;;^DIST(.403,.40302,40,1,40,.403021,0)
   43: 	;;=.403021^1^1,1^e
   44: 	;;^DIST(.403,.40302,40,2,0)
   45: 	;;=11^^4,15^^^1^9,49
   46: 	;;^DIST(.403,.40302,40,2,1)
   47: 	;;=Select New Page Number
   48: 	;;^DIST(.403,.40302,40,2,40,0)
   49: 	;;=^.4032PI^.403022^1
   50: 	;;^DIST(.403,.40302,40,2,40,.403022,0)
   51: 	;;=.403022^1^1,1^e
   52: 	;;^DIST(.403,.40303,0)
   53: 	;;=DDGF PAGE EDIT^^^0^2930419^2941115.0829^^.403^0^0^1
   54: 	;;^DIST(.403,.40303,40,0)
   55: 	;;=^.4031I^1^1
   56: 	;;^DIST(.403,.40303,40,1,0)
   57: 	;;=1^^1,3^^^1^17,77
   58: 	;;^DIST(.403,.40303,40,1,1)
   59: 	;;=Edit a Page
   60: 	;;^DIST(.403,.40303,40,1,40,0)
   61: 	;;=^.4032PI^.403031^1
   62: 	;;^DIST(.403,.40303,40,1,40,.403031,0)
   63: 	;;=.403031^1^1,1^e
   64: 	;;^DIST(.403,.40303,40,1,40,.403031,11)
   65: 	;;=I $$GET^DDSVALF("IS THIS A POP UP PAGE?") N DDGFI F DDGFI="PREVIOUS","NEXT" D UNED^DDSUTL(DDGFI_" PAGE","","",1)
   66: 	;;^DIST(.403,.40304,0)
   67: 	;;=DDGF PAGE SELECT^^^0^2930419^2941122.1340^^.403^0^1^1
   68: 	;;^DIST(.403,.40304,40,0)
   69: 	;;=^.4031I^1^1
   70: 	;;^DIST(.403,.40304,40,1,0)
   71: 	;;=1^^4,10^^^1^8,56
   72: 	;;^DIST(.403,.40304,40,1,1)
   73: 	;;=Select a Page
   74: 	;;^DIST(.403,.40304,40,1,40,0)
   75: 	;;=^.4032PI^.403041^1
   76: 	;;^DIST(.403,.40304,40,1,40,.403041,0)
   77: 	;;=.403041^1^3,3^e
   78: 	;;^DIST(.403,.40305,0)
   79: 	;;=DDGF FORM EDIT^^^0^2930427^2941115.1504^^.403^0^0^1
   80: 	;;^DIST(.403,.40305,40,0)
   81: 	;;=^.4031I^1^1
   82: 	;;^DIST(.403,.40305,40,1,0)
   83: 	;;=1^^1,2^^^1^16,76
   84: 	;;^DIST(.403,.40305,40,1,1)
   85: 	;;=Form Edit
   86: 	;;^DIST(.403,.40305,40,1,40,0)
   87: 	;;=^.4032PI^.403051^1
   88: 	;;^DIST(.403,.40305,40,1,40,.403051,0)
   89: 	;;=.403051^1^1,1^e
   90: 	;;^DIST(.403,.40306,0)
   91: 	;;=DDGF HEADER BLOCK EDIT^^^0^2930504^2941115.0924^^.403^0^0^1
   92: 	;;^DIST(.403,.40306,40,0)
   93: 	;;=^.4031I^1^1
   94: 	;;^DIST(.403,.40306,40,1,0)
   95: 	;;=1^^2,1^^^1^14,76
   96: 	;;^DIST(.403,.40306,40,1,1)
   97: 	;;=Edit/Delete the Header Block
   98: 	;;^DIST(.403,.40306,40,1,40,0)
   99: 	;;=^.4032PI^.403061^2
  100: 	;;^DIST(.403,.40306,40,1,40,.403012,0)
  101: 	;;=.403012^2^5,1^e
  102: 	;;^DIST(.403,.40306,40,1,40,.403012,1)
  103: 	;;=PAGE:1
  104: 	;;^DIST(.403,.40306,40,1,40,.403061,0)
  105: 	;;=.403061^1^1,1^e
  106: 	;;^DIST(.403,.40401,0)
  107: 	;;=DDGF FIELD ADD^^^0^2930331^2941122.1344^^.404^0^1^1
  108: 	;;^DIST(.403,.40401,20)
  109: 	;;=D VAL1^DDGFU
  110: 	;;^DIST(.403,.40401,40,0)
  111: 	;;=^.4031I^1^1
  112: 	;;^DIST(.403,.40401,40,1,0)
  113: 	;;=1^^4,12^^^1^10,59
  114: 	;;^DIST(.403,.40401,40,1,1)
  115: 	;;=New field
  116: 	;;^DIST(.403,.40401,40,1,40,0)
  117: 	;;=^.4032PI^.404011^1
  118: 	;;^DIST(.403,.40401,40,1,40,.404011,0)
  119: 	;;=.404011^1^3,3^e
  120: 	;;^DIST(.403,.40402,0)
  121: 	;;=DDGF FIELD CAPTION ONLY^^^0^2930409^2941123.13^^.404^0^0^1
  122: 	;;^DIST(.403,.40402,40,0)
  123: 	;;=^.4031I^1^1
  124: 	;;^DIST(.403,.40402,40,1,0)
  125: 	;;=1^^1,2^^^1^9,75
  126: 	;;^DIST(.403,.40402,40,1,1)
  127: 	;;=Caption only field
  128: 	;;^DIST(.403,.40402,40,1,40,0)
  129: 	;;=^.4032PI^.404021^1
  130: 	;;^DIST(.403,.40402,40,1,40,.404021,0)
  131: 	;;=.404021^1^1,3^e
  132: 	;;^DIST(.403,.40403,0)
  133: 	;;=DDGF FIELD DD^^^0^2930510^2941123.1313^^.404^0^0^1
  134: 	;;^DIST(.403,.40403,40,0)
  135: 	;;=^.4031I^4^4
  136: 	;;^DIST(.403,.40403,40,1,0)
  137: 	;;=1^^1,1^^^1^16,77
  138: 	;;^DIST(.403,.40403,40,1,1)
  139: 	;;=Page 1
  140: 	;;^DIST(.403,.40403,40,1,40,0)
  141: 	;;=^.4032PI^.404031^1
  142: 	;;^DIST(.403,.40403,40,1,40,.404031,0)
  143: 	;;=.404031^1^1,1^e
  144: 	;;^DIST(.403,.40403,40,2,0)
  145: 	;;=11^^3,3^^^1^15,75
  146: 	;;^DIST(.403,.40403,40,2,1)
  147: 	;;=Single-Valued Field (Other)
  148: 	;;^DIST(.403,.40403,40,2,40,0)
  149: 	;;=^.4032PI^.404032^1
  150: 	;;^DIST(.403,.40403,40,2,40,.404032,0)
  151: 	;;=.404032^1^1,1^e
  152: 	;;^DIST(.403,.40403,40,3,0)
  153: 	;;=21^^3,17^^^1^15,60
  154: 	;;^DIST(.403,.40403,40,3,1)
  155: 	;;=Multiple-Valued Field (Other)
  156: 	;;^DIST(.403,.40403,40,3,40,0)
  157: 	;;=^.4032PI^.404033^1
  158: 	;;^DIST(.403,.40403,40,3,40,.404033,0)
  159: 	;;=.404033^1^1,1^e
  160: 	;;^DIST(.403,.40403,40,4,0)
  161: 	;;=31^^3,17^^^1^13,60