Return to DIPKI00B.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Initial commit

DIPKI00B	; ; 22-DEC-1994
	;;21.0;VA FileMan;;Dec 28, 1994
	;Per VHA Directive 10-93-142, this routine should not be modified.
	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
Q	Q
	;;^DD(9.49,3,21,1,0)
	;;=This is the person who installed this version at this site.
	;;^DD(9.49,3,"DT")
	;;=2940607
	;;^DD(9.49,41,0)
	;;=DESCRIPTION OF ENHANCEMENTS^9.54^^1;0
	;;^DD(9.49,41,21,0)
	;;=^^2^2^2851008^^
	;;^DD(9.49,41,21,1,0)
	;;=This is a description of the enhancements being distributed with this
	;;^DD(9.49,41,21,2,0)
	;;=release.
	;;^DD(9.49,51,0)
	;;=*RELEASE NOTE^9.491^^R;0
	;;^DD(9.49,51,21,0)
	;;=^^2^2^2851009^^^^
	;;^DD(9.49,51,21,1,0)
	;;=These are the release notes which go along with this release of the
	;;^DD(9.49,51,21,2,0)
	;;=Package.
	;;^DD(9.49,51,"DT")
	;;=2940603
	;;^DD(9.49,61,0)
	;;=*INSTALLATION NOTES^9.4961^^I;0
	;;^DD(9.49,61,"DT")
	;;=2940603
	;;^DD(9.49,62,0)
	;;=*SYSTEM REQUIREMENTS^9.4962^^S;0
	;;^DD(9.49,62,"DT")
	;;=2940603
	;;^DD(9.49,63,0)
	;;=*PROGRAMMER NOTES^9.4963^^P;0
	;;^DD(9.49,63,"DT")
	;;=2940603
	;;^DD(9.49,1105,0)
	;;=PATCH APPLICATION HISTORY^9.4901^^PAH;0
	;;^DD(9.4901,0)
	;;=PATCH APPLICATION HISTORY SUB-FIELD^^1^4
	;;^DD(9.4901,0,"DT")
	;;=2940603
	;;^DD(9.4901,0,"IX","B",9.4901,.01)
	;;=
	;;^DD(9.4901,0,"NM","PATCH APPLICATION HISTORY")
	;;=
	;;^DD(9.4901,0,"UP")
	;;=9.49
	;;^DD(9.4901,.01,0)
	;;=PATCH APPLICATION HISTORY^MF^^0;1^K:$L(X)>15!($L(X)<8) X
	;;^DD(9.4901,.01,1,0)
	;;=^.1
	;;^DD(9.4901,.01,1,1,0)
	;;=9.4901^B
	;;^DD(9.4901,.01,1,1,1)
	;;=S ^DIC(9.4,DA(2),22,DA(1),"PAH","B",$E(X,1,30),DA)=""
	;;^DD(9.4901,.01,1,1,2)
	;;=K ^DIC(9.4,DA(2),22,DA(1),"PAH","B",$E(X,1,30),DA)
	;;^DD(9.4901,.01,3)
	;;=Answer must be 8-15 characters in length.
	;;^DD(9.4901,.01,"DT")
	;;=2890426
	;;^DD(9.4901,.02,0)
	;;=DATE APPLIED^D^^0;2^S %DT="EX" D ^%DT S X=Y K:Y<1 X
	;;^DD(9.4901,.02,"DT")
	;;=2890426
	;;^DD(9.4901,.03,0)
	;;=APPLIED BY^P200'^VA(200,^0;3^Q
	;;^DD(9.4901,.03,"DT")
	;;=2890426
	;;^DD(9.4901,1,0)
	;;=DESCRIPTION^9.49011^^1;0
	;;^DD(9.4901,1,21,0)
	;;=^^1^1^2940603^
	;;^DD(9.4901,1,21,1,0)
	;;=This is a description of the patch being distributed with this release.
	;;^DD(9.49011,0)
	;;=DESCRIPTION SUB-FIELD^^.01^1
	;;^DD(9.49011,0,"DT")
	;;=2940603
	;;^DD(9.49011,0,"NM","DESCRIPTION")
	;;=
	;;^DD(9.49011,0,"UP")
	;;=9.4901
	;;^DD(9.49011,.01,0)
	;;=DESCRIPTION^W^^0;1^Q
	;;^DD(9.49011,.01,"DT")
	;;=2940603
	;;^DD(9.491,0)
	;;=*RELEASE NOTE SUB-FIELD^NL^2^4
	;;^DD(9.491,0,"NM","*RELEASE NOTE")
	;;=
	;;^DD(9.491,0,"UP")
	;;=9.49
	;;^DD(9.491,.01,0)
	;;=RELEASE NOTE^MF^^0;1^K:$L(X)>80!($L(X)<3) X
	;;^DD(9.491,.01,3)
	;;=Please enter a description (3-80 characters).
	;;^DD(9.491,.01,21,0)
	;;=^^1^1^2851008^^
	;;^DD(9.491,.01,21,1,0)
	;;=This is a description of a particular enhancement.
	;;^DD(9.491,.01,"DT")
	;;=2850123
	;;^DD(9.491,.02,0)
	;;=WHERE CHANGE OCCURRED^F^^0;2^K:$L(X)>80!($L(X)<3) X
	;;^DD(9.491,.02,3)
	;;=Routine(s), Field Name(s), and/or Data that has been changed (3-80 characters).
	;;^DD(9.491,.02,21,0)
	;;=^^1^1^2851009^^^^
	;;^DD(9.491,.02,21,1,0)
	;;=Routine, Field Name, or Data that has been changed.
	;;^DD(9.491,.02,"DT")
	;;=2850123
	;;^DD(9.491,1,0)
	;;=DESCRIPTION OF CHANGE^9.492^^1;0
	;;^DD(9.491,1,21,0)
	;;=^^1^1^2851008^^
	;;^DD(9.491,1,21,1,0)
	;;=This is a description of the improvements.
	;;^DD(9.491,2,0)
	;;=UPDATE^9.493^^2;0
	;;^DD(9.491,2,21,0)
	;;=^^2^2^2851009^^
	;;^DD(9.491,2,21,1,0)
	;;=Comments on the updates which have been made to this release of the
	;;^DD(9.491,2,21,2,0)
	;;=Package.
	;;^DD(9.492,0)
	;;=DESCRIPTION OF CHANGE SUB-FIELD^NL^.01^1
	;;^DD(9.492,0,"NM","DESCRIPTION OF CHANGE")
	;;=
	;;^DD(9.492,0,"UP")
	;;=9.491
	;;^DD(9.492,.01,0)
	;;=DESCRIPTION OF CHANGE^W^^0;1^Q
	;;^DD(9.492,.01,21,0)
	;;=^^1^1^2851008^^^^
	;;^DD(9.492,.01,21,1,0)
	;;=This is a description of the improvement.
	;;^DD(9.492,.01,"DT")
	;;=2850123
	;;^DD(9.493,0)
	;;=UPDATE SUB-FIELD^NL^.01^1
	;;^DD(9.493,0,"NM","UPDATE")
	;;=
	;;^DD(9.493,0,"UP")
	;;=9.491
	;;^DD(9.493,.01,0)
	;;=UPDATE^W^^0;1^Q
	;;^DD(9.493,.01,21,0)
	;;=^^1^1^2851008^
	;;^DD(9.493,.01,21,1,0)
	;;=This is a description of the update to the Package.
	;;^DD(9.493,.01,"DT")
	;;=2850123
	;;^DD(9.495,0)
	;;=*MENU SUB-FIELD^^.02^2
	;;^DD(9.495,0,"DT")
	;;=2890928
	;;^DD(9.495,0,"IX","B",9.495,.01)
	;;=
	;;^DD(9.495,0,"NM","*MENU")
	;;=
	;;^DD(9.495,0,"UP")
	;;=9.4
	;;^DD(9.495,.01,0)
	;;=MENU^MF^^0;1^K:$L(X)>30!($L(X)<1) X
	;;^DD(9.495,.01,1,0)
	;;=^.1
	;;^DD(9.495,.01,1,1,0)
	;;=9.495^B
	;;^DD(9.495,.01,1,1,1)
	;;=S ^DIC(9.4,DA(1),"M","B",$E(X,1,30),DA)=""
	;;^DD(9.495,.01,1,1,2)
	;;=K ^DIC(9.4,DA(1),"M","B",$E(X,1,30),DA)