freem_fileman/USER/DINIT00B.m - view

File: [Coherent Logic Development] / freem_fileman / USER / DINIT00B.m
Revision 1.1: download - view: text, annotated - select for diffs
Mon Apr 28 14:13:20 2025 UTC (3 months ago) by snw
Branches: MAIN
CVS tags: HEAD

Restructure repository

1: DINIT00B ; SFISC/TKW-DIALOG & LANGUAGE FILE INITS ; 12/22/94 09:32:23 2: ;;21.0;VA FileMan;;Dec 28, 1994 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,710,3,1,0) 7: ;;=FIELD^Field number. 8: ;;^UTILITY(U,$J,.84,710,3,2,0) 9: ;;=FILE^File number. 10: ;;^UTILITY(U,$J,.84,712,0) 11: ;;=712^1^y^11^ 12: ;;^UTILITY(U,$J,.84,712,1,0) 13: ;;=^^3^3^2931109^ 14: ;;^UTILITY(U,$J,.84,712,1,1,0) 15: ;;=The value of a field cannot be deleted either because it is a required 16: ;;^UTILITY(U,$J,.84,712,1,2,0) 17: ;;=field, because it is the .01 of a file, or because the test in the "DEL" 18: ;;^UTILITY(U,$J,.84,712,1,3,0) 19: ;;=node was not passed. 20: ;;^UTILITY(U,$J,.84,712,2,0) 21: ;;=^^1^1^2931109^ 22: ;;^UTILITY(U,$J,.84,712,2,1,0) 23: ;;=The value of field |1| in file |2| cannot be deleted. 24: ;;^UTILITY(U,$J,.84,712,3,0) 25: ;;=^.845^4^4 26: ;;^UTILITY(U,$J,.84,712,3,1,0) 27: ;;=1^Field name. 28: ;;^UTILITY(U,$J,.84,712,3,2,0) 29: ;;=2^File name. 30: ;;^UTILITY(U,$J,.84,712,3,3,0) 31: ;;=FIELD^Field number. (external only) 32: ;;^UTILITY(U,$J,.84,712,3,4,0) 33: ;;=FILE^File number. (external only) 34: ;;^UTILITY(U,$J,.84,712,5,0) 35: ;;=^.841^1^1 36: ;;^UTILITY(U,$J,.84,712,5,1,0) 37: ;;=DIE^FILE 38: ;;^UTILITY(U,$J,.84,714,0) 39: ;;=714^1^y^11^ 40: ;;^UTILITY(U,$J,.84,714,1,0) 41: ;;=^^2^2^2931109^^ 42: ;;^UTILITY(U,$J,.84,714,1,1,0) 43: ;;=The field uses $Piece storage and the data contains an '^'. The data 44: ;;^UTILITY(U,$J,.84,714,1,2,0) 45: ;;=cannot be filed. 46: ;;^UTILITY(U,$J,.84,714,2,0) 47: ;;=^^1^1^2931109^^ 48: ;;^UTILITY(U,$J,.84,714,2,1,0) 49: ;;=Data for Field |1| in File |2| contains an '^'. 50: ;;^UTILITY(U,$J,.84,714,3,0) 51: ;;=^.845^4^4 52: ;;^UTILITY(U,$J,.84,714,3,1,0) 53: ;;=1^Field name. 54: ;;^UTILITY(U,$J,.84,714,3,2,0) 55: ;;=2^File name. 56: ;;^UTILITY(U,$J,.84,714,3,3,0) 57: ;;=FILE^File number. (external only) 58: ;;^UTILITY(U,$J,.84,714,3,4,0) 59: ;;=FIELD^Field number. (external only) 60: ;;^UTILITY(U,$J,.84,714,5,0) 61: ;;=^.841^1^1 62: ;;^UTILITY(U,$J,.84,714,5,1,0) 63: ;;=DIE^FILE 64: ;;^UTILITY(U,$J,.84,716,0) 65: ;;=716^1^y^11^ 66: ;;^UTILITY(U,$J,.84,716,1,0) 67: ;;=^^2^2^2931109^ 68: ;;^UTILITY(U,$J,.84,716,1,1,0) 69: ;;=Data being filed is too long for the field. Specifically, this occurs 70: ;;^UTILITY(U,$J,.84,716,1,2,0) 71: ;;=when data of the wrong length is being filed in a $Extract (Em,n) field. 72: ;;^UTILITY(U,$J,.84,716,2,0) 73: ;;=^^1^1^2931109^ 74: ;;^UTILITY(U,$J,.84,716,2,1,0) 75: ;;=Data for field |1| in file |2| is too long. 76: ;;^UTILITY(U,$J,.84,716,3,0) 77: ;;=^.845^4^4 78: ;;^UTILITY(U,$J,.84,716,3,1,0) 79: ;;=1^Field name. 80: ;;^UTILITY(U,$J,.84,716,3,2,0) 81: ;;=2^File name. 82: ;;^UTILITY(U,$J,.84,716,3,3,0) 83: ;;=FIELD^Field number. (external only) 84: ;;^UTILITY(U,$J,.84,716,3,4,0) 85: ;;=FILE^File number. (external only) 86: ;;^UTILITY(U,$J,.84,716,5,0) 87: ;;=^.841^1^1 88: ;;^UTILITY(U,$J,.84,716,5,1,0) 89: ;;=DIE^FILE 90: ;;^UTILITY(U,$J,.84,720,0) 91: ;;=720^1^^11 92: ;;^UTILITY(U,$J,.84,720,1,0) 93: ;;=^^2^2^2931110^^ 94: ;;^UTILITY(U,$J,.84,720,1,1,0) 95: ;;=The lookup for a pointer fails. This is an error only when 96: ;;^UTILITY(U,$J,.84,720,1,2,0) 97: ;;=LAYGO is not allowed. 98: ;;^UTILITY(U,$J,.84,720,2,0) 99: ;;=^^1^1^2931109^ 100: ;;^UTILITY(U,$J,.84,720,2,1,0) 101: ;;=The value cannot be found in the pointed-to file. 102: ;;^UTILITY(U,$J,.84,720,3,0) 103: ;;=^.845^2^2 104: ;;^UTILITY(U,$J,.84,720,3,1,0) 105: ;;=FILE^File number -- the number of the file in which the pointer field exists. 106: ;;^UTILITY(U,$J,.84,720,3,2,0) 107: ;;=FIELD^Field number of the pointer field. 108: ;;^UTILITY(U,$J,.84,726,0) 109: ;;=726^1^y^11^ 110: ;;^UTILITY(U,$J,.84,726,1,0) 111: ;;=^^2^2^2931110^ 112: ;;^UTILITY(U,$J,.84,726,1,1,0) 113: ;;=There is an attempt to take an action with word processing data, but 114: ;;^UTILITY(U,$J,.84,726,1,2,0) 115: ;;=the specified field is not a word processing field. 116: ;;^UTILITY(U,$J,.84,726,2,0) 117: ;;=^^1^1^2931110^ 118: ;;^UTILITY(U,$J,.84,726,2,1,0) 119: ;;=Field #|FIELD| in File #|FILE| is not a word processing field. 120: ;;^UTILITY(U,$J,.84,726,3,0) 121: ;;=^.845^2^2 122: ;;^UTILITY(U,$J,.84,726,3,1,0) 123: ;;=FIELD^Field number. 124: ;;^UTILITY(U,$J,.84,726,3,2,0) 125: ;;=FILE^File number. 126: ;;^UTILITY(U,$J,.84,730,0) 127: ;;=730^1^y^11^ 128: ;;^UTILITY(U,$J,.84,730,1,0) 129: ;;=^^2^2^2941128^ 130: ;;^UTILITY(U,$J,.84,730,1,1,0) 131: ;;=Based on how the data type is defined by a specific field in a specific 132: ;;^UTILITY(U,$J,.84,730,1,2,0) 133: ;;=file, the passed value is not valid. 134: ;;^UTILITY(U,$J,.84,730,2,0) 135: ;;=^^2^2^2941128^ 136: ;;^UTILITY(U,$J,.84,730,2,1,0) 137: ;;=The value '|1|' is not a valid |2| according to the definition in Field 138: ;;^UTILITY(U,$J,.84,730,2,2,0) 139: ;;=#|FIELD| of File #|FILE|. 140: ;;^UTILITY(U,$J,.84,730,3,0) 141: ;;=^.845^4^4 142: ;;^UTILITY(U,$J,.84,730,3,1,0) 143: ;;=1^Passed Value. 144: ;;^UTILITY(U,$J,.84,730,3,2,0) 145: ;;=2^Data Type.