Annotation of freem_fileman/DIPKI009.m, revision 1.1
1.1 ! snw 1: DIPKI009 ; ; 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.45,.01,21,3,0)
! 7: ;;=an INIT of this file, instead of the full data dictionary. (i.e.,
! 8: ;;^DD(9.45,.01,21,4,0)
! 9: ;;=a partial DD).
! 10: ;;^DD(9.45,.01,"DT")
! 11: ;;=2840302
! 12: ;;^DD(9.454,0)
! 13: ;;=COMMENTS SUB-FIELD^NL^.01^1
! 14: ;;^DD(9.454,0,"NM","COMMENTS")
! 15: ;;=
! 16: ;;^DD(9.454,0,"UP")
! 17: ;;=9.444
! 18: ;;^DD(9.454,.01,0)
! 19: ;;=COMMENTS^W^^0;1^Q
! 20: ;;^DD(9.454,.01,21,0)
! 21: ;;=^^1^1^2851008^
! 22: ;;^DD(9.454,.01,21,1,0)
! 23: ;;=These are comments about the status of this Package's namespace.
! 24: ;;^DD(9.454,.01,"DT")
! 25: ;;=2840815
! 26: ;;^DD(9.455,0)
! 27: ;;=*KEY VARIABLE SUB-FIELD^NL^1^3
! 28: ;;^DD(9.455,0,"DT")
! 29: ;;=2920928
! 30: ;;^DD(9.455,0,"IX","AB",9.455,.01)
! 31: ;;=
! 32: ;;^DD(9.455,0,"NM","*KEY VARIABLE")
! 33: ;;=
! 34: ;;^DD(9.455,0,"UP")
! 35: ;;=9.4
! 36: ;;^DD(9.455,.01,0)
! 37: ;;=KEY VARIABLE^MF^^0;1^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>17!($L(X)<1) X
! 38: ;;^DD(9.455,.01,1,0)
! 39: ;;=^.1
! 40: ;;^DD(9.455,.01,1,1,0)
! 41: ;;=9.455^AB
! 42: ;;^DD(9.455,.01,1,1,1)
! 43: ;;=S ^DIC(9.4,DA(1),1933,"AB",$E(X,1,30),DA)=""
! 44: ;;^DD(9.455,.01,1,1,2)
! 45: ;;=K ^DIC(9.4,DA(1),1933,"AB",$E(X,1,30),DA)
! 46: ;;^DD(9.455,.01,3)
! 47: ;;=Please enter the name of a MUMPS Variable needed by this Package (1-17 characters).
! 48: ;;^DD(9.455,.01,21,0)
! 49: ;;=^^2^2^2851009^^
! 50: ;;^DD(9.455,.01,21,1,0)
! 51: ;;=The name of a MUMPS variable which the Package would like defined
! 52: ;;^DD(9.455,.01,21,2,0)
! 53: ;;=prior to entry into the routines.
! 54: ;;^DD(9.455,.01,"DT")
! 55: ;;=2850228
! 56: ;;^DD(9.455,.02,0)
! 57: ;;=PURPOSE FOR ERR REPORTS^F^^0;2^K:$L(X)>40!($L(X)<3) X
! 58: ;;^DD(9.455,.02,3)
! 59: ;;=Answer must be 3-40 characters in length. This will be displayed to indicate the purpose of this variable on error reports
! 60: ;;^DD(9.455,.02,21,0)
! 61: ;;=^^8^8^2920928^
! 62: ;;^DD(9.455,.02,21,1,0)
! 63: ;;=This field is meant to contain a brief description of the purpose or role
! 64: ;;^DD(9.455,.02,21,2,0)
! 65: ;;=of this KEY VARIABLE. If this variable is present in an error which has
! 66: ;;^DD(9.455,.02,21,3,0)
! 67: ;;=been trapped, and a user selects display of key variables, then this
! 68: ;;^DD(9.455,.02,21,4,0)
! 69: ;;=description will be displayed to aid the user in interpeting the variable
! 70: ;;^DD(9.455,.02,21,5,0)
! 71: ;;=and its value at the time the error occurred. If this description is not
! 72: ;;^DD(9.455,.02,21,6,0)
! 73: ;;=available, then the variable would not be displayed along with other
! 74: ;;^DD(9.455,.02,21,7,0)
! 75: ;;=annotated key variables.
! 76: ;;^DD(9.455,.02,21,8,0)
! 77: ;;=
! 78: ;;^DD(9.455,.02,"DT")
! 79: ;;=2920928
! 80: ;;^DD(9.455,1,0)
! 81: ;;=DESCRIPTION^9.456^^1;0
! 82: ;;^DD(9.455,1,21,0)
! 83: ;;=^^2^2^2851008^^
! 84: ;;^DD(9.455,1,21,1,0)
! 85: ;;=This lists information about the MUMPS variable required by this
! 86: ;;^DD(9.455,1,21,2,0)
! 87: ;;=Package.
! 88: ;;^DD(9.456,0)
! 89: ;;=DESCRIPTION SUB-FIELD^NL^.01^1
! 90: ;;^DD(9.456,0,"NM","DESCRIPTION")
! 91: ;;=
! 92: ;;^DD(9.456,0,"UP")
! 93: ;;=9.455
! 94: ;;^DD(9.456,.01,0)
! 95: ;;=DESCRIPTION^W^^0;1^Q
! 96: ;;^DD(9.456,.01,21,0)
! 97: ;;=^^2^2^2851008^^
! 98: ;;^DD(9.456,.01,21,1,0)
! 99: ;;=This describes the MUMPS variable which this Package would like
! 100: ;;^DD(9.456,.01,21,2,0)
! 101: ;;=defined prior to entry into the routines.
! 102: ;;^DD(9.456,.01,"DT")
! 103: ;;=2850228
! 104: ;;^DD(9.46,0)
! 105: ;;=*PRINT TEMPLATE SUB-FIELD^NL^2^2
! 106: ;;^DD(9.46,0,"NM","*PRINT TEMPLATE")
! 107: ;;=
! 108: ;;^DD(9.46,0,"UP")
! 109: ;;=9.4
! 110: ;;^DD(9.46,.01,0)
! 111: ;;=PRINT TEMPLATE^MF^^0;1^K:$L(X)>50!($L(X)<2) X
! 112: ;;^DD(9.46,.01,1,0)
! 113: ;;=^.1^^0
! 114: ;;^DD(9.46,.01,3)
! 115: ;;=Please enter the name of a Print Template (2-50 characters).
! 116: ;;^DD(9.46,.01,21,0)
! 117: ;;=^^5^5^2921202^
! 118: ;;^DD(9.46,.01,21,1,0)
! 119: ;;=The name of a Print Template being sent with this Package.
! 120: ;;^DD(9.46,.01,21,2,0)
! 121: ;;=This multiple is used to send non-namespaced templates in an INIT.
! 122: ;;^DD(9.46,.01,21,3,0)
! 123: ;;=Namespaced templates are sent automatically and need not be listed
! 124: ;;^DD(9.46,.01,21,4,0)
! 125: ;;=separately. Selected Fields for Export and Export templates cannot be
! 126: ;;^DD(9.46,.01,21,5,0)
! 127: ;;=sent; entering their names here will have no effect.
! 128: ;;^DD(9.46,.01,"DT")
! 129: ;;=2821117
! 130: ;;^DD(9.46,2,0)
! 131: ;;=FILE^RP1'^DIC(^0;2^Q
! 132: ;;^DD(9.46,2,21,0)
! 133: ;;=^^1^1^2920513^^
! 134: ;;^DD(9.46,2,21,1,0)
! 135: ;;=The FileMan file for this Print Template.
! 136: ;;^DD(9.46,2,"DT")
! 137: ;;=2821126
! 138: ;;^DD(9.47,0)
! 139: ;;=*INPUT TEMPLATE SUB-FIELD^NL^2^2
! 140: ;;^DD(9.47,0,"ID",2)
! 141: ;;=W " FILE #"_$P(^(0),U,2)
! 142: ;;^DD(9.47,0,"NM","*INPUT TEMPLATE")
! 143: ;;=
! 144: ;;^DD(9.47,0,"UP")
! 145: ;;=9.4
! 146: ;;^DD(9.47,.01,0)
! 147: ;;=INPUT TEMPLATE^MF^^0;1^K:$L(X)>50!($L(X)<2) X
! 148: ;;^DD(9.47,.01,1,0)
! 149: ;;=^.1^^0
! 150: ;;^DD(9.47,.01,3)
! 151: ;;=Please enter the name of an Input Template (2-50 characters).
! 152: ;;^DD(9.47,.01,21,0)
! 153: ;;=^^4^4^2920513^^^
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to DIPKI009.m CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Coherent Logic Development] / freem_fileman