freem_fileman/USER/DINIT00J.m - view

File: [Coherent Logic Development] / freem_fileman / USER / DINIT00J.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: DINIT00J ; 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,8019,5,1,0) 7: ;;=DIU0^6 8: ;;^UTILITY(U,$J,.84,8020,0) 9: ;;=8020^2^^11 10: ;;^UTILITY(U,$J,.84,8020,1,0) 11: ;;=^^2^2^2931110^^^^ 12: ;;^UTILITY(U,$J,.84,8020,1,1,0) 13: ;;=This prompt asks the user whether they are ready to compile, when 14: ;;^UTILITY(U,$J,.84,8020,1,2,0) 15: ;;=compiling TEMPLATES or CROSS-REFERENCES. 16: ;;^UTILITY(U,$J,.84,8020,2,0) 17: ;;=^^1^1^2931110^^ 18: ;;^UTILITY(U,$J,.84,8020,2,1,0) 19: ;;=Should the compilation run now 20: ;;^UTILITY(U,$J,.84,8020,5,0) 21: ;;=^.841^4^4 22: ;;^UTILITY(U,$J,.84,8020,5,1,0) 23: ;;=DIU0^6 24: ;;^UTILITY(U,$J,.84,8020,5,2,0) 25: ;;=DIPZ^ 26: ;;^UTILITY(U,$J,.84,8020,5,3,0) 27: ;;=DIKZ^ 28: ;;^UTILITY(U,$J,.84,8020,5,4,0) 29: ;;=DIEZ^ 30: ;;^UTILITY(U,$J,.84,8021,0) 31: ;;=8021^2^^11 32: ;;^UTILITY(U,$J,.84,8021,1,0) 33: ;;=^^3^3^2931109^ 34: ;;^UTILITY(U,$J,.84,8021,1,1,0) 35: ;;=Message from editing the CROSS-REFERENCE ROUTINE. If this field is 36: ;;^UTILITY(U,$J,.84,8021,1,2,0) 37: ;;=deleted, the message notifies the user that the compiled routines will no 38: ;;^UTILITY(U,$J,.84,8021,1,3,0) 39: ;;=longer be used for re-indexing. 40: ;;^UTILITY(U,$J,.84,8021,2,0) 41: ;;=^^1^1^2931109^ 42: ;;^UTILITY(U,$J,.84,8021,2,1,0) 43: ;;=The compiled routines will no longer be used for re-indexing. 44: ;;^UTILITY(U,$J,.84,8021,5,0) 45: ;;=^.841^1^1 46: ;;^UTILITY(U,$J,.84,8021,5,1,0) 47: ;;=DIU0^6 48: ;;^UTILITY(U,$J,.84,8022,0) 49: ;;=8022^2^^11 50: ;;^UTILITY(U,$J,.84,8022,1,0) 51: ;;=^^2^2^2931110^^^ 52: ;;^UTILITY(U,$J,.84,8022,1,1,0) 53: ;;=Used when compiling PRINT templates, this is the prompt for the margin 54: ;;^UTILITY(U,$J,.84,8022,1,2,0) 55: ;;=width to be used for the printed report. 56: ;;^UTILITY(U,$J,.84,8022,2,0) 57: ;;=^^1^1^2931112^ 58: ;;^UTILITY(U,$J,.84,8022,2,1,0) 59: ;;=Margin Width for output 60: ;;^UTILITY(U,$J,.84,8022,5,0) 61: ;;=^.841^1^1 62: ;;^UTILITY(U,$J,.84,8022,5,1,0) 63: ;;=DIPZ^ 64: ;;^UTILITY(U,$J,.84,8023,0) 65: ;;=8023^2^^11 66: ;;^UTILITY(U,$J,.84,8023,1,0) 67: ;;=^^2^2^2931110^^^^ 68: ;;^UTILITY(U,$J,.84,8023,1,1,0) 69: ;;=This is the help prompt for MARGIN WIDTH FOR OUTPUT, used when compiling 70: ;;^UTILITY(U,$J,.84,8023,1,2,0) 71: ;;=PRINT templates. 72: ;;^UTILITY(U,$J,.84,8023,2,0) 73: ;;=^^2^2^2931110^^^^ 74: ;;^UTILITY(U,$J,.84,8023,2,1,0) 75: ;;=Type a number from 19 to 255. This is the number of columns 76: ;;^UTILITY(U,$J,.84,8023,2,2,0) 77: ;;=on the report 78: ;;^UTILITY(U,$J,.84,8023,5,0) 79: ;;=^.841^1^1 80: ;;^UTILITY(U,$J,.84,8023,5,1,0) 81: ;;=DIPZ^ 82: ;;^UTILITY(U,$J,.84,8024,0) 83: ;;=8024^2^y^11^ 84: ;;^UTILITY(U,$J,.84,8024,1,0) 85: ;;=^^1^1^2931110^^^^ 86: ;;^UTILITY(U,$J,.84,8024,1,1,0) 87: ;;=This is the text that tells the user they are now compiling routines. 88: ;;^UTILITY(U,$J,.84,8024,2,0) 89: ;;=^^1^1^2931110^^^^ 90: ;;^UTILITY(U,$J,.84,8024,2,1,0) 91: ;;=Compiling |1| |2| of File |3|. 92: ;;^UTILITY(U,$J,.84,8024,3,0) 93: ;;=^.845^3^3 94: ;;^UTILITY(U,$J,.84,8024,3,1,0) 95: ;;=1^Name of template, if compiling templates. 96: ;;^UTILITY(U,$J,.84,8024,3,2,0) 97: ;;=2^The words "print template", "cross-references", etc. (i.e., what is being compiled). 98: ;;^UTILITY(U,$J,.84,8024,3,3,0) 99: ;;=3^File name 100: ;;^UTILITY(U,$J,.84,8024,5,0) 101: ;;=^.841^6^6 102: ;;^UTILITY(U,$J,.84,8024,5,1,0) 103: ;;=DIPZ^ 104: ;;^UTILITY(U,$J,.84,8024,5,2,0) 105: ;;=DIPZ^EN 106: ;;^UTILITY(U,$J,.84,8024,5,3,0) 107: ;;=DIEZ^ 108: ;;^UTILITY(U,$J,.84,8024,5,4,0) 109: ;;=DIEZ^EN 110: ;;^UTILITY(U,$J,.84,8024,5,5,0) 111: ;;=DIKZ^ 112: ;;^UTILITY(U,$J,.84,8024,5,6,0) 113: ;;=DIKZ^EN 114: ;;^UTILITY(U,$J,.84,8025,0) 115: ;;=8025^2^y^11^ 116: ;;^UTILITY(U,$J,.84,8025,1,0) 117: ;;=^^2^2^2931110^^ 118: ;;^UTILITY(U,$J,.84,8025,1,1,0) 119: ;;=Notify user that a routine has been filed. Used during compilation of 120: ;;^UTILITY(U,$J,.84,8025,1,2,0) 121: ;;=TEMPLATES and CROSS-REFERENCES. 122: ;;^UTILITY(U,$J,.84,8025,2,0) 123: ;;=^^1^1^2931110^^^ 124: ;;^UTILITY(U,$J,.84,8025,2,1,0) 125: ;;='|1|' ROUTINE FILED. 126: ;;^UTILITY(U,$J,.84,8025,3,0) 127: ;;=^.845^1^1 128: ;;^UTILITY(U,$J,.84,8025,3,1,0) 129: ;;=1^Routine name 130: ;;^UTILITY(U,$J,.84,8025,5,0) 131: ;;=^.841^8^7 132: ;;^UTILITY(U,$J,.84,8025,5,1,0) 133: ;;=DIKZ^ 134: ;;^UTILITY(U,$J,.84,8025,5,2,0) 135: ;;=DIKZ^EN 136: ;;^UTILITY(U,$J,.84,8025,5,3,0) 137: ;;=DIOZ^ENCU 138: ;;^UTILITY(U,$J,.84,8025,5,5,0) 139: ;;=DIPZ^ 140: ;;^UTILITY(U,$J,.84,8025,5,6,0) 141: ;;=DIPZ^EN 142: ;;^UTILITY(U,$J,.84,8025,5,7,0) 143: ;;=DIEZ^ 144: ;;^UTILITY(U,$J,.84,8025,5,8,0) 145: ;;=DIEZ^EN 146: ;;^UTILITY(U,$J,.84,8026,0) 147: ;;=8026^2^y^11^ 148: ;;^UTILITY(U,$J,.84,8026,1,0) 149: ;;=^^2^2^2931110^^^ 150: ;;^UTILITY(U,$J,.84,8026,1,1,0) 151: ;;=Used to notify the user that templates or cross-references have been 152: ;;^UTILITY(U,$J,.84,8026,1,2,0) 153: ;;=UNCOMPILED. 154: ;;^UTILITY(U,$J,.84,8026,2,0) 155: ;;=^^1^1^2931110^