DINIT00U ; SFISC/TKW-DIALOG & LANGUAGE FILE INITS ;12:15 PM 25 Aug 2000 [ 04/02/2003 8:25 AM ]
;;22.0;VA FileMan;**1001**;APR 1, 2003
;;22.0;VA FileMan;**8,18**;Mar 30, 1999
;Per VHA Directive 10-93-142, this routine should not be modified.
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
Q Q
;;^UTILITY(U,$J,.84,9213,2,1,0)
;;= \BHelp Screen 3 of 4\n
;;^UTILITY(U,$J,.84,9213,2,2,0)
;;=\BSettings/Modes\n
;;^UTILITY(U,$J,.84,9213,2,3,0)
;;=
;;^UTILITY(U,$J,.84,9213,2,4,0)
;;= Wrap/nowrap mode toggle <PF2>
;;^UTILITY(U,$J,.84,9213,2,5,0)
;;= Insert/replace mode toggle <PF3> or <Insert Here> or <Insert>
;;^UTILITY(U,$J,.84,9213,2,6,0)
;;= Set/clear tab stop <PF1><Tab>
;;^UTILITY(U,$J,.84,9213,2,7,0)
;;= Enter columns for tab stops <PF1><PF1><Tab>
;;^UTILITY(U,$J,.84,9213,2,8,0)
;;= Set left margin <PF1>,
;;^UTILITY(U,$J,.84,9213,2,9,0)
;;= Set right margin <PF1>.
;;^UTILITY(U,$J,.84,9213,2,10,0)
;;= Status line toggle <PF1>?
;;^UTILITY(U,$J,.84,9213,2,11,0)
;;=
;;^UTILITY(U,$J,.84,9213,2,12,0)
;;=
;;^UTILITY(U,$J,.84,9213,2,13,0)
;;=\BFormatting\n
;;^UTILITY(U,$J,.84,9213,2,14,0)
;;=
;;^UTILITY(U,$J,.84,9213,2,15,0)
;;= Join current line to next line <PF1>J
;;^UTILITY(U,$J,.84,9213,2,16,0)
;;= Reformat paragraph <PF1>R
;;^UTILITY(U,$J,.84,9214,0)
;;=9214^3^^5
;;^UTILITY(U,$J,.84,9214,1,0)
;;=^^1^1^2940624^^^^
;;^UTILITY(U,$J,.84,9214,1,1,0)
;;=Screen 4 of Screen Editor help.
;;^UTILITY(U,$J,.84,9214,2,0)
;;=^^19^19^2961212^^
;;^UTILITY(U,$J,.84,9214,2,1,0)
;;= \BHelp Screen 4 of 4\n
;;^UTILITY(U,$J,.84,9214,2,2,0)
;;=
;;^UTILITY(U,$J,.84,9214,2,3,0)
;;=\BFinding\n
;;^UTILITY(U,$J,.84,9214,2,4,0)
;;=
;;^UTILITY(U,$J,.84,9214,2,5,0)
;;= Find text <PF1>F
;;^UTILITY(U,$J,.84,9214,2,6,0)
;;= Find next occurence of text <PF1>N
;;^UTILITY(U,$J,.84,9214,2,7,0)
;;= Find/RePlace text <PF1>P
;;^UTILITY(U,$J,.84,9214,2,8,0)
;;=
;;^UTILITY(U,$J,.84,9214,2,9,0)
;;=
;;^UTILITY(U,$J,.84,9214,2,10,0)
;;=\BCutting/Copying/Pasting\n
;;^UTILITY(U,$J,.84,9214,2,11,0)
;;=
;;^UTILITY(U,$J,.84,9214,2,12,0)
;;= Select (Mark) text <PF1>M at beginning and end of text
;;^UTILITY(U,$J,.84,9214,2,13,0)
;;= Unselect (Unmark) text <PF1><PF1>M
;;^UTILITY(U,$J,.84,9214,2,14,0)
;;= Delete selected text <Delete> or <Backspace> on selected text
;;^UTILITY(U,$J,.84,9214,2,15,0)
;;= Cut and save to buffer <PF1>X on selected text
;;^UTILITY(U,$J,.84,9214,2,16,0)
;;= Copy and save to buffer <PF1>C on selected text
;;^UTILITY(U,$J,.84,9214,2,17,0)
;;= Paste from buffer <PF1>V
;;^UTILITY(U,$J,.84,9214,2,18,0)
;;= Move text to another location <PF1>X at new location
;;^UTILITY(U,$J,.84,9214,2,19,0)
;;= Copy text to another location <PF1>C at new location
;;^UTILITY(U,$J,.84,9231,0)
;;=9231^3^^5
;;^UTILITY(U,$J,.84,9231,1,0)
;;=^^1^1^2940706^^
;;^UTILITY(U,$J,.84,9231,1,1,0)
;;=Screen 1 of ScreenMan help.
;;^UTILITY(U,$J,.84,9231,2,0)
;;=^^18^18^2940831^
;;^UTILITY(U,$J,.84,9231,2,1,0)
;;= \BScreen 1 of 3\n
;;^UTILITY(U,$J,.84,9231,2,2,0)
;;= \BSCREENMAN HELP\n
;;^UTILITY(U,$J,.84,9231,2,3,0)
;;=
;;^UTILITY(U,$J,.84,9231,2,4,0)
;;=\BCursor Movement\n
;;^UTILITY(U,$J,.84,9231,2,5,0)
;;=
;;^UTILITY(U,$J,.84,9231,2,6,0)
;;=Move right one character <Right>
;;^UTILITY(U,$J,.84,9231,2,7,0)
;;=Move left one character <Left>
;;^UTILITY(U,$J,.84,9231,2,8,0)
;;=Move right one word <Ctrl-L> or <PF1><Space>
;;^UTILITY(U,$J,.84,9231,2,9,0)
;;=Move left one word <Ctrl-J>
;;^UTILITY(U,$J,.84,9231,2,10,0)
;;=Move to right of window <PF1><Right>
;;^UTILITY(U,$J,.84,9231,2,11,0)
;;=Move to left of window <PF1><Left>
;;^UTILITY(U,$J,.84,9231,2,12,0)
;;=Move to end of field <PF1><PF1><Right>
;;^UTILITY(U,$J,.84,9231,2,13,0)
;;=Move to beginning of field <PF1><PF1><Left>
;;^UTILITY(U,$J,.84,9231,2,14,0)
;;=
;;^UTILITY(U,$J,.84,9231,2,15,0)
;;=\BModes\n
;;^UTILITY(U,$J,.84,9231,2,16,0)
;;=
;;^UTILITY(U,$J,.84,9231,2,17,0)
;;=Insert/Replace toggle <PF3>
;;^UTILITY(U,$J,.84,9231,2,18,0)
;;=Zoom (invoke multiline editor) <PF1>Z
;;^UTILITY(U,$J,.84,9232,0)
;;=9232^3^^5
;;^UTILITY(U,$J,.84,9232,1,0)
;;=^^1^1^2940706^
;;^UTILITY(U,$J,.84,9232,1,1,0)
;;=Screen 2 of ScreenMan help.
;;^UTILITY(U,$J,.84,9232,2,0)
;;=^^20^20^2940831^
;;^UTILITY(U,$J,.84,9232,2,1,0)
;;= \BScreen 2 of 3\n
;;^UTILITY(U,$J,.84,9232,2,2,0)
;;=
;;^UTILITY(U,$J,.84,9232,2,3,0)
;;=\BDeletions\n
;;^UTILITY(U,$J,.84,9232,2,4,0)
;;=
;;^UTILITY(U,$J,.84,9232,2,5,0)
;;=Character under cursor <PF2> or <Delete>
;;^UTILITY(U,$J,.84,9232,2,6,0)
;;=Character left of cursor <Backspace>
;;^UTILITY(U,$J,.84,9232,2,7,0)
;;=From cursor to end of word <Ctrl-W>
;;^UTILITY(U,$J,.84,9232,2,8,0)
;;=From cursor to end of field <PF1><PF2>
;;^UTILITY(U,$J,.84,9232,2,9,0)
;;=Toggle null/last edit/default <PF1>D or <Ctrl-U>
;;^UTILITY(U,$J,.84,9232,2,10,0)
;;=
;;^UTILITY(U,$J,.84,9232,2,11,0)
;;=
;;^UTILITY(U,$J,.84,9232,2,12,0)
;;=\BMacro Movement\n
;;^UTILITY(U,$J,.84,9232,2,13,0)
;;=
;;^UTILITY(U,$J,.84,9232,2,14,0)
;;=Field below <Down> | Next page <PF1><Down> or <PageDown>
;;^UTILITY(U,$J,.84,9232,2,15,0)
;;=Field above <Up> | Previous page <PF1><Up> or <PageUp>
;;^UTILITY(U,$J,.84,9232,2,16,0)
;;=Field to right <Tab> | Next block <PF1><PF4>
;;^UTILITY(U,$J,.84,9232,2,17,0)
;;=Field to left <PF4> | Jump to a field ^caption
;;^UTILITY(U,$J,.84,9232,2,18,0)
;;=Pre-defined order <Return> | Go to Command Line ^
;;^UTILITY(U,$J,.84,9232,2,19,0)
;;=
;;^UTILITY(U,$J,.84,9232,2,20,0)
;;=Go into multiple or word processing field <Return>
;;^UTILITY(U,$J,.84,9233,0)
;;=9233^3^^5
;;^UTILITY(U,$J,.84,9233,1,0)
;;=^^1^1^2941116^^
;;^UTILITY(U,$J,.84,9233,1,1,0)
;;=Screen 3 of ScreenMan help.
;;^UTILITY(U,$J,.84,9233,2,0)
;;=^^18^18^2941116^
;;^UTILITY(U,$J,.84,9233,2,1,0)
;;= \BScreen 3 of 3\n
;;^UTILITY(U,$J,.84,9233,2,2,0)
;;=
;;^UTILITY(U,$J,.84,9233,2,3,0)
;;=\BCommand Line Options\n (Enter '^' at any field to jump to the command line.)
DINIT00U ; SFISC/TKW-DIALOG & LANGUAGE FILE INITS ;12:15 PM 25 Aug 2000 [ 04/02/2003 8:25 AM ]
+1 ;;22.0;VA FileMan;**1001**;APR 1, 2003
+2 ;;22.0;VA FileMan;**8,18**;Mar 30, 1999
+3 ;Per VHA Directive 10-93-142, this routine should not be modified.
+4 FOR I=1:2
SET X=$TEXT(Q+I)
IF X=""
QUIT
SET Y=$EXTRACT($TEXT(Q+I+1),4,999)
SET X=$EXTRACT(X,4,999)
IF $ASCII(Y)=126
SET I=I+1
SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,99)
IF $ASCII(Y)=61
SET Y=$EXTRACT(Y,2,999)
SET @X=Y
Q QUIT
+1 ;;^UTILITY(U,$J,.84,9213,2,1,0)
+2 ;;= \BHelp Screen 3 of 4\n
+3 ;;^UTILITY(U,$J,.84,9213,2,2,0)
+4 ;;=\BSettings/Modes\n
+5 ;;^UTILITY(U,$J,.84,9213,2,3,0)
+6 ;;=
+7 ;;^UTILITY(U,$J,.84,9213,2,4,0)
+8 ;;= Wrap/nowrap mode toggle <PF2>
+9 ;;^UTILITY(U,$J,.84,9213,2,5,0)
+10 ;;= Insert/replace mode toggle <PF3> or <Insert Here> or <Insert>
+11 ;;^UTILITY(U,$J,.84,9213,2,6,0)
+12 ;;= Set/clear tab stop <PF1><Tab>
+13 ;;^UTILITY(U,$J,.84,9213,2,7,0)
+14 ;;= Enter columns for tab stops <PF1><PF1><Tab>
+15 ;;^UTILITY(U,$J,.84,9213,2,8,0)
+16 ;;= Set left margin <PF1>,
+17 ;;^UTILITY(U,$J,.84,9213,2,9,0)
+18 ;;= Set right margin <PF1>.
+19 ;;^UTILITY(U,$J,.84,9213,2,10,0)
+20 ;;= Status line toggle <PF1>?
+21 ;;^UTILITY(U,$J,.84,9213,2,11,0)
+22 ;;=
+23 ;;^UTILITY(U,$J,.84,9213,2,12,0)
+24 ;;=
+25 ;;^UTILITY(U,$J,.84,9213,2,13,0)
+26 ;;=\BFormatting\n
+27 ;;^UTILITY(U,$J,.84,9213,2,14,0)
+28 ;;=
+29 ;;^UTILITY(U,$J,.84,9213,2,15,0)
+30 ;;= Join current line to next line <PF1>J
+31 ;;^UTILITY(U,$J,.84,9213,2,16,0)
+32 ;;= Reformat paragraph <PF1>R
+33 ;;^UTILITY(U,$J,.84,9214,0)
+34 ;;=9214^3^^5
+35 ;;^UTILITY(U,$J,.84,9214,1,0)
+36 ;;=^^1^1^2940624^^^^
+37 ;;^UTILITY(U,$J,.84,9214,1,1,0)
+38 ;;=Screen 4 of Screen Editor help.
+39 ;;^UTILITY(U,$J,.84,9214,2,0)
+40 ;;=^^19^19^2961212^^
+41 ;;^UTILITY(U,$J,.84,9214,2,1,0)
+42 ;;= \BHelp Screen 4 of 4\n
+43 ;;^UTILITY(U,$J,.84,9214,2,2,0)
+44 ;;=
+45 ;;^UTILITY(U,$J,.84,9214,2,3,0)
+46 ;;=\BFinding\n
+47 ;;^UTILITY(U,$J,.84,9214,2,4,0)
+48 ;;=
+49 ;;^UTILITY(U,$J,.84,9214,2,5,0)
+50 ;;= Find text <PF1>F
+51 ;;^UTILITY(U,$J,.84,9214,2,6,0)
+52 ;;= Find next occurence of text <PF1>N
+53 ;;^UTILITY(U,$J,.84,9214,2,7,0)
+54 ;;= Find/RePlace text <PF1>P
+55 ;;^UTILITY(U,$J,.84,9214,2,8,0)
+56 ;;=
+57 ;;^UTILITY(U,$J,.84,9214,2,9,0)
+58 ;;=
+59 ;;^UTILITY(U,$J,.84,9214,2,10,0)
+60 ;;=\BCutting/Copying/Pasting\n
+61 ;;^UTILITY(U,$J,.84,9214,2,11,0)
+62 ;;=
+63 ;;^UTILITY(U,$J,.84,9214,2,12,0)
+64 ;;= Select (Mark) text <PF1>M at beginning and end of text
+65 ;;^UTILITY(U,$J,.84,9214,2,13,0)
+66 ;;= Unselect (Unmark) text <PF1><PF1>M
+67 ;;^UTILITY(U,$J,.84,9214,2,14,0)
+68 ;;= Delete selected text <Delete> or <Backspace> on selected text
+69 ;;^UTILITY(U,$J,.84,9214,2,15,0)
+70 ;;= Cut and save to buffer <PF1>X on selected text
+71 ;;^UTILITY(U,$J,.84,9214,2,16,0)
+72 ;;= Copy and save to buffer <PF1>C on selected text
+73 ;;^UTILITY(U,$J,.84,9214,2,17,0)
+74 ;;= Paste from buffer <PF1>V
+75 ;;^UTILITY(U,$J,.84,9214,2,18,0)
+76 ;;= Move text to another location <PF1>X at new location
+77 ;;^UTILITY(U,$J,.84,9214,2,19,0)
+78 ;;= Copy text to another location <PF1>C at new location
+79 ;;^UTILITY(U,$J,.84,9231,0)
+80 ;;=9231^3^^5
+81 ;;^UTILITY(U,$J,.84,9231,1,0)
+82 ;;=^^1^1^2940706^^
+83 ;;^UTILITY(U,$J,.84,9231,1,1,0)
+84 ;;=Screen 1 of ScreenMan help.
+85 ;;^UTILITY(U,$J,.84,9231,2,0)
+86 ;;=^^18^18^2940831^
+87 ;;^UTILITY(U,$J,.84,9231,2,1,0)
+88 ;;= \BScreen 1 of 3\n
+89 ;;^UTILITY(U,$J,.84,9231,2,2,0)
+90 ;;= \BSCREENMAN HELP\n
+91 ;;^UTILITY(U,$J,.84,9231,2,3,0)
+92 ;;=
+93 ;;^UTILITY(U,$J,.84,9231,2,4,0)
+94 ;;=\BCursor Movement\n
+95 ;;^UTILITY(U,$J,.84,9231,2,5,0)
+96 ;;=
+97 ;;^UTILITY(U,$J,.84,9231,2,6,0)
+98 ;;=Move right one character <Right>
+99 ;;^UTILITY(U,$J,.84,9231,2,7,0)
+100 ;;=Move left one character <Left>
+101 ;;^UTILITY(U,$J,.84,9231,2,8,0)
+102 ;;=Move right one word <Ctrl-L> or <PF1><Space>
+103 ;;^UTILITY(U,$J,.84,9231,2,9,0)
+104 ;;=Move left one word <Ctrl-J>
+105 ;;^UTILITY(U,$J,.84,9231,2,10,0)
+106 ;;=Move to right of window <PF1><Right>
+107 ;;^UTILITY(U,$J,.84,9231,2,11,0)
+108 ;;=Move to left of window <PF1><Left>
+109 ;;^UTILITY(U,$J,.84,9231,2,12,0)
+110 ;;=Move to end of field <PF1><PF1><Right>
+111 ;;^UTILITY(U,$J,.84,9231,2,13,0)
+112 ;;=Move to beginning of field <PF1><PF1><Left>
+113 ;;^UTILITY(U,$J,.84,9231,2,14,0)
+114 ;;=
+115 ;;^UTILITY(U,$J,.84,9231,2,15,0)
+116 ;;=\BModes\n
+117 ;;^UTILITY(U,$J,.84,9231,2,16,0)
+118 ;;=
+119 ;;^UTILITY(U,$J,.84,9231,2,17,0)
+120 ;;=Insert/Replace toggle <PF3>
+121 ;;^UTILITY(U,$J,.84,9231,2,18,0)
+122 ;;=Zoom (invoke multiline editor) <PF1>Z
+123 ;;^UTILITY(U,$J,.84,9232,0)
+124 ;;=9232^3^^5
+125 ;;^UTILITY(U,$J,.84,9232,1,0)
+126 ;;=^^1^1^2940706^
+127 ;;^UTILITY(U,$J,.84,9232,1,1,0)
+128 ;;=Screen 2 of ScreenMan help.
+129 ;;^UTILITY(U,$J,.84,9232,2,0)
+130 ;;=^^20^20^2940831^
+131 ;;^UTILITY(U,$J,.84,9232,2,1,0)
+132 ;;= \BScreen 2 of 3\n
+133 ;;^UTILITY(U,$J,.84,9232,2,2,0)
+134 ;;=
+135 ;;^UTILITY(U,$J,.84,9232,2,3,0)
+136 ;;=\BDeletions\n
+137 ;;^UTILITY(U,$J,.84,9232,2,4,0)
+138 ;;=
+139 ;;^UTILITY(U,$J,.84,9232,2,5,0)
+140 ;;=Character under cursor <PF2> or <Delete>
+141 ;;^UTILITY(U,$J,.84,9232,2,6,0)
+142 ;;=Character left of cursor <Backspace>
+143 ;;^UTILITY(U,$J,.84,9232,2,7,0)
+144 ;;=From cursor to end of word <Ctrl-W>
+145 ;;^UTILITY(U,$J,.84,9232,2,8,0)
+146 ;;=From cursor to end of field <PF1><PF2>
+147 ;;^UTILITY(U,$J,.84,9232,2,9,0)
+148 ;;=Toggle null/last edit/default <PF1>D or <Ctrl-U>
+149 ;;^UTILITY(U,$J,.84,9232,2,10,0)
+150 ;;=
+151 ;;^UTILITY(U,$J,.84,9232,2,11,0)
+152 ;;=
+153 ;;^UTILITY(U,$J,.84,9232,2,12,0)
+154 ;;=\BMacro Movement\n
+155 ;;^UTILITY(U,$J,.84,9232,2,13,0)
+156 ;;=
+157 ;;^UTILITY(U,$J,.84,9232,2,14,0)
+158 ;;=Field below <Down> | Next page <PF1><Down> or <PageDown>
+159 ;;^UTILITY(U,$J,.84,9232,2,15,0)
+160 ;;=Field above <Up> | Previous page <PF1><Up> or <PageUp>
+161 ;;^UTILITY(U,$J,.84,9232,2,16,0)
+162 ;;=Field to right <Tab> | Next block <PF1><PF4>
+163 ;;^UTILITY(U,$J,.84,9232,2,17,0)
+164 ;;=Field to left <PF4> | Jump to a field ^caption
+165 ;;^UTILITY(U,$J,.84,9232,2,18,0)
+166 ;;=Pre-defined order <Return> | Go to Command Line ^
+167 ;;^UTILITY(U,$J,.84,9232,2,19,0)
+168 ;;=
+169 ;;^UTILITY(U,$J,.84,9232,2,20,0)
+170 ;;=Go into multiple or word processing field <Return>
+171 ;;^UTILITY(U,$J,.84,9233,0)
+172 ;;=9233^3^^5
+173 ;;^UTILITY(U,$J,.84,9233,1,0)
+174 ;;=^^1^1^2941116^^
+175 ;;^UTILITY(U,$J,.84,9233,1,1,0)
+176 ;;=Screen 3 of ScreenMan help.
+177 ;;^UTILITY(U,$J,.84,9233,2,0)
+178 ;;=^^18^18^2941116^
+179 ;;^UTILITY(U,$J,.84,9233,2,1,0)
+180 ;;= \BScreen 3 of 3\n
+181 ;;^UTILITY(U,$J,.84,9233,2,2,0)
+182 ;;=
+183 ;;^UTILITY(U,$J,.84,9233,2,3,0)
+184 ;;=\BCommand Line Options\n (Enter '^' at any field to jump to the command line.)
