Return to DINIT29E.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DINIT29E.m, revision 1.1.1.1

1.1       snw         1: DINIT29E       ;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="" ^DINIT29P 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,30,21,0)
                      7:        ;;=^^13^13^2940908^
                      8:        ;;^DD(.4044,30,21,1,0)
                      9:        ;;=You can enter MUMPS code that sets the variable Y equal to the value of
                     10:        ;;^DD(.4044,30,21,2,0)
                     11:        ;;=the computed field.  Alternatively, you can precede the computed
                     12:        ;;^DD(.4044,30,21,3,0)
                     13:        ;;=expression with an equal sign (=).
                     14:        ;;^DD(.4044,30,21,4,0)
                     15:        ;;= 
                     16:        ;;^DD(.4044,30,21,5,0)
                     17:        ;;=For example,
                     18:        ;;^DD(.4044,30,21,6,0)
                     19:        ;;= 
                     20:        ;;^DD(.4044,30,21,7,0)
                     21:        ;;=       S:$D(var)#2 Y="The value is: "_{NUMERIC}
                     22:        ;;^DD(.4044,30,21,8,0)
                     23:        ;;=       ={FIRST NAME}_" "_{LAST NAME}
                     24:        ;;^DD(.4044,30,21,9,0)
                     25:        ;;=       ={FO(PRICE)}*1.085
                     26:        ;;^DD(.4044,30,21,10,0)
                     27:        ;;= 
                     28:        ;;^DD(.4044,30,21,11,0)
                     29:        ;;=NUMERIC, FIRST NAME, and LAST NAME are the name of FileMan fields used on
                     30:        ;;^DD(.4044,30,21,12,0)
                     31:        ;;=the form, and PRICE is the caption of a form-only field found on the
                     32:        ;;^DD(.4044,30,21,13,0)
                     33:        ;;=current page and block of the form.
                     34:        ;;^DD(.4044,30,"DT")
                     35:        ;;=2931201
                     36:        ;;^DD(.404421,0)
                     37:        ;;=HELP SUB-FIELD^^.01^1
                     38:        ;;^DD(.404421,0,"DT")
                     39:        ;;=2930218
                     40:        ;;^DD(.404421,0,"NM","HELP")
                     41:        ;;=
                     42:        ;;^DD(.404421,0,"UP")
                     43:        ;;=.4044
                     44:        ;;^DD(.404421,.01,0)
                     45:        ;;=HELP^W^^0;1^Q
                     46:        ;;^DD(.404421,.01,21,0)
                     47:        ;;=^^3^3^2940908^
                     48:        ;;^DD(.404421,.01,21,1,0)
                     49:        ;;=This text is displayed when the user enters ? at this form-only field.
                     50:        ;;^DD(.404421,.01,21,2,0)
                     51:        ;;=The lines in this word processing field correspond to the nodes in the
                     52:        ;;^DD(.404421,.01,21,3,0)
                     53:        ;;=DIR("?",#) input array to ^DIR.
                     54:        ;;^DD(.404421,.01,"DT")
                     55:        ;;=2930812