DINIT905 ;GFT/GFT-DIALOG FILE INITS ;06:24 PM 21 Aug 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,8153,2,0)
;;=^^1^1^2990711^^^^
;;^UTILITY(U,$J,.84,8153,2,1,0)
;;= '+' to mean |1|, etc.
;;^UTILITY(U,$J,.84,8153,3,0)
;;=^.845^1^1
;;^UTILITY(U,$J,.84,8153,3,1,0)
;;=1^NEXT LINE NUMBER
;;^UTILITY(U,$J,.84,8153,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8153,5,1,0)
;;=DIWE5^LNQ+2
;;^UTILITY(U,$J,.84,8155,0)
;;=8155^2^^2
;;^UTILITY(U,$J,.84,8155,2,0)
;;=^^8^8^2991008^^
;;^UTILITY(U,$J,.84,8155,2,1,0)
;;=You have 30 seconds to start sending text.
;;^UTILITY(U,$J,.84,8155,2,2,0)
;;=An End-of-File is assumed on 30-second timeout.
;;^UTILITY(U,$J,.84,8155,2,3,0)
;;=
;;^UTILITY(U,$J,.84,8155,2,4,0)
;;=TABs are converted to 1 thru 9 spaces to start the next character
;;^UTILITY(U,$J,.84,8155,2,5,0)
;;=at a column evenly divisible by 9, plus 1. (10,19,28,37,...)
;;^UTILITY(U,$J,.84,8155,2,6,0)
;;=
;;^UTILITY(U,$J,.84,8155,2,7,0)
;;=End-of-line = Carriage Return/$C(13) or Escape/$C(27).
;;^UTILITY(U,$J,.84,8155,2,8,0)
;;=All other control characters will be stripped from the text.
;;^UTILITY(U,$J,.84,8155,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8155,5,1,0)
;;=DIWE11
;;^UTILITY(U,$J,.84,8156,0)
;;=8156^2^^2
;;^UTILITY(U,$J,.84,8156,2,0)
;;=^^1^1^2991027^
;;^UTILITY(U,$J,.84,8156,2,1,0)
;;=Maximum STRING LENGTH
;;^UTILITY(U,$J,.84,8156,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8156,5,1,0)
;;=DIWE5
;;^UTILITY(U,$J,.84,8157,0)
;;=8157^2^^2
;;^UTILITY(U,$J,.84,8157,2,0)
;;=^^1^1^2991027^
;;^UTILITY(U,$J,.84,8157,2,1,0)
;;=FILE TRANSFER COMPLETED.
;;^UTILITY(U,$J,.84,8157,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8157,5,1,0)
;;=DIWE5
;;^UTILITY(U,$J,.84,8160,0)
;;=8160^2^^2
;;^UTILITY(U,$J,.84,8160,2,0)
;;=^^1^1^2991027^^
;;^UTILITY(U,$J,.84,8160,2,1,0)
;;=REQUESTED TIME TO PRINT
;;^UTILITY(U,$J,.84,8160,5,0)
;;=^.841^2^2
;;^UTILITY(U,$J,.84,8160,5,1,0)
;;=DIP4^W
;;^UTILITY(U,$J,.84,8160,5,2,0)
;;=DIWE4^QUE+1
;;^UTILITY(U,$J,.84,8161,0)
;;=8161^2^y^2
;;^UTILITY(U,$J,.84,8161,2,0)
;;=^^1^1^2991027^
;;^UTILITY(U,$J,.84,8161,2,1,0)
;;=REQUEST QUEUED... Task |1|.
;;^UTILITY(U,$J,.84,8161,3,0)
;;=^.845^1^1
;;^UTILITY(U,$J,.84,8161,3,1,0)
;;=1^TASK NUMBER
;;^UTILITY(U,$J,.84,8161,5,0)
;;=^.841^2^2
;;^UTILITY(U,$J,.84,8161,5,1,0)
;;=DIP4^ZTM+2
;;^UTILITY(U,$J,.84,8161,5,2,0)
;;=DIWE4^QUE+4
;;^UTILITY(U,$J,.84,8162,0)
;;=8162^2^^2
;;^UTILITY(U,$J,.84,8162,2,0)
;;=^^1^1^2991027^
;;^UTILITY(U,$J,.84,8162,2,1,0)
;;=Do you want Line Numbers
;;^UTILITY(U,$J,.84,8162,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8162,5,1,0)
;;=DIWE4^LINNUMS
;;^UTILITY(U,$J,.84,8163,0)
;;=8163^2^^2
;;^UTILITY(U,$J,.84,8163,2,0)
;;=^^1^1^2991027^
;;^UTILITY(U,$J,.84,8163,2,1,0)
;;=Rough Draft
;;^UTILITY(U,$J,.84,8163,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8163,5,1,0)
;;=DIWE4^RD
;;^UTILITY(U,$J,.84,8164,0)
;;=8164^3^^2
;;^UTILITY(U,$J,.84,8164,2,0)
;;=^^1^1^2991027^
;;^UTILITY(U,$J,.84,8164,2,1,0)
;;=A rough draft is printed line-for-line, showing windows.
;;^UTILITY(U,$J,.84,8164,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8164,5,1,0)
;;=DIWE4^RD
;;^UTILITY(U,$J,.84,8165,0)
;;=8165^2^^2
;;^UTILITY(U,$J,.84,8165,2,0)
;;=^^1^1^2991027^
;;^UTILITY(U,$J,.84,8165,2,1,0)
;;=Line Editor Print
;;^UTILITY(U,$J,.84,8165,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8165,5,1,0)
;;=DIWE4^HD
;;^UTILITY(U,$J,.84,8170,0)
;;=8170^2^^2
;;^UTILITY(U,$J,.84,8170,2,0)
;;=^^1^1^2991027^
;;^UTILITY(U,$J,.84,8170,2,1,0)
;;=Select ALTERNATE EDITOR:
;;^UTILITY(U,$J,.84,8170,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8170,5,1,0)
;;=DIWE12^ASK
;;^UTILITY(U,$J,.84,8171,0)
;;=8171^3^^2
;;^UTILITY(U,$J,.84,8171,2,0)
;;=^^1^1^2991027^
;;^UTILITY(U,$J,.84,8171,2,1,0)
;;=Choose an Alternate Editor
;;^UTILITY(U,$J,.84,8171,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8171,5,1,0)
;;=DIWE12^ASK+5
;;^UTILITY(U,$J,.84,8172,0)
;;=8172^3^^2
;;^UTILITY(U,$J,.84,8172,2,0)
;;=^^1^1^2991027^
;;^UTILITY(U,$J,.84,8172,2,1,0)
;;= from the following:
;;^UTILITY(U,$J,.84,8172,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8172,5,1,0)
;;=DIWE12^ASK+6
;;^UTILITY(U,$J,.84,8175,0)
;;=8175^2^^2
;;^UTILITY(U,$J,.84,8175,2,0)
;;=^^1^1^2991027^
;;^UTILITY(U,$J,.84,8175,2,1,0)
;;=Edit
;;^UTILITY(U,$J,.84,8175,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8175,5,1,0)
;;=DIWE12^E
;;^UTILITY(U,$J,.84,8176,0)
;;=8176^3^^2
;;^UTILITY(U,$J,.84,8176,2,0)
;;=^^2^2^2991027^
;;^UTILITY(U,$J,.84,8176,2,1,0)
;;= Enter 'YES' if you wish to go into the editor.
;;^UTILITY(U,$J,.84,8176,2,2,0)
;;= Enter 'NO' if you do not wish to edit at this time.
;;^UTILITY(U,$J,.84,8176,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8176,5,1,0)
;;=DIWE12^E
;;^UTILITY(U,$J,.84,8179,0)
;;=8179^3^^2
;;^UTILITY(U,$J,.84,8179,2,0)
;;=^^1^1^2991121^
;;^UTILITY(U,$J,.84,8179,2,1,0)
;;=PRESS <Enter> to edit the WORD-PROCESSING field
;;^UTILITY(U,$J,.84,8179,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8179,5,1,0)
;;=DDSWP^EGP
;;^UTILITY(U,$J,.84,8180,0)
;;=8180^2^^2
;;^UTILITY(U,$J,.84,8180,2,0)
;;=^^1^1^2991027^^^
;;^UTILITY(U,$J,.84,8180,2,1,0)
;;=NUMBER OF COPIES:
;;^UTILITY(U,$J,.84,8180,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8180,5,1,0)
;;=DIP3^SDP+1
;;^UTILITY(U,$J,.84,8181,0)
;;=8181^2^^2
;;^UTILITY(U,$J,.84,8181,2,0)
;;=^^1^1^2991027^^
;;^UTILITY(U,$J,.84,8181,2,1,0)
;;=OUTPUT COPIES TO WHAT DEVICE:
;;^UTILITY(U,$J,.84,8181,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8181,5,1,0)
;;=DIP3^O
;;^UTILITY(U,$J,.84,8190,0)
;;=8190^2^y^2
;;^UTILITY(U,$J,.84,8190,2,0)
;;=^^1^1^2991027^
;;^UTILITY(U,$J,.84,8190,2,1,0)
;;=MARGIN WIDTH IS NORMALLY AT LEAST |1|... ARE YOU SURE
;;^UTILITY(U,$J,.84,8190,3,0)
;;=^.845^1^1
;;^UTILITY(U,$J,.84,8190,3,1,0)
;;=1^MARGIN WIDTH KNOWN BY THE PRINT TEMPLATE
;;^UTILITY(U,$J,.84,8190,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8190,5,1,0)
;;=DIP3^FREE+1
;;^UTILITY(U,$J,.84,8191,0)
;;=8191^2^^2
;;^UTILITY(U,$J,.84,8191,2,0)
;;=^^1^1^2991027^^
;;^UTILITY(U,$J,.84,8191,2,1,0)
;;=Do you want to free up this Terminal
;;^UTILITY(U,$J,.84,8191,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8191,5,1,0)
;;=DIP3^FREE+2
;;^UTILITY(U,$J,.84,8192,0)
;;=8192^2^^2
;;^UTILITY(U,$J,.84,8192,2,0)
;;=^^1^1^2991027^
;;^UTILITY(U,$J,.84,8192,2,1,0)
;;=THIS TERMINAL IS NOW FREE!
;;^UTILITY(U,$J,.84,8192,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8192,5,1,0)
;;=DIP3^FREE+3
;;^UTILITY(U,$J,.84,8195,0)
;;=8195^2^^2
;;^UTILITY(U,$J,.84,8195,1,0)
;;=^^1^1^2990902^
;;^UTILITY(U,$J,.84,8195,1,1,0)
;;=one line only!
;;^UTILITY(U,$J,.84,8195,2,0)
;;=^^1^1^2990902^^
;;^UTILITY(U,$J,.84,8195,2,1,0)
;;=Do you always want to suppress subheaders when printing template
;;^UTILITY(U,$J,.84,8195,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8195,5,1,0)
;;=DIP21^SUB
;;^UTILITY(U,$J,.84,8196,0)
;;=8196^2^y^2
;;^UTILITY(U,$J,.84,8196,2,0)
;;=^^1^1^2990903^
;;^UTILITY(U,$J,.84,8196,2,1,0)
;;=Do you want to edit the '|1|' Template
;;^UTILITY(U,$J,.84,8196,3,0)
;;=^.845^1^1
;;^UTILITY(U,$J,.84,8196,3,1,0)
;;=1^NAME OF TEMPLATE
;;^UTILITY(U,$J,.84,8196,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8196,5,1,0)
;;=DIP21^EDIT
;;^UTILITY(U,$J,.84,8197,0)
;;=8197^2^^2
;;^UTILITY(U,$J,.84,8197,2,0)
;;=^^1^1^2990828^
;;^UTILITY(U,$J,.84,8197,2,1,0)
;;=Display Audit Trail
;;^UTILITY(U,$J,.84,8197,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8197,5,1,0)
;;=DII
;;^UTILITY(U,$J,.84,8197.1,0)
;;=8197.1^2^y^2
;;^UTILITY(U,$J,.84,8197.1,2,0)
;;=^^1^1^2991218^^
;;^UTILITY(U,$J,.84,8197.1,2,1,0)
;;=Deleted "|1|"
;;^UTILITY(U,$J,.84,8197.1,3,0)
;;=^.845^1^1
;;^UTILITY(U,$J,.84,8197.1,3,1,0)
;;=1^The deleted value of the field being displayed in CAPTIONED OUTPUT, according to the audit trail
;;^UTILITY(U,$J,.84,8197.1,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,8197.1,5,1,0)
;;=DIQ^PRINTAUD+5
;;^UTILITY(U,$J,.84,8197.2,0)
;;=8197.2^2^y^2
;;^UTILITY(U,$J,.84,8197.2,2,0)
;;=^^1^1^2991218^
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDINIT905 8679 printed Sep 23, 2025@20:28:04 Page 2
DINIT905 ;GFT/GFT-DIALOG FILE INITS ;06:24 PM 21 Aug 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,8153,2,0)
+2 ;;=^^1^1^2990711^^^^
+3 ;;^UTILITY(U,$J,.84,8153,2,1,0)
+4 ;;= '+' to mean |1|, etc.
+5 ;;^UTILITY(U,$J,.84,8153,3,0)
+6 ;;=^.845^1^1
+7 ;;^UTILITY(U,$J,.84,8153,3,1,0)
+8 ;;=1^NEXT LINE NUMBER
+9 ;;^UTILITY(U,$J,.84,8153,5,0)
+10 ;;=^.841^1^1
+11 ;;^UTILITY(U,$J,.84,8153,5,1,0)
+12 ;;=DIWE5^LNQ+2
+13 ;;^UTILITY(U,$J,.84,8155,0)
+14 ;;=8155^2^^2
+15 ;;^UTILITY(U,$J,.84,8155,2,0)
+16 ;;=^^8^8^2991008^^
+17 ;;^UTILITY(U,$J,.84,8155,2,1,0)
+18 ;;=You have 30 seconds to start sending text.
+19 ;;^UTILITY(U,$J,.84,8155,2,2,0)
+20 ;;=An End-of-File is assumed on 30-second timeout.
+21 ;;^UTILITY(U,$J,.84,8155,2,3,0)
+22 ;;=
+23 ;;^UTILITY(U,$J,.84,8155,2,4,0)
+24 ;;=TABs are converted to 1 thru 9 spaces to start the next character
+25 ;;^UTILITY(U,$J,.84,8155,2,5,0)
+26 ;;=at a column evenly divisible by 9, plus 1. (10,19,28,37,...)
+27 ;;^UTILITY(U,$J,.84,8155,2,6,0)
+28 ;;=
+29 ;;^UTILITY(U,$J,.84,8155,2,7,0)
+30 ;;=End-of-line = Carriage Return/$C(13) or Escape/$C(27).
+31 ;;^UTILITY(U,$J,.84,8155,2,8,0)
+32 ;;=All other control characters will be stripped from the text.
+33 ;;^UTILITY(U,$J,.84,8155,5,0)
+34 ;;=^.841^1^1
+35 ;;^UTILITY(U,$J,.84,8155,5,1,0)
+36 ;;=DIWE11
+37 ;;^UTILITY(U,$J,.84,8156,0)
+38 ;;=8156^2^^2
+39 ;;^UTILITY(U,$J,.84,8156,2,0)
+40 ;;=^^1^1^2991027^
+41 ;;^UTILITY(U,$J,.84,8156,2,1,0)
+42 ;;=Maximum STRING LENGTH
+43 ;;^UTILITY(U,$J,.84,8156,5,0)
+44 ;;=^.841^1^1
+45 ;;^UTILITY(U,$J,.84,8156,5,1,0)
+46 ;;=DIWE5
+47 ;;^UTILITY(U,$J,.84,8157,0)
+48 ;;=8157^2^^2
+49 ;;^UTILITY(U,$J,.84,8157,2,0)
+50 ;;=^^1^1^2991027^
+51 ;;^UTILITY(U,$J,.84,8157,2,1,0)
+52 ;;=FILE TRANSFER COMPLETED.
+53 ;;^UTILITY(U,$J,.84,8157,5,0)
+54 ;;=^.841^1^1
+55 ;;^UTILITY(U,$J,.84,8157,5,1,0)
+56 ;;=DIWE5
+57 ;;^UTILITY(U,$J,.84,8160,0)
+58 ;;=8160^2^^2
+59 ;;^UTILITY(U,$J,.84,8160,2,0)
+60 ;;=^^1^1^2991027^^
+61 ;;^UTILITY(U,$J,.84,8160,2,1,0)
+62 ;;=REQUESTED TIME TO PRINT
+63 ;;^UTILITY(U,$J,.84,8160,5,0)
+64 ;;=^.841^2^2
+65 ;;^UTILITY(U,$J,.84,8160,5,1,0)
+66 ;;=DIP4^W
+67 ;;^UTILITY(U,$J,.84,8160,5,2,0)
+68 ;;=DIWE4^QUE+1
+69 ;;^UTILITY(U,$J,.84,8161,0)
+70 ;;=8161^2^y^2
+71 ;;^UTILITY(U,$J,.84,8161,2,0)
+72 ;;=^^1^1^2991027^
+73 ;;^UTILITY(U,$J,.84,8161,2,1,0)
+74 ;;=REQUEST QUEUED... Task |1|.
+75 ;;^UTILITY(U,$J,.84,8161,3,0)
+76 ;;=^.845^1^1
+77 ;;^UTILITY(U,$J,.84,8161,3,1,0)
+78 ;;=1^TASK NUMBER
+79 ;;^UTILITY(U,$J,.84,8161,5,0)
+80 ;;=^.841^2^2
+81 ;;^UTILITY(U,$J,.84,8161,5,1,0)
+82 ;;=DIP4^ZTM+2
+83 ;;^UTILITY(U,$J,.84,8161,5,2,0)
+84 ;;=DIWE4^QUE+4
+85 ;;^UTILITY(U,$J,.84,8162,0)
+86 ;;=8162^2^^2
+87 ;;^UTILITY(U,$J,.84,8162,2,0)
+88 ;;=^^1^1^2991027^
+89 ;;^UTILITY(U,$J,.84,8162,2,1,0)
+90 ;;=Do you want Line Numbers
+91 ;;^UTILITY(U,$J,.84,8162,5,0)
+92 ;;=^.841^1^1
+93 ;;^UTILITY(U,$J,.84,8162,5,1,0)
+94 ;;=DIWE4^LINNUMS
+95 ;;^UTILITY(U,$J,.84,8163,0)
+96 ;;=8163^2^^2
+97 ;;^UTILITY(U,$J,.84,8163,2,0)
+98 ;;=^^1^1^2991027^
+99 ;;^UTILITY(U,$J,.84,8163,2,1,0)
+100 ;;=Rough Draft
+101 ;;^UTILITY(U,$J,.84,8163,5,0)
+102 ;;=^.841^1^1
+103 ;;^UTILITY(U,$J,.84,8163,5,1,0)
+104 ;;=DIWE4^RD
+105 ;;^UTILITY(U,$J,.84,8164,0)
+106 ;;=8164^3^^2
+107 ;;^UTILITY(U,$J,.84,8164,2,0)
+108 ;;=^^1^1^2991027^
+109 ;;^UTILITY(U,$J,.84,8164,2,1,0)
+110 ;;=A rough draft is printed line-for-line, showing windows.
+111 ;;^UTILITY(U,$J,.84,8164,5,0)
+112 ;;=^.841^1^1
+113 ;;^UTILITY(U,$J,.84,8164,5,1,0)
+114 ;;=DIWE4^RD
+115 ;;^UTILITY(U,$J,.84,8165,0)
+116 ;;=8165^2^^2
+117 ;;^UTILITY(U,$J,.84,8165,2,0)
+118 ;;=^^1^1^2991027^
+119 ;;^UTILITY(U,$J,.84,8165,2,1,0)
+120 ;;=Line Editor Print
+121 ;;^UTILITY(U,$J,.84,8165,5,0)
+122 ;;=^.841^1^1
+123 ;;^UTILITY(U,$J,.84,8165,5,1,0)
+124 ;;=DIWE4^HD
+125 ;;^UTILITY(U,$J,.84,8170,0)
+126 ;;=8170^2^^2
+127 ;;^UTILITY(U,$J,.84,8170,2,0)
+128 ;;=^^1^1^2991027^
+129 ;;^UTILITY(U,$J,.84,8170,2,1,0)
+130 ;;=Select ALTERNATE EDITOR:
+131 ;;^UTILITY(U,$J,.84,8170,5,0)
+132 ;;=^.841^1^1
+133 ;;^UTILITY(U,$J,.84,8170,5,1,0)
+134 ;;=DIWE12^ASK
+135 ;;^UTILITY(U,$J,.84,8171,0)
+136 ;;=8171^3^^2
+137 ;;^UTILITY(U,$J,.84,8171,2,0)
+138 ;;=^^1^1^2991027^
+139 ;;^UTILITY(U,$J,.84,8171,2,1,0)
+140 ;;=Choose an Alternate Editor
+141 ;;^UTILITY(U,$J,.84,8171,5,0)
+142 ;;=^.841^1^1
+143 ;;^UTILITY(U,$J,.84,8171,5,1,0)
+144 ;;=DIWE12^ASK+5
+145 ;;^UTILITY(U,$J,.84,8172,0)
+146 ;;=8172^3^^2
+147 ;;^UTILITY(U,$J,.84,8172,2,0)
+148 ;;=^^1^1^2991027^
+149 ;;^UTILITY(U,$J,.84,8172,2,1,0)
+150 ;;= from the following:
+151 ;;^UTILITY(U,$J,.84,8172,5,0)
+152 ;;=^.841^1^1
+153 ;;^UTILITY(U,$J,.84,8172,5,1,0)
+154 ;;=DIWE12^ASK+6
+155 ;;^UTILITY(U,$J,.84,8175,0)
+156 ;;=8175^2^^2
+157 ;;^UTILITY(U,$J,.84,8175,2,0)
+158 ;;=^^1^1^2991027^
+159 ;;^UTILITY(U,$J,.84,8175,2,1,0)
+160 ;;=Edit
+161 ;;^UTILITY(U,$J,.84,8175,5,0)
+162 ;;=^.841^1^1
+163 ;;^UTILITY(U,$J,.84,8175,5,1,0)
+164 ;;=DIWE12^E
+165 ;;^UTILITY(U,$J,.84,8176,0)
+166 ;;=8176^3^^2
+167 ;;^UTILITY(U,$J,.84,8176,2,0)
+168 ;;=^^2^2^2991027^
+169 ;;^UTILITY(U,$J,.84,8176,2,1,0)
+170 ;;= Enter 'YES' if you wish to go into the editor.
+171 ;;^UTILITY(U,$J,.84,8176,2,2,0)
+172 ;;= Enter 'NO' if you do not wish to edit at this time.
+173 ;;^UTILITY(U,$J,.84,8176,5,0)
+174 ;;=^.841^1^1
+175 ;;^UTILITY(U,$J,.84,8176,5,1,0)
+176 ;;=DIWE12^E
+177 ;;^UTILITY(U,$J,.84,8179,0)
+178 ;;=8179^3^^2
+179 ;;^UTILITY(U,$J,.84,8179,2,0)
+180 ;;=^^1^1^2991121^
+181 ;;^UTILITY(U,$J,.84,8179,2,1,0)
+182 ;;=PRESS <Enter> to edit the WORD-PROCESSING field
+183 ;;^UTILITY(U,$J,.84,8179,5,0)
+184 ;;=^.841^1^1
+185 ;;^UTILITY(U,$J,.84,8179,5,1,0)
+186 ;;=DDSWP^EGP
+187 ;;^UTILITY(U,$J,.84,8180,0)
+188 ;;=8180^2^^2
+189 ;;^UTILITY(U,$J,.84,8180,2,0)
+190 ;;=^^1^1^2991027^^^
+191 ;;^UTILITY(U,$J,.84,8180,2,1,0)
+192 ;;=NUMBER OF COPIES:
+193 ;;^UTILITY(U,$J,.84,8180,5,0)
+194 ;;=^.841^1^1
+195 ;;^UTILITY(U,$J,.84,8180,5,1,0)
+196 ;;=DIP3^SDP+1
+197 ;;^UTILITY(U,$J,.84,8181,0)
+198 ;;=8181^2^^2
+199 ;;^UTILITY(U,$J,.84,8181,2,0)
+200 ;;=^^1^1^2991027^^
+201 ;;^UTILITY(U,$J,.84,8181,2,1,0)
+202 ;;=OUTPUT COPIES TO WHAT DEVICE:
+203 ;;^UTILITY(U,$J,.84,8181,5,0)
+204 ;;=^.841^1^1
+205 ;;^UTILITY(U,$J,.84,8181,5,1,0)
+206 ;;=DIP3^O
+207 ;;^UTILITY(U,$J,.84,8190,0)
+208 ;;=8190^2^y^2
+209 ;;^UTILITY(U,$J,.84,8190,2,0)
+210 ;;=^^1^1^2991027^
+211 ;;^UTILITY(U,$J,.84,8190,2,1,0)
+212 ;;=MARGIN WIDTH IS NORMALLY AT LEAST |1|... ARE YOU SURE
+213 ;;^UTILITY(U,$J,.84,8190,3,0)
+214 ;;=^.845^1^1
+215 ;;^UTILITY(U,$J,.84,8190,3,1,0)
+216 ;;=1^MARGIN WIDTH KNOWN BY THE PRINT TEMPLATE
+217 ;;^UTILITY(U,$J,.84,8190,5,0)
+218 ;;=^.841^1^1
+219 ;;^UTILITY(U,$J,.84,8190,5,1,0)
+220 ;;=DIP3^FREE+1
+221 ;;^UTILITY(U,$J,.84,8191,0)
+222 ;;=8191^2^^2
+223 ;;^UTILITY(U,$J,.84,8191,2,0)
+224 ;;=^^1^1^2991027^^
+225 ;;^UTILITY(U,$J,.84,8191,2,1,0)
+226 ;;=Do you want to free up this Terminal
+227 ;;^UTILITY(U,$J,.84,8191,5,0)
+228 ;;=^.841^1^1
+229 ;;^UTILITY(U,$J,.84,8191,5,1,0)
+230 ;;=DIP3^FREE+2
+231 ;;^UTILITY(U,$J,.84,8192,0)
+232 ;;=8192^2^^2
+233 ;;^UTILITY(U,$J,.84,8192,2,0)
+234 ;;=^^1^1^2991027^
+235 ;;^UTILITY(U,$J,.84,8192,2,1,0)
+236 ;;=THIS TERMINAL IS NOW FREE!
+237 ;;^UTILITY(U,$J,.84,8192,5,0)
+238 ;;=^.841^1^1
+239 ;;^UTILITY(U,$J,.84,8192,5,1,0)
+240 ;;=DIP3^FREE+3
+241 ;;^UTILITY(U,$J,.84,8195,0)
+242 ;;=8195^2^^2
+243 ;;^UTILITY(U,$J,.84,8195,1,0)
+244 ;;=^^1^1^2990902^
+245 ;;^UTILITY(U,$J,.84,8195,1,1,0)
+246 ;;=one line only!
+247 ;;^UTILITY(U,$J,.84,8195,2,0)
+248 ;;=^^1^1^2990902^^
+249 ;;^UTILITY(U,$J,.84,8195,2,1,0)
+250 ;;=Do you always want to suppress subheaders when printing template
+251 ;;^UTILITY(U,$J,.84,8195,5,0)
+252 ;;=^.841^1^1
+253 ;;^UTILITY(U,$J,.84,8195,5,1,0)
+254 ;;=DIP21^SUB
+255 ;;^UTILITY(U,$J,.84,8196,0)
+256 ;;=8196^2^y^2
+257 ;;^UTILITY(U,$J,.84,8196,2,0)
+258 ;;=^^1^1^2990903^
+259 ;;^UTILITY(U,$J,.84,8196,2,1,0)
+260 ;;=Do you want to edit the '|1|' Template
+261 ;;^UTILITY(U,$J,.84,8196,3,0)
+262 ;;=^.845^1^1
+263 ;;^UTILITY(U,$J,.84,8196,3,1,0)
+264 ;;=1^NAME OF TEMPLATE
+265 ;;^UTILITY(U,$J,.84,8196,5,0)
+266 ;;=^.841^1^1
+267 ;;^UTILITY(U,$J,.84,8196,5,1,0)
+268 ;;=DIP21^EDIT
+269 ;;^UTILITY(U,$J,.84,8197,0)
+270 ;;=8197^2^^2
+271 ;;^UTILITY(U,$J,.84,8197,2,0)
+272 ;;=^^1^1^2990828^
+273 ;;^UTILITY(U,$J,.84,8197,2,1,0)
+274 ;;=Display Audit Trail
+275 ;;^UTILITY(U,$J,.84,8197,5,0)
+276 ;;=^.841^1^1
+277 ;;^UTILITY(U,$J,.84,8197,5,1,0)
+278 ;;=DII
+279 ;;^UTILITY(U,$J,.84,8197.1,0)
+280 ;;=8197.1^2^y^2
+281 ;;^UTILITY(U,$J,.84,8197.1,2,0)
+282 ;;=^^1^1^2991218^^
+283 ;;^UTILITY(U,$J,.84,8197.1,2,1,0)
+284 ;;=Deleted "|1|"
+285 ;;^UTILITY(U,$J,.84,8197.1,3,0)
+286 ;;=^.845^1^1
+287 ;;^UTILITY(U,$J,.84,8197.1,3,1,0)
+288 ;;=1^The deleted value of the field being displayed in CAPTIONED OUTPUT, according to the audit trail
+289 ;;^UTILITY(U,$J,.84,8197.1,5,0)
+290 ;;=^.841^1^1
+291 ;;^UTILITY(U,$J,.84,8197.1,5,1,0)
+292 ;;=DIQ^PRINTAUD+5
+293 ;;^UTILITY(U,$J,.84,8197.2,0)
+294 ;;=8197.2^2^y^2
+295 ;;^UTILITY(U,$J,.84,8197.2,2,0)
+296 ;;=^^1^1^2991218^
