218 lines
6.6 KiB
Mathematica
218 lines
6.6 KiB
Mathematica
DINIT00Y ; SFISC/TKW-DIALOG & LANGUAGE FILE INITS ; 3/30/99 10:41:48
|
|
;;22.0;VA FileMan;;Mar 30, 1999
|
|
;Per VHA Directive 10-93-142, this routine should not be modified.
|
|
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,9515,2,1,0)
|
|
;;=Partial DD. No sending of data allowed for file |1|.
|
|
;;^UTILITY(U,$J,.84,9516,0)
|
|
;;=9516^1^y^5
|
|
;;^UTILITY(U,$J,.84,9516,1,0)
|
|
;;=^^1^1^2940909^
|
|
;;^UTILITY(U,$J,.84,9516,1,1,0)
|
|
;;=Invalid entry in trasnport structure.
|
|
;;^UTILITY(U,$J,.84,9516,2,0)
|
|
;;=^^1^1^2940909^
|
|
;;^UTILITY(U,$J,.84,9516,2,1,0)
|
|
;;=Transport structure does not contain |1| with IEN: |2|.
|
|
;;^UTILITY(U,$J,.84,9517,0)
|
|
;;=9517^1^y^5
|
|
;;^UTILITY(U,$J,.84,9517,1,0)
|
|
;;=^^1^1^2940909^
|
|
;;^UTILITY(U,$J,.84,9517,1,1,0)
|
|
;;=DIFROM Server unable to install block.
|
|
;;^UTILITY(U,$J,.84,9517,2,0)
|
|
;;=^^1^1^2940909^
|
|
;;^UTILITY(U,$J,.84,9517,2,1,0)
|
|
;;=DIFROM Server unable to install |1| block.
|
|
;;^UTILITY(U,$J,.84,9518,0)
|
|
;;=9518^1^y^5
|
|
;;^UTILITY(U,$J,.84,9518,1,0)
|
|
;;=^^1^1^2940909^
|
|
;;^UTILITY(U,$J,.84,9518,1,1,0)
|
|
;;=DIFROM Server installed block but associated file not present.
|
|
;;^UTILITY(U,$J,.84,9518,2,0)
|
|
;;=^^1^1^2940909^
|
|
;;^UTILITY(U,$J,.84,9518,2,1,0)
|
|
;;=|1| block installed but associated file #|2| is not on your system.
|
|
;;^UTILITY(U,$J,.84,9519,0)
|
|
;;=9519^1^^5
|
|
;;^UTILITY(U,$J,.84,9519,1,0)
|
|
;;=^^1^1^2940909^
|
|
;;^UTILITY(U,$J,.84,9519,1,1,0)
|
|
;;=File number missing for "FILE-PRE" in KIDS process.
|
|
;;^UTILITY(U,$J,.84,9519,2,0)
|
|
;;=^^1^1^2940909^
|
|
;;^UTILITY(U,$J,.84,9519,2,1,0)
|
|
;;=File number missing in "FILE-PRE".
|
|
;;^UTILITY(U,$J,.84,9520,0)
|
|
;;=9520^1^^5
|
|
;;^UTILITY(U,$J,.84,9520,1,0)
|
|
;;=^^1^1^2940909^
|
|
;;^UTILITY(U,$J,.84,9520,1,1,0)
|
|
;;=Package name missing for "FILE-PRE" in KIDS process.
|
|
;;^UTILITY(U,$J,.84,9520,2,0)
|
|
;;=^^1^1^2940909^
|
|
;;^UTILITY(U,$J,.84,9520,2,1,0)
|
|
;;=Package name missing for "FILE-PRE".
|
|
;;^UTILITY(U,$J,.84,9521,0)
|
|
;;=9521^1^^5
|
|
;;^UTILITY(U,$J,.84,9521,1,0)
|
|
;;=^^1^1^2940909^^
|
|
;;^UTILITY(U,$J,.84,9521,1,1,0)
|
|
;;=Invalid file number in KIDS "ENTRY-PRE"
|
|
;;^UTILITY(U,$J,.84,9521,2,0)
|
|
;;=^^1^1^2940909^^
|
|
;;^UTILITY(U,$J,.84,9521,2,1,0)
|
|
;;=File number invalid in "ENTRY-PRE".
|
|
;;^UTILITY(U,$J,.84,9522,0)
|
|
;;=9522^1^^5
|
|
;;^UTILITY(U,$J,.84,9522,1,0)
|
|
;;=^^1^1^2940909^
|
|
;;^UTILITY(U,$J,.84,9522,1,1,0)
|
|
;;=Invalid entry number in KIDS "ENTRY-PRE"
|
|
;;^UTILITY(U,$J,.84,9522,2,0)
|
|
;;=^^1^1^2940909^
|
|
;;^UTILITY(U,$J,.84,9522,2,1,0)
|
|
;;=Entry number invalid for "ENTRY-PRE"
|
|
;;^UTILITY(U,$J,.84,9523,0)
|
|
;;=9523^1^^5
|
|
;;^UTILITY(U,$J,.84,9523,1,0)
|
|
;;=^^1^1^2940909^^
|
|
;;^UTILITY(U,$J,.84,9523,1,1,0)
|
|
;;=Invalid entry in transport array.
|
|
;;^UTILITY(U,$J,.84,9523,2,0)
|
|
;;=^^1^1^2940909^^
|
|
;;^UTILITY(U,$J,.84,9523,2,1,0)
|
|
;;=Entry number invalid in transport array (source site DA).
|
|
;;^UTILITY(U,$J,.84,9524,0)
|
|
;;=9524^1^^5
|
|
;;^UTILITY(U,$J,.84,9524,1,0)
|
|
;;=^^1^1^2940909^^
|
|
;;^UTILITY(U,$J,.84,9524,1,1,0)
|
|
;;=Package name invalid in "ENTRY-PRE".
|
|
;;^UTILITY(U,$J,.84,9524,2,0)
|
|
;;=^^1^1^2940909^^
|
|
;;^UTILITY(U,$J,.84,9524,2,1,0)
|
|
;;=Invalid package name in "ENTRY-PRE".
|
|
;;^UTILITY(U,$J,.84,9525,0)
|
|
;;=9525^1^y^5
|
|
;;^UTILITY(U,$J,.84,9525,1,0)
|
|
;;=^^1^1^2940909^
|
|
;;^UTILITY(U,$J,.84,9525,1,1,0)
|
|
;;=Package name ambigious. Pointer not resolved.
|
|
;;^UTILITY(U,$J,.84,9525,2,0)
|
|
;;=^^1^1^2940909^
|
|
;;^UTILITY(U,$J,.84,9525,2,1,0)
|
|
;;=|1| package name is ambigious. Pointer |2| not resolved.
|
|
;;^UTILITY(U,$J,.84,9526,0)
|
|
;;=9526^1^^5
|
|
;;^UTILITY(U,$J,.84,9526,1,0)
|
|
;;=^^1^1^2940909^
|
|
;;^UTILITY(U,$J,.84,9526,1,1,0)
|
|
;;=ZSave not defined in MUMPS Operating file. Can not compile templates.
|
|
;;^UTILITY(U,$J,.84,9526,2,0)
|
|
;;=^^1^1^2940909^
|
|
;;^UTILITY(U,$J,.84,9526,2,1,0)
|
|
;;=Unable to compile templates. ZSave undefined in OS file.
|
|
;;^UTILITY(U,$J,.84,9527,0)
|
|
;;=9527^1^y^5
|
|
;;^UTILITY(U,$J,.84,9527,1,0)
|
|
;;=^^1^1^2940909^^^
|
|
;;^UTILITY(U,$J,.84,9527,1,1,0)
|
|
;;=Invalid form. DIFROM Server is unable to compile.
|
|
;;^UTILITY(U,$J,.84,9527,2,0)
|
|
;;=^^1^1^2940909^
|
|
;;^UTILITY(U,$J,.84,9527,2,1,0)
|
|
;;=|1| form invalid. Can not be compiled by KIDS process.
|
|
;;^UTILITY(U,$J,.84,9528,0)
|
|
;;=9528^1^y^5
|
|
;;^UTILITY(U,$J,.84,9528,1,0)
|
|
;;=^^1^1^2940909^
|
|
;;^UTILITY(U,$J,.84,9528,1,1,0)
|
|
;;=Template can not be compiled.
|
|
;;^UTILITY(U,$J,.84,9528,2,0)
|
|
;;=^^1^1^2940909^
|
|
;;^UTILITY(U,$J,.84,9528,2,1,0)
|
|
;;=|1| template |2| is invalid. KIDS process can not compile.
|
|
;;^UTILITY(U,$J,.84,9529,0)
|
|
;;=9529^1^^5
|
|
;;^UTILITY(U,$J,.84,9529,1,0)
|
|
;;=^^1^1^2940909^
|
|
;;^UTILITY(U,$J,.84,9529,1,1,0)
|
|
;;=Template or form file number is invalid. DIFROM Server/KIDS
|
|
;;^UTILITY(U,$J,.84,9529,2,0)
|
|
;;=^^1^1^2940909^
|
|
;;^UTILITY(U,$J,.84,9529,2,1,0)
|
|
;;=Template or form file number is invalid.
|
|
;;^UTILITY(U,$J,.84,9530,0)
|
|
;;=9530^1^^5
|
|
;;^UTILITY(U,$J,.84,9530,1,0)
|
|
;;=^^1^1^2940909^
|
|
;;^UTILITY(U,$J,.84,9530,1,1,0)
|
|
;;=Transport package name is invalid. (KIDS)
|
|
;;^UTILITY(U,$J,.84,9530,2,0)
|
|
;;=^^1^1^2940909^
|
|
;;^UTILITY(U,$J,.84,9530,2,1,0)
|
|
;;=Transport package name is invalid. (DIFROM Server/KIDS)
|
|
;;^UTILITY(U,$J,.84,9531,0)
|
|
;;=9531^1^^5
|
|
;;^UTILITY(U,$J,.84,9531,1,0)
|
|
;;=^^1^1^2940909^
|
|
;;^UTILITY(U,$J,.84,9531,1,1,0)
|
|
;;=Invalid EDE(s).
|
|
;;^UTILITY(U,$J,.84,9531,2,0)
|
|
;;=^^1^1^2940909^
|
|
;;^UTILITY(U,$J,.84,9531,2,1,0)
|
|
;;=Invalid EDE(s). (DIFROM Server/KIDS)
|
|
;;^UTILITY(U,$J,.84,9532,0)
|
|
;;=9532^1^^5
|
|
;;^UTILITY(U,$J,.84,9532,1,0)
|
|
;;=^^1^1^2940909^
|
|
;;^UTILITY(U,$J,.84,9532,1,1,0)
|
|
;;=No IEN(s) in array. (KIDS)
|
|
;;^UTILITY(U,$J,.84,9532,2,0)
|
|
;;=^^1^1^2940909^
|
|
;;^UTILITY(U,$J,.84,9532,2,1,0)
|
|
;;=No IEN(s) in list.
|
|
;;^UTILITY(U,$J,.84,9533,0)
|
|
;;=9533^1^^5
|
|
;;^UTILITY(U,$J,.84,9533,1,0)
|
|
;;=^^1^1^2940909^
|
|
;;^UTILITY(U,$J,.84,9533,1,1,0)
|
|
;;=Source array root missing.
|
|
;;^UTILITY(U,$J,.84,9533,2,0)
|
|
;;=^^1^1^2940909^
|
|
;;^UTILITY(U,$J,.84,9533,2,1,0)
|
|
;;=Source array root missing.
|
|
;;^UTILITY(U,$J,.84,9534,0)
|
|
;;=9534^1^y^5
|
|
;;^UTILITY(U,$J,.84,9534,1,0)
|
|
;;=^^1^1^2940909^^^
|
|
;;^UTILITY(U,$J,.84,9534,1,1,0)
|
|
;;=Resolved value data link missing.
|
|
;;^UTILITY(U,$J,.84,9534,2,0)
|
|
;;=^^1^1^2940909^^^
|
|
;;^UTILITY(U,$J,.84,9534,2,1,0)
|
|
;;=Resolved Value Data Link missing |1|.
|
|
;;^UTILITY(U,$J,.84,9535,0)
|
|
;;=9535^1^y^5
|
|
;;^UTILITY(U,$J,.84,9535,1,0)
|
|
;;=^^1^1^2940909^^^
|
|
;;^UTILITY(U,$J,.84,9535,1,1,0)
|
|
;;=Pointer file missing.
|
|
;;^UTILITY(U,$J,.84,9535,2,0)
|
|
;;=^^1^1^2940909^^^
|
|
;;^UTILITY(U,$J,.84,9535,2,1,0)
|
|
;;=Pointer file missing |1|.
|
|
;;^UTILITY(U,$J,.84,9536,0)
|
|
;;=9536^1^y^5
|
|
;;^UTILITY(U,$J,.84,9536,1,0)
|
|
;;=^^1^1^2940909^^
|
|
;;^UTILITY(U,$J,.84,9536,1,1,0)
|
|
;;=Pointed too file not on target system.
|
|
;;^UTILITY(U,$J,.84,9536,2,0)
|
|
;;=^^1^1^2940909^^
|
|
;;^UTILITY(U,$J,.84,9536,2,1,0)
|
|
;;=Pointed too file not on target system |1|.
|