Annotation of freem_fileman/DIPKI006.m, revision 1.1
1.1 ! snw 1: DIPKI006 ; ; 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: Q:'DIFQ(9.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: ;;^DD(9.404,1,21,0)
! 7: ;;=^^1^1^2920513^^
! 8: ;;^DD(9.404,1,21,1,0)
! 9: ;;=The name of the ISC where this verification was done.
! 10: ;;^DD(9.404,1,"DT")
! 11: ;;=2840815
! 12: ;;^DD(9.404,2,0)
! 13: ;;=VERSION^NJ6,2^^0;3^K:+X'=X!(X>999)!(X<0)!(X?.E1"."3N.N) X
! 14: ;;^DD(9.404,2,3)
! 15: ;;=Please enter the version number of this verified Package (0.00-999.99).
! 16: ;;^DD(9.404,2,21,0)
! 17: ;;=^^1^1^2920513^^
! 18: ;;^DD(9.404,2,21,1,0)
! 19: ;;=The version number of this verified Package.
! 20: ;;^DD(9.404,2,"DT")
! 21: ;;=2840815
! 22: ;;^DD(9.404,3,0)
! 23: ;;=COMMENTS^9.414^^1;0
! 24: ;;^DD(9.404,3,21,0)
! 25: ;;=^^1^1^2920513^^
! 26: ;;^DD(9.404,3,21,1,0)
! 27: ;;=Comments regarding this verified version of the Package.
! 28: ;;^DD(9.409,0)
! 29: ;;=*DELTA SUB-FIELD^NL^.01^1
! 30: ;;^DD(9.409,0,"NM","*DELTA")
! 31: ;;=
! 32: ;;^DD(9.409,0,"UP")
! 33: ;;=9.4
! 34: ;;^DD(9.409,.01,0)
! 35: ;;=DELTA^MP4'X^DIC(4,^0;1^S:$D(X) DINUM=X
! 36: ;;^DD(9.409,.01,3)
! 37: ;;=Please enter the name of the Delta Test site.
! 38: ;;^DD(9.409,.01,21,0)
! 39: ;;=^^1^1^2851007^
! 40: ;;^DD(9.409,.01,21,1,0)
! 41: ;;=The name of a Delta Test site for this Package.
! 42: ;;^DD(9.409,.01,"DT")
! 43: ;;=2840815
! 44: ;;^DD(9.41,0)
! 45: ;;=DESCRIPTION SUB-FIELD^NL^.01^1
! 46: ;;^DD(9.41,0,"NM","DESCRIPTION")
! 47: ;;=
! 48: ;;^DD(9.41,0,"UP")
! 49: ;;=9.4
! 50: ;;^DD(9.41,.01,0)
! 51: ;;=DESCRIPTION^W^^0;1^Q
! 52: ;;^DD(9.41,.01,3)
! 53: ;;=Please enter a complete and detailed description of the Package.
! 54: ;;^DD(9.41,.01,21,0)
! 55: ;;=^^2^2^2920513^^^^
! 56: ;;^DD(9.41,.01,21,1,0)
! 57: ;;=This is a complete and detailed description of the Package's functions
! 58: ;;^DD(9.41,.01,21,2,0)
! 59: ;;=and capabilities.
! 60: ;;^DD(9.41,.01,"DT")
! 61: ;;=2851007
! 62: ;;^DD(9.414,0)
! 63: ;;=COMMENTS SUB-FIELD^NL^.01^1
! 64: ;;^DD(9.414,0,"NM","COMMENTS")
! 65: ;;=
! 66: ;;^DD(9.414,0,"UP")
! 67: ;;=9.404
! 68: ;;^DD(9.414,.01,0)
! 69: ;;=COMMENTS^W^^0;1^Q
! 70: ;;^DD(9.414,.01,3)
! 71: ;;=Comments relating to verification
! 72: ;;^DD(9.414,.01,21,0)
! 73: ;;=^^1^1^2920513^^^
! 74: ;;^DD(9.414,.01,21,1,0)
! 75: ;;=Comments regarding this verified version of the Package.
! 76: ;;^DD(9.414,.01,"DT")
! 77: ;;=2840815
! 78: ;;^DD(9.42,0)
! 79: ;;=*ROUTINE SUB-FIELD^NL^.01^1
! 80: ;;^DD(9.42,0,"IX","B",9.42,.01)
! 81: ;;=
! 82: ;;^DD(9.42,0,"NM","*ROUTINE")
! 83: ;;=
! 84: ;;^DD(9.42,0,"UP")
! 85: ;;=9.4
! 86: ;;^DD(9.42,.01,0)
! 87: ;;=ROUTINE^MFX^^0;1^K:$L(X)>8!($L(X)<1)!'(X?.UN!(X?1"%".UN)) X
! 88: ;;^DD(9.42,.01,1,0)
! 89: ;;=^.1^^-1
! 90: ;;^DD(9.42,.01,1,1,0)
! 91: ;;=9.4^D
! 92: ;;^DD(9.42,.01,1,1,1)
! 93: ;;=S ^DIC(9.4,"D",X,DA(1))=""
! 94: ;;^DD(9.42,.01,1,1,2)
! 95: ;;=K ^DIC(9.4,"D",X,DA(1))
! 96: ;;^DD(9.42,.01,1,2,0)
! 97: ;;=9.42^B
! 98: ;;^DD(9.42,.01,1,2,1)
! 99: ;;=S ^DIC(9.4,DA(1),2,"B",X,DA)=""
! 100: ;;^DD(9.42,.01,1,2,2)
! 101: ;;=K ^DIC(9.4,DA(1),2,"B",X,DA)
! 102: ;;^DD(9.42,.01,3)
! 103: ;;=Please enter a routine name (1-8 characters).
! 104: ;;^DD(9.42,.01,21,0)
! 105: ;;=^^3^3^2920513^^^^
! 106: ;;^DD(9.42,.01,21,1,0)
! 107: ;;=This multiple is used for documentation purposes only and does
! 108: ;;^DD(9.42,.01,21,2,0)
! 109: ;;=not control anything during the INIT process. It is used to document
! 110: ;;^DD(9.42,.01,21,3,0)
! 111: ;;=the routines that are included in this Package.
! 112: ;;^DD(9.42,.01,22)
! 113: ;;=
! 114: ;;^DD(9.42,.01,"DT")
! 115: ;;=2850211
! 116: ;;^DD(9.43,0)
! 117: ;;=*GLOBAL SUB-FIELD^NL^5^3
! 118: ;;^DD(9.43,0,"DT")
! 119: ;;=2910827
! 120: ;;^DD(9.43,0,"IX","B",9.43,.01)
! 121: ;;=
! 122: ;;^DD(9.43,0,"NM","*GLOBAL")
! 123: ;;=
! 124: ;;^DD(9.43,0,"UP")
! 125: ;;=9.4
! 126: ;;^DD(9.43,.01,0)
! 127: ;;=GLOBAL^MF^^0;1^K:X[""""!(X'?.ANP)!(X<0) X I $D(X) K:$L(X)>15!($L(X)<1) X
! 128: ;;^DD(9.43,.01,1,0)
! 129: ;;=^.1
! 130: ;;^DD(9.43,.01,1,1,0)
! 131: ;;=9.43^B
! 132: ;;^DD(9.43,.01,1,1,1)
! 133: ;;=S ^DIC(9.4,DA(1),3,"B",X,DA)=""
! 134: ;;^DD(9.43,.01,1,1,2)
! 135: ;;=K ^DIC(9.4,DA(1),3,"B",X,DA)
! 136: ;;^DD(9.43,.01,3)
! 137: ;;=Enter name of global used in this package. Answer must be 1-15 characters in length. (Used for documentation only.)
! 138: ;;^DD(9.43,.01,21,0)
! 139: ;;=^^2^2^2920513^^^
! 140: ;;^DD(9.43,.01,21,1,0)
! 141: ;;=The name of a global which is part of this Package. Used for documentation
! 142: ;;^DD(9.43,.01,21,2,0)
! 143: ;;=only.
! 144: ;;^DD(9.43,.01,"DT")
! 145: ;;=2910827
! 146: ;;^DD(9.43,4,0)
! 147: ;;=DESCRIPTION^9.431^^4;0
! 148: ;;^DD(9.43,4,21,0)
! 149: ;;=^^1^1^2920513^^
! 150: ;;^DD(9.43,4,21,1,0)
! 151: ;;=This is a description of the global and how it is used by the Package.
! 152: ;;^DD(9.43,5,0)
! 153: ;;=JOURNALLING^S^M:mandatory!;O:optional--not required;N:not recommended;^5;1^Q
! 154: ;;^DD(9.43,5,21,0)
! 155: ;;=^^1^1^2920513^^^
! 156: ;;^DD(9.43,5,21,1,0)
! 157: ;;=Advises whether or not to Journal this global.
! 158: ;;^DD(9.43,5,"DT")
! 159: ;;=2850228
! 160: ;;^DD(9.431,0)
! 161: ;;=DESCRIPTION SUB-FIELD^NL^.01^1
! 162: ;;^DD(9.431,0,"NM","DESCRIPTION")
! 163: ;;=
! 164: ;;^DD(9.431,0,"UP")
! 165: ;;=9.43
! 166: ;;^DD(9.431,.01,0)
! 167: ;;=DESCRIPTION^W^^0;1^Q
! 168: ;;^DD(9.431,.01,21,0)
! 169: ;;=^^1^1^2920513^^^
! 170: ;;^DD(9.431,.01,21,1,0)
! 171: ;;=This is a description of the global and how it is used by the Package.
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to DIPKI006.m CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Coherent Logic Development] / freem_fileman