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

DINIT00L.m

Go to the documentation of this file. 
  1. DINIT00L ;SFISC/TKW-DIALOG & LANGUAGE FILE INITS ;29AUG2003
  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,8084,2,0)
  1.  ;;=^^1^1^2940318^
  1.  ;;^UTILITY(U,$J,.84,8084,2,1,0)
  1.  ;;=file number
  1.  ;;^UTILITY(U,$J,.84,8084,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8084,5,1,0)
  1.  ;;=DIT^TRNMRG
  1.  ;;^UTILITY(U,$J,.84,8085,0)
  1.  ;;=8085^2^^5
  1.  ;;^UTILITY(U,$J,.84,8085,1,0)
  1.  ;;=^^1^1^2940426^^
  1.  ;;^UTILITY(U,$J,.84,8085,1,1,0)
  1.  ;;=The words 'IEN string' to be used in any dialog.
  1.  ;;^UTILITY(U,$J,.84,8085,2,0)
  1.  ;;=^^1^1^2940426^^
  1.  ;;^UTILITY(U,$J,.84,8085,2,1,0)
  1.  ;;=IEN string
  1.  ;;^UTILITY(U,$J,.84,8085,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8085,5,1,0)
  1.  ;;=DIT^TRNMRG
  1.  ;;^UTILITY(U,$J,.84,8086,0)
  1.  ;;=8086^2^^5
  1.  ;;^UTILITY(U,$J,.84,8086,1,0)
  1.  ;;=^^1^1^2940608^^^^
  1.  ;;^UTILITY(U,$J,.84,8086,1,1,0)
  1.  ;;=Warning to use the merge only during non-peak times.
  1.  ;;^UTILITY(U,$J,.84,8086,2,0)
  1.  ;;=^^5^5^2940608^
  1.  ;;^UTILITY(U,$J,.84,8086,2,1,0)
  1.  ;;= 
  1.  ;;^UTILITY(U,$J,.84,8086,2,2,0)
  1.  ;;=NOTE: Use this option ONLY DURING NON-PEAK HOURS if merging entries in a
  1.  ;;^UTILITY(U,$J,.84,8086,2,3,0)
  1.  ;;=file that is pointed-to either by many files, or by large files.
  1.  ;;^UTILITY(U,$J,.84,8086,2,4,0)
  1.  ;;= 
  1.  ;;^UTILITY(U,$J,.84,8086,2,5,0)
  1.  ;;=MERGE ENTRIES AFTER COMPARING THEM 
  1.  ;;^UTILITY(U,$J,.84,8087,0)
  1.  ;;=8087^2^y^5^End of Page message for Lookup (DIC)
  1.  ;;^UTILITY(U,$J,.84,8087,1,0)
  1.  ;;=^^2^2^2970529^
  1.  ;;^UTILITY(U,$J,.84,8087,1,1,0)
  1.  ;;=Displays the end of page message displayed at the bottom of a screen after
  1.  ;;^UTILITY(U,$J,.84,8087,1,2,0)
  1.  ;;=a list of selectable entries is displayed during lookup (^DIC).
  1.  ;;^UTILITY(U,$J,.84,8087,2,0)
  1.  ;;=^^1^1^2970529^
  1.  ;;^UTILITY(U,$J,.84,8087,2,1,0)
  1.  ;;=Press <Enter> to see more, '^' to exit this list, |T| OR
  1.  ;;^UTILITY(U,$J,.84,8087,3,0)
  1.  ;;=^.845^1^1
  1.  ;;^UTILITY(U,$J,.84,8087,3,1,0)
  1.  ;;=T^TO EXIT ALL LISTS
  1.  ;;^UTILITY(U,$J,.84,8087,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8087,5,1,0)
  1.  ;;=DIC1^DSP
  1.  ;;^UTILITY(U,$J,.84,8088,0)
  1.  ;;=8088^2^y^5
  1.  ;;^UTILITY(U,$J,.84,8088,1,0)
  1.  ;;=^^2^2^2970529^^
  1.  ;;^UTILITY(U,$J,.84,8088,1,1,0)
  1.  ;;=Message directing the user to Choose one of the displayed selections
  1.  ;;^UTILITY(U,$J,.84,8088,1,2,0)
  1.  ;;=during lookup (^DIC).
  1.  ;;^UTILITY(U,$J,.84,8088,2,0)
  1.  ;;=^^1^1^2970529^
  1.  ;;^UTILITY(U,$J,.84,8088,2,1,0)
  1.  ;;=CHOOSE |1|-|2|: 
  1.  ;;^UTILITY(U,$J,.84,8088,3,0)
  1.  ;;=^.845^2^2
  1.  ;;^UTILITY(U,$J,.84,8088,3,1,0)
  1.  ;;=1^Starting number in displayed list
  1.  ;;^UTILITY(U,$J,.84,8088,3,2,0)
  1.  ;;=2^Ending number in displayed list
  1.  ;;^UTILITY(U,$J,.84,8088,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8088,5,1,0)
  1.  ;;=DIC1^DSP
  1.  ;;^UTILITY(U,$J,.84,8089,0)
  1.  ;;=8089^2^y^5
  1.  ;;^UTILITY(U,$J,.84,8089,1,0)
  1.  ;;=^^2^2^2970609^^
  1.  ;;^UTILITY(U,$J,.84,8089,1,1,0)
  1.  ;;=Message used during interactive ^DIC to display the file and index name
  1.  ;;^UTILITY(U,$J,.84,8089,1,2,0)
  1.  ;;=on which the displayed entries were found.
  1.  ;;^UTILITY(U,$J,.84,8089,2,0)
  1.  ;;=^^1^1^2970609^^
  1.  ;;^UTILITY(U,$J,.84,8089,2,1,0)
  1.  ;;=Matches to: |1| |2|.
  1.  ;;^UTILITY(U,$J,.84,8089,3,0)
  1.  ;;=^.845^2^2
  1.  ;;^UTILITY(U,$J,.84,8089,3,1,0)
  1.  ;;=1^File name
  1.  ;;^UTILITY(U,$J,.84,8089,3,2,0)
  1.  ;;=2^Indexed field name
  1.  ;;^UTILITY(U,$J,.84,8089,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8089,5,1,0)
  1.  ;;=DIC1^DSP
  1.  ;;^UTILITY(U,$J,.84,8090,0)
  1.  ;;=8090^2^^5
  1.  ;;^UTILITY(U,$J,.84,8090,1,0)
  1.  ;;=^^3^3^2970626^
  1.  ;;^UTILITY(U,$J,.84,8090,1,1,0)
  1.  ;;=Used in displaying an error message when the lookup value X does not pass
  1.  ;;^UTILITY(U,$J,.84,8090,1,2,0)
  1.  ;;=the Pre-lookup transform code (^DD(File#,.01,7.5) node) during ^DIC or
  1.  ;;^UTILITY(U,$J,.84,8090,1,3,0)
  1.  ;;=Finder lookups.
  1.  ;;^UTILITY(U,$J,.84,8090,2,0)
  1.  ;;=^^1^1^2970626^
  1.  ;;^UTILITY(U,$J,.84,8090,2,1,0)
  1.  ;;=Pre-lookup transform (7.5 node)
  1.  ;;^UTILITY(U,$J,.84,8090,5,0)
  1.  ;;=^.841^2^2
  1.  ;;^UTILITY(U,$J,.84,8090,5,1,0)
  1.  ;;=DIC
  1.  ;;^UTILITY(U,$J,.84,8090,5,2,0)
  1.  ;;=DICF
  1.  ;;^UTILITY(U,$J,.84,8091,0)
  1.  ;;=8091^1^^5^
  1.  ;;^UTILITY(U,$J,.84,8091,1,0)
  1.  ;;=^^1^1^2970715^
  1.  ;;^UTILITY(U,$J,.84,8091,1,1,0)
  1.  ;;=Error set when user times out.
  1.  ;;^UTILITY(U,$J,.84,8091,2,0)
  1.  ;;=^^1^1^2970715^
  1.  ;;^UTILITY(U,$J,.84,8091,2,1,0)
  1.  ;;=User timed out.
  1.  ;;^UTILITY(U,$J,.84,8091,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8091,5,1,0)
  1.  ;;=DIC1^Y
  1.  ;;^UTILITY(U,$J,.84,8092,0)
  1.  ;;=8092^1^^5
  1.  ;;^UTILITY(U,$J,.84,8092,1,0)
  1.  ;;=^^1^1^2970715^
  1.  ;;^UTILITY(U,$J,.84,8092,1,1,0)
  1.  ;;=Error when user up-arrows out.
  1.  ;;^UTILITY(U,$J,.84,8092,2,0)
  1.  ;;=^^1^1^2970715^
  1.  ;;^UTILITY(U,$J,.84,8092,2,1,0)
  1.  ;;=User up-arrowed out.
  1.  ;;^UTILITY(U,$J,.84,8092,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8092,5,1,0)
  1.  ;;=DIC1^Y
  1.  ;;^UTILITY(U,$J,.84,8093,0)
  1.  ;;=8093^1^^5
  1.  ;;^UTILITY(U,$J,.84,8093,1,0)
  1.  ;;=^^4^4^2970722^
  1.  ;;^UTILITY(U,$J,.84,8093,1,1,0)
  1.  ;;=Error that occurs when user passes too many lookup values to either the
  1.  ;;^UTILITY(U,$J,.84,8093,1,2,0)
  1.  ;;=Finder call ^DICF or the FileMan lookup ^DIC.  When the number of lookup
  1.  ;;^UTILITY(U,$J,.84,8093,1,3,0)
  1.  ;;=values exceeds the number of subscripts in the index passed (or the
  1.  ;;^UTILITY(U,$J,.84,8093,1,4,0)
  1.  ;;=default index if no index is passed).
  1.  ;;^UTILITY(U,$J,.84,8093,2,0)
  1.  ;;=^^1^1^2970722^
  1.  ;;^UTILITY(U,$J,.84,8093,2,1,0)
  1.  ;;=Too many lookup values for this index.
  1.  ;;^UTILITY(U,$J,.84,8093,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8093,5,1,0)
  1.  ;;=DIC3^ASK
  1.  ;;^UTILITY(U,$J,.84,8094,0)
  1.  ;;=8094^1^^5
  1.  ;;^UTILITY(U,$J,.84,8094,1,0)
  1.  ;;=^^3^3^2970820^
  1.  ;;^UTILITY(U,$J,.84,8094,1,1,0)
  1.  ;;=Error message returned from ^DICF or ^DIC when flags parameter or
  1.  ;;^UTILITY(U,$J,.84,8094,1,2,0)
  1.  ;;=DIC(0) contains an "X", but not enough lookup values passed for the number
  1.  ;;^UTILITY(U,$J,.84,8094,1,3,0)
  1.  ;;=of subscripts in the lookup index.
  1.  ;;^UTILITY(U,$J,.84,8094,2,0)
  1.  ;;=^^1^1^2970820^
  1.  ;;^UTILITY(U,$J,.84,8094,2,1,0)
  1.  ;;=Not enough lookup values provided for an exact match on this index.
  1.  ;;^UTILITY(U,$J,.84,8094,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8094,5,1,0)
  1.  ;;=DIC31^CHKVAL1
  1.  ;;^UTILITY(U,$J,.84,8095,0)
  1.  ;;=8095^1^^5
  1.  ;;^UTILITY(U,$J,.84,8095,1,0)
  1.  ;;=^^3^3^2990104^^
  1.  ;;^UTILITY(U,$J,.84,8095,1,1,0)
  1.  ;;=In calls to the Finder, IX^DIC or MIX^DIC, if the first index passed (or
  1.  ;;^UTILITY(U,$J,.84,8095,1,2,0)
  1.  ;;=the default index) is a compound index, then only one index can be passed,
  1.  ;;^UTILITY(U,$J,.84,8095,1,3,0)
  1.  ;;=so DIC(0) (or flags) cannot contain "M".
  1.  ;;^UTILITY(U,$J,.84,8095,2,0)
  1.  ;;=^^1^1^2990104^
  1.  ;;^UTILITY(U,$J,.84,8095,2,1,0)
  1.  ;;=First lookup index is compound, so "M"ultiple index lookups not allowed.
  1.  ;;^UTILITY(U,$J,.84,8095,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8095,5,1,0)
  1.  ;;=DIC31^CHKVAL1
  1.  ;;^UTILITY(U,$J,.84,8096,0)
  1.  ;;=8096^1^^5
  1.  ;;^UTILITY(U,$J,.84,8096,1,0)
  1.  ;;=^^2^2^2971001^
  1.  ;;^UTILITY(U,$J,.84,8096,1,1,0)
  1.  ;;=Error message from ^DIC or ^DICQ when DIC contains a subfile number