freem_fileman/USER/DINIT00U.m - view

File: [Coherent Logic Development] / freem_fileman / USER / DINIT00U.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: DINIT00U ; 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,9201,2,15,0) 7: ;;= Jump to the Top <PF1>T 8: ;;^UTILITY(U,$J,.84,9201,2,16,0) 9: ;;= Jump to the Bottom <PF1>B 10: ;;^UTILITY(U,$J,.84,9201,2,17,0) 11: ;;= Goto <PF1>G 12: ;;^UTILITY(U,$J,.84,9201,2,18,0) 13: ;;= 14: ;;^UTILITY(U,$J,.84,9201,2,19,0) 15: ;;=SEARCH: 16: ;;^UTILITY(U,$J,.84,9201,2,20,0) 17: ;;======== 18: ;;^UTILITY(U,$J,.84,9201,2,21,0) 19: ;;= Find text <PF1>F 20: ;;^UTILITY(U,$J,.84,9201,2,22,0) 21: ;;= Next (occurrence) <PF1>N 22: ;;^UTILITY(U,$J,.84,9201,2,23,0) 23: ;;= 24: ;;^UTILITY(U,$J,.84,9201,2,24,0) 25: ;;= Direction-terminate find text with: 26: ;;^UTILITY(U,$J,.84,9201,2,25,0) 27: ;;= ----------------------------------- 28: ;;^UTILITY(U,$J,.84,9201,2,26,0) 29: ;;= Down ARROW DOWN 30: ;;^UTILITY(U,$J,.84,9201,2,27,0) 31: ;;= Up ARROW UP 32: ;;^UTILITY(U,$J,.84,9201,2,28,0) 33: ;;= 34: ;;^UTILITY(U,$J,.84,9201,2,29,0) 35: ;;=BRANCH: 36: ;;^UTILITY(U,$J,.84,9201,2,30,0) 37: ;;======== 38: ;;^UTILITY(U,$J,.84,9201,2,31,0) 39: ;;= Switch to another document <PF1>S 40: ;;^UTILITY(U,$J,.84,9201,2,32,0) 41: ;;= Return to previous document(s) R 42: ;;^UTILITY(U,$J,.84,9201,2,33,0) 43: ;;= 44: ;;^UTILITY(U,$J,.84,9201,2,34,0) 45: ;;=SCREEN: 46: ;;^UTILITY(U,$J,.84,9201,2,35,0) 47: ;;======== 48: ;;^UTILITY(U,$J,.84,9201,2,36,0) 49: ;;= Repaint screen <PF1>P 50: ;;^UTILITY(U,$J,.84,9201,2,37,0) 51: ;;= Split screen <PF2>S 52: ;;^UTILITY(U,$J,.84,9201,2,38,0) 53: ;;= restore Full screen <PF2>F 54: ;;^UTILITY(U,$J,.84,9201,2,39,0) 55: ;;= 56: ;;^UTILITY(U,$J,.84,9201,2,40,0) 57: ;;= Split Screen Mode Navigation: 58: ;;^UTILITY(U,$J,.84,9201,2,41,0) 59: ;;= ----------------------------- 60: ;;^UTILITY(U,$J,.84,9201,2,42,0) 61: ;;= Navigate to bottom screen <PF2>ARROW DOWN 62: ;;^UTILITY(U,$J,.84,9201,2,43,0) 63: ;;= Navigate to top screen <PF2>ARROW UP 64: ;;^UTILITY(U,$J,.84,9201,2,44,0) 65: ;;= 66: ;;^UTILITY(U,$J,.84,9201,2,45,0) 67: ;;= Resize Split Screen: 68: ;;^UTILITY(U,$J,.84,9201,2,46,0) 69: ;;= -------------------- 70: ;;^UTILITY(U,$J,.84,9201,2,47,0) 71: ;;= Top/Bottom screen larger/smaller <PF2><PF2>ARROW DOWN 72: ;;^UTILITY(U,$J,.84,9201,2,48,0) 73: ;;= Bottom/Top screen larger/smaller <PF2><PF2>ARROW UP 74: ;;^UTILITY(U,$J,.84,9201,2,49,0) 75: ;;= 76: ;;^UTILITY(U,$J,.84,9201,2,50,0) 77: ;;=HELP: 78: ;;^UTILITY(U,$J,.84,9201,2,51,0) 79: ;;====== 80: ;;^UTILITY(U,$J,.84,9201,2,52,0) 81: ;;= Browse Key Summary <PF1>H 82: ;;^UTILITY(U,$J,.84,9201,2,53,0) 83: ;;= More Help <PF1><PF1>H 84: ;;^UTILITY(U,$J,.84,9201,2,54,0) 85: ;;= 86: ;;^UTILITY(U,$J,.84,9201,2,55,0) 87: ;;=EXIT: 88: ;;^UTILITY(U,$J,.84,9201,2,56,0) 89: ;;====== 90: ;;^UTILITY(U,$J,.84,9201,2,57,0) 91: ;;= Exit Browser or help text <PF1>E or "EXIT" 92: ;;^UTILITY(U,$J,.84,9201,2,58,0) 93: ;;= Quit <PF1>Q 94: ;;^UTILITY(U,$J,.84,9201,2,59,0) 95: ;;= 96: ;;^UTILITY(U,$J,.84,9201,2,60,0) 97: ;;= More Help 98: ;;^UTILITY(U,$J,.84,9201,2,61,0) 99: ;;= ========= 100: ;;^UTILITY(U,$J,.84,9201,2,62,0) 101: ;;= 102: ;;^UTILITY(U,$J,.84,9201,2,63,0) 103: ;;= To EXIT the VA FileMan Browser, press <PF1> followed by the letter 104: ;;^UTILITY(U,$J,.84,9201,2,64,0) 105: ;;= 'E'. This is also true for this HELP document which is being 106: ;;^UTILITY(U,$J,.84,9201,2,65,0) 107: ;;= presented by the Browser. 108: ;;^UTILITY(U,$J,.84,9201,2,66,0) 109: ;;= 110: ;;^UTILITY(U,$J,.84,9201,2,67,0) 111: ;;= To SCROLL DOWN one line at a time, press the ARROW DOWN key. 112: ;;^UTILITY(U,$J,.84,9201,2,68,0) 113: ;;= 114: ;;^UTILITY(U,$J,.84,9201,2,69,0) 115: ;;= To SCROLL UP one line at a time, press the ARROW UP key. 116: ;;^UTILITY(U,$J,.84,9201,2,70,0) 117: ;;= 118: ;;^UTILITY(U,$J,.84,9201,2,71,0) 119: ;;= To SCROLL RIGHT, press the ARROW RIGHT key. 120: ;;^UTILITY(U,$J,.84,9201,2,72,0) 121: ;;= 122: ;;^UTILITY(U,$J,.84,9201,2,73,0) 123: ;;= To SCROLL LEFT, press the ARROW LEFT key. 124: ;;^UTILITY(U,$J,.84,9201,2,74,0) 125: ;;= 126: ;;^UTILITY(U,$J,.84,9201,2,75,0) 127: ;;= Try pressing these keys at this time and observe the behavior. Get a 128: ;;^UTILITY(U,$J,.84,9201,2,76,0) 129: ;;= feel for 'browsing' through a document. Press the arrow down key a