Return to DINIT0F8.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

Restructure repository

    1: DINIT0F8	;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="" ^DINIT0F9 S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
    5: 	Q
    6: ENTRY	;
    7: 	;;^DIST(.404,.404042,40,6,1)
    8: 	;;=21
    9: 	;;^DIST(.404,.404042,40,6,2)
   10: 	;;=7,20^1^7,9
   11: 	;;^DIST(.404,.404042,40,8,0)
   12: 	;;=7^SCREEN^3
   13: 	;;^DIST(.404,.404042,40,8,1)
   14: 	;;=24
   15: 	;;^DIST(.404,.404042,40,8,2)
   16: 	;;=10,20^52^10,12
   17: 	;;^DIST(.404,.404042,40,9,0)
   18: 	;;=8^SAVE CODE^3
   19: 	;;^DIST(.404,.404042,40,9,1)
   20: 	;;=23
   21: 	;;^DIST(.404,.404042,40,9,2)
   22: 	;;=11,20^52^11,9
   23: 	;;^DIST(.404,.404051,0)
   24: 	;;=DDGF FIELD COMPUTED^.4044
   25: 	;;^DIST(.404,.404051,40,0)
   26: 	;;=^.4044I^8^8
   27: 	;;^DIST(.404,.404051,40,1,0)
   28: 	;;=1^ Computed Field Properties ^1
   29: 	;;^DIST(.404,.404051,40,1,2)
   30: 	;;=^^1,26
   31: 	;;^DIST(.404,.404051,40,2,0)
   32: 	;;=2^FIELD ORDER^3
   33: 	;;^DIST(.404,.404051,40,2,1)
   34: 	;;=.01
   35: 	;;^DIST(.404,.404051,40,2,2)
   36: 	;;=3,24^4^3,11
   37: 	;;^DIST(.404,.404051,40,3,0)
   38: 	;;=3^OTHER PARAMETERS...^2
   39: 	;;^DIST(.404,.404051,40,3,2)
   40: 	;;=4,24^1^4,4^1
   41: 	;;^DIST(.404,.404051,40,3,7)
   42: 	;;=^11
   43: 	;;^DIST(.404,.404051,40,3,20)
   44: 	;;=F^^1:1
   45: 	;;^DIST(.404,.404051,40,3,21,0)
   46: 	;;=^^1^1^2930916^
   47: 	;;^DIST(.404,.404051,40,3,21,1,0)
   48: 	;;=Press 'RETURN' to edit additional properties of this Data Dictionary field
   49: 	;;^DIST(.404,.404051,40,4,0)
   50: 	;;=4^SUPPRESS COLON AFTER CAPTION?^2
   51: 	;;^DIST(.404,.404051,40,4,2)
   52: 	;;=4,71^3^4,41^1
   53: 	;;^DIST(.404,.404051,40,4,3)
   54: 	;;=!M
   55: 	;;^DIST(.404,.404051,40,4,3.1)
   56: 	;;=S Y=DDGFSUP0
   57: 	;;^DIST(.404,.404051,40,4,20)
   58: 	;;=DD^^.4044,5.2
   59: 	;;^DIST(.404,.404051,40,4,23)
   60: 	;;=S DDGFSUP=X
   61: 	;;^DIST(.404,.404051,40,5,0)
   62: 	;;=5^UNIQUE NAME^3
   63: 	;;^DIST(.404,.404051,40,5,1)
   64: 	;;=3.1
   65: 	;;^DIST(.404,.404051,40,5,2)
   66: 	;;=5,24^50^5,11
   67: 	;;^DIST(.404,.404051,40,6,0)
   68: 	;;=6^CAPTION^2
   69: 	;;^DIST(.404,.404051,40,6,2)
   70: 	;;=7,24^50^7,15
   71: 	;;^DIST(.404,.404051,40,6,3)
   72: 	;;=!M
   73: 	;;^DIST(.404,.404051,40,6,3.1)
   74: 	;;=S Y=DDGFCAP0
   75: 	;;^DIST(.404,.404051,40,6,13)
   76: 	;;=D COMPCAP^DDGFU
   77: 	;;^DIST(.404,.404051,40,6,20)
   78: 	;;=DD^^.4044,1
   79: 	;;^DIST(.404,.404051,40,6,23)
   80: 	;;=S DDGFCAP=X
   81: 	;;^DIST(.404,.404051,40,7,0)
   82: 	;;=7^EXECUTABLE CAPTION^3
   83: 	;;^DIST(.404,.404051,40,7,1)
   84: 	;;=1.1
   85: 	;;^DIST(.404,.404051,40,7,2)
   86: 	;;=8,24^50^8,4
   87: 	;;^DIST(.404,.404051,40,7,13)
   88: 	;;=D PUT^DDSVALF("CAPTION","","",$S(X="":"",1:"!M"))
   89: 	;;^DIST(.404,.404051,40,8,0)
   90: 	;;=8^COMPUTED EXPRESSION^3
   91: 	;;^DIST(.404,.404051,40,8,1)
   92: 	;;=30
   93: 	;;^DIST(.404,.404051,40,8,2)
   94: 	;;=10,24^50^10,3
   95: 	;;^DIST(.404,.404051,40,8,4)
   96: 	;;=1
   97: 	;;^DIST(.404,.404052,0)
   98: 	;;=DDGF FIELD COMPUTED OTHER^.4044
   99: 	;;^DIST(.404,.404052,40,0)
  100: 	;;=^.4044I^8^5
  101: 	;;^DIST(.404,.404052,40,1,0)
  102: 	;;=1^ Other Computed Field Properties ^1
  103: 	;;^DIST(.404,.404052,40,1,2)
  104: 	;;=^^1,6
  105: 	;;^DIST(.404,.404052,40,5,0)
  106: 	;;=3^DATA LENGTH^2
  107: 	;;^DIST(.404,.404052,40,5,2)
  108: 	;;=5,25^3^5,12
  109: 	;;^DIST(.404,.404052,40,5,3)
  110: 	;;=!M
  111: 	;;^DIST(.404,.404052,40,5,3.1)
  112: 	;;=S Y=$G(DDGFDL0)
  113: 	;;^DIST(.404,.404052,40,5,20)
  114: 	;;=DD^^.4044,4.2
  115: 	;;^DIST(.404,.404052,40,5,23)
  116: 	;;=S DDGFDL=X
  117: 	;;^DIST(.404,.404052,40,6,0)
  118: 	;;=4^CAPTION COORDINATE^2
  119: 	;;^DIST(.404,.404052,40,6,2)
  120: 	;;=6,25^7^6,5
  121: 	;;^DIST(.404,.404052,40,6,3)
  122: 	;;=!M
  123: 	;;^DIST(.404,.404052,40,6,3.1)
  124: 	;;=S Y=$G(DDGFCC0)
  125: 	;;^DIST(.404,.404052,40,6,20)
  126: 	;;=DD^^.4044,5.1
  127: 	;;^DIST(.404,.404052,40,6,23)
  128: 	;;=S DDGFCC=X
  129: 	;;^DIST(.404,.404052,40,7,0)
  130: 	;;=5^DATA COORDINATE^2
  131: 	;;^DIST(.404,.404052,40,7,2)
  132: 	;;=7,25^7^7,8
  133: 	;;^DIST(.404,.404052,40,7,3)
  134: 	;;=!M
  135: 	;;^DIST(.404,.404052,40,7,3.1)
  136: 	;;=S Y=$G(DDGFDC0)
  137: 	;;^DIST(.404,.404052,40,7,20)
  138: 	;;=DD^^.4044,4.1
  139: 	;;^DIST(.404,.404052,40,7,23)
  140: 	;;=S DDGFDC=X
  141: 	;;^DIST(.404,.404052,40,8,0)
  142: 	;;=2^RIGHT JUSTIFY^3
  143: 	;;^DIST(.404,.404052,40,8,1)
  144: 	;;=6.3
  145: 	;;^DIST(.404,.404052,40,8,2)
  146: 	;;=3,25^3^3,10
  147: 	;;^DIST(.404,.404061,0)
  148: 	;;=DDGF BLOCK ADD
  149: 	;;^DIST(.404,.404061,40,0)
  150: 	;;=^.4044I^1^1
  151: 	;;^DIST(.404,.404061,40,1,0)
  152: 	;;=1^Select NEW BLOCK NAME^2
  153: 	;;^DIST(.404,.404061,40,1,2)
  154: 	;;=3,26^30^3,3
  155: 	;;^DIST(.404,.404061,40,1,12)
  156: 	;;=S DDACT="EX"
  157: 	;;^DIST(.404,.404061,40,1,20)
  158: 	;;=P^^DIST(.404,:QEALMZF
  159: 	;;^DIST(.404,.404061,40,1,23)
  160: 	;;=S DDGFBNUM=X,DDGFBNAM=DDSEXT
  161: 	;;^DIST(.404,.404061,40,1,24)
  162: 	;;=S DIR("S")="I Y'<1"
  163: 	;;^DIST(.404,.404062,0)
  164: 	;;=DDGF BLOCK ADD NEW
  165: 	;;^DIST(.404,.404062,40,0)
  166: 	;;=^.4044I^2^2
  167: 	;;^DIST(.404,.404062,40,1,0)
  168: 	;;=1^!M^1
  169: 	;;^DIST(.404,.404062,40,1,.1)
  170: 	;;=S Y="Are you adding "_DDGFBNAM
  171: 	;;^DIST(.404,.404062,40,1,2)
  172: 	;;=^^3,3
  173: 	;;^DIST(.404,.404062,40,2,0)
  174: 	;;=2^as a new block on this page?^2
  175: 	;;^DIST(.404,.404062,40,2,2)
  176: 	;;=4,32^3^4,3^1
  177: 	;;^DIST(.404,.404062,40,2,12)
  178: 	;;=S DDACT="EX"
  179: 	;;^DIST(.404,.404062,40,2,20)
  180: 	;;=Y
  181: 	;;^DIST(.404,.404062,40,2,23)
  182: 	;;=S DDGFANS=X
  183: 	;;^DIST(.404,.404063,0)
  184: 	;;=DDGF BLOCK ADD DUPLICATE
  185: 	;;^DIST(.404,.404063,40,0)
  186: 	;;=^.4044I^3^3