freem_fileman/USER/DINIT014.m - view

File: [Coherent Logic Development] / freem_fileman / USER / DINIT014.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: DINIT014 ; 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,9518,0) 7: ;;=9518^1^y^11 8: ;;^UTILITY(U,$J,.84,9518,1,0) 9: ;;=^^1^1^2940909^ 10: ;;^UTILITY(U,$J,.84,9518,1,1,0) 11: ;;=DIFROM Server installed block but associated file not present. 12: ;;^UTILITY(U,$J,.84,9518,2,0) 13: ;;=^^1^1^2940909^ 14: ;;^UTILITY(U,$J,.84,9518,2,1,0) 15: ;;=|1| block installed but associated file #|2| is not on your system. 16: ;;^UTILITY(U,$J,.84,9519,0) 17: ;;=9519^1^^11 18: ;;^UTILITY(U,$J,.84,9519,1,0) 19: ;;=^^1^1^2940909^ 20: ;;^UTILITY(U,$J,.84,9519,1,1,0) 21: ;;=File number missing for "FILE-PRE" in KIDS process. 22: ;;^UTILITY(U,$J,.84,9519,2,0) 23: ;;=^^1^1^2940909^ 24: ;;^UTILITY(U,$J,.84,9519,2,1,0) 25: ;;=File number missing in "FILE-PRE". 26: ;;^UTILITY(U,$J,.84,9520,0) 27: ;;=9520^1^^11 28: ;;^UTILITY(U,$J,.84,9520,1,0) 29: ;;=^^1^1^2940909^ 30: ;;^UTILITY(U,$J,.84,9520,1,1,0) 31: ;;=Package name missing for "FILE-PRE" in KIDS process. 32: ;;^UTILITY(U,$J,.84,9520,2,0) 33: ;;=^^1^1^2940909^ 34: ;;^UTILITY(U,$J,.84,9520,2,1,0) 35: ;;=Package name missing for "FILE-PRE". 36: ;;^UTILITY(U,$J,.84,9521,0) 37: ;;=9521^1^^11 38: ;;^UTILITY(U,$J,.84,9521,1,0) 39: ;;=^^1^1^2940909^^ 40: ;;^UTILITY(U,$J,.84,9521,1,1,0) 41: ;;=Invalid file number in KIDS "ENTRY-PRE" 42: ;;^UTILITY(U,$J,.84,9521,2,0) 43: ;;=^^1^1^2940909^^ 44: ;;^UTILITY(U,$J,.84,9521,2,1,0) 45: ;;=File number invalid in "ENTRY-PRE". 46: ;;^UTILITY(U,$J,.84,9522,0) 47: ;;=9522^1^^11 48: ;;^UTILITY(U,$J,.84,9522,1,0) 49: ;;=^^1^1^2940909^ 50: ;;^UTILITY(U,$J,.84,9522,1,1,0) 51: ;;=Invalid entry number in KIDS "ENTRY-PRE" 52: ;;^UTILITY(U,$J,.84,9522,2,0) 53: ;;=^^1^1^2940909^ 54: ;;^UTILITY(U,$J,.84,9522,2,1,0) 55: ;;=Entry number invalid for "ENTRY-PRE" 56: ;;^UTILITY(U,$J,.84,9523,0) 57: ;;=9523^1^^11 58: ;;^UTILITY(U,$J,.84,9523,1,0) 59: ;;=^^1^1^2940909^^ 60: ;;^UTILITY(U,$J,.84,9523,1,1,0) 61: ;;=Invalid entry in transport array. 62: ;;^UTILITY(U,$J,.84,9523,2,0) 63: ;;=^^1^1^2940909^^ 64: ;;^UTILITY(U,$J,.84,9523,2,1,0) 65: ;;=Entry number invalid in transport array (source site DA). 66: ;;^UTILITY(U,$J,.84,9524,0) 67: ;;=9524^1^^11 68: ;;^UTILITY(U,$J,.84,9524,1,0) 69: ;;=^^1^1^2940909^^ 70: ;;^UTILITY(U,$J,.84,9524,1,1,0) 71: ;;=Package name invalid in "ENTRY-PRE". 72: ;;^UTILITY(U,$J,.84,9524,2,0) 73: ;;=^^1^1^2940909^^ 74: ;;^UTILITY(U,$J,.84,9524,2,1,0) 75: ;;=Invalid package name in "ENTRY-PRE". 76: ;;^UTILITY(U,$J,.84,9525,0) 77: ;;=9525^1^y^11 78: ;;^UTILITY(U,$J,.84,9525,1,0) 79: ;;=^^1^1^2940909^ 80: ;;^UTILITY(U,$J,.84,9525,1,1,0) 81: ;;=Package name ambigious. Pointer not resolved. 82: ;;^UTILITY(U,$J,.84,9525,2,0) 83: ;;=^^1^1^2940909^ 84: ;;^UTILITY(U,$J,.84,9525,2,1,0) 85: ;;=|1| package name is ambigious. Pointer |2| not resolved. 86: ;;^UTILITY(U,$J,.84,9526,0) 87: ;;=9526^1^^11 88: ;;^UTILITY(U,$J,.84,9526,1,0) 89: ;;=^^1^1^2940909^ 90: ;;^UTILITY(U,$J,.84,9526,1,1,0) 91: ;;=ZSave not defined in MUMPS Operating file. Can not compile templates. 92: ;;^UTILITY(U,$J,.84,9526,2,0) 93: ;;=^^1^1^2940909^ 94: ;;^UTILITY(U,$J,.84,9526,2,1,0) 95: ;;=Unable to compile templates. ZSave undefined in OS file. 96: ;;^UTILITY(U,$J,.84,9527,0) 97: ;;=9527^1^y^11 98: ;;^UTILITY(U,$J,.84,9527,1,0) 99: ;;=^^1^1^2940909^^^ 100: ;;^UTILITY(U,$J,.84,9527,1,1,0) 101: ;;=Invalid form. DIFROM Server is unable to compile. 102: ;;^UTILITY(U,$J,.84,9527,2,0) 103: ;;=^^1^1^2940909^ 104: ;;^UTILITY(U,$J,.84,9527,2,1,0) 105: ;;=|1| form invalid. Can not be compiled by KIDS process. 106: ;;^UTILITY(U,$J,.84,9528,0) 107: ;;=9528^1^y^11 108: ;;^UTILITY(U,$J,.84,9528,1,0) 109: ;;=^^1^1^2940909^ 110: ;;^UTILITY(U,$J,.84,9528,1,1,0) 111: ;;=Template can not be compiled. 112: ;;^UTILITY(U,$J,.84,9528,2,0) 113: ;;=^^1^1^2940909^ 114: ;;^UTILITY(U,$J,.84,9528,2,1,0) 115: ;;=|1| template |2| is invalid. KIDS process can not compile. 116: ;;^UTILITY(U,$J,.84,9529,0) 117: ;;=9529^1^^11 118: ;;^UTILITY(U,$J,.84,9529,1,0) 119: ;;=^^1^1^2940909^ 120: ;;^UTILITY(U,$J,.84,9529,1,1,0) 121: ;;=Template or form file number is invalid. DIFROM Server/KIDS 122: ;;^UTILITY(U,$J,.84,9529,2,0) 123: ;;=^^1^1^2940909^ 124: ;;^UTILITY(U,$J,.84,9529,2,1,0) 125: ;;=Template or form file number is invalid. 126: ;;^UTILITY(U,$J,.84,9530,0) 127: ;;=9530^1^^11 128: ;;^UTILITY(U,$J,.84,9530,1,0) 129: ;;=^^1^1^2940909^ 130: ;;^UTILITY(U,$J,.84,9530,1,1,0) 131: ;;=Transport package name is invalid. (KIDS) 132: ;;^UTILITY(U,$J,.84,9530,2,0) 133: ;;=^^1^1^2940909^ 134: ;;^UTILITY(U,$J,.84,9530,2,1,0) 135: ;;=Transport package name is invalid. (DIFROM Server/KIDS) 136: ;;^UTILITY(U,$J,.84,9531,0) 137: ;;=9531^1^^11 138: ;;^UTILITY(U,$J,.84,9531,1,0) 139: ;;=^^1^1^2940909^ 140: ;;^UTILITY(U,$J,.84,9531,1,1,0) 141: ;;=Invalid EDE(s). 142: ;;^UTILITY(U,$J,.84,9531,2,0) 143: ;;=^^1^1^2940909^ 144: ;;^UTILITY(U,$J,.84,9531,2,1,0) 145: ;;=Invalid EDE(s). (DIFROM Server/KIDS)