DINIT908 ;GFT/GFT-DIALOG FILE INITS ;Jan 05, 2015
;;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,9118,0)
;;=9118^3^y^2
;;^UTILITY(U,$J,.84,9118,2,0)
;;=^^1^1^2991122^
;;^UTILITY(U,$J,.84,9118,2,1,0)
;;=ENTER A NUMBER BETWEEN |1| AND |2|, |3| DECIMAL DIGIT(S)
;;^UTILITY(U,$J,.84,9118,3,0)
;;=^.845^3^3
;;^UTILITY(U,$J,.84,9118,3,1,0)
;;=1^LOWEST NUMBER ALLOWED
;;^UTILITY(U,$J,.84,9118,3,2,0)
;;=2^HIGHEST NUMBER ALLOWED
;;^UTILITY(U,$J,.84,9118,3,3,0)
;;=3^NUMBER OF DECIMAL PLACES ALLOWED
;;^UTILITY(U,$J,.84,9118,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,9118,5,1,0)
;;=DIALOGZ
;;^UTILITY(U,$J,.84,9118.1,0)
;;=9118.1^3^y^2
;;^UTILITY(U,$J,.84,9118.1,2,0)
;;=^^1^1^2991122^^
;;^UTILITY(U,$J,.84,9118.1,2,1,0)
;;=ENTER A DOLLAR AMOUNT BETWEEN |1| AND |2|, |3| DECIMAL DIGIT(S)
;;^UTILITY(U,$J,.84,9118.1,3,0)
;;=^.845^3^3
;;^UTILITY(U,$J,.84,9118.1,3,1,0)
;;=1^LOWEST NUMBER ALLOWED
;;^UTILITY(U,$J,.84,9118.1,3,2,0)
;;=2^HIGHEST NUMBER ALLOWED
;;^UTILITY(U,$J,.84,9118.1,3,3,0)
;;=3^NUMBER OF DECIMAL PLACES ALLOWED
;;^UTILITY(U,$J,.84,9118.1,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,9118.1,5,1,0)
;;=DIALOGZ
;;^UTILITY(U,$J,.84,9119,0)
;;=9119^3^y^2
;;^UTILITY(U,$J,.84,9119,2,0)
;;=^^1^1^2991122^
;;^UTILITY(U,$J,.84,9119,2,1,0)
;;=ENTER FROM |1| TO |2| CHARACTERS OF FREE TEXT
;;^UTILITY(U,$J,.84,9119,3,0)
;;=^.845^2^2
;;^UTILITY(U,$J,.84,9119,3,1,0)
;;=1^SHORTEST LENGTH
;;^UTILITY(U,$J,.84,9119,3,2,0)
;;=2^LONGEST LENGTH
;;^UTILITY(U,$J,.84,9119,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,9119,5,1,0)
;;=DIALOGZ
;;^UTILITY(U,$J,.84,9119.1,0)
;;=9119.1^3^y^2
;;^UTILITY(U,$J,.84,9119.1,2,0)
;;=^^1^1^2991122^
;;^UTILITY(U,$J,.84,9119.1,2,1,0)
;;=ENTER A FREE-TEXT ANSWER CONTAINING EXACTLY |1| CHARACTER(S)
;;^UTILITY(U,$J,.84,9119.1,3,0)
;;=^.845^1^1
;;^UTILITY(U,$J,.84,9119.1,3,1,0)
;;=1^LENGTH OF ANSWER
;;^UTILITY(U,$J,.84,9119.1,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,9119.1,5,1,0)
;;=DIALOGZ
;;^UTILITY(U,$J,.84,9121,0)
;;=9121^3^y^2
;;^UTILITY(U,$J,.84,9121,2,0)
;;=^^2^2^2990710^
;;^UTILITY(U,$J,.84,9121,2,1,0)
;;=At the time the lookup occurs in File |1|, there may be more than 1 entry found.
;;^UTILITY(U,$J,.84,9121,2,2,0)
;;=Answering 'Y' here means that the user then will be allowed to choose among several entries.
;;^UTILITY(U,$J,.84,9121,3,0)
;;=^.845^1^1
;;^UTILITY(U,$J,.84,9121,3,1,0)
;;=1^file name
;;^UTILITY(U,$J,.84,9121,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,9121,5,1,0)
;;=DIQQQ^DICOMPW
;;^UTILITY(U,$J,.84,9131,0)
;;=9131^3^^2
;;^UTILITY(U,$J,.84,9131,2,0)
;;=^^3^3^2990720^^^
;;^UTILITY(U,$J,.84,9131,2,1,0)
;;=Follow a field name with ';"CAPTION"'
;;^UTILITY(U,$J,.84,9131,2,2,0)
;;= to have the field asked as 'CAPTION: '
;;^UTILITY(U,$J,.84,9131,2,3,0)
;;= or with ';T' to use the field TITLE as caption.
;;^UTILITY(U,$J,.84,9131,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,9131,5,1,0)
;;=DIQQQ^DIA
;;^UTILITY(U,$J,.84,9148,0)
;;=9148^3^y^2
;;^UTILITY(U,$J,.84,9148,1,0)
;;=^^1^1^2990710^
;;^UTILITY(U,$J,.84,9148,1,1,0)
;;=Enter line number
;;^UTILITY(U,$J,.84,9148,2,0)
;;=^^1^1^2991005^^
;;^UTILITY(U,$J,.84,9148,2,1,0)
;;=Enter a line number between |1| and |2|.
;;^UTILITY(U,$J,.84,9148,3,0)
;;=^.845^2^2
;;^UTILITY(U,$J,.84,9148,3,1,0)
;;=1^1
;;^UTILITY(U,$J,.84,9148,3,2,0)
;;=2^Highest line number
;;^UTILITY(U,$J,.84,9148,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,9148,5,1,0)
;;=DIWE1^RD
;;^UTILITY(U,$J,.84,9149,0)
;;=9149^3^^2
;;^UTILITY(U,$J,.84,9149,2,0)
;;=1^^1^1^2991004^
;;^UTILITY(U,$J,.84,9149,2,1,0)
;;=Choose, by first letter, a Word Processing command
;;^UTILITY(U,$J,.84,9149,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,9149,5,1,0)
;;=DIWE1^1+5
;;^UTILITY(U,$J,.84,9150,0)
;;=9150^3^^2
;;^UTILITY(U,$J,.84,9150,1,0)
;;=^^1^1^2990710^
;;^UTILITY(U,$J,.84,9150,1,1,0)
;;=Type line number
;;^UTILITY(U,$J,.84,9150,2,0)
;;=^^1^1^2990710^
;;^UTILITY(U,$J,.84,9150,2,1,0)
;;=or type a Line Number to edit that line.
;;^UTILITY(U,$J,.84,9150,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,9150,5,1,0)
;;=DIWE1^LC+6
;;^UTILITY(U,$J,.84,9151,0)
;;=9151^3^^2
;;^UTILITY(U,$J,.84,9151,1,0)
;;=^^1^1^2990706^
;;^UTILITY(U,$J,.84,9151,1,1,0)
;;=Add Lines to End of Text
;;^UTILITY(U,$J,.84,9151,2,0)
;;=^^1^1^2990706^
;;^UTILITY(U,$J,.84,9151,2,1,0)
;;=Add Lines to End of Text
;;^UTILITY(U,$J,.84,9151,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,9151,5,1,0)
;;=DIWE1^A
;;^UTILITY(U,$J,.84,9151.1,0)
;;=9151.1^^^2
;;^UTILITY(U,$J,.84,9151.1,2,1,0)
;;=Add lines
;;^UTILITY(U,$J,.84,9152,0)
;;=9152^3^^2
;;^UTILITY(U,$J,.84,9152,1,0)
;;=^^1^1^2990706^
;;^UTILITY(U,$J,.84,9152,1,1,0)
;;=Break a Line into Two
;;^UTILITY(U,$J,.84,9152,2,0)
;;=^^1^1^2990706^
;;^UTILITY(U,$J,.84,9152,2,1,0)
;;=Break a Line into Two
;;^UTILITY(U,$J,.84,9152,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,9152,5,1,0)
;;=DIWE1^B
;;^UTILITY(U,$J,.84,9152.1,0)
;;=9152.1^^^2
;;^UTILITY(U,$J,.84,9152.1,2,1,0)
;;=Break line:
;;^UTILITY(U,$J,.84,9153,0)
;;=9153^3^^2
;;^UTILITY(U,$J,.84,9153,1,0)
;;=^^1^1^2990706^
;;^UTILITY(U,$J,.84,9153,1,1,0)
;;=Change Every String to Another in a Range of Lines
;;^UTILITY(U,$J,.84,9153,2,0)
;;=^^1^1^2990706^
;;^UTILITY(U,$J,.84,9153,2,1,0)
;;=Change Every String to Another in a Range of Lines
;;^UTILITY(U,$J,.84,9153,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,9153,5,1,0)
;;=DIWE1^C
;;^UTILITY(U,$J,.84,9153.1,0)
;;=9153.1^^^2
;;^UTILITY(U,$J,.84,9153.1,2,1,0)
;;=Change every:
;;^UTILITY(U,$J,.84,9154,0)
;;=9154^3^^2
;;^UTILITY(U,$J,.84,9154,1,0)
;;=^^1^1^2990706^
;;^UTILITY(U,$J,.84,9154,1,1,0)
;;=Delete Line(s)
;;^UTILITY(U,$J,.84,9154,2,0)
;;=^^1^1^2990706^
;;^UTILITY(U,$J,.84,9154,2,1,0)
;;=Delete Line(s)
;;^UTILITY(U,$J,.84,9154,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,9154,5,1,0)
;;=DIWE1^D
;;^UTILITY(U,$J,.84,9154.1,0)
;;=9154.1^^^2
;;^UTILITY(U,$J,.84,9154.1,2,1,0)
;;=Delete from line:
;;^UTILITY(U,$J,.84,9155,0)
;;=9155^3^^2
;;^UTILITY(U,$J,.84,9155,1,0)
;;=^^1^1^2990706^
;;^UTILITY(U,$J,.84,9155,1,1,0)
;;=Edit a Line (Replace __ With __)
;;^UTILITY(U,$J,.84,9155,2,0)
;;=^^1^1^2990706^
;;^UTILITY(U,$J,.84,9155,2,1,0)
;;=Edit a Line (Replace __ With __)
;;^UTILITY(U,$J,.84,9155,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,9155,5,1,0)
;;=DIWE1^E
;;^UTILITY(U,$J,.84,9155.1,0)
;;=9155.1^^^2
;;^UTILITY(U,$J,.84,9155.1,2,1,0)
;;=Edit line:
;;^UTILITY(U,$J,.84,9157,0)
;;=9157^3^^2
;;^UTILITY(U,$J,.84,9157,1,0)
;;=^^1^1^2990706^
;;^UTILITY(U,$J,.84,9157,1,1,0)
;;=Get Data from Another Source
;;^UTILITY(U,$J,.84,9157,2,0)
;;=^^1^1^2990706^
;;^UTILITY(U,$J,.84,9157,2,1,0)
;;=Get Data from Another Source
;;^UTILITY(U,$J,.84,9157,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,9157,5,1,0)
;;=DIWE1^G
;;^UTILITY(U,$J,.84,9157.1,0)
;;=9157.1^^^2
;;^UTILITY(U,$J,.84,9157.1,2,1,0)
;;=Get Data from Another Source
;;^UTILITY(U,$J,.84,9159,0)
;;=9159^3^^2
;;^UTILITY(U,$J,.84,9159,1,0)
;;=^^1^1^2990706^
;;^UTILITY(U,$J,.84,9159,1,1,0)
;;=Insert Line(s) after an Existing Line
;;^UTILITY(U,$J,.84,9159,2,0)
;;=^^1^1^2990706^
;;^UTILITY(U,$J,.84,9159,2,1,0)
;;=Insert Line(s) after an Existing Line
;;^UTILITY(U,$J,.84,9159,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,9159,5,1,0)
;;=DIWE1^I
;;^UTILITY(U,$J,.84,9159.1,0)
;;=9159.1^^^2
;;^UTILITY(U,$J,.84,9159.1,2,1,0)
;;=Insert after line:
;;^UTILITY(U,$J,.84,9160,0)
;;=9160^3^^2
;;^UTILITY(U,$J,.84,9160,1,0)
;;=^^1^1^2990706^
;;^UTILITY(U,$J,.84,9160,1,1,0)
;;=Join Line to the One Following
;;^UTILITY(U,$J,.84,9160,2,0)
;;=^^1^1^2990706^
;;^UTILITY(U,$J,.84,9160,2,1,0)
;;=Join Line to the One Following
;;^UTILITY(U,$J,.84,9160,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,9160,5,1,0)
;;=DIWE1^J
;;^UTILITY(U,$J,.84,9160.1,0)
;;=9160.1^^^2
;;^UTILITY(U,$J,.84,9160.1,2,1,0)
;;=Join line:
;;^UTILITY(U,$J,.84,9162,0)
;;=9162^3^^2
;;^UTILITY(U,$J,.84,9162,1,0)
;;=^^1^1^2990706^
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDINIT908 8654 printed Sep 23, 2025@20:28:07 Page 2
DINIT908 ;GFT/GFT-DIALOG FILE INITS ;Jan 05, 2015
+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,9118,0)
+2 ;;=9118^3^y^2
+3 ;;^UTILITY(U,$J,.84,9118,2,0)
+4 ;;=^^1^1^2991122^
+5 ;;^UTILITY(U,$J,.84,9118,2,1,0)
+6 ;;=ENTER A NUMBER BETWEEN |1| AND |2|, |3| DECIMAL DIGIT(S)
+7 ;;^UTILITY(U,$J,.84,9118,3,0)
+8 ;;=^.845^3^3
+9 ;;^UTILITY(U,$J,.84,9118,3,1,0)
+10 ;;=1^LOWEST NUMBER ALLOWED
+11 ;;^UTILITY(U,$J,.84,9118,3,2,0)
+12 ;;=2^HIGHEST NUMBER ALLOWED
+13 ;;^UTILITY(U,$J,.84,9118,3,3,0)
+14 ;;=3^NUMBER OF DECIMAL PLACES ALLOWED
+15 ;;^UTILITY(U,$J,.84,9118,5,0)
+16 ;;=^.841^1^1
+17 ;;^UTILITY(U,$J,.84,9118,5,1,0)
+18 ;;=DIALOGZ
+19 ;;^UTILITY(U,$J,.84,9118.1,0)
+20 ;;=9118.1^3^y^2
+21 ;;^UTILITY(U,$J,.84,9118.1,2,0)
+22 ;;=^^1^1^2991122^^
+23 ;;^UTILITY(U,$J,.84,9118.1,2,1,0)
+24 ;;=ENTER A DOLLAR AMOUNT BETWEEN |1| AND |2|, |3| DECIMAL DIGIT(S)
+25 ;;^UTILITY(U,$J,.84,9118.1,3,0)
+26 ;;=^.845^3^3
+27 ;;^UTILITY(U,$J,.84,9118.1,3,1,0)
+28 ;;=1^LOWEST NUMBER ALLOWED
+29 ;;^UTILITY(U,$J,.84,9118.1,3,2,0)
+30 ;;=2^HIGHEST NUMBER ALLOWED
+31 ;;^UTILITY(U,$J,.84,9118.1,3,3,0)
+32 ;;=3^NUMBER OF DECIMAL PLACES ALLOWED
+33 ;;^UTILITY(U,$J,.84,9118.1,5,0)
+34 ;;=^.841^1^1
+35 ;;^UTILITY(U,$J,.84,9118.1,5,1,0)
+36 ;;=DIALOGZ
+37 ;;^UTILITY(U,$J,.84,9119,0)
+38 ;;=9119^3^y^2
+39 ;;^UTILITY(U,$J,.84,9119,2,0)
+40 ;;=^^1^1^2991122^
+41 ;;^UTILITY(U,$J,.84,9119,2,1,0)
+42 ;;=ENTER FROM |1| TO |2| CHARACTERS OF FREE TEXT
+43 ;;^UTILITY(U,$J,.84,9119,3,0)
+44 ;;=^.845^2^2
+45 ;;^UTILITY(U,$J,.84,9119,3,1,0)
+46 ;;=1^SHORTEST LENGTH
+47 ;;^UTILITY(U,$J,.84,9119,3,2,0)
+48 ;;=2^LONGEST LENGTH
+49 ;;^UTILITY(U,$J,.84,9119,5,0)
+50 ;;=^.841^1^1
+51 ;;^UTILITY(U,$J,.84,9119,5,1,0)
+52 ;;=DIALOGZ
+53 ;;^UTILITY(U,$J,.84,9119.1,0)
+54 ;;=9119.1^3^y^2
+55 ;;^UTILITY(U,$J,.84,9119.1,2,0)
+56 ;;=^^1^1^2991122^
+57 ;;^UTILITY(U,$J,.84,9119.1,2,1,0)
+58 ;;=ENTER A FREE-TEXT ANSWER CONTAINING EXACTLY |1| CHARACTER(S)
+59 ;;^UTILITY(U,$J,.84,9119.1,3,0)
+60 ;;=^.845^1^1
+61 ;;^UTILITY(U,$J,.84,9119.1,3,1,0)
+62 ;;=1^LENGTH OF ANSWER
+63 ;;^UTILITY(U,$J,.84,9119.1,5,0)
+64 ;;=^.841^1^1
+65 ;;^UTILITY(U,$J,.84,9119.1,5,1,0)
+66 ;;=DIALOGZ
+67 ;;^UTILITY(U,$J,.84,9121,0)
+68 ;;=9121^3^y^2
+69 ;;^UTILITY(U,$J,.84,9121,2,0)
+70 ;;=^^2^2^2990710^
+71 ;;^UTILITY(U,$J,.84,9121,2,1,0)
+72 ;;=At the time the lookup occurs in File |1|, there may be more than 1 entry found.
+73 ;;^UTILITY(U,$J,.84,9121,2,2,0)
+74 ;;=Answering 'Y' here means that the user then will be allowed to choose among several entries.
+75 ;;^UTILITY(U,$J,.84,9121,3,0)
+76 ;;=^.845^1^1
+77 ;;^UTILITY(U,$J,.84,9121,3,1,0)
+78 ;;=1^file name
+79 ;;^UTILITY(U,$J,.84,9121,5,0)
+80 ;;=^.841^1^1
+81 ;;^UTILITY(U,$J,.84,9121,5,1,0)
+82 ;;=DIQQQ^DICOMPW
+83 ;;^UTILITY(U,$J,.84,9131,0)
+84 ;;=9131^3^^2
+85 ;;^UTILITY(U,$J,.84,9131,2,0)
+86 ;;=^^3^3^2990720^^^
+87 ;;^UTILITY(U,$J,.84,9131,2,1,0)
+88 ;;=Follow a field name with ';"CAPTION"'
+89 ;;^UTILITY(U,$J,.84,9131,2,2,0)
+90 ;;= to have the field asked as 'CAPTION: '
+91 ;;^UTILITY(U,$J,.84,9131,2,3,0)
+92 ;;= or with ';T' to use the field TITLE as caption.
+93 ;;^UTILITY(U,$J,.84,9131,5,0)
+94 ;;=^.841^1^1
+95 ;;^UTILITY(U,$J,.84,9131,5,1,0)
+96 ;;=DIQQQ^DIA
+97 ;;^UTILITY(U,$J,.84,9148,0)
+98 ;;=9148^3^y^2
+99 ;;^UTILITY(U,$J,.84,9148,1,0)
+100 ;;=^^1^1^2990710^
+101 ;;^UTILITY(U,$J,.84,9148,1,1,0)
+102 ;;=Enter line number
+103 ;;^UTILITY(U,$J,.84,9148,2,0)
+104 ;;=^^1^1^2991005^^
+105 ;;^UTILITY(U,$J,.84,9148,2,1,0)
+106 ;;=Enter a line number between |1| and |2|.
+107 ;;^UTILITY(U,$J,.84,9148,3,0)
+108 ;;=^.845^2^2
+109 ;;^UTILITY(U,$J,.84,9148,3,1,0)
+110 ;;=1^1
+111 ;;^UTILITY(U,$J,.84,9148,3,2,0)
+112 ;;=2^Highest line number
+113 ;;^UTILITY(U,$J,.84,9148,5,0)
+114 ;;=^.841^1^1
+115 ;;^UTILITY(U,$J,.84,9148,5,1,0)
+116 ;;=DIWE1^RD
+117 ;;^UTILITY(U,$J,.84,9149,0)
+118 ;;=9149^3^^2
+119 ;;^UTILITY(U,$J,.84,9149,2,0)
+120 ;;=1^^1^1^2991004^
+121 ;;^UTILITY(U,$J,.84,9149,2,1,0)
+122 ;;=Choose, by first letter, a Word Processing command
+123 ;;^UTILITY(U,$J,.84,9149,5,0)
+124 ;;=^.841^1^1
+125 ;;^UTILITY(U,$J,.84,9149,5,1,0)
+126 ;;=DIWE1^1+5
+127 ;;^UTILITY(U,$J,.84,9150,0)
+128 ;;=9150^3^^2
+129 ;;^UTILITY(U,$J,.84,9150,1,0)
+130 ;;=^^1^1^2990710^
+131 ;;^UTILITY(U,$J,.84,9150,1,1,0)
+132 ;;=Type line number
+133 ;;^UTILITY(U,$J,.84,9150,2,0)
+134 ;;=^^1^1^2990710^
+135 ;;^UTILITY(U,$J,.84,9150,2,1,0)
+136 ;;=or type a Line Number to edit that line.
+137 ;;^UTILITY(U,$J,.84,9150,5,0)
+138 ;;=^.841^1^1
+139 ;;^UTILITY(U,$J,.84,9150,5,1,0)
+140 ;;=DIWE1^LC+6
+141 ;;^UTILITY(U,$J,.84,9151,0)
+142 ;;=9151^3^^2
+143 ;;^UTILITY(U,$J,.84,9151,1,0)
+144 ;;=^^1^1^2990706^
+145 ;;^UTILITY(U,$J,.84,9151,1,1,0)
+146 ;;=Add Lines to End of Text
+147 ;;^UTILITY(U,$J,.84,9151,2,0)
+148 ;;=^^1^1^2990706^
+149 ;;^UTILITY(U,$J,.84,9151,2,1,0)
+150 ;;=Add Lines to End of Text
+151 ;;^UTILITY(U,$J,.84,9151,5,0)
+152 ;;=^.841^1^1
+153 ;;^UTILITY(U,$J,.84,9151,5,1,0)
+154 ;;=DIWE1^A
+155 ;;^UTILITY(U,$J,.84,9151.1,0)
+156 ;;=9151.1^^^2
+157 ;;^UTILITY(U,$J,.84,9151.1,2,1,0)
+158 ;;=Add lines
+159 ;;^UTILITY(U,$J,.84,9152,0)
+160 ;;=9152^3^^2
+161 ;;^UTILITY(U,$J,.84,9152,1,0)
+162 ;;=^^1^1^2990706^
+163 ;;^UTILITY(U,$J,.84,9152,1,1,0)
+164 ;;=Break a Line into Two
+165 ;;^UTILITY(U,$J,.84,9152,2,0)
+166 ;;=^^1^1^2990706^
+167 ;;^UTILITY(U,$J,.84,9152,2,1,0)
+168 ;;=Break a Line into Two
+169 ;;^UTILITY(U,$J,.84,9152,5,0)
+170 ;;=^.841^1^1
+171 ;;^UTILITY(U,$J,.84,9152,5,1,0)
+172 ;;=DIWE1^B
+173 ;;^UTILITY(U,$J,.84,9152.1,0)
+174 ;;=9152.1^^^2
+175 ;;^UTILITY(U,$J,.84,9152.1,2,1,0)
+176 ;;=Break line:
+177 ;;^UTILITY(U,$J,.84,9153,0)
+178 ;;=9153^3^^2
+179 ;;^UTILITY(U,$J,.84,9153,1,0)
+180 ;;=^^1^1^2990706^
+181 ;;^UTILITY(U,$J,.84,9153,1,1,0)
+182 ;;=Change Every String to Another in a Range of Lines
+183 ;;^UTILITY(U,$J,.84,9153,2,0)
+184 ;;=^^1^1^2990706^
+185 ;;^UTILITY(U,$J,.84,9153,2,1,0)
+186 ;;=Change Every String to Another in a Range of Lines
+187 ;;^UTILITY(U,$J,.84,9153,5,0)
+188 ;;=^.841^1^1
+189 ;;^UTILITY(U,$J,.84,9153,5,1,0)
+190 ;;=DIWE1^C
+191 ;;^UTILITY(U,$J,.84,9153.1,0)
+192 ;;=9153.1^^^2
+193 ;;^UTILITY(U,$J,.84,9153.1,2,1,0)
+194 ;;=Change every:
+195 ;;^UTILITY(U,$J,.84,9154,0)
+196 ;;=9154^3^^2
+197 ;;^UTILITY(U,$J,.84,9154,1,0)
+198 ;;=^^1^1^2990706^
+199 ;;^UTILITY(U,$J,.84,9154,1,1,0)
+200 ;;=Delete Line(s)
+201 ;;^UTILITY(U,$J,.84,9154,2,0)
+202 ;;=^^1^1^2990706^
+203 ;;^UTILITY(U,$J,.84,9154,2,1,0)
+204 ;;=Delete Line(s)
+205 ;;^UTILITY(U,$J,.84,9154,5,0)
+206 ;;=^.841^1^1
+207 ;;^UTILITY(U,$J,.84,9154,5,1,0)
+208 ;;=DIWE1^D
+209 ;;^UTILITY(U,$J,.84,9154.1,0)
+210 ;;=9154.1^^^2
+211 ;;^UTILITY(U,$J,.84,9154.1,2,1,0)
+212 ;;=Delete from line:
+213 ;;^UTILITY(U,$J,.84,9155,0)
+214 ;;=9155^3^^2
+215 ;;^UTILITY(U,$J,.84,9155,1,0)
+216 ;;=^^1^1^2990706^
+217 ;;^UTILITY(U,$J,.84,9155,1,1,0)
+218 ;;=Edit a Line (Replace __ With __)
+219 ;;^UTILITY(U,$J,.84,9155,2,0)
+220 ;;=^^1^1^2990706^
+221 ;;^UTILITY(U,$J,.84,9155,2,1,0)
+222 ;;=Edit a Line (Replace __ With __)
+223 ;;^UTILITY(U,$J,.84,9155,5,0)
+224 ;;=^.841^1^1
+225 ;;^UTILITY(U,$J,.84,9155,5,1,0)
+226 ;;=DIWE1^E
+227 ;;^UTILITY(U,$J,.84,9155.1,0)
+228 ;;=9155.1^^^2
+229 ;;^UTILITY(U,$J,.84,9155.1,2,1,0)
+230 ;;=Edit line:
+231 ;;^UTILITY(U,$J,.84,9157,0)
+232 ;;=9157^3^^2
+233 ;;^UTILITY(U,$J,.84,9157,1,0)
+234 ;;=^^1^1^2990706^
+235 ;;^UTILITY(U,$J,.84,9157,1,1,0)
+236 ;;=Get Data from Another Source
+237 ;;^UTILITY(U,$J,.84,9157,2,0)
+238 ;;=^^1^1^2990706^
+239 ;;^UTILITY(U,$J,.84,9157,2,1,0)
+240 ;;=Get Data from Another Source
+241 ;;^UTILITY(U,$J,.84,9157,5,0)
+242 ;;=^.841^1^1
+243 ;;^UTILITY(U,$J,.84,9157,5,1,0)
+244 ;;=DIWE1^G
+245 ;;^UTILITY(U,$J,.84,9157.1,0)
+246 ;;=9157.1^^^2
+247 ;;^UTILITY(U,$J,.84,9157.1,2,1,0)
+248 ;;=Get Data from Another Source
+249 ;;^UTILITY(U,$J,.84,9159,0)
+250 ;;=9159^3^^2
+251 ;;^UTILITY(U,$J,.84,9159,1,0)
+252 ;;=^^1^1^2990706^
+253 ;;^UTILITY(U,$J,.84,9159,1,1,0)
+254 ;;=Insert Line(s) after an Existing Line
+255 ;;^UTILITY(U,$J,.84,9159,2,0)
+256 ;;=^^1^1^2990706^
+257 ;;^UTILITY(U,$J,.84,9159,2,1,0)
+258 ;;=Insert Line(s) after an Existing Line
+259 ;;^UTILITY(U,$J,.84,9159,5,0)
+260 ;;=^.841^1^1
+261 ;;^UTILITY(U,$J,.84,9159,5,1,0)
+262 ;;=DIWE1^I
+263 ;;^UTILITY(U,$J,.84,9159.1,0)
+264 ;;=9159.1^^^2
+265 ;;^UTILITY(U,$J,.84,9159.1,2,1,0)
+266 ;;=Insert after line:
+267 ;;^UTILITY(U,$J,.84,9160,0)
+268 ;;=9160^3^^2
+269 ;;^UTILITY(U,$J,.84,9160,1,0)
+270 ;;=^^1^1^2990706^
+271 ;;^UTILITY(U,$J,.84,9160,1,1,0)
+272 ;;=Join Line to the One Following
+273 ;;^UTILITY(U,$J,.84,9160,2,0)
+274 ;;=^^1^1^2990706^
+275 ;;^UTILITY(U,$J,.84,9160,2,1,0)
+276 ;;=Join Line to the One Following
+277 ;;^UTILITY(U,$J,.84,9160,5,0)
+278 ;;=^.841^1^1
+279 ;;^UTILITY(U,$J,.84,9160,5,1,0)
+280 ;;=DIWE1^J
+281 ;;^UTILITY(U,$J,.84,9160.1,0)
+282 ;;=9160.1^^^2
+283 ;;^UTILITY(U,$J,.84,9160.1,2,1,0)
+284 ;;=Join line:
+285 ;;^UTILITY(U,$J,.84,9162,0)
+286 ;;=9162^3^^2
+287 ;;^UTILITY(U,$J,.84,9162,1,0)
+288 ;;=^^1^1^2990706^
