freem_fileman/USER/DINIT00N.m - view

File: [Coherent Logic Development] / freem_fileman / USER / DINIT00N.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: DINIT00N ; 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,8059,1,0) 7: ;;=^^1^1^2940314^ 8: ;;^UTILITY(U,$J,.84,8059,1,1,0) 9: ;;=Part III of the 'Are you adding a new...' question 10: ;;^UTILITY(U,$J,.84,8059,2,0) 11: ;;=^^1^1^2940314^ 12: ;;^UTILITY(U,$J,.84,8059,2,1,0) 13: ;;= for this |1| 14: ;;^UTILITY(U,$J,.84,8059,3,0) 15: ;;=^.845^1^1 16: ;;^UTILITY(U,$J,.84,8059,3,1,0) 17: ;;=1^Filename 18: ;;^UTILITY(U,$J,.84,8059,4,0) 19: ;;=^.847P^^0 20: ;;^UTILITY(U,$J,.84,8060,0) 21: ;;=8060^2^^11 22: ;;^UTILITY(U,$J,.84,8060,1,0) 23: ;;=^^1^1^2940314^^ 24: ;;^UTILITY(U,$J,.84,8060,1,1,0) 25: ;;=Part Ia of the 'Are you adding...' message 26: ;;^UTILITY(U,$J,.84,8060,2,0) 27: ;;=^^1^1^2940314^^ 28: ;;^UTILITY(U,$J,.84,8060,2,1,0) 29: ;;= Are you adding 30: ;;^UTILITY(U,$J,.84,8060,4,0) 31: ;;=^.847P^^0 32: ;;^UTILITY(U,$J,.84,8061,0) 33: ;;=8061^2^y^11^ 34: ;;^UTILITY(U,$J,.84,8061,1,0) 35: ;;=^^1^1^2940314^ 36: ;;^UTILITY(U,$J,.84,8061,1,1,0) 37: ;;=Part Ib of the 'Are you adding...' question 38: ;;^UTILITY(U,$J,.84,8061,2,0) 39: ;;=^^1^1^2940314^ 40: ;;^UTILITY(U,$J,.84,8061,2,1,0) 41: ;;='|1|' as 42: ;;^UTILITY(U,$J,.84,8061,3,0) 43: ;;=^.845^1^1 44: ;;^UTILITY(U,$J,.84,8061,3,1,0) 45: ;;=1^Input value for .01 field 46: ;;^UTILITY(U,$J,.84,8061,4,0) 47: ;;=^.847P^^0 48: ;;^UTILITY(U,$J,.84,8062,0) 49: ;;=8062^2^y^11^ 50: ;;^UTILITY(U,$J,.84,8062,1,0) 51: ;;=^^1^1^2940314^^^ 52: ;;^UTILITY(U,$J,.84,8062,1,1,0) 53: ;;=Part Ic of the "Are you adding..." message 54: ;;^UTILITY(U,$J,.84,8062,2,0) 55: ;;=^^1^1^2940314^^^^ 56: ;;^UTILITY(U,$J,.84,8062,2,1,0) 57: ;;=a new |1| 58: ;;^UTILITY(U,$J,.84,8062,3,0) 59: ;;=^.845^1^1 60: ;;^UTILITY(U,$J,.84,8062,3,1,0) 61: ;;=1^Filename 62: ;;^UTILITY(U,$J,.84,8062,4,0) 63: ;;=^.847P^^0 64: ;;^UTILITY(U,$J,.84,8063,0) 65: ;;=8063^2^y^11^ 66: ;;^UTILITY(U,$J,.84,8063,1,0) 67: ;;=^^1^1^2940314^ 68: ;;^UTILITY(U,$J,.84,8063,1,1,0) 69: ;;=Lookup Part I 70: ;;^UTILITY(U,$J,.84,8063,2,0) 71: ;;=^^1^1^2940314^ 72: ;;^UTILITY(U,$J,.84,8063,2,1,0) 73: ;;= Answer with |1| 74: ;;^UTILITY(U,$J,.84,8063,3,0) 75: ;;=^.845^1^1 76: ;;^UTILITY(U,$J,.84,8063,3,1,0) 77: ;;=1^Filename 78: ;;^UTILITY(U,$J,.84,8063,4,0) 79: ;;=^.847P^^0 80: ;;^UTILITY(U,$J,.84,8064,0) 81: ;;=8064^2^^11 82: ;;^UTILITY(U,$J,.84,8064,1,0) 83: ;;=^^1^1^2940314^ 84: ;;^UTILITY(U,$J,.84,8064,1,1,0) 85: ;;=Lookup Part II 86: ;;^UTILITY(U,$J,.84,8064,2,0) 87: ;;=^^1^1^2940314^ 88: ;;^UTILITY(U,$J,.84,8064,2,1,0) 89: ;;= Do you want the entire 90: ;;^UTILITY(U,$J,.84,8064,4,0) 91: ;;=^.847P^^0 92: ;;^UTILITY(U,$J,.84,8065,0) 93: ;;=8065^2^y^11^ 94: ;;^UTILITY(U,$J,.84,8065,1,0) 95: ;;=^^1^1^2940314^^ 96: ;;^UTILITY(U,$J,.84,8065,1,1,0) 97: ;;=Lookup Part III 98: ;;^UTILITY(U,$J,.84,8065,2,0) 99: ;;=^^1^1^2940314^^^ 100: ;;^UTILITY(U,$J,.84,8065,2,1,0) 101: ;;=|1|-Entry 102: ;;^UTILITY(U,$J,.84,8065,3,0) 103: ;;=^.845^1^1 104: ;;^UTILITY(U,$J,.84,8065,3,1,0) 105: ;;=1^Number of entries in list 106: ;;^UTILITY(U,$J,.84,8065,4,0) 107: ;;=^.847P^^0 108: ;;^UTILITY(U,$J,.84,8066,0) 109: ;;=8066^2^y^11^ 110: ;;^UTILITY(U,$J,.84,8066,1,0) 111: ;;=^^1^1^2940314^ 112: ;;^UTILITY(U,$J,.84,8066,1,1,0) 113: ;;=Lookup Part IV 114: ;;^UTILITY(U,$J,.84,8066,2,0) 115: ;;=^^1^1^2940314^ 116: ;;^UTILITY(U,$J,.84,8066,2,1,0) 117: ;;=|1| List 118: ;;^UTILITY(U,$J,.84,8066,3,0) 119: ;;=^.845^1^1 120: ;;^UTILITY(U,$J,.84,8066,3,1,0) 121: ;;=1^Filename 122: ;;^UTILITY(U,$J,.84,8066,4,0) 123: ;;=^.847P^^0 124: ;;^UTILITY(U,$J,.84,8067,0) 125: ;;=8067^2^^11 126: ;;^UTILITY(U,$J,.84,8067,1,0) 127: ;;=^^1^1^2940314^ 128: ;;^UTILITY(U,$J,.84,8067,1,1,0) 129: ;;=For list of Fields on Lookup 130: ;;^UTILITY(U,$J,.84,8067,2,0) 131: ;;=^^1^1^2940314^ 132: ;;^UTILITY(U,$J,.84,8067,2,1,0) 133: ;;=, or 134: ;;^UTILITY(U,$J,.84,8067,4,0) 135: ;;=^.847P^^0 136: ;;^UTILITY(U,$J,.84,8068,0) 137: ;;=8068^2^^11 138: ;;^UTILITY(U,$J,.84,8068,1,0) 139: ;;=^^1^1^2940314^ 140: ;;^UTILITY(U,$J,.84,8068,1,1,0) 141: ;;=The Chooser 142: ;;^UTILITY(U,$J,.84,8068,2,0) 143: ;;=^^1^1^2940314^ 144: ;;^UTILITY(U,$J,.84,8068,2,1,0) 145: ;;=Choose from: 146: ;;^UTILITY(U,$J,.84,8068,4,0) 147: ;;=^.847P^^0 148: ;;^UTILITY(U,$J,.84,8069,0) 149: ;;=8069^2^y^11^ 150: ;;^UTILITY(U,$J,.84,8069,1,0) 151: ;;=^^1^1^2940314^ 152: ;;^UTILITY(U,$J,.84,8069,1,1,0) 153: ;;=New entry allowed message 154: ;;^UTILITY(U,$J,.84,8069,2,0) 155: ;;=^^1^1^2940315^^ 156: ;;^UTILITY(U,$J,.84,8069,2,1,0) 157: ;;=You may enter a new |1|, if you wish 158: ;;^UTILITY(U,$J,.84,8069,3,0) 159: ;;=^.845^1^1 160: ;;^UTILITY(U,$J,.84,8069,3,1,0) 161: ;;=1^Filename 162: ;;^UTILITY(U,$J,.84,8069,4,0) 163: ;;=^.847P^^0 164: ;;^UTILITY(U,$J,.84,8070,0) 165: ;;=8070^2^y^11^ 166: ;;^UTILITY(U,$J,.84,8070,1,0) 167: ;;=^^1^1^2940314^ 168: ;;^UTILITY(U,$J,.84,8070,1,1,0) 169: ;;=Variable Pointer Lookup 170: ;;^UTILITY(U,$J,.84,8070,2,0) 171: ;;=^^1^1^2940314^ 172: ;;^UTILITY(U,$J,.84,8070,2,1,0) 173: ;;= Searching for a |1| 174: ;;^UTILITY(U,$J,.84,8070,3,0) 175: ;;=^.845^1^1 176: ;;^UTILITY(U,$J,.84,8070,3,1,0) 177: ;;=1^Filename 178: ;;^UTILITY(U,$J,.84,8070,4,0) 179: ;;=^.847P^^0