DINIT910 ;GFT/GFT-DIALOG FILE INITS ;09DEC2015
;;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,347,0)
;;=347^1^^2
;;^UTILITY(U,$J,.84,347,2,0)
;;=^^1^1^
;;^UTILITY(U,$J,.84,347,2,1,0)
;;=Unable to change text. Resultant line is too long.
;;^UTILITY(U,$J,.84,347,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,347,5,1,0)
;;=DDWC^RS+5
;;^UTILITY(U,$J,.84,830,0)
;;=830^1^^2
;;^UTILITY(U,$J,.84,830,2,0)
;;=^^1^1^
;;^UTILITY(U,$J,.84,830,2,1,0)
;;=This terminal does not support scroll region or reverse index
;;^UTILITY(U,$J,.84,830,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,830,5,1,0)
;;=DDBR
;;^UTILITY(U,$J,.84,831,0)
;;=831^1^^2
;;^UTILITY(U,$J,.84,831,2,0)
;;=^^1^1^
;;^UTILITY(U,$J,.84,831,2,1,0)
;;=TOP & BOTTOM MARGINS
;;^UTILITY(U,$J,.84,831,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,831,5,1,0)
;;=DDBR
;;^UTILITY(U,$J,.84,832,0)
;;=832^1^^2
;;^UTILITY(U,$J,.84,832,2,0)
;;=^^1^1^
;;^UTILITY(U,$J,.84,832,2,1,0)
;;=TOP MARGIN
;;^UTILITY(U,$J,.84,832,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,832,5,1,0)
;;=DDBR
;;^UTILITY(U,$J,.84,833,0)
;;=833^1^^2
;;^UTILITY(U,$J,.84,833,2,0)
;;=^^1^1^
;;^UTILITY(U,$J,.84,833,2,1,0)
;;=BOTTOM MARGIN
;;^UTILITY(U,$J,.84,833,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,833,5,1,0)
;;=DDBR
;;^UTILITY(U,$J,.84,834,0)
;;=834^1^^2
;;^UTILITY(U,$J,.84,834,2,0)
;;=^^1^1^
;;^UTILITY(U,$J,.84,834,2,1,0)
;;=SCROLL REGION TOO SMALL
;;^UTILITY(U,$J,.84,834,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,834,5,1,0)
;;=DDBR
;;^UTILITY(U,$J,.84,835,0)
;;=835^1^^2
;;^UTILITY(U,$J,.84,835,2,0)
;;=^^1^1^
;;^UTILITY(U,$J,.84,835,2,1,0)
;;=REVERSE INDEX
;;^UTILITY(U,$J,.84,835,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,835,5,1,0)
;;=DDBR
;;^UTILITY(U,$J,.84,836,0)
;;=836^2^^2
;;^UTILITY(U,$J,.84,836,2,0)
;;=^^1^1^
;;^UTILITY(U,$J,.84,836,2,1,0)
;;=Enter a column number between 1 and 255
;;^UTILITY(U,$J,.84,836,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,836,5,1,0)
;;=DDBR0
;;^UTILITY(U,$J,.84,1404,0)
;;=1404^1^^2
;;^UTILITY(U,$J,.84,1404,2,0)
;;=^^1^1^
;;^UTILITY(U,$J,.84,1404,2,1,0)
;;=NO TEXT!
;;^UTILITY(U,$J,.84,1404,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,1404,5,1,0)
;;=DDBR
;;^UTILITY(U,$J,.84,1405,0)
;;=1405^2^y^2
;;^UTILITY(U,$J,.84,1405,2,0)
;;=^^1^1^
;;^UTILITY(U,$J,.84,1405,2,1,0)
;;=...Searching for '|1|' ...
;;^UTILITY(U,$J,.84,1405,3,0)
;;=^.845^1^1
;;^UTILITY(U,$J,.84,1405,3,1,0)
;;=1^String being searched for
;;^UTILITY(U,$J,.84,1405,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,1405,5,1,0)
;;=DDBR1
;;^UTILITY(U,$J,.84,1406,0)
;;=1406^1^^2
;;^UTILITY(U,$J,.84,1406,2,0)
;;=^^1^1^
;;^UTILITY(U,$J,.84,1406,2,1,0)
;;=NO PREVIOUS FIND STRING AVAILABLE
;;^UTILITY(U,$J,.84,1406,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,1406,5,1,0)
;;=DDBR1
;;^UTILITY(U,$J,.84,1407,0)
;;=1407^2^^2
;;^UTILITY(U,$J,.84,1407,2,0)
;;=^^1^1^
;;^UTILITY(U,$J,.84,1407,2,1,0)
;;=Please enter a string of characters to search for (or '^')
;;^UTILITY(U,$J,.84,1407,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,1407,5,1,0)
;;=DDBR1
;;^UTILITY(U,$J,.84,1408,0)
;;=1408^2^^2
;;^UTILITY(U,$J,.84,1408,2,0)
;;=^^1^1^
;;^UTILITY(U,$J,.84,1408,2,1,0)
;;=GoTo
;;^UTILITY(U,$J,.84,1408,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,1408,5,1,0)
;;=DDBR1
;;^UTILITY(U,$J,.84,1409,0)
;;=1409^2^^2
;;^UTILITY(U,$J,.84,1409,2,0)
;;=^^1^1^
;;^UTILITY(U,$J,.84,1409,2,1,0)
;;=Screen (default), or line number preceeded by 'S' or 'L'
;;^UTILITY(U,$J,.84,1409,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,1409,5,1,0)
;;=DDBR1
;;^UTILITY(U,$J,.84,1409.1,0)
;;=1409.1^2^^2
;;^UTILITY(U,$J,.84,1409.1,2,0)
;;=^^1^1^
;;^UTILITY(U,$J,.84,1409.1,2,1,0)
;;=Screen (default), column, or line number preceeded by 'S, 'C' or 'L'
;;^UTILITY(U,$J,.84,1409.1,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,1409.1,5,1,0)
;;=DDBR1
;;^UTILITY(U,$J,.84,1901,0)
;;=1901^2^^2
;;^UTILITY(U,$J,.84,1901,2,0)
;;=^^1^1^
;;^UTILITY(U,$J,.84,1901,2,1,0)
;;=REPORT CANCELLED!
;;^UTILITY(U,$J,.84,1901,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,1901,5,1,0)
;;=DDBRP
;;^UTILITY(U,$J,.84,3090,0)
;;=3090^1^y^2
;;^UTILITY(U,$J,.84,3090,2,0)
;;=^^1^1^
;;^UTILITY(U,$J,.84,3090,2,1,0)
;;='|1|' is UNEDITABLE
;;^UTILITY(U,$J,.84,3090,3,0)
;;=^.845^1^1
;;^UTILITY(U,$J,.84,3090,3,1,0)
;;=1^Field name
;;^UTILITY(U,$J,.84,3090,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,3090,5,1,0)
;;=DIED^O+2
;;^UTILITY(U,$J,.84,3092.1,0)
;;=3092.1^1^^2
;;^UTILITY(U,$J,.84,3092.1,2,0)
;;=^^1^1^
;;^UTILITY(U,$J,.84,3092.1,2,1,0)
;;=This is a required field
;;^UTILITY(U,$J,.84,3092.1,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,3092.1,5,1,0)
;;=DDS02^EXT+22
;;^UTILITY(U,$J,.84,3092.2,0)
;;=3092.2^1^^2
;;^UTILITY(U,$J,.84,3092.2,2,0)
;;=^^1^1^
;;^UTILITY(U,$J,.84,3092.2,2,1,0)
;;=This is a required KEY field
;;^UTILITY(U,$J,.84,3092.2,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,3092.2,5,1,0)
;;=DIED^NKEY+1
;;^UTILITY(U,$J,.84,3093,0)
;;=3093^1^^2
;;^UTILITY(U,$J,.84,3093,2,0)
;;=^^1^1^
;;^UTILITY(U,$J,.84,3093,2,1,0)
;;=You cannot save changes here. To close the current page, press <PF1>C.
;;^UTILITY(U,$J,.84,3093,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,3093,5,1,0)
;;=DDS02^SV+5
;;^UTILITY(U,$J,.84,3094,0)
;;=3094^1^^2
;;^UTILITY(U,$J,.84,3094,2,0)
;;=^^1^1^
;;^UTILITY(U,$J,.84,3094,2,1,0)
;;=Another Entry already exists with this KEY value.
;;^UTILITY(U,$J,.84,3094,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,3094,5,1,0)
;;=DDS02^
;;^UTILITY(U,$J,.84,3095,0)
;;=3095^1^^2
;;^UTILITY(U,$J,.84,3095,2,0)
;;=^^1^1^
;;^UTILITY(U,$J,.84,3095,2,1,0)
;;=Exit not allowed
;;^UTILITY(U,$J,.84,3095,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,3095,5,1,0)
;;=DIE0
;;^UTILITY(U,$J,.84,3096,0)
;;=3096^1^^2
;;^UTILITY(U,$J,.84,3096,2,0)
;;=^^1^1^
;;^UTILITY(U,$J,.84,3096,2,1,0)
;;=No Jumping allowed
;;^UTILITY(U,$J,.84,3096,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,3096,5,1,0)
;;=DIE0^
;;^UTILITY(U,$J,.84,3097,0)
;;=3097^1^^2
;;^UTILITY(U,$J,.84,3097,2,0)
;;=^^1^1^
;;^UTILITY(U,$J,.84,3097,2,1,0)
;;=Jumping forward not allowed
;;^UTILITY(U,$J,.84,3097,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,3097,5,1,0)
;;=DIE0^
;;^UTILITY(U,$J,.84,3098,0)
;;=3098^1^y^2
;;^UTILITY(U,$J,.84,3098,2,0)
;;=^^1^1^
;;^UTILITY(U,$J,.84,3098,2,1,0)
;;='|1|' matches no Field or Caption on this screen
;;^UTILITY(U,$J,.84,3098,3,0)
;;=^.845^1^1
;;^UTILITY(U,$J,.84,3098,3,1,0)
;;=1^Incorrect input after the "^"
;;^UTILITY(U,$J,.84,3098,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,3098,5,1,0)
;;=DDS2^NO
;;^UTILITY(U,$J,.84,7067,0)
;;=7067^2^^2
;;^UTILITY(U,$J,.84,7067,2,0)
;;=^^1^1^
;;^UTILITY(U,$J,.84,7067,2,1,0)
;;= Do you mean ALL the fields in the file?
;;^UTILITY(U,$J,.84,7067,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,7067,5,1,0)
;;=DIP2^2+5
;;^UTILITY(U,$J,.84,7067.1,0)
;;=7067.1^2^^2
;;^UTILITY(U,$J,.84,7067.1,2,0)
;;=^^1^1
;;^UTILITY(U,$J,.84,7067.1,2,1,0)
;;= Answer YES only if you want every field in the file.
;;^UTILITY(U,$J,.84,7067.1,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,7067.1,5,1,0)
;;=DIP2^2+5
;;^UTILITY(U,$J,.84,7075,0)
;;=7075^3^^2
;;^UTILITY(U,$J,.84,7075,2,0)
;;=^^1^1^
;;^UTILITY(U,$J,.84,7075,2,1,0)
;;=(Note that this value, starting with a quote ("), precedes all alphanumerics)
;;^UTILITY(U,$J,.84,7075,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,7075,5,1,0)
;;=DIP1^QUOTE
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDINIT910 8039 printed Sep 23, 2025@20:28:09 Page 2
DINIT910 ;GFT/GFT-DIALOG FILE INITS ;09DEC2015
+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,347,0)
+2 ;;=347^1^^2
+3 ;;^UTILITY(U,$J,.84,347,2,0)
+4 ;;=^^1^1^
+5 ;;^UTILITY(U,$J,.84,347,2,1,0)
+6 ;;=Unable to change text. Resultant line is too long.
+7 ;;^UTILITY(U,$J,.84,347,5,0)
+8 ;;=^.841^1^1
+9 ;;^UTILITY(U,$J,.84,347,5,1,0)
+10 ;;=DDWC^RS+5
+11 ;;^UTILITY(U,$J,.84,830,0)
+12 ;;=830^1^^2
+13 ;;^UTILITY(U,$J,.84,830,2,0)
+14 ;;=^^1^1^
+15 ;;^UTILITY(U,$J,.84,830,2,1,0)
+16 ;;=This terminal does not support scroll region or reverse index
+17 ;;^UTILITY(U,$J,.84,830,5,0)
+18 ;;=^.841^1^1
+19 ;;^UTILITY(U,$J,.84,830,5,1,0)
+20 ;;=DDBR
+21 ;;^UTILITY(U,$J,.84,831,0)
+22 ;;=831^1^^2
+23 ;;^UTILITY(U,$J,.84,831,2,0)
+24 ;;=^^1^1^
+25 ;;^UTILITY(U,$J,.84,831,2,1,0)
+26 ;;=TOP & BOTTOM MARGINS
+27 ;;^UTILITY(U,$J,.84,831,5,0)
+28 ;;=^.841^1^1
+29 ;;^UTILITY(U,$J,.84,831,5,1,0)
+30 ;;=DDBR
+31 ;;^UTILITY(U,$J,.84,832,0)
+32 ;;=832^1^^2
+33 ;;^UTILITY(U,$J,.84,832,2,0)
+34 ;;=^^1^1^
+35 ;;^UTILITY(U,$J,.84,832,2,1,0)
+36 ;;=TOP MARGIN
+37 ;;^UTILITY(U,$J,.84,832,5,0)
+38 ;;=^.841^1^1
+39 ;;^UTILITY(U,$J,.84,832,5,1,0)
+40 ;;=DDBR
+41 ;;^UTILITY(U,$J,.84,833,0)
+42 ;;=833^1^^2
+43 ;;^UTILITY(U,$J,.84,833,2,0)
+44 ;;=^^1^1^
+45 ;;^UTILITY(U,$J,.84,833,2,1,0)
+46 ;;=BOTTOM MARGIN
+47 ;;^UTILITY(U,$J,.84,833,5,0)
+48 ;;=^.841^1^1
+49 ;;^UTILITY(U,$J,.84,833,5,1,0)
+50 ;;=DDBR
+51 ;;^UTILITY(U,$J,.84,834,0)
+52 ;;=834^1^^2
+53 ;;^UTILITY(U,$J,.84,834,2,0)
+54 ;;=^^1^1^
+55 ;;^UTILITY(U,$J,.84,834,2,1,0)
+56 ;;=SCROLL REGION TOO SMALL
+57 ;;^UTILITY(U,$J,.84,834,5,0)
+58 ;;=^.841^1^1
+59 ;;^UTILITY(U,$J,.84,834,5,1,0)
+60 ;;=DDBR
+61 ;;^UTILITY(U,$J,.84,835,0)
+62 ;;=835^1^^2
+63 ;;^UTILITY(U,$J,.84,835,2,0)
+64 ;;=^^1^1^
+65 ;;^UTILITY(U,$J,.84,835,2,1,0)
+66 ;;=REVERSE INDEX
+67 ;;^UTILITY(U,$J,.84,835,5,0)
+68 ;;=^.841^1^1
+69 ;;^UTILITY(U,$J,.84,835,5,1,0)
+70 ;;=DDBR
+71 ;;^UTILITY(U,$J,.84,836,0)
+72 ;;=836^2^^2
+73 ;;^UTILITY(U,$J,.84,836,2,0)
+74 ;;=^^1^1^
+75 ;;^UTILITY(U,$J,.84,836,2,1,0)
+76 ;;=Enter a column number between 1 and 255
+77 ;;^UTILITY(U,$J,.84,836,5,0)
+78 ;;=^.841^1^1
+79 ;;^UTILITY(U,$J,.84,836,5,1,0)
+80 ;;=DDBR0
+81 ;;^UTILITY(U,$J,.84,1404,0)
+82 ;;=1404^1^^2
+83 ;;^UTILITY(U,$J,.84,1404,2,0)
+84 ;;=^^1^1^
+85 ;;^UTILITY(U,$J,.84,1404,2,1,0)
+86 ;;=NO TEXT!
+87 ;;^UTILITY(U,$J,.84,1404,5,0)
+88 ;;=^.841^1^1
+89 ;;^UTILITY(U,$J,.84,1404,5,1,0)
+90 ;;=DDBR
+91 ;;^UTILITY(U,$J,.84,1405,0)
+92 ;;=1405^2^y^2
+93 ;;^UTILITY(U,$J,.84,1405,2,0)
+94 ;;=^^1^1^
+95 ;;^UTILITY(U,$J,.84,1405,2,1,0)
+96 ;;=...Searching for '|1|' ...
+97 ;;^UTILITY(U,$J,.84,1405,3,0)
+98 ;;=^.845^1^1
+99 ;;^UTILITY(U,$J,.84,1405,3,1,0)
+100 ;;=1^String being searched for
+101 ;;^UTILITY(U,$J,.84,1405,5,0)
+102 ;;=^.841^1^1
+103 ;;^UTILITY(U,$J,.84,1405,5,1,0)
+104 ;;=DDBR1
+105 ;;^UTILITY(U,$J,.84,1406,0)
+106 ;;=1406^1^^2
+107 ;;^UTILITY(U,$J,.84,1406,2,0)
+108 ;;=^^1^1^
+109 ;;^UTILITY(U,$J,.84,1406,2,1,0)
+110 ;;=NO PREVIOUS FIND STRING AVAILABLE
+111 ;;^UTILITY(U,$J,.84,1406,5,0)
+112 ;;=^.841^1^1
+113 ;;^UTILITY(U,$J,.84,1406,5,1,0)
+114 ;;=DDBR1
+115 ;;^UTILITY(U,$J,.84,1407,0)
+116 ;;=1407^2^^2
+117 ;;^UTILITY(U,$J,.84,1407,2,0)
+118 ;;=^^1^1^
+119 ;;^UTILITY(U,$J,.84,1407,2,1,0)
+120 ;;=Please enter a string of characters to search for (or '^')
+121 ;;^UTILITY(U,$J,.84,1407,5,0)
+122 ;;=^.841^1^1
+123 ;;^UTILITY(U,$J,.84,1407,5,1,0)
+124 ;;=DDBR1
+125 ;;^UTILITY(U,$J,.84,1408,0)
+126 ;;=1408^2^^2
+127 ;;^UTILITY(U,$J,.84,1408,2,0)
+128 ;;=^^1^1^
+129 ;;^UTILITY(U,$J,.84,1408,2,1,0)
+130 ;;=GoTo
+131 ;;^UTILITY(U,$J,.84,1408,5,0)
+132 ;;=^.841^1^1
+133 ;;^UTILITY(U,$J,.84,1408,5,1,0)
+134 ;;=DDBR1
+135 ;;^UTILITY(U,$J,.84,1409,0)
+136 ;;=1409^2^^2
+137 ;;^UTILITY(U,$J,.84,1409,2,0)
+138 ;;=^^1^1^
+139 ;;^UTILITY(U,$J,.84,1409,2,1,0)
+140 ;;=Screen (default), or line number preceeded by 'S' or 'L'
+141 ;;^UTILITY(U,$J,.84,1409,5,0)
+142 ;;=^.841^1^1
+143 ;;^UTILITY(U,$J,.84,1409,5,1,0)
+144 ;;=DDBR1
+145 ;;^UTILITY(U,$J,.84,1409.1,0)
+146 ;;=1409.1^2^^2
+147 ;;^UTILITY(U,$J,.84,1409.1,2,0)
+148 ;;=^^1^1^
+149 ;;^UTILITY(U,$J,.84,1409.1,2,1,0)
+150 ;;=Screen (default), column, or line number preceeded by 'S, 'C' or 'L'
+151 ;;^UTILITY(U,$J,.84,1409.1,5,0)
+152 ;;=^.841^1^1
+153 ;;^UTILITY(U,$J,.84,1409.1,5,1,0)
+154 ;;=DDBR1
+155 ;;^UTILITY(U,$J,.84,1901,0)
+156 ;;=1901^2^^2
+157 ;;^UTILITY(U,$J,.84,1901,2,0)
+158 ;;=^^1^1^
+159 ;;^UTILITY(U,$J,.84,1901,2,1,0)
+160 ;;=REPORT CANCELLED!
+161 ;;^UTILITY(U,$J,.84,1901,5,0)
+162 ;;=^.841^1^1
+163 ;;^UTILITY(U,$J,.84,1901,5,1,0)
+164 ;;=DDBRP
+165 ;;^UTILITY(U,$J,.84,3090,0)
+166 ;;=3090^1^y^2
+167 ;;^UTILITY(U,$J,.84,3090,2,0)
+168 ;;=^^1^1^
+169 ;;^UTILITY(U,$J,.84,3090,2,1,0)
+170 ;;='|1|' is UNEDITABLE
+171 ;;^UTILITY(U,$J,.84,3090,3,0)
+172 ;;=^.845^1^1
+173 ;;^UTILITY(U,$J,.84,3090,3,1,0)
+174 ;;=1^Field name
+175 ;;^UTILITY(U,$J,.84,3090,5,0)
+176 ;;=^.841^1^1
+177 ;;^UTILITY(U,$J,.84,3090,5,1,0)
+178 ;;=DIED^O+2
+179 ;;^UTILITY(U,$J,.84,3092.1,0)
+180 ;;=3092.1^1^^2
+181 ;;^UTILITY(U,$J,.84,3092.1,2,0)
+182 ;;=^^1^1^
+183 ;;^UTILITY(U,$J,.84,3092.1,2,1,0)
+184 ;;=This is a required field
+185 ;;^UTILITY(U,$J,.84,3092.1,5,0)
+186 ;;=^.841^1^1
+187 ;;^UTILITY(U,$J,.84,3092.1,5,1,0)
+188 ;;=DDS02^EXT+22
+189 ;;^UTILITY(U,$J,.84,3092.2,0)
+190 ;;=3092.2^1^^2
+191 ;;^UTILITY(U,$J,.84,3092.2,2,0)
+192 ;;=^^1^1^
+193 ;;^UTILITY(U,$J,.84,3092.2,2,1,0)
+194 ;;=This is a required KEY field
+195 ;;^UTILITY(U,$J,.84,3092.2,5,0)
+196 ;;=^.841^1^1
+197 ;;^UTILITY(U,$J,.84,3092.2,5,1,0)
+198 ;;=DIED^NKEY+1
+199 ;;^UTILITY(U,$J,.84,3093,0)
+200 ;;=3093^1^^2
+201 ;;^UTILITY(U,$J,.84,3093,2,0)
+202 ;;=^^1^1^
+203 ;;^UTILITY(U,$J,.84,3093,2,1,0)
+204 ;;=You cannot save changes here. To close the current page, press <PF1>C.
+205 ;;^UTILITY(U,$J,.84,3093,5,0)
+206 ;;=^.841^1^1
+207 ;;^UTILITY(U,$J,.84,3093,5,1,0)
+208 ;;=DDS02^SV+5
+209 ;;^UTILITY(U,$J,.84,3094,0)
+210 ;;=3094^1^^2
+211 ;;^UTILITY(U,$J,.84,3094,2,0)
+212 ;;=^^1^1^
+213 ;;^UTILITY(U,$J,.84,3094,2,1,0)
+214 ;;=Another Entry already exists with this KEY value.
+215 ;;^UTILITY(U,$J,.84,3094,5,0)
+216 ;;=^.841^1^1
+217 ;;^UTILITY(U,$J,.84,3094,5,1,0)
+218 ;;=DDS02^
+219 ;;^UTILITY(U,$J,.84,3095,0)
+220 ;;=3095^1^^2
+221 ;;^UTILITY(U,$J,.84,3095,2,0)
+222 ;;=^^1^1^
+223 ;;^UTILITY(U,$J,.84,3095,2,1,0)
+224 ;;=Exit not allowed
+225 ;;^UTILITY(U,$J,.84,3095,5,0)
+226 ;;=^.841^1^1
+227 ;;^UTILITY(U,$J,.84,3095,5,1,0)
+228 ;;=DIE0
+229 ;;^UTILITY(U,$J,.84,3096,0)
+230 ;;=3096^1^^2
+231 ;;^UTILITY(U,$J,.84,3096,2,0)
+232 ;;=^^1^1^
+233 ;;^UTILITY(U,$J,.84,3096,2,1,0)
+234 ;;=No Jumping allowed
+235 ;;^UTILITY(U,$J,.84,3096,5,0)
+236 ;;=^.841^1^1
+237 ;;^UTILITY(U,$J,.84,3096,5,1,0)
+238 ;;=DIE0^
+239 ;;^UTILITY(U,$J,.84,3097,0)
+240 ;;=3097^1^^2
+241 ;;^UTILITY(U,$J,.84,3097,2,0)
+242 ;;=^^1^1^
+243 ;;^UTILITY(U,$J,.84,3097,2,1,0)
+244 ;;=Jumping forward not allowed
+245 ;;^UTILITY(U,$J,.84,3097,5,0)
+246 ;;=^.841^1^1
+247 ;;^UTILITY(U,$J,.84,3097,5,1,0)
+248 ;;=DIE0^
+249 ;;^UTILITY(U,$J,.84,3098,0)
+250 ;;=3098^1^y^2
+251 ;;^UTILITY(U,$J,.84,3098,2,0)
+252 ;;=^^1^1^
+253 ;;^UTILITY(U,$J,.84,3098,2,1,0)
+254 ;;='|1|' matches no Field or Caption on this screen
+255 ;;^UTILITY(U,$J,.84,3098,3,0)
+256 ;;=^.845^1^1
+257 ;;^UTILITY(U,$J,.84,3098,3,1,0)
+258 ;;=1^Incorrect input after the "^"
+259 ;;^UTILITY(U,$J,.84,3098,5,0)
+260 ;;=^.841^1^1
+261 ;;^UTILITY(U,$J,.84,3098,5,1,0)
+262 ;;=DDS2^NO
+263 ;;^UTILITY(U,$J,.84,7067,0)
+264 ;;=7067^2^^2
+265 ;;^UTILITY(U,$J,.84,7067,2,0)
+266 ;;=^^1^1^
+267 ;;^UTILITY(U,$J,.84,7067,2,1,0)
+268 ;;= Do you mean ALL the fields in the file?
+269 ;;^UTILITY(U,$J,.84,7067,5,0)
+270 ;;=^.841^1^1
+271 ;;^UTILITY(U,$J,.84,7067,5,1,0)
+272 ;;=DIP2^2+5
+273 ;;^UTILITY(U,$J,.84,7067.1,0)
+274 ;;=7067.1^2^^2
+275 ;;^UTILITY(U,$J,.84,7067.1,2,0)
+276 ;;=^^1^1
+277 ;;^UTILITY(U,$J,.84,7067.1,2,1,0)
+278 ;;= Answer YES only if you want every field in the file.
+279 ;;^UTILITY(U,$J,.84,7067.1,5,0)
+280 ;;=^.841^1^1
+281 ;;^UTILITY(U,$J,.84,7067.1,5,1,0)
+282 ;;=DIP2^2+5
+283 ;;^UTILITY(U,$J,.84,7075,0)
+284 ;;=7075^3^^2
+285 ;;^UTILITY(U,$J,.84,7075,2,0)
+286 ;;=^^1^1^
+287 ;;^UTILITY(U,$J,.84,7075,2,1,0)
+288 ;;=(Note that this value, starting with a quote ("), precedes all alphanumerics)
+289 ;;^UTILITY(U,$J,.84,7075,5,0)
+290 ;;=^.841^1^1
+291 ;;^UTILITY(U,$J,.84,7075,5,1,0)
+292 ;;=DIP1^QUOTE
