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

DINIT00A.m

Go to the documentation of this file.
  1. DINIT00A ;SFISC/TKW-DIALOG & LANGUAGE FILE INITS ;3/30/99 10:41:48
  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. Q Q
  1. ;;^UTILITY(U,$J,.84,720,1,2,0)
  1. ;;=LAYGO is not allowed.
  1. ;;^UTILITY(U,$J,.84,720,2,0)
  1. ;;=^^1^1^2931109^
  1. ;;^UTILITY(U,$J,.84,720,2,1,0)
  1. ;;=The value cannot be found in the pointed-to file.
  1. ;;^UTILITY(U,$J,.84,720,3,0)
  1. ;;=^.845^2^2
  1. ;;^UTILITY(U,$J,.84,720,3,1,0)
  1. ;;=FILE^File number -- the number of the file in which the pointer field exists.
  1. ;;^UTILITY(U,$J,.84,720,3,2,0)
  1. ;;=FIELD^Field number of the pointer field.
  1. ;;^UTILITY(U,$J,.84,726,0)
  1. ;;=726^1^y^5
  1. ;;^UTILITY(U,$J,.84,726,1,0)
  1. ;;=^^2^2^2931110^
  1. ;;^UTILITY(U,$J,.84,726,1,1,0)
  1. ;;=There is an attempt to take an action with word processing data, but
  1. ;;^UTILITY(U,$J,.84,726,1,2,0)
  1. ;;=the specified field is not a word processing field.
  1. ;;^UTILITY(U,$J,.84,726,2,0)
  1. ;;=^^1^1^2931110^
  1. ;;^UTILITY(U,$J,.84,726,2,1,0)
  1. ;;=Field #|FIELD| in File #|FILE| is not a word processing field.
  1. ;;^UTILITY(U,$J,.84,726,3,0)
  1. ;;=^.845^2^2
  1. ;;^UTILITY(U,$J,.84,726,3,1,0)
  1. ;;=FIELD^Field number.
  1. ;;^UTILITY(U,$J,.84,726,3,2,0)
  1. ;;=FILE^File number.
  1. ;;^UTILITY(U,$J,.84,730,0)
  1. ;;=730^1^y^5
  1. ;;^UTILITY(U,$J,.84,730,1,0)
  1. ;;=^^2^2^2941128^
  1. ;;^UTILITY(U,$J,.84,730,1,1,0)
  1. ;;=Based on how the data type is defined by a specific field in a specific
  1. ;;^UTILITY(U,$J,.84,730,1,2,0)
  1. ;;=file, the passed value is not valid.
  1. ;;^UTILITY(U,$J,.84,730,2,0)
  1. ;;=^^2^2^2941128^
  1. ;;^UTILITY(U,$J,.84,730,2,1,0)
  1. ;;=The value '|1|' is not a valid |2| according to the definition in Field
  1. ;;^UTILITY(U,$J,.84,730,2,2,0)
  1. ;;=#|FIELD| of File #|FILE|.
  1. ;;^UTILITY(U,$J,.84,730,3,0)
  1. ;;=^.845^4^4
  1. ;;^UTILITY(U,$J,.84,730,3,1,0)
  1. ;;=1^Passed Value.
  1. ;;^UTILITY(U,$J,.84,730,3,2,0)
  1. ;;=2^Data Type.
  1. ;;^UTILITY(U,$J,.84,730,3,3,0)
  1. ;;=FIELD^Field #.
  1. ;;^UTILITY(U,$J,.84,730,3,4,0)
  1. ;;=FILE^File #.
  1. ;;^UTILITY(U,$J,.84,740,0)
  1. ;;=740^1^y^5
  1. ;;^UTILITY(U,$J,.84,740,1,0)
  1. ;;=^^5^5^2980407^^^^
  1. ;;^UTILITY(U,$J,.84,740,1,1,0)
  1. ;;=When one or more fields are declared as a key for a file, there cannot be
  1. ;;^UTILITY(U,$J,.84,740,1,2,0)
  1. ;;=duplicate values in those field(s) for entries in the file. The values
  1. ;;^UTILITY(U,$J,.84,740,1,3,0)
  1. ;;=being passed for validation, when combined with values for unchanging
  1. ;;^UTILITY(U,$J,.84,740,1,4,0)
  1. ;;=fields in the entry if necessary, create a duplicate key. The changes
  1. ;;^UTILITY(U,$J,.84,740,1,5,0)
  1. ;;=destroy the integrity of the key. Therefore, they are invalid.
  1. ;;^UTILITY(U,$J,.84,740,2,0)
  1. ;;=^^1^1^2980407^
  1. ;;^UTILITY(U,$J,.84,740,2,1,0)
  1. ;;=New values are invalid because they create a duplicate Key '|1|' for the |2| file.
  1. ;;^UTILITY(U,$J,.84,740,3,0)
  1. ;;=^.845^5^5
  1. ;;^UTILITY(U,$J,.84,740,3,1,0)
  1. ;;=1^Name of Key.
  1. ;;^UTILITY(U,$J,.84,740,3,2,0)
  1. ;;=2^Name of affected file.
  1. ;;^UTILITY(U,$J,.84,740,3,3,0)
  1. ;;=FILE^File number.
  1. ;;^UTILITY(U,$J,.84,740,3,4,0)
  1. ;;=KEY^IEN of the invalid key.
  1. ;;^UTILITY(U,$J,.84,740,3,5,0)
  1. ;;=IENS^IENS of record with invalid key.
  1. ;;^UTILITY(U,$J,.84,741,0)
  1. ;;=741^1^^5
  1. ;;^UTILITY(U,$J,.84,741,1,0)
  1. ;;=^^3^3^2981208^
  1. ;;^UTILITY(U,$J,.84,741,1,1,0)
  1. ;;=Error message generated when user is adding a new entry using classic
  1. ;;^UTILITY(U,$J,.84,741,1,2,0)
  1. ;;=FileMan lookup ^DIC routines, and either key values are not entered, or
  1. ;;^UTILITY(U,$J,.84,741,1,3,0)
  1. ;;=they create a duplicate key.
  1. ;;^UTILITY(U,$J,.84,741,2,0)
  1. ;;=^^1^1^2981208^
  1. ;;^UTILITY(U,$J,.84,741,2,1,0)
  1. ;;=Either key values are null, or they create a duplicate key.
  1. ;;^UTILITY(U,$J,.84,741,5,0)
  1. ;;=^.841^1^1
  1. ;;^UTILITY(U,$J,.84,741,5,1,0)
  1. ;;=DICN1^A
  1. ;;^UTILITY(U,$J,.84,742,0)
  1. ;;=742^1^y^5
  1. ;;^UTILITY(U,$J,.84,742,1,0)
  1. ;;=^^2^2^2980407^^^^
  1. ;;^UTILITY(U,$J,.84,742,1,1,0)
  1. ;;=Every field in a key must have a value. The incoming data cannot delete
  1. ;;^UTILITY(U,$J,.84,742,1,2,0)
  1. ;;=the value for any field in a key.
  1. ;;^UTILITY(U,$J,.84,742,2,0)
  1. ;;=^^1^1^2980407^^
  1. ;;^UTILITY(U,$J,.84,742,2,1,0)
  1. ;;=The value of field |1| in the |2| file cannot be deleted because that field is part of the '|3|' key.
  1. ;;^UTILITY(U,$J,.84,742,3,0)
  1. ;;=^.845^6^6
  1. ;;^UTILITY(U,$J,.84,742,3,1,0)
  1. ;;=1^Field name
  1. ;;^UTILITY(U,$J,.84,742,3,2,0)
  1. ;;=2^File name
  1. ;;^UTILITY(U,$J,.84,742,3,3,0)
  1. ;;=3^Key name
  1. ;;^UTILITY(U,$J,.84,742,3,4,0)
  1. ;;=FILE^File number.
  1. ;;^UTILITY(U,$J,.84,742,3,5,0)
  1. ;;=FIELD^Field number.
  1. ;;^UTILITY(U,$J,.84,742,3,6,0)
  1. ;;=IENS^IENS
  1. ;;^UTILITY(U,$J,.84,744,0)
  1. ;;=744^1^y^5
  1. ;;^UTILITY(U,$J,.84,744,1,0)
  1. ;;=^^2^2^2980413^^^^
  1. ;;^UTILITY(U,$J,.84,744,1,1,0)
  1. ;;=Every field that is in a key must have a value. No value for this field
  1. ;;^UTILITY(U,$J,.84,744,1,2,0)
  1. ;;=exists.
  1. ;;^UTILITY(U,$J,.84,744,2,0)
  1. ;;=^^1^1^2980407^^^^
  1. ;;^UTILITY(U,$J,.84,744,2,1,0)
  1. ;;=Field |1| is part of Key '|2|', but the field has not been assigned a value.
  1. ;;^UTILITY(U,$J,.84,744,3,0)
  1. ;;=^.845^5^5
  1. ;;^UTILITY(U,$J,.84,744,3,1,0)
  1. ;;=1^Field name.
  1. ;;^UTILITY(U,$J,.84,744,3,2,0)
  1. ;;=2^Key name.
  1. ;;^UTILITY(U,$J,.84,744,3,3,0)
  1. ;;=FIELD^Field number.
  1. ;;^UTILITY(U,$J,.84,744,3,4,0)
  1. ;;=FILE^File number.
  1. ;;^UTILITY(U,$J,.84,744,3,5,0)
  1. ;;=IENS^IENS of record with incomplete key.
  1. ;;^UTILITY(U,$J,.84,746,0)
  1. ;;=746^1^y^5
  1. ;;^UTILITY(U,$J,.84,746,1,0)
  1. ;;=^^2^2^2980415^^^^
  1. ;;^UTILITY(U,$J,.84,746,1,1,0)
  1. ;;=A lookup node is present in the FDA, but no Primary Key fields are
  1. ;;^UTILITY(U,$J,.84,746,1,2,0)
  1. ;;=provided.
  1. ;;^UTILITY(U,$J,.84,746,2,0)
  1. ;;=^^1^1^2980415^
  1. ;;^UTILITY(U,$J,.84,746,2,1,0)
  1. ;;=No fields in Primary Key '|1|' have been provided in the FDA to look up '|IENS|' in the |2| file.
  1. ;;^UTILITY(U,$J,.84,746,3,0)
  1. ;;=^.845^5^5
  1. ;;^UTILITY(U,$J,.84,746,3,1,0)
  1. ;;=1^Key name.
  1. ;;^UTILITY(U,$J,.84,746,3,2,0)
  1. ;;=2^File name.
  1. ;;^UTILITY(U,$J,.84,746,3,3,0)
  1. ;;=IENS^IENS of lookup node.
  1. ;;^UTILITY(U,$J,.84,746,3,4,0)
  1. ;;=KEY^Key number.
  1. ;;^UTILITY(U,$J,.84,746,3,5,0)
  1. ;;=FILE^File number.
  1. ;;^UTILITY(U,$J,.84,810,0)
  1. ;;=810^1^^5
  1. ;;^UTILITY(U,$J,.84,810,1,0)
  1. ;;=^^3^3^2931109^
  1. ;;^UTILITY(U,$J,.84,810,1,1,0)
  1. ;;=A %ZOSF node required to perform a function does not exist. The
  1. ;;^UTILITY(U,$J,.84,810,1,2,0)
  1. ;;=VA FileMan Programmer's Manual contains a complete list of %ZOSF
  1. ;;^UTILITY(U,$J,.84,810,1,3,0)
  1. ;;=nodes.
  1. ;;^UTILITY(U,$J,.84,810,2,0)
  1. ;;=^^1^1^2931109^
  1. ;;^UTILITY(U,$J,.84,810,2,1,0)
  1. ;;=A necessary %ZOSF node does not exist on your system.
  1. ;;^UTILITY(U,$J,.84,820,0)
  1. ;;=820^1^^5
  1. ;;^UTILITY(U,$J,.84,820,1,0)
  1. ;;=^^3^3^2931109^
  1. ;;^UTILITY(U,$J,.84,820,1,1,0)
  1. ;;=The ZSAVE CODE field (#2619) in the MUMPS Operating System file (#.7)