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

DINIT00D.m

Go to the documentation of this file.
  1. DINIT00D ; 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,1846,0)
  1. ;;=1846^1^y
  1. ;;^UTILITY(U,$J,.84,1846,1,0)
  1. ;;=^^1^1^2950317^^
  1. ;;^UTILITY(U,$J,.84,1846,1,1,0)
  1. ;;=A file or subfile must have only one string of fields associated with it.
  1. ;;^UTILITY(U,$J,.84,1846,2,0)
  1. ;;=^^1^1^2950317^^
  1. ;;^UTILITY(U,$J,.84,1846,2,1,0)
  1. ;;=File #|FILE| appears more than once in the import with different fields.
  1. ;;^UTILITY(U,$J,.84,1846,3,0)
  1. ;;=^.845^1^1
  1. ;;^UTILITY(U,$J,.84,1846,3,1,0)
  1. ;;=FILE^File or subfile number.
  1. ;;^UTILITY(U,$J,.84,1850,0)
  1. ;;=1850^1^^5
  1. ;;^UTILITY(U,$J,.84,1850,1,0)
  1. ;;=^^4^4^2960718^^
  1. ;;^UTILITY(U,$J,.84,1850,1,1,0)
  1. ;;=The device for printing the Import report was not properly specified.
  1. ;;^UTILITY(U,$J,.84,1850,1,2,0)
  1. ;;=This could be caused either by a user's response or by the
  1. ;;^UTILITY(U,$J,.84,1850,1,3,0)
  1. ;;=device specifications passed to the FILE^DDMP call. The problem
  1. ;;^UTILITY(U,$J,.84,1850,1,4,0)
  1. ;;=could involve either device or queuing instructions.
  1. ;;^UTILITY(U,$J,.84,1850,2,0)
  1. ;;=^^1^1^2960718^^
  1. ;;^UTILITY(U,$J,.84,1850,2,1,0)
  1. ;;=There is an error in device selection or queuing setup.
  1. ;;^UTILITY(U,$J,.84,1860,0)
  1. ;;=1860^1^^5
  1. ;;^UTILITY(U,$J,.84,1860,1,0)
  1. ;;=^^1^1^2960906^
  1. ;;^UTILITY(U,$J,.84,1860,1,1,0)
  1. ;;=The record being imported has no data.
  1. ;;^UTILITY(U,$J,.84,1860,2,0)
  1. ;;=^^1^1^2960906^
  1. ;;^UTILITY(U,$J,.84,1860,2,1,0)
  1. ;;=The record being imported has no data.
  1. ;;^UTILITY(U,$J,.84,1862,0)
  1. ;;=1862^1^^5
  1. ;;^UTILITY(U,$J,.84,1862,1,0)
  1. ;;=^^4^4^2960906^^
  1. ;;^UTILITY(U,$J,.84,1862,1,1,0)
  1. ;;=When parsing the imported record, more fields were found than expected.
  1. ;;^UTILITY(U,$J,.84,1862,1,2,0)
  1. ;;=There were either more delimiter-pieces than expected or the length of a
  1. ;;^UTILITY(U,$J,.84,1862,1,3,0)
  1. ;;=fixed length import was too long. This probably means that the incoming
  1. ;;^UTILITY(U,$J,.84,1862,1,4,0)
  1. ;;=file is corrupted.
  1. ;;^UTILITY(U,$J,.84,1862,2,0)
  1. ;;=^^1^1^2960906^^
  1. ;;^UTILITY(U,$J,.84,1862,2,1,0)
  1. ;;=There are more fields in the incoming record than expected.
  1. ;;^UTILITY(U,$J,.84,1870,0)
  1. ;;=1870^1^y^5
  1. ;;^UTILITY(U,$J,.84,1870,1,0)
  1. ;;=^^2^2^2960913^
  1. ;;^UTILITY(U,$J,.84,1870,1,1,0)
  1. ;;=A requested import template does not exist in the Import Template file
  1. ;;^UTILITY(U,$J,.84,1870,1,2,0)
  1. ;;=for the file being imported into.
  1. ;;^UTILITY(U,$J,.84,1870,2,0)
  1. ;;=^^1^1^2961002^^^
  1. ;;^UTILITY(U,$J,.84,1870,2,1,0)
  1. ;;=Import template |1| does not exist for File #|FILE|.
  1. ;;^UTILITY(U,$J,.84,1870,3,0)
  1. ;;=^.845^2^2
  1. ;;^UTILITY(U,$J,.84,1870,3,1,0)
  1. ;;=1^Template name.
  1. ;;^UTILITY(U,$J,.84,1870,3,2,0)
  1. ;;=FILE^File number.
  1. ;;^UTILITY(U,$J,.84,3000,0)
  1. ;;=3000^1^^5
  1. ;;^UTILITY(U,$J,.84,3000,1,0)
  1. ;;=^^1^1^2930721^
  1. ;;^UTILITY(U,$J,.84,3000,1,1,0)
  1. ;;=Initial call to ^DDS failed.
  1. ;;^UTILITY(U,$J,.84,3000,2,0)
  1. ;;=^^1^1^2931202^
  1. ;;^UTILITY(U,$J,.84,3000,2,1,0)
  1. ;;=THE FORM COULD NOT BE INVOKED.
  1. ;;^UTILITY(U,$J,.84,3002,0)
  1. ;;=3002^1^y^5
  1. ;;^UTILITY(U,$J,.84,3002,1,0)
  1. ;;=^^1^1^2931202^
  1. ;;^UTILITY(U,$J,.84,3002,1,1,0)
  1. ;;=An error was encountered during Form compilation.
  1. ;;^UTILITY(U,$J,.84,3002,2,0)
  1. ;;=^^1^1^2931202^^
  1. ;;^UTILITY(U,$J,.84,3002,2,1,0)
  1. ;;=THE FORM "|1|" COULD NOT BE COMPILED.
  1. ;;^UTILITY(U,$J,.84,3002,3,0)
  1. ;;=^.845^1^1
  1. ;;^UTILITY(U,$J,.84,3002,3,1,0)
  1. ;;=1^Form name
  1. ;;^UTILITY(U,$J,.84,3011,0)
  1. ;;=3011^1^y^5
  1. ;;^UTILITY(U,$J,.84,3011,1,0)
  1. ;;=^^1^1^2931201^
  1. ;;^UTILITY(U,$J,.84,3011,1,1,0)
  1. ;;=The specified field is missing or invalid.
  1. ;;^UTILITY(U,$J,.84,3011,2,0)
  1. ;;=^^1^1^2931201^
  1. ;;^UTILITY(U,$J,.84,3011,2,1,0)
  1. ;;=The |1| field of the |2| file is missing or invalid.
  1. ;;^UTILITY(U,$J,.84,3011,3,0)
  1. ;;=^.845^2^2
  1. ;;^UTILITY(U,$J,.84,3011,3,1,0)
  1. ;;=1^Field or subfield name
  1. ;;^UTILITY(U,$J,.84,3011,3,2,0)
  1. ;;=2^File name
  1. ;;^UTILITY(U,$J,.84,3012,0)
  1. ;;=3012^1^y^5
  1. ;;^UTILITY(U,$J,.84,3012,1,0)
  1. ;;=^^2^2^2931201^
  1. ;;^UTILITY(U,$J,.84,3012,1,1,0)
  1. ;;=The specified file or subfile does not exist; it is not present in the
  1. ;;^UTILITY(U,$J,.84,3012,1,2,0)
  1. ;;=data dictionary.
  1. ;;^UTILITY(U,$J,.84,3012,2,0)
  1. ;;=^^1^1^2931201^
  1. ;;^UTILITY(U,$J,.84,3012,2,1,0)
  1. ;;=File |1| does not exist.
  1. ;;^UTILITY(U,$J,.84,3012,3,0)
  1. ;;=^.845^1^1
  1. ;;^UTILITY(U,$J,.84,3012,3,1,0)
  1. ;;=1^File number or name
  1. ;;^UTILITY(U,$J,.84,3021,0)
  1. ;;=3021^1^y^5
  1. ;;^UTILITY(U,$J,.84,3021,1,0)
  1. ;;=^^1^1^2940811^^^
  1. ;;^UTILITY(U,$J,.84,3021,1,1,0)
  1. ;;=A lookup in to the Form file for the given form failed.
  1. ;;^UTILITY(U,$J,.84,3021,2,0)
  1. ;;=^^2^2^2940811^
  1. ;;^UTILITY(U,$J,.84,3021,2,1,0)
  1. ;;=Form |1| does not exist in the Form file, or DDSFILE is not the Primary
  1. ;;^UTILITY(U,$J,.84,3021,2,2,0)
  1. ;;=File of the form.
  1. ;;^UTILITY(U,$J,.84,3021,3,0)
  1. ;;=^.845^1^1
  1. ;;^UTILITY(U,$J,.84,3021,3,1,0)
  1. ;;=1^Form name
  1. ;;^UTILITY(U,$J,.84,3022,0)
  1. ;;=3022^1^y^5
  1. ;;^UTILITY(U,$J,.84,3022,1,0)
  1. ;;=^^1^1^2931130^^
  1. ;;^UTILITY(U,$J,.84,3022,1,1,0)
  1. ;;=There are no pages defined in the Page multiple of the given form.
  1. ;;^UTILITY(U,$J,.84,3022,2,0)
  1. ;;=^^1^1^2931130^^
  1. ;;^UTILITY(U,$J,.84,3022,2,1,0)
  1. ;;=Form |1| contains no pages.
  1. ;;^UTILITY(U,$J,.84,3022,3,0)
  1. ;;=^.845^1^1
  1. ;;^UTILITY(U,$J,.84,3022,3,1,0)
  1. ;;=1^Form name
  1. ;;^UTILITY(U,$J,.84,3023,0)
  1. ;;=3023^1^y^5
  1. ;;^UTILITY(U,$J,.84,3023,1,0)
  1. ;;=^^1^1^2931129^^
  1. ;;^UTILITY(U,$J,.84,3023,1,1,0)
  1. ;;=The given page was not found on the form.
  1. ;;^UTILITY(U,$J,.84,3023,2,0)
  1. ;;=^^1^1^2931129^^^
  1. ;;^UTILITY(U,$J,.84,3023,2,1,0)
  1. ;;=The form does not contain a page |1|.
  1. ;;^UTILITY(U,$J,.84,3023,3,0)
  1. ;;=^.845^1^1
  1. ;;^UTILITY(U,$J,.84,3023,3,1,0)
  1. ;;=1^Page name or number
  1. ;;^UTILITY(U,$J,.84,3031,0)
  1. ;;=3031^1^y^5
  1. ;;^UTILITY(U,$J,.84,3031,1,0)
  1. ;;=^^1^1^2931124^
  1. ;;^UTILITY(U,$J,.84,3031,1,1,0)
  1. ;;=The call to the specified ScreenMan utility failed.
  1. ;;^UTILITY(U,$J,.84,3031,2,0)
  1. ;;=^^1^1^2931124^
  1. ;;^UTILITY(U,$J,.84,3031,2,1,0)
  1. ;;=NOTE: The programmer call to the |1| ScreenMan utility failed.
  1. ;;^UTILITY(U,$J,.84,3031,3,0)
  1. ;;=^.845^1^1
  1. ;;^UTILITY(U,$J,.84,3031,3,1,0)
  1. ;;=1^ScreenMan utility entry point.
  1. ;;^UTILITY(U,$J,.84,3041,0)
  1. ;;=3041^1^y^5
  1. ;;^UTILITY(U,$J,.84,3041,1,0)
  1. ;;=^^1^1^2931130^^
  1. ;;^UTILITY(U,$J,.84,3041,1,1,0)
  1. ;;=Errors were encountered while attempting to load the page.
  1. ;;^UTILITY(U,$J,.84,3041,2,0)
  1. ;;=^^1^1^2931130^
  1. ;;^UTILITY(U,$J,.84,3041,2,1,0)
  1. ;;=Page |1| (|2|) could not be loaded.
  1. ;;^UTILITY(U,$J,.84,3041,3,0)
  1. ;;=^.845^2^2
  1. ;;^UTILITY(U,$J,.84,3041,3,1,0)
  1. ;;=1^Page number
  1. ;;^UTILITY(U,$J,.84,3041,3,2,0)
  1. ;;=2^Page name
  1. ;;^UTILITY(U,$J,.84,3051,0)
  1. ;;=3051^1^y^5