DINIT911 ;GFT/GFT-DIALOG FILE INITS ;07:13 PM 5 Dec 2002
;;22.2;VA FileMan;;Jan 05, 2016;Build 42
;;Per VA Directive 6402, this routine should not be modified.
;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
;;Licensed under the terms of the Apache License, Version 2.0.
;
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,7076,0)
;;=7076^1^^2
;;^UTILITY(U,$J,.84,7076,2,0)
;;=^^1^1
;;^UTILITY(U,$J,.84,7076,2,1,0)
;;=SWITCH Function Restricted
;;^UTILITY(U,$J,.84,7076,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,7076,5,1,0)
;;=DDBR2
;;^UTILITY(U,$J,.84,7076.1,0)
;;=7076.1^2^^2
;;^UTILITY(U,$J,.84,7076.1,2,0)
;;=^^1^1
;;^UTILITY(U,$J,.84,7076.1,2,1,0)
;;=SWITCH Function Restricted to Current List
;;^UTILITY(U,$J,.84,7076.1,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,7076.1,5,1,0)
;;=DDBR2
;;^UTILITY(U,$J,.84,7076.3,0)
;;=7076.3^1^^2
;;^UTILITY(U,$J,.84,7076.3,2,0)
;;=^^1^1
;;^UTILITY(U,$J,.84,7076.3,2,1,0)
;;=YOU CANNOT PRINT THE BROWSER HELP ON A CRT.
;;^UTILITY(U,$J,.84,7076.3,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,7076.3,5,1,0)
;;=DDBRP
;;^UTILITY(U,$J,.84,7076.4,0)
;;=7076.4^2^^2
;;^UTILITY(U,$J,.84,7076.4,2,0)
;;=^^1^1
;;^UTILITY(U,$J,.84,7076.4,2,1,0)
;;=PRINT BROWSER HELP
;;^UTILITY(U,$J,.84,7076.4,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,7076.4,5,1,0)
;;=DDBRP
;;^UTILITY(U,$J,.84,7077,0)
;;=7077^2^^2
;;^UTILITY(U,$J,.84,7077,2,0)
;;=^^1^1
;;^UTILITY(U,$J,.84,7077,2,1,0)
;;=HYPERTEXT JUMP IS NOT AVAILABLE
;;^UTILITY(U,$J,.84,7077,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,7077,5,1,0)
;;=DDBRAHTJ
;;^UTILITY(U,$J,.84,7078,0)
;;=7078^2^^2
;;^UTILITY(U,$J,.84,7078,2,0)
;;=^^1^1
;;^UTILITY(U,$J,.84,7078,2,1,0)
;;=Copy Text Line(s) to Paste Buffer
;;^UTILITY(U,$J,.84,7078,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,7078,5,1,0)
;;=DDBRWB
;;^UTILITY(U,$J,.84,7078.1,0)
;;=7078.1^2^^2
;;^UTILITY(U,$J,.84,7078.1,2,0)
;;=^^1^1
;;^UTILITY(U,$J,.84,7078.1,2,1,0)
;;=* Enter line, or range of lines separated by ":" *
;;^UTILITY(U,$J,.84,7078.1,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,7078.1,5,1,0)
;;=DDBRWB
;;^UTILITY(U,$J,.84,7078.2,0)
;;=7078.2^1^y^2
;;^UTILITY(U,$J,.84,7078.2,2,0)
;;=^^1^1
;;^UTILITY(U,$J,.84,7078.2,2,1,0)
;;=Must be a valid line or range of lines, from 1 to |1|
;;^UTILITY(U,$J,.84,7078.2,3,0)
;;=^.845^1^1
;;^UTILITY(U,$J,.84,7078.2,3,1,0)
;;=1^Number of lines
;;^UTILITY(U,$J,.84,7078.2,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,7078.2,5,1,0)
;;=DDBRWB
;;^UTILITY(U,$J,.84,7078.3,0)
;;=7078.3^1^^2
;;^UTILITY(U,$J,.84,7078.3,2,0)
;;=^^1^1
;;^UTILITY(U,$J,.84,7078.3,2,1,0)
;;=<< Copy to Paste Buffer RESTRICTED when Viewing Buffer >>
;;^UTILITY(U,$J,.84,7078.3,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,7078.3,5,1,0)
;;=DDBRWB
;;^UTILITY(U,$J,.84,7078.4,0)
;;=7078.4^1^^2
;;^UTILITY(U,$J,.84,7078.4,2,0)
;;=^^1^1
;;^UTILITY(U,$J,.84,7078.4,2,1,0)
;;=<< RESTRICTED Must exit HELP to Copy to Paste Buffer >>
;;^UTILITY(U,$J,.84,7078.4,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,7078.4,5,1,0)
;;=DDBRWB
;;^UTILITY(U,$J,.84,7078.5,0)
;;=7078.5^1^^2
;;^UTILITY(U,$J,.84,7078.5,2,0)
;;=^^1^1
;;^UTILITY(U,$J,.84,7078.5,2,1,0)
;;=<< RESTRICTED Must Exit HELP to View Buffer >>
;;^UTILITY(U,$J,.84,7078.5,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,7078.5,5,1,0)
;;=DDBRWB
;;^UTILITY(U,$J,.84,7078.6,0)
;;=7078.6^2^^2
;;^UTILITY(U,$J,.84,7078.6,2,0)
;;=^^1^1
;;^UTILITY(U,$J,.84,7078.6,2,1,0)
;;=<< RESTRICTED Must Exit View Buffer to SWITCH >>
;;^UTILITY(U,$J,.84,7078.6,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,7078.6,5,1,0)
;;=DDBRWB
;;^UTILITY(U,$J,.84,8006.1,0)
;;=8006.1^2^^2
;;^UTILITY(U,$J,.84,8006.1,2,0)
;;=^^1^1
;;^UTILITY(U,$J,.84,8006.1,2,1,0)
;;=NO MATCHES FOUND
;;^UTILITY(U,$J,.84,8006.1,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8006.1,5,1,0)
;;=DIO4
;;^UTILITY(U,$J,.84,8006.11,0)
;;=8006.11^2^^2
;;^UTILITY(U,$J,.84,8006.11,2,0)
;;=^^1^1
;;^UTILITY(U,$J,.84,8006.11,2,1,0)
;;=NO OTHER MATCH FOUND
;;^UTILITY(U,$J,.84,8006.11,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8006.11,5,1,0)
;;=DDBR1
;;^UTILITY(U,$J,.84,8006.2,0)
;;=8006.2^2^y^2
;;^UTILITY(U,$J,.84,8006.2,2,0)
;;=^^1^1
;;^UTILITY(U,$J,.84,8006.2,2,1,0)
;;=MATCHES FOUND: |1|
;;^UTILITY(U,$J,.84,8006.2,3,0)
;;=^.845^1^1
;;^UTILITY(U,$J,.84,8006.2,3,1,0)
;;=1^Number of matches
;;^UTILITY(U,$J,.84,8006.2,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8006.2,5,1,0)
;;=DIO4
;;^UTILITY(U,$J,.84,8007.1,0)
;;=8007.1^2^^2
;;^UTILITY(U,$J,.84,8007.1,2,0)
;;=^^1^1
;;^UTILITY(U,$J,.84,8007.1,2,1,0)
;;=*** NO RECORDS TO PRINT ***
;;^UTILITY(U,$J,.84,8007.1,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8007.1,5,1,0)
;;=DIO4
;;^UTILITY(U,$J,.84,8075.1,0)
;;=8075.1^2^^2
;;^UTILITY(U,$J,.84,8075.1,2,0)
;;=^^1^1
;;^UTILITY(U,$J,.84,8075.1,2,1,0)
;;=Do you want to save changes?
;;^UTILITY(U,$J,.84,8075.1,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8075.1,5,1,0)
;;=DDW1
;;^UTILITY(U,$J,.84,8075.5,0)
;;=8075.5^2^^2
;;^UTILITY(U,$J,.84,8075.5,2,0)
;;=^^1^1
;;^UTILITY(U,$J,.84,8075.5,2,1,0)
;;=Saving text ...
;;^UTILITY(U,$J,.84,8075.5,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8075.5,5,1,0)
;;=DDW1
;;^UTILITY(U,$J,.84,8126,0)
;;=8126^2^^2
;;^UTILITY(U,$J,.84,8126,2,0)
;;=^^1^1
;;^UTILITY(U,$J,.84,8126,2,1,0)
;;=Find What:
;;^UTILITY(U,$J,.84,8126,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8126,5,1,0)
;;=DDWF^FIND+2
;;^UTILITY(U,$J,.84,8126.1,0)
;;=8126.1^2^^2
;;^UTILITY(U,$J,.84,8126.1,2,0)
;;=^^1^1
;;^UTILITY(U,$J,.84,8126.1,2,1,0)
;;=Replace With:
;;^UTILITY(U,$J,.84,8126.1,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8126.1,5,1,0)
;;=DDWC1^FIND+1
;;^UTILITY(U,$J,.84,8127,0)
;;=8127^1^^2
;;^UTILITY(U,$J,.84,8127,2,0)
;;=^^1^1
;;^UTILITY(U,$J,.84,8127,2,1,0)
;;=TEXT NOT FOUND
;;^UTILITY(U,$J,.84,8127,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8127,5,1,0)
;;=DDWF
;;^UTILITY(U,$J,.84,8128,0)
;;=8128^2^^2
;;^UTILITY(U,$J,.84,8128,2,0)
;;=^^1^1
;;^UTILITY(U,$J,.84,8128,2,1,0)
;;=WARNING: Control characters in text have been replaced by spaces.
;;^UTILITY(U,$J,.84,8128,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8128,5,1,0)
;;=DDW1
;;^UTILITY(U,$J,.84,8140,0)
;;=8140^3^^2
;;^UTILITY(U,$J,.84,8140,2,0)
;;=^^3^3
;;^UTILITY(U,$J,.84,8140,2,1,0)
;;=Examples, to go to a screen: S21 or S+3 or +3 or -3
;;^UTILITY(U,$J,.84,8140,2,2,0)
;;= to go to a line: L53 or L+4 or L-5
;;^UTILITY(U,$J,.84,8140,2,3,0)
;;= to go to a column: C40 or C+10 or C-20
;;^UTILITY(U,$J,.84,8140,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8140,5,1,0)
;;=DDWG
;;^UTILITY(U,$J,.84,8142,0)
;;=8142^2^^2
;;^UTILITY(U,$J,.84,8142,2,0)
;;=^^1^1
;;^UTILITY(U,$J,.84,8142,2,1,0)
;;=Do you wish to select from current list?
;;^UTILITY(U,$J,.84,8142,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8142,5,1,0)
;;=DDBR2
;;^UTILITY(U,$J,.84,8178,0)
;;=8178^2^^2
;;^UTILITY(U,$J,.84,8178,2,0)
;;=^^2^2
;;^UTILITY(U,$J,.84,8178,2,1,0)
;;=WARNING: This field is uneditable.
;;^UTILITY(U,$J,.84,8178,2,2,0)
;;= Any changes made in the editor will not be saved.
;;^UTILITY(U,$J,.84,8178,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8178,5,1,0)
;;=DDSWP
;;^UTILITY(U,$J,.84,9110.8,0)
;;=9110.8^3^^2
;;^UTILITY(U,$J,.84,9110.8,2,0)
;;=^^1^1
;;^UTILITY(U,$J,.84,9110.8,2,1,0)
;;=or 0157
;;^UTILITY(U,$J,.84,9110.8,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,9110.8,5,1,0)
;;=DIEH1^DT+2
;;^UTILITY(U,$J,.84,8136,0)
;;=8136^3^^2
;;^UTILITY(U,$J,.84,8136,2,0)
;;=^^4^4
;;^UTILITY(U,$J,.84,8136,2,1,0)
;; Specify in which column(s) you want to set tab stops. To set individual
;;^UTILITY(U,$J,.84,8136,2,2,0)
;; tab stops, type a series of numbers separated by commas, for example:
;;^UTILITY(U,$J,.84,8136,2,3,0)
;; 4,7,15,20. To set tab stops at repeated intervals after the last stop,
;;^UTILITY(U,$J,.84,8136,2,4,0)
;; or column 1, type the interval as +n, for example: 10,20,+5.
;;^UTILITY(U,$J,.84,8136,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8136,5,1,0)
;;=DDW2^TSALL
;;^UTILITY(U,$J,.84,8136.1,0)
;;=8136.1^2^^2
;;^UTILITY(U,$J,.84,8136.1,2,0)
;;=^^1^1
;;^UTILITY(U,$J,.84,8136.1,2,1,0)
;;=Columns in which to set tab stops:
;;^UTILITY(U,$J,.84,8136.1,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8136.1,5,1,0)
;;=DDW2
;;^UTILITY(U,$J,.84,8136.2,0)
;;=8136.2^1^^2
;;^UTILITY(U,$J,.84,8136.2,2,0)
;;=^^1^1
;;^UTILITY(U,$J,.84,8136.2,2,1,0)
;;=Response can contain only commas (,), plus signs (+), and numbers.
;;^UTILITY(U,$J,.84,8136.2,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8136.2,5,1,0)
;;=DDW2
;;^UTILITY(U,$J,.84,8138.1,0)
;;=8138.1^1^^2
;;^UTILITY(U,$J,.84,8138.1,2,0)
;;=^^1^1
;;^UTILITY(U,$J,.84,8138.1,2,1,0)
;;Margins cannot be set when wrap is off
;;^UTILITY(U,$J,.84,8138.1,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8138.1,5,1,0)
;;=DDW2
;;^UTILITY(U,$J,.84,8138.2,0)
;;=8138.2^1^^2
;;^UTILITY(U,$J,.84,8138.2,2,0)
;;=^^1^1
;;^UTILITY(U,$J,.84,8138.2,2,1,0)
;;=Left margin cannot be set beyond column 231
;;^UTILITY(U,$J,.84,8138.2,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8138.2,5,1,0)
;;=DDW2
;;^UTILITY(U,$J,.84,8138.3,0)
;;=8138.3^1^^2
;;^UTILITY(U,$J,.84,8138.3,2,0)
;;=^^1^1
;;^UTILITY(U,$J,.84,8138.3,2,1,0)
;;=Left margin must be left of right margin
;;^UTILITY(U,$J,.84,8138.3,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8138.3,5,1,0)
;;=DDW2
;;^UTILITY(U,$J,.84,8138.4,0)
;;=8138.4^1^^2
;;^UTILITY(U,$J,.84,8138.4,2,0)
;;=^^1^1
;;^UTILITY(U,$J,.84,8138.4,2,1,0)
;;=Right margin cannot be set beyond column 245
;;^UTILITY(U,$J,.84,8138.4,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8138.4,5,1,0)
;;=DDW2
;;^UTILITY(U,$J,.84,8138.5,0)
;;=8138.5^1^^2
;;^UTILITY(U,$J,.84,8138.5,2,0)
;;=^^1^1
;;^UTILITY(U,$J,.84,8138.5,2,1,0)
;;=Right margin must be right of left margin
;;^UTILITY(U,$J,.84,8138.5,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8138.5,5,1,0)
;;=DDW2
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDINIT911 10392 printed Sep 15, 2024@22:16:02 Page 2
DINIT911 ;GFT/GFT-DIALOG FILE INITS ;07:13 PM 5 Dec 2002
+1 ;;22.2;VA FileMan;;Jan 05, 2016;Build 42
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
+4 ;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
+5 ;;Licensed under the terms of the Apache License, Version 2.0.
+6 ;
+7 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,7076,0)
+2 ;;=7076^1^^2
+3 ;;^UTILITY(U,$J,.84,7076,2,0)
+4 ;;=^^1^1
+5 ;;^UTILITY(U,$J,.84,7076,2,1,0)
+6 ;;=SWITCH Function Restricted
+7 ;;^UTILITY(U,$J,.84,7076,5,0)
+8 ;;=^.841^1^1
+9 ;;^UTILITY(U,$J,.84,7076,5,1,0)
+10 ;;=DDBR2
+11 ;;^UTILITY(U,$J,.84,7076.1,0)
+12 ;;=7076.1^2^^2
+13 ;;^UTILITY(U,$J,.84,7076.1,2,0)
+14 ;;=^^1^1
+15 ;;^UTILITY(U,$J,.84,7076.1,2,1,0)
+16 ;;=SWITCH Function Restricted to Current List
+17 ;;^UTILITY(U,$J,.84,7076.1,5,0)
+18 ;;=^.841^1^1
+19 ;;^UTILITY(U,$J,.84,7076.1,5,1,0)
+20 ;;=DDBR2
+21 ;;^UTILITY(U,$J,.84,7076.3,0)
+22 ;;=7076.3^1^^2
+23 ;;^UTILITY(U,$J,.84,7076.3,2,0)
+24 ;;=^^1^1
+25 ;;^UTILITY(U,$J,.84,7076.3,2,1,0)
+26 ;;=YOU CANNOT PRINT THE BROWSER HELP ON A CRT.
+27 ;;^UTILITY(U,$J,.84,7076.3,5,0)
+28 ;;=^.841^1^1
+29 ;;^UTILITY(U,$J,.84,7076.3,5,1,0)
+30 ;;=DDBRP
+31 ;;^UTILITY(U,$J,.84,7076.4,0)
+32 ;;=7076.4^2^^2
+33 ;;^UTILITY(U,$J,.84,7076.4,2,0)
+34 ;;=^^1^1
+35 ;;^UTILITY(U,$J,.84,7076.4,2,1,0)
+36 ;;=PRINT BROWSER HELP
+37 ;;^UTILITY(U,$J,.84,7076.4,5,0)
+38 ;;=^.841^1^1
+39 ;;^UTILITY(U,$J,.84,7076.4,5,1,0)
+40 ;;=DDBRP
+41 ;;^UTILITY(U,$J,.84,7077,0)
+42 ;;=7077^2^^2
+43 ;;^UTILITY(U,$J,.84,7077,2,0)
+44 ;;=^^1^1
+45 ;;^UTILITY(U,$J,.84,7077,2,1,0)
+46 ;;=HYPERTEXT JUMP IS NOT AVAILABLE
+47 ;;^UTILITY(U,$J,.84,7077,5,0)
+48 ;;=^.841^1^1
+49 ;;^UTILITY(U,$J,.84,7077,5,1,0)
+50 ;;=DDBRAHTJ
+51 ;;^UTILITY(U,$J,.84,7078,0)
+52 ;;=7078^2^^2
+53 ;;^UTILITY(U,$J,.84,7078,2,0)
+54 ;;=^^1^1
+55 ;;^UTILITY(U,$J,.84,7078,2,1,0)
+56 ;;=Copy Text Line(s) to Paste Buffer
+57 ;;^UTILITY(U,$J,.84,7078,5,0)
+58 ;;=^.841^1^1
+59 ;;^UTILITY(U,$J,.84,7078,5,1,0)
+60 ;;=DDBRWB
+61 ;;^UTILITY(U,$J,.84,7078.1,0)
+62 ;;=7078.1^2^^2
+63 ;;^UTILITY(U,$J,.84,7078.1,2,0)
+64 ;;=^^1^1
+65 ;;^UTILITY(U,$J,.84,7078.1,2,1,0)
+66 ;;=* Enter line, or range of lines separated by ":" *
+67 ;;^UTILITY(U,$J,.84,7078.1,5,0)
+68 ;;=^.841^1^1
+69 ;;^UTILITY(U,$J,.84,7078.1,5,1,0)
+70 ;;=DDBRWB
+71 ;;^UTILITY(U,$J,.84,7078.2,0)
+72 ;;=7078.2^1^y^2
+73 ;;^UTILITY(U,$J,.84,7078.2,2,0)
+74 ;;=^^1^1
+75 ;;^UTILITY(U,$J,.84,7078.2,2,1,0)
+76 ;;=Must be a valid line or range of lines, from 1 to |1|
+77 ;;^UTILITY(U,$J,.84,7078.2,3,0)
+78 ;;=^.845^1^1
+79 ;;^UTILITY(U,$J,.84,7078.2,3,1,0)
+80 ;;=1^Number of lines
+81 ;;^UTILITY(U,$J,.84,7078.2,5,0)
+82 ;;=^.841^1^1
+83 ;;^UTILITY(U,$J,.84,7078.2,5,1,0)
+84 ;;=DDBRWB
+85 ;;^UTILITY(U,$J,.84,7078.3,0)
+86 ;;=7078.3^1^^2
+87 ;;^UTILITY(U,$J,.84,7078.3,2,0)
+88 ;;=^^1^1
+89 ;;^UTILITY(U,$J,.84,7078.3,2,1,0)
+90 ;;=<< Copy to Paste Buffer RESTRICTED when Viewing Buffer >>
+91 ;;^UTILITY(U,$J,.84,7078.3,5,0)
+92 ;;=^.841^1^1
+93 ;;^UTILITY(U,$J,.84,7078.3,5,1,0)
+94 ;;=DDBRWB
+95 ;;^UTILITY(U,$J,.84,7078.4,0)
+96 ;;=7078.4^1^^2
+97 ;;^UTILITY(U,$J,.84,7078.4,2,0)
+98 ;;=^^1^1
+99 ;;^UTILITY(U,$J,.84,7078.4,2,1,0)
+100 ;;=<< RESTRICTED Must exit HELP to Copy to Paste Buffer >>
+101 ;;^UTILITY(U,$J,.84,7078.4,5,0)
+102 ;;=^.841^1^1
+103 ;;^UTILITY(U,$J,.84,7078.4,5,1,0)
+104 ;;=DDBRWB
+105 ;;^UTILITY(U,$J,.84,7078.5,0)
+106 ;;=7078.5^1^^2
+107 ;;^UTILITY(U,$J,.84,7078.5,2,0)
+108 ;;=^^1^1
+109 ;;^UTILITY(U,$J,.84,7078.5,2,1,0)
+110 ;;=<< RESTRICTED Must Exit HELP to View Buffer >>
+111 ;;^UTILITY(U,$J,.84,7078.5,5,0)
+112 ;;=^.841^1^1
+113 ;;^UTILITY(U,$J,.84,7078.5,5,1,0)
+114 ;;=DDBRWB
+115 ;;^UTILITY(U,$J,.84,7078.6,0)
+116 ;;=7078.6^2^^2
+117 ;;^UTILITY(U,$J,.84,7078.6,2,0)
+118 ;;=^^1^1
+119 ;;^UTILITY(U,$J,.84,7078.6,2,1,0)
+120 ;;=<< RESTRICTED Must Exit View Buffer to SWITCH >>
+121 ;;^UTILITY(U,$J,.84,7078.6,5,0)
+122 ;;=^.841^1^1
+123 ;;^UTILITY(U,$J,.84,7078.6,5,1,0)
+124 ;;=DDBRWB
+125 ;;^UTILITY(U,$J,.84,8006.1,0)
+126 ;;=8006.1^2^^2
+127 ;;^UTILITY(U,$J,.84,8006.1,2,0)
+128 ;;=^^1^1
+129 ;;^UTILITY(U,$J,.84,8006.1,2,1,0)
+130 ;;=NO MATCHES FOUND
+131 ;;^UTILITY(U,$J,.84,8006.1,5,0)
+132 ;;=^.841^1^1
+133 ;;^UTILITY(U,$J,.84,8006.1,5,1,0)
+134 ;;=DIO4
+135 ;;^UTILITY(U,$J,.84,8006.11,0)
+136 ;;=8006.11^2^^2
+137 ;;^UTILITY(U,$J,.84,8006.11,2,0)
+138 ;;=^^1^1
+139 ;;^UTILITY(U,$J,.84,8006.11,2,1,0)
+140 ;;=NO OTHER MATCH FOUND
+141 ;;^UTILITY(U,$J,.84,8006.11,5,0)
+142 ;;=^.841^1^1
+143 ;;^UTILITY(U,$J,.84,8006.11,5,1,0)
+144 ;;=DDBR1
+145 ;;^UTILITY(U,$J,.84,8006.2,0)
+146 ;;=8006.2^2^y^2
+147 ;;^UTILITY(U,$J,.84,8006.2,2,0)
+148 ;;=^^1^1
+149 ;;^UTILITY(U,$J,.84,8006.2,2,1,0)
+150 ;;=MATCHES FOUND: |1|
+151 ;;^UTILITY(U,$J,.84,8006.2,3,0)
+152 ;;=^.845^1^1
+153 ;;^UTILITY(U,$J,.84,8006.2,3,1,0)
+154 ;;=1^Number of matches
+155 ;;^UTILITY(U,$J,.84,8006.2,5,0)
+156 ;;=^.841^1^1
+157 ;;^UTILITY(U,$J,.84,8006.2,5,1,0)
+158 ;;=DIO4
+159 ;;^UTILITY(U,$J,.84,8007.1,0)
+160 ;;=8007.1^2^^2
+161 ;;^UTILITY(U,$J,.84,8007.1,2,0)
+162 ;;=^^1^1
+163 ;;^UTILITY(U,$J,.84,8007.1,2,1,0)
+164 ;;=*** NO RECORDS TO PRINT ***
+165 ;;^UTILITY(U,$J,.84,8007.1,5,0)
+166 ;;=^.841^1^1
+167 ;;^UTILITY(U,$J,.84,8007.1,5,1,0)
+168 ;;=DIO4
+169 ;;^UTILITY(U,$J,.84,8075.1,0)
+170 ;;=8075.1^2^^2
+171 ;;^UTILITY(U,$J,.84,8075.1,2,0)
+172 ;;=^^1^1
+173 ;;^UTILITY(U,$J,.84,8075.1,2,1,0)
+174 ;;=Do you want to save changes?
+175 ;;^UTILITY(U,$J,.84,8075.1,5,0)
+176 ;;=^.841^1^1
+177 ;;^UTILITY(U,$J,.84,8075.1,5,1,0)
+178 ;;=DDW1
+179 ;;^UTILITY(U,$J,.84,8075.5,0)
+180 ;;=8075.5^2^^2
+181 ;;^UTILITY(U,$J,.84,8075.5,2,0)
+182 ;;=^^1^1
+183 ;;^UTILITY(U,$J,.84,8075.5,2,1,0)
+184 ;;=Saving text ...
+185 ;;^UTILITY(U,$J,.84,8075.5,5,0)
+186 ;;=^.841^1^1
+187 ;;^UTILITY(U,$J,.84,8075.5,5,1,0)
+188 ;;=DDW1
+189 ;;^UTILITY(U,$J,.84,8126,0)
+190 ;;=8126^2^^2
+191 ;;^UTILITY(U,$J,.84,8126,2,0)
+192 ;;=^^1^1
+193 ;;^UTILITY(U,$J,.84,8126,2,1,0)
+194 ;;=Find What:
+195 ;;^UTILITY(U,$J,.84,8126,5,0)
+196 ;;=^.841^1^1
+197 ;;^UTILITY(U,$J,.84,8126,5,1,0)
+198 ;;=DDWF^FIND+2
+199 ;;^UTILITY(U,$J,.84,8126.1,0)
+200 ;;=8126.1^2^^2
+201 ;;^UTILITY(U,$J,.84,8126.1,2,0)
+202 ;;=^^1^1
+203 ;;^UTILITY(U,$J,.84,8126.1,2,1,0)
+204 ;;=Replace With:
+205 ;;^UTILITY(U,$J,.84,8126.1,5,0)
+206 ;;=^.841^1^1
+207 ;;^UTILITY(U,$J,.84,8126.1,5,1,0)
+208 ;;=DDWC1^FIND+1
+209 ;;^UTILITY(U,$J,.84,8127,0)
+210 ;;=8127^1^^2
+211 ;;^UTILITY(U,$J,.84,8127,2,0)
+212 ;;=^^1^1
+213 ;;^UTILITY(U,$J,.84,8127,2,1,0)
+214 ;;=TEXT NOT FOUND
+215 ;;^UTILITY(U,$J,.84,8127,5,0)
+216 ;;=^.841^1^1
+217 ;;^UTILITY(U,$J,.84,8127,5,1,0)
+218 ;;=DDWF
+219 ;;^UTILITY(U,$J,.84,8128,0)
+220 ;;=8128^2^^2
+221 ;;^UTILITY(U,$J,.84,8128,2,0)
+222 ;;=^^1^1
+223 ;;^UTILITY(U,$J,.84,8128,2,1,0)
+224 ;;=WARNING: Control characters in text have been replaced by spaces.
+225 ;;^UTILITY(U,$J,.84,8128,5,0)
+226 ;;=^.841^1^1
+227 ;;^UTILITY(U,$J,.84,8128,5,1,0)
+228 ;;=DDW1
+229 ;;^UTILITY(U,$J,.84,8140,0)
+230 ;;=8140^3^^2
+231 ;;^UTILITY(U,$J,.84,8140,2,0)
+232 ;;=^^3^3
+233 ;;^UTILITY(U,$J,.84,8140,2,1,0)
+234 ;;=Examples, to go to a screen: S21 or S+3 or +3 or -3
+235 ;;^UTILITY(U,$J,.84,8140,2,2,0)
+236 ;;= to go to a line: L53 or L+4 or L-5
+237 ;;^UTILITY(U,$J,.84,8140,2,3,0)
+238 ;;= to go to a column: C40 or C+10 or C-20
+239 ;;^UTILITY(U,$J,.84,8140,5,0)
+240 ;;=^.841^1^1
+241 ;;^UTILITY(U,$J,.84,8140,5,1,0)
+242 ;;=DDWG
+243 ;;^UTILITY(U,$J,.84,8142,0)
+244 ;;=8142^2^^2
+245 ;;^UTILITY(U,$J,.84,8142,2,0)
+246 ;;=^^1^1
+247 ;;^UTILITY(U,$J,.84,8142,2,1,0)
+248 ;;=Do you wish to select from current list?
+249 ;;^UTILITY(U,$J,.84,8142,5,0)
+250 ;;=^.841^1^1
+251 ;;^UTILITY(U,$J,.84,8142,5,1,0)
+252 ;;=DDBR2
+253 ;;^UTILITY(U,$J,.84,8178,0)
+254 ;;=8178^2^^2
+255 ;;^UTILITY(U,$J,.84,8178,2,0)
+256 ;;=^^2^2
+257 ;;^UTILITY(U,$J,.84,8178,2,1,0)
+258 ;;=WARNING: This field is uneditable.
+259 ;;^UTILITY(U,$J,.84,8178,2,2,0)
+260 ;;= Any changes made in the editor will not be saved.
+261 ;;^UTILITY(U,$J,.84,8178,5,0)
+262 ;;=^.841^1^1
+263 ;;^UTILITY(U,$J,.84,8178,5,1,0)
+264 ;;=DDSWP
+265 ;;^UTILITY(U,$J,.84,9110.8,0)
+266 ;;=9110.8^3^^2
+267 ;;^UTILITY(U,$J,.84,9110.8,2,0)
+268 ;;=^^1^1
+269 ;;^UTILITY(U,$J,.84,9110.8,2,1,0)
+270 ;;=or 0157
+271 ;;^UTILITY(U,$J,.84,9110.8,5,0)
+272 ;;=^.841^1^1
+273 ;;^UTILITY(U,$J,.84,9110.8,5,1,0)
+274 ;;=DIEH1^DT+2
+275 ;;^UTILITY(U,$J,.84,8136,0)
+276 ;;=8136^3^^2
+277 ;;^UTILITY(U,$J,.84,8136,2,0)
+278 ;;=^^4^4
+279 ;;^UTILITY(U,$J,.84,8136,2,1,0)
+280 ;; Specify in which column(s) you want to set tab stops. To set individual
+281 ;;^UTILITY(U,$J,.84,8136,2,2,0)
+282 ;; tab stops, type a series of numbers separated by commas, for example:
+283 ;;^UTILITY(U,$J,.84,8136,2,3,0)
+284 ;; 4,7,15,20. To set tab stops at repeated intervals after the last stop,
+285 ;;^UTILITY(U,$J,.84,8136,2,4,0)
+286 ;; or column 1, type the interval as +n, for example: 10,20,+5.
+287 ;;^UTILITY(U,$J,.84,8136,5,0)
+288 ;;=^.841^1^1
+289 ;;^UTILITY(U,$J,.84,8136,5,1,0)
+290 ;;=DDW2^TSALL
+291 ;;^UTILITY(U,$J,.84,8136.1,0)
+292 ;;=8136.1^2^^2
+293 ;;^UTILITY(U,$J,.84,8136.1,2,0)
+294 ;;=^^1^1
+295 ;;^UTILITY(U,$J,.84,8136.1,2,1,0)
+296 ;;=Columns in which to set tab stops:
+297 ;;^UTILITY(U,$J,.84,8136.1,5,0)
+298 ;;=^.841^1^1
+299 ;;^UTILITY(U,$J,.84,8136.1,5,1,0)
+300 ;;=DDW2
+301 ;;^UTILITY(U,$J,.84,8136.2,0)
+302 ;;=8136.2^1^^2
+303 ;;^UTILITY(U,$J,.84,8136.2,2,0)
+304 ;;=^^1^1
+305 ;;^UTILITY(U,$J,.84,8136.2,2,1,0)
+306 ;;=Response can contain only commas (,), plus signs (+), and numbers.
+307 ;;^UTILITY(U,$J,.84,8136.2,5,0)
+308 ;;=^.841^1^1
+309 ;;^UTILITY(U,$J,.84,8136.2,5,1,0)
+310 ;;=DDW2
+311 ;;^UTILITY(U,$J,.84,8138.1,0)
+312 ;;=8138.1^1^^2
+313 ;;^UTILITY(U,$J,.84,8138.1,2,0)
+314 ;;=^^1^1
+315 ;;^UTILITY(U,$J,.84,8138.1,2,1,0)
+316 ;;Margins cannot be set when wrap is off
+317 ;;^UTILITY(U,$J,.84,8138.1,5,0)
+318 ;;=^.841^1^1
+319 ;;^UTILITY(U,$J,.84,8138.1,5,1,0)
+320 ;;=DDW2
+321 ;;^UTILITY(U,$J,.84,8138.2,0)
+322 ;;=8138.2^1^^2
+323 ;;^UTILITY(U,$J,.84,8138.2,2,0)
+324 ;;=^^1^1
+325 ;;^UTILITY(U,$J,.84,8138.2,2,1,0)
+326 ;;=Left margin cannot be set beyond column 231
+327 ;;^UTILITY(U,$J,.84,8138.2,5,0)
+328 ;;=^.841^1^1
+329 ;;^UTILITY(U,$J,.84,8138.2,5,1,0)
+330 ;;=DDW2
+331 ;;^UTILITY(U,$J,.84,8138.3,0)
+332 ;;=8138.3^1^^2
+333 ;;^UTILITY(U,$J,.84,8138.3,2,0)
+334 ;;=^^1^1
+335 ;;^UTILITY(U,$J,.84,8138.3,2,1,0)
+336 ;;=Left margin must be left of right margin
+337 ;;^UTILITY(U,$J,.84,8138.3,5,0)
+338 ;;=^.841^1^1
+339 ;;^UTILITY(U,$J,.84,8138.3,5,1,0)
+340 ;;=DDW2
+341 ;;^UTILITY(U,$J,.84,8138.4,0)
+342 ;;=8138.4^1^^2
+343 ;;^UTILITY(U,$J,.84,8138.4,2,0)
+344 ;;=^^1^1
+345 ;;^UTILITY(U,$J,.84,8138.4,2,1,0)
+346 ;;=Right margin cannot be set beyond column 245
+347 ;;^UTILITY(U,$J,.84,8138.4,5,0)
+348 ;;=^.841^1^1
+349 ;;^UTILITY(U,$J,.84,8138.4,5,1,0)
+350 ;;=DDW2
+351 ;;^UTILITY(U,$J,.84,8138.5,0)
+352 ;;=8138.5^1^^2
+353 ;;^UTILITY(U,$J,.84,8138.5,2,0)
+354 ;;=^^1^1
+355 ;;^UTILITY(U,$J,.84,8138.5,2,1,0)
+356 ;;=Right margin must be right of left margin
+357 ;;^UTILITY(U,$J,.84,8138.5,5,0)
+358 ;;=^.841^1^1
+359 ;;^UTILITY(U,$J,.84,8138.5,5,1,0)
+360 ;;=DDW2
