DINIT907 ;GFT/GFT-DIALOG FILE INITS ;20APR2014
;;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,9079,2,3,0)
;;=-|3|- to be evaluated as "true".
;;^UTILITY(U,$J,.84,9079,3,0)
;;=^.845^3^3
;;^UTILITY(U,$J,.84,9079,3,1,0)
;;=1^TRUTH CONDITION IN WORDS
;;^UTILITY(U,$J,.84,9079,3,2,0)
;;=2^OPERATOR
;;^UTILITY(U,$J,.84,9079,3,3,0)
;;=3^TRUTH CONDITION LETTER
;;^UTILITY(U,$J,.84,9079,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,9079,5,1,0)
;;=DIQQQ^DIS
;;^UTILITY(U,$J,.84,9080,0)
;;=9080^3^^2
;;^UTILITY(U,$J,.84,9080,2,0)
;;=^^1^1^2990710^
;;^UTILITY(U,$J,.84,9080,2,1,0)
;;=Use EXTERNAL VALUE (from the list on the RIGHT)
;;^UTILITY(U,$J,.84,9080,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,9080,5,1,0)
;;=DIQQQ^DIS
;;^UTILITY(U,$J,.84,9081,0)
;;=9081^3^y^2
;;^UTILITY(U,$J,.84,9081,2,0)
;;=^^4^4^2991015^^^^
;;^UTILITY(U,$J,.84,9081,2,1,0)
;;=To |1| in sequence, starting from a certain |2|,
;;^UTILITY(U,$J,.84,9081,2,2,0)
;;=type that |2|.
;;^UTILITY(U,$J,.84,9081,2,3,0)
;;= 'FIRST' means 'START FROM THE BEGINNING OF THE RANGE OF VALUES'
;;^UTILITY(U,$J,.84,9081,2,4,0)
;;= '@' means 'INCLUDE NULL |2| FIELDS'
;;^UTILITY(U,$J,.84,9081,2,5,0)
;;= '@' followed by a Computed Expression for |2| to be evaluated at run time, is also allowed
;;^UTILITY(U,$J,.84,9081,3,0)
;;=^.845^2^2
;;^UTILITY(U,$J,.84,9081,3,1,0)
;;=1^LIST
;;^UTILITY(U,$J,.84,9081,3,2,0)
;;=2^ENTRY
;;^UTILITY(U,$J,.84,9081,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,9081,5,1,0)
;;=DIQQ^DIP1F
;;^UTILITY(U,$J,.84,9082,0)
;;=9082^3^y^2
;;^UTILITY(U,$J,.84,9082,2,0)
;;=^^4^4^2991015^^^^
;;^UTILITY(U,$J,.84,9082,2,1,0)
;;=To |1| only up to a certain |2|,
;;^UTILITY(U,$J,.84,9082,2,2,0)
;;=type that |2|.
;;^UTILITY(U,$J,.84,9082,2,3,0)
;;= 'LAST' means 'GO TO THE END OF THE RANGE OF VALUES'
;;^UTILITY(U,$J,.84,9082,2,4,0)
;;= '@' means 'INCLUDE NULL |2| FIELDS'
;;^UTILITY(U,$J,.84,9082,3,0)
;;=^.845^2^2
;;^UTILITY(U,$J,.84,9082,3,1,0)
;;=1^LIST
;;^UTILITY(U,$J,.84,9082,3,2,0)
;;=2^ENTRY
;;^UTILITY(U,$J,.84,9082,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,9082,5,1,0)
;;=DIQQ^DIP1T
;;^UTILITY(U,$J,.84,9083,0)
;;=9083^3^^2
;;^UTILITY(U,$J,.84,9083,1,0)
;;=^^3^3^2990710^^
;;^UTILITY(U,$J,.84,9083,1,1,0)
;;=This template may eventually be used with a different 'SORT-BY' sequence.
;;^UTILITY(U,$J,.84,9083,1,2,0)
;;=Answering 'Y' here insures that, in that case, the user won't have to
;;^UTILITY(U,$J,.84,9083,1,3,0)
;;=remember...
;;^UTILITY(U,$J,.84,9083,2,0)
;;=^^3^3^2990710^^
;;^UTILITY(U,$J,.84,9083,2,1,0)
;;=This template may eventually be used with a different 'SORT-BY' sequence.
;;^UTILITY(U,$J,.84,9083,2,2,0)
;;=Answering 'Y' here insures that, in that case, the user won't have
;;^UTILITY(U,$J,.84,9083,2,3,0)
;;=to remember to type the '@' in order to keep sub-headers from appearing.
;;^UTILITY(U,$J,.84,9083,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,9083,5,1,0)
;;=DIQQQ^DIP21
;;^UTILITY(U,$J,.84,9085,0)
;;=9085^3^y^2
;;^UTILITY(U,$J,.84,9085,2,0)
;;=^^3^3^2990710^
;;^UTILITY(U,$J,.84,9085,2,1,0)
;;=Since you are calling for output on device '|1|',
;;^UTILITY(U,$J,.84,9085,2,2,0)
;;=you may use the terminal you are now typing on for something else,
;;^UTILITY(U,$J,.84,9085,2,3,0)
;;=by answering 'Y'.
;;^UTILITY(U,$J,.84,9085,3,0)
;;=^.845^1^1
;;^UTILITY(U,$J,.84,9085,3,1,0)
;;=1^IO DEVICE
;;^UTILITY(U,$J,.84,9085,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,9085,5,1,0)
;;=DIQQ^DIP3
;;^UTILITY(U,$J,.84,9086,0)
;;=9086^3^^2
;;^UTILITY(U,$J,.84,9086,2,0)
;;=^^1^1^2990710^^
;;^UTILITY(U,$J,.84,9086,2,1,0)
;;=If you want page numbering to start at a number higher than 1, type that number.
;;^UTILITY(U,$J,.84,9086,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,9086,5,1,0)
;;=DIQQQ^DIP3
;;^UTILITY(U,$J,.84,9108,0)
;;=9108^3^^2
;;^UTILITY(U,$J,.84,9108,2,0)
;;=^^2^2^2990828^
;;^UTILITY(U,$J,.84,9108,2,1,0)
;;= If you answer 'N', you"ll be asked to create a formatted display,
;;^UTILITY(U,$J,.84,9108,2,2,0)
;;= as in the PRINT Option.
;;^UTILITY(U,$J,.84,9108,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,9108,5,1,0)
;;=DII^O+1
;;^UTILITY(U,$J,.84,9109,0)
;;=9109^3^^2
;;^UTILITY(U,$J,.84,9109,2,0)
;;=^^1^1^2990828^
;;^UTILITY(U,$J,.84,9109,2,1,0)
;;=Answer 'Y' to display the audit trail for each entry.
;;^UTILITY(U,$J,.84,9109,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,9109,5,1,0)
;;=DII
;;^UTILITY(U,$J,.84,9110.1,0)
;;=9110.1^3^^2
;;^UTILITY(U,$J,.84,9110.1,2,0)
;;=^^1^1^2990906^
;;^UTILITY(U,$J,.84,9110.1,2,1,0)
;;=or 012057 (omitting punctuation)
;;^UTILITY(U,$J,.84,9110.1,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,9110.1,5,1,0)
;;=DIEH1
;;^UTILITY(U,$J,.84,9110.2,0)
;;=9110.2^3^^2
;;^UTILITY(U,$J,.84,9110.2,2,0)
;;=^^1^1^2990906^
;;^UTILITY(U,$J,.84,9110.2,2,1,0)
;;=assumes a date in the PAST.
;;^UTILITY(U,$J,.84,9110.2,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,9110.2,5,1,0)
;;=DIEH1
;;^UTILITY(U,$J,.84,9110.3,0)
;;=9110.3^3^^2
;;^UTILITY(U,$J,.84,9110.3,2,0)
;;=^^1^1^2990906^
;;^UTILITY(U,$J,.84,9110.3,2,1,0)
;;=assumes a date in the FUTURE.
;;^UTILITY(U,$J,.84,9110.3,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,9110.3,5,1,0)
;;=DIEH1
;;^UTILITY(U,$J,.84,9110.4,0)
;;=9110.4^3^^2
;;^UTILITY(U,$J,.84,9110.4,2,0)
;;=^^1^1^2990906^
;;^UTILITY(U,$J,.84,9110.4,2,1,0)
;;=uses CURRENT YEAR.
;;^UTILITY(U,$J,.84,9110.4,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,9110.4,5,1,0)
;;=DIEH1
;;^UTILITY(U,$J,.84,9110.5,0)
;;=9110.5^3^^2
;;^UTILITY(U,$J,.84,9110.5,2,0)
;;=^^1^1^2990906^^
;;^UTILITY(U,$J,.84,9110.5,2,1,0)
;;=A 2-digit year means no more than 20 years in the future, or 80 years in the past.
;;^UTILITY(U,$J,.84,9110.5,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,9110.5,5,1,0)
;;=DIEH1
;;^UTILITY(U,$J,.84,9110.6,0)
;;=9110.6^3^^2
;;^UTILITY(U,$J,.84,9110.6,2,0)
;;=^^1^1^2990906^
;;^UTILITY(U,$J,.84,9110.6,2,1,0)
;;=You may omit the precise day of the month, e.g.: Jan, 1957
;;^UTILITY(U,$J,.84,9110.6,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,9110.6,5,1,0)
;;=DIEH1
;;^UTILITY(U,$J,.84,9112,0)
;;=9112^3^^2
;;^UTILITY(U,$J,.84,9112,2,0)
;;=^^1^1^2990906^
;;^UTILITY(U,$J,.84,9112,2,1,0)
;;=Seconds may be entered, as e.g.: 10:30:30 or 103030AM
;;^UTILITY(U,$J,.84,9112,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,9112,5,1,0)
;;=DIEH1
;;^UTILITY(U,$J,.84,9113,0)
;;=9113^3^^2
;;^UTILITY(U,$J,.84,9113,2,0)
;;=^^1^1^2990906^
;;^UTILITY(U,$J,.84,9113,2,1,0)
;;=Time is REQUIRED to be entered.
;;^UTILITY(U,$J,.84,9113,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,9113,5,1,0)
;;=DIEH1
;;^UTILITY(U,$J,.84,9114,0)
;;=9114^3^y^2
;;^UTILITY(U,$J,.84,9114,2,0)
;;=^^1^1^2991122^
;;^UTILITY(U,$J,.84,9114,2,1,0)
;;=ENTER A DATE BETWEEN |1| AND |2|
;;^UTILITY(U,$J,.84,9114,3,0)
;;=^.845^2^2
;;^UTILITY(U,$J,.84,9114,3,1,0)
;;=1^EARLIEST DATE
;;^UTILITY(U,$J,.84,9114,3,2,0)
;;=2^LATEST DATE
;;^UTILITY(U,$J,.84,9114,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,9114,5,1,0)
;;=DIALOGZ
;;^UTILITY(U,$J,.84,9114.01,0)
;;=9114.01^3^y^2
;;^UTILITY(U,$J,.84,9114.01,2,0)
;;=^^1^1^2991122^
;;^UTILITY(U,$J,.84,9114.01,2,1,0)
;;=ENTER A DATE NOT EARLIER THAN |1|
;;^UTILITY(U,$J,.84,9114.01,3,0)
;;=^.845^1^1
;;^UTILITY(U,$J,.84,9114.01,3,1,0)
;;=1^EARLIEST DATE
;;^UTILITY(U,$J,.84,9114.01,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,9114.01,5,1,0)
;;=DIALOGZ
;;^UTILITY(U,$J,.84,9114.1,0)
;;=9114.1^3^y^2
;;^UTILITY(U,$J,.84,9114.1,2,0)
;;=^^1^1^2991028^^^
;;^UTILITY(U,$J,.84,9114.1,2,1,0)
;;=Response must not be previous to |1|
;;^UTILITY(U,$J,.84,9114.1,3,0)
;;=^.845^1^1
;;^UTILITY(U,$J,.84,9114.1,3,1,0)
;;=1^EARLIEST DATE
;;^UTILITY(U,$J,.84,9114.1,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,9114.1,5,1,0)
;;=DIR1^D+3
;;^UTILITY(U,$J,.84,9114.2,0)
;;=9114.2^3^y^2
;;^UTILITY(U,$J,.84,9114.2,2,0)
;;=^^1^1^2991028^^
;;^UTILITY(U,$J,.84,9114.2,2,1,0)
;;=Response must not be later than |1|
;;^UTILITY(U,$J,.84,9114.2,3,0)
;;=^.845^1^1
;;^UTILITY(U,$J,.84,9114.2,3,1,0)
;;=1^LATEST DATE
;;^UTILITY(U,$J,.84,9114.2,5,0)
;;=^.841^1^1
;;^UTILITY(U,$J,.84,9114.2,5,1,0)
;;=DIR1^D+4
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDINIT907 8805 printed Nov 22, 2024@18:01:56 Page 2
DINIT907 ;GFT/GFT-DIALOG FILE INITS ;20APR2014
+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,9079,2,3,0)
+2 ;;=-|3|- to be evaluated as "true".
+3 ;;^UTILITY(U,$J,.84,9079,3,0)
+4 ;;=^.845^3^3
+5 ;;^UTILITY(U,$J,.84,9079,3,1,0)
+6 ;;=1^TRUTH CONDITION IN WORDS
+7 ;;^UTILITY(U,$J,.84,9079,3,2,0)
+8 ;;=2^OPERATOR
+9 ;;^UTILITY(U,$J,.84,9079,3,3,0)
+10 ;;=3^TRUTH CONDITION LETTER
+11 ;;^UTILITY(U,$J,.84,9079,5,0)
+12 ;;=^.841^1^1
+13 ;;^UTILITY(U,$J,.84,9079,5,1,0)
+14 ;;=DIQQQ^DIS
+15 ;;^UTILITY(U,$J,.84,9080,0)
+16 ;;=9080^3^^2
+17 ;;^UTILITY(U,$J,.84,9080,2,0)
+18 ;;=^^1^1^2990710^
+19 ;;^UTILITY(U,$J,.84,9080,2,1,0)
+20 ;;=Use EXTERNAL VALUE (from the list on the RIGHT)
+21 ;;^UTILITY(U,$J,.84,9080,5,0)
+22 ;;=^.841^1^1
+23 ;;^UTILITY(U,$J,.84,9080,5,1,0)
+24 ;;=DIQQQ^DIS
+25 ;;^UTILITY(U,$J,.84,9081,0)
+26 ;;=9081^3^y^2
+27 ;;^UTILITY(U,$J,.84,9081,2,0)
+28 ;;=^^4^4^2991015^^^^
+29 ;;^UTILITY(U,$J,.84,9081,2,1,0)
+30 ;;=To |1| in sequence, starting from a certain |2|,
+31 ;;^UTILITY(U,$J,.84,9081,2,2,0)
+32 ;;=type that |2|.
+33 ;;^UTILITY(U,$J,.84,9081,2,3,0)
+34 ;;= 'FIRST' means 'START FROM THE BEGINNING OF THE RANGE OF VALUES'
+35 ;;^UTILITY(U,$J,.84,9081,2,4,0)
+36 ;;= '@' means 'INCLUDE NULL |2| FIELDS'
+37 ;;^UTILITY(U,$J,.84,9081,2,5,0)
+38 ;;= '@' followed by a Computed Expression for |2| to be evaluated at run time, is also allowed
+39 ;;^UTILITY(U,$J,.84,9081,3,0)
+40 ;;=^.845^2^2
+41 ;;^UTILITY(U,$J,.84,9081,3,1,0)
+42 ;;=1^LIST
+43 ;;^UTILITY(U,$J,.84,9081,3,2,0)
+44 ;;=2^ENTRY
+45 ;;^UTILITY(U,$J,.84,9081,5,0)
+46 ;;=^.841^1^1
+47 ;;^UTILITY(U,$J,.84,9081,5,1,0)
+48 ;;=DIQQ^DIP1F
+49 ;;^UTILITY(U,$J,.84,9082,0)
+50 ;;=9082^3^y^2
+51 ;;^UTILITY(U,$J,.84,9082,2,0)
+52 ;;=^^4^4^2991015^^^^
+53 ;;^UTILITY(U,$J,.84,9082,2,1,0)
+54 ;;=To |1| only up to a certain |2|,
+55 ;;^UTILITY(U,$J,.84,9082,2,2,0)
+56 ;;=type that |2|.
+57 ;;^UTILITY(U,$J,.84,9082,2,3,0)
+58 ;;= 'LAST' means 'GO TO THE END OF THE RANGE OF VALUES'
+59 ;;^UTILITY(U,$J,.84,9082,2,4,0)
+60 ;;= '@' means 'INCLUDE NULL |2| FIELDS'
+61 ;;^UTILITY(U,$J,.84,9082,3,0)
+62 ;;=^.845^2^2
+63 ;;^UTILITY(U,$J,.84,9082,3,1,0)
+64 ;;=1^LIST
+65 ;;^UTILITY(U,$J,.84,9082,3,2,0)
+66 ;;=2^ENTRY
+67 ;;^UTILITY(U,$J,.84,9082,5,0)
+68 ;;=^.841^1^1
+69 ;;^UTILITY(U,$J,.84,9082,5,1,0)
+70 ;;=DIQQ^DIP1T
+71 ;;^UTILITY(U,$J,.84,9083,0)
+72 ;;=9083^3^^2
+73 ;;^UTILITY(U,$J,.84,9083,1,0)
+74 ;;=^^3^3^2990710^^
+75 ;;^UTILITY(U,$J,.84,9083,1,1,0)
+76 ;;=This template may eventually be used with a different 'SORT-BY' sequence.
+77 ;;^UTILITY(U,$J,.84,9083,1,2,0)
+78 ;;=Answering 'Y' here insures that, in that case, the user won't have to
+79 ;;^UTILITY(U,$J,.84,9083,1,3,0)
+80 ;;=remember...
+81 ;;^UTILITY(U,$J,.84,9083,2,0)
+82 ;;=^^3^3^2990710^^
+83 ;;^UTILITY(U,$J,.84,9083,2,1,0)
+84 ;;=This template may eventually be used with a different 'SORT-BY' sequence.
+85 ;;^UTILITY(U,$J,.84,9083,2,2,0)
+86 ;;=Answering 'Y' here insures that, in that case, the user won't have
+87 ;;^UTILITY(U,$J,.84,9083,2,3,0)
+88 ;;=to remember to type the '@' in order to keep sub-headers from appearing.
+89 ;;^UTILITY(U,$J,.84,9083,5,0)
+90 ;;=^.841^1^1
+91 ;;^UTILITY(U,$J,.84,9083,5,1,0)
+92 ;;=DIQQQ^DIP21
+93 ;;^UTILITY(U,$J,.84,9085,0)
+94 ;;=9085^3^y^2
+95 ;;^UTILITY(U,$J,.84,9085,2,0)
+96 ;;=^^3^3^2990710^
+97 ;;^UTILITY(U,$J,.84,9085,2,1,0)
+98 ;;=Since you are calling for output on device '|1|',
+99 ;;^UTILITY(U,$J,.84,9085,2,2,0)
+100 ;;=you may use the terminal you are now typing on for something else,
+101 ;;^UTILITY(U,$J,.84,9085,2,3,0)
+102 ;;=by answering 'Y'.
+103 ;;^UTILITY(U,$J,.84,9085,3,0)
+104 ;;=^.845^1^1
+105 ;;^UTILITY(U,$J,.84,9085,3,1,0)
+106 ;;=1^IO DEVICE
+107 ;;^UTILITY(U,$J,.84,9085,5,0)
+108 ;;=^.841^1^1
+109 ;;^UTILITY(U,$J,.84,9085,5,1,0)
+110 ;;=DIQQ^DIP3
+111 ;;^UTILITY(U,$J,.84,9086,0)
+112 ;;=9086^3^^2
+113 ;;^UTILITY(U,$J,.84,9086,2,0)
+114 ;;=^^1^1^2990710^^
+115 ;;^UTILITY(U,$J,.84,9086,2,1,0)
+116 ;;=If you want page numbering to start at a number higher than 1, type that number.
+117 ;;^UTILITY(U,$J,.84,9086,5,0)
+118 ;;=^.841^1^1
+119 ;;^UTILITY(U,$J,.84,9086,5,1,0)
+120 ;;=DIQQQ^DIP3
+121 ;;^UTILITY(U,$J,.84,9108,0)
+122 ;;=9108^3^^2
+123 ;;^UTILITY(U,$J,.84,9108,2,0)
+124 ;;=^^2^2^2990828^
+125 ;;^UTILITY(U,$J,.84,9108,2,1,0)
+126 ;;= If you answer 'N', you"ll be asked to create a formatted display,
+127 ;;^UTILITY(U,$J,.84,9108,2,2,0)
+128 ;;= as in the PRINT Option.
+129 ;;^UTILITY(U,$J,.84,9108,5,0)
+130 ;;=^.841^1^1
+131 ;;^UTILITY(U,$J,.84,9108,5,1,0)
+132 ;;=DII^O+1
+133 ;;^UTILITY(U,$J,.84,9109,0)
+134 ;;=9109^3^^2
+135 ;;^UTILITY(U,$J,.84,9109,2,0)
+136 ;;=^^1^1^2990828^
+137 ;;^UTILITY(U,$J,.84,9109,2,1,0)
+138 ;;=Answer 'Y' to display the audit trail for each entry.
+139 ;;^UTILITY(U,$J,.84,9109,5,0)
+140 ;;=^.841^1^1
+141 ;;^UTILITY(U,$J,.84,9109,5,1,0)
+142 ;;=DII
+143 ;;^UTILITY(U,$J,.84,9110.1,0)
+144 ;;=9110.1^3^^2
+145 ;;^UTILITY(U,$J,.84,9110.1,2,0)
+146 ;;=^^1^1^2990906^
+147 ;;^UTILITY(U,$J,.84,9110.1,2,1,0)
+148 ;;=or 012057 (omitting punctuation)
+149 ;;^UTILITY(U,$J,.84,9110.1,5,0)
+150 ;;=^.841^1^1
+151 ;;^UTILITY(U,$J,.84,9110.1,5,1,0)
+152 ;;=DIEH1
+153 ;;^UTILITY(U,$J,.84,9110.2,0)
+154 ;;=9110.2^3^^2
+155 ;;^UTILITY(U,$J,.84,9110.2,2,0)
+156 ;;=^^1^1^2990906^
+157 ;;^UTILITY(U,$J,.84,9110.2,2,1,0)
+158 ;;=assumes a date in the PAST.
+159 ;;^UTILITY(U,$J,.84,9110.2,5,0)
+160 ;;=^.841^1^1
+161 ;;^UTILITY(U,$J,.84,9110.2,5,1,0)
+162 ;;=DIEH1
+163 ;;^UTILITY(U,$J,.84,9110.3,0)
+164 ;;=9110.3^3^^2
+165 ;;^UTILITY(U,$J,.84,9110.3,2,0)
+166 ;;=^^1^1^2990906^
+167 ;;^UTILITY(U,$J,.84,9110.3,2,1,0)
+168 ;;=assumes a date in the FUTURE.
+169 ;;^UTILITY(U,$J,.84,9110.3,5,0)
+170 ;;=^.841^1^1
+171 ;;^UTILITY(U,$J,.84,9110.3,5,1,0)
+172 ;;=DIEH1
+173 ;;^UTILITY(U,$J,.84,9110.4,0)
+174 ;;=9110.4^3^^2
+175 ;;^UTILITY(U,$J,.84,9110.4,2,0)
+176 ;;=^^1^1^2990906^
+177 ;;^UTILITY(U,$J,.84,9110.4,2,1,0)
+178 ;;=uses CURRENT YEAR.
+179 ;;^UTILITY(U,$J,.84,9110.4,5,0)
+180 ;;=^.841^1^1
+181 ;;^UTILITY(U,$J,.84,9110.4,5,1,0)
+182 ;;=DIEH1
+183 ;;^UTILITY(U,$J,.84,9110.5,0)
+184 ;;=9110.5^3^^2
+185 ;;^UTILITY(U,$J,.84,9110.5,2,0)
+186 ;;=^^1^1^2990906^^
+187 ;;^UTILITY(U,$J,.84,9110.5,2,1,0)
+188 ;;=A 2-digit year means no more than 20 years in the future, or 80 years in the past.
+189 ;;^UTILITY(U,$J,.84,9110.5,5,0)
+190 ;;=^.841^1^1
+191 ;;^UTILITY(U,$J,.84,9110.5,5,1,0)
+192 ;;=DIEH1
+193 ;;^UTILITY(U,$J,.84,9110.6,0)
+194 ;;=9110.6^3^^2
+195 ;;^UTILITY(U,$J,.84,9110.6,2,0)
+196 ;;=^^1^1^2990906^
+197 ;;^UTILITY(U,$J,.84,9110.6,2,1,0)
+198 ;;=You may omit the precise day of the month, e.g.: Jan, 1957
+199 ;;^UTILITY(U,$J,.84,9110.6,5,0)
+200 ;;=^.841^1^1
+201 ;;^UTILITY(U,$J,.84,9110.6,5,1,0)
+202 ;;=DIEH1
+203 ;;^UTILITY(U,$J,.84,9112,0)
+204 ;;=9112^3^^2
+205 ;;^UTILITY(U,$J,.84,9112,2,0)
+206 ;;=^^1^1^2990906^
+207 ;;^UTILITY(U,$J,.84,9112,2,1,0)
+208 ;;=Seconds may be entered, as e.g.: 10:30:30 or 103030AM
+209 ;;^UTILITY(U,$J,.84,9112,5,0)
+210 ;;=^.841^1^1
+211 ;;^UTILITY(U,$J,.84,9112,5,1,0)
+212 ;;=DIEH1
+213 ;;^UTILITY(U,$J,.84,9113,0)
+214 ;;=9113^3^^2
+215 ;;^UTILITY(U,$J,.84,9113,2,0)
+216 ;;=^^1^1^2990906^
+217 ;;^UTILITY(U,$J,.84,9113,2,1,0)
+218 ;;=Time is REQUIRED to be entered.
+219 ;;^UTILITY(U,$J,.84,9113,5,0)
+220 ;;=^.841^1^1
+221 ;;^UTILITY(U,$J,.84,9113,5,1,0)
+222 ;;=DIEH1
+223 ;;^UTILITY(U,$J,.84,9114,0)
+224 ;;=9114^3^y^2
+225 ;;^UTILITY(U,$J,.84,9114,2,0)
+226 ;;=^^1^1^2991122^
+227 ;;^UTILITY(U,$J,.84,9114,2,1,0)
+228 ;;=ENTER A DATE BETWEEN |1| AND |2|
+229 ;;^UTILITY(U,$J,.84,9114,3,0)
+230 ;;=^.845^2^2
+231 ;;^UTILITY(U,$J,.84,9114,3,1,0)
+232 ;;=1^EARLIEST DATE
+233 ;;^UTILITY(U,$J,.84,9114,3,2,0)
+234 ;;=2^LATEST DATE
+235 ;;^UTILITY(U,$J,.84,9114,5,0)
+236 ;;=^.841^1^1
+237 ;;^UTILITY(U,$J,.84,9114,5,1,0)
+238 ;;=DIALOGZ
+239 ;;^UTILITY(U,$J,.84,9114.01,0)
+240 ;;=9114.01^3^y^2
+241 ;;^UTILITY(U,$J,.84,9114.01,2,0)
+242 ;;=^^1^1^2991122^
+243 ;;^UTILITY(U,$J,.84,9114.01,2,1,0)
+244 ;;=ENTER A DATE NOT EARLIER THAN |1|
+245 ;;^UTILITY(U,$J,.84,9114.01,3,0)
+246 ;;=^.845^1^1
+247 ;;^UTILITY(U,$J,.84,9114.01,3,1,0)
+248 ;;=1^EARLIEST DATE
+249 ;;^UTILITY(U,$J,.84,9114.01,5,0)
+250 ;;=^.841^1^1
+251 ;;^UTILITY(U,$J,.84,9114.01,5,1,0)
+252 ;;=DIALOGZ
+253 ;;^UTILITY(U,$J,.84,9114.1,0)
+254 ;;=9114.1^3^y^2
+255 ;;^UTILITY(U,$J,.84,9114.1,2,0)
+256 ;;=^^1^1^2991028^^^
+257 ;;^UTILITY(U,$J,.84,9114.1,2,1,0)
+258 ;;=Response must not be previous to |1|
+259 ;;^UTILITY(U,$J,.84,9114.1,3,0)
+260 ;;=^.845^1^1
+261 ;;^UTILITY(U,$J,.84,9114.1,3,1,0)
+262 ;;=1^EARLIEST DATE
+263 ;;^UTILITY(U,$J,.84,9114.1,5,0)
+264 ;;=^.841^1^1
+265 ;;^UTILITY(U,$J,.84,9114.1,5,1,0)
+266 ;;=DIR1^D+3
+267 ;;^UTILITY(U,$J,.84,9114.2,0)
+268 ;;=9114.2^3^y^2
+269 ;;^UTILITY(U,$J,.84,9114.2,2,0)
+270 ;;=^^1^1^2991028^^
+271 ;;^UTILITY(U,$J,.84,9114.2,2,1,0)
+272 ;;=Response must not be later than |1|
+273 ;;^UTILITY(U,$J,.84,9114.2,3,0)
+274 ;;=^.845^1^1
+275 ;;^UTILITY(U,$J,.84,9114.2,3,1,0)
+276 ;;=1^LATEST DATE
+277 ;;^UTILITY(U,$J,.84,9114.2,5,0)
+278 ;;=^.841^1^1
+279 ;;^UTILITY(U,$J,.84,9114.2,5,1,0)
+280 ;;=DIR1^D+4
