Annotation of freem_fileman/USER/DINIT00T.m, revision 1.1
1.1 ! snw 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>
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to DINIT00T.m CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Coherent Logic Development] / freem_fileman / USER