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

DINIT00J.m

Go to the documentation of this file. 
  1. DINIT00J ; 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,8044,1,0)
  1.  ;;=^^1^1^2940314^^
  1.  ;;^UTILITY(U,$J,.84,8044,1,1,0)
  1.  ;;=Used for time input to the reader.
  1.  ;;^UTILITY(U,$J,.84,8044,2,0)
  1.  ;;=^^1^1^2940314^^
  1.  ;;^UTILITY(U,$J,.84,8044,2,1,0)
  1.  ;;= and optional time
  1.  ;;^UTILITY(U,$J,.84,8045,0)
  1.  ;;=8045^2^y^5
  1.  ;;^UTILITY(U,$J,.84,8045,1,0)
  1.  ;;=^^3^3^2940310^^^^
  1.  ;;^UTILITY(U,$J,.84,8045,1,1,0)
  1.  ;;=This prompt is used by the reader when he is building prompts for
  1.  ;;^UTILITY(U,$J,.84,8045,1,2,0)
  1.  ;;=Set-of-codes type data.
  1.  ;;^UTILITY(U,$J,.84,8045,1,3,0)
  1.  ;;=Note: Dialog will be used with $$EZBLD^DIALOG call, only one text line!!
  1.  ;;^UTILITY(U,$J,.84,8045,2,0)
  1.  ;;=^^1^1^2940310^^^
  1.  ;;^UTILITY(U,$J,.84,8045,2,1,0)
  1.  ;;=Enter |1|: 
  1.  ;;^UTILITY(U,$J,.84,8045,3,0)
  1.  ;;=^.845^1^1
  1.  ;;^UTILITY(U,$J,.84,8045,3,1,0)
  1.  ;;=1^Default Prompt from DIR("A")
  1.  ;;^UTILITY(U,$J,.84,8046,0)
  1.  ;;=8046^2^^5
  1.  ;;^UTILITY(U,$J,.84,8046,1,0)
  1.  ;;=^^1^1^2960124^^
  1.  ;;^UTILITY(U,$J,.84,8046,1,1,0)
  1.  ;;=Reader prompt for choices from a list
  1.  ;;^UTILITY(U,$J,.84,8046,2,0)
  1.  ;;=^^1^1^2960124^^^
  1.  ;;^UTILITY(U,$J,.84,8046,2,1,0)
  1.  ;;=Select one of the following:
  1.  ;;^UTILITY(U,$J,.84,8047,0)
  1.  ;;=8047^2^^5
  1.  ;;^UTILITY(U,$J,.84,8047,1,0)
  1.  ;;=^^1^1^2940315^^^^
  1.  ;;^UTILITY(U,$J,.84,8047,1,1,0)
  1.  ;;=Part one of the Replace with prompt (including spaces).
  1.  ;;^UTILITY(U,$J,.84,8047,2,0)
  1.  ;;=^^1^1^2940315^^^^
  1.  ;;^UTILITY(U,$J,.84,8047,2,1,0)
  1.  ;;=  Replace 
  1.  ;;^UTILITY(U,$J,.84,8048,0)
  1.  ;;=8048^2^^5
  1.  ;;^UTILITY(U,$J,.84,8048,1,0)
  1.  ;;=^^1^1^2940310^
  1.  ;;^UTILITY(U,$J,.84,8048,1,1,0)
  1.  ;;=Part two of the Replace With editor (including spaces).
  1.  ;;^UTILITY(U,$J,.84,8048,2,0)
  1.  ;;=^^1^1^2940310^
  1.  ;;^UTILITY(U,$J,.84,8048,2,1,0)
  1.  ;;= With 
  1.  ;;^UTILITY(U,$J,.84,8050,0)
  1.  ;;=8050^2^^5
  1.  ;;^UTILITY(U,$J,.84,8050,1,0)
  1.  ;;=^^2^2^2971125^
  1.  ;;^UTILITY(U,$J,.84,8050,1,1,0)
  1.  ;;=Print the word 'Another' when prompting user to select another entry in
  1.  ;;^UTILITY(U,$J,.84,8050,1,2,0)
  1.  ;;=Inquire mode.
  1.  ;;^UTILITY(U,$J,.84,8050,2,0)
  1.  ;;=^^1^1^2971125^
  1.  ;;^UTILITY(U,$J,.84,8050,2,1,0)
  1.  ;;=Another 
  1.  ;;^UTILITY(U,$J,.84,8050,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,8050,5,1,0)
  1.  ;;=DIC11^GETPRMT
  1.  ;;^UTILITY(U,$J,.84,8051,0)
  1.  ;;=8051^2^^5
  1.  ;;^UTILITY(U,$J,.84,8051,1,0)
  1.  ;;=^^1^1^2940310^
  1.  ;;^UTILITY(U,$J,.84,8051,1,1,0)
  1.  ;;=Reader prompt
  1.  ;;^UTILITY(U,$J,.84,8051,2,0)
  1.  ;;=^^1^1^2940310^
  1.  ;;^UTILITY(U,$J,.84,8051,2,1,0)
  1.  ;;=Enter response: 
  1.  ;;^UTILITY(U,$J,.84,8052,0)
  1.  ;;=8052^2^^5
  1.  ;;^UTILITY(U,$J,.84,8052,1,0)
  1.  ;;=^^1^1^2940310^
  1.  ;;^UTILITY(U,$J,.84,8052,1,1,0)
  1.  ;;=Prompt for the reader
  1.  ;;^UTILITY(U,$J,.84,8052,2,0)
  1.  ;;=^^1^1^2940310^
  1.  ;;^UTILITY(U,$J,.84,8052,2,1,0)
  1.  ;;=Enter Yes or No: 
  1.  ;;^UTILITY(U,$J,.84,8053,0)
  1.  ;;=8053^2^^5
  1.  ;;^UTILITY(U,$J,.84,8053,1,0)
  1.  ;;=^^1^1^2940316^^
  1.  ;;^UTILITY(U,$J,.84,8053,1,1,0)
  1.  ;;=Prompt for the reader: End of page
  1.  ;;^UTILITY(U,$J,.84,8053,2,0)
  1.  ;;=^^1^1^2940316^^
  1.  ;;^UTILITY(U,$J,.84,8053,2,1,0)
  1.  ;;=Enter RETURN to continue or '^' to exit: 
  1.  ;;^UTILITY(U,$J,.84,8054,0)
  1.  ;;=8054^2^^5
  1.  ;;^UTILITY(U,$J,.84,8054,1,0)
  1.  ;;=^^1^1^2940310^^
  1.  ;;^UTILITY(U,$J,.84,8054,1,1,0)
  1.  ;;=Prompt for the reader: numbers
  1.  ;;^UTILITY(U,$J,.84,8054,2,0)
  1.  ;;=^^1^1^2940310^^
  1.  ;;^UTILITY(U,$J,.84,8054,2,1,0)
  1.  ;;=Enter a number
  1.  ;;^UTILITY(U,$J,.84,8055,0)
  1.  ;;=8055^2^^5
  1.  ;;^UTILITY(U,$J,.84,8055,1,0)
  1.  ;;=^^1^1^2940310^
  1.  ;;^UTILITY(U,$J,.84,8055,1,1,0)
  1.  ;;=Prompt for the reader: date
  1.  ;;^UTILITY(U,$J,.84,8055,2,0)
  1.  ;;=^^1^1^2940310^
  1.  ;;^UTILITY(U,$J,.84,8055,2,1,0)
  1.  ;;=Enter a date
  1.  ;;^UTILITY(U,$J,.84,8056,0)
  1.  ;;=8056^2^^5
  1.  ;;^UTILITY(U,$J,.84,8056,1,0)
  1.  ;;=^^1^1^2940310^
  1.  ;;^UTILITY(U,$J,.84,8056,1,1,0)
  1.  ;;=Prompt for the reader: List
  1.  ;;^UTILITY(U,$J,.84,8056,2,0)
  1.  ;;=^^1^1^2940310^
  1.  ;;^UTILITY(U,$J,.84,8056,2,1,0)
  1.  ;;=Enter a list or range of numbers
  1.  ;;^UTILITY(U,$J,.84,8057,0)
  1.  ;;=8057^2^^5
  1.  ;;^UTILITY(U,$J,.84,8057,1,0)
  1.  ;;=^^1^1^2940310^
  1.  ;;^UTILITY(U,$J,.84,8057,1,1,0)
  1.  ;;=Prompt for the Reader: Pointers
  1.  ;;^UTILITY(U,$J,.84,8057,2,0)
  1.  ;;=^^1^1^2940310^
  1.  ;;^UTILITY(U,$J,.84,8057,2,1,0)
  1.  ;;=Select: 
  1.  ;;^UTILITY(U,$J,.84,8058,0)
  1.  ;;=8058^2^y^5
  1.  ;;^UTILITY(U,$J,.84,8058,1,0)
  1.  ;;=^^1^1^2940314^
  1.  ;;^UTILITY(U,$J,.84,8058,1,1,0)
  1.  ;;=Part II of the 'Are you adding a new...' question
  1.  ;;^UTILITY(U,$J,.84,8058,2,0)
  1.  ;;=^^1^1^2940314^
  1.  ;;^UTILITY(U,$J,.84,8058,2,1,0)
  1.  ;;= (the |1|
  1.  ;;^UTILITY(U,$J,.84,8058,3,0)
  1.  ;;=^.845^1^1
  1.  ;;^UTILITY(U,$J,.84,8058,3,1,0)
  1.  ;;=1^Ordinal number of new entry
  1.  ;;^UTILITY(U,$J,.84,8059,0)
  1.  ;;=8059^2^y^5
  1.  ;;^UTILITY(U,$J,.84,8059,1,0)
  1.  ;;=^^1^1^2940314^
  1.  ;;^UTILITY(U,$J,.84,8059,1,1,0)
  1.  ;;=Part III of the 'Are you adding a new...' question
  1.  ;;^UTILITY(U,$J,.84,8059,2,0)
  1.  ;;=^^1^1^2940314^
  1.  ;;^UTILITY(U,$J,.84,8059,2,1,0)
  1.  ;;= for this |1|
  1.  ;;^UTILITY(U,$J,.84,8059,3,0)
  1.  ;;=^.845^1^1
  1.  ;;^UTILITY(U,$J,.84,8059,3,1,0)
  1.  ;;=1^Filename
  1.  ;;^UTILITY(U,$J,.84,8060,0)
  1.  ;;=8060^2^^5
  1.  ;;^UTILITY(U,$J,.84,8060,1,0)
  1.  ;;=^^1^1^2940314^^
  1.  ;;^UTILITY(U,$J,.84,8060,1,1,0)
  1.  ;;=Part Ia of the 'Are you adding...' message
  1.  ;;^UTILITY(U,$J,.84,8060,2,0)
  1.  ;;=^^1^1^2940314^^
  1.  ;;^UTILITY(U,$J,.84,8060,2,1,0)
  1.  ;;=  Are you adding 
  1.  ;;^UTILITY(U,$J,.84,8061,0)
  1.  ;;=8061^2^y^5
  1.  ;;^UTILITY(U,$J,.84,8061,1,0)
  1.  ;;=^^1^1^2940314^
  1.  ;;^UTILITY(U,$J,.84,8061,1,1,0)
  1.  ;;=Part Ib of the 'Are you adding...' question
  1.  ;;^UTILITY(U,$J,.84,8061,2,0)
  1.  ;;=^^1^1^2940314^
  1.  ;;^UTILITY(U,$J,.84,8061,2,1,0)
  1.  ;;='|1|' as 
  1.  ;;^UTILITY(U,$J,.84,8061,3,0)
  1.  ;;=^.845^1^1
  1.  ;;^UTILITY(U,$J,.84,8061,3,1,0)
  1.  ;;=1^Input value for .01 field
  1.  ;;^UTILITY(U,$J,.84,8062,0)
  1.  ;;=8062^2^y^5
  1.  ;;^UTILITY(U,$J,.84,8062,1,0)
  1.  ;;=^^1^1^2940314^^^
  1.  ;;^UTILITY(U,$J,.84,8062,1,1,0)
  1.  ;;=Part Ic of the "Are you adding..." message
  1.  ;;^UTILITY(U,$J,.84,8062,2,0)
  1.  ;;=^^1^1^2940314^^^^
  1.  ;;^UTILITY(U,$J,.84,8062,2,1,0)
  1.  ;;=a new |1|
  1.  ;;^UTILITY(U,$J,.84,8062,3,0)
  1.  ;;=^.845^1^1
  1.  ;;^UTILITY(U,$J,.84,8062,3,1,0)
  1.  ;;=1^Filename
  1.  ;;^UTILITY(U,$J,.84,8063,0)
  1.  ;;=8063^2^y^5
  1.  ;;^UTILITY(U,$J,.84,8063,1,0)
  1.  ;;=^^1^1^2940314^
  1.  ;;^UTILITY(U,$J,.84,8063,1,1,0)
  1.  ;;=Lookup Part I
  1.  ;;^UTILITY(U,$J,.84,8063,2,0)
  1.  ;;=^^1^1^2940314^
  1.  ;;^UTILITY(U,$J,.84,8063,2,1,0)
  1.  ;;= Answer with |1|
  1.  ;;^UTILITY(U,$J,.84,8063,3,0)
  1.  ;;=^.845^1^1
  1.  ;;^UTILITY(U,$J,.84,8063,3,1,0)
  1.  ;;=1^Filename
  1.  ;;^UTILITY(U,$J,.84,8064,0)
  1.  ;;=8064^2^^5
  1.  ;;^UTILITY(U,$J,.84,8064,1,0)
  1.  ;;=^^1^1^2940314^
  1.  ;;^UTILITY(U,$J,.84,8064,1,1,0)
  1.  ;;=Lookup Part II
  1.  ;;^UTILITY(U,$J,.84,8064,2,0)
  1.  ;;=^^1^1^2940314^
  1.  ;;^UTILITY(U,$J,.84,8064,2,1,0)
  1.  ;;= Do you want the entire 
  1.  ;;^UTILITY(U,$J,.84,8065,0)
  1.  ;;=8065^2^y^5
  1.  ;;^UTILITY(U,$J,.84,8065,1,0)
  1.  ;;=^^1^1^2940314^^
  1.  ;;^UTILITY(U,$J,.84,8065,1,1,0)
  1.  ;;=Lookup Part III