freem_fileman/USER/DINIT00Z.m - view

File: [Coherent Logic Development] / freem_fileman / USER / DINIT00Z.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: DINIT00Z ; 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,9232,2,3,0) 7: ;;=\BDeletions\n 8: ;;^UTILITY(U,$J,.84,9232,2,4,0) 9: ;;= 10: ;;^UTILITY(U,$J,.84,9232,2,5,0) 11: ;;=Character under cursor <PF2> or <Delete> 12: ;;^UTILITY(U,$J,.84,9232,2,6,0) 13: ;;=Character left of cursor <Backspace> 14: ;;^UTILITY(U,$J,.84,9232,2,7,0) 15: ;;=From cursor to end of word <Ctrl-W> 16: ;;^UTILITY(U,$J,.84,9232,2,8,0) 17: ;;=From cursor to end of field <PF1><PF2> 18: ;;^UTILITY(U,$J,.84,9232,2,9,0) 19: ;;=Toggle null/last edit/default <PF1>D or <Ctrl-U> 20: ;;^UTILITY(U,$J,.84,9232,2,10,0) 21: ;;= 22: ;;^UTILITY(U,$J,.84,9232,2,11,0) 23: ;;= 24: ;;^UTILITY(U,$J,.84,9232,2,12,0) 25: ;;=\BMacro Movement\n 26: ;;^UTILITY(U,$J,.84,9232,2,13,0) 27: ;;= 28: ;;^UTILITY(U,$J,.84,9232,2,14,0) 29: ;;=Field below <Down> | Next page <PF1><Down> or <PageDown> 30: ;;^UTILITY(U,$J,.84,9232,2,15,0) 31: ;;=Field above <Up> | Previous page <PF1><Up> or <PageUp> 32: ;;^UTILITY(U,$J,.84,9232,2,16,0) 33: ;;=Field to right <Tab> | Next block <PF1><PF4> 34: ;;^UTILITY(U,$J,.84,9232,2,17,0) 35: ;;=Field to left <PF4> | Jump to a field ^caption 36: ;;^UTILITY(U,$J,.84,9232,2,18,0) 37: ;;=Pre-defined order <Return> | Go to Command Line ^ 38: ;;^UTILITY(U,$J,.84,9232,2,19,0) 39: ;;= 40: ;;^UTILITY(U,$J,.84,9232,2,20,0) 41: ;;=Go into multiple or word processing field <Return> 42: ;;^UTILITY(U,$J,.84,9233,0) 43: ;;=9233^3^^11 44: ;;^UTILITY(U,$J,.84,9233,1,0) 45: ;;=^^1^1^2941116^^ 46: ;;^UTILITY(U,$J,.84,9233,1,1,0) 47: ;;=Screen 3 of ScreenMan help. 48: ;;^UTILITY(U,$J,.84,9233,2,0) 49: ;;=^^18^18^2941116^ 50: ;;^UTILITY(U,$J,.84,9233,2,1,0) 51: ;;= \BScreen 3 of 3\n 52: ;;^UTILITY(U,$J,.84,9233,2,2,0) 53: ;;= 54: ;;^UTILITY(U,$J,.84,9233,2,3,0) 55: ;;=\BCommand Line Options\n (Enter '^' at any field to jump to the command line.) 56: ;;^UTILITY(U,$J,.84,9233,2,4,0) 57: ;;= 58: ;;^UTILITY(U,$J,.84,9233,2,5,0) 59: ;;=Command Shortcut Description 60: ;;^UTILITY(U,$J,.84,9233,2,6,0) 61: ;;=------- -------- ----------- 62: ;;^UTILITY(U,$J,.84,9233,2,7,0) 63: ;;=EXIT see below Exit form (asks whether changes should be saved) 64: ;;^UTILITY(U,$J,.84,9233,2,8,0) 65: ;;=CLOSE <PF1>C Close window and return to previous level 66: ;;^UTILITY(U,$J,.84,9233,2,9,0) 67: ;;=SAVE <PF1>S Save changes 68: ;;^UTILITY(U,$J,.84,9233,2,10,0) 69: ;;=NEXT PAGE <PF1><Down> Go to next page 70: ;;^UTILITY(U,$J,.84,9233,2,11,0) 71: ;;=REFRESH <PF1>R Repaint screen 72: ;;^UTILITY(U,$J,.84,9233,2,12,0) 73: ;;= 74: ;;^UTILITY(U,$J,.84,9233,2,13,0) 75: ;;= 76: ;;^UTILITY(U,$J,.84,9233,2,14,0) 77: ;;=\BOther Shortcut Keys\n 78: ;;^UTILITY(U,$J,.84,9233,2,15,0) 79: ;;= 80: ;;^UTILITY(U,$J,.84,9233,2,16,0) 81: ;;=Exit form and save changes <PF1>E 82: ;;^UTILITY(U,$J,.84,9233,2,17,0) 83: ;;=Quit form without saving changes <PF1>Q 84: ;;^UTILITY(U,$J,.84,9233,2,18,0) 85: ;;=Invoke Record Selection Page <PF1>L 86: ;;^UTILITY(U,$J,.84,9251,0) 87: ;;=9251^3^^11 88: ;;^UTILITY(U,$J,.84,9251,1,0) 89: ;;=^^1^1^2940707^^ 90: ;;^UTILITY(U,$J,.84,9251,1,1,0) 91: ;;=Help Screen 1 of Form Editor help. 92: ;;^UTILITY(U,$J,.84,9251,2,0) 93: ;;=^^22^22^2940707^ 94: ;;^UTILITY(U,$J,.84,9251,2,1,0) 95: ;;= \BHelp Screen 1 of 9\n 96: ;;^UTILITY(U,$J,.84,9251,2,2,0) 97: ;;=\BNAVIGATIONAL KEYS\n 98: ;;^UTILITY(U,$J,.84,9251,2,3,0) 99: ;;= 100: ;;^UTILITY(U,$J,.84,9251,2,4,0) 101: ;;=Press To move | Press To move 102: ;;^UTILITY(U,$J,.84,9251,2,5,0) 103: ;;=------------------------------------------------------------------- 104: ;;^UTILITY(U,$J,.84,9251,2,6,0) 105: ;;=<Up> Up one line | <PF1><Up> To top of screen 106: ;;^UTILITY(U,$J,.84,9251,2,7,0) 107: ;;=<Down> Down one line | <PF1><Down> To bottom of screen 108: ;;^UTILITY(U,$J,.84,9251,2,8,0) 109: ;;=<Right> Right one character | <PF1><Right> To right edge of screen 110: ;;^UTILITY(U,$J,.84,9251,2,9,0) 111: ;;=<Left> Left one character | <PF1><Left> To left edge of screen 112: ;;^UTILITY(U,$J,.84,9251,2,10,0) 113: ;;=<Tab> To next element 114: ;;^UTILITY(U,$J,.84,9251,2,11,0) 115: ;;=Q To previous element 116: ;;^UTILITY(U,$J,.84,9251,2,12,0) 117: ;;=S Right 5 characters 118: ;;^UTILITY(U,$J,.84,9251,2,13,0) 119: ;;=A Left 5 characters 120: ;;^UTILITY(U,$J,.84,9251,2,14,0) 121: ;;= 122: ;;^UTILITY(U,$J,.84,9251,2,15,0) 123: ;;= 124: ;;^UTILITY(U,$J,.84,9251,2,16,0) 125: ;;=\BSAVING AND EXITING\n