DINIT296 ;SFISC/MKO-FORM AND BLOCK FILES ;05:32 PM 14 Aug 2002
;;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 ^DINIT297
Q Q
;;^DD(.4044,1,3)
;;=Answer must be 1-80 characters in length.
;;^DD(.4044,1,21,0)
;;=^^6^6^2940907^
;;^DD(.4044,1,21,1,0)
;;=A caption is uneditable text that appears on the screen. Captions of
;;^DD(.4044,1,21,2,0)
;;=data dictionary, form-only, and computed fields serve to identify for
;;^DD(.4044,1,21,3,0)
;;=the user the data portion of the fields. Captions for these types of
;;^DD(.4044,1,21,4,0)
;;=fields are automatically followed by a colon, unless the Suppress Colon
;;^DD(.4044,1,21,5,0)
;;=After Caption property is set to 'YES.' A field with an Executable
;;^DD(.4044,1,21,6,0)
;;=Caption must have '!M' as a Caption.
;;^DD(.4044,1,"DT")
;;=2940629
;;^DD(.4044,1.1,0)
;;=EXECUTABLE CAPTION^K^^.1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
;;^DD(.4044,1.1,3)
;;=Enter standard MUMPS code that sets the variable Y.
;;^DD(.4044,1.1,9)
;;=@
;;^DD(.4044,1.1,21,0)
;;=^^3^3^2940907^^
;;^DD(.4044,1.1,21,1,0)
;;=Enter MUMPS code that sets the variable Y equal to the caption you
;;^DD(.4044,1.1,21,2,0)
;;=want displayed. This code is executed and the caption evaluated whenever
;;^DD(.4044,1.1,21,3,0)
;;=the page on which this caption is located is painted.
;;^DD(.4044,1.1,"DT")
;;=2920218
;;^DD(.4044,2,0)
;;=FIELD TYPE^*S^0:UNKNOWN;1:CAPTION ONLY;2:FORM ONLY;3:DATA DICTIONARY FIELD;4:COMPUTED;^0;3^Q
;;^DD(.4044,2,1,0)
;;=^.1^^0
;;^DD(.4044,2,3)
;;=
;;^DD(.4044,2,12)
;;=Enter the field type.
;;^DD(.4044,2,12.1)
;;=S DIC("S")="I Y"
;;^DD(.4044,2,21,0)
;;=^^11^11^2940907^
;;^DD(.4044,2,21,1,0)
;;=Enter the field type.
;;^DD(.4044,2,21,2,0)
;;=
;;^DD(.4044,2,21,3,0)
;;=CAPTION ONLY fields are for displaying text on the screen.
;;^DD(.4044,2,21,4,0)
;;=
;;^DD(.4044,2,21,5,0)
;;=FORM ONLY fields are fields defined only on the form and are not tied to a
;;^DD(.4044,2,21,6,0)
;;=field in a FileMan file.
;;^DD(.4044,2,21,7,0)
;;=
;;^DD(.4044,2,21,8,0)
;;=DATA DICTIONARY fields are fields from a FileMan file.
;;^DD(.4044,2,21,9,0)
;;=
;;^DD(.4044,2,21,10,0)
;;=COMPUTED fields, like form-only fields, are fields that are defined only
;;^DD(.4044,2,21,11,0)
;;=on the form. Associated with a COMPUTED field is a computed expression.
;;^DD(.4044,2,"DT")
;;=2940907
;;^DD(.4044,3,0)
;;=DISPLAY GROUP^F^^0;4^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<1) X
;;^DD(.4044,3,3)
;;=Enter text, 1-20 characters in length, which represents the group to which this field belongs.
;;^DD(.4044,3,21,0)
;;=^^10^10^2940907^
;;^DD(.4044,3,21,1,0)
;;=Display group helps users resolve ambiguity when they attempt to ^-jump to
;;^DD(.4044,3,21,2,0)
;;=a field that has a caption that is not unique. If more than one field has
;;^DD(.4044,3,21,3,0)
;;=the same caption, when users try to ^-jump to a field with that caption,
;;^DD(.4044,3,21,4,0)
;;=they are presented with a list of fields to choose from. The text in the
;;^DD(.4044,3,21,5,0)
;;=Display Group property is displayed in parentheses after the caption to
;;^DD(.4044,3,21,6,0)
;;=help the user identify the correct field.
;;^DD(.4044,3,21,7,0)
;;=
;;^DD(.4044,3,21,8,0)
;;=For example, if two fields have the caption 'NAME:', but one of those
;;^DD(.4044,3,21,9,0)
;;=fields has a Display Group 'Next of Kin', when users enter ^NAME, they
;;^DD(.4044,3,21,10,0)
;;=will be asked to choose between 'NAME' and 'NAME (Next of Kin)'.
;;^DD(.4044,3.1,0)
;;=UNIQUE NAME^FX^^0;5^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>50!($L(X)<1)!$D(^DIST(.404,DA(1),40,"D",X)) X
;;^DD(.4044,3.1,1,0)
;;=^.1
;;^DD(.4044,3.1,1,1,0)
;;=.4044^D^MUMPS
;;^DD(.4044,3.1,1,1,1)
;;=S ^DIST(.404,DA(1),40,"D",$$UP^DILIBF(X),DA)=""
;;^DD(.4044,3.1,1,1,2)
;;=K ^DIST(.404,DA(1),40,"D",$$UP^DILIBF(X),DA)
;;^DD(.4044,3.1,1,1,3)
;;=Programmer only
;;^DD(.4044,3.1,1,1,"%D",0)
;;=^^1^1^2930816^
;;^DD(.4044,3.1,1,1,"%D",1,0)
;;=This is a regular index of the Unique Name converted to uppercase.
;;^DD(.4044,3.1,1,1,"DT")
;;=2930816
;;^DD(.4044,3.1,3)
;;=Answer must be 1-50 characters in length.
;;^DD(.4044,3.1,21,0)
;;=^^5^5^2940907^
;;^DD(.4044,3.1,21,1,0)
;;=This is the unique name of the element on the block. No two elements on
;;^DD(.4044,3.1,21,2,0)
;;=the block can have the same Unique Name. Unique Names are never seen by
;;^DD(.4044,3.1,21,3,0)
;;=the user. You can refer to an element on a block by its Unique Name in
;;^DD(.4044,3.1,21,4,0)
;;=some of the ScreenMan utilities such as PUT^DDSVAL and $$GET^DDSVAL, and
;;^DD(.4044,3.1,21,5,0)
;;=in the computed expressions of computed fields.
;;^DD(.4044,3.1,"DT")
;;=2930816
;;^DD(.4044,4,0)
;;=FIELD^FX^^1;1^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>245!($L(X)<1) X I $D(X),$D(DDGFDD) D IXF^DDS0
;;^DD(.4044,4,1,0)
;;=^.1^^0
;;^DD(.4044,4,3)
;;=Answer must be 1-245 characters in length.
;;^DD(.4044,4,4)
;;=I $D(DDGFDD) N D0,DA,DIC,D,DZ S DIC="^DD("_DDGFDD_",",DIC(0)="",D="B" S:$G(X)="??" DZ=X D DQ^DICQ
;;^DD(.4044,4,21,0)
;;=^^2^2^2940907^
;;^DD(.4044,4,21,1,0)
;;=Enter the number or name of a field in the file defined by the data
;;^DD(.4044,4,21,2,0)
;;=dictionary number for this block.
;;^DD(.4044,4,"DT")
;;=2940823
;;^DD(.4044,4.1,0)
;;=DATA COORDINATE^F^^2;1^K:$L(X)>7!($L(X)<1)!'(X?.N1",".N) X
;;^DD(.4044,4.1,3)
;;=Enter the field coordinate relative to the block. Answer must be two positive integers separated by a comma (,), as follows: 'Row,Column'.
;;^DD(.4044,4.1,21,0)
;;=^^2^2^2940907^
;;^DD(.4044,4.1,21,1,0)
;;=Data coordinate is relative to the position of the block. The top left
;;^DD(.4044,4.1,21,2,0)
;;=corner of the block has a coordinate of 1,1.
;;^DD(.4044,4.1,"DT")
;;=2940908
;;^DD(.4044,4.2,0)
;;=DATA LENGTH^NJ3,0^^2;2^K:+X'=X!(X>245)!(X<1)!(X?.E1"."1N.N) X
;;^DD(.4044,4.2,3)
;;=Enter a Number between 1 and 245, inclusive, which represents the maximum length of the data to be displayed on the screen.
;;^DD(.4044,4.2,21,0)
;;=^^4^4^2940907^^
;;^DD(.4044,4.2,21,1,0)
;;=The data length defines the size of the editing window. The editing
;;^DD(.4044,4.2,21,2,0)
;;=window is a single line and must not extend into or beyond the rightmost
;;^DD(.4044,4.2,21,3,0)
;;=column on the screen. On an 80 column screen, the editing window
;;^DD(.4044,4.2,21,4,0)
;;=must not extend beyond column 79.
;;^DD(.4044,5.1,0)
;;=CAPTION COORDINATE^F^^2;3^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>7!($L(X)<1)!'(X?.N1",".N) X
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDINIT296 7140 printed Dec 13, 2024@02:51:19 Page 2
DINIT296 ;SFISC/MKO-FORM AND BLOCK FILES ;05:32 PM 14 Aug 2002
+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 ^DINIT297
Q QUIT
+1 ;;^DD(.4044,1,3)
+2 ;;=Answer must be 1-80 characters in length.
+3 ;;^DD(.4044,1,21,0)
+4 ;;=^^6^6^2940907^
+5 ;;^DD(.4044,1,21,1,0)
+6 ;;=A caption is uneditable text that appears on the screen. Captions of
+7 ;;^DD(.4044,1,21,2,0)
+8 ;;=data dictionary, form-only, and computed fields serve to identify for
+9 ;;^DD(.4044,1,21,3,0)
+10 ;;=the user the data portion of the fields. Captions for these types of
+11 ;;^DD(.4044,1,21,4,0)
+12 ;;=fields are automatically followed by a colon, unless the Suppress Colon
+13 ;;^DD(.4044,1,21,5,0)
+14 ;;=After Caption property is set to 'YES.' A field with an Executable
+15 ;;^DD(.4044,1,21,6,0)
+16 ;;=Caption must have '!M' as a Caption.
+17 ;;^DD(.4044,1,"DT")
+18 ;;=2940629
+19 ;;^DD(.4044,1.1,0)
+20 ;;=EXECUTABLE CAPTION^K^^.1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
+21 ;;^DD(.4044,1.1,3)
+22 ;;=Enter standard MUMPS code that sets the variable Y.
+23 ;;^DD(.4044,1.1,9)
+24 ;;=@
+25 ;;^DD(.4044,1.1,21,0)
+26 ;;=^^3^3^2940907^^
+27 ;;^DD(.4044,1.1,21,1,0)
+28 ;;=Enter MUMPS code that sets the variable Y equal to the caption you
+29 ;;^DD(.4044,1.1,21,2,0)
+30 ;;=want displayed. This code is executed and the caption evaluated whenever
+31 ;;^DD(.4044,1.1,21,3,0)
+32 ;;=the page on which this caption is located is painted.
+33 ;;^DD(.4044,1.1,"DT")
+34 ;;=2920218
+35 ;;^DD(.4044,2,0)
+36 ;;=FIELD TYPE^*S^0:UNKNOWN;1:CAPTION ONLY;2:FORM ONLY;3:DATA DICTIONARY FIELD;4:COMPUTED;^0;3^Q
+37 ;;^DD(.4044,2,1,0)
+38 ;;=^.1^^0
+39 ;;^DD(.4044,2,3)
+40 ;;=
+41 ;;^DD(.4044,2,12)
+42 ;;=Enter the field type.
+43 ;;^DD(.4044,2,12.1)
+44 ;;=S DIC("S")="I Y"
+45 ;;^DD(.4044,2,21,0)
+46 ;;=^^11^11^2940907^
+47 ;;^DD(.4044,2,21,1,0)
+48 ;;=Enter the field type.
+49 ;;^DD(.4044,2,21,2,0)
+50 ;;=
+51 ;;^DD(.4044,2,21,3,0)
+52 ;;=CAPTION ONLY fields are for displaying text on the screen.
+53 ;;^DD(.4044,2,21,4,0)
+54 ;;=
+55 ;;^DD(.4044,2,21,5,0)
+56 ;;=FORM ONLY fields are fields defined only on the form and are not tied to a
+57 ;;^DD(.4044,2,21,6,0)
+58 ;;=field in a FileMan file.
+59 ;;^DD(.4044,2,21,7,0)
+60 ;;=
+61 ;;^DD(.4044,2,21,8,0)
+62 ;;=DATA DICTIONARY fields are fields from a FileMan file.
+63 ;;^DD(.4044,2,21,9,0)
+64 ;;=
+65 ;;^DD(.4044,2,21,10,0)
+66 ;;=COMPUTED fields, like form-only fields, are fields that are defined only
+67 ;;^DD(.4044,2,21,11,0)
+68 ;;=on the form. Associated with a COMPUTED field is a computed expression.
+69 ;;^DD(.4044,2,"DT")
+70 ;;=2940907
+71 ;;^DD(.4044,3,0)
+72 ;;=DISPLAY GROUP^F^^0;4^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<1) X
+73 ;;^DD(.4044,3,3)
+74 ;;=Enter text, 1-20 characters in length, which represents the group to which this field belongs.
+75 ;;^DD(.4044,3,21,0)
+76 ;;=^^10^10^2940907^
+77 ;;^DD(.4044,3,21,1,0)
+78 ;;=Display group helps users resolve ambiguity when they attempt to ^-jump to
+79 ;;^DD(.4044,3,21,2,0)
+80 ;;=a field that has a caption that is not unique. If more than one field has
+81 ;;^DD(.4044,3,21,3,0)
+82 ;;=the same caption, when users try to ^-jump to a field with that caption,
+83 ;;^DD(.4044,3,21,4,0)
+84 ;;=they are presented with a list of fields to choose from. The text in the
+85 ;;^DD(.4044,3,21,5,0)
+86 ;;=Display Group property is displayed in parentheses after the caption to
+87 ;;^DD(.4044,3,21,6,0)
+88 ;;=help the user identify the correct field.
+89 ;;^DD(.4044,3,21,7,0)
+90 ;;=
+91 ;;^DD(.4044,3,21,8,0)
+92 ;;=For example, if two fields have the caption 'NAME:', but one of those
+93 ;;^DD(.4044,3,21,9,0)
+94 ;;=fields has a Display Group 'Next of Kin', when users enter ^NAME, they
+95 ;;^DD(.4044,3,21,10,0)
+96 ;;=will be asked to choose between 'NAME' and 'NAME (Next of Kin)'.
+97 ;;^DD(.4044,3.1,0)
+98 ;;=UNIQUE NAME^FX^^0;5^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>50!($L(X)<1)!$D(^DIST(.404,DA(1),40,"D",X)) X
+99 ;;^DD(.4044,3.1,1,0)
+100 ;;=^.1
+101 ;;^DD(.4044,3.1,1,1,0)
+102 ;;=.4044^D^MUMPS
+103 ;;^DD(.4044,3.1,1,1,1)
+104 ;;=S ^DIST(.404,DA(1),40,"D",$$UP^DILIBF(X),DA)=""
+105 ;;^DD(.4044,3.1,1,1,2)
+106 ;;=K ^DIST(.404,DA(1),40,"D",$$UP^DILIBF(X),DA)
+107 ;;^DD(.4044,3.1,1,1,3)
+108 ;;=Programmer only
+109 ;;^DD(.4044,3.1,1,1,"%D",0)
+110 ;;=^^1^1^2930816^
+111 ;;^DD(.4044,3.1,1,1,"%D",1,0)
+112 ;;=This is a regular index of the Unique Name converted to uppercase.
+113 ;;^DD(.4044,3.1,1,1,"DT")
+114 ;;=2930816
+115 ;;^DD(.4044,3.1,3)
+116 ;;=Answer must be 1-50 characters in length.
+117 ;;^DD(.4044,3.1,21,0)
+118 ;;=^^5^5^2940907^
+119 ;;^DD(.4044,3.1,21,1,0)
+120 ;;=This is the unique name of the element on the block. No two elements on
+121 ;;^DD(.4044,3.1,21,2,0)
+122 ;;=the block can have the same Unique Name. Unique Names are never seen by
+123 ;;^DD(.4044,3.1,21,3,0)
+124 ;;=the user. You can refer to an element on a block by its Unique Name in
+125 ;;^DD(.4044,3.1,21,4,0)
+126 ;;=some of the ScreenMan utilities such as PUT^DDSVAL and $$GET^DDSVAL, and
+127 ;;^DD(.4044,3.1,21,5,0)
+128 ;;=in the computed expressions of computed fields.
+129 ;;^DD(.4044,3.1,"DT")
+130 ;;=2930816
+131 ;;^DD(.4044,4,0)
+132 ;;=FIELD^FX^^1;1^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>245!($L(X)<1) X I $D(X),$D(DDGFDD) D IXF^DDS0
+133 ;;^DD(.4044,4,1,0)
+134 ;;=^.1^^0
+135 ;;^DD(.4044,4,3)
+136 ;;=Answer must be 1-245 characters in length.
+137 ;;^DD(.4044,4,4)
+138 ;;=I $D(DDGFDD) N D0,DA,DIC,D,DZ S DIC="^DD("_DDGFDD_",",DIC(0)="",D="B" S:$G(X)="??" DZ=X D DQ^DICQ
+139 ;;^DD(.4044,4,21,0)
+140 ;;=^^2^2^2940907^
+141 ;;^DD(.4044,4,21,1,0)
+142 ;;=Enter the number or name of a field in the file defined by the data
+143 ;;^DD(.4044,4,21,2,0)
+144 ;;=dictionary number for this block.
+145 ;;^DD(.4044,4,"DT")
+146 ;;=2940823
+147 ;;^DD(.4044,4.1,0)
+148 ;;=DATA COORDINATE^F^^2;1^K:$L(X)>7!($L(X)<1)!'(X?.N1",".N) X
+149 ;;^DD(.4044,4.1,3)
+150 ;;=Enter the field coordinate relative to the block. Answer must be two positive integers separated by a comma (,), as follows: 'Row,Column'.
+151 ;;^DD(.4044,4.1,21,0)
+152 ;;=^^2^2^2940907^
+153 ;;^DD(.4044,4.1,21,1,0)
+154 ;;=Data coordinate is relative to the position of the block. The top left
+155 ;;^DD(.4044,4.1,21,2,0)
+156 ;;=corner of the block has a coordinate of 1,1.
+157 ;;^DD(.4044,4.1,"DT")
+158 ;;=2940908
+159 ;;^DD(.4044,4.2,0)
+160 ;;=DATA LENGTH^NJ3,0^^2;2^K:+X'=X!(X>245)!(X<1)!(X?.E1"."1N.N) X
+161 ;;^DD(.4044,4.2,3)
+162 ;;=Enter a Number between 1 and 245, inclusive, which represents the maximum length of the data to be displayed on the screen.
+163 ;;^DD(.4044,4.2,21,0)
+164 ;;=^^4^4^2940907^^
+165 ;;^DD(.4044,4.2,21,1,0)
+166 ;;=The data length defines the size of the editing window. The editing
+167 ;;^DD(.4044,4.2,21,2,0)
+168 ;;=window is a single line and must not extend into or beyond the rightmost
+169 ;;^DD(.4044,4.2,21,3,0)
+170 ;;=column on the screen. On an 80 column screen, the editing window
+171 ;;^DD(.4044,4.2,21,4,0)
+172 ;;=must not extend beyond column 79.
+173 ;;^DD(.4044,5.1,0)
+174 ;;=CAPTION COORDINATE^F^^2;3^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>7!($L(X)<1)!'(X?.N1",".N) X
