[BACK]Return to DINIT00T.m CVS log [TXT] [DIR] Up to [Coherent Logic Development] / freem_fileman / USER
File:  [Coherent Logic Development] / freem_fileman / USER / DINIT00T.m
Revision 1.1: download - view: text, annotated - select for diffs
Mon Apr 28 14:13:20 2025 UTC (3 months ago) by snw
Branches: MAIN
CVS tags: HEAD
Restructure repository

    1: DINIT00T	; SFISC/TKW-DIALOG & LANGUAGE FILE INITS ; 12/22/94  09:32:23
    2: 	;;21.0;VA FileMan;;Dec 28, 1994
    3: 	;Per VHA Directive 10-93-142, this routine should not be modified.
    4: 	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
    5: Q	Q
    6: 	;;^UTILITY(U,$J,.84,9110,3,2,0)
    7: 	;;=2^Conditionally, indicates if past, future, or current year is assumed.
    8: 	;;^UTILITY(U,$J,.84,9110,3,3,0)
    9: 	;;=3^Conditionally, indicates that day is not needed.
   10: 	;;^UTILITY(U,$J,.84,9111,0)
   11: 	;;=9111^3^y^11^
   12: 	;;^UTILITY(U,$J,.84,9111,1,0)
   13: 	;;=^^1^1^2930806^
   14: 	;;^UTILITY(U,$J,.84,9111,1,1,0)
   15: 	;;=Instructions for entering time data.
   16: 	;;^UTILITY(U,$J,.84,9111,2,0)
   17: 	;;=^^5^5^2931104^^
   18: 	;;^UTILITY(U,$J,.84,9111,2,1,0)
   19: 	;;=If the date is omitted, the current date is assumed.
   20: 	;;^UTILITY(U,$J,.84,9111,2,2,0)
   21: 	;;=Follow the date with a time, such as JAN 20@10, T@10AM, 10:30, etc.
   22: 	;;^UTILITY(U,$J,.84,9111,2,3,0)
   23: 	;;=You may enter NOON, MIDNIGHT, or NOW to indicate the time.
   24: 	;;^UTILITY(U,$J,.84,9111,2,4,0)
   25: 	;;=|1|
   26: 	;;^UTILITY(U,$J,.84,9111,2,5,0)
   27: 	;;=|2|
   28: 	;;^UTILITY(U,$J,.84,9111,3,0)
   29: 	;;=^.845^2^2
   30: 	;;^UTILITY(U,$J,.84,9111,3,1,0)
   31: 	;;=1^Conditionally, give instructions for entering seconds.
   32: 	;;^UTILITY(U,$J,.84,9111,3,2,0)
   33: 	;;=2^Conditionally, state that time is required.
   34: 	;;^UTILITY(U,$J,.84,9115,0)
   35: 	;;=9115^3^^11
   36: 	;;^UTILITY(U,$J,.84,9115,1,0)
   37: 	;;=^^1^1^2930810^
   38: 	;;^UTILITY(U,$J,.84,9115,1,1,0)
   39: 	;;=The short help for variable pointers.
   40: 	;;^UTILITY(U,$J,.84,9115,2,0)
   41: 	;;=^^1^1^2930810^
   42: 	;;^UTILITY(U,$J,.84,9115,2,1,0)
   43: 	;;=To see the entries in any particular file, type <Prefix.?>.
   44: 	;;^UTILITY(U,$J,.84,9116,0)
   45: 	;;=9116^3^^11
   46: 	;;^UTILITY(U,$J,.84,9116,1,0)
   47: 	;;=^^1^1^2930810^
   48: 	;;^UTILITY(U,$J,.84,9116,1,1,0)
   49: 	;;=Long help for variable pointers.
   50: 	;;^UTILITY(U,$J,.84,9116,2,0)
   51: 	;;=^^15^15^2930810^
   52: 	;;^UTILITY(U,$J,.84,9116,2,1,0)
   53: 	;;=If you enter just a name, the system will search each of the 
   54: 	;;^UTILITY(U,$J,.84,9116,2,2,0)
   55: 	;;=above files for the name you have entered.  If a match is found,
   56: 	;;^UTILITY(U,$J,.84,9116,2,3,0)
   57: 	;;=the system will ask you if it is the entry you desire.
   58: 	;;^UTILITY(U,$J,.84,9116,2,4,0)
   59: 	;;= 
   60: 	;;^UTILITY(U,$J,.84,9116,2,5,0)
   61: 	;;=However, if you know the file the entry should be in, you can
   62: 	;;^UTILITY(U,$J,.84,9116,2,6,0)
   63: 	;;=speed processing by using the following syntax to select an entry:
   64: 	;;^UTILITY(U,$J,.84,9116,2,7,0)
   65: 	;;= 
   66: 	;;^UTILITY(U,$J,.84,9116,2,8,0)
   67: 	;;=     <Prefix>.<entry name>
   68: 	;;^UTILITY(U,$J,.84,9116,2,9,0)
   69: 	;;=             or
   70: 	;;^UTILITY(U,$J,.84,9116,2,10,0)
   71: 	;;=     <Message>.<entry name>
   72: 	;;^UTILITY(U,$J,.84,9116,2,11,0)
   73: 	;;=             or
   74: 	;;^UTILITY(U,$J,.84,9116,2,12,0)
   75: 	;;=     <File Name>.<entry name>
   76: 	;;^UTILITY(U,$J,.84,9116,2,13,0)
   77: 	;;= 
   78: 	;;^UTILITY(U,$J,.84,9116,2,14,0)
   79: 	;;=You do not need to enter the entire file name or message.
   80: 	;;^UTILITY(U,$J,.84,9116,2,15,0)
   81: 	;;=The first few characters will suffice.
   82: 	;;^UTILITY(U,$J,.84,9117,0)
   83: 	;;=9117^3^y^11^
   84: 	;;^UTILITY(U,$J,.84,9117,1,0)
   85: 	;;=^^1^1^2930810^^
   86: 	;;^UTILITY(U,$J,.84,9117,1,1,0)
   87: 	;;=Variable pointer help - prefix and message.
   88: 	;;^UTILITY(U,$J,.84,9117,2,0)
   89: 	;;=^^1^1^2930810^^^
   90: 	;;^UTILITY(U,$J,.84,9117,2,1,0)
   91: 	;;=|1|.EntryName to select a |2|.
   92: 	;;^UTILITY(U,$J,.84,9117,3,0)
   93: 	;;=^.845^2^2
   94: 	;;^UTILITY(U,$J,.84,9117,3,1,0)
   95: 	;;=1^The prefix for a variable pointer file.
   96: 	;;^UTILITY(U,$J,.84,9117,3,2,0)
   97: 	;;=2^The message for a variable pointer file.
   98: 	;;^UTILITY(U,$J,.84,9201,0)
   99: 	;;=9201^3^^11
  100: 	;;^UTILITY(U,$J,.84,9201,1,0)
  101: 	;;=^^1^1^2941024^
  102: 	;;^UTILITY(U,$J,.84,9201,1,1,0)
  103: 	;;=Browser help
  104: 	;;^UTILITY(U,$J,.84,9201,2,0)
  105: 	;;=^^180^180^2941024^
  106: 	;;^UTILITY(U,$J,.84,9201,2,1,0)
  107: 	;;= 
  108: 	;;^UTILITY(U,$J,.84,9201,2,2,0)
  109: 	;;=                                  HELP SUMMARY
  110: 	;;^UTILITY(U,$J,.84,9201,2,3,0)
  111: 	;;=                                  ============
  112: 	;;^UTILITY(U,$J,.84,9201,2,4,0)
  113: 	;;= 
  114: 	;;^UTILITY(U,$J,.84,9201,2,5,0)
  115: 	;;=NAVIGATION:
  116: 	;;^UTILITY(U,$J,.84,9201,2,6,0)
  117: 	;;============
  118: 	;;^UTILITY(U,$J,.84,9201,2,7,0)
  119: 	;;=     Scroll Down (one line)                  ARROW DOWN
  120: 	;;^UTILITY(U,$J,.84,9201,2,8,0)
  121: 	;;=     Scroll Up (one line)                    ARROW UP
  122: 	;;^UTILITY(U,$J,.84,9201,2,9,0)
  123: 	;;=     Page Down                               <PF1>ARROW DOWN
  124: 	;;^UTILITY(U,$J,.84,9201,2,10,0)
  125: 	;;=     Page Up                                 <PF1>ARROW UP
  126: 	;;^UTILITY(U,$J,.84,9201,2,11,0)
  127: 	;;=     Scroll Right (default 22 columns)       ARROW RIGHT
  128: 	;;^UTILITY(U,$J,.84,9201,2,12,0)
  129: 	;;=     Scroll Left (default 22 columns)        ARROW LEFT
  130: 	;;^UTILITY(U,$J,.84,9201,2,13,0)
  131: 	;;=     Scroll Horizontally to the end          <PF1>ARROW RIGHT
  132: 	;;^UTILITY(U,$J,.84,9201,2,14,0)
  133: 	;;=     Scroll Horizontally to the end          <PF1>ARROW LEFT
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>