freem_fileman/USER/DINIT00K.m - view

File: [Coherent Logic Development] / freem_fileman / USER / DINIT00K.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: DINIT00K ; 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,8026,2,1,0) 7: ;;=|1| now uncompiled. 8: ;;^UTILITY(U,$J,.84,8026,3,0) 9: ;;=^.845^1^1 10: ;;^UTILITY(U,$J,.84,8026,3,1,0) 11: ;;=1^Contains the word 'TEMPLATE' or 'CROSS-REFERENCES' 12: ;;^UTILITY(U,$J,.84,8026,5,0) 13: ;;=^.841^6^6 14: ;;^UTILITY(U,$J,.84,8026,5,1,0) 15: ;;=DIPZ^ 16: ;;^UTILITY(U,$J,.84,8026,5,2,0) 17: ;;=DIPZ^EN 18: ;;^UTILITY(U,$J,.84,8026,5,3,0) 19: ;;=DIEZ^ 20: ;;^UTILITY(U,$J,.84,8026,5,4,0) 21: ;;=DIEZ^EN 22: ;;^UTILITY(U,$J,.84,8026,5,5,0) 23: ;;=DIKZ^ 24: ;;^UTILITY(U,$J,.84,8026,5,6,0) 25: ;;=DIKZ^EN 26: ;;^UTILITY(U,$J,.84,8027,0) 27: ;;=8027^2^^11 28: ;;^UTILITY(U,$J,.84,8027,1,0) 29: ;;=^^2^2^2931110^^^ 30: ;;^UTILITY(U,$J,.84,8027,1,1,0) 31: ;;=Prompt for maximum routine size, used when compiling templates or 32: ;;^UTILITY(U,$J,.84,8027,1,2,0) 33: ;;=cross-references. 34: ;;^UTILITY(U,$J,.84,8027,2,0) 35: ;;=^^1^1^2931110^ 36: ;;^UTILITY(U,$J,.84,8027,2,1,0) 37: ;;=Maximum routine size on this computer (in bytes). 38: ;;^UTILITY(U,$J,.84,8027,5,0) 39: ;;=^.841^3^3 40: ;;^UTILITY(U,$J,.84,8027,5,1,0) 41: ;;=DIPZ^ 42: ;;^UTILITY(U,$J,.84,8027,5,2,0) 43: ;;=DIEZ^ 44: ;;^UTILITY(U,$J,.84,8027,5,3,0) 45: ;;=DIKZ^ 46: ;;^UTILITY(U,$J,.84,8028,0) 47: ;;=8028^2^y^11^ 48: ;;^UTILITY(U,$J,.84,8028,1,0) 49: ;;=^^2^2^2931110^^^^ 50: ;;^UTILITY(U,$J,.84,8028,1,1,0) 51: ;;=Extended dialogue for asking user whether they wish to UNCOMPILE 52: ;;^UTILITY(U,$J,.84,8028,1,2,0) 53: ;;=a previously compiled template or cross-references. 54: ;;^UTILITY(U,$J,.84,8028,2,0) 55: ;;=^^2^2^2931110^ 56: ;;^UTILITY(U,$J,.84,8028,2,1,0) 57: ;;= |1| currently compiled under namespace |2|. 58: ;;^UTILITY(U,$J,.84,8028,2,2,0) 59: ;;=UNCOMPILE the |1| 60: ;;^UTILITY(U,$J,.84,8028,3,0) 61: ;;=^.845^2^2 62: ;;^UTILITY(U,$J,.84,8028,3,1,0) 63: ;;=1^Contains the word 'TEMPLATE' or 'CROSS-REFERENCES' 64: ;;^UTILITY(U,$J,.84,8028,3,2,0) 65: ;;=2^Routine name under which templates were previously compiled. 66: ;;^UTILITY(U,$J,.84,8028,5,0) 67: ;;=^.841^4^4 68: ;;^UTILITY(U,$J,.84,8028,5,1,0) 69: ;;=DIPZ^ 70: ;;^UTILITY(U,$J,.84,8028,5,2,0) 71: ;;=DIEZ^ 72: ;;^UTILITY(U,$J,.84,8028,5,3,0) 73: ;;=DIKZ^ 74: ;;^UTILITY(U,$J,.84,8028,5,4,0) 75: ;;=DIOZ^ENCU 76: ;;^UTILITY(U,$J,.84,8029,0) 77: ;;=8029^2^y^11^ 78: ;;^UTILITY(U,$J,.84,8029,1,0) 79: ;;=^^2^2^2931110^ 80: ;;^UTILITY(U,$J,.84,8029,1,1,0) 81: ;;=Extended dialogue for asking user whether they wish to COMPILE a 82: ;;^UTILITY(U,$J,.84,8029,1,2,0) 83: ;;=template or cross-references. 84: ;;^UTILITY(U,$J,.84,8029,2,0) 85: ;;=^^2^2^2931110^ 86: ;;^UTILITY(U,$J,.84,8029,2,1,0) 87: ;;= |1| not currently compiled. 88: ;;^UTILITY(U,$J,.84,8029,2,2,0) 89: ;;=COMPILE the |1| 90: ;;^UTILITY(U,$J,.84,8029,3,0) 91: ;;=^.845^1^1 92: ;;^UTILITY(U,$J,.84,8029,3,1,0) 93: ;;=1^Contains the word 'TEMPLATE' or 'CROSS-REFERENCES' 94: ;;^UTILITY(U,$J,.84,8029,5,0) 95: ;;=^.841^1^1 96: ;;^UTILITY(U,$J,.84,8029,5,1,0) 97: ;;=DIOZ^ENCU 98: ;;^UTILITY(U,$J,.84,8030,0) 99: ;;=8030^2^y^11^ 100: ;;^UTILITY(U,$J,.84,8030,1,0) 101: ;;=^^2^2^2931110^^^^ 102: ;;^UTILITY(U,$J,.84,8030,1,1,0) 103: ;;=Warning to user that SORT/PRINT templates are uneditable because the PRINT 104: ;;^UTILITY(U,$J,.84,8030,1,2,0) 105: ;;=TEMPLATE field on the SORT TEMPLATE has linked it with a print template. 106: ;;^UTILITY(U,$J,.84,8030,2,0) 107: ;;=^^7^7^2931112^ 108: ;;^UTILITY(U,$J,.84,8030,2,1,0) 109: ;;=Because this Sort Template has been linked with the Print Template 110: ;;^UTILITY(U,$J,.84,8030,2,2,0) 111: ;;=|1|, neither template can be edited from this option. 112: ;;^UTILITY(U,$J,.84,8030,2,3,0) 113: ;;= 114: ;;^UTILITY(U,$J,.84,8030,2,4,0) 115: ;;=To edit the templates, first use the FileMan TEMPLATE EDIT 116: ;;^UTILITY(U,$J,.84,8030,2,5,0) 117: ;;=option to edit the Sort Template, and delete the field called 118: ;;^UTILITY(U,$J,.84,8030,2,6,0) 119: ;;='PRINT TEMPLATE'. Then, the templates can be edited from 120: ;;^UTILITY(U,$J,.84,8030,2,7,0) 121: ;;=the PRINT option. 122: ;;^UTILITY(U,$J,.84,8030,3,0) 123: ;;=^.845^1^1 124: ;;^UTILITY(U,$J,.84,8030,3,1,0) 125: ;;=1^Name of associated PRINT TEMPLATE. 126: ;;^UTILITY(U,$J,.84,8030,5,0) 127: ;;=^.841^1^1 128: ;;^UTILITY(U,$J,.84,8030,5,1,0) 129: ;;=DIP^EN 130: ;;^UTILITY(U,$J,.84,8031,0) 131: ;;=8031^2^^11 132: ;;^UTILITY(U,$J,.84,8031,1,0) 133: ;;=^^1^1^2931110^^ 134: ;;^UTILITY(U,$J,.84,8031,1,1,0) 135: ;;=Warning that compiled routine names may get too long. 136: ;;^UTILITY(U,$J,.84,8031,2,0) 137: ;;=^^3^3^2931110^ 138: ;;^UTILITY(U,$J,.84,8031,2,1,0) 139: ;;=WARNING!! Since the namespace for this routine is so long, use the 140: ;;^UTILITY(U,$J,.84,8031,2,2,0) 141: ;;=largest possible size to compile these routines. Otherwise, FileMan may 142: ;;^UTILITY(U,$J,.84,8031,2,3,0) 143: ;;=run out of routine names. 144: ;;^UTILITY(U,$J,.84,8031,5,0) 145: ;;=^.841^3^3