Return to DINIT0F2.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

Restructure repository

    1: DINIT0F2	;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="" ^DINIT0F3 S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
    5: 	Q
    6: ENTRY	;
    7: 	;;^DIST(.404,.403011,0)
    8: 	;;=DDGF BLOCK EDIT 1^.4032
    9: 	;;^DIST(.404,.403011,11)
   10: 	;;=I $$GET^DDSVAL(DIE,.DA,3)="d" D UNED^DDSUTL("DISABLE NAVIGATION","DDGF BLOCK EDIT 2","",1)
   11: 	;;^DIST(.404,.403011,40,0)
   12: 	;;=^.4044I^10^8
   13: 	;;^DIST(.404,.403011,40,1,0)
   14: 	;;=1^ Block Properties Stored in FORM File ^1
   15: 	;;^DIST(.404,.403011,40,1,2)
   16: 	;;=^^1,20^1
   17: 	;;^DIST(.404,.403011,40,2,0)
   18: 	;;=3^BLOCK ORDER^3
   19: 	;;^DIST(.404,.403011,40,2,1)
   20: 	;;=1
   21: 	;;^DIST(.404,.403011,40,2,2)
   22: 	;;=3,69^4^3,56
   23: 	;;^DIST(.404,.403011,40,2,4)
   24: 	;;=1
   25: 	;;^DIST(.404,.403011,40,3,0)
   26: 	;;=4^TYPE OF BLOCK^3
   27: 	;;^DIST(.404,.403011,40,3,1)
   28: 	;;=3
   29: 	;;^DIST(.404,.403011,40,3,2)
   30: 	;;=4,18^7^4,3
   31: 	;;^DIST(.404,.403011,40,3,4)
   32: 	;;=1
   33: 	;;^DIST(.404,.403011,40,3,13)
   34: 	;;=D:X="d" PUT^DDSVAL(.404,$$GET^DDSVAL(DIE,.DA,.01),2,"") D UNED^DDSUTL("DISABLE NAVIGATION","DDGF BLOCK EDIT 2","",$E(1,X="d"))
   35: 	;;^DIST(.404,.403011,40,5,0)
   36: 	;;=6^POINTER LINK^3
   37: 	;;^DIST(.404,.403011,40,5,1)
   38: 	;;=4
   39: 	;;^DIST(.404,.403011,40,5,2)
   40: 	;;=6,18^57^6,4
   41: 	;;^DIST(.404,.403011,40,6,0)
   42: 	;;=2^BLOCK NAME^3
   43: 	;;^DIST(.404,.403011,40,6,1)
   44: 	;;=.01
   45: 	;;^DIST(.404,.403011,40,6,2)
   46: 	;;=3,18^30^3,6
   47: 	;;^DIST(.404,.403011,40,8,0)
   48: 	;;=7^PRE ACTION^3
   49: 	;;^DIST(.404,.403011,40,8,1)
   50: 	;;=11
   51: 	;;^DIST(.404,.403011,40,8,2)
   52: 	;;=7,18^57^7,6
   53: 	;;^DIST(.404,.403011,40,9,0)
   54: 	;;=9^POST ACTION^3
   55: 	;;^DIST(.404,.403011,40,9,1)
   56: 	;;=12
   57: 	;;^DIST(.404,.403011,40,9,2)
   58: 	;;=8,18^57^8,5
   59: 	;;^DIST(.404,.403011,40,10,0)
   60: 	;;=5^OTHER PARAMETERS...^2
   61: 	;;^DIST(.404,.403011,40,10,2)
   62: 	;;=4,69^1^4,49^1
   63: 	;;^DIST(.404,.403011,40,10,7)
   64: 	;;=^11
   65: 	;;^DIST(.404,.403011,40,10,20)
   66: 	;;=F^^0:0
   67: 	;;^DIST(.404,.403011,40,10,21,0)
   68: 	;;=^^1^1^2940928^
   69: 	;;^DIST(.404,.403011,40,10,21,1,0)
   70: 	;;=Press <RET> to edit additional properties of the block
   71: 	;;^DIST(.404,.403012,0)
   72: 	;;=DDGF BLOCK EDIT 2^.404
   73: 	;;^DIST(.404,.403012,40,0)
   74: 	;;=^.4044I^7^7
   75: 	;;^DIST(.404,.403012,40,1,0)
   76: 	;;=1^----------------- Block Properties Stored in BLOCK File ------------------^1
   77: 	;;^DIST(.404,.403012,40,1,2)
   78: 	;;=^^1,2^1
   79: 	;;^DIST(.404,.403012,40,2,0)
   80: 	;;=2^NAME^2
   81: 	;;^DIST(.404,.403012,40,2,2)
   82: 	;;=3,16^30^3,10
   83: 	;;^DIST(.404,.403012,40,2,3)
   84: 	;;=!M
   85: 	;;^DIST(.404,.403012,40,2,3.1)
   86: 	;;=S Y=DDGFBKNO
   87: 	;;^DIST(.404,.403012,40,2,20)
   88: 	;;=DD^^.404,.01
   89: 	;;^DIST(.404,.403012,40,2,23)
   90: 	;;=S DDGFBKNN=X
   91: 	;;^DIST(.404,.403012,40,3,0)
   92: 	;;=3^DESCRIPTION (WP)^3
   93: 	;;^DIST(.404,.403012,40,3,1)
   94: 	;;=15
   95: 	;;^DIST(.404,.403012,40,3,2)
   96: 	;;=3,69^1^3,51
   97: 	;;^DIST(.404,.403012,40,4,0)
   98: 	;;=4^DD NUMBER^3
   99: 	;;^DIST(.404,.403012,40,4,1)
  100: 	;;=1
  101: 	;;^DIST(.404,.403012,40,4,2)
  102: 	;;=4,16^16^4,5
  103: 	;;^DIST(.404,.403012,40,5,0)
  104: 	;;=5^DISABLE NAVIGATION^3
  105: 	;;^DIST(.404,.403012,40,5,1)
  106: 	;;=2
  107: 	;;^DIST(.404,.403012,40,5,2)
  108: 	;;=4,69^5^4,49
  109: 	;;^DIST(.404,.403012,40,6,0)
  110: 	;;=6^PRE ACTION^3
  111: 	;;^DIST(.404,.403012,40,6,1)
  112: 	;;=11
  113: 	;;^DIST(.404,.403012,40,6,2)
  114: 	;;=6,16^59^6,4
  115: 	;;^DIST(.404,.403012,40,7,0)
  116: 	;;=7^POST ACTION^3
  117: 	;;^DIST(.404,.403012,40,7,1)
  118: 	;;=12
  119: 	;;^DIST(.404,.403012,40,7,2)
  120: 	;;=7,16^59^7,3
  121: 	;;^DIST(.404,.403013,0)
  122: 	;;=DDGF BLOCK EDIT OTHER^.4032
  123: 	;;^DIST(.404,.403013,11)
  124: 	;;=I $$GET^DDSVAL(DIE,.DA,"REPLICATION")<2 N DDGFZ F DDGFZ="INDEX","INITIAL POSITION","DISALLOW LAYGO","FIELD FOR SELECTION" D UNED^DDSUTL(DDGFZ,"","",1)
  125: 	;;^DIST(.404,.403013,40,0)
  126: 	;;=^.4044I^8^8
  127: 	;;^DIST(.404,.403013,40,1,0)
  128: 	;;=1^ Other Block Parameters ^1
  129: 	;;^DIST(.404,.403013,40,1,2)
  130: 	;;=^^1,16
  131: 	;;^DIST(.404,.403013,40,2,0)
  132: 	;;=2^BLOCK COORDINATE^2
  133: 	;;^DIST(.404,.403013,40,2,2)
  134: 	;;=3,24^7^3,6
  135: 	;;^DIST(.404,.403013,40,2,3)
  136: 	;;=!M
  137: 	;;^DIST(.404,.403013,40,2,3.1)
  138: 	;;=S Y=DDGFBKCO
  139: 	;;^DIST(.404,.403013,40,2,4)
  140: 	;;=1
  141: 	;;^DIST(.404,.403013,40,2,20)
  142: 	;;=DD^^.4032,2
  143: 	;;^DIST(.404,.403013,40,2,23)
  144: 	;;=S DDGFBKCN=X
  145: 	;;^DIST(.404,.403013,40,3,0)
  146: 	;;=3^Parameters for Repeating Blocks^1
  147: 	;;^DIST(.404,.403013,40,3,2)
  148: 	;;=^^5,3
  149: 	;;^DIST(.404,.403013,40,4,0)
  150: 	;;=4^REPLICATION^3
  151: 	;;^DIST(.404,.403013,40,4,1)
  152: 	;;=5
  153: 	;;^DIST(.404,.403013,40,4,2)
  154: 	;;=7,24^3^7,11
  155: 	;;^DIST(.404,.403013,40,4,13)
  156: 	;;=Q:DDSOLD>1&(X>1)  N DDGFZ F DDGFZ="INDEX","INITIAL POSITION","DISALLOW LAYGO","FIELD FOR SELECTION" D UNED^DDSUTL(DDGFZ,"","",X<2) D:X<2 PUT^DDSVAL(DIE,.DA,DDGFZ)
  157: 	;;^DIST(.404,.403013,40,5,0)
  158: 	;;=5^INDEX^3
  159: 	;;^DIST(.404,.403013,40,5,1)
  160: 	;;=6
  161: 	;;^DIST(.404,.403013,40,5,2)
  162: 	;;=8,24^30^8,17
  163: 	;;^DIST(.404,.403013,40,6,0)
  164: 	;;=6^INITIAL POSITION^3
  165: 	;;^DIST(.404,.403013,40,6,1)
  166: 	;;=7
  167: 	;;^DIST(.404,.403013,40,6,2)
  168: 	;;=9,24^5^9,6
  169: 	;;^DIST(.404,.403013,40,7,0)
  170: 	;;=7^DISALLOW LAYGO^3
  171: 	;;^DIST(.404,.403013,40,7,1)
  172: 	;;=8