DINIT00V ; SFISC/TKW-DIALOG & LANGUAGE FILE INITS ; 3/30/99 10:41:48
;;22.0;VA FileMan;;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,9233,2,4,0)
;;=
;;^UTILITY(U,$J,.84,9233,2,5,0)
;;=Command Shortcut Description
;;^UTILITY(U,$J,.84,9233,2,6,0)
;;=------- -------- -----------
;;^UTILITY(U,$J,.84,9233,2,7,0)
;;=EXIT see below Exit form (asks whether changes should be saved)
;;^UTILITY(U,$J,.84,9233,2,8,0)
;;=CLOSE <PF1>C Close window and return to previous level
;;^UTILITY(U,$J,.84,9233,2,9,0)
;;=SAVE <PF1>S Save changes
;;^UTILITY(U,$J,.84,9233,2,10,0)
;;=NEXT PAGE <PF1><Down> Go to next page
;;^UTILITY(U,$J,.84,9233,2,11,0)
;;=REFRESH <PF1>R Repaint screen
;;^UTILITY(U,$J,.84,9233,2,12,0)
;;=
;;^UTILITY(U,$J,.84,9233,2,13,0)
;;=
;;^UTILITY(U,$J,.84,9233,2,14,0)
;;=\BOther Shortcut Keys\n
;;^UTILITY(U,$J,.84,9233,2,15,0)
;;=
;;^UTILITY(U,$J,.84,9233,2,16,0)
;;=Exit form and save changes <PF1>E
;;^UTILITY(U,$J,.84,9233,2,17,0)
;;=Quit form without saving changes <PF1>Q
;;^UTILITY(U,$J,.84,9233,2,18,0)
;;=Invoke Record Selection Page <PF1>L
;;^UTILITY(U,$J,.84,9251,0)
;;=9251^3^^5
;;^UTILITY(U,$J,.84,9251,1,0)
;;=^^1^1^2940707^^
;;^UTILITY(U,$J,.84,9251,1,1,0)
;;=Help Screen 1 of Form Editor help.
;;^UTILITY(U,$J,.84,9251,2,0)
;;=^^22^22^2940707^
;;^UTILITY(U,$J,.84,9251,2,1,0)
;;= \BHelp Screen 1 of 9\n
;;^UTILITY(U,$J,.84,9251,2,2,0)
;;=\BNAVIGATIONAL KEYS\n
;;^UTILITY(U,$J,.84,9251,2,3,0)
;;=
;;^UTILITY(U,$J,.84,9251,2,4,0)
;;=Press To move | Press To move
;;^UTILITY(U,$J,.84,9251,2,5,0)
;;=-------------------------------------------------------------------
;;^UTILITY(U,$J,.84,9251,2,6,0)
;;=<Up> Up one line | <PF1><Up> To top of screen
;;^UTILITY(U,$J,.84,9251,2,7,0)
;;=<Down> Down one line | <PF1><Down> To bottom of screen
;;^UTILITY(U,$J,.84,9251,2,8,0)
;;=<Right> Right one character | <PF1><Right> To right edge of screen
;;^UTILITY(U,$J,.84,9251,2,9,0)
;;=<Left> Left one character | <PF1><Left> To left edge of screen
;;^UTILITY(U,$J,.84,9251,2,10,0)
;;=<Tab> To next element
;;^UTILITY(U,$J,.84,9251,2,11,0)
;;=Q To previous element
;;^UTILITY(U,$J,.84,9251,2,12,0)
;;=S Right 5 characters
;;^UTILITY(U,$J,.84,9251,2,13,0)
;;=A Left 5 characters
;;^UTILITY(U,$J,.84,9251,2,14,0)
;;=
;;^UTILITY(U,$J,.84,9251,2,15,0)
;;=
;;^UTILITY(U,$J,.84,9251,2,16,0)
;;=\BSAVING AND EXITING\n
;;^UTILITY(U,$J,.84,9251,2,17,0)
;;=
;;^UTILITY(U,$J,.84,9251,2,18,0)
;;=Press To
;;^UTILITY(U,$J,.84,9251,2,19,0)
;;=----------------------------------------------------
;;^UTILITY(U,$J,.84,9251,2,20,0)
;;=<PF1>S Save changes
;;^UTILITY(U,$J,.84,9251,2,21,0)
;;=<PF1>E Save changes and exit the Form Editor
;;^UTILITY(U,$J,.84,9251,2,22,0)
;;=<PF1>Q Quit the Form Editor without saving changes
;;^UTILITY(U,$J,.84,9252,0)
;;=9252^3^^5
;;^UTILITY(U,$J,.84,9252,1,0)
;;=^^1^1^2941116^^^
;;^UTILITY(U,$J,.84,9252,1,1,0)
;;=Help Screen 2 of Form Editor.
;;^UTILITY(U,$J,.84,9252,2,0)
;;=^^19^19^2941116^
;;^UTILITY(U,$J,.84,9252,2,1,0)
;;= \BHelp Screen 2 of 9\n
;;^UTILITY(U,$J,.84,9252,2,2,0)
;;=\BSELECTING SCREEN ELEMENTS\n
;;^UTILITY(U,$J,.84,9252,2,3,0)
;;=
;;^UTILITY(U,$J,.84,9252,2,4,0)
;;=To "select" a screen element, position the cursor over the element and
;;^UTILITY(U,$J,.84,9252,2,5,0)
;;=press <SpaceBar> or <Enter>. This process is abbreviated <SelectElement>.
;;^UTILITY(U,$J,.84,9252,2,6,0)
;;=
;;^UTILITY(U,$J,.84,9252,2,7,0)
;;=Press To
;;^UTILITY(U,$J,.84,9252,2,8,0)
;;=----------------------------------------
;;^UTILITY(U,$J,.84,9252,2,9,0)
;;=<SelectElement> Select a screen element
;;^UTILITY(U,$J,.84,9252,2,10,0)
;;=
;;^UTILITY(U,$J,.84,9252,2,11,0)
;;=Once an element is selected, you can drag it around the screen by using
;;^UTILITY(U,$J,.84,9252,2,12,0)
;;=the navigational keys. You cannot drag an element beyond the boundaries
;;^UTILITY(U,$J,.84,9252,2,13,0)
;;=of the block on which it is defined.
;;^UTILITY(U,$J,.84,9252,2,14,0)
;;=
;;^UTILITY(U,$J,.84,9252,2,15,0)
;;=If you press <SpaceBar> or <Enter> over the caption of an element, both
;;^UTILITY(U,$J,.84,9252,2,16,0)
;;=the caption and data portion of the element, if one exists, are selected.
;;^UTILITY(U,$J,.84,9252,2,17,0)
;;=If you press <SpaceBar> or <Enter> over the data portion of an element,
;;^UTILITY(U,$J,.84,9252,2,18,0)
;;=only the data portion is selected and can be dragged independently of the
;;^UTILITY(U,$J,.84,9252,2,19,0)
;;=caption. Press <SpaceBar> or <Enter> again to deselect the element.
;;^UTILITY(U,$J,.84,9253,0)
;;=9253^3^^5
;;^UTILITY(U,$J,.84,9253,1,0)
;;=^^1^1^2940707^
;;^UTILITY(U,$J,.84,9253,1,1,0)
;;=Help Screen 3 of Form Editor.
;;^UTILITY(U,$J,.84,9253,2,0)
;;=^^15^15^2940707^
;;^UTILITY(U,$J,.84,9253,2,1,0)
;;= \BHelp Screen 3 of 9\n
;;^UTILITY(U,$J,.84,9253,2,2,0)
;;=\BEDITING ELEMENT PROPERTIES\n
;;^UTILITY(U,$J,.84,9253,2,3,0)
;;=
;;^UTILITY(U,$J,.84,9253,2,4,0)
;;=Press To
;;^UTILITY(U,$J,.84,9253,2,5,0)
;;=---------------------------------------------
;;^UTILITY(U,$J,.84,9253,2,6,0)
;;=<SelectElement><PF4> Edit element properties
;;^UTILITY(U,$J,.84,9253,2,7,0)
;;=
;;^UTILITY(U,$J,.84,9253,2,8,0)
;;=You will then be taken into a ScreenMan form where the properties of the
;;^UTILITY(U,$J,.84,9253,2,9,0)
;;=element can be edited.
;;^UTILITY(U,$J,.84,9253,2,10,0)
;;=
;;^UTILITY(U,$J,.84,9253,2,11,0)
;;=The Form Editor uses ScreenMan forms as a kind of modal dialog box. The
;;^UTILITY(U,$J,.84,9253,2,12,0)
;;=changes you make within the forms are permanent; that is, if from a
;;^UTILITY(U,$J,.84,9253,2,13,0)
;;=ScreenMan form you edit the properties of an element, use <PF1>E to save
;;^UTILITY(U,$J,.84,9253,2,14,0)
;;=and exit the form, and then use <PF1>Q to quit the Form Editor, the
;;^UTILITY(U,$J,.84,9253,2,15,0)
;;=changes you made to the properties of the element will remain.
;;^UTILITY(U,$J,.84,9254,0)
;;=9254^3^^5
;;^UTILITY(U,$J,.84,9254,1,0)
;;=^^1^1^2940707^
;;^UTILITY(U,$J,.84,9254,1,1,0)
;;=Help Screen 4 of Form Editor.
;;^UTILITY(U,$J,.84,9254,2,0)
;;=^^18^18^2940707^
DINIT00V ; SFISC/TKW-DIALOG & LANGUAGE FILE INITS ; 3/30/99 10:41:48
+1 ;;22.0;VA FileMan;;Mar 30, 1999
+2 ;Per VHA Directive 10-93-142, this routine should not be modified.
+3 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,9233,2,4,0)
+2 ;;=
+3 ;;^UTILITY(U,$J,.84,9233,2,5,0)
+4 ;;=Command Shortcut Description
+5 ;;^UTILITY(U,$J,.84,9233,2,6,0)
+6 ;;=------- -------- -----------
+7 ;;^UTILITY(U,$J,.84,9233,2,7,0)
+8 ;;=EXIT see below Exit form (asks whether changes should be saved)
+9 ;;^UTILITY(U,$J,.84,9233,2,8,0)
+10 ;;=CLOSE <PF1>C Close window and return to previous level
+11 ;;^UTILITY(U,$J,.84,9233,2,9,0)
+12 ;;=SAVE <PF1>S Save changes
+13 ;;^UTILITY(U,$J,.84,9233,2,10,0)
+14 ;;=NEXT PAGE <PF1><Down> Go to next page
+15 ;;^UTILITY(U,$J,.84,9233,2,11,0)
+16 ;;=REFRESH <PF1>R Repaint screen
+17 ;;^UTILITY(U,$J,.84,9233,2,12,0)
+18 ;;=
+19 ;;^UTILITY(U,$J,.84,9233,2,13,0)
+20 ;;=
+21 ;;^UTILITY(U,$J,.84,9233,2,14,0)
+22 ;;=\BOther Shortcut Keys\n
+23 ;;^UTILITY(U,$J,.84,9233,2,15,0)
+24 ;;=
+25 ;;^UTILITY(U,$J,.84,9233,2,16,0)
+26 ;;=Exit form and save changes <PF1>E
+27 ;;^UTILITY(U,$J,.84,9233,2,17,0)
+28 ;;=Quit form without saving changes <PF1>Q
+29 ;;^UTILITY(U,$J,.84,9233,2,18,0)
+30 ;;=Invoke Record Selection Page <PF1>L
+31 ;;^UTILITY(U,$J,.84,9251,0)
+32 ;;=9251^3^^5
+33 ;;^UTILITY(U,$J,.84,9251,1,0)
+34 ;;=^^1^1^2940707^^
+35 ;;^UTILITY(U,$J,.84,9251,1,1,0)
+36 ;;=Help Screen 1 of Form Editor help.
+37 ;;^UTILITY(U,$J,.84,9251,2,0)
+38 ;;=^^22^22^2940707^
+39 ;;^UTILITY(U,$J,.84,9251,2,1,0)
+40 ;;= \BHelp Screen 1 of 9\n
+41 ;;^UTILITY(U,$J,.84,9251,2,2,0)
+42 ;;=\BNAVIGATIONAL KEYS\n
+43 ;;^UTILITY(U,$J,.84,9251,2,3,0)
+44 ;;=
+45 ;;^UTILITY(U,$J,.84,9251,2,4,0)
+46 ;;=Press To move | Press To move
+47 ;;^UTILITY(U,$J,.84,9251,2,5,0)
+48 ;;=-------------------------------------------------------------------
+49 ;;^UTILITY(U,$J,.84,9251,2,6,0)
+50 ;;=<Up> Up one line | <PF1><Up> To top of screen
+51 ;;^UTILITY(U,$J,.84,9251,2,7,0)
+52 ;;=<Down> Down one line | <PF1><Down> To bottom of screen
+53 ;;^UTILITY(U,$J,.84,9251,2,8,0)
+54 ;;=<Right> Right one character | <PF1><Right> To right edge of screen
+55 ;;^UTILITY(U,$J,.84,9251,2,9,0)
+56 ;;=<Left> Left one character | <PF1><Left> To left edge of screen
+57 ;;^UTILITY(U,$J,.84,9251,2,10,0)
+58 ;;=<Tab> To next element
+59 ;;^UTILITY(U,$J,.84,9251,2,11,0)
+60 ;;=Q To previous element
+61 ;;^UTILITY(U,$J,.84,9251,2,12,0)
+62 ;;=S Right 5 characters
+63 ;;^UTILITY(U,$J,.84,9251,2,13,0)
+64 ;;=A Left 5 characters
+65 ;;^UTILITY(U,$J,.84,9251,2,14,0)
+66 ;;=
+67 ;;^UTILITY(U,$J,.84,9251,2,15,0)
+68 ;;=
+69 ;;^UTILITY(U,$J,.84,9251,2,16,0)
+70 ;;=\BSAVING AND EXITING\n
+71 ;;^UTILITY(U,$J,.84,9251,2,17,0)
+72 ;;=
+73 ;;^UTILITY(U,$J,.84,9251,2,18,0)
+74 ;;=Press To
+75 ;;^UTILITY(U,$J,.84,9251,2,19,0)
+76 ;;=----------------------------------------------------
+77 ;;^UTILITY(U,$J,.84,9251,2,20,0)
+78 ;;=<PF1>S Save changes
+79 ;;^UTILITY(U,$J,.84,9251,2,21,0)
+80 ;;=<PF1>E Save changes and exit the Form Editor
+81 ;;^UTILITY(U,$J,.84,9251,2,22,0)
+82 ;;=<PF1>Q Quit the Form Editor without saving changes
+83 ;;^UTILITY(U,$J,.84,9252,0)
+84 ;;=9252^3^^5
+85 ;;^UTILITY(U,$J,.84,9252,1,0)
+86 ;;=^^1^1^2941116^^^
+87 ;;^UTILITY(U,$J,.84,9252,1,1,0)
+88 ;;=Help Screen 2 of Form Editor.
+89 ;;^UTILITY(U,$J,.84,9252,2,0)
+90 ;;=^^19^19^2941116^
+91 ;;^UTILITY(U,$J,.84,9252,2,1,0)
+92 ;;= \BHelp Screen 2 of 9\n
+93 ;;^UTILITY(U,$J,.84,9252,2,2,0)
+94 ;;=\BSELECTING SCREEN ELEMENTS\n
+95 ;;^UTILITY(U,$J,.84,9252,2,3,0)
+96 ;;=
+97 ;;^UTILITY(U,$J,.84,9252,2,4,0)
+98 ;;=To "select" a screen element, position the cursor over the element and
+99 ;;^UTILITY(U,$J,.84,9252,2,5,0)
+100 ;;=press <SpaceBar> or <Enter>. This process is abbreviated <SelectElement>.
+101 ;;^UTILITY(U,$J,.84,9252,2,6,0)
+102 ;;=
+103 ;;^UTILITY(U,$J,.84,9252,2,7,0)
+104 ;;=Press To
+105 ;;^UTILITY(U,$J,.84,9252,2,8,0)
+106 ;;=----------------------------------------
+107 ;;^UTILITY(U,$J,.84,9252,2,9,0)
+108 ;;=<SelectElement> Select a screen element
+109 ;;^UTILITY(U,$J,.84,9252,2,10,0)
+110 ;;=
+111 ;;^UTILITY(U,$J,.84,9252,2,11,0)
+112 ;;=Once an element is selected, you can drag it around the screen by using
+113 ;;^UTILITY(U,$J,.84,9252,2,12,0)
+114 ;;=the navigational keys. You cannot drag an element beyond the boundaries
+115 ;;^UTILITY(U,$J,.84,9252,2,13,0)
+116 ;;=of the block on which it is defined.
+117 ;;^UTILITY(U,$J,.84,9252,2,14,0)
+118 ;;=
+119 ;;^UTILITY(U,$J,.84,9252,2,15,0)
+120 ;;=If you press <SpaceBar> or <Enter> over the caption of an element, both
+121 ;;^UTILITY(U,$J,.84,9252,2,16,0)
+122 ;;=the caption and data portion of the element, if one exists, are selected.
+123 ;;^UTILITY(U,$J,.84,9252,2,17,0)
+124 ;;=If you press <SpaceBar> or <Enter> over the data portion of an element,
+125 ;;^UTILITY(U,$J,.84,9252,2,18,0)
+126 ;;=only the data portion is selected and can be dragged independently of the
+127 ;;^UTILITY(U,$J,.84,9252,2,19,0)
+128 ;;=caption. Press <SpaceBar> or <Enter> again to deselect the element.
+129 ;;^UTILITY(U,$J,.84,9253,0)
+130 ;;=9253^3^^5
+131 ;;^UTILITY(U,$J,.84,9253,1,0)
+132 ;;=^^1^1^2940707^
+133 ;;^UTILITY(U,$J,.84,9253,1,1,0)
+134 ;;=Help Screen 3 of Form Editor.
+135 ;;^UTILITY(U,$J,.84,9253,2,0)
+136 ;;=^^15^15^2940707^
+137 ;;^UTILITY(U,$J,.84,9253,2,1,0)
+138 ;;= \BHelp Screen 3 of 9\n
+139 ;;^UTILITY(U,$J,.84,9253,2,2,0)
+140 ;;=\BEDITING ELEMENT PROPERTIES\n
+141 ;;^UTILITY(U,$J,.84,9253,2,3,0)
+142 ;;=
+143 ;;^UTILITY(U,$J,.84,9253,2,4,0)
+144 ;;=Press To
+145 ;;^UTILITY(U,$J,.84,9253,2,5,0)
+146 ;;=---------------------------------------------
+147 ;;^UTILITY(U,$J,.84,9253,2,6,0)
+148 ;;=<SelectElement><PF4> Edit element properties
+149 ;;^UTILITY(U,$J,.84,9253,2,7,0)
+150 ;;=
+151 ;;^UTILITY(U,$J,.84,9253,2,8,0)
+152 ;;=You will then be taken into a ScreenMan form where the properties of the
+153 ;;^UTILITY(U,$J,.84,9253,2,9,0)
+154 ;;=element can be edited.
+155 ;;^UTILITY(U,$J,.84,9253,2,10,0)
+156 ;;=
+157 ;;^UTILITY(U,$J,.84,9253,2,11,0)
+158 ;;=The Form Editor uses ScreenMan forms as a kind of modal dialog box. The
+159 ;;^UTILITY(U,$J,.84,9253,2,12,0)
+160 ;;=changes you make within the forms are permanent; that is, if from a
+161 ;;^UTILITY(U,$J,.84,9253,2,13,0)
+162 ;;=ScreenMan form you edit the properties of an element, use <PF1>E to save
+163 ;;^UTILITY(U,$J,.84,9253,2,14,0)
+164 ;;=and exit the form, and then use <PF1>Q to quit the Form Editor, the
+165 ;;^UTILITY(U,$J,.84,9253,2,15,0)
+166 ;;=changes you made to the properties of the element will remain.
+167 ;;^UTILITY(U,$J,.84,9254,0)
+168 ;;=9254^3^^5
+169 ;;^UTILITY(U,$J,.84,9254,1,0)
+170 ;;=^^1^1^2940707^
+171 ;;^UTILITY(U,$J,.84,9254,1,1,0)
+172 ;;=Help Screen 4 of Form Editor.
+173 ;;^UTILITY(U,$J,.84,9254,2,0)
+174 ;;=^^18^18^2940707^
