DINIT909 ;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,9162,1,1,0)
;;=List a Range of Lines
;;^UTILITY(U,$J,.84,9162,2,0)
;;=^^1^1^2990706^
;;^UTILITY(U,$J,.84,9162,2,1,0)
;;=List a Range of Lines
;;^UTILITY(U,$J,.84,9162,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,9162,5,1,0)
;;=DIWE1^L
;;^UTILITY(U,$J,.84,9162.1,0)
;;=9162.1^^^2
;;^UTILITY(U,$J,.84,9162.1,2,1,0)
;;=List line:
;;^UTILITY(U,$J,.84,9163,0)
;;=9163^3^^2
;;^UTILITY(U,$J,.84,9163,1,0)
;;=^^1^1^2990706^
;;^UTILITY(U,$J,.84,9163,1,1,0)
;;=Move Lines to New Location within Text
;;^UTILITY(U,$J,.84,9163,2,0)
;;=^^1^1^2990706^
;;^UTILITY(U,$J,.84,9163,2,1,0)
;;=Move Lines to New Location within Text
;;^UTILITY(U,$J,.84,9163,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,9163,5,1,0)
;;=DIWE1^M
;;^UTILITY(U,$J,.84,9163.1,0)
;;=9163.1^^^2
;;^UTILITY(U,$J,.84,9163.1,2,1,0)
;;=Move line:
;;^UTILITY(U,$J,.84,9166,0)
;;=9166^3^^2
;;^UTILITY(U,$J,.84,9166,1,0)
;;=^^1^1^2990706^
;;^UTILITY(U,$J,.84,9166,1,1,0)
;;=Print Lines as Formatted Output
;;^UTILITY(U,$J,.84,9166,2,0)
;;=^^1^1^2990706^
;;^UTILITY(U,$J,.84,9166,2,1,0)
;;=Print Lines as Formatted Output
;;^UTILITY(U,$J,.84,9166,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,9166,5,1,0)
;;=DIWE1^P
;;^UTILITY(U,$J,.84,9166.1,0)
;;=9166.1^^^2
;;^UTILITY(U,$J,.84,9166.1,2,1,0)
;;=Print from Line: 1//
;;^UTILITY(U,$J,.84,9168,0)
;;=9168^3^^2
;;^UTILITY(U,$J,.84,9168,1,0)
;;=^^1^1^2990706^
;;^UTILITY(U,$J,.84,9168,1,1,0)
;;=Repeat Lines at a New Location
;;^UTILITY(U,$J,.84,9168,2,0)
;;=^^1^1^2990706^
;;^UTILITY(U,$J,.84,9168,2,1,0)
;;=Repeat Lines at a New Location
;;^UTILITY(U,$J,.84,9168,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,9168,5,1,0)
;;=DIWE1^R
;;^UTILITY(U,$J,.84,9168.1,0)
;;=9168.1^^^2
;;^UTILITY(U,$J,.84,9168.1,2,1,0)
;;=Repeat line:
;;^UTILITY(U,$J,.84,9169,0)
;;=9169^3^^2
;;^UTILITY(U,$J,.84,9169,1,0)
;;=^^1^1^2990706^
;;^UTILITY(U,$J,.84,9169,1,1,0)
;;=Search for a String
;;^UTILITY(U,$J,.84,9169,2,0)
;;=^^1^1^2990706^
;;^UTILITY(U,$J,.84,9169,2,1,0)
;;=Search for a String
;;^UTILITY(U,$J,.84,9169,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,9169,5,1,0)
;;=DIWE1^S
;;^UTILITY(U,$J,.84,9169.1,0)
;;=9169.1^^^2
;;^UTILITY(U,$J,.84,9169.1,2,1,0)
;;=Search for:
;;^UTILITY(U,$J,.84,9170,0)
;;=9170^3^^2
;;^UTILITY(U,$J,.84,9170,1,0)
;;=^^1^1^2990706^
;;^UTILITY(U,$J,.84,9170,1,1,0)
;;=Transfer Lines From Another Document
;;^UTILITY(U,$J,.84,9170,2,0)
;;=^^1^1^2990706^
;;^UTILITY(U,$J,.84,9170,2,1,0)
;;=Transfer Lines From Another Document
;;^UTILITY(U,$J,.84,9170,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,9170,5,1,0)
;;=DIWE1^T
;;^UTILITY(U,$J,.84,9170.1,0)
;;=9170.1^^^2
;;^UTILITY(U,$J,.84,9170.1,2,1,0)
;;=Transfer incoming text after line:
;;^UTILITY(U,$J,.84,9171,0)
;;=9171^3^^2
;;^UTILITY(U,$J,.84,9171,1,0)
;;=^^1^1^2991026^^
;;^UTILITY(U,$J,.84,9171,1,1,0)
;;=Utility Sub-Menu
;;^UTILITY(U,$J,.84,9171,2,0)
;;=^^1^1^2991026^^^^
;;^UTILITY(U,$J,.84,9171,2,1,0)
;;=Utilities for Word-Processing
;;^UTILITY(U,$J,.84,9171,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,9171,5,1,0)
;;=DIWE1^U
;;^UTILITY(U,$J,.84,9171.1,0)
;;=9171.1^2^^2
;;^UTILITY(U,$J,.84,9171.1,2,0)
;;=^^1^1^2991026^
;;^UTILITY(U,$J,.84,9171.1,2,1,0)
;;=Miscellaneous UTILITIES
;;^UTILITY(U,$J,.84,9175,0)
;;=9175^3^^2
;;^UTILITY(U,$J,.84,9175,1,0)
;;=^^1^1^2990706^
;;^UTILITY(U,$J,.84,9175,1,1,0)
;;=Y-Programmer Edit
;;^UTILITY(U,$J,.84,9175,2,0)
;;=^^1^1^2990706^
;;^UTILITY(U,$J,.84,9175,2,1,0)
;;=Y-Programmer Edit
;;^UTILITY(U,$J,.84,9175,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,9175,5,1,0)
;;=DIWE1^Y
;;^UTILITY(U,$J,.84,9175.1,0)
;;=9175.1^^^2
;;^UTILITY(U,$J,.84,9175.1,2,1,0)
;;=Y
;;^UTILITY(U,$J,.84,9180,0)
;;=9180^3^^2
;;^UTILITY(U,$J,.84,9180,2,0)
;;=^^10^10^2990720^^^^
;;^UTILITY(U,$J,.84,9180,2,1,0)
;;=You are ready to enter a line of text.
;;^UTILITY(U,$J,.84,9180,2,2,0)
;;=Type 'CONTROL-I' (or the TAB key) to insert tabs.
;;^UTILITY(U,$J,.84,9180,2,3,0)
;;=When the text is output, these formatting rules will apply:
;;^UTILITY(U,$J,.84,9180,2,4,0)
;;= A) Lines containing only punctuation characters, or lines containing TABs
;;^UTILITY(U,$J,.84,9180,2,5,0)
;;= will stand by themselves, i.e., no wrap-around.
;;^UTILITY(U,$J,.84,9180,2,6,0)
;;= B) Lines beginning with spaces will start on a new line.
;;^UTILITY(U,$J,.84,9180,2,7,0)
;;= C) Expressions between '|' characters will be evaluated as
;;^UTILITY(U,$J,.84,9180,2,8,0)
;;= 'computed-field' expressions, and then printed as evaluated.
;;^UTILITY(U,$J,.84,9180,2,9,0)
;;= Thus, '|NAME|' would cause the current NAME to be inserted in the text.
;;^UTILITY(U,$J,.84,9180,2,10,0)
;;=
;;^UTILITY(U,$J,.84,9180,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,9180,5,1,0)
;;=DIWE5^IQ
;;^UTILITY(U,$J,.84,9181,0)
;;=9181^3^^2
;;^UTILITY(U,$J,.84,9181,2,0)
;;=^^1^1^2990720^^^
;;^UTILITY(U,$J,.84,9181,2,1,0)
;;=Do you want to see a list of allowable formatting 'WINDOWS'
;;^UTILITY(U,$J,.84,9181,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,9181,5,1,0)
;;=DIWE5^IQ
;;^UTILITY(U,$J,.84,9182,0)
;;=9182^3^^2
;;^UTILITY(U,$J,.84,9182,2,0)
;;=^^1^1^2990711^
;;^UTILITY(U,$J,.84,9182,2,1,0)
;;=SPECIAL FORMATTING INCLUDES:
;;^UTILITY(U,$J,.84,9182,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,9182,5,1,0)
;;=DIWE5^IQ
;;^UTILITY(U,$J,.84,9183,0)
;;=9183^3^y^2
;;^UTILITY(U,$J,.84,9183,2,0)
;;=^^4^4^2990906^^
;;^UTILITY(U,$J,.84,9183,2,1,0)
;;=If you want to use the text from the '|1|' field of another
;;^UTILITY(U,$J,.84,9183,2,2,0)
;;='|2|' entry< type the name of that entry.
;;^UTILITY(U,$J,.84,9183,2,3,0)
;;=Otherwise, use a computed expression to designate some
;;^UTILITY(U,$J,.84,9183,2,4,0)
;;=Word-Processing text.
;;^UTILITY(U,$J,.84,9183,3,0)
;;=^.845^2^2
;;^UTILITY(U,$J,.84,9183,3,1,0)
;;=1^NAME OF W-P FIELD WE ARE EDITING
;;^UTILITY(U,$J,.84,9183,3,2,0)
;;=2^NAME OF FILE WE ARE EDITING
;;^UTILITY(U,$J,.84,9183,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,9183,5,1,0)
;;=DIWE5^TQ
;;^UTILITY(U,$J,.84,9184,0)
;;=9184^2^^2
;;^UTILITY(U,$J,.84,9184,2,0)
;;=^^1^1^2991027^
;;^UTILITY(U,$J,.84,9184,2,1,0)
;;=Text-Terminator
;;^UTILITY(U,$J,.84,9184,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,9184,5,1,0)
;;=DIWE11^TT+2
;;^UTILITY(U,$J,.84,9185,0)
;;=9185^3^^2
;;^UTILITY(U,$J,.84,9185,2,0)
;;=^^2^2^2991008^
;;^UTILITY(U,$J,.84,9185,2,1,0)
;;=Answer must be 1 to 5 characters, containing no question-marks or up-arrows.
;;^UTILITY(U,$J,.84,9185,2,2,0)
;;=To go back to the Null-String, just type "@".
;;^UTILITY(U,$J,.84,9185,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,9185,5,1,0)
;;=DIWE11
;;^UTILITY(U,$J,.84,9186,0)
;;=9186^2^^2
;;^UTILITY(U,$J,.84,9186,2,0)
;;=^^1^1^2991027^
;;^UTILITY(U,$J,.84,9186,2,1,0)
;;=The NULL-STRING is now the TEXT-TERMINATOR!
;;^UTILITY(U,$J,.84,9186,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,9186,5,1,0)
;;=DIWE11
;;^UTILITY(U,$J,.84,9189,0)
;;=9189^2^^2
;;^UTILITY(U,$J,.84,9189,2,0)
;;=^^1^1^2991027^^
;;^UTILITY(U,$J,.84,9189,2,1,0)
;;=UTILITY Option
;;^UTILITY(U,$J,.84,9189,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,9189,5,1,0)
;;=DIWE11
;;^UTILITY(U,$J,.84,9190,0)
;;=9190^2^^2
;;^UTILITY(U,$J,.84,9190,2,0)
;;=^^1^1^2991027^
;;^UTILITY(U,$J,.84,9190,2,1,0)
;;=Editor Change
;;^UTILITY(U,$J,.84,9190,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,9190,5,1,0)
;;=DIWE11
;;^UTILITY(U,$J,.84,9191,0)
;;=9191^2^^2
;;^UTILITY(U,$J,.84,9191,2,0)
;;=^^1^1^2991027^
;;^UTILITY(U,$J,.84,9191,2,1,0)
;;=File Transfer from Foreign CPU
;;^UTILITY(U,$J,.84,9191,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,9191,5,1,0)
;;=DIWE11
;;^UTILITY(U,$J,.84,9192,0)
;;=9192^2^^2
;;^UTILITY(U,$J,.84,9192,2,0)
;;=^^1^1^2991027^
;;^UTILITY(U,$J,.84,9192,2,1,0)
;;=Text-Terminator-String change
;;^UTILITY(U,$J,.84,9192,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,9192,5,1,0)
;;=DIWE11
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDINIT909 8663 printed Dec 13, 2024@02:52:01 Page 2
DINIT909 ;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,9162,1,1,0)
+2 ;;=List a Range of Lines
+3 ;;^UTILITY(U,$J,.84,9162,2,0)
+4 ;;=^^1^1^2990706^
+5 ;;^UTILITY(U,$J,.84,9162,2,1,0)
+6 ;;=List a Range of Lines
+7 ;;^UTILITY(U,$J,.84,9162,5,0)
+8 ;;=^.841^1^1
+9 ;;^UTILITY(U,$J,.84,9162,5,1,0)
+10 ;;=DIWE1^L
+11 ;;^UTILITY(U,$J,.84,9162.1,0)
+12 ;;=9162.1^^^2
+13 ;;^UTILITY(U,$J,.84,9162.1,2,1,0)
+14 ;;=List line:
+15 ;;^UTILITY(U,$J,.84,9163,0)
+16 ;;=9163^3^^2
+17 ;;^UTILITY(U,$J,.84,9163,1,0)
+18 ;;=^^1^1^2990706^
+19 ;;^UTILITY(U,$J,.84,9163,1,1,0)
+20 ;;=Move Lines to New Location within Text
+21 ;;^UTILITY(U,$J,.84,9163,2,0)
+22 ;;=^^1^1^2990706^
+23 ;;^UTILITY(U,$J,.84,9163,2,1,0)
+24 ;;=Move Lines to New Location within Text
+25 ;;^UTILITY(U,$J,.84,9163,5,0)
+26 ;;=^.841^1^1
+27 ;;^UTILITY(U,$J,.84,9163,5,1,0)
+28 ;;=DIWE1^M
+29 ;;^UTILITY(U,$J,.84,9163.1,0)
+30 ;;=9163.1^^^2
+31 ;;^UTILITY(U,$J,.84,9163.1,2,1,0)
+32 ;;=Move line:
+33 ;;^UTILITY(U,$J,.84,9166,0)
+34 ;;=9166^3^^2
+35 ;;^UTILITY(U,$J,.84,9166,1,0)
+36 ;;=^^1^1^2990706^
+37 ;;^UTILITY(U,$J,.84,9166,1,1,0)
+38 ;;=Print Lines as Formatted Output
+39 ;;^UTILITY(U,$J,.84,9166,2,0)
+40 ;;=^^1^1^2990706^
+41 ;;^UTILITY(U,$J,.84,9166,2,1,0)
+42 ;;=Print Lines as Formatted Output
+43 ;;^UTILITY(U,$J,.84,9166,5,0)
+44 ;;=^.841^1^1
+45 ;;^UTILITY(U,$J,.84,9166,5,1,0)
+46 ;;=DIWE1^P
+47 ;;^UTILITY(U,$J,.84,9166.1,0)
+48 ;;=9166.1^^^2
+49 ;;^UTILITY(U,$J,.84,9166.1,2,1,0)
+50 ;;=Print from Line: 1//
+51 ;;^UTILITY(U,$J,.84,9168,0)
+52 ;;=9168^3^^2
+53 ;;^UTILITY(U,$J,.84,9168,1,0)
+54 ;;=^^1^1^2990706^
+55 ;;^UTILITY(U,$J,.84,9168,1,1,0)
+56 ;;=Repeat Lines at a New Location
+57 ;;^UTILITY(U,$J,.84,9168,2,0)
+58 ;;=^^1^1^2990706^
+59 ;;^UTILITY(U,$J,.84,9168,2,1,0)
+60 ;;=Repeat Lines at a New Location
+61 ;;^UTILITY(U,$J,.84,9168,5,0)
+62 ;;=^.841^1^1
+63 ;;^UTILITY(U,$J,.84,9168,5,1,0)
+64 ;;=DIWE1^R
+65 ;;^UTILITY(U,$J,.84,9168.1,0)
+66 ;;=9168.1^^^2
+67 ;;^UTILITY(U,$J,.84,9168.1,2,1,0)
+68 ;;=Repeat line:
+69 ;;^UTILITY(U,$J,.84,9169,0)
+70 ;;=9169^3^^2
+71 ;;^UTILITY(U,$J,.84,9169,1,0)
+72 ;;=^^1^1^2990706^
+73 ;;^UTILITY(U,$J,.84,9169,1,1,0)
+74 ;;=Search for a String
+75 ;;^UTILITY(U,$J,.84,9169,2,0)
+76 ;;=^^1^1^2990706^
+77 ;;^UTILITY(U,$J,.84,9169,2,1,0)
+78 ;;=Search for a String
+79 ;;^UTILITY(U,$J,.84,9169,5,0)
+80 ;;=^.841^1^1
+81 ;;^UTILITY(U,$J,.84,9169,5,1,0)
+82 ;;=DIWE1^S
+83 ;;^UTILITY(U,$J,.84,9169.1,0)
+84 ;;=9169.1^^^2
+85 ;;^UTILITY(U,$J,.84,9169.1,2,1,0)
+86 ;;=Search for:
+87 ;;^UTILITY(U,$J,.84,9170,0)
+88 ;;=9170^3^^2
+89 ;;^UTILITY(U,$J,.84,9170,1,0)
+90 ;;=^^1^1^2990706^
+91 ;;^UTILITY(U,$J,.84,9170,1,1,0)
+92 ;;=Transfer Lines From Another Document
+93 ;;^UTILITY(U,$J,.84,9170,2,0)
+94 ;;=^^1^1^2990706^
+95 ;;^UTILITY(U,$J,.84,9170,2,1,0)
+96 ;;=Transfer Lines From Another Document
+97 ;;^UTILITY(U,$J,.84,9170,5,0)
+98 ;;=^.841^1^1
+99 ;;^UTILITY(U,$J,.84,9170,5,1,0)
+100 ;;=DIWE1^T
+101 ;;^UTILITY(U,$J,.84,9170.1,0)
+102 ;;=9170.1^^^2
+103 ;;^UTILITY(U,$J,.84,9170.1,2,1,0)
+104 ;;=Transfer incoming text after line:
+105 ;;^UTILITY(U,$J,.84,9171,0)
+106 ;;=9171^3^^2
+107 ;;^UTILITY(U,$J,.84,9171,1,0)
+108 ;;=^^1^1^2991026^^
+109 ;;^UTILITY(U,$J,.84,9171,1,1,0)
+110 ;;=Utility Sub-Menu
+111 ;;^UTILITY(U,$J,.84,9171,2,0)
+112 ;;=^^1^1^2991026^^^^
+113 ;;^UTILITY(U,$J,.84,9171,2,1,0)
+114 ;;=Utilities for Word-Processing
+115 ;;^UTILITY(U,$J,.84,9171,5,0)
+116 ;;=^.841^1^1
+117 ;;^UTILITY(U,$J,.84,9171,5,1,0)
+118 ;;=DIWE1^U
+119 ;;^UTILITY(U,$J,.84,9171.1,0)
+120 ;;=9171.1^2^^2
+121 ;;^UTILITY(U,$J,.84,9171.1,2,0)
+122 ;;=^^1^1^2991026^
+123 ;;^UTILITY(U,$J,.84,9171.1,2,1,0)
+124 ;;=Miscellaneous UTILITIES
+125 ;;^UTILITY(U,$J,.84,9175,0)
+126 ;;=9175^3^^2
+127 ;;^UTILITY(U,$J,.84,9175,1,0)
+128 ;;=^^1^1^2990706^
+129 ;;^UTILITY(U,$J,.84,9175,1,1,0)
+130 ;;=Y-Programmer Edit
+131 ;;^UTILITY(U,$J,.84,9175,2,0)
+132 ;;=^^1^1^2990706^
+133 ;;^UTILITY(U,$J,.84,9175,2,1,0)
+134 ;;=Y-Programmer Edit
+135 ;;^UTILITY(U,$J,.84,9175,5,0)
+136 ;;=^.841^1^1
+137 ;;^UTILITY(U,$J,.84,9175,5,1,0)
+138 ;;=DIWE1^Y
+139 ;;^UTILITY(U,$J,.84,9175.1,0)
+140 ;;=9175.1^^^2
+141 ;;^UTILITY(U,$J,.84,9175.1,2,1,0)
+142 ;;=Y
+143 ;;^UTILITY(U,$J,.84,9180,0)
+144 ;;=9180^3^^2
+145 ;;^UTILITY(U,$J,.84,9180,2,0)
+146 ;;=^^10^10^2990720^^^^
+147 ;;^UTILITY(U,$J,.84,9180,2,1,0)
+148 ;;=You are ready to enter a line of text.
+149 ;;^UTILITY(U,$J,.84,9180,2,2,0)
+150 ;;=Type 'CONTROL-I' (or the TAB key) to insert tabs.
+151 ;;^UTILITY(U,$J,.84,9180,2,3,0)
+152 ;;=When the text is output, these formatting rules will apply:
+153 ;;^UTILITY(U,$J,.84,9180,2,4,0)
+154 ;;= A) Lines containing only punctuation characters, or lines containing TABs
+155 ;;^UTILITY(U,$J,.84,9180,2,5,0)
+156 ;;= will stand by themselves, i.e., no wrap-around.
+157 ;;^UTILITY(U,$J,.84,9180,2,6,0)
+158 ;;= B) Lines beginning with spaces will start on a new line.
+159 ;;^UTILITY(U,$J,.84,9180,2,7,0)
+160 ;;= C) Expressions between '|' characters will be evaluated as
+161 ;;^UTILITY(U,$J,.84,9180,2,8,0)
+162 ;;= 'computed-field' expressions, and then printed as evaluated.
+163 ;;^UTILITY(U,$J,.84,9180,2,9,0)
+164 ;;= Thus, '|NAME|' would cause the current NAME to be inserted in the text.
+165 ;;^UTILITY(U,$J,.84,9180,2,10,0)
+166 ;;=
+167 ;;^UTILITY(U,$J,.84,9180,5,0)
+168 ;;=^.841^1^1
+169 ;;^UTILITY(U,$J,.84,9180,5,1,0)
+170 ;;=DIWE5^IQ
+171 ;;^UTILITY(U,$J,.84,9181,0)
+172 ;;=9181^3^^2
+173 ;;^UTILITY(U,$J,.84,9181,2,0)
+174 ;;=^^1^1^2990720^^^
+175 ;;^UTILITY(U,$J,.84,9181,2,1,0)
+176 ;;=Do you want to see a list of allowable formatting 'WINDOWS'
+177 ;;^UTILITY(U,$J,.84,9181,5,0)
+178 ;;=^.841^1^1
+179 ;;^UTILITY(U,$J,.84,9181,5,1,0)
+180 ;;=DIWE5^IQ
+181 ;;^UTILITY(U,$J,.84,9182,0)
+182 ;;=9182^3^^2
+183 ;;^UTILITY(U,$J,.84,9182,2,0)
+184 ;;=^^1^1^2990711^
+185 ;;^UTILITY(U,$J,.84,9182,2,1,0)
+186 ;;=SPECIAL FORMATTING INCLUDES:
+187 ;;^UTILITY(U,$J,.84,9182,5,0)
+188 ;;=^.841^1^1
+189 ;;^UTILITY(U,$J,.84,9182,5,1,0)
+190 ;;=DIWE5^IQ
+191 ;;^UTILITY(U,$J,.84,9183,0)
+192 ;;=9183^3^y^2
+193 ;;^UTILITY(U,$J,.84,9183,2,0)
+194 ;;=^^4^4^2990906^^
+195 ;;^UTILITY(U,$J,.84,9183,2,1,0)
+196 ;;=If you want to use the text from the '|1|' field of another
+197 ;;^UTILITY(U,$J,.84,9183,2,2,0)
+198 ;;='|2|' entry< type the name of that entry.
+199 ;;^UTILITY(U,$J,.84,9183,2,3,0)
+200 ;;=Otherwise, use a computed expression to designate some
+201 ;;^UTILITY(U,$J,.84,9183,2,4,0)
+202 ;;=Word-Processing text.
+203 ;;^UTILITY(U,$J,.84,9183,3,0)
+204 ;;=^.845^2^2
+205 ;;^UTILITY(U,$J,.84,9183,3,1,0)
+206 ;;=1^NAME OF W-P FIELD WE ARE EDITING
+207 ;;^UTILITY(U,$J,.84,9183,3,2,0)
+208 ;;=2^NAME OF FILE WE ARE EDITING
+209 ;;^UTILITY(U,$J,.84,9183,5,0)
+210 ;;=^.841^1^1
+211 ;;^UTILITY(U,$J,.84,9183,5,1,0)
+212 ;;=DIWE5^TQ
+213 ;;^UTILITY(U,$J,.84,9184,0)
+214 ;;=9184^2^^2
+215 ;;^UTILITY(U,$J,.84,9184,2,0)
+216 ;;=^^1^1^2991027^
+217 ;;^UTILITY(U,$J,.84,9184,2,1,0)
+218 ;;=Text-Terminator
+219 ;;^UTILITY(U,$J,.84,9184,5,0)
+220 ;;=^.841^1^1
+221 ;;^UTILITY(U,$J,.84,9184,5,1,0)
+222 ;;=DIWE11^TT+2
+223 ;;^UTILITY(U,$J,.84,9185,0)
+224 ;;=9185^3^^2
+225 ;;^UTILITY(U,$J,.84,9185,2,0)
+226 ;;=^^2^2^2991008^
+227 ;;^UTILITY(U,$J,.84,9185,2,1,0)
+228 ;;=Answer must be 1 to 5 characters, containing no question-marks or up-arrows.
+229 ;;^UTILITY(U,$J,.84,9185,2,2,0)
+230 ;;=To go back to the Null-String, just type "@".
+231 ;;^UTILITY(U,$J,.84,9185,5,0)
+232 ;;=^.841^1^1
+233 ;;^UTILITY(U,$J,.84,9185,5,1,0)
+234 ;;=DIWE11
+235 ;;^UTILITY(U,$J,.84,9186,0)
+236 ;;=9186^2^^2
+237 ;;^UTILITY(U,$J,.84,9186,2,0)
+238 ;;=^^1^1^2991027^
+239 ;;^UTILITY(U,$J,.84,9186,2,1,0)
+240 ;;=The NULL-STRING is now the TEXT-TERMINATOR!
+241 ;;^UTILITY(U,$J,.84,9186,5,0)
+242 ;;=^.841^1^1
+243 ;;^UTILITY(U,$J,.84,9186,5,1,0)
+244 ;;=DIWE11
+245 ;;^UTILITY(U,$J,.84,9189,0)
+246 ;;=9189^2^^2
+247 ;;^UTILITY(U,$J,.84,9189,2,0)
+248 ;;=^^1^1^2991027^^
+249 ;;^UTILITY(U,$J,.84,9189,2,1,0)
+250 ;;=UTILITY Option
+251 ;;^UTILITY(U,$J,.84,9189,5,0)
+252 ;;=^.841^1^1
+253 ;;^UTILITY(U,$J,.84,9189,5,1,0)
+254 ;;=DIWE11
+255 ;;^UTILITY(U,$J,.84,9190,0)
+256 ;;=9190^2^^2
+257 ;;^UTILITY(U,$J,.84,9190,2,0)
+258 ;;=^^1^1^2991027^
+259 ;;^UTILITY(U,$J,.84,9190,2,1,0)
+260 ;;=Editor Change
+261 ;;^UTILITY(U,$J,.84,9190,5,0)
+262 ;;=^.841^1^1
+263 ;;^UTILITY(U,$J,.84,9190,5,1,0)
+264 ;;=DIWE11
+265 ;;^UTILITY(U,$J,.84,9191,0)
+266 ;;=9191^2^^2
+267 ;;^UTILITY(U,$J,.84,9191,2,0)
+268 ;;=^^1^1^2991027^
+269 ;;^UTILITY(U,$J,.84,9191,2,1,0)
+270 ;;=File Transfer from Foreign CPU
+271 ;;^UTILITY(U,$J,.84,9191,5,0)
+272 ;;=^.841^1^1
+273 ;;^UTILITY(U,$J,.84,9191,5,1,0)
+274 ;;=DIWE11
+275 ;;^UTILITY(U,$J,.84,9192,0)
+276 ;;=9192^2^^2
+277 ;;^UTILITY(U,$J,.84,9192,2,0)
+278 ;;=^^1^1^2991027^
+279 ;;^UTILITY(U,$J,.84,9192,2,1,0)
+280 ;;=Text-Terminator-String change
+281 ;;^UTILITY(U,$J,.84,9192,5,0)
+282 ;;=^.841^1^1
+283 ;;^UTILITY(U,$J,.84,9192,5,1,0)
+284 ;;=DIWE11
