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

DINIT00O.m

Go to the documentation of this file. 
  1. DINIT00O ; SFISC/TKW-DIALOG & LANGUAGE FILE INITS ;3:18 PM  25 May 2001 [ 04/02/2003   8:25 AM ]
  1.  ;;22.0;VA FileMan;**1001**;APR 1, 2003
  1.  ;;22.0;VA FileMan;**85**;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,9041,2,1,0)
  1.  ;;= 
  1.  ;;^UTILITY(U,$J,.84,9041,2,2,0)
  1.  ;;=Enter 'NO' to compare and display the two entries.
  1.  ;;^UTILITY(U,$J,.84,9041,2,3,0)
  1.  ;;=Enter 'YES' to choose valid fields from each entry then merge into the
  1.  ;;^UTILITY(U,$J,.84,9041,2,4,0)
  1.  ;;=record selected as the default.
  1.  ;;^UTILITY(U,$J,.84,9041,2,5,0)
  1.  ;;= 
  1.  ;;^UTILITY(U,$J,.84,9041,2,6,0)
  1.  ;;=If you merge two entries within a file that is pointed-to by many other
  1.  ;;^UTILITY(U,$J,.84,9041,2,7,0)
  1.  ;;=files (such as the PATIENT file), then the re-pointing process can be time
  1.  ;;^UTILITY(U,$J,.84,9041,2,8,0)
  1.  ;;=consuming and can create many tasked jobs.
  1.  ;;^UTILITY(U,$J,.84,9101,0)
  1.  ;;=9101^3^^5
  1.  ;;^UTILITY(U,$J,.84,9101,1,0)
  1.  ;;=^^1^1^2930810^
  1.  ;;^UTILITY(U,$J,.84,9101,1,1,0)
  1.  ;;=The "CHOOSE FROM:" prompt.
  1.  ;;^UTILITY(U,$J,.84,9101,2,0)
  1.  ;;=^^1^1^2930908^^
  1.  ;;^UTILITY(U,$J,.84,9101,2,1,0)
  1.  ;;=Choose from:
  1.  ;;^UTILITY(U,$J,.84,9103,0)
  1.  ;;=9103^3^^5
  1.  ;;^UTILITY(U,$J,.84,9103,1,0)
  1.  ;;=^^2^2^2930810^^
  1.  ;;^UTILITY(U,$J,.84,9103,1,1,0)
  1.  ;;=First line of Variable Pointer help that shows the Prefixes and Messages
  1.  ;;^UTILITY(U,$J,.84,9103,1,2,0)
  1.  ;;=for a field.
  1.  ;;^UTILITY(U,$J,.84,9103,2,0)
  1.  ;;=^^1^1^2930810^
  1.  ;;^UTILITY(U,$J,.84,9103,2,1,0)
  1.  ;;=Enter one of the following:
  1.  ;;^UTILITY(U,$J,.84,9105,0)
  1.  ;;=9105^3^y^5
  1.  ;;^UTILITY(U,$J,.84,9105,1,0)
  1.  ;;=^^2^2^2931229^
  1.  ;;^UTILITY(U,$J,.84,9105,1,1,0)
  1.  ;;=The beginning of the help text used to give list of fields that can
  1.  ;;^UTILITY(U,$J,.84,9105,1,2,0)
  1.  ;;=be used for a look-up.
  1.  ;;^UTILITY(U,$J,.84,9105,2,0)
  1.  ;;=^^1^1^2931229^
  1.  ;;^UTILITY(U,$J,.84,9105,2,1,0)
  1.  ;;=Answer with |1|.
  1.  ;;^UTILITY(U,$J,.84,9105,3,0)
  1.  ;;=^.845^1^1
  1.  ;;^UTILITY(U,$J,.84,9105,3,1,0)
  1.  ;;=1^File name and list of fields that can be used for look-up.
  1.  ;;^UTILITY(U,$J,.84,9105,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,9105,5,1,0)
  1.  ;;=DIE^HELP
  1.  ;;^UTILITY(U,$J,.84,9107,0)
  1.  ;;=9107^3^y^5
  1.  ;;^UTILITY(U,$J,.84,9107,1,0)
  1.  ;;=^^1^1^2940513^
  1.  ;;^UTILITY(U,$J,.84,9107,1,1,0)
  1.  ;;=LAYGO allowed.
  1.  ;;^UTILITY(U,$J,.84,9107,2,0)
  1.  ;;=^^1^1^2940513^
  1.  ;;^UTILITY(U,$J,.84,9107,2,1,0)
  1.  ;;=You may enter a new |1| if you wish.
  1.  ;;^UTILITY(U,$J,.84,9107,3,0)
  1.  ;;=^.845^1^1
  1.  ;;^UTILITY(U,$J,.84,9107,3,1,0)
  1.  ;;=1^File Name.
  1.  ;;^UTILITY(U,$J,.84,9110,0)
  1.  ;;=9110^3^y^5
  1.  ;;^UTILITY(U,$J,.84,9110,1,0)
  1.  ;;=^^1^1^2990323^^^^
  1.  ;;^UTILITY(U,$J,.84,9110,1,1,0)
  1.  ;;=Instructions for entering date data.
  1.  ;;^UTILITY(U,$J,.84,9110,2,0)
  1.  ;;=^^7^7^2990323^^^
  1.  ;;^UTILITY(U,$J,.84,9110,2,1,0)
  1.  ;;=Examples of Valid Dates:
  1.  ;;^UTILITY(U,$J,.84,9110,2,2,0)
  1.  ;;=   JAN 20 1957 or 20 JAN 57 or 1/20/57 |1|
  1.  ;;^UTILITY(U,$J,.84,9110,2,3,0)
  1.  ;;=   T   (for TODAY),  T+1 (for TOMORROW),  T+2,  T+7, etc.
  1.  ;;^UTILITY(U,$J,.84,9110,2,4,0)
  1.  ;;=   T-1 (for YESTERDAY),  T-3W (for 3 WEEKS AGO), etc.
  1.  ;;^UTILITY(U,$J,.84,9110,2,5,0)
  1.  ;;=If the year is omitted, the computer |2|
  1.  ;;^UTILITY(U,$J,.84,9110,2,6,0)
  1.  ;;=|3|
  1.  ;;^UTILITY(U,$J,.84,9110,2,7,0)
  1.  ;;=|4|
  1.  ;;^UTILITY(U,$J,.84,9110,3,0)
  1.  ;;=^.845^4^4
  1.  ;;^UTILITY(U,$J,.84,9110,3,1,0)
  1.  ;;=1^If numeric dates are allowed, " or 012057" is written.
  1.  ;;^UTILITY(U,$J,.84,9110,3,2,0)
  1.  ;;=2^Conditionally, indicates if past, future, or current year is assumed.
  1.  ;;^UTILITY(U,$J,.84,9110,3,3,0)
  1.  ;;=3^Conditionally indicates the way FileMan determines century to use if 2 digit year is provided, or indicates that day is not needed if past or future year assumed.
  1.  ;;^UTILITY(U,$J,.84,9110,3,4,0)
  1.  ;;=4^Conditionally, indicates that day is not needed (unless past or future date is assumed, in which case this information goes into parameter 3).
  1.  ;;^UTILITY(U,$J,.84,9110,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,9110,5,1,0)
  1.  ;;=DIEH1^DT
  1.  ;;^UTILITY(U,$J,.84,9110.7,0)
  1.  ;;=9110.7^3^y^5^Instructions for entering date data.
  1.  ;;^UTILITY(U,$J,.84,9110.7,1,0)
  1.  ;;=^.842^1^1^3010525^^^^
  1.  ;;^UTILITY(U,$J,.84,9110.7,1,1,0)
  1.  ;;=Instructions for entering date data, when the "M" flag is used.
  1.  ;;^UTILITY(U,$J,.84,9110.7,2,0)
  1.  ;;=^.844^8^8^3010525^^^
  1.  ;;^UTILITY(U,$J,.84,9110.7,2,1,0)
  1.  ;;=Examples of Valid Dates:
  1.  ;;^UTILITY(U,$J,.84,9110.7,2,2,0)
  1.  ;;=  JAN 1957 or JAN 57 |1|
  1.  ;;^UTILITY(U,$J,.84,9110.7,2,3,0)
  1.  ;;=  T    (for this month)
  1.  ;;^UTILITY(U,$J,.84,9110.7,2,4,0)
  1.  ;;=  T+3M (for 3 months in the future)
  1.  ;;^UTILITY(U,$J,.84,9110.7,2,5,0)
  1.  ;;=  T-3M (for 3 months ago)
  1.  ;;^UTILITY(U,$J,.84,9110.7,2,6,0)
  1.  ;;=Only month and year are accepted. You must omit the precise day.
  1.  ;;^UTILITY(U,$J,.84,9110.7,2,7,0)
  1.  ;;=If the year is omitted, the computer |2|
  1.  ;;^UTILITY(U,$J,.84,9110.7,2,8,0)
  1.  ;;=|3|
  1.  ;;^UTILITY(U,$J,.84,9110.7,3,0)
  1.  ;;=^.845^3^3
  1.  ;;^UTILITY(U,$J,.84,9110.7,3,1,0)
  1.  ;;=1^If numeric dates are allowed, " or 0157" is written.
  1.  ;;^UTILITY(U,$J,.84,9110.7,3,2,0)
  1.  ;;=2^Conditionally, indicates if past, future, or current year is assumed.
  1.  ;;^UTILITY(U,$J,.84,9110.7,3,3,0)
  1.  ;;=3^Conditionally indicates the way FileMan determines century to use if 2 digit year is provided.
  1.  ;;^UTILITY(U,$J,.84,9110.7,5,0)
  1.  ;;=^.841^1^1
  1.  ;;^UTILITY(U,$J,.84,9110.7,5,1,0)
  1.  ;;=DIEH1^DT
  1.  ;;^UTILITY(U,$J,.84,9111,0)
  1.  ;;=9111^3^y^5
  1.  ;;^UTILITY(U,$J,.84,9111,1,0)
  1.  ;;=^^1^1^2930806^
  1.  ;;^UTILITY(U,$J,.84,9111,1,1,0)
  1.  ;;=Instructions for entering time data.
  1.  ;;^UTILITY(U,$J,.84,9111,2,0)
  1.  ;;=^^5^5^2931104^^
  1.  ;;^UTILITY(U,$J,.84,9111,2,1,0)
  1.  ;;=If the date is omitted, the current date is assumed.
  1.  ;;^UTILITY(U,$J,.84,9111,2,2,0)
  1.  ;;=Follow the date with a time, such as JAN 20@10, T@10AM, 10:30, etc.
  1.  ;;^UTILITY(U,$J,.84,9111,2,3,0)
  1.  ;;=You may enter NOON, MIDNIGHT, or NOW to indicate the time.
  1.  ;;^UTILITY(U,$J,.84,9111,2,4,0)
  1.  ;;=|1|
  1.  ;;^UTILITY(U,$J,.84,9111,2,5,0)
  1.  ;;=|2|
  1.  ;;^UTILITY(U,$J,.84,9111,3,0)
  1.  ;;=^.845^2^2
  1.  ;;^UTILITY(U,$J,.84,9111,3,1,0)
  1.  ;;=1^Conditionally, give instructions for entering seconds.
  1.  ;;^UTILITY(U,$J,.84,9111,3,2,0)
  1.  ;;=2^Conditionally, state that time is required.
  1.  ;;^UTILITY(U,$J,.84,9115,0)
  1.  ;;=9115^3^^5
  1.  ;;^UTILITY(U,$J,.84,9115,1,0)
  1.  ;;=^^1^1^2930810^
  1.  ;;^UTILITY(U,$J,.84,9115,1,1,0)
  1.  ;;=The short help for variable pointers.
  1.  ;;^UTILITY(U,$J,.84,9115,2,0)
  1.  ;;=^^1^1^2930810^
  1.  ;;^UTILITY(U,$J,.84,9115,2,1,0)
  1.  ;;=To see the entries in any particular file, type <Prefix.?>.
  1.  ;;^UTILITY(U,$J,.84,9116,0)
  1.  ;;=9116^3^^5
  1.  ;;^UTILITY(U,$J,.84,9116,1,0)
  1.  ;;=^^1^1^2930810^
  1.  ;;^UTILITY(U,$J,.84,9116,1,1,0)
  1.  ;;=Long help for variable pointers.
  1.  ;;^UTILITY(U,$J,.84,9116,2,0)
  1.  ;;=^^15^15^2930810^
  1.  ;;^UTILITY(U,$J,.84,9116,2,1,0)
  1.  ;;=If you enter just a name, the system will search each of the 
  1.  ;;^UTILITY(U,$J,.84,9116,2,2,0)
  1.  ;;=above files for the name you have entered.  If a match is found,
  1.  ;;^UTILITY(U,$J,.84,9116,2,3,0)
  1.  ;;=the system will ask you if it is the entry you desire.
  1.  ;;^UTILITY(U,$J,.84,9116,2,4,0)
  1.  ;;= 
  1.  ;;^UTILITY(U,$J,.84,9116,2,5,0)
  1.  ;;=However, if you know the file the entry should be in, you can
  1.  ;;^UTILITY(U,$J,.84,9116,2,6,0)
  1.  ;;=speed processing by using the following syntax to select an entry:
  1.  ;;^UTILITY(U,$J,.84,9116,2,7,0)
  1.  ;;= 
  1.  ;;^UTILITY(U,$J,.84,9116,2,8,0)
  1.  ;;=     <Prefix>.<entry name>
  1.  ;;^UTILITY(U,$J,.84,9116,2,9,0)
  1.  ;;=             or
  1.  ;;^UTILITY(U,$J,.84,9116,2,10,0)
  1.  ;;=     <Message>.<entry name>
  1.  ;;^UTILITY(U,$J,.84,9116,2,11,0)
  1.  ;;=             or
  1.  ;;^UTILITY(U,$J,.84,9116,2,12,0)
  1.  ;;=     <File Name>.<entry name>
  1.  ;;^UTILITY(U,$J,.84,9116,2,13,0)
  1.  ;;= 
  1.  ;;^UTILITY(U,$J,.84,9116,2,14,0)
  1.  ;;=You do not need to enter the entire file name or message.
  1.  ;;^UTILITY(U,$J,.84,9116,2,15,0)
  1.  ;;=The first few characters will suffice.
  1.  ;;^UTILITY(U,$J,.84,9117,0)
  1.  ;;=9117^3^y^5
  1.  ;;^UTILITY(U,$J,.84,9117,1,0)
  1.  ;;=^^1^1^2930810^^
  1.  ;;^UTILITY(U,$J,.84,9117,1,1,0)
  1.  ;;=Variable pointer help - prefix and message.
  1.  ;;^UTILITY(U,$J,.84,9117,2,0)
  1.  ;;=^^1^1^2930810^^^
  1.  ;;^UTILITY(U,$J,.84,9117,2,1,0)
  1.  ;;=|1|.EntryName to select a |2|.
  1.  ;;^UTILITY(U,$J,.84,9117,3,0)
  1.  ;;=^.845^2^2