DINIT00D ;SFISC/TKW-DIALOG & LANGUAGE FILE INITS ;3/30/99 10:41:48
;;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,1846,0)
;;=1846^1^y
;;^UTILITY(U,$J,.84,1846,1,0)
;;=^^1^1^2950317^^
;;^UTILITY(U,$J,.84,1846,1,1,0)
;;=A file or subfile must have only one string of fields associated with it.
;;^UTILITY(U,$J,.84,1846,2,0)
;;=^^1^1^2950317^^
;;^UTILITY(U,$J,.84,1846,2,1,0)
;;=File #|FILE| appears more than once in the import with different fields.
;;^UTILITY(U,$J,.84,1846,3,0)
;;=^.845^1^1
;;^UTILITY(U,$J,.84,1846,3,1,0)
;;=FILE^File or subfile number.
;;^UTILITY(U,$J,.84,1850,0)
;;=1850^1^^5
;;^UTILITY(U,$J,.84,1850,1,0)
;;=^^4^4^2960718^^
;;^UTILITY(U,$J,.84,1850,1,1,0)
;;=The device for printing the Import report was not properly specified.
;;^UTILITY(U,$J,.84,1850,1,2,0)
;;=This could be caused either by a user's response or by the
;;^UTILITY(U,$J,.84,1850,1,3,0)
;;=device specifications passed to the FILE^DDMP call. The problem
;;^UTILITY(U,$J,.84,1850,1,4,0)
;;=could involve either device or queuing instructions.
;;^UTILITY(U,$J,.84,1850,2,0)
;;=^^1^1^2960718^^
;;^UTILITY(U,$J,.84,1850,2,1,0)
;;=There is an error in device selection or queuing setup.
;;^UTILITY(U,$J,.84,1860,0)
;;=1860^1^^5
;;^UTILITY(U,$J,.84,1860,1,0)
;;=^^1^1^2960906^
;;^UTILITY(U,$J,.84,1860,1,1,0)
;;=The record being imported has no data.
;;^UTILITY(U,$J,.84,1860,2,0)
;;=^^1^1^2960906^
;;^UTILITY(U,$J,.84,1860,2,1,0)
;;=The record being imported has no data.
;;^UTILITY(U,$J,.84,1862,0)
;;=1862^1^^5
;;^UTILITY(U,$J,.84,1862,1,0)
;;=^^4^4^2960906^^
;;^UTILITY(U,$J,.84,1862,1,1,0)
;;=When parsing the imported record, more fields were found than expected.
;;^UTILITY(U,$J,.84,1862,1,2,0)
;;=There were either more delimiter-pieces than expected or the length of a
;;^UTILITY(U,$J,.84,1862,1,3,0)
;;=fixed length import was too long. This probably means that the incoming
;;^UTILITY(U,$J,.84,1862,1,4,0)
;;=file is corrupted.
;;^UTILITY(U,$J,.84,1862,2,0)
;;=^^1^1^2960906^^
;;^UTILITY(U,$J,.84,1862,2,1,0)
;;=There are more fields in the incoming record than expected.
;;^UTILITY(U,$J,.84,1870,0)
;;=1870^1^y^5
;;^UTILITY(U,$J,.84,1870,1,0)
;;=^^2^2^2960913^
;;^UTILITY(U,$J,.84,1870,1,1,0)
;;=A requested import template does not exist in the Import Template file
;;^UTILITY(U,$J,.84,1870,1,2,0)
;;=for the file being imported into.
;;^UTILITY(U,$J,.84,1870,2,0)
;;=^^1^1^2961002^^^
;;^UTILITY(U,$J,.84,1870,2,1,0)
;;=Import template |1| does not exist for File #|FILE|.
;;^UTILITY(U,$J,.84,1870,3,0)
;;=^.845^2^2
;;^UTILITY(U,$J,.84,1870,3,1,0)
;;=1^Template name.
;;^UTILITY(U,$J,.84,1870,3,2,0)
;;=FILE^File number.
;;^UTILITY(U,$J,.84,3000,0)
;;=3000^1^^5
;;^UTILITY(U,$J,.84,3000,1,0)
;;=^^1^1^2930721^
;;^UTILITY(U,$J,.84,3000,1,1,0)
;;=Initial call to ^DDS failed.
;;^UTILITY(U,$J,.84,3000,2,0)
;;=^^1^1^2931202^
;;^UTILITY(U,$J,.84,3000,2,1,0)
;;=THE FORM COULD NOT BE INVOKED.
;;^UTILITY(U,$J,.84,3002,0)
;;=3002^1^y^5
;;^UTILITY(U,$J,.84,3002,1,0)
;;=^^1^1^2931202^
;;^UTILITY(U,$J,.84,3002,1,1,0)
;;=An error was encountered during Form compilation.
;;^UTILITY(U,$J,.84,3002,2,0)
;;=^^1^1^2931202^^
;;^UTILITY(U,$J,.84,3002,2,1,0)
;;=THE FORM "|1|" COULD NOT BE COMPILED.
;;^UTILITY(U,$J,.84,3002,3,0)
;;=^.845^1^1
;;^UTILITY(U,$J,.84,3002,3,1,0)
;;=1^Form name
;;^UTILITY(U,$J,.84,3011,0)
;;=3011^1^y^5
;;^UTILITY(U,$J,.84,3011,1,0)
;;=^^1^1^2931201^
;;^UTILITY(U,$J,.84,3011,1,1,0)
;;=The specified field is missing or invalid.
;;^UTILITY(U,$J,.84,3011,2,0)
;;=^^1^1^2931201^
;;^UTILITY(U,$J,.84,3011,2,1,0)
;;=The |1| field of the |2| file is missing or invalid.
;;^UTILITY(U,$J,.84,3011,3,0)
;;=^.845^2^2
;;^UTILITY(U,$J,.84,3011,3,1,0)
;;=1^Field or subfield name
;;^UTILITY(U,$J,.84,3011,3,2,0)
;;=2^File name
;;^UTILITY(U,$J,.84,3012,0)
;;=3012^1^y^5
;;^UTILITY(U,$J,.84,3012,1,0)
;;=^^2^2^2931201^
;;^UTILITY(U,$J,.84,3012,1,1,0)
;;=The specified file or subfile does not exist; it is not present in the
;;^UTILITY(U,$J,.84,3012,1,2,0)
;;=data dictionary.
;;^UTILITY(U,$J,.84,3012,2,0)
;;=^^1^1^2931201^
;;^UTILITY(U,$J,.84,3012,2,1,0)
;;=File |1| does not exist.
;;^UTILITY(U,$J,.84,3012,3,0)
;;=^.845^1^1
;;^UTILITY(U,$J,.84,3012,3,1,0)
;;=1^File number or name
;;^UTILITY(U,$J,.84,3021,0)
;;=3021^1^y^5
;;^UTILITY(U,$J,.84,3021,1,0)
;;=^^1^1^2940811^^^
;;^UTILITY(U,$J,.84,3021,1,1,0)
;;=A lookup in to the Form file for the given form failed.
;;^UTILITY(U,$J,.84,3021,2,0)
;;=^^2^2^2940811^
;;^UTILITY(U,$J,.84,3021,2,1,0)
;;=Form |1| does not exist in the Form file, or DDSFILE is not the Primary
;;^UTILITY(U,$J,.84,3021,2,2,0)
;;=File of the form.
;;^UTILITY(U,$J,.84,3021,3,0)
;;=^.845^1^1
;;^UTILITY(U,$J,.84,3021,3,1,0)
;;=1^Form name
;;^UTILITY(U,$J,.84,3022,0)
;;=3022^1^y^5
;;^UTILITY(U,$J,.84,3022,1,0)
;;=^^1^1^2931130^^
;;^UTILITY(U,$J,.84,3022,1,1,0)
;;=There are no pages defined in the Page multiple of the given form.
;;^UTILITY(U,$J,.84,3022,2,0)
;;=^^1^1^2931130^^
;;^UTILITY(U,$J,.84,3022,2,1,0)
;;=Form |1| contains no pages.
;;^UTILITY(U,$J,.84,3022,3,0)
;;=^.845^1^1
;;^UTILITY(U,$J,.84,3022,3,1,0)
;;=1^Form name
;;^UTILITY(U,$J,.84,3023,0)
;;=3023^1^y^5
;;^UTILITY(U,$J,.84,3023,1,0)
;;=^^1^1^2931129^^
;;^UTILITY(U,$J,.84,3023,1,1,0)
;;=The given page was not found on the form.
;;^UTILITY(U,$J,.84,3023,2,0)
;;=^^1^1^2931129^^^
;;^UTILITY(U,$J,.84,3023,2,1,0)
;;=The form does not contain a page |1|.
;;^UTILITY(U,$J,.84,3023,3,0)
;;=^.845^1^1
;;^UTILITY(U,$J,.84,3023,3,1,0)
;;=1^Page name or number
;;^UTILITY(U,$J,.84,3031,0)
;;=3031^1^y^5
;;^UTILITY(U,$J,.84,3031,1,0)
;;=^^1^1^2931124^
;;^UTILITY(U,$J,.84,3031,1,1,0)
;;=The call to the specified ScreenMan utility failed.
;;^UTILITY(U,$J,.84,3031,2,0)
;;=^^1^1^2931124^
;;^UTILITY(U,$J,.84,3031,2,1,0)
;;=NOTE: The programmer call to the |1| ScreenMan utility failed.
;;^UTILITY(U,$J,.84,3031,3,0)
;;=^.845^1^1
;;^UTILITY(U,$J,.84,3031,3,1,0)
;;=1^ScreenMan utility entry point.
;;^UTILITY(U,$J,.84,3041,0)
;;=3041^1^y^5
;;^UTILITY(U,$J,.84,3041,1,0)
;;=^^1^1^2931130^^
;;^UTILITY(U,$J,.84,3041,1,1,0)
;;=Errors were encountered while attempting to load the page.
;;^UTILITY(U,$J,.84,3041,2,0)
;;=^^1^1^2931130^
;;^UTILITY(U,$J,.84,3041,2,1,0)
;;=Page |1| (|2|) could not be loaded.
;;^UTILITY(U,$J,.84,3041,3,0)
;;=^.845^2^2
;;^UTILITY(U,$J,.84,3041,3,1,0)
;;=1^Page number
;;^UTILITY(U,$J,.84,3041,3,2,0)
;;=2^Page name
;;^UTILITY(U,$J,.84,3051,0)
;;=3051^1^y^5
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDINIT00D 7225 printed Apr 09, 2024@21:46:07 Page 2
DINIT00D ;SFISC/TKW-DIALOG & LANGUAGE FILE INITS ;3/30/99 10:41:48
+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,1846,0)
+2 ;;=1846^1^y
+3 ;;^UTILITY(U,$J,.84,1846,1,0)
+4 ;;=^^1^1^2950317^^
+5 ;;^UTILITY(U,$J,.84,1846,1,1,0)
+6 ;;=A file or subfile must have only one string of fields associated with it.
+7 ;;^UTILITY(U,$J,.84,1846,2,0)
+8 ;;=^^1^1^2950317^^
+9 ;;^UTILITY(U,$J,.84,1846,2,1,0)
+10 ;;=File #|FILE| appears more than once in the import with different fields.
+11 ;;^UTILITY(U,$J,.84,1846,3,0)
+12 ;;=^.845^1^1
+13 ;;^UTILITY(U,$J,.84,1846,3,1,0)
+14 ;;=FILE^File or subfile number.
+15 ;;^UTILITY(U,$J,.84,1850,0)
+16 ;;=1850^1^^5
+17 ;;^UTILITY(U,$J,.84,1850,1,0)
+18 ;;=^^4^4^2960718^^
+19 ;;^UTILITY(U,$J,.84,1850,1,1,0)
+20 ;;=The device for printing the Import report was not properly specified.
+21 ;;^UTILITY(U,$J,.84,1850,1,2,0)
+22 ;;=This could be caused either by a user's response or by the
+23 ;;^UTILITY(U,$J,.84,1850,1,3,0)
+24 ;;=device specifications passed to the FILE^DDMP call. The problem
+25 ;;^UTILITY(U,$J,.84,1850,1,4,0)
+26 ;;=could involve either device or queuing instructions.
+27 ;;^UTILITY(U,$J,.84,1850,2,0)
+28 ;;=^^1^1^2960718^^
+29 ;;^UTILITY(U,$J,.84,1850,2,1,0)
+30 ;;=There is an error in device selection or queuing setup.
+31 ;;^UTILITY(U,$J,.84,1860,0)
+32 ;;=1860^1^^5
+33 ;;^UTILITY(U,$J,.84,1860,1,0)
+34 ;;=^^1^1^2960906^
+35 ;;^UTILITY(U,$J,.84,1860,1,1,0)
+36 ;;=The record being imported has no data.
+37 ;;^UTILITY(U,$J,.84,1860,2,0)
+38 ;;=^^1^1^2960906^
+39 ;;^UTILITY(U,$J,.84,1860,2,1,0)
+40 ;;=The record being imported has no data.
+41 ;;^UTILITY(U,$J,.84,1862,0)
+42 ;;=1862^1^^5
+43 ;;^UTILITY(U,$J,.84,1862,1,0)
+44 ;;=^^4^4^2960906^^
+45 ;;^UTILITY(U,$J,.84,1862,1,1,0)
+46 ;;=When parsing the imported record, more fields were found than expected.
+47 ;;^UTILITY(U,$J,.84,1862,1,2,0)
+48 ;;=There were either more delimiter-pieces than expected or the length of a
+49 ;;^UTILITY(U,$J,.84,1862,1,3,0)
+50 ;;=fixed length import was too long. This probably means that the incoming
+51 ;;^UTILITY(U,$J,.84,1862,1,4,0)
+52 ;;=file is corrupted.
+53 ;;^UTILITY(U,$J,.84,1862,2,0)
+54 ;;=^^1^1^2960906^^
+55 ;;^UTILITY(U,$J,.84,1862,2,1,0)
+56 ;;=There are more fields in the incoming record than expected.
+57 ;;^UTILITY(U,$J,.84,1870,0)
+58 ;;=1870^1^y^5
+59 ;;^UTILITY(U,$J,.84,1870,1,0)
+60 ;;=^^2^2^2960913^
+61 ;;^UTILITY(U,$J,.84,1870,1,1,0)
+62 ;;=A requested import template does not exist in the Import Template file
+63 ;;^UTILITY(U,$J,.84,1870,1,2,0)
+64 ;;=for the file being imported into.
+65 ;;^UTILITY(U,$J,.84,1870,2,0)
+66 ;;=^^1^1^2961002^^^
+67 ;;^UTILITY(U,$J,.84,1870,2,1,0)
+68 ;;=Import template |1| does not exist for File #|FILE|.
+69 ;;^UTILITY(U,$J,.84,1870,3,0)
+70 ;;=^.845^2^2
+71 ;;^UTILITY(U,$J,.84,1870,3,1,0)
+72 ;;=1^Template name.
+73 ;;^UTILITY(U,$J,.84,1870,3,2,0)
+74 ;;=FILE^File number.
+75 ;;^UTILITY(U,$J,.84,3000,0)
+76 ;;=3000^1^^5
+77 ;;^UTILITY(U,$J,.84,3000,1,0)
+78 ;;=^^1^1^2930721^
+79 ;;^UTILITY(U,$J,.84,3000,1,1,0)
+80 ;;=Initial call to ^DDS failed.
+81 ;;^UTILITY(U,$J,.84,3000,2,0)
+82 ;;=^^1^1^2931202^
+83 ;;^UTILITY(U,$J,.84,3000,2,1,0)
+84 ;;=THE FORM COULD NOT BE INVOKED.
+85 ;;^UTILITY(U,$J,.84,3002,0)
+86 ;;=3002^1^y^5
+87 ;;^UTILITY(U,$J,.84,3002,1,0)
+88 ;;=^^1^1^2931202^
+89 ;;^UTILITY(U,$J,.84,3002,1,1,0)
+90 ;;=An error was encountered during Form compilation.
+91 ;;^UTILITY(U,$J,.84,3002,2,0)
+92 ;;=^^1^1^2931202^^
+93 ;;^UTILITY(U,$J,.84,3002,2,1,0)
+94 ;;=THE FORM "|1|" COULD NOT BE COMPILED.
+95 ;;^UTILITY(U,$J,.84,3002,3,0)
+96 ;;=^.845^1^1
+97 ;;^UTILITY(U,$J,.84,3002,3,1,0)
+98 ;;=1^Form name
+99 ;;^UTILITY(U,$J,.84,3011,0)
+100 ;;=3011^1^y^5
+101 ;;^UTILITY(U,$J,.84,3011,1,0)
+102 ;;=^^1^1^2931201^
+103 ;;^UTILITY(U,$J,.84,3011,1,1,0)
+104 ;;=The specified field is missing or invalid.
+105 ;;^UTILITY(U,$J,.84,3011,2,0)
+106 ;;=^^1^1^2931201^
+107 ;;^UTILITY(U,$J,.84,3011,2,1,0)
+108 ;;=The |1| field of the |2| file is missing or invalid.
+109 ;;^UTILITY(U,$J,.84,3011,3,0)
+110 ;;=^.845^2^2
+111 ;;^UTILITY(U,$J,.84,3011,3,1,0)
+112 ;;=1^Field or subfield name
+113 ;;^UTILITY(U,$J,.84,3011,3,2,0)
+114 ;;=2^File name
+115 ;;^UTILITY(U,$J,.84,3012,0)
+116 ;;=3012^1^y^5
+117 ;;^UTILITY(U,$J,.84,3012,1,0)
+118 ;;=^^2^2^2931201^
+119 ;;^UTILITY(U,$J,.84,3012,1,1,0)
+120 ;;=The specified file or subfile does not exist; it is not present in the
+121 ;;^UTILITY(U,$J,.84,3012,1,2,0)
+122 ;;=data dictionary.
+123 ;;^UTILITY(U,$J,.84,3012,2,0)
+124 ;;=^^1^1^2931201^
+125 ;;^UTILITY(U,$J,.84,3012,2,1,0)
+126 ;;=File |1| does not exist.
+127 ;;^UTILITY(U,$J,.84,3012,3,0)
+128 ;;=^.845^1^1
+129 ;;^UTILITY(U,$J,.84,3012,3,1,0)
+130 ;;=1^File number or name
+131 ;;^UTILITY(U,$J,.84,3021,0)
+132 ;;=3021^1^y^5
+133 ;;^UTILITY(U,$J,.84,3021,1,0)
+134 ;;=^^1^1^2940811^^^
+135 ;;^UTILITY(U,$J,.84,3021,1,1,0)
+136 ;;=A lookup in to the Form file for the given form failed.
+137 ;;^UTILITY(U,$J,.84,3021,2,0)
+138 ;;=^^2^2^2940811^
+139 ;;^UTILITY(U,$J,.84,3021,2,1,0)
+140 ;;=Form |1| does not exist in the Form file, or DDSFILE is not the Primary
+141 ;;^UTILITY(U,$J,.84,3021,2,2,0)
+142 ;;=File of the form.
+143 ;;^UTILITY(U,$J,.84,3021,3,0)
+144 ;;=^.845^1^1
+145 ;;^UTILITY(U,$J,.84,3021,3,1,0)
+146 ;;=1^Form name
+147 ;;^UTILITY(U,$J,.84,3022,0)
+148 ;;=3022^1^y^5
+149 ;;^UTILITY(U,$J,.84,3022,1,0)
+150 ;;=^^1^1^2931130^^
+151 ;;^UTILITY(U,$J,.84,3022,1,1,0)
+152 ;;=There are no pages defined in the Page multiple of the given form.
+153 ;;^UTILITY(U,$J,.84,3022,2,0)
+154 ;;=^^1^1^2931130^^
+155 ;;^UTILITY(U,$J,.84,3022,2,1,0)
+156 ;;=Form |1| contains no pages.
+157 ;;^UTILITY(U,$J,.84,3022,3,0)
+158 ;;=^.845^1^1
+159 ;;^UTILITY(U,$J,.84,3022,3,1,0)
+160 ;;=1^Form name
+161 ;;^UTILITY(U,$J,.84,3023,0)
+162 ;;=3023^1^y^5
+163 ;;^UTILITY(U,$J,.84,3023,1,0)
+164 ;;=^^1^1^2931129^^
+165 ;;^UTILITY(U,$J,.84,3023,1,1,0)
+166 ;;=The given page was not found on the form.
+167 ;;^UTILITY(U,$J,.84,3023,2,0)
+168 ;;=^^1^1^2931129^^^
+169 ;;^UTILITY(U,$J,.84,3023,2,1,0)
+170 ;;=The form does not contain a page |1|.
+171 ;;^UTILITY(U,$J,.84,3023,3,0)
+172 ;;=^.845^1^1
+173 ;;^UTILITY(U,$J,.84,3023,3,1,0)
+174 ;;=1^Page name or number
+175 ;;^UTILITY(U,$J,.84,3031,0)
+176 ;;=3031^1^y^5
+177 ;;^UTILITY(U,$J,.84,3031,1,0)
+178 ;;=^^1^1^2931124^
+179 ;;^UTILITY(U,$J,.84,3031,1,1,0)
+180 ;;=The call to the specified ScreenMan utility failed.
+181 ;;^UTILITY(U,$J,.84,3031,2,0)
+182 ;;=^^1^1^2931124^
+183 ;;^UTILITY(U,$J,.84,3031,2,1,0)
+184 ;;=NOTE: The programmer call to the |1| ScreenMan utility failed.
+185 ;;^UTILITY(U,$J,.84,3031,3,0)
+186 ;;=^.845^1^1
+187 ;;^UTILITY(U,$J,.84,3031,3,1,0)
+188 ;;=1^ScreenMan utility entry point.
+189 ;;^UTILITY(U,$J,.84,3041,0)
+190 ;;=3041^1^y^5
+191 ;;^UTILITY(U,$J,.84,3041,1,0)
+192 ;;=^^1^1^2931130^^
+193 ;;^UTILITY(U,$J,.84,3041,1,1,0)
+194 ;;=Errors were encountered while attempting to load the page.
+195 ;;^UTILITY(U,$J,.84,3041,2,0)
+196 ;;=^^1^1^2931130^
+197 ;;^UTILITY(U,$J,.84,3041,2,1,0)
+198 ;;=Page |1| (|2|) could not be loaded.
+199 ;;^UTILITY(U,$J,.84,3041,3,0)
+200 ;;=^.845^2^2
+201 ;;^UTILITY(U,$J,.84,3041,3,1,0)
+202 ;;=1^Page number
+203 ;;^UTILITY(U,$J,.84,3041,3,2,0)
+204 ;;=2^Page name
+205 ;;^UTILITY(U,$J,.84,3051,0)
+206 ;;=3051^1^y^5
