Return to DINIT0F6.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

Restructure repository

    1: DINIT0F6	;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="" ^DINIT0F7 S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
    5: 	Q
    6: ENTRY	;
    7: 	;;^DIST(.404,.404032,40,3,2)
    8: 	;;=4,23^9^4,6
    9: 	;;^DIST(.404,.404032,40,7,0)
   10: 	;;=7^DATA LENGTH^2
   11: 	;;^DIST(.404,.404032,40,7,2)
   12: 	;;=7,23^3^7,10
   13: 	;;^DIST(.404,.404032,40,7,3)
   14: 	;;=!M
   15: 	;;^DIST(.404,.404032,40,7,3.1)
   16: 	;;=S Y=$G(DDGFDL0)
   17: 	;;^DIST(.404,.404032,40,7,4)
   18: 	;;=1
   19: 	;;^DIST(.404,.404032,40,7,20)
   20: 	;;=DD^^.4044,4.2
   21: 	;;^DIST(.404,.404032,40,7,23)
   22: 	;;=S DDGFDL=X
   23: 	;;^DIST(.404,.404032,40,8,0)
   24: 	;;=8^CAPTION COORDINATE^2
   25: 	;;^DIST(.404,.404032,40,8,2)
   26: 	;;=8,23^7^8,3
   27: 	;;^DIST(.404,.404032,40,8,3)
   28: 	;;=!M
   29: 	;;^DIST(.404,.404032,40,8,3.1)
   30: 	;;=S Y=$G(DDGFCC0)
   31: 	;;^DIST(.404,.404032,40,8,20)
   32: 	;;=DD^^.4044,5.1
   33: 	;;^DIST(.404,.404032,40,8,23)
   34: 	;;=S DDGFCC=X
   35: 	;;^DIST(.404,.404032,40,9,0)
   36: 	;;=9^DATA COORDINATE^2
   37: 	;;^DIST(.404,.404032,40,9,2)
   38: 	;;=9,23^7^9,6
   39: 	;;^DIST(.404,.404032,40,9,3)
   40: 	;;=!M
   41: 	;;^DIST(.404,.404032,40,9,3.1)
   42: 	;;=S Y=$G(DDGFDC0)
   43: 	;;^DIST(.404,.404032,40,9,4)
   44: 	;;=1
   45: 	;;^DIST(.404,.404032,40,9,20)
   46: 	;;=DD^^.4044,4.1
   47: 	;;^DIST(.404,.404032,40,9,23)
   48: 	;;=S DDGFDC=X
   49: 	;;^DIST(.404,.404032,40,10,0)
   50: 	;;=10^DATA VALIDATION^3
   51: 	;;^DIST(.404,.404032,40,10,1)
   52: 	;;=14
   53: 	;;^DIST(.404,.404032,40,10,2)
   54: 	;;=11,23^49^11,6
   55: 	;;^DIST(.404,.404032,40,11,0)
   56: 	;;=5^RIGHT JUSTIFY^3
   57: 	;;^DIST(.404,.404032,40,11,1)
   58: 	;;=6.3
   59: 	;;^DIST(.404,.404032,40,11,2)
   60: 	;;=4,52^3^4,37
   61: 	;;^DIST(.404,.404032,40,12,0)
   62: 	;;=6^SUB PAGE LINK^3
   63: 	;;^DIST(.404,.404032,40,12,1)
   64: 	;;=8
   65: 	;;^DIST(.404,.404032,40,12,2)
   66: 	;;=5,23^5^5,8
   67: 	;;^DIST(.404,.404032,40,13,0)
   68: 	;;=3^DISPLAY GROUP^3
   69: 	;;^DIST(.404,.404032,40,13,1)
   70: 	;;=3
   71: 	;;^DIST(.404,.404032,40,13,2)
   72: 	;;=3,52^20^3,37
   73: 	;;^DIST(.404,.404033,0)
   74: 	;;=DDGF FIELD DD OTHER MULTIPLE^.4044
   75: 	;;^DIST(.404,.404033,40,0)
   76: 	;;=^.4044I^11^8
   77: 	;;^DIST(.404,.404033,40,1,0)
   78: 	;;=1^ Other Parameters ^1
   79: 	;;^DIST(.404,.404033,40,1,2)
   80: 	;;=^^1,14^1
   81: 	;;^DIST(.404,.404033,40,2,0)
   82: 	;;=2^SUB PAGE LINK^3
   83: 	;;^DIST(.404,.404033,40,2,1)
   84: 	;;=8
   85: 	;;^DIST(.404,.404033,40,2,2)
   86: 	;;=3,23^3^3,8
   87: 	;;^DIST(.404,.404033,40,3,0)
   88: 	;;=3^DISALLOW LAYGO^3
   89: 	;;^DIST(.404,.404033,40,3,1)
   90: 	;;=6.5
   91: 	;;^DIST(.404,.404033,40,3,2)
   92: 	;;=4,23^3^4,7
   93: 	;;^DIST(.404,.404033,40,7,0)
   94: 	;;=7^CAPTION COORDINATE^2
   95: 	;;^DIST(.404,.404033,40,7,2)
   96: 	;;=10,23^7^10,3
   97: 	;;^DIST(.404,.404033,40,7,3)
   98: 	;;=!M
   99: 	;;^DIST(.404,.404033,40,7,3.1)
  100: 	;;=S Y=$G(DDGFCC0)
  101: 	;;^DIST(.404,.404033,40,7,20)
  102: 	;;=DD^^.4044,5.1
  103: 	;;^DIST(.404,.404033,40,7,23)
  104: 	;;=S DDGFCC=X
  105: 	;;^DIST(.404,.404033,40,8,0)
  106: 	;;=8^DATA COORDINATE^2
  107: 	;;^DIST(.404,.404033,40,8,2)
  108: 	;;=11,23^7^11,6
  109: 	;;^DIST(.404,.404033,40,8,3)
  110: 	;;=!M
  111: 	;;^DIST(.404,.404033,40,8,3.1)
  112: 	;;=S Y=$G(DDGFDC0)
  113: 	;;^DIST(.404,.404033,40,8,4)
  114: 	;;=1
  115: 	;;^DIST(.404,.404033,40,8,20)
  116: 	;;=DD^^.4044,4.1
  117: 	;;^DIST(.404,.404033,40,8,23)
  118: 	;;=S DDGFDC=X
  119: 	;;^DIST(.404,.404033,40,9,0)
  120: 	;;=6^DATA LENGTH^2
  121: 	;;^DIST(.404,.404033,40,9,2)
  122: 	;;=9,23^3^9,10
  123: 	;;^DIST(.404,.404033,40,9,3)
  124: 	;;=!M
  125: 	;;^DIST(.404,.404033,40,9,3.1)
  126: 	;;=S Y=$G(DDGFDL0)
  127: 	;;^DIST(.404,.404033,40,9,4)
  128: 	;;=1
  129: 	;;^DIST(.404,.404033,40,9,20)
  130: 	;;=DD^^.4044,4.2
  131: 	;;^DIST(.404,.404033,40,9,23)
  132: 	;;=S DDGFDL=X
  133: 	;;^DIST(.404,.404033,40,10,0)
  134: 	;;=4^RIGHT JUSTIFY^3
  135: 	;;^DIST(.404,.404033,40,10,1)
  136: 	;;=6.3
  137: 	;;^DIST(.404,.404033,40,10,2)
  138: 	;;=6,23^3^6,8
  139: 	;;^DIST(.404,.404033,40,11,0)
  140: 	;;=5^DISPLAY GROUP^3
  141: 	;;^DIST(.404,.404033,40,11,1)
  142: 	;;=3
  143: 	;;^DIST(.404,.404033,40,11,2)
  144: 	;;=7,23^20^7,8
  145: 	;;^DIST(.404,.404034,0)
  146: 	;;=DDGF FIELD DD OTHER WP^.4044
  147: 	;;^DIST(.404,.404034,40,0)
  148: 	;;=^.4044I^10^7
  149: 	;;^DIST(.404,.404034,40,1,0)
  150: 	;;=1^ Other Parameters ^1
  151: 	;;^DIST(.404,.404034,40,1,2)
  152: 	;;=^^1,14^1
  153: 	;;^DIST(.404,.404034,40,2,0)
  154: 	;;=2^REQUIRED^3
  155: 	;;^DIST(.404,.404034,40,2,1)
  156: 	;;=6.1
  157: 	;;^DIST(.404,.404034,40,2,2)
  158: 	;;=3,23^3^3,13
  159: 	;;^DIST(.404,.404034,40,3,0)
  160: 	;;=3^DISABLE EDITING^3
  161: 	;;^DIST(.404,.404034,40,3,1)
  162: 	;;=6.4
  163: 	;;^DIST(.404,.404034,40,3,2)
  164: 	;;=4,23^3^4,6
  165: 	;;^DIST(.404,.404034,40,3,14)
  166: 	;;=I X=2 D HLP^DDSUTL("Word processing fields are always reachable.  To make the field uneditable, enter 'YES'.") S DDSERROR=1
  167: 	;;^DIST(.404,.404034,40,7,0)
  168: 	;;=4^DISPLAY GROUP^3
  169: 	;;^DIST(.404,.404034,40,7,1)
  170: 	;;=3
  171: 	;;^DIST(.404,.404034,40,7,2)
  172: 	;;=5,23^20^5,8
  173: 	;;^DIST(.404,.404034,40,8,0)
  174: 	;;=5^DATA LENGTH^2
  175: 	;;^DIST(.404,.404034,40,8,2)
  176: 	;;=7,23^3^7,10
  177: 	;;^DIST(.404,.404034,40,8,3)
  178: 	;;=!M
  179: 	;;^DIST(.404,.404034,40,8,3.1)
  180: 	;;=S Y=$G(DDGFDL0)
  181: 	;;^DIST(.404,.404034,40,8,4)
  182: 	;;=1
  183: 	;;^DIST(.404,.404034,40,8,20)
  184: 	;;=DD^^.4044,4.2
  185: 	;;^DIST(.404,.404034,40,8,23)
  186: 	;;=S DDGFDL=X
  187: 	;;^DIST(.404,.404034,40,9,0)
  188: 	;;=6^CAPTION COORDINATE^2
  189: 	;;^DIST(.404,.404034,40,9,2)
  190: 	;;=8,23^7^8,3