freem_fileman/USER/DIINI00A.m - view

File: [Coherent Logic Development] / freem_fileman / USER / DIINI00A.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: DIINI00A ; ; 22-DEC-1994 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) X NO E S @X=Y 5: Q Q 6: ;;^UTILITY(U,$J,"OPT",405,20) 7: ;;=D 5^DDXP 8: ;;^UTILITY(U,$J,"OPT",405,"U") 9: ;;=PRINT FORMAT DOCUMENTATION 10: ;;^UTILITY(U,$J,"OPT",407,0) 11: ;;=DI SORT COMPILE^Sort Template Compile/Uncompile^^R^^^^^^^^VA FILEMAN 12: ;;^UTILITY(U,$J,"OPT",407,1,0) 13: ;;=^^3^3^2930715^^ 14: ;;^UTILITY(U,$J,"OPT",407,1,1,0) 15: ;;=This option allows the user to mark a Sort Template compiled or uncompiled. 16: ;;^UTILITY(U,$J,"OPT",407,1,2,0) 17: ;;=The actual routine compilation occurs when the template is used during 18: ;;^UTILITY(U,$J,"OPT",407,1,3,0) 19: ;;=FileMan Sort/Print. 20: ;;^UTILITY(U,$J,"OPT",407,25) 21: ;;=EN1^DIOZ 22: ;;^UTILITY(U,$J,"OPT",407,"U") 23: ;;=SORT TEMPLATE COMPILE/UNCOMPIL 24: ;;^UTILITY(U,$J,"OPT",503,0) 25: ;;=DDBROWSER^Browser^^R^^^^^^^^VA FILEMAN 26: ;;^UTILITY(U,$J,"OPT",503,1,0) 27: ;;=^^3^3^2940519^ 28: ;;^UTILITY(U,$J,"OPT",503,1,1,0) 29: ;;=Prompts user to select file, word processing field and entry. 30: ;;^UTILITY(U,$J,"OPT",503,1,2,0) 31: ;;=The text is then displayed to the screen, allowing the user to 32: ;;^UTILITY(U,$J,"OPT",503,1,3,0) 33: ;;=navigate through the document. 34: ;;^UTILITY(U,$J,"OPT",503,25) 35: ;;=DDBR 36: ;;^UTILITY(U,$J,"OPT",503,99.1) 37: ;;=56123,39787 38: ;;^UTILITY(U,$J,"OPT",503,"U") 39: ;;=BROWSER 40: ;;^UTILITY(U,$J,"OPT",509,0) 41: ;;=DDS DELETE A FORM^Delete a Form^^R^^^^^^^^ 42: ;;^UTILITY(U,$J,"OPT",509,1,0) 43: ;;=^^1^1^2940630^^ 44: ;;^UTILITY(U,$J,"OPT",509,1,1,0) 45: ;;=An option to delete a form. 46: ;;^UTILITY(U,$J,"OPT",509,25) 47: ;;=3^DDSOPT 48: ;;^UTILITY(U,$J,"OPT",509,99.1) 49: ;;=56123,39787 50: ;;^UTILITY(U,$J,"OPT",509,"U") 51: ;;=DELETE A FORM 52: ;;^UTILITY(U,$J,"OPT",510,0) 53: ;;=DDS PURGE UNUSED BLOCKS^Purge Unused Blocks^^R^^^^^^^^ 54: ;;^UTILITY(U,$J,"OPT",510,1,0) 55: ;;=^^3^3^2940630^ 56: ;;^UTILITY(U,$J,"OPT",510,1,1,0) 57: ;;=An option to delete blocks that aren't used on any forms. This option 58: ;;^UTILITY(U,$J,"OPT",510,1,2,0) 59: ;;=prompts for file, and searches the Block File for all blocks that are 60: ;;^UTILITY(U,$J,"OPT",510,1,3,0) 61: ;;=associated with that file and that aren't used on any forms. 62: ;;^UTILITY(U,$J,"OPT",510,25) 63: ;;=4^DDSOPT 64: ;;^UTILITY(U,$J,"OPT",510,99.1) 65: ;;=56123,39787 66: ;;^UTILITY(U,$J,"OPT",510,"U") 67: ;;=PURGE UNUSED BLOCKS 68: ;;^UTILITY(U,$J,"PKG",11,0) 69: ;;=VA FILEMAN^DI^FM INIT 70: ;;^UTILITY(U,$J,"PKG",11,4,0) 71: ;;=^9.44PA^^0 72: ;;^UTILITY(U,$J,"PKG",11,22,0) 73: ;;=^9.49I^7^7 74: ;;^UTILITY(U,$J,"PKG",11,22,1,0) 75: ;;=20.0T2^2930112^2930113 76: ;;^UTILITY(U,$J,"PKG",11,22,2,0) 77: ;;=20.0T3^2930312^2930426 78: ;;^UTILITY(U,$J,"PKG",11,22,3,0) 79: ;;=21.0A03^2940705 80: ;;^UTILITY(U,$J,"PKG",11,22,4,0) 81: ;;=21.0T01^2940715 82: ;;^UTILITY(U,$J,"PKG",11,22,5,0) 83: ;;=21.0V01^2940919 84: ;;^UTILITY(U,$J,"PKG",11,22,6,0) 85: ;;=21.0V02^2941025 86: ;;^UTILITY(U,$J,"PKG",11,22,7,0) 87: ;;=21.0^2941222 88: ;;^UTILITY(U,$J,"PKG",11,22,"B","20.0T2",1) 89: ;;= 90: ;;^UTILITY(U,$J,"PKG",11,22,"B","20.0T3",2) 91: ;;= 92: ;;^UTILITY(U,$J,"PKG",11,22,"B","21.0",7) 93: ;;= 94: ;;^UTILITY(U,$J,"PKG",11,22,"B","21.0A03",3) 95: ;;= 96: ;;^UTILITY(U,$J,"PKG",11,22,"B","21.0T01",4) 97: ;;= 98: ;;^UTILITY(U,$J,"PKG",11,22,"B","21.0V01",5) 99: ;;= 100: ;;^UTILITY(U,$J,"PKG",11,22,"B","21.0V02",6) 101: ;;=