freem_fileman/USER/DIPKI00E.m - view

File: [Coherent Logic Development] / freem_fileman / USER / DIPKI00E.m
Revision 1.1: download - view: text, annotated - select for diffs
Mon Apr 28 14:13:21 2025 UTC (3 months ago) by snw
Branches: MAIN
CVS tags: HEAD

Restructure repository

1: DIPKI00E ; ; 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,"PKG",1,0) 7: ;;=DIPK (PACKAGE FILE INIT)^DIPK^FileMan Init of Package File 8: ;;^UTILITY(U,$J,"PKG",1,1,0) 9: ;;=^^2^2^2930702^^^ 10: ;;^UTILITY(U,$J,"PKG",1,1,1,0) 11: ;;=Init of Package file to be used by VA FileMan Site that wish to export 12: ;;^UTILITY(U,$J,"PKG",1,1,2,0) 13: ;;=software using DIFROM. 14: ;;^UTILITY(U,$J,"PKG",1,4,0) 15: ;;=^9.44PA^1^1 16: ;;^UTILITY(U,$J,"PKG",1,4,1,0) 17: ;;=9.4 18: ;;^UTILITY(U,$J,"PKG",1,4,1,222) 19: ;;=y^y^^n^^^n 20: ;;^UTILITY(U,$J,"PKG",1,4,"B",9.4,1) 21: ;;= 22: ;;^UTILITY(U,$J,"PKG",1,5) 23: ;;=SAN FRANCISCO 24: ;;^UTILITY(U,$J,"PKG",1,7) 25: ;;=SAN FRANCISCO^^I 26: ;;^UTILITY(U,$J,"PKG",1,11) 27: ;;=9.4^9.4 28: ;;^UTILITY(U,$J,"PKG",1,22,0) 29: ;;=^9.49I^21^12 30: ;;^UTILITY(U,$J,"PKG",1,22,6.5,0) 31: ;;=6.5^2900607 32: ;;^UTILITY(U,$J,"PKG",1,22,17.78,0) 33: ;;=17.78^2900731^2901105 34: ;;^UTILITY(U,$J,"PKG",1,22,18.3,0) 35: ;;=18.30^2901205 36: ;;^UTILITY(U,$J,"PKG",1,22,18.4,0) 37: ;;=18.33^2910324^2910801 38: ;;^UTILITY(U,$J,"PKG",1,22,18.5,0) 39: ;;=19.0T6^2910827^2911210 40: ;;^UTILITY(U,$J,"PKG",1,22,18.6,0) 41: ;;=19.0V9^2911212^2911217 42: ;;^UTILITY(U,$J,"PKG",1,22,18.7,0) 43: ;;=19.0V10^2920420^2920420 44: ;;^UTILITY(U,$J,"PKG",1,22,18.8,0) 45: ;;=19.0^2920714^2920824 46: ;;^UTILITY(U,$J,"PKG",1,22,18.9,0) 47: ;;=20.0^2930702^2940912 48: ;;^UTILITY(U,$J,"PKG",1,22,19,0) 49: ;;=21.0V01^2940920 50: ;;^UTILITY(U,$J,"PKG",1,22,20,0) 51: ;;=21.0V02^2941025 52: ;;^UTILITY(U,$J,"PKG",1,22,21,0) 53: ;;=21.0^2941222 54: ;;^UTILITY(U,$J,"PKG",1,22,"B",6.5,6.5) 55: ;;= 56: ;;^UTILITY(U,$J,"PKG",1,22,"B",17.78,17.78) 57: ;;= 58: ;;^UTILITY(U,$J,"PKG",1,22,"B",18.33,18.4) 59: ;;= 60: ;;^UTILITY(U,$J,"PKG",1,22,"B","18.30",18.3) 61: ;;= 62: ;;^UTILITY(U,$J,"PKG",1,22,"B","19.0",18.8) 63: ;;= 64: ;;^UTILITY(U,$J,"PKG",1,22,"B","19.0T6",18.5) 65: ;;= 66: ;;^UTILITY(U,$J,"PKG",1,22,"B","19.0V10",18.7) 67: ;;= 68: ;;^UTILITY(U,$J,"PKG",1,22,"B","19.0V9",18.6) 69: ;;= 70: ;;^UTILITY(U,$J,"PKG",1,22,"B","20.0",18.9) 71: ;;= 72: ;;^UTILITY(U,$J,"PKG",1,22,"B","21.0",21) 73: ;;= 74: ;;^UTILITY(U,$J,"PKG",1,22,"B","21.0V01",19) 75: ;;= 76: ;;^UTILITY(U,$J,"PKG",1,22,"B","21.0V02",20) 77: ;;= 78: ;;^UTILITY(U,$J,"PKG",1,"DEV") 79: ;;=TKW/SF 80: ;;^UTILITY(U,$J,"PKG",1,"DIBT",0) 81: ;;=^9.48^^0 82: ;;^UTILITY(U,$J,"PKG",1,"DIPT",0) 83: ;;=^9.46^^0 84: ;;^UTILITY(U,$J,"PKG",1,"INI") 85: ;;=^ 86: ;;^UTILITY(U,$J,"PKG",1,"INIT") 87: ;;=^ 88: ;;^UTILITY(U,$J,"SBF",9.4,9.4) 89: ;;= 90: ;;^UTILITY(U,$J,"SBF",9.4,9.402) 91: ;;= 92: ;;^UTILITY(U,$J,"SBF",9.4,9.404) 93: ;;= 94: ;;^UTILITY(U,$J,"SBF",9.4,9.409) 95: ;;= 96: ;;^UTILITY(U,$J,"SBF",9.4,9.41) 97: ;;= 98: ;;^UTILITY(U,$J,"SBF",9.4,9.414) 99: ;;= 100: ;;^UTILITY(U,$J,"SBF",9.4,9.42) 101: ;;= 102: ;;^UTILITY(U,$J,"SBF",9.4,9.43) 103: ;;= 104: ;;^UTILITY(U,$J,"SBF",9.4,9.431) 105: ;;= 106: ;;^UTILITY(U,$J,"SBF",9.4,9.432) 107: ;;= 108: ;;^UTILITY(U,$J,"SBF",9.4,9.44) 109: ;;= 110: ;;^UTILITY(U,$J,"SBF",9.4,9.444) 111: ;;= 112: ;;^UTILITY(U,$J,"SBF",9.4,9.45) 113: ;;= 114: ;;^UTILITY(U,$J,"SBF",9.4,9.454) 115: ;;= 116: ;;^UTILITY(U,$J,"SBF",9.4,9.455) 117: ;;= 118: ;;^UTILITY(U,$J,"SBF",9.4,9.456) 119: ;;= 120: ;;^UTILITY(U,$J,"SBF",9.4,9.46) 121: ;;= 122: ;;^UTILITY(U,$J,"SBF",9.4,9.47) 123: ;;= 124: ;;^UTILITY(U,$J,"SBF",9.4,9.48) 125: ;;= 126: ;;^UTILITY(U,$J,"SBF",9.4,9.485) 127: ;;= 128: ;;^UTILITY(U,$J,"SBF",9.4,9.49) 129: ;;= 130: ;;^UTILITY(U,$J,"SBF",9.4,9.4901) 131: ;;= 132: ;;^UTILITY(U,$J,"SBF",9.4,9.49011) 133: ;;= 134: ;;^UTILITY(U,$J,"SBF",9.4,9.491) 135: ;;= 136: ;;^UTILITY(U,$J,"SBF",9.4,9.492) 137: ;;= 138: ;;^UTILITY(U,$J,"SBF",9.4,9.493) 139: ;;= 140: ;;^UTILITY(U,$J,"SBF",9.4,9.495) 141: ;;= 142: ;;^UTILITY(U,$J,"SBF",9.4,9.4961) 143: ;;= 144: ;;^UTILITY(U,$J,"SBF",9.4,9.4962) 145: ;;= 146: ;;^UTILITY(U,$J,"SBF",9.4,9.4963) 147: ;;= 148: ;;^UTILITY(U,$J,"SBF",9.4,9.54) 149: ;;=