Return to DINIT0F1.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

Restructure repository

    1: DINIT0F1	;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="" ^DINIT0F2 S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
    5: 	Q
    6: ENTRY	;
    7: 	;;^DIST(.403,.40403,40,4,1)
    8: 	;;=Word Processing Field (Other)
    9: 	;;^DIST(.403,.40403,40,4,40,0)
   10: 	;;=^.4032PI^.404034^1
   11: 	;;^DIST(.403,.40403,40,4,40,.404034,0)
   12: 	;;=.404034^1^1,1^e
   13: 	;;^DIST(.403,.40404,0)
   14: 	;;=DDGF FIELD FORM ONLY^^^0^2930510^2941123.1312^^.404^0^0^1
   15: 	;;^DIST(.403,.40404,40,0)
   16: 	;;=^.4031I^3^3
   17: 	;;^DIST(.403,.40404,40,1,0)
   18: 	;;=1^^1,1^^^1^16,77
   19: 	;;^DIST(.403,.40404,40,1,1)
   20: 	;;=Form Only Field
   21: 	;;^DIST(.403,.40404,40,1,40,0)
   22: 	;;=^.4032PI^.404041^1
   23: 	;;^DIST(.403,.40404,40,1,40,.404041,0)
   24: 	;;=.404041^1^1,1^e
   25: 	;;^DIST(.403,.40404,40,2,0)
   26: 	;;=11^^3,3^^^1^15,75
   27: 	;;^DIST(.403,.40404,40,2,1)
   28: 	;;=Other Form Only Field Params
   29: 	;;^DIST(.403,.40404,40,2,40,0)
   30: 	;;=^.4032PI^.404042^1
   31: 	;;^DIST(.403,.40404,40,2,40,.404042,0)
   32: 	;;=.404042^1^1,1^e
   33: 	;;^DIST(.403,.40404,40,3,0)
   34: 	;;=21^^3,3^^^1^15,75
   35: 	;;^DIST(.403,.40404,40,3,1)
   36: 	;;=Other Parameters
   37: 	;;^DIST(.403,.40404,40,3,40,0)
   38: 	;;=^.4032PI^.404032^1
   39: 	;;^DIST(.403,.40404,40,3,40,.404032,0)
   40: 	;;=.404032^1^1,1^e
   41: 	;;^DIST(.403,.40405,0)
   42: 	;;=DDGF FIELD COMPUTED^^^0^2930916^2941123.1311^^.404^0^0^1
   43: 	;;^DIST(.403,.40405,40,0)
   44: 	;;=^.4031I^2^2
   45: 	;;^DIST(.403,.40405,40,1,0)
   46: 	;;=1^^1,2^^^1^12,76
   47: 	;;^DIST(.403,.40405,40,1,1)
   48: 	;;=Computed Field
   49: 	;;^DIST(.403,.40405,40,1,40,0)
   50: 	;;=^.4032PI^.404051^1
   51: 	;;^DIST(.403,.40405,40,1,40,.404051,0)
   52: 	;;=.404051^1^1,1^e
   53: 	;;^DIST(.403,.40405,40,2,0)
   54: 	;;=11^^3,16^^^1^11,63
   55: 	;;^DIST(.403,.40405,40,2,1)
   56: 	;;=Other Parameters
   57: 	;;^DIST(.403,.40405,40,2,40,0)
   58: 	;;=^.4032PI^.404052^1
   59: 	;;^DIST(.403,.40405,40,2,40,.404052,0)
   60: 	;;=.404052^1^1,3^e
   61: 	;;^DIST(.403,.40406,0)
   62: 	;;=DDGF BLOCK ADD^^^0^2930413^2941115.1052^^.404^0^1^1
   63: 	;;^DIST(.403,.40406,40,0)
   64: 	;;=^.4031I^3^3
   65: 	;;^DIST(.403,.40406,40,1,0)
   66: 	;;=1^^3,9^^^1^7,65
   67: 	;;^DIST(.403,.40406,40,1,1)
   68: 	;;=Add a New Block
   69: 	;;^DIST(.403,.40406,40,1,40,0)
   70: 	;;=^.4032PI^.404061^1
   71: 	;;^DIST(.403,.40406,40,1,40,.404061,0)
   72: 	;;=.404061^1^1,1^e
   73: 	;;^DIST(.403,.40406,40,2,0)
   74: 	;;=11^^6,12^^^1^11,61
   75: 	;;^DIST(.403,.40406,40,2,1)
   76: 	;;=Add a New Block to Page
   77: 	;;^DIST(.403,.40406,40,2,40,0)
   78: 	;;=^.4032PI^.404062^1
   79: 	;;^DIST(.403,.40406,40,2,40,.404062,0)
   80: 	;;=.404062^1^1,1^e
   81: 	;;^DIST(.403,.40406,40,3,0)
   82: 	;;=21^^6,17^^^1^13,57
   83: 	;;^DIST(.403,.40406,40,3,1)
   84: 	;;=Duplicate Block Message
   85: 	;;^DIST(.403,.40406,40,3,40,0)
   86: 	;;=^.4032PI^.404063^1
   87: 	;;^DIST(.403,.40406,40,3,40,.404063,0)
   88: 	;;=.404063^1^1,1^e
   89: 	;;^DIST(.403,.40407,0)
   90: 	;;=DDGF BLOCK DELETE^^^0^2930809^2940628^^.404^0^1^1
   91: 	;;^DIST(.403,.40407,40,0)
   92: 	;;=^.4031I^1^1
   93: 	;;^DIST(.403,.40407,40,1,0)
   94: 	;;=1^^5,9^^^1^11,62
   95: 	;;^DIST(.403,.40407,40,1,1)
   96: 	;;=Page 1
   97: 	;;^DIST(.403,.40407,40,1,40,0)
   98: 	;;=^.4032PI^.404071^1
   99: 	;;^DIST(.403,.40407,40,1,40,.404071,0)
  100: 	;;=.404071^1^3,3^e
  101: 	;;^DIST(.403,.40408,0)
  102: 	;;=DDGF HEADER BLOCK SELECT^^^0^2930504^2940928.1204^^.404^0^1^1
  103: 	;;^DIST(.403,.40408,40,0)
  104: 	;;=^.4031I^1^1
  105: 	;;^DIST(.403,.40408,40,1,0)
  106: 	;;=1^^4,5^^^1^8,68
  107: 	;;^DIST(.403,.40408,40,1,1)
  108: 	;;=Add a New Header Block
  109: 	;;^DIST(.403,.40408,40,1,40,0)
  110: 	;;=^.4032PI^.404081^1
  111: 	;;^DIST(.403,.40408,40,1,40,.404081,0)
  112: 	;;=.404081^1^1,1^e