- DINIT00X ;SFISC/TKW-DIALOG & LANGUAGE 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,9258,2,8,0)
- ;;=prompt.
- ;;^UTILITY(U,$J,.84,9258,2,9,0)
- ;;=
- ;;^UTILITY(U,$J,.84,9258,2,10,0)
- ;;=You cannot use the Form Editor to delete entire forms or blocks. A separate
- ;;^UTILITY(U,$J,.84,9258,2,11,0)
- ;;=utility provides that functionality.
- ;;^UTILITY(U,$J,.84,9259,0)
- ;;=9259^3^^5
- ;;^UTILITY(U,$J,.84,9259,1,0)
- ;;=^^1^1^2940707^^
- ;;^UTILITY(U,$J,.84,9259,1,1,0)
- ;;=Help Screen 9 of Form Editor.
- ;;^UTILITY(U,$J,.84,9259,2,0)
- ;;=^^16^16^2940707^
- ;;^UTILITY(U,$J,.84,9259,2,1,0)
- ;;= \BHelp Screen 9 of 9\n
- ;;^UTILITY(U,$J,.84,9259,2,2,0)
- ;;=\BREORDERING FIELDS ON A BLOCK\n
- ;;^UTILITY(U,$J,.84,9259,2,3,0)
- ;;=
- ;;^UTILITY(U,$J,.84,9259,2,4,0)
- ;;=After creating and arranging all the elements on a block, you can quickly
- ;;^UTILITY(U,$J,.84,9259,2,5,0)
- ;;=make the field orders of all the elements equivalent to the tab order
- ;;^UTILITY(U,$J,.84,9259,2,6,0)
- ;;=by doing the following:
- ;;^UTILITY(U,$J,.84,9259,2,7,0)
- ;;=
- ;;^UTILITY(U,$J,.84,9259,2,8,0)
- ;;= 1. Go to the Block Viewer page (<PF1>V)
- ;;^UTILITY(U,$J,.84,9259,2,9,0)
- ;;= 2. Select the block (<SpaceBar> over the block name)
- ;;^UTILITY(U,$J,.84,9259,2,10,0)
- ;;= 3. Press <PF1>O
- ;;^UTILITY(U,$J,.84,9259,2,11,0)
- ;;=
- ;;^UTILITY(U,$J,.84,9259,2,12,0)
- ;;=The field order is the order in which the elements on the block are
- ;;^UTILITY(U,$J,.84,9259,2,13,0)
- ;;=traversed when the user presses the <Enter> key. The <PF1>O key
- ;;^UTILITY(U,$J,.84,9259,2,14,0)
- ;;=sequence reassigns field order numbers to all the elements on the
- ;;^UTILITY(U,$J,.84,9259,2,15,0)
- ;;=block, so that the <Enter> key takes the user from element to element
- ;;^UTILITY(U,$J,.84,9259,2,16,0)
- ;;=in the same order as the <Tab> key (left to right, top to bottom).
- ;;^UTILITY(U,$J,.84,9501,0)
- ;;=9501^1^^5
- ;;^UTILITY(U,$J,.84,9501,1,0)
- ;;=^^1^1^2940909^^^^
- ;;^UTILITY(U,$J,.84,9501,1,1,0)
- ;;=DIFROM Server, FIA array does not exist or invalid.
- ;;^UTILITY(U,$J,.84,9501,2,0)
- ;;=^^1^1^2940909^^^^
- ;;^UTILITY(U,$J,.84,9501,2,1,0)
- ;;=FIA array does not exist or invalid.
- ;;^UTILITY(U,$J,.84,9502,0)
- ;;=9502^1^^5
- ;;^UTILITY(U,$J,.84,9502,1,0)
- ;;=^^1^1^2940908^
- ;;^UTILITY(U,$J,.84,9502,1,1,0)
- ;;=FIA file number invalid.
- ;;^UTILITY(U,$J,.84,9502,2,0)
- ;;=^^1^1^2940908^
- ;;^UTILITY(U,$J,.84,9502,2,1,0)
- ;;=FIA file number invalid.
- ;;^UTILITY(U,$J,.84,9503,0)
- ;;=9503^1^^5
- ;;^UTILITY(U,$J,.84,9503,1,0)
- ;;=^^1^1^2940908^^^^
- ;;^UTILITY(U,$J,.84,9503,1,1,0)
- ;;=DIFROM Server; FIA node is set to "NO DD UPDATE"
- ;;^UTILITY(U,$J,.84,9503,2,0)
- ;;=^^1^1^2940908^^^^
- ;;^UTILITY(U,$J,.84,9503,2,1,0)
- ;;=File will not be installed! Installation parameter specifies: "No DD Update"
- ;;^UTILITY(U,$J,.84,9504,0)
- ;;=9504^1^^5
- ;;^UTILITY(U,$J,.84,9504,1,0)
- ;;=^^1^1^2940908^^
- ;;^UTILITY(U,$J,.84,9504,1,1,0)
- ;;=DIFROM Server; Installing DD only if file is new on target system.
- ;;^UTILITY(U,$J,.84,9504,2,0)
- ;;=^^1^1^2940908^^
- ;;^UTILITY(U,$J,.84,9504,2,1,0)
- ;;=Data Dictionary not installed; DD already exist on target system.
- ;;^UTILITY(U,$J,.84,9505,0)
- ;;=9505^1^^5
- ;;^UTILITY(U,$J,.84,9505,1,0)
- ;;=^^1^1^2940915^^^
- ;;^UTILITY(U,$J,.84,9505,1,1,0)
- ;;=DIFROM Server; Did not pass DD screen.
- ;;^UTILITY(U,$J,.84,9505,2,0)
- ;;=^^1^1^2940915^^^
- ;;^UTILITY(U,$J,.84,9505,2,1,0)
- ;;=Data Dictionary not updated; Did not pass DD Screen.
- ;;^UTILITY(U,$J,.84,9506,0)
- ;;=9506^1^^5
- ;;^UTILITY(U,$J,.84,9506,1,0)
- ;;=^^1^1^2940909^^^^
- ;;^UTILITY(U,$J,.84,9506,1,1,0)
- ;;=DIFROM Server; Transport structure does not exist or invalid.
- ;;^UTILITY(U,$J,.84,9506,2,0)
- ;;=^^1^1^2940909^^^^
- ;;^UTILITY(U,$J,.84,9506,2,1,0)
- ;;=Transport array does not exist or invalid.
- ;;^UTILITY(U,$J,.84,9507,0)
- ;;=9507^1^^5
- ;;^UTILITY(U,$J,.84,9507,1,0)
- ;;=^^1^1^2940908^^
- ;;^UTILITY(U,$J,.84,9507,1,1,0)
- ;;=DIFROM Server; FIA file number invalid.
- ;;^UTILITY(U,$J,.84,9507,2,0)
- ;;=^^1^1^2940908^^
- ;;^UTILITY(U,$J,.84,9507,2,1,0)
- ;;=Data Dictionary not installed; FIA file number invalid.
- ;;^UTILITY(U,$J,.84,9508,0)
- ;;=9508^1^^5
- ;;^UTILITY(U,$J,.84,9508,1,0)
- ;;=^^1^1^2940908^^^
- ;;^UTILITY(U,$J,.84,9508,1,1,0)
- ;;=DIFROM Server; File does not exist on target system (Partial DD).
- ;;^UTILITY(U,$J,.84,9508,2,0)
- ;;=^^1^1^2940908^^^
- ;;^UTILITY(U,$J,.84,9508,2,1,0)
- ;;=Data Dictionary not installed; Partial DD/File does not exist.
- ;;^UTILITY(U,$J,.84,9509,0)
- ;;=9509^1^^5
- ;;^UTILITY(U,$J,.84,9509,1,0)
- ;;=^^1^1^2940908^^^
- ;;^UTILITY(U,$J,.84,9509,1,1,0)
- ;;=DIFROMS Server; FIA node is set to send "No Data"
- ;;^UTILITY(U,$J,.84,9509,2,0)
- ;;=^^1^1^2940908^^^
- ;;^UTILITY(U,$J,.84,9509,2,1,0)
- ;;=FIA array is set to "No data"
- ;;^UTILITY(U,$J,.84,9510,0)
- ;;=9510^1^^5
- ;;^UTILITY(U,$J,.84,9510,1,0)
- ;;=^^1^1^2940908^
- ;;^UTILITY(U,$J,.84,9510,1,1,0)
- ;;=DIFROM Server; Records to transport do not exist.
- ;;^UTILITY(U,$J,.84,9510,2,0)
- ;;=^^1^1^2940908^
- ;;^UTILITY(U,$J,.84,9510,2,1,0)
- ;;=Records do not exist.
- ;;^UTILITY(U,$J,.84,9511,0)
- ;;=9511^1^^5
- ;;^UTILITY(U,$J,.84,9511,1,0)
- ;;=^^1^1^2940908^
- ;;^UTILITY(U,$J,.84,9511,1,1,0)
- ;;=DIFROM Server; DD not installed because FIA array does not exist.
- ;;^UTILITY(U,$J,.84,9511,2,0)
- ;;=^^1^1^2940908^
- ;;^UTILITY(U,$J,.84,9511,2,1,0)
- ;;=Data Dictionary not installed; FIA array does not exist.
- ;;^UTILITY(U,$J,.84,9512,0)
- ;;=9512^1^y^5
- ;;^UTILITY(U,$J,.84,9512,1,0)
- ;;=^^1^1^2940909^^^^
- ;;^UTILITY(U,$J,.84,9512,1,1,0)
- ;;=Parent DD missing on Partial DD.
- ;;^UTILITY(U,$J,.84,9512,2,0)
- ;;=^^1^1^2940909^^^^
- ;;^UTILITY(U,$J,.84,9512,2,1,0)
- ;;=DD: |1| not installed, parent DD(s) missing.
- ;;^UTILITY(U,$J,.84,9513,0)
- ;;=9513^1^y^5
- ;;^UTILITY(U,$J,.84,9513,1,0)
- ;;=^^1^1^2940909^^^
- ;;^UTILITY(U,$J,.84,9513,1,1,0)
- ;;=Invalid record in file.
- ;;^UTILITY(U,$J,.84,9513,2,0)
- ;;=^^1^1^2940909^^^
- ;;^UTILITY(U,$J,.84,9513,2,1,0)
- ;;=IEN: |1| in file |2| is invalid.
- ;;^UTILITY(U,$J,.84,9513.1,0)
- ;;=9513.1^1^y^5
- ;;^UTILITY(U,$J,.84,9513.1,1,0)
- ;;=^^4^4^3000524^
- ;;^UTILITY(U,$J,.84,9513.1,1,1,0)
- ;;=Incoming data record has a .001 field or is DINUMed. There is already a
- ;;^UTILITY(U,$J,.84,9513.1,1,2,0)
- ;;=record at that IEN on the target site. The .01 field, required
- ;;^UTILITY(U,$J,.84,9513.1,1,3,0)
- ;;=Identifiers or Primary KEY don't match incoming record. Therefore record is
- ;;^UTILITY(U,$J,.84,9513.1,1,4,0)
- ;;=not added at target site.
- ;;^UTILITY(U,$J,.84,9513.1,2,0)
- ;;=^^2^2^3000524^
- ;;^UTILITY(U,$J,.84,9513.1,2,1,0)
- ;;=Record with .01 value |.01| and internal entry #|IEN|
- ;;^UTILITY(U,$J,.84,9513.1,2,2,0)
- ;;=could not be added to file |FILE|.
- ;;^UTILITY(U,$J,.84,9513.1,3,0)
- ;;=^.845^3^3
- ;;^UTILITY(U,$J,.84,9513.1,3,1,0)
- ;;=.01^.01 value from incoming record
- ;;^UTILITY(U,$J,.84,9513.1,3,2,0)
- ;;=IEN^IEN of incoming record
- ;;^UTILITY(U,$J,.84,9513.1,3,3,0)
- ;;=FILE^File Number
- ;;^UTILITY(U,$J,.84,9513.1,5,0)
- ;;=^.841^1^1
- ;;^UTILITY(U,$J,.84,9513.1,5,1,0)
- ;;=DITR^I
- ;;^UTILITY(U,$J,.84,9514,0)
- ;;=9514^1^y^5
- ;;^UTILITY(U,$J,.84,9514,1,0)
- ;;=^^1^1^2940909^
- ;;^UTILITY(U,$J,.84,9514,1,1,0)
- ;;=Dangling pointer. File, IEN and field.
- ;;^UTILITY(U,$J,.84,9514,2,0)
- ;;=^^1^1^2940909^
- ;;^UTILITY(U,$J,.84,9514,2,1,0)
- ;;=Dangling pointer. FILE: |1|, IEN: |2| FIELD: |3|
- ;;^UTILITY(U,$J,.84,9515,0)
- ;;=9515^1^y^5
- ;;^UTILITY(U,$J,.84,9515,1,0)
- ;;=^^1^1^2940909^
- ;;^UTILITY(U,$J,.84,9515,1,1,0)
- ;;=No sending data on partial DDs.
- ;;^UTILITY(U,$J,.84,9515,2,0)
- ;;=^^1^1^2940909^
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDINIT00X 8262 printed Feb 19, 2025@00:16:14 Page 2
- DINIT00X ;SFISC/TKW-DIALOG & LANGUAGE 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,9258,2,8,0)
- +2 ;;=prompt.
- +3 ;;^UTILITY(U,$J,.84,9258,2,9,0)
- +4 ;;=
- +5 ;;^UTILITY(U,$J,.84,9258,2,10,0)
- +6 ;;=You cannot use the Form Editor to delete entire forms or blocks. A separate
- +7 ;;^UTILITY(U,$J,.84,9258,2,11,0)
- +8 ;;=utility provides that functionality.
- +9 ;;^UTILITY(U,$J,.84,9259,0)
- +10 ;;=9259^3^^5
- +11 ;;^UTILITY(U,$J,.84,9259,1,0)
- +12 ;;=^^1^1^2940707^^
- +13 ;;^UTILITY(U,$J,.84,9259,1,1,0)
- +14 ;;=Help Screen 9 of Form Editor.
- +15 ;;^UTILITY(U,$J,.84,9259,2,0)
- +16 ;;=^^16^16^2940707^
- +17 ;;^UTILITY(U,$J,.84,9259,2,1,0)
- +18 ;;= \BHelp Screen 9 of 9\n
- +19 ;;^UTILITY(U,$J,.84,9259,2,2,0)
- +20 ;;=\BREORDERING FIELDS ON A BLOCK\n
- +21 ;;^UTILITY(U,$J,.84,9259,2,3,0)
- +22 ;;=
- +23 ;;^UTILITY(U,$J,.84,9259,2,4,0)
- +24 ;;=After creating and arranging all the elements on a block, you can quickly
- +25 ;;^UTILITY(U,$J,.84,9259,2,5,0)
- +26 ;;=make the field orders of all the elements equivalent to the tab order
- +27 ;;^UTILITY(U,$J,.84,9259,2,6,0)
- +28 ;;=by doing the following:
- +29 ;;^UTILITY(U,$J,.84,9259,2,7,0)
- +30 ;;=
- +31 ;;^UTILITY(U,$J,.84,9259,2,8,0)
- +32 ;;= 1. Go to the Block Viewer page (<PF1>V)
- +33 ;;^UTILITY(U,$J,.84,9259,2,9,0)
- +34 ;;= 2. Select the block (<SpaceBar> over the block name)
- +35 ;;^UTILITY(U,$J,.84,9259,2,10,0)
- +36 ;;= 3. Press <PF1>O
- +37 ;;^UTILITY(U,$J,.84,9259,2,11,0)
- +38 ;;=
- +39 ;;^UTILITY(U,$J,.84,9259,2,12,0)
- +40 ;;=The field order is the order in which the elements on the block are
- +41 ;;^UTILITY(U,$J,.84,9259,2,13,0)
- +42 ;;=traversed when the user presses the <Enter> key. The <PF1>O key
- +43 ;;^UTILITY(U,$J,.84,9259,2,14,0)
- +44 ;;=sequence reassigns field order numbers to all the elements on the
- +45 ;;^UTILITY(U,$J,.84,9259,2,15,0)
- +46 ;;=block, so that the <Enter> key takes the user from element to element
- +47 ;;^UTILITY(U,$J,.84,9259,2,16,0)
- +48 ;;=in the same order as the <Tab> key (left to right, top to bottom).
- +49 ;;^UTILITY(U,$J,.84,9501,0)
- +50 ;;=9501^1^^5
- +51 ;;^UTILITY(U,$J,.84,9501,1,0)
- +52 ;;=^^1^1^2940909^^^^
- +53 ;;^UTILITY(U,$J,.84,9501,1,1,0)
- +54 ;;=DIFROM Server, FIA array does not exist or invalid.
- +55 ;;^UTILITY(U,$J,.84,9501,2,0)
- +56 ;;=^^1^1^2940909^^^^
- +57 ;;^UTILITY(U,$J,.84,9501,2,1,0)
- +58 ;;=FIA array does not exist or invalid.
- +59 ;;^UTILITY(U,$J,.84,9502,0)
- +60 ;;=9502^1^^5
- +61 ;;^UTILITY(U,$J,.84,9502,1,0)
- +62 ;;=^^1^1^2940908^
- +63 ;;^UTILITY(U,$J,.84,9502,1,1,0)
- +64 ;;=FIA file number invalid.
- +65 ;;^UTILITY(U,$J,.84,9502,2,0)
- +66 ;;=^^1^1^2940908^
- +67 ;;^UTILITY(U,$J,.84,9502,2,1,0)
- +68 ;;=FIA file number invalid.
- +69 ;;^UTILITY(U,$J,.84,9503,0)
- +70 ;;=9503^1^^5
- +71 ;;^UTILITY(U,$J,.84,9503,1,0)
- +72 ;;=^^1^1^2940908^^^^
- +73 ;;^UTILITY(U,$J,.84,9503,1,1,0)
- +74 ;;=DIFROM Server; FIA node is set to "NO DD UPDATE"
- +75 ;;^UTILITY(U,$J,.84,9503,2,0)
- +76 ;;=^^1^1^2940908^^^^
- +77 ;;^UTILITY(U,$J,.84,9503,2,1,0)
- +78 ;;=File will not be installed! Installation parameter specifies: "No DD Update"
- +79 ;;^UTILITY(U,$J,.84,9504,0)
- +80 ;;=9504^1^^5
- +81 ;;^UTILITY(U,$J,.84,9504,1,0)
- +82 ;;=^^1^1^2940908^^
- +83 ;;^UTILITY(U,$J,.84,9504,1,1,0)
- +84 ;;=DIFROM Server; Installing DD only if file is new on target system.
- +85 ;;^UTILITY(U,$J,.84,9504,2,0)
- +86 ;;=^^1^1^2940908^^
- +87 ;;^UTILITY(U,$J,.84,9504,2,1,0)
- +88 ;;=Data Dictionary not installed; DD already exist on target system.
- +89 ;;^UTILITY(U,$J,.84,9505,0)
- +90 ;;=9505^1^^5
- +91 ;;^UTILITY(U,$J,.84,9505,1,0)
- +92 ;;=^^1^1^2940915^^^
- +93 ;;^UTILITY(U,$J,.84,9505,1,1,0)
- +94 ;;=DIFROM Server; Did not pass DD screen.
- +95 ;;^UTILITY(U,$J,.84,9505,2,0)
- +96 ;;=^^1^1^2940915^^^
- +97 ;;^UTILITY(U,$J,.84,9505,2,1,0)
- +98 ;;=Data Dictionary not updated; Did not pass DD Screen.
- +99 ;;^UTILITY(U,$J,.84,9506,0)
- +100 ;;=9506^1^^5
- +101 ;;^UTILITY(U,$J,.84,9506,1,0)
- +102 ;;=^^1^1^2940909^^^^
- +103 ;;^UTILITY(U,$J,.84,9506,1,1,0)
- +104 ;;=DIFROM Server; Transport structure does not exist or invalid.
- +105 ;;^UTILITY(U,$J,.84,9506,2,0)
- +106 ;;=^^1^1^2940909^^^^
- +107 ;;^UTILITY(U,$J,.84,9506,2,1,0)
- +108 ;;=Transport array does not exist or invalid.
- +109 ;;^UTILITY(U,$J,.84,9507,0)
- +110 ;;=9507^1^^5
- +111 ;;^UTILITY(U,$J,.84,9507,1,0)
- +112 ;;=^^1^1^2940908^^
- +113 ;;^UTILITY(U,$J,.84,9507,1,1,0)
- +114 ;;=DIFROM Server; FIA file number invalid.
- +115 ;;^UTILITY(U,$J,.84,9507,2,0)
- +116 ;;=^^1^1^2940908^^
- +117 ;;^UTILITY(U,$J,.84,9507,2,1,0)
- +118 ;;=Data Dictionary not installed; FIA file number invalid.
- +119 ;;^UTILITY(U,$J,.84,9508,0)
- +120 ;;=9508^1^^5
- +121 ;;^UTILITY(U,$J,.84,9508,1,0)
- +122 ;;=^^1^1^2940908^^^
- +123 ;;^UTILITY(U,$J,.84,9508,1,1,0)
- +124 ;;=DIFROM Server; File does not exist on target system (Partial DD).
- +125 ;;^UTILITY(U,$J,.84,9508,2,0)
- +126 ;;=^^1^1^2940908^^^
- +127 ;;^UTILITY(U,$J,.84,9508,2,1,0)
- +128 ;;=Data Dictionary not installed; Partial DD/File does not exist.
- +129 ;;^UTILITY(U,$J,.84,9509,0)
- +130 ;;=9509^1^^5
- +131 ;;^UTILITY(U,$J,.84,9509,1,0)
- +132 ;;=^^1^1^2940908^^^
- +133 ;;^UTILITY(U,$J,.84,9509,1,1,0)
- +134 ;;=DIFROMS Server; FIA node is set to send "No Data"
- +135 ;;^UTILITY(U,$J,.84,9509,2,0)
- +136 ;;=^^1^1^2940908^^^
- +137 ;;^UTILITY(U,$J,.84,9509,2,1,0)
- +138 ;;=FIA array is set to "No data"
- +139 ;;^UTILITY(U,$J,.84,9510,0)
- +140 ;;=9510^1^^5
- +141 ;;^UTILITY(U,$J,.84,9510,1,0)
- +142 ;;=^^1^1^2940908^
- +143 ;;^UTILITY(U,$J,.84,9510,1,1,0)
- +144 ;;=DIFROM Server; Records to transport do not exist.
- +145 ;;^UTILITY(U,$J,.84,9510,2,0)
- +146 ;;=^^1^1^2940908^
- +147 ;;^UTILITY(U,$J,.84,9510,2,1,0)
- +148 ;;=Records do not exist.
- +149 ;;^UTILITY(U,$J,.84,9511,0)
- +150 ;;=9511^1^^5
- +151 ;;^UTILITY(U,$J,.84,9511,1,0)
- +152 ;;=^^1^1^2940908^
- +153 ;;^UTILITY(U,$J,.84,9511,1,1,0)
- +154 ;;=DIFROM Server; DD not installed because FIA array does not exist.
- +155 ;;^UTILITY(U,$J,.84,9511,2,0)
- +156 ;;=^^1^1^2940908^
- +157 ;;^UTILITY(U,$J,.84,9511,2,1,0)
- +158 ;;=Data Dictionary not installed; FIA array does not exist.
- +159 ;;^UTILITY(U,$J,.84,9512,0)
- +160 ;;=9512^1^y^5
- +161 ;;^UTILITY(U,$J,.84,9512,1,0)
- +162 ;;=^^1^1^2940909^^^^
- +163 ;;^UTILITY(U,$J,.84,9512,1,1,0)
- +164 ;;=Parent DD missing on Partial DD.
- +165 ;;^UTILITY(U,$J,.84,9512,2,0)
- +166 ;;=^^1^1^2940909^^^^
- +167 ;;^UTILITY(U,$J,.84,9512,2,1,0)
- +168 ;;=DD: |1| not installed, parent DD(s) missing.
- +169 ;;^UTILITY(U,$J,.84,9513,0)
- +170 ;;=9513^1^y^5
- +171 ;;^UTILITY(U,$J,.84,9513,1,0)
- +172 ;;=^^1^1^2940909^^^
- +173 ;;^UTILITY(U,$J,.84,9513,1,1,0)
- +174 ;;=Invalid record in file.
- +175 ;;^UTILITY(U,$J,.84,9513,2,0)
- +176 ;;=^^1^1^2940909^^^
- +177 ;;^UTILITY(U,$J,.84,9513,2,1,0)
- +178 ;;=IEN: |1| in file |2| is invalid.
- +179 ;;^UTILITY(U,$J,.84,9513.1,0)
- +180 ;;=9513.1^1^y^5
- +181 ;;^UTILITY(U,$J,.84,9513.1,1,0)
- +182 ;;=^^4^4^3000524^
- +183 ;;^UTILITY(U,$J,.84,9513.1,1,1,0)
- +184 ;;=Incoming data record has a .001 field or is DINUMed. There is already a
- +185 ;;^UTILITY(U,$J,.84,9513.1,1,2,0)
- +186 ;;=record at that IEN on the target site. The .01 field, required
- +187 ;;^UTILITY(U,$J,.84,9513.1,1,3,0)
- +188 ;;=Identifiers or Primary KEY don't match incoming record. Therefore record is
- +189 ;;^UTILITY(U,$J,.84,9513.1,1,4,0)
- +190 ;;=not added at target site.
- +191 ;;^UTILITY(U,$J,.84,9513.1,2,0)
- +192 ;;=^^2^2^3000524^
- +193 ;;^UTILITY(U,$J,.84,9513.1,2,1,0)
- +194 ;;=Record with .01 value |.01| and internal entry #|IEN|
- +195 ;;^UTILITY(U,$J,.84,9513.1,2,2,0)
- +196 ;;=could not be added to file |FILE|.
- +197 ;;^UTILITY(U,$J,.84,9513.1,3,0)
- +198 ;;=^.845^3^3
- +199 ;;^UTILITY(U,$J,.84,9513.1,3,1,0)
- +200 ;;=.01^.01 value from incoming record
- +201 ;;^UTILITY(U,$J,.84,9513.1,3,2,0)
- +202 ;;=IEN^IEN of incoming record
- +203 ;;^UTILITY(U,$J,.84,9513.1,3,3,0)
- +204 ;;=FILE^File Number
- +205 ;;^UTILITY(U,$J,.84,9513.1,5,0)
- +206 ;;=^.841^1^1
- +207 ;;^UTILITY(U,$J,.84,9513.1,5,1,0)
- +208 ;;=DITR^I
- +209 ;;^UTILITY(U,$J,.84,9514,0)
- +210 ;;=9514^1^y^5
- +211 ;;^UTILITY(U,$J,.84,9514,1,0)
- +212 ;;=^^1^1^2940909^
- +213 ;;^UTILITY(U,$J,.84,9514,1,1,0)
- +214 ;;=Dangling pointer. File, IEN and field.
- +215 ;;^UTILITY(U,$J,.84,9514,2,0)
- +216 ;;=^^1^1^2940909^
- +217 ;;^UTILITY(U,$J,.84,9514,2,1,0)
- +218 ;;=Dangling pointer. FILE: |1|, IEN: |2| FIELD: |3|
- +219 ;;^UTILITY(U,$J,.84,9515,0)
- +220 ;;=9515^1^y^5
- +221 ;;^UTILITY(U,$J,.84,9515,1,0)
- +222 ;;=^^1^1^2940909^
- +223 ;;^UTILITY(U,$J,.84,9515,1,1,0)
- +224 ;;=No sending data on partial DDs.
- +225 ;;^UTILITY(U,$J,.84,9515,2,0)
- +226 ;;=^^1^1^2940909^