freem_fileman/USER/DINIT00M.m - view

File: [Coherent Logic Development] / freem_fileman / USER / DINIT00M.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: DINIT00M ; 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,8044,2,0) 7: ;;=^^1^1^2940314^^ 8: ;;^UTILITY(U,$J,.84,8044,2,1,0) 9: ;;= and optional time 10: ;;^UTILITY(U,$J,.84,8044,4,0) 11: ;;=^.847P^^0 12: ;;^UTILITY(U,$J,.84,8045,0) 13: ;;=8045^2^y^11^ 14: ;;^UTILITY(U,$J,.84,8045,1,0) 15: ;;=^^3^3^2940310^^^^ 16: ;;^UTILITY(U,$J,.84,8045,1,1,0) 17: ;;=This prompt is used by the reader when he is building prompts for 18: ;;^UTILITY(U,$J,.84,8045,1,2,0) 19: ;;=Set-of-codes type data. 20: ;;^UTILITY(U,$J,.84,8045,1,3,0) 21: ;;=Note: Dialog will be used with $$EZBLD^DIALOG call, only one text line!! 22: ;;^UTILITY(U,$J,.84,8045,2,0) 23: ;;=^^1^1^2940310^^^ 24: ;;^UTILITY(U,$J,.84,8045,2,1,0) 25: ;;=Enter |1|: 26: ;;^UTILITY(U,$J,.84,8045,3,0) 27: ;;=^.845^1^1 28: ;;^UTILITY(U,$J,.84,8045,3,1,0) 29: ;;=1^Default Prompt from DIR("A") 30: ;;^UTILITY(U,$J,.84,8045,4,0) 31: ;;=^.847P^^0 32: ;;^UTILITY(U,$J,.84,8046,0) 33: ;;=8046^2^^11 34: ;;^UTILITY(U,$J,.84,8046,1,0) 35: ;;=^^1^1^2940310^ 36: ;;^UTILITY(U,$J,.84,8046,1,1,0) 37: ;;=Reader prompt for choices from a list 38: ;;^UTILITY(U,$J,.84,8046,2,0) 39: ;;=^^1^1^2940310^ 40: ;;^UTILITY(U,$J,.84,8046,2,1,0) 41: ;;=Select one of the following: 42: ;;^UTILITY(U,$J,.84,8046,4,0) 43: ;;=^.847P^^0 44: ;;^UTILITY(U,$J,.84,8047,0) 45: ;;=8047^2^^11 46: ;;^UTILITY(U,$J,.84,8047,1,0) 47: ;;=^^1^1^2940315^^^^ 48: ;;^UTILITY(U,$J,.84,8047,1,1,0) 49: ;;=Part one of the Replace with prompt (including spaces). 50: ;;^UTILITY(U,$J,.84,8047,2,0) 51: ;;=^^1^1^2940315^^^^ 52: ;;^UTILITY(U,$J,.84,8047,2,1,0) 53: ;;= Replace 54: ;;^UTILITY(U,$J,.84,8047,4,0) 55: ;;=^.847P^^0 56: ;;^UTILITY(U,$J,.84,8048,0) 57: ;;=8048^2^^11 58: ;;^UTILITY(U,$J,.84,8048,1,0) 59: ;;=^^1^1^2940310^ 60: ;;^UTILITY(U,$J,.84,8048,1,1,0) 61: ;;=Part two of the Replace With editor (including spaces). 62: ;;^UTILITY(U,$J,.84,8048,2,0) 63: ;;=^^1^1^2940310^ 64: ;;^UTILITY(U,$J,.84,8048,2,1,0) 65: ;;= With 66: ;;^UTILITY(U,$J,.84,8048,4,0) 67: ;;=^.847P^^0 68: ;;^UTILITY(U,$J,.84,8051,0) 69: ;;=8051^2^^11 70: ;;^UTILITY(U,$J,.84,8051,1,0) 71: ;;=^^1^1^2940310^ 72: ;;^UTILITY(U,$J,.84,8051,1,1,0) 73: ;;=Reader prompt 74: ;;^UTILITY(U,$J,.84,8051,2,0) 75: ;;=^^1^1^2940310^ 76: ;;^UTILITY(U,$J,.84,8051,2,1,0) 77: ;;=Enter response: 78: ;;^UTILITY(U,$J,.84,8051,4,0) 79: ;;=^.847P^^0 80: ;;^UTILITY(U,$J,.84,8052,0) 81: ;;=8052^2^^11 82: ;;^UTILITY(U,$J,.84,8052,1,0) 83: ;;=^^1^1^2940310^ 84: ;;^UTILITY(U,$J,.84,8052,1,1,0) 85: ;;=Prompt for the reader 86: ;;^UTILITY(U,$J,.84,8052,2,0) 87: ;;=^^1^1^2940310^ 88: ;;^UTILITY(U,$J,.84,8052,2,1,0) 89: ;;=Enter Yes or No: 90: ;;^UTILITY(U,$J,.84,8052,4,0) 91: ;;=^.847P^^0 92: ;;^UTILITY(U,$J,.84,8053,0) 93: ;;=8053^2^^11 94: ;;^UTILITY(U,$J,.84,8053,1,0) 95: ;;=^^1^1^2940316^^ 96: ;;^UTILITY(U,$J,.84,8053,1,1,0) 97: ;;=Prompt for the reader: End of page 98: ;;^UTILITY(U,$J,.84,8053,2,0) 99: ;;=^^1^1^2940316^^ 100: ;;^UTILITY(U,$J,.84,8053,2,1,0) 101: ;;=Enter RETURN to continue or '^' to exit: 102: ;;^UTILITY(U,$J,.84,8053,4,0) 103: ;;=^.847P^^0 104: ;;^UTILITY(U,$J,.84,8054,0) 105: ;;=8054^2^^11 106: ;;^UTILITY(U,$J,.84,8054,1,0) 107: ;;=^^1^1^2940310^^ 108: ;;^UTILITY(U,$J,.84,8054,1,1,0) 109: ;;=Prompt for the reader: numbers 110: ;;^UTILITY(U,$J,.84,8054,2,0) 111: ;;=^^1^1^2940310^^ 112: ;;^UTILITY(U,$J,.84,8054,2,1,0) 113: ;;=Enter a number 114: ;;^UTILITY(U,$J,.84,8054,4,0) 115: ;;=^.847P^^0 116: ;;^UTILITY(U,$J,.84,8055,0) 117: ;;=8055^2^^11 118: ;;^UTILITY(U,$J,.84,8055,1,0) 119: ;;=^^1^1^2940310^ 120: ;;^UTILITY(U,$J,.84,8055,1,1,0) 121: ;;=Prompt for the reader: date 122: ;;^UTILITY(U,$J,.84,8055,2,0) 123: ;;=^^1^1^2940310^ 124: ;;^UTILITY(U,$J,.84,8055,2,1,0) 125: ;;=Enter a date 126: ;;^UTILITY(U,$J,.84,8055,4,0) 127: ;;=^.847P^^0 128: ;;^UTILITY(U,$J,.84,8056,0) 129: ;;=8056^2^^11 130: ;;^UTILITY(U,$J,.84,8056,1,0) 131: ;;=^^1^1^2940310^ 132: ;;^UTILITY(U,$J,.84,8056,1,1,0) 133: ;;=Prompt for the reader: List 134: ;;^UTILITY(U,$J,.84,8056,2,0) 135: ;;=^^1^1^2940310^ 136: ;;^UTILITY(U,$J,.84,8056,2,1,0) 137: ;;=Enter a list or range of numbers 138: ;;^UTILITY(U,$J,.84,8056,4,0) 139: ;;=^.847P^^0 140: ;;^UTILITY(U,$J,.84,8057,0) 141: ;;=8057^2^^11 142: ;;^UTILITY(U,$J,.84,8057,1,0) 143: ;;=^^1^1^2940310^ 144: ;;^UTILITY(U,$J,.84,8057,1,1,0) 145: ;;=Prompt for the Reader: Pointers 146: ;;^UTILITY(U,$J,.84,8057,2,0) 147: ;;=^^1^1^2940310^ 148: ;;^UTILITY(U,$J,.84,8057,2,1,0) 149: ;;=Select: 150: ;;^UTILITY(U,$J,.84,8057,4,0) 151: ;;=^.847P^^0 152: ;;^UTILITY(U,$J,.84,8058,0) 153: ;;=8058^2^y^11^ 154: ;;^UTILITY(U,$J,.84,8058,1,0) 155: ;;=^^1^1^2940314^ 156: ;;^UTILITY(U,$J,.84,8058,1,1,0) 157: ;;=Part II of the 'Are you adding a new...' question 158: ;;^UTILITY(U,$J,.84,8058,2,0) 159: ;;=^^1^1^2940314^ 160: ;;^UTILITY(U,$J,.84,8058,2,1,0) 161: ;;= (the |1| 162: ;;^UTILITY(U,$J,.84,8058,3,0) 163: ;;=^.845^1^1 164: ;;^UTILITY(U,$J,.84,8058,3,1,0) 165: ;;=1^Ordinal number of new entry 166: ;;^UTILITY(U,$J,.84,8058,4,0) 167: ;;=^.847P^^0 168: ;;^UTILITY(U,$J,.84,8059,0) 169: ;;=8059^2^y^11^