DINIT299 ;SFISC/MKO-FORM AND BLOCK FILES ;10:49 AM 30 Mar 1999
;;22.2;VA FileMan;;Jan 05, 2016;Build 42
;;Per VA Directive 6402, this routine should not be modified.
;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
;;Licensed under the terms of the Apache License, Version 2.0.
;
F I=1:2 S X=$T(Q+I) Q:X="" 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
G ^DINIT29P
Q Q
;;^DD(.4044,23,"DT")
;;=2930812
;;^DD(.4044,24,0)
;;=SCREEN^K^^24;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
;;^DD(.4044,24,3)
;;=Enter standard MUMPS code that sets the variable DIR("S").
;;^DD(.4044,24,9)
;;=@
;;^DD(.4044,24,21,0)
;;=^^4^4^2940908^
;;^DD(.4044,24,21,1,0)
;;=This screen is valid only for pointer and set-type form-only fields.
;;^DD(.4044,24,21,2,0)
;;=
;;^DD(.4044,24,21,3,0)
;;=You can enter MUMPS code that sets the variable DIR("S"), to screen the
;;^DD(.4044,24,21,4,0)
;;=the values that can be selected.
;;^DD(.4044,24,"DT")
;;=2930812
;;^DD(.4044,30,0)
;;=COMPUTED EXPRESSION^FX^^30;E1,245^K:$L(X)>245!($L(X)<1) X I $D(X) D CEXPR^DDSIT
;;^DD(.4044,30,3)
;;=Answer must be 1-245 characters in length.
;;^DD(.4044,30,21,0)
;;=^^13^13^2940908^
;;^DD(.4044,30,21,1,0)
;;=You can enter MUMPS code that sets the variable Y equal to the value of
;;^DD(.4044,30,21,2,0)
;;=the computed field. Alternatively, you can precede the computed
;;^DD(.4044,30,21,3,0)
;;=expression with an equal sign (=).
;;^DD(.4044,30,21,4,0)
;;=
;;^DD(.4044,30,21,5,0)
;;=For example,
;;^DD(.4044,30,21,6,0)
;;=
;;^DD(.4044,30,21,7,0)
;;= S:$D(var)#2 Y="The value is: "_{NUMERIC}
;;^DD(.4044,30,21,8,0)
;;= ={FIRST NAME}_" "_{LAST NAME}
;;^DD(.4044,30,21,9,0)
;;= ={FO(PRICE)}*1.085
;;^DD(.4044,30,21,10,0)
;;=
;;^DD(.4044,30,21,11,0)
;;=NUMERIC, FIRST NAME, and LAST NAME are the name of FileMan fields used on
;;^DD(.4044,30,21,12,0)
;;=the form, and PRICE is the caption of a form-only field found on the
;;^DD(.4044,30,21,13,0)
;;=current page and block of the form.
;;^DD(.4044,30,"DT")
;;=2931201
;;^DD(.404421,0)
;;=HELP SUB-FIELD^^.01^1
;;^DD(.404421,0,"DT")
;;=2930218
;;^DD(.404421,0,"NM","HELP")
;;=
;;^DD(.404421,0,"UP")
;;=.4044
;;^DD(.404421,.01,0)
;;=HELP^W^^0;1^Q
;;^DD(.404421,.01,21,0)
;;=^^3^3^2940908^
;;^DD(.404421,.01,21,1,0)
;;=This text is displayed when the user enters ? at this form-only field.
;;^DD(.404421,.01,21,2,0)
;;=The lines in this word processing field correspond to the nodes in the
;;^DD(.404421,.01,21,3,0)
;;=DIR("?",#) input array to ^DIR.
;;^DD(.404421,.01,"DT")
;;=2930812
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDINIT299 2823 printed Apr 09, 2024@21:54:19 Page 2
DINIT299 ;SFISC/MKO-FORM AND BLOCK FILES ;10:49 AM 30 Mar 1999
+1 ;;22.2;VA FileMan;;Jan 05, 2016;Build 42
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
+4 ;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
+5 ;;Licensed under the terms of the Apache License, Version 2.0.
+6 ;
+7 FOR I=1:2
SET X=$TEXT(Q+I)
if X=""
QUIT
SET Y=$EXTRACT($TEXT(Q+I+1),4,999)
SET X=$EXTRACT(X,4,999)
if $ASCII(Y)=126
SET I=I+1
SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,99)
if $ASCII(Y)=61
SET Y=$EXTRACT(Y,2,999)
SET @X=Y
+8 GOTO ^DINIT29P
Q QUIT
+1 ;;^DD(.4044,23,"DT")
+2 ;;=2930812
+3 ;;^DD(.4044,24,0)
+4 ;;=SCREEN^K^^24;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
+5 ;;^DD(.4044,24,3)
+6 ;;=Enter standard MUMPS code that sets the variable DIR("S").
+7 ;;^DD(.4044,24,9)
+8 ;;=@
+9 ;;^DD(.4044,24,21,0)
+10 ;;=^^4^4^2940908^
+11 ;;^DD(.4044,24,21,1,0)
+12 ;;=This screen is valid only for pointer and set-type form-only fields.
+13 ;;^DD(.4044,24,21,2,0)
+14 ;;=
+15 ;;^DD(.4044,24,21,3,0)
+16 ;;=You can enter MUMPS code that sets the variable DIR("S"), to screen the
+17 ;;^DD(.4044,24,21,4,0)
+18 ;;=the values that can be selected.
+19 ;;^DD(.4044,24,"DT")
+20 ;;=2930812
+21 ;;^DD(.4044,30,0)
+22 ;;=COMPUTED EXPRESSION^FX^^30;E1,245^K:$L(X)>245!($L(X)<1) X I $D(X) D CEXPR^DDSIT
+23 ;;^DD(.4044,30,3)
+24 ;;=Answer must be 1-245 characters in length.
+25 ;;^DD(.4044,30,21,0)
+26 ;;=^^13^13^2940908^
+27 ;;^DD(.4044,30,21,1,0)
+28 ;;=You can enter MUMPS code that sets the variable Y equal to the value of
+29 ;;^DD(.4044,30,21,2,0)
+30 ;;=the computed field. Alternatively, you can precede the computed
+31 ;;^DD(.4044,30,21,3,0)
+32 ;;=expression with an equal sign (=).
+33 ;;^DD(.4044,30,21,4,0)
+34 ;;=
+35 ;;^DD(.4044,30,21,5,0)
+36 ;;=For example,
+37 ;;^DD(.4044,30,21,6,0)
+38 ;;=
+39 ;;^DD(.4044,30,21,7,0)
+40 ;;= S:$D(var)#2 Y="The value is: "_{NUMERIC}
+41 ;;^DD(.4044,30,21,8,0)
+42 ;;= ={FIRST NAME}_" "_{LAST NAME}
+43 ;;^DD(.4044,30,21,9,0)
+44 ;;= ={FO(PRICE)}*1.085
+45 ;;^DD(.4044,30,21,10,0)
+46 ;;=
+47 ;;^DD(.4044,30,21,11,0)
+48 ;;=NUMERIC, FIRST NAME, and LAST NAME are the name of FileMan fields used on
+49 ;;^DD(.4044,30,21,12,0)
+50 ;;=the form, and PRICE is the caption of a form-only field found on the
+51 ;;^DD(.4044,30,21,13,0)
+52 ;;=current page and block of the form.
+53 ;;^DD(.4044,30,"DT")
+54 ;;=2931201
+55 ;;^DD(.404421,0)
+56 ;;=HELP SUB-FIELD^^.01^1
+57 ;;^DD(.404421,0,"DT")
+58 ;;=2930218
+59 ;;^DD(.404421,0,"NM","HELP")
+60 ;;=
+61 ;;^DD(.404421,0,"UP")
+62 ;;=.4044
+63 ;;^DD(.404421,.01,0)
+64 ;;=HELP^W^^0;1^Q
+65 ;;^DD(.404421,.01,21,0)
+66 ;;=^^3^3^2940908^
+67 ;;^DD(.404421,.01,21,1,0)
+68 ;;=This text is displayed when the user enters ? at this form-only field.
+69 ;;^DD(.404421,.01,21,2,0)
+70 ;;=The lines in this word processing field correspond to the nodes in the
+71 ;;^DD(.404421,.01,21,3,0)
+72 ;;=DIR("?",#) input array to ^DIR.
+73 ;;^DD(.404421,.01,"DT")
+74 ;;=2930812
