248 lines
6.7 KiB
Mathematica
248 lines
6.7 KiB
Mathematica
DIPKI008 ; ; 30-MAR-1999
|
|
;;22.0;VA FileMan;;Mar 30, 1999
|
|
;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,2,21,2,0)
|
|
;;=automatically when an INIT is installed for this package.
|
|
;;^DD(9.49,2,"DT")
|
|
;;=2840302
|
|
;;^DD(9.49,3,0)
|
|
;;=INSTALLED BY^P200'^VA(200,^0;4^Q
|
|
;;^DD(9.49,3,21,0)
|
|
;;=^^1^1^2940607^
|
|
;;^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)
|
|
;;^DD(9.495,.01,3)
|
|
;;=This is the name of a menu-type option outside this namespace.
|
|
;;^DD(9.495,.01,4)
|
|
;;=N DO,DIC S DIC="^DIC(19,",DIC(0)="QE",D="B",DIC("S")="I $P(^(0),U,4)=""M""" D DQ^DICQ
|
|
;;^DD(9.495,.01,21,0)
|
|
;;=^^4^4^2920513^^^^
|
|
;;^DD(9.495,.01,21,1,0)
|
|
;;=This is the name of an option NOT in this namespace. This option
|
|
;;^DD(9.495,.01,21,2,0)
|
|
;;=must be a menu, but it may not exist on this system. You are
|
|
;;^DD(9.495,.01,21,3,0)
|
|
;;=entering this menu name because you want to add an option in this
|
|
;;^DD(9.495,.01,21,4,0)
|
|
;;=package to a menu that is in another.
|
|
;;^DD(9.495,.01,"DT")
|
|
;;=2890928
|
|
;;^DD(9.495,.02,0)
|
|
;;=OPTION^R*P19'^DIC(19,^0;2^S DIC("S")="I $P($P(^DIC(19,Y,0),U),$P(^DIC(9.4,DA(1),0),U,2))=""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
|
|
;;^DD(9.495,.02,12)
|
|
;;=Select an option in this namespace.
|
|
;;^DD(9.495,.02,12.1)
|
|
;;=S DIC("S")="I $P($P(^DIC(19,Y,0),U),$P(^DIC(9.4,DA(1),0),U,2))="""""
|
|
;;^DD(9.495,.02,21,0)
|
|
;;=^^1^1^2920513^^
|
|
;;^DD(9.495,.02,21,1,0)
|
|
;;=This is an option which you wish to add to a menu in another namespace.
|
|
;;^DD(9.495,.02,"DT")
|
|
;;=2890928
|
|
;;^DD(9.4961,0)
|
|
;;=*INSTALLATION NOTES SUB-FIELD^^.01^1
|
|
;;^DD(9.4961,0,"NM","*INSTALLATION NOTES")
|
|
;;=
|
|
;;^DD(9.4961,0,"UP")
|
|
;;=9.49
|
|
;;^DD(9.4961,.01,0)
|
|
;;=INSTALLATION NOTES^W^^0;1^Q
|
|
;;^DD(9.4961,.01,"DT")
|
|
;;=2890426
|
|
;;^DD(9.4962,0)
|
|
;;=*SYSTEM REQUIREMENTS SUB-FIELD^^.01^1
|
|
;;^DD(9.4962,0,"NM","*SYSTEM REQUIREMENTS")
|
|
;;=
|
|
;;^DD(9.4962,0,"UP")
|
|
;;=9.49
|
|
;;^DD(9.4962,.01,0)
|
|
;;=SYSTEM REQUIREMENTS^W^^0;1^Q
|
|
;;^DD(9.4962,.01,"DT")
|
|
;;=2890426
|
|
;;^DD(9.4963,0)
|
|
;;=*PROGRAMMER NOTES SUB-FIELD^^.01^1
|
|
;;^DD(9.4963,0,"NM","*PROGRAMMER NOTES")
|
|
;;=
|
|
;;^DD(9.4963,0,"UP")
|
|
;;=9.49
|
|
;;^DD(9.4963,.01,0)
|
|
;;=PROGRAMMER NOTES^W^^0;1^Q
|
|
;;^DD(9.4963,.01,"DT")
|
|
;;=2890426
|
|
;;^DD(9.54,0)
|
|
;;=DESCRIPTION OF ENHANCEMENTS SUB-FIELD^NL^.01^1
|