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

DINIT00K.m

Go to the documentation of this file. 
  1. DINIT00K ; 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,8065,2,0)
  1.  ;;=^^1^1^2940314^^^
  1.  ;;^UTILITY(U,$J,.84,8065,2,1,0)
  1.  ;;=|1|-Entry 
  1.  ;;^UTILITY(U,$J,.84,8065,3,0)
  1.  ;;=^.845^1^1
  1.  ;;^UTILITY(U,$J,.84,8065,3,1,0)
  1.  ;;=1^Number of entries in list
  1.  ;;^UTILITY(U,$J,.84,8066,0)
  1.  ;;=8066^2^y^5
  1.  ;;^UTILITY(U,$J,.84,8066,1,0)
  1.  ;;=^^1^1^2940314^
  1.  ;;^UTILITY(U,$J,.84,8066,1,1,0)
  1.  ;;=Lookup Part IV
  1.  ;;^UTILITY(U,$J,.84,8066,2,0)
  1.  ;;=^^1^1^2940314^
  1.  ;;^UTILITY(U,$J,.84,8066,2,1,0)
  1.  ;;=|1| List
  1.  ;;^UTILITY(U,$J,.84,8066,3,0)
  1.  ;;=^.845^1^1
  1.  ;;^UTILITY(U,$J,.84,8066,3,1,0)
  1.  ;;=1^Filename
  1.  ;;^UTILITY(U,$J,.84,8067,0)
  1.  ;;=8067^2^^5
  1.  ;;^UTILITY(U,$J,.84,8067,1,0)
  1.  ;;=^^1^1^2940314^
  1.  ;;^UTILITY(U,$J,.84,8067,1,1,0)
  1.  ;;=For list of Fields on Lookup
  1.  ;;^UTILITY(U,$J,.84,8067,2,0)
  1.  ;;=^^1^1^2940314^
  1.  ;;^UTILITY(U,$J,.84,8067,2,1,0)
  1.  ;;=, or
  1.  ;;^UTILITY(U,$J,.84,8068,0)
  1.  ;;=8068^2^^5
  1.  ;;^UTILITY(U,$J,.84,8068,1,0)
  1.  ;;=^^1^1^2940314^
  1.  ;;^UTILITY(U,$J,.84,8068,1,1,0)
  1.  ;;=The Chooser
  1.  ;;^UTILITY(U,$J,.84,8068,2,0)
  1.  ;;=^^1^1^2940314^
  1.  ;;^UTILITY(U,$J,.84,8068,2,1,0)
  1.  ;;=Choose from:
  1.  ;;^UTILITY(U,$J,.84,8069,0)
  1.  ;;=8069^2^y^5
  1.  ;;^UTILITY(U,$J,.84,8069,1,0)
  1.  ;;=^^1^1^2940314^
  1.  ;;^UTILITY(U,$J,.84,8069,1,1,0)
  1.  ;;=New entry allowed message
  1.  ;;^UTILITY(U,$J,.84,8069,2,0)
  1.  ;;=^^1^1^2940315^^
  1.  ;;^UTILITY(U,$J,.84,8069,2,1,0)
  1.  ;;=You may enter a new |1|, if you wish
  1.  ;;^UTILITY(U,$J,.84,8069,3,0)
  1.  ;;=^.845^1^1
  1.  ;;^UTILITY(U,$J,.84,8069,3,1,0)
  1.  ;;=1^Filename
  1.  ;;^UTILITY(U,$J,.84,8070,0)
  1.  ;;=8070^2^y^5
  1.  ;;^UTILITY(U,$J,.84,8070,1,0)
  1.  ;;=^^1^1^2940314^
  1.  ;;^UTILITY(U,$J,.84,8070,1,1,0)
  1.  ;;=Variable Pointer Lookup
  1.  ;;^UTILITY(U,$J,.84,8070,2,0)
  1.  ;;=^^1^1^2980304^
  1.  ;;^UTILITY(U,$J,.84,8070,2,1,0)
  1.  ;;=     Searching for a |1|
  1.  ;;^UTILITY(U,$J,.84,8070,3,0)
  1.  ;;=^.845^1^1
  1.  ;;^UTILITY(U,$J,.84,8070,3,1,0)
  1.  ;;=1^Filename
  1.  ;;^UTILITY(U,$J,.84,8071,0)
  1.  ;;=8071^2^^5
  1.  ;;^UTILITY(U,$J,.84,8071,1,0)
  1.  ;;=^^1^1^2940314^
  1.  ;;^UTILITY(U,$J,.84,8071,1,1,0)
  1.  ;;=Variable Pointer lookup
  1.  ;;^UTILITY(U,$J,.84,8071,2,0)
  1.  ;;=^^1^1^2940314^
  1.  ;;^UTILITY(U,$J,.84,8071,2,1,0)
  1.  ;;=Enter one of the following:
  1.  ;;^UTILITY(U,$J,.84,8072,0)
  1.  ;;=8072^2^y^5
  1.  ;;^UTILITY(U,$J,.84,8072,1,0)
  1.  ;;=^^1^1^2940314^
  1.  ;;^UTILITY(U,$J,.84,8072,1,1,0)
  1.  ;;=Variable Pointer Lookup
  1.  ;;^UTILITY(U,$J,.84,8072,2,0)
  1.  ;;=^^1^1^2940314^
  1.  ;;^UTILITY(U,$J,.84,8072,2,1,0)
  1.  ;;=  |1|.EntryName to select a |2|
  1.  ;;^UTILITY(U,$J,.84,8072,3,0)
  1.  ;;=^.845^2^2
  1.  ;;^UTILITY(U,$J,.84,8072,3,1,0)
  1.  ;;=1^Prefix
  1.  ;;^UTILITY(U,$J,.84,8072,3,2,0)
  1.  ;;=2^Filename
  1.  ;;^UTILITY(U,$J,.84,8073,0)
  1.  ;;=8073^2^^5
  1.  ;;^UTILITY(U,$J,.84,8073,1,0)
  1.  ;;=^^1^1^2940314^
  1.  ;;^UTILITY(U,$J,.84,8073,1,1,0)
  1.  ;;=Variable Pointer Lookup
  1.  ;;^UTILITY(U,$J,.84,8073,2,0)
  1.  ;;=^^1^1^2940314^
  1.  ;;^UTILITY(U,$J,.84,8073,2,1,0)
  1.  ;;=To see the entries in any particular file type <Prefix.?>
  1.  ;;^UTILITY(U,$J,.84,8074,0)
  1.  ;;=8074^2^^5
  1.  ;;^UTILITY(U,$J,.84,8074,1,0)
  1.  ;;=^^1^1^2940314^
  1.  ;;^UTILITY(U,$J,.84,8074,1,1,0)
  1.  ;;=How to call for help
  1.  ;;^UTILITY(U,$J,.84,8074,2,0)
  1.  ;;=^^1^1^2940314^
  1.  ;;^UTILITY(U,$J,.84,8074,2,1,0)
  1.  ;;=Press <PF1>H for help
  1.  ;;^UTILITY(U,$J,.84,8075,0)
  1.  ;;=8075^2^^5
  1.  ;;^UTILITY(U,$J,.84,8075,1,0)
  1.  ;;=^^1^1^2940524^^
  1.  ;;^UTILITY(U,$J,.84,8075,1,1,0)
  1.  ;;=Save changes question on form exit
  1.  ;;^UTILITY(U,$J,.84,8075,2,0)
  1.  ;;=^^1^1^2940524^^
  1.  ;;^UTILITY(U,$J,.84,8075,2,1,0)
  1.  ;;=Save changes before leaving form (Y/N)?
  1.  ;;^UTILITY(U,$J,.84,8076,0)
  1.  ;;=8076^2^^5
  1.  ;;^UTILITY(U,$J,.84,8076,1,0)
  1.  ;;=^^1^1^2940315^
  1.  ;;^UTILITY(U,$J,.84,8076,1,1,0)
  1.  ;;=Timeout
  1.  ;;^UTILITY(U,$J,.84,8076,2,0)
  1.  ;;=^^1^1^2940315^
  1.  ;;^UTILITY(U,$J,.84,8076,2,1,0)
  1.  ;;=Timed out.  
  1.  ;;^UTILITY(U,$J,.84,8077,0)
  1.  ;;=8077^2^^5
  1.  ;;^UTILITY(U,$J,.84,8077,1,0)
  1.  ;;=^^1^1^2940315^
  1.  ;;^UTILITY(U,$J,.84,8077,1,1,0)
  1.  ;;=Changes not saved on leaving form
  1.  ;;^UTILITY(U,$J,.84,8077,2,0)
  1.  ;;=^^1^1^2940315^
  1.  ;;^UTILITY(U,$J,.84,8077,2,1,0)
  1.  ;;=Changes not saved!
  1.  ;;^UTILITY(U,$J,.84,8078,0)
  1.  ;;=8078^2^^5
  1.  ;;^UTILITY(U,$J,.84,8078,1,0)
  1.  ;;=^^1^1^2940316^
  1.  ;;^UTILITY(U,$J,.84,8078,1,1,0)
  1.  ;;=Wording for record
  1.  ;;^UTILITY(U,$J,.84,8078,2,0)
  1.  ;;=^^1^1^2940316^
  1.  ;;^UTILITY(U,$J,.84,8078,2,1,0)
  1.  ;;=record
  1.  ;;^UTILITY(U,$J,.84,8079,0)
  1.  ;;=8079^2^^5
  1.  ;;^UTILITY(U,$J,.84,8079,1,0)
  1.  ;;=^^1^1^2940316^
  1.  ;;^UTILITY(U,$J,.84,8079,1,1,0)
  1.  ;;=Wording for Subrecord
  1.  ;;^UTILITY(U,$J,.84,8079,2,0)
  1.  ;;=^^1^1^2940316^
  1.  ;;^UTILITY(U,$J,.84,8079,2,1,0)
  1.  ;;=Subrecord
  1.  ;;^UTILITY(U,$J,.84,8080,0)
  1.  ;;=8080^2^y^5
  1.  ;;^UTILITY(U,$J,.84,8080,1,0)
  1.  ;;=^^1^1^2940316^
  1.  ;;^UTILITY(U,$J,.84,8080,1,1,0)
  1.  ;;=Warning for immediate deletion of entries.
  1.  ;;^UTILITY(U,$J,.84,8080,2,0)
  1.  ;;=^^3^3^2940316^
  1.  ;;^UTILITY(U,$J,.84,8080,2,1,0)
  1.  ;;=  WARNING: DELETIONS ARE DONE IMMEDIATELY!
  1.  ;;^UTILITY(U,$J,.84,8080,2,2,0)
  1.  ;;=           (EXITING WITHOUT SAVING WILL NOT RESTORE DELETED RECORDS.)
  1.  ;;^UTILITY(U,$J,.84,8080,2,3,0)
  1.  ;;=Are you sure you want to delete this entire |1| (Y/N)?
  1.  ;;^UTILITY(U,$J,.84,8080,3,0)
  1.  ;;=^.845^1^1
  1.  ;;^UTILITY(U,$J,.84,8080,3,1,0)
  1.  ;;=1^Record or Subrecord
  1.  ;;^UTILITY(U,$J,.84,8081,0)
  1.  ;;=8081^2^y^5
  1.  ;;^UTILITY(U,$J,.84,8081,1,0)
  1.  ;;=^^1^1^2940316^
  1.  ;;^UTILITY(U,$J,.84,8081,1,1,0)
  1.  ;;=Choose from-to dialog
  1.  ;;^UTILITY(U,$J,.84,8081,2,0)
  1.  ;;=^^1^1^2940316^^
  1.  ;;^UTILITY(U,$J,.84,8081,2,1,0)
  1.  ;;=Choose |1| or '^' to quit: 
  1.  ;;^UTILITY(U,$J,.84,8081,3,0)
  1.  ;;=^.845^1^1
  1.  ;;^UTILITY(U,$J,.84,8081,3,1,0)
  1.  ;;=1^Number range for selection
  1.  ;;^UTILITY(U,$J,.84,8082,0)
  1.  ;;=8082^2^^5
  1.  ;;^UTILITY(U,$J,.84,8082,1,0)
  1.  ;;=^^2^2^2940318^^^^
  1.  ;;^UTILITY(U,$J,.84,8082,1,1,0)
  1.  ;;=Used to build error prompts in the TRANSFER/MERGE routine ^DIT3.  Could be
  1.  ;;^UTILITY(U,$J,.84,8082,1,2,0)
  1.  ;;=used elsewhere, however, so I didn't put it into the ERROR category.
  1.  ;;^UTILITY(U,$J,.84,8082,2,0)
  1.  ;;=^^1^1^2940318^
  1.  ;;^UTILITY(U,$J,.84,8082,2,1,0)
  1.  ;;=Transfer FROM
  1.  ;;^UTILITY(U,$J,.84,8082,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8082,5,1,0)
  1.  ;;=DIT^TRNMRG
  1.  ;;^UTILITY(U,$J,.84,8083,0)
  1.  ;;=8083^2^^5
  1.  ;;^UTILITY(U,$J,.84,8083,1,0)
  1.  ;;=^^2^2^2940318^^^^
  1.  ;;^UTILITY(U,$J,.84,8083,1,1,0)
  1.  ;;=Used to build error prompts in the TRANSFER/MERGE routine ^DIT3.  Could be
  1.  ;;^UTILITY(U,$J,.84,8083,1,2,0)
  1.  ;;=used elsewhere, however, so I didn't put it into the ERROR category.
  1.  ;;^UTILITY(U,$J,.84,8083,2,0)
  1.  ;;=^^1^1^2940318^
  1.  ;;^UTILITY(U,$J,.84,8083,2,1,0)
  1.  ;;=Transfer TO
  1.  ;;^UTILITY(U,$J,.84,8083,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8083,5,1,0)
  1.  ;;=DIT^TRNMRG
  1.  ;;^UTILITY(U,$J,.84,8084,0)
  1.  ;;=8084^2^^5
  1.  ;;^UTILITY(U,$J,.84,8084,1,0)
  1.  ;;=^^1^1^2940318^
  1.  ;;^UTILITY(U,$J,.84,8084,1,1,0)
  1.  ;;=The words 'file number' to be used in any dialog.