Return to DINIT29C.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

Restructure repository

    1: DINIT29C	;SFISC/MKO-SCREENMAN FILES ;11/28/94  11:42 AM
    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(Q+I) G:X="" ^DINIT29D S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,99) S:$A(Y)=61 Y=$E(Y,2,999) S @X=Y
    5: Q	Q
    6: 	;;^DD(.4044,8,21,3,0)
    7: 	;;=pop-up page, ScreenMan will automatically take them to the field following
    8: 	;;^DD(.4044,8,21,4,0)
    9: 	;;=this field.
   10: 	;;^DD(.4044,8,21,5,0)
   11: 	;;= 
   12: 	;;^DD(.4044,8,21,6,0)
   13: 	;;=You can also use the Parent Field property of the pop-up page to link a
   14: 	;;^DD(.4044,8,21,7,0)
   15: 	;;=field to the pop-up page.
   16: 	;;^DD(.4044,10,0)
   17: 	;;=BRANCHING LOGIC^K^^10;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
   18: 	;;^DD(.4044,10,3)
   19: 	;;=Enter Standard MUMPS code, 1-245 characters in length.
   20: 	;;^DD(.4044,10,9)
   21: 	;;=@
   22: 	;;^DD(.4044,10,21,0)
   23: 	;;=^^18^18^2940907^
   24: 	;;^DD(.4044,10,21,1,0)
   25: 	;;=This MUMPS code is executed whenever the user presses <RET> at the
   26: 	;;^DD(.4044,10,21,2,0)
   27: 	;;=field.  Here you can set DDSBR equal to the field, block, and page,
   28: 	;;^DD(.4044,10,21,3,0)
   29: 	;;=separated by up-arrow delimiters, of the field to which you wish to take
   30: 	;;^DD(.4044,10,21,4,0)
   31: 	;;=users when they press <RET>.  For example,
   32: 	;;^DD(.4044,10,21,5,0)
   33: 	;;= 
   34: 	;;^DD(.4044,10,21,6,0)
   35: 	;;=     S:X="Y" DDSBR="TEST FIELD 1^TEST BLOCK 1^TEST PAGE 2"
   36: 	;;^DD(.4044,10,21,7,0)
   37: 	;;= 
   38: 	;;^DD(.4044,10,21,8,0)
   39: 	;;=would take the user to the field with unique name or caption "TEST FIELD
   40: 	;;^DD(.4044,10,21,9,0)
   41: 	;;=1" on the block named "TEST BLOCK 1" on a page named "TEST PAGE 2".
   42: 	;;^DD(.4044,10,21,10,0)
   43: 	;;= 
   44: 	;;^DD(.4044,10,21,11,0)
   45: 	;;=Alternatively, if you wish to take users to another page when they press
   46: 	;;^DD(.4044,10,21,12,0)
   47: 	;;=<RET> at this field, and then when they close that page, automatically
   48: 	;;^DD(.4044,10,21,13,0)
   49: 	;;=take them to the field immediately following this field, you can set
   50: 	;;^DD(.4044,10,21,14,0)
   51: 	;;=DDSSTACK equal to the page name or number of that page.
   52: 	;;^DD(.4044,10,21,15,0)
   53: 	;;= 
   54: 	;;^DD(.4044,10,21,16,0)
   55: 	;;=The variable X contains the current internal value of the field, DDSEXT
   56: 	;;^DD(.4044,10,21,17,0)
   57: 	;;=contains the current external value of the field, and DDSOLD contains the
   58: 	;;^DD(.4044,10,21,18,0)
   59: 	;;=previous internal value of the field.
   60: 	;;^DD(.4044,11,0)
   61: 	;;=PRE ACTION^K^^11;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
   62: 	;;^DD(.4044,11,3)
   63: 	;;=Enter standard MUMPS code that will be executed when the user navigates to this field.
   64: 	;;^DD(.4044,11,9)
   65: 	;;=@
   66: 	;;^DD(.4044,11,21,0)
   67: 	;;=^^2^2^2940629^
   68: 	;;^DD(.4044,11,21,1,0)
   69: 	;;=This MUMPS code is executed when the user reaches the field.  The variable
   70: 	;;^DD(.4044,11,21,2,0)
   71: 	;;=X contains the current value of the field.
   72: 	;;^DD(.4044,12,0)
   73: 	;;=POST ACTION^K^^12;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
   74: 	;;^DD(.4044,12,3)
   75: 	;;=Enter standard MUMPS code that will be executed when the user leaves this field.
   76: 	;;^DD(.4044,12,9)
   77: 	;;=@
   78: 	;;^DD(.4044,12,21,0)
   79: 	;;=^^5^5^2940629^
   80: 	;;^DD(.4044,12,21,1,0)
   81: 	;;=This MUMPS code is executed when the user leaves the field.
   82: 	;;^DD(.4044,12,21,2,0)
   83: 	;;= 
   84: 	;;^DD(.4044,12,21,3,0)
   85: 	;;=The variable X contains the current internal value of the field, DDSEXT
   86: 	;;^DD(.4044,12,21,4,0)
   87: 	;;=contains the current external value of the field, and DDSOLD contains
   88: 	;;^DD(.4044,12,21,5,0)
   89: 	;;=the previous internal value of the field.
   90: 	;;^DD(.4044,13,0)
   91: 	;;=POST ACTION ON CHANGE^K^^13;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
   92: 	;;^DD(.4044,13,3)
   93: 	;;=Enter standard MUMPS code that will be executed when the user changes the value of this field.
   94: 	;;^DD(.4044,13,9)
   95: 	;;=@
   96: 	;;^DD(.4044,13,21,0)
   97: 	;;=^^4^4^2940629^
   98: 	;;^DD(.4044,13,21,1,0)
   99: 	;;=This MUMPS code is executed only if the user changed the value of the
  100: 	;;^DD(.4044,13,21,2,0)
  101: 	;;=field.  The variables X and DDSEXT contain the new internal and external
  102: 	;;^DD(.4044,13,21,3,0)
  103: 	;;=values of the field, and DDSOLD contains the original internal value of
  104: 	;;^DD(.4044,13,21,4,0)
  105: 	;;=the field.
  106: 	;;^DD(.4044,13,"DT")
  107: 	;;=2931029
  108: 	;;^DD(.4044,14,0)
  109: 	;;=DATA VALIDATION^K^^14;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
  110: 	;;^DD(.4044,14,3)
  111: 	;;=This is Standard MUMPS code.
  112: 	;;^DD(.4044,14,9)
  113: 	;;=@
  114: 	;;^DD(.4044,14,21,0)
  115: 	;;=^^5^5^2940907^
  116: 	;;^DD(.4044,14,21,1,0)
  117: 	;;=Enter MUMPS code that will be executed after the user enters a new
  118: 	;;^DD(.4044,14,21,2,0)
  119: 	;;=value for this field.  If the code sets DDSERROR, the value will
  120: 	;;^DD(.4044,14,21,3,0)
  121: 	;;=be rejected.  You might also want to ring the bell and make a call to
  122: 	;;^DD(.4044,14,21,4,0)
  123: 	;;=HLP^DDSUTL to display a message to the user that indicates the reason the
  124: 	;;^DD(.4044,14,21,5,0)
  125: 	;;=value was rejected.
  126: 	;;^DD(.4044,14,"DT")
  127: 	;;=2930820
  128: 	;;^DD(.4044,20.1,0)
  129: 	;;=READ TYPE^S^D:DATE;F:FREE TEXT;L:LIST OR RANGE;N:NUMERIC;P:POINTER;S:SET OF CODES;Y:YES OR NO;DD:DATA DICTIONARY;^20;1^Q