Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: DINIT296

DINIT296.m

Go to the documentation of this file. 
  1. DINIT296 ;SFISC/MKO-FORM AND BLOCK FILES ;05:32 PM  14 Aug 2002
  1.  ;;22.2;VA FileMan;;Jan 05, 2016;Build 42
  1.  ;;Per VA Directive 6402, this routine should not be modified.
  1.  ;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
  1.  ;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
  1.  ;;Licensed under the terms of the Apache License, Version 2.0.
  1.  ;
  1.  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
  1.  G ^DINIT297
  1. Q Q
  1.  ;;^DD(.4044,1,3)
  1.  ;;=Answer must be 1-80 characters in length.
  1.  ;;^DD(.4044,1,21,0)
  1.  ;;=^^6^6^2940907^
  1.  ;;^DD(.4044,1,21,1,0)
  1.  ;;=A caption is uneditable text that appears on the screen.  Captions of
  1.  ;;^DD(.4044,1,21,2,0)
  1.  ;;=data dictionary, form-only, and computed fields serve to identify for
  1.  ;;^DD(.4044,1,21,3,0)
  1.  ;;=the user the data portion of the fields.  Captions for these types of
  1.  ;;^DD(.4044,1,21,4,0)
  1.  ;;=fields are automatically followed by a colon, unless the Suppress Colon
  1.  ;;^DD(.4044,1,21,5,0)
  1.  ;;=After Caption property is set to 'YES.'  A field with an Executable
  1.  ;;^DD(.4044,1,21,6,0)
  1.  ;;=Caption must have '!M' as a Caption.
  1.  ;;^DD(.4044,1,"DT")
  1.  ;;=2940629
  1.  ;;^DD(.4044,1.1,0)
  1.  ;;=EXECUTABLE CAPTION^K^^.1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
  1.  ;;^DD(.4044,1.1,3)
  1.  ;;=Enter standard MUMPS code that sets the variable Y.
  1.  ;;^DD(.4044,1.1,9)
  1.  ;;=@
  1.  ;;^DD(.4044,1.1,21,0)
  1.  ;;=^^3^3^2940907^^
  1.  ;;^DD(.4044,1.1,21,1,0)
  1.  ;;=Enter MUMPS code that sets the variable Y equal to the caption you
  1.  ;;^DD(.4044,1.1,21,2,0)
  1.  ;;=want displayed.  This code is executed and the caption evaluated whenever
  1.  ;;^DD(.4044,1.1,21,3,0)
  1.  ;;=the page on which this caption is located is painted.
  1.  ;;^DD(.4044,1.1,"DT")
  1.  ;;=2920218
  1.  ;;^DD(.4044,2,0)
  1.  ;;=FIELD TYPE^*S^0:UNKNOWN;1:CAPTION ONLY;2:FORM ONLY;3:DATA DICTIONARY FIELD;4:COMPUTED;^0;3^Q
  1.  ;;^DD(.4044,2,1,0)
  1.  ;;=^.1^^0
  1.  ;;^DD(.4044,2,3)
  1.  ;;=
  1.  ;;^DD(.4044,2,12)
  1.  ;;=Enter the field type.
  1.  ;;^DD(.4044,2,12.1)
  1.  ;;=S DIC("S")="I Y"
  1.  ;;^DD(.4044,2,21,0)
  1.  ;;=^^11^11^2940907^
  1.  ;;^DD(.4044,2,21,1,0)
  1.  ;;=Enter the field type.
  1.  ;;^DD(.4044,2,21,2,0)
  1.  ;;= 
  1.  ;;^DD(.4044,2,21,3,0)
  1.  ;;=CAPTION ONLY fields are for displaying text on the screen.
  1.  ;;^DD(.4044,2,21,4,0)
  1.  ;;= 
  1.  ;;^DD(.4044,2,21,5,0)
  1.  ;;=FORM ONLY fields are fields defined only on the form and are not tied to a
  1.  ;;^DD(.4044,2,21,6,0)
  1.  ;;=field in a FileMan file.
  1.  ;;^DD(.4044,2,21,7,0)
  1.  ;;= 
  1.  ;;^DD(.4044,2,21,8,0)
  1.  ;;=DATA DICTIONARY fields are fields from a FileMan file.
  1.  ;;^DD(.4044,2,21,9,0)
  1.  ;;= 
  1.  ;;^DD(.4044,2,21,10,0)
  1.  ;;=COMPUTED fields, like form-only fields, are fields that are defined only
  1.  ;;^DD(.4044,2,21,11,0)
  1.  ;;=on the form.  Associated with a COMPUTED field is a computed expression.
  1.  ;;^DD(.4044,2,"DT")
  1.  ;;=2940907
  1.  ;;^DD(.4044,3,0)
  1.  ;;=DISPLAY GROUP^F^^0;4^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<1) X
  1.  ;;^DD(.4044,3,3)
  1.  ;;=Enter text, 1-20 characters in length, which represents the group to which this field belongs.
  1.  ;;^DD(.4044,3,21,0)
  1.  ;;=^^10^10^2940907^
  1.  ;;^DD(.4044,3,21,1,0)
  1.  ;;=Display group helps users resolve ambiguity when they attempt to ^-jump to
  1.  ;;^DD(.4044,3,21,2,0)
  1.  ;;=a field that has a caption that is not unique.  If more than one field has
  1.  ;;^DD(.4044,3,21,3,0)
  1.  ;;=the same caption, when users try to ^-jump to a field with that caption,
  1.  ;;^DD(.4044,3,21,4,0)
  1.  ;;=they are presented with a list of fields to choose from.  The text in the
  1.  ;;^DD(.4044,3,21,5,0)
  1.  ;;=Display Group property is displayed in parentheses after the caption to
  1.  ;;^DD(.4044,3,21,6,0)
  1.  ;;=help the user identify the correct field.
  1.  ;;^DD(.4044,3,21,7,0)
  1.  ;;= 
  1.  ;;^DD(.4044,3,21,8,0)
  1.  ;;=For example, if two fields have the caption 'NAME:', but one of those
  1.  ;;^DD(.4044,3,21,9,0)
  1.  ;;=fields has a Display Group 'Next of Kin', when users enter ^NAME, they
  1.  ;;^DD(.4044,3,21,10,0)
  1.  ;;=will be asked to choose between 'NAME' and 'NAME (Next of Kin)'.
  1.  ;;^DD(.4044,3.1,0)
  1.  ;;=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
  1.  ;;^DD(.4044,3.1,1,0)
  1.  ;;=^.1
  1.  ;;^DD(.4044,3.1,1,1,0)
  1.  ;;=.4044^D^MUMPS
  1.  ;;^DD(.4044,3.1,1,1,1)
  1.  ;;=S ^DIST(.404,DA(1),40,"D",$$UP^DILIBF(X),DA)=""
  1.  ;;^DD(.4044,3.1,1,1,2)
  1.  ;;=K ^DIST(.404,DA(1),40,"D",$$UP^DILIBF(X),DA)
  1.  ;;^DD(.4044,3.1,1,1,3)
  1.  ;;=Programmer only
  1.  ;;^DD(.4044,3.1,1,1,"%D",0)
  1.  ;;=^^1^1^2930816^
  1.  ;;^DD(.4044,3.1,1,1,"%D",1,0)
  1.  ;;=This is a regular index of the Unique Name converted to uppercase.
  1.  ;;^DD(.4044,3.1,1,1,"DT")
  1.  ;;=2930816
  1.  ;;^DD(.4044,3.1,3)
  1.  ;;=Answer must be 1-50 characters in length.
  1.  ;;^DD(.4044,3.1,21,0)
  1.  ;;=^^5^5^2940907^
  1.  ;;^DD(.4044,3.1,21,1,0)
  1.  ;;=This is the unique name of the element on the block.  No two elements on
  1.  ;;^DD(.4044,3.1,21,2,0)
  1.  ;;=the block can have the same Unique Name.  Unique Names are never seen by
  1.  ;;^DD(.4044,3.1,21,3,0)
  1.  ;;=the user.  You can refer to an element on a block by its Unique Name in
  1.  ;;^DD(.4044,3.1,21,4,0)
  1.  ;;=some of the ScreenMan utilities such as PUT^DDSVAL and $$GET^DDSVAL, and
  1.  ;;^DD(.4044,3.1,21,5,0)
  1.  ;;=in the computed expressions of computed fields.
  1.  ;;^DD(.4044,3.1,"DT")
  1.  ;;=2930816
  1.  ;;^DD(.4044,4,0)
  1.  ;;=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
  1.  ;;^DD(.4044,4,1,0)
  1.  ;;=^.1^^0
  1.  ;;^DD(.4044,4,3)
  1.  ;;=Answer must be 1-245 characters in length.
  1.  ;;^DD(.4044,4,4)
  1.  ;;=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
  1.  ;;^DD(.4044,4,21,0)
  1.  ;;=^^2^2^2940907^
  1.  ;;^DD(.4044,4,21,1,0)
  1.  ;;=Enter the number or name of a field in the file defined by the data
  1.  ;;^DD(.4044,4,21,2,0)
  1.  ;;=dictionary number for this block.
  1.  ;;^DD(.4044,4,"DT")
  1.  ;;=2940823
  1.  ;;^DD(.4044,4.1,0)
  1.  ;;=DATA COORDINATE^F^^2;1^K:$L(X)>7!($L(X)<1)!'(X?.N1",".N) X
  1.  ;;^DD(.4044,4.1,3)
  1.  ;;=Enter the field coordinate relative to the block.  Answer must be two positive integers separated by a comma (,), as follows:  'Row,Column'.
  1.  ;;^DD(.4044,4.1,21,0)
  1.  ;;=^^2^2^2940907^
  1.  ;;^DD(.4044,4.1,21,1,0)
  1.  ;;=Data coordinate is relative to the position of the block.  The top left
  1.  ;;^DD(.4044,4.1,21,2,0)
  1.  ;;=corner of the block has a coordinate of 1,1.
  1.  ;;^DD(.4044,4.1,"DT")
  1.  ;;=2940908
  1.  ;;^DD(.4044,4.2,0)
  1.  ;;=DATA LENGTH^NJ3,0^^2;2^K:+X'=X!(X>245)!(X<1)!(X?.E1"."1N.N) X
  1.  ;;^DD(.4044,4.2,3)
  1.  ;;=Enter a Number between 1 and 245, inclusive, which represents the maximum length of the data to be displayed on the screen.
  1.  ;;^DD(.4044,4.2,21,0)
  1.  ;;=^^4^4^2940907^^
  1.  ;;^DD(.4044,4.2,21,1,0)
  1.  ;;=The data length defines the size of the editing window.  The editing
  1.  ;;^DD(.4044,4.2,21,2,0)
  1.  ;;=window is a single line and must not extend into or beyond the rightmost
  1.  ;;^DD(.4044,4.2,21,3,0)
  1.  ;;=column on the screen.  On an 80 column screen, the editing window
  1.  ;;^DD(.4044,4.2,21,4,0)
  1.  ;;=must not extend beyond column 79.
  1.  ;;^DD(.4044,5.1,0)
  1.  ;;=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