Return to DINIT0F3.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

Restructure repository

    1: DINIT0F3	;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="" ^DINIT0F4 S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y
    5: 	Q
    6: ENTRY	;
    7: 	;;^DIST(.404,.403013,40,7,2)
    8: 	;;=10,24^3^10,8
    9: 	;;^DIST(.404,.403013,40,8,0)
   10: 	;;=8^FIELD FOR SELECTION^3
   11: 	;;^DIST(.404,.403013,40,8,1)
   12: 	;;=9
   13: 	;;^DIST(.404,.403013,40,8,2)
   14: 	;;=11,24^30^11,3
   15: 	;;^DIST(.404,.403021,0)
   16: 	;;=DDGF PAGE ADD^.4031
   17: 	;;^DIST(.404,.403021,40,0)
   18: 	;;=^.4044I^1^1
   19: 	;;^DIST(.404,.403021,40,1,0)
   20: 	;;=1^NEW PAGE NUMBER^2
   21: 	;;^DIST(.404,.403021,40,1,2)
   22: 	;;=3,20^5^3,3
   23: 	;;^DIST(.404,.403021,40,1,12)
   24: 	;;=S DDACT="EX"
   25: 	;;^DIST(.404,.403021,40,1,20)
   26: 	;;=DD^^.4031,.01
   27: 	;;^DIST(.404,.403021,40,1,23)
   28: 	;;=S DDGFPNUM=X
   29: 	;;^DIST(.404,.403022,0)
   30: 	;;=DDGF PAGE ADD ARE YOU SURE^.4031
   31: 	;;^DIST(.404,.403022,40,0)
   32: 	;;=^.4044I^2^2
   33: 	;;^DIST(.404,.403022,40,1,0)
   34: 	;;=1^!M^1
   35: 	;;^DIST(.404,.403022,40,1,.1)
   36: 	;;=S Y="Are you adding Page "_DDGFPNUM
   37: 	;;^DIST(.404,.403022,40,1,2)
   38: 	;;=^^3,3
   39: 	;;^DIST(.404,.403022,40,2,0)
   40: 	;;=2^as a new page on this form?^2
   41: 	;;^DIST(.404,.403022,40,2,2)
   42: 	;;=4,31^3^4,3^1
   43: 	;;^DIST(.404,.403022,40,2,12)
   44: 	;;=S DDACT="EX"
   45: 	;;^DIST(.404,.403022,40,2,20)
   46: 	;;=Y
   47: 	;;^DIST(.404,.403022,40,2,23)
   48: 	;;=S DDGFANS=X
   49: 	;;^DIST(.404,.403031,0)
   50: 	;;=DDGF PAGE EDIT^.4031
   51: 	;;^DIST(.404,.403031,40,0)
   52: 	;;=^.4044I^16^13
   53: 	;;^DIST(.404,.403031,40,1,0)
   54: 	;;=1^ Page Properties ^1
   55: 	;;^DIST(.404,.403031,40,1,2)
   56: 	;;=^^1,27
   57: 	;;^DIST(.404,.403031,40,2,0)
   58: 	;;=2^PAGE NUMBER^3
   59: 	;;^DIST(.404,.403031,40,2,1)
   60: 	;;=.01
   61: 	;;^DIST(.404,.403031,40,2,2)
   62: 	;;=3,21^5^3,8
   63: 	;;^DIST(.404,.403031,40,4,0)
   64: 	;;=4^HEADER BLOCK^3
   65: 	;;^DIST(.404,.403031,40,4,1)
   66: 	;;=1
   67: 	;;^DIST(.404,.403031,40,4,2)
   68: 	;;=5,21^30^5,7
   69: 	;;^DIST(.404,.403031,40,5,0)
   70: 	;;=8^NEXT PAGE^3
   71: 	;;^DIST(.404,.403031,40,5,1)
   72: 	;;=3
   73: 	;;^DIST(.404,.403031,40,5,2)
   74: 	;;=9,21^5^9,10
   75: 	;;^DIST(.404,.403031,40,6,0)
   76: 	;;=9^PREVIOUS PAGE^3
   77: 	;;^DIST(.404,.403031,40,6,1)
   78: 	;;=4
   79: 	;;^DIST(.404,.403031,40,6,2)
   80: 	;;=10,21^5^10,6
   81: 	;;^DIST(.404,.403031,40,7,0)
   82: 	;;=12^PRE ACTION^3
   83: 	;;^DIST(.404,.403031,40,7,1)
   84: 	;;=11
   85: 	;;^DIST(.404,.403031,40,7,2)
   86: 	;;=14,21^53^14,9
   87: 	;;^DIST(.404,.403031,40,8,0)
   88: 	;;=13^POST ACTION^3
   89: 	;;^DIST(.404,.403031,40,8,1)
   90: 	;;=12
   91: 	;;^DIST(.404,.403031,40,8,2)
   92: 	;;=15,21^53^15,8
   93: 	;;^DIST(.404,.403031,40,9,0)
   94: 	;;=11^DESCRIPTION (WP)^3
   95: 	;;^DIST(.404,.403031,40,9,1)
   96: 	;;=15
   97: 	;;^DIST(.404,.403031,40,9,2)
   98: 	;;=13,21^1^13,3
   99: 	;;^DIST(.404,.403031,40,12,0)
  100: 	;;=10^PARENT FIELD^3
  101: 	;;^DIST(.404,.403031,40,12,1)
  102: 	;;=8
  103: 	;;^DIST(.404,.403031,40,12,2)
  104: 	;;=11,21^53^11,7
  105: 	;;^DIST(.404,.403031,40,13,0)
  106: 	;;=6^IS THIS A POP UP PAGE?^2
  107: 	;;^DIST(.404,.403031,40,13,2)
  108: 	;;=7,67^3^7,44^1
  109: 	;;^DIST(.404,.403031,40,13,3)
  110: 	;;=!M
  111: 	;;^DIST(.404,.403031,40,13,3.1)
  112: 	;;=S:$G(DDGFLRC)]"" Y=1
  113: 	;;^DIST(.404,.403031,40,13,13)
  114: 	;;=N LRC,PP,NP S LRC="LOWER RIGHT COORDINATE",PP="PREVIOUS PAGE",NP="NEXT PAGE" D:X PUT^DDSVALF(LRC,"","","15,75"):$$GET^DDSVALF(LRC)="" D:'X PUT^DDSVALF(LRC) N PG F PG=NP,PP D UNED^DDSUTL(PG,"","",$E(1,X)) D:X PUT^DDSVAL(DIE,.DA,PG)
  115: 	;;^DIST(.404,.403031,40,13,20)
  116: 	;;=DD^^.4031,5
  117: 	;;^DIST(.404,.403031,40,14,0)
  118: 	;;=5^PAGE COORDINATE^2
  119: 	;;^DIST(.404,.403031,40,14,2)
  120: 	;;=7,21^7^7,4
  121: 	;;^DIST(.404,.403031,40,14,3)
  122: 	;;=!M
  123: 	;;^DIST(.404,.403031,40,14,3.1)
  124: 	;;=S Y=$G(DDGFTLC0)
  125: 	;;^DIST(.404,.403031,40,14,4)
  126: 	;;=1
  127: 	;;^DIST(.404,.403031,40,14,20)
  128: 	;;=DD^^.4031,2
  129: 	;;^DIST(.404,.403031,40,14,23)
  130: 	;;=S DDGFTLC=X
  131: 	;;^DIST(.404,.403031,40,15,0)
  132: 	;;=7^LOWER RIGHT COORDINATE^2
  133: 	;;^DIST(.404,.403031,40,15,2)
  134: 	;;=8,67^7^8,43
  135: 	;;^DIST(.404,.403031,40,15,3)
  136: 	;;=!M
  137: 	;;^DIST(.404,.403031,40,15,3.1)
  138: 	;;=S Y=$G(DDGFLRC0)
  139: 	;;^DIST(.404,.403031,40,15,13)
  140: 	;;=I DDSOLD=""!(X="") D PUT^DDSVALF("IS THIS A POP UP PAGE?","","",$S(X="":"",1:1),"I") N PG,NP,PP S NP="NEXT PAGE",PP="PREVIOUS PAGE" F PG=NP,PP D UNED^DDSUTL(PG,"","",$E(1,X]"")) D:X]"" PUT^DDSVAL(DIE,.DA,PG)
  141: 	;;^DIST(.404,.403031,40,15,20)
  142: 	;;=DD^^.4031,6
  143: 	;;^DIST(.404,.403031,40,15,23)
  144: 	;;=S DDGFLRC=X
  145: 	;;^DIST(.404,.403031,40,16,0)
  146: 	;;=3^PAGE NAME^2
  147: 	;;^DIST(.404,.403031,40,16,2)
  148: 	;;=4,21^30^4,10
  149: 	;;^DIST(.404,.403031,40,16,3)
  150: 	;;=!M
  151: 	;;^DIST(.404,.403031,40,16,3.1)
  152: 	;;=S Y=$G(DDGFPNM0)
  153: 	;;^DIST(.404,.403031,40,16,4)
  154: 	;;=1
  155: 	;;^DIST(.404,.403031,40,16,20)
  156: 	;;=DD^^.4031,7
  157: 	;;^DIST(.404,.403031,40,16,23)
  158: 	;;=S DDGFPNM=X
  159: 	;;^DIST(.404,.403041,0)
  160: 	;;=DDGF PAGE SELECT^.4031
  161: 	;;^DIST(.404,.403041,40,0)
  162: 	;;=^.4044I^1^1
  163: 	;;^DIST(.404,.403041,40,1,0)
  164: 	;;=1^Select PAGE^2
  165: 	;;^DIST(.404,.403041,40,1,2)
  166: 	;;=1,14^30^1,1
  167: 	;;^DIST(.404,.403041,40,1,3)
  168: 	;;=!M
  169: 	;;^DIST(.404,.403041,40,1,3.1)
  170: 	;;=S Y=$P(^DIST(.403,+DDGFFM,40,DDGFPAGE,0),U)
  171: 	;;^DIST(.404,.403041,40,1,12)
  172: 	;;=S DDACT="EX"