DINIT00U.m

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.)