| [613] | 1 | DINIT004 ; SFISC/TKW-DIALOG & LANGUAGE FILE INITS ;5/24/00 13:20
|
|---|
| 2 | ;;22.0;VA FileMan;**41**;Mar 30, 1999
|
|---|
| 3 | ;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | 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
|
|---|
| 5 | Q Q
|
|---|
| 6 | ;;^UTILITY(U,$J,.84)
|
|---|
| 7 | ;;=^DI(.84,
|
|---|
| 8 | ;;^UTILITY(U,$J,.84,0)
|
|---|
| 9 | ;;=DIALOG^.84I^9549^322
|
|---|
| 10 | ;;^UTILITY(U,$J,.84,101,0)
|
|---|
| 11 | ;;=101^1^^5
|
|---|
| 12 | ;;^UTILITY(U,$J,.84,101,1,0)
|
|---|
| 13 | ;;=^^2^2^2931110^
|
|---|
| 14 | ;;^UTILITY(U,$J,.84,101,1,1,0)
|
|---|
| 15 | ;;=The option or function can only be done if DUZ(0)="@", designating
|
|---|
| 16 | ;;^UTILITY(U,$J,.84,101,1,2,0)
|
|---|
| 17 | ;;=the user as having programmer access.
|
|---|
| 18 | ;;^UTILITY(U,$J,.84,101,2,0)
|
|---|
| 19 | ;;=^^1^1^2931110^
|
|---|
| 20 | ;;^UTILITY(U,$J,.84,101,2,1,0)
|
|---|
| 21 | ;;=Only those with programmer's access can perform this function.
|
|---|
| 22 | ;;^UTILITY(U,$J,.84,110,0)
|
|---|
| 23 | ;;=110^1^^5
|
|---|
| 24 | ;;^UTILITY(U,$J,.84,110,1,0)
|
|---|
| 25 | ;;=^^2^2^2931110^
|
|---|
| 26 | ;;^UTILITY(U,$J,.84,110,1,1,0)
|
|---|
| 27 | ;;=An attempt to get a lock timed out. The record is locked and the desired
|
|---|
| 28 | ;;^UTILITY(U,$J,.84,110,1,2,0)
|
|---|
| 29 | ;;=action cannot be taken until the lock is released.
|
|---|
| 30 | ;;^UTILITY(U,$J,.84,110,2,0)
|
|---|
| 31 | ;;=^^1^1^2931110^
|
|---|
| 32 | ;;^UTILITY(U,$J,.84,110,2,1,0)
|
|---|
| 33 | ;;=The record is currently locked.
|
|---|
| 34 | ;;^UTILITY(U,$J,.84,110,3,0)
|
|---|
| 35 | ;;=^.845^2^2
|
|---|
| 36 | ;;^UTILITY(U,$J,.84,110,3,1,0)
|
|---|
| 37 | ;;=FILE^File or subfile #.
|
|---|
| 38 | ;;^UTILITY(U,$J,.84,110,3,2,0)
|
|---|
| 39 | ;;=IENS^IEN string of entry numbers.
|
|---|
| 40 | ;;^UTILITY(U,$J,.84,110,5,0)
|
|---|
| 41 | ;;=^.841^1^1
|
|---|
| 42 | ;;^UTILITY(U,$J,.84,110,5,1,0)
|
|---|
| 43 | ;;=DIE^FILE
|
|---|
| 44 | ;;^UTILITY(U,$J,.84,111,0)
|
|---|
| 45 | ;;=111^1^y^5
|
|---|
| 46 | ;;^UTILITY(U,$J,.84,111,1,0)
|
|---|
| 47 | ;;=^^2^2^2970205^^
|
|---|
| 48 | ;;^UTILITY(U,$J,.84,111,1,1,0)
|
|---|
| 49 | ;;=An attempt to get a lock timed out. The File Header Node is locked, and
|
|---|
| 50 | ;;^UTILITY(U,$J,.84,111,1,2,0)
|
|---|
| 51 | ;;=the desired action cannot be taken until the lock is released.
|
|---|
| 52 | ;;^UTILITY(U,$J,.84,111,2,0)
|
|---|
| 53 | ;;=^^1^1^2970205^^
|
|---|
| 54 | ;;^UTILITY(U,$J,.84,111,2,1,0)
|
|---|
| 55 | ;;=The File Header Node is currently locked.
|
|---|
| 56 | ;;^UTILITY(U,$J,.84,111,3,0)
|
|---|
| 57 | ;;=^.845^1^1
|
|---|
| 58 | ;;^UTILITY(U,$J,.84,111,3,1,0)
|
|---|
| 59 | ;;=FILE^File #.
|
|---|
| 60 | ;;^UTILITY(U,$J,.84,111,5,0)
|
|---|
| 61 | ;;=^.841^1^1
|
|---|
| 62 | ;;^UTILITY(U,$J,.84,111,5,1,0)
|
|---|
| 63 | ;;=0
|
|---|
| 64 | ;;^UTILITY(U,$J,.84,112,0)
|
|---|
| 65 | ;;=112^1^y^5
|
|---|
| 66 | ;;^UTILITY(U,$J,.84,112,1,0)
|
|---|
| 67 | ;;=^^2^2^2970205^^
|
|---|
| 68 | ;;^UTILITY(U,$J,.84,112,1,1,0)
|
|---|
| 69 | ;;=An attempt to get a lock timed out. The File is locked, and the desired
|
|---|
| 70 | ;;^UTILITY(U,$J,.84,112,1,2,0)
|
|---|
| 71 | ;;=action cannot be taken until the lock is released.
|
|---|
| 72 | ;;^UTILITY(U,$J,.84,112,2,0)
|
|---|
| 73 | ;;=^^1^1^2970205^
|
|---|
| 74 | ;;^UTILITY(U,$J,.84,112,2,1,0)
|
|---|
| 75 | ;;=The file is currently locked.
|
|---|
| 76 | ;;^UTILITY(U,$J,.84,112,3,0)
|
|---|
| 77 | ;;=^.845^1^1
|
|---|
| 78 | ;;^UTILITY(U,$J,.84,112,3,1,0)
|
|---|
| 79 | ;;=FILE^FILE #
|
|---|
| 80 | ;;^UTILITY(U,$J,.84,120,0)
|
|---|
| 81 | ;;=120^1^y^5
|
|---|
| 82 | ;;^UTILITY(U,$J,.84,120,1,0)
|
|---|
| 83 | ;;=^^7^7^2941006^^
|
|---|
| 84 | ;;^UTILITY(U,$J,.84,120,1,1,0)
|
|---|
| 85 | ;;=An error occurred during the Xecution of a FileMan hook (e.g., an input
|
|---|
| 86 | ;;^UTILITY(U,$J,.84,120,1,2,0)
|
|---|
| 87 | ;;=transform, DIC screen). The type of hook in which the error occurred is
|
|---|
| 88 | ;;^UTILITY(U,$J,.84,120,1,3,0)
|
|---|
| 89 | ;;=identified in the text. When relevant, the file, field, and IENS for
|
|---|
| 90 | ;;^UTILITY(U,$J,.84,120,1,4,0)
|
|---|
| 91 | ;;=which the hook was being Xecuted are identified in the PARAM nodes. The
|
|---|
| 92 | ;;^UTILITY(U,$J,.84,120,1,5,0)
|
|---|
| 93 | ;;=substance of the error will usually be identified by a separate error
|
|---|
| 94 | ;;^UTILITY(U,$J,.84,120,1,6,0)
|
|---|
| 95 | ;;=message generated during the Xecution of the hook itself. That error will
|
|---|
| 96 | ;;^UTILITY(U,$J,.84,120,1,7,0)
|
|---|
| 97 | ;;=usually be the one preceding this one in the DIERR array.
|
|---|
| 98 | ;;^UTILITY(U,$J,.84,120,2,0)
|
|---|
| 99 | ;;=^^1^1^2941006^^
|
|---|
| 100 | ;;^UTILITY(U,$J,.84,120,2,1,0)
|
|---|
| 101 | ;;=The previous error occurred when performing an action specified in a |1|.
|
|---|
| 102 | ;;^UTILITY(U,$J,.84,120,3,0)
|
|---|
| 103 | ;;=^.845^4^4
|
|---|
| 104 | ;;^UTILITY(U,$J,.84,120,3,1,0)
|
|---|
| 105 | ;;=1^Type of FileMan Xecutable code.
|
|---|
| 106 | ;;^UTILITY(U,$J,.84,120,3,2,0)
|
|---|
| 107 | ;;=FILE^File#
|
|---|
| 108 | ;;^UTILITY(U,$J,.84,120,3,3,0)
|
|---|
| 109 | ;;=FIELD^Field#.
|
|---|
| 110 | ;;^UTILITY(U,$J,.84,120,3,4,0)
|
|---|
| 111 | ;;=IENS^Internal Entry Number String.
|
|---|
| 112 | ;;^UTILITY(U,$J,.84,200,0)
|
|---|
| 113 | ;;=200^1^^5
|
|---|
| 114 | ;;^UTILITY(U,$J,.84,200,1,0)
|
|---|
| 115 | ;;=^^2^2^2931109^
|
|---|
| 116 | ;;^UTILITY(U,$J,.84,200,1,1,0)
|
|---|
| 117 | ;;=There is an error in one of the variables passed to a FileMan call or
|
|---|
| 118 | ;;^UTILITY(U,$J,.84,200,1,2,0)
|
|---|
| 119 | ;;=in one of the parameters passed in the actual parameter list.
|
|---|
| 120 | ;;^UTILITY(U,$J,.84,200,2,0)
|
|---|
| 121 | ;;=^^1^1^2931110^^^
|
|---|
| 122 | ;;^UTILITY(U,$J,.84,200,2,1,0)
|
|---|
| 123 | ;;=An input variable or parameter is missing or invalid.
|
|---|
| 124 | ;;^UTILITY(U,$J,.84,201,0)
|
|---|
| 125 | ;;=201^1^y^5
|
|---|
| 126 | ;;^UTILITY(U,$J,.84,201,1,0)
|
|---|
| 127 | ;;=^^2^2^2931110^^
|
|---|
| 128 | ;;^UTILITY(U,$J,.84,201,1,1,0)
|
|---|
| 129 | ;;=The specified input variable is either 1) required but not defined or
|
|---|
| 130 | ;;^UTILITY(U,$J,.84,201,1,2,0)
|
|---|
| 131 | ;;=2) not valid.
|
|---|
| 132 | ;;^UTILITY(U,$J,.84,201,2,0)
|
|---|
| 133 | ;;=^^1^1^2931110^^^
|
|---|
| 134 | ;;^UTILITY(U,$J,.84,201,2,1,0)
|
|---|
| 135 | ;;=The input variable |1| is missing or invalid.
|
|---|
| 136 | ;;^UTILITY(U,$J,.84,201,3,0)
|
|---|
| 137 | ;;=^.845^1^1
|
|---|
| 138 | ;;^UTILITY(U,$J,.84,201,3,1,0)
|
|---|
| 139 | ;;=1^Variable name.
|
|---|
| 140 | ;;^UTILITY(U,$J,.84,202,0)
|
|---|
| 141 | ;;=202^1^y^5
|
|---|
| 142 | ;;^UTILITY(U,$J,.84,202,1,0)
|
|---|
| 143 | ;;=^^1^1^2931110^^^^
|
|---|
| 144 | ;;^UTILITY(U,$J,.84,202,1,1,0)
|
|---|
| 145 | ;;=The specified parameter is either required but missing or invalid.
|
|---|
| 146 | ;;^UTILITY(U,$J,.84,202,2,0)
|
|---|
| 147 | ;;=^^1^1^2950317^^^^
|
|---|
| 148 | ;;^UTILITY(U,$J,.84,202,2,1,0)
|
|---|
| 149 | ;;=The input parameter that identifies the |1| is missing or invalid.
|
|---|
| 150 | ;;^UTILITY(U,$J,.84,202,3,0)
|
|---|
| 151 | ;;=^.845^1^1
|
|---|
| 152 | ;;^UTILITY(U,$J,.84,202,3,1,0)
|
|---|
| 153 | ;;=1^Parameter as identified in the FM documentation.
|
|---|
| 154 | ;;^UTILITY(U,$J,.84,202,5,0)
|
|---|
| 155 | ;;=^.841^1^1
|
|---|
| 156 | ;;^UTILITY(U,$J,.84,202,5,1,0)
|
|---|
| 157 | ;;=DIT^TRNMRG
|
|---|
| 158 | ;;^UTILITY(U,$J,.84,203,0)
|
|---|
| 159 | ;;=203^1^y^5
|
|---|
| 160 | ;;^UTILITY(U,$J,.84,203,1,0)
|
|---|
| 161 | ;;=^^3^3^2940426^
|
|---|
| 162 | ;;^UTILITY(U,$J,.84,203,1,1,0)
|
|---|
| 163 | ;;=An incorrect subscript is present in an array that is passed to FileMan.
|
|---|
| 164 | ;;^UTILITY(U,$J,.84,203,1,2,0)
|
|---|
| 165 | ;;=For example, one of the subscripts in the FDA which identifies FILE, IENS,
|
|---|
| 166 | ;;^UTILITY(U,$J,.84,203,1,3,0)
|
|---|
| 167 | ;;=or FIELD is incorrectly formatted.
|
|---|
| 168 | ;;^UTILITY(U,$J,.84,203,2,0)
|
|---|
| 169 | ;;=^^1^1^2940426^^^
|
|---|
| 170 | ;;^UTILITY(U,$J,.84,203,2,1,0)
|
|---|
| 171 | ;;=The subscript that identifies the |1| is missing or invalid.
|
|---|
| 172 | ;;^UTILITY(U,$J,.84,203,3,0)
|
|---|
| 173 | ;;=^.845^1^1
|
|---|
| 174 | ;;^UTILITY(U,$J,.84,203,3,1,0)
|
|---|
| 175 | ;;=1^The data element incorrectly specified by a subscript.
|
|---|
| 176 | ;;^UTILITY(U,$J,.84,203,5,0)
|
|---|
| 177 | ;;=^.841^1^1
|
|---|
| 178 | ;;^UTILITY(U,$J,.84,203,5,1,0)
|
|---|
| 179 | ;;=DIE^FILE
|
|---|
| 180 | ;;^UTILITY(U,$J,.84,204,0)
|
|---|
| 181 | ;;=204^1^^5
|
|---|
| 182 | ;;^UTILITY(U,$J,.84,204,1,0)
|
|---|
| 183 | ;;=^^1^1^2940316^
|
|---|
| 184 | ;;^UTILITY(U,$J,.84,204,1,1,0)
|
|---|
| 185 | ;;=Control characters are not permitted in the database.
|
|---|
| 186 | ;;^UTILITY(U,$J,.84,204,2,0)
|
|---|
| 187 | ;;=^^1^1^2940316^
|
|---|
| 188 | ;;^UTILITY(U,$J,.84,204,2,1,0)
|
|---|
| 189 | ;;=The input value contains control characters.
|
|---|
| 190 | ;;^UTILITY(U,$J,.84,204,3,0)
|
|---|
| 191 | ;;=^.845^1^1
|
|---|
| 192 | ;;^UTILITY(U,$J,.84,204,3,1,0)
|
|---|
| 193 | ;;=1^INPUT VALUE
|
|---|
| 194 | ;;^UTILITY(U,$J,.84,205,0)
|
|---|
| 195 | ;;=205^1^y^5
|
|---|
| 196 | ;;^UTILITY(U,$J,.84,205,1,0)
|
|---|
| 197 | ;;=^^4^4^2960827^
|
|---|
| 198 | ;;^UTILITY(U,$J,.84,205,1,1,0)
|
|---|
| 199 | ;;=Error message output when a file or subfile number, and its associated IEN
|
|---|
| 200 | ;;^UTILITY(U,$J,.84,205,1,2,0)
|
|---|
| 201 | ;;=string are not in sync (i.e, the number of comma pieces represented by
|
|---|
