freem_fileman/USER/DINIT00S.m - view

File: [Coherent Logic Development] / freem_fileman / USER / DINIT00S.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: DINIT00S ; 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,9037,1,0) 7: ;;=^^1^1^2940316^^ 8: ;;^UTILITY(U,$J,.84,9037,1,1,0) 9: ;;=Help for leaving form 10: ;;^UTILITY(U,$J,.84,9037,2,0) 11: ;;=^^3^3^2940316^^ 12: ;;^UTILITY(U,$J,.84,9037,2,1,0) 13: ;;=Enter 'Y' to save before exiting. 14: ;;^UTILITY(U,$J,.84,9037,2,2,0) 15: ;;=Enter 'N' or '^' to exit without saving. 16: ;;^UTILITY(U,$J,.84,9037,2,3,0) 17: ;;=Press 'RETURN' to return to form 18: ;;^UTILITY(U,$J,.84,9038,0) 19: ;;=9038^3^^11 20: ;;^UTILITY(U,$J,.84,9038,1,0) 21: ;;=^^1^1^2940316^ 22: ;;^UTILITY(U,$J,.84,9038,1,1,0) 23: ;;=Help for (Sub)record delete in forms 24: ;;^UTILITY(U,$J,.84,9038,2,0) 25: ;;=^^2^2^2940316^ 26: ;;^UTILITY(U,$J,.84,9038,2,1,0) 27: ;;=Enter 'Y' to delete. 28: ;;^UTILITY(U,$J,.84,9038,2,2,0) 29: ;;=Enter 'N' or 'RETURN' to return to form. 30: ;;^UTILITY(U,$J,.84,9038,4,0) 31: ;;=^.847P^^0 32: ;;^UTILITY(U,$J,.84,9040,0) 33: ;;=9040^2^^11 34: ;;^UTILITY(U,$J,.84,9040,1,0) 35: ;;=^^1^1^2940314^ 36: ;;^UTILITY(U,$J,.84,9040,1,1,0) 37: ;;=Reader Help for Yes/No question 38: ;;^UTILITY(U,$J,.84,9040,2,0) 39: ;;=^^1^1^2940314^ 40: ;;^UTILITY(U,$J,.84,9040,2,1,0) 41: ;;=Enter either 'Y' or 'N'. 42: ;;^UTILITY(U,$J,.84,9040,4,0) 43: ;;=^.847P^^0 44: ;;^UTILITY(U,$J,.84,9041,0) 45: ;;=9041^3^^11 46: ;;^UTILITY(U,$J,.84,9041,1,0) 47: ;;=^^2^2^2940608^^^^ 48: ;;^UTILITY(U,$J,.84,9041,1,1,0) 49: ;;=Help message for why the Compare/Merge options should be run during 50: ;;^UTILITY(U,$J,.84,9041,1,2,0) 51: ;;=non-peak hours. 52: ;;^UTILITY(U,$J,.84,9041,2,0) 53: ;;=^^8^8^2940608^ 54: ;;^UTILITY(U,$J,.84,9041,2,1,0) 55: ;;= 56: ;;^UTILITY(U,$J,.84,9041,2,2,0) 57: ;;=Enter 'NO' to compare and display the two entries. 58: ;;^UTILITY(U,$J,.84,9041,2,3,0) 59: ;;=Enter 'YES' to choose valid fields from each entry then merge into the 60: ;;^UTILITY(U,$J,.84,9041,2,4,0) 61: ;;=record selected as the default. 62: ;;^UTILITY(U,$J,.84,9041,2,5,0) 63: ;;= 64: ;;^UTILITY(U,$J,.84,9041,2,6,0) 65: ;;=If you merge two entries within a file that is pointed-to by many other 66: ;;^UTILITY(U,$J,.84,9041,2,7,0) 67: ;;=files (such as the PATIENT file), then the re-pointing process can be time 68: ;;^UTILITY(U,$J,.84,9041,2,8,0) 69: ;;=consuming and can create many tasked jobs. 70: ;;^UTILITY(U,$J,.84,9101,0) 71: ;;=9101^3^^11 72: ;;^UTILITY(U,$J,.84,9101,1,0) 73: ;;=^^1^1^2930810^ 74: ;;^UTILITY(U,$J,.84,9101,1,1,0) 75: ;;=The "CHOOSE FROM:" prompt. 76: ;;^UTILITY(U,$J,.84,9101,2,0) 77: ;;=^^1^1^2930908^^ 78: ;;^UTILITY(U,$J,.84,9101,2,1,0) 79: ;;=Choose from: 80: ;;^UTILITY(U,$J,.84,9103,0) 81: ;;=9103^3^^11 82: ;;^UTILITY(U,$J,.84,9103,1,0) 83: ;;=^^2^2^2930810^^ 84: ;;^UTILITY(U,$J,.84,9103,1,1,0) 85: ;;=First line of Variable Pointer help that shows the Prefixes and Messages 86: ;;^UTILITY(U,$J,.84,9103,1,2,0) 87: ;;=for a field. 88: ;;^UTILITY(U,$J,.84,9103,2,0) 89: ;;=^^1^1^2930810^ 90: ;;^UTILITY(U,$J,.84,9103,2,1,0) 91: ;;=Enter one of the following: 92: ;;^UTILITY(U,$J,.84,9105,0) 93: ;;=9105^3^y^11^ 94: ;;^UTILITY(U,$J,.84,9105,1,0) 95: ;;=^^2^2^2931229^ 96: ;;^UTILITY(U,$J,.84,9105,1,1,0) 97: ;;=The beginning of the help text used to give list of fields that can 98: ;;^UTILITY(U,$J,.84,9105,1,2,0) 99: ;;=be used for a look-up. 100: ;;^UTILITY(U,$J,.84,9105,2,0) 101: ;;=^^1^1^2931229^ 102: ;;^UTILITY(U,$J,.84,9105,2,1,0) 103: ;;=Answer with |1|. 104: ;;^UTILITY(U,$J,.84,9105,3,0) 105: ;;=^.845^1^1 106: ;;^UTILITY(U,$J,.84,9105,3,1,0) 107: ;;=1^File name and list of fields that can be used for look-up. 108: ;;^UTILITY(U,$J,.84,9105,5,0) 109: ;;=^.841^1^1 110: ;;^UTILITY(U,$J,.84,9105,5,1,0) 111: ;;=DIE^HELP 112: ;;^UTILITY(U,$J,.84,9107,0) 113: ;;=9107^3^y^11^ 114: ;;^UTILITY(U,$J,.84,9107,1,0) 115: ;;=^^1^1^2940513^ 116: ;;^UTILITY(U,$J,.84,9107,1,1,0) 117: ;;=LAYGO allowed. 118: ;;^UTILITY(U,$J,.84,9107,2,0) 119: ;;=^^1^1^2940513^ 120: ;;^UTILITY(U,$J,.84,9107,2,1,0) 121: ;;=You may enter a new |1| if you wish. 122: ;;^UTILITY(U,$J,.84,9107,3,0) 123: ;;=^.845^1^1 124: ;;^UTILITY(U,$J,.84,9107,3,1,0) 125: ;;=1^File Name. 126: ;;^UTILITY(U,$J,.84,9110,0) 127: ;;=9110^3^y^11^ 128: ;;^UTILITY(U,$J,.84,9110,1,0) 129: ;;=^^1^1^2940223^^ 130: ;;^UTILITY(U,$J,.84,9110,1,1,0) 131: ;;=Instructions for entering date data. 132: ;;^UTILITY(U,$J,.84,9110,2,0) 133: ;;=^^6^6^2940223^^^ 134: ;;^UTILITY(U,$J,.84,9110,2,1,0) 135: ;;=Examples of Valid Dates: 136: ;;^UTILITY(U,$J,.84,9110,2,2,0) 137: ;;= JAN 20 1957 or JAN 57 or 1/20/57 |1| 138: ;;^UTILITY(U,$J,.84,9110,2,3,0) 139: ;;= T (for TODAY), T+1 (for TOMORROW), T+2, T+7, etc. 140: ;;^UTILITY(U,$J,.84,9110,2,4,0) 141: ;;=T-1 (for YESTERDAY), T-3W (for 3 WEEKS AGO), etc. 142: ;;^UTILITY(U,$J,.84,9110,2,5,0) 143: ;;=If the year is omitted, the computer |2|. 144: ;;^UTILITY(U,$J,.84,9110,2,6,0) 145: ;;=|3| 146: ;;^UTILITY(U,$J,.84,9110,3,0) 147: ;;=^.845^3^3 148: ;;^UTILITY(U,$J,.84,9110,3,1,0) 149: ;;=1^If numeric dates are allowed, " or 012057" is written.