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

DINIT00E.m

Go to the documentation of this file. 
  1. DINIT00E ; SFISC/TKW-DIALOG & LANGUAGE FILE INITS ; 3/30/99  10:41:48
  1.  ;;22.0;VA FileMan;;Mar 30, 1999
  1.  ;Per VHA Directive 10-93-142, this routine should not be modified.
  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. Q Q
  1.  ;;^UTILITY(U,$J,.84,3051,1,0)
  1.  ;;=^^2^2^2931129^^^^
  1.  ;;^UTILITY(U,$J,.84,3051,1,1,0)
  1.  ;;=The block has no 0 node in the Block file or was not found in the "B"
  1.  ;;^UTILITY(U,$J,.84,3051,1,2,0)
  1.  ;;=index.
  1.  ;;^UTILITY(U,$J,.84,3051,2,0)
  1.  ;;=^^1^1^2931129^^^
  1.  ;;^UTILITY(U,$J,.84,3051,2,1,0)
  1.  ;;=Block |1| does not exist in the Block file.
  1.  ;;^UTILITY(U,$J,.84,3051,3,0)
  1.  ;;=^.845^1^1
  1.  ;;^UTILITY(U,$J,.84,3051,3,1,0)
  1.  ;;=1^Block number or name
  1.  ;;^UTILITY(U,$J,.84,3053,0)
  1.  ;;=3053^1^y^5
  1.  ;;^UTILITY(U,$J,.84,3053,1,0)
  1.  ;;=^^4^4^2931129^
  1.  ;;^UTILITY(U,$J,.84,3053,1,1,0)
  1.  ;;=The specified block was not found on the page.  For example, it was not
  1.  ;;^UTILITY(U,$J,.84,3053,1,2,0)
  1.  ;;=found in the "AC" or "B" index in the block multiple of the page multiple
  1.  ;;^UTILITY(U,$J,.84,3053,1,3,0)
  1.  ;;=of the Form file, or the 0 node of the block in the block multiple is
  1.  ;;^UTILITY(U,$J,.84,3053,1,4,0)
  1.  ;;=missing.
  1.  ;;^UTILITY(U,$J,.84,3053,2,0)
  1.  ;;=^^1^1^2931129^^
  1.  ;;^UTILITY(U,$J,.84,3053,2,1,0)
  1.  ;;=Block |1| was not found on page |2|.
  1.  ;;^UTILITY(U,$J,.84,3053,3,0)
  1.  ;;=^.845^2^2
  1.  ;;^UTILITY(U,$J,.84,3053,3,1,0)
  1.  ;;=1^Block order, name, or number
  1.  ;;^UTILITY(U,$J,.84,3053,3,2,0)
  1.  ;;=2^Page number and/or name
  1.  ;;^UTILITY(U,$J,.84,3055,0)
  1.  ;;=3055^1^y^5
  1.  ;;^UTILITY(U,$J,.84,3055,1,0)
  1.  ;;=^^1^1^2931129^^^
  1.  ;;^UTILITY(U,$J,.84,3055,1,1,0)
  1.  ;;=There are no blocks defined on the page.
  1.  ;;^UTILITY(U,$J,.84,3055,2,0)
  1.  ;;=^^1^1^2931129^^^
  1.  ;;^UTILITY(U,$J,.84,3055,2,1,0)
  1.  ;;=There are no blocks defined on page |1|.
  1.  ;;^UTILITY(U,$J,.84,3055,3,0)
  1.  ;;=^.845^1^1
  1.  ;;^UTILITY(U,$J,.84,3055,3,1,0)
  1.  ;;=1^Page name and/or number
  1.  ;;^UTILITY(U,$J,.84,3071,0)
  1.  ;;=3071^1^y^5
  1.  ;;^UTILITY(U,$J,.84,3071,1,0)
  1.  ;;=^^1^1^2931129^^^
  1.  ;;^UTILITY(U,$J,.84,3071,1,1,0)
  1.  ;;=The specified block has no fields on it.
  1.  ;;^UTILITY(U,$J,.84,3071,2,0)
  1.  ;;=^^1^1^2931129^^
  1.  ;;^UTILITY(U,$J,.84,3071,2,1,0)
  1.  ;;=There are no fields defined on block |1|.
  1.  ;;^UTILITY(U,$J,.84,3071,3,0)
  1.  ;;=^.845^1^1
  1.  ;;^UTILITY(U,$J,.84,3071,3,1,0)
  1.  ;;=1^Block name
  1.  ;;^UTILITY(U,$J,.84,3072,0)
  1.  ;;=3072^1^y^5
  1.  ;;^UTILITY(U,$J,.84,3072,1,0)
  1.  ;;=^^1^1^2931129^
  1.  ;;^UTILITY(U,$J,.84,3072,1,1,0)
  1.  ;;=The specified field was not found on the block.
  1.  ;;^UTILITY(U,$J,.84,3072,2,0)
  1.  ;;=^^1^1^2931129^
  1.  ;;^UTILITY(U,$J,.84,3072,2,1,0)
  1.  ;;=Field |1| was not found on block |2|.
  1.  ;;^UTILITY(U,$J,.84,3072,3,0)
  1.  ;;=^.845^2^2
  1.  ;;^UTILITY(U,$J,.84,3072,3,1,0)
  1.  ;;=1^Field order, number, caption, or unique name
  1.  ;;^UTILITY(U,$J,.84,3072,3,2,0)
  1.  ;;=2^Block name
  1.  ;;^UTILITY(U,$J,.84,3081,0)
  1.  ;;=3081^1^^5
  1.  ;;^UTILITY(U,$J,.84,3081,1,0)
  1.  ;;=^^2^2^2931201^^
  1.  ;;^UTILITY(U,$J,.84,3081,1,1,0)
  1.  ;;=The field specified by FO(field) in the pointer link or computed expression
  1.  ;;^UTILITY(U,$J,.84,3081,1,2,0)
  1.  ;;=is not a form only field.
  1.  ;;^UTILITY(U,$J,.84,3081,2,0)
  1.  ;;=^^1^1^2931201^^
  1.  ;;^UTILITY(U,$J,.84,3081,2,1,0)
  1.  ;;=The specified field is not a form-only field.
  1.  ;;^UTILITY(U,$J,.84,3082,0)
  1.  ;;=3082^1^^5
  1.  ;;^UTILITY(U,$J,.84,3082,1,0)
  1.  ;;=^^3^3^2931203^
  1.  ;;^UTILITY(U,$J,.84,3082,1,1,0)
  1.  ;;=The field, block, and/or page is missing or invalid in the expression
  1.  ;;^UTILITY(U,$J,.84,3082,1,2,0)
  1.  ;;=FO(field,block,page), used in the pointer link, parent field, or computed
  1.  ;;^UTILITY(U,$J,.84,3082,1,3,0)
  1.  ;;=expression.
  1.  ;;^UTILITY(U,$J,.84,3082,2,0)
  1.  ;;=^^1^1^2931203^
  1.  ;;^UTILITY(U,$J,.84,3082,2,1,0)
  1.  ;;=Parameters are missing or invalid in an FO() expression.
  1.  ;;^UTILITY(U,$J,.84,3083,0)
  1.  ;;=3083^1^^5
  1.  ;;^UTILITY(U,$J,.84,3083,1,0)
  1.  ;;=^^1^1^2931203^^
  1.  ;;^UTILITY(U,$J,.84,3083,1,1,0)
  1.  ;;=The relational expression is incomplete.
  1.  ;;^UTILITY(U,$J,.84,3083,2,0)
  1.  ;;=^^1^1^2931203^^
  1.  ;;^UTILITY(U,$J,.84,3083,2,1,0)
  1.  ;;=The relational expression is incomplete.
  1.  ;;^UTILITY(U,$J,.84,3084,0)
  1.  ;;=3084^1^^5
  1.  ;;^UTILITY(U,$J,.84,3084,1,0)
  1.  ;;=^^3^3^2931203^^
  1.  ;;^UTILITY(U,$J,.84,3084,1,1,0)
  1.  ;;=In a computed expression, a form-only field should be referenced as
  1.  ;;^UTILITY(U,$J,.84,3084,1,2,0)
  1.  ;;={FO(field,block)} or {FO(field)}.  The page parameter should not be
  1.  ;;^UTILITY(U,$J,.84,3084,1,3,0)
  1.  ;;=included.
  1.  ;;^UTILITY(U,$J,.84,3084,2,0)
  1.  ;;=^^1^1^2931203^^
  1.  ;;^UTILITY(U,$J,.84,3084,2,1,0)
  1.  ;;=The FO() expression should not contain a page parameter.
  1.  ;;^UTILITY(U,$J,.84,3085,0)
  1.  ;;=3085^1^^5
  1.  ;;^UTILITY(U,$J,.84,3085,1,0)
  1.  ;;=^^3^3^2931203^
  1.  ;;^UTILITY(U,$J,.84,3085,1,1,0)
  1.  ;;=In a computed expression, a form-only field should be referenced as
  1.  ;;^UTILITY(U,$J,.84,3085,1,2,0)
  1.  ;;={FO(field,block)} or {FO(field)}.  The block parameter should be
  1.  ;;^UTILITY(U,$J,.84,3085,1,3,0)
  1.  ;;=either the block name or `block number.  It should not be a block order.
  1.  ;;^UTILITY(U,$J,.84,3085,2,0)
  1.  ;;=^^1^1^2931203^^
  1.  ;;^UTILITY(U,$J,.84,3085,2,1,0)
  1.  ;;=The FO() expression should not use block order to specify a block.
  1.  ;;^UTILITY(U,$J,.84,3086,0)
  1.  ;;=3086^1^^5
  1.  ;;^UTILITY(U,$J,.84,3086,1,0)
  1.  ;;=^^2^2^2940708^^
  1.  ;;^UTILITY(U,$J,.84,3086,1,1,0)
  1.  ;;=Reject calls to PUT^DDSVAL which attempt to set the .01 field of a file to
  1.  ;;^UTILITY(U,$J,.84,3086,1,2,0)
  1.  ;;="" or "@".
  1.  ;;^UTILITY(U,$J,.84,3086,2,0)
  1.  ;;=^^1^1^2940708^^^
  1.  ;;^UTILITY(U,$J,.84,3086,2,1,0)
  1.  ;;=PUT^DDSVAL cannot be used to delete an entry.
  1.  ;;^UTILITY(U,$J,.84,3091,0)
  1.  ;;=3091^1^^5
  1.  ;;^UTILITY(U,$J,.84,3091,1,0)
  1.  ;;=^^1^1^2930722^
  1.  ;;^UTILITY(U,$J,.84,3091,1,1,0)
  1.  ;;=The data could not be filed.
  1.  ;;^UTILITY(U,$J,.84,3091,2,0)
  1.  ;;=^^1^1^2931202^^
  1.  ;;^UTILITY(U,$J,.84,3091,2,1,0)
  1.  ;;=THE DATA COULD NOT BE FILED.
  1.  ;;^UTILITY(U,$J,.84,3092,0)
  1.  ;;=3092^1^y^5
  1.  ;;^UTILITY(U,$J,.84,3092,1,0)
  1.  ;;=^^1^1^2940713^^^^
  1.  ;;^UTILITY(U,$J,.84,3092,1,1,0)
  1.  ;;=The given field is required and its current value is null.
  1.  ;;^UTILITY(U,$J,.84,3092,2,0)
  1.  ;;=^^1^1^2940713^^^
  1.  ;;^UTILITY(U,$J,.84,3092,2,1,0)
  1.  ;;=|1|, |2| is a required field |3|
  1.  ;;^UTILITY(U,$J,.84,3092,3,0)
  1.  ;;=^.845^3^3
  1.  ;;^UTILITY(U,$J,.84,3092,3,1,0)
  1.  ;;=1^Page name
  1.  ;;^UTILITY(U,$J,.84,3092,3,2,0)
  1.  ;;=2^Caption
  1.  ;;^UTILITY(U,$J,.84,3092,3,3,0)
  1.  ;;=3^Subrecord name in parentheses
  1.  ;;^UTILITY(U,$J,.84,7001,0)
  1.  ;;=7001^2^^5
  1.  ;;^UTILITY(U,$J,.84,7001,1,0)
  1.  ;;=^^1^1^2940314^^^
  1.  ;;^UTILITY(U,$J,.84,7001,1,1,0)
  1.  ;;=This is the general Yes/No Prompt
  1.  ;;^UTILITY(U,$J,.84,7001,2,0)
  1.  ;;=^^1^1^2940314^^^
  1.  ;;^UTILITY(U,$J,.84,7001,2,1,0)
  1.  ;;=Yes^No
  1.  ;;^UTILITY(U,$J,.84,7002,0)
  1.  ;;=7002^2^^5
  1.  ;;^UTILITY(U,$J,.84,7002,1,0)
  1.  ;;=^^1^1^2940314^^^
  1.  ;;^UTILITY(U,$J,.84,7002,1,1,0)
  1.  ;;=Insert/Replace Switch
  1.  ;;^UTILITY(U,$J,.84,7002,2,0)
  1.  ;;=^^1^1^2940314^^
  1.  ;;^UTILITY(U,$J,.84,7002,2,1,0)
  1.  ;;=Insert ^Replace