Routine: DIPKI004

DIPKI004 ; ; 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.4,1946,21,2,0)

 ;;=along with the Package.

 ;;^DD(9.4,1946,"DT")

 ;;=2940606

 ;;^DD(9.4,15007,0)

 ;;=SYNONYM^9.415007^^15007;0

 ;;^DD(9.402,0)

 ;;=AFFECTS RECORD MERGE SUB-FIELD^^4^3

 ;;^DD(9.402,0,"DT")

 ;;=2900906

 ;;^DD(9.402,0,"IX","B",9.402,.01)

;;=

 ;;^DD(9.402,0,"NM","AFFECTS RECORD MERGE")

;;=

 ;;^DD(9.402,0,"UP")

 ;;=9.4

 ;;^DD(9.402,.01,0)

 ;;=FILE AFFECTED^*P1'X^DIC(^0;1^S DIC("S")="I $D(^DD(15,.01,""V"",""B"",Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X

 ;;^DD(9.402,.01,1,0)

 ;;=^.1

 ;;^DD(9.402,.01,1,1,0)

 ;;=9.402^B

 ;;^DD(9.402,.01,1,1,1)

 ;;=S ^DIC(9.4,DA(1),20,"B",$E(X,1,30),DA)=""

 ;;^DD(9.402,.01,1,1,2)

 ;;=K ^DIC(9.4,DA(1),20,"B",$E(X,1,30),DA)

 ;;^DD(9.402,.01,1,2,0)

 ;;=9.4^AMRG

 ;;^DD(9.402,.01,1,2,1)

 ;;=S ^DIC(9.4,"AMRG",$E(X,1,30),DA(1),DA)=""

 ;;^DD(9.402,.01,1,2,2)

 ;;=K ^DIC(9.4,"AMRG",$E(X,1,30),DA(1),DA)

 ;;^DD(9.402,.01,1,2,"%D",0)

 ;;=^^2^2^2900906^

 ;;^DD(9.402,.01,1,2,"%D",1,0)

 ;;=This xref is used by the merge process to determine if any package

 ;;^DD(9.402,.01,1,2,"%D",2,0)

 ;;=file entry affects the file being merged.

 ;;^DD(9.402,.01,1,2,"DT")

 ;;=2900906

 ;;^DD(9.402,.01,3)

 ;;=Pointer to a file that has been added to FILE 15's variable pointer.

 ;;^DD(9.402,.01,12)

 ;;=MUST BE VARIABLE POINTER FILE IN FIELD .01 OF FILE 15

 ;;^DD(9.402,.01,12.1)

 ;;=S DIC("S")="I $D(^DD(15,.01,""V"",""B"",Y))"

 ;;^DD(9.402,.01,21,0)

 ;;=^^1^1^2940627^^

 ;;^DD(9.402,.01,21,1,0)

 ;;=A file that if merged will affect this package.

 ;;^DD(9.402,.01,"DT")

 ;;=2900910

 ;;^DD(9.402,3,0)

 ;;=NAME OF MERGE ROUTINE^F^^0;3^K:$L(X)>8!($L(X)<2)!'(X?1U1.7UN) X

 ;;^DD(9.402,3,3)

 ;;=Answer with a routine name (1U.1.7UN).

 ;;^DD(9.402,3,21,0)

 ;;=^^4^4^2930330^

 ;;^DD(9.402,3,21,1,0)

 ;;=This field holds the routine name to call when two records in

 ;;^DD(9.402,3,21,2,0)

 ;;=an affected file are to be merged. This allows the package to

 ;;^DD(9.402,3,21,3,0)

 ;;=do any repointing or other clean-up needed before the records

 ;;^DD(9.402,3,21,4,0)

 ;;=are merged.

 ;;^DD(9.402,3,"DT")

 ;;=2900816

 ;;^DD(9.402,4,0)

 ;;=RECORD HAS PACKAGE DATA^K^^1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM

 ;;^DD(9.402,4,3)

 ;;=This is Standard MUMPS code. To tell if this record has data in this package.

 ;;^DD(9.402,4,9)

 ;;=@

 ;;^DD(9.402,4,"DT")

 ;;=2900816

 ;;^DD(9.404,0)

 ;;=*VERIFICATION SUB-FIELD^NL^3^4

 ;;^DD(9.404,0,"ID",1)

 ;;=W:$D(^(0)) "   ",$P(^(0),U,2)

 ;;^DD(9.404,0,"NM","*VERIFICATION")

;;=

 ;;^DD(9.404,0,"UP")

 ;;=9.4

 ;;^DD(9.404,.01,0)

 ;;=VERIFICATION^DX^^0;1^S %DT="E" D ^%DT S (DINUM,X)=Y K:Y<1 DINUM,X

 ;;^DD(9.404,.01,21,0)

 ;;=^^1^1^2920513^^^

 ;;^DD(9.404,.01,21,1,0)

 ;;=Date of notification that this software has been verified.

 ;;^DD(9.404,.01,"DT")

 ;;=2840815

 ;;^DD(9.404,1,0)

 ;;=ISC^F^^0;2^K:$L(X)>20!($L(X)<2) X

 ;;^DD(9.404,1,3)

 ;;=The name of the ISC responsible for verification (3-20 characters).

 ;;^DD(9.404,1,21,0)

 ;;=^^1^1^2920513^^

 ;;^DD(9.404,1,21,1,0)

 ;;=The name of the ISC where this verification was done.

 ;;^DD(9.404,1,"DT")

 ;;=2840815

 ;;^DD(9.404,2,0)

 ;;=VERSION^NJ6,2^^0;3^K:+X'=X!(X>999)!(X<0)!(X?.E1"."3N.N) X

 ;;^DD(9.404,2,3)

 ;;=Please enter the version number of this verified Package (0.00-999.99).

 ;;^DD(9.404,2,21,0)

 ;;=^^1^1^2920513^^

 ;;^DD(9.404,2,21,1,0)

 ;;=The version number of this verified Package.

 ;;^DD(9.404,2,"DT")

 ;;=2840815

 ;;^DD(9.404,3,0)

 ;;=COMMENTS^9.414^^1;0

 ;;^DD(9.404,3,21,0)

 ;;=^^1^1^2920513^^

 ;;^DD(9.404,3,21,1,0)

 ;;=Comments regarding this verified version of the Package.

 ;;^DD(9.409,0)

 ;;=*DELTA SUB-FIELD^NL^.01^1

 ;;^DD(9.409,0,"NM","*DELTA")

;;=

 ;;^DD(9.409,0,"UP")

 ;;=9.4

 ;;^DD(9.409,.01,0)

 ;;=DELTA^MP4'X^DIC(4,^0;1^S:$D(X) DINUM=X

 ;;^DD(9.409,.01,3)

 ;;=Please enter the name of the Delta Test site.

 ;;^DD(9.409,.01,21,0)

 ;;=^^1^1^2851007^

 ;;^DD(9.409,.01,21,1,0)

 ;;=The name of a Delta Test site for this Package.

 ;;^DD(9.409,.01,"DT")

 ;;=2840815

 ;;^DD(9.41,0)

 ;;=DESCRIPTION SUB-FIELD^NL^.01^1

 ;;^DD(9.41,0,"NM","DESCRIPTION")

;;=

 ;;^DD(9.41,0,"UP")

 ;;=9.4

 ;;^DD(9.41,.01,0)

 ;;=DESCRIPTION^W^^0;1^Q

 ;;^DD(9.41,.01,3)

 ;;=Please enter a complete and detailed description of the Package.

 ;;^DD(9.41,.01,21,0)

 ;;=^^2^2^2920513^^^^

 ;;^DD(9.41,.01,21,1,0)

 ;;=This is a complete and detailed description of the Package's functions

 ;;^DD(9.41,.01,21,2,0)

 ;;=and capabilities.

 ;;^DD(9.41,.01,"DT")

 ;;=2851007

 ;;^DD(9.414,0)

 ;;=COMMENTS SUB-FIELD^NL^.01^1

 ;;^DD(9.414,0,"NM","COMMENTS")

;;=

 ;;^DD(9.414,0,"UP")

 ;;=9.404

 ;;^DD(9.414,.01,0)

 ;;=COMMENTS^W^^0;1^Q

 ;;^DD(9.414,.01,3)

 ;;=Comments relating to verification

 ;;^DD(9.414,.01,21,0)

 ;;=^^1^1^2920513^^^

 ;;^DD(9.414,.01,21,1,0)

 ;;=Comments regarding this verified version of the Package.

 ;;^DD(9.414,.01,"DT")

 ;;=2840815

 ;;^DD(9.415007,0)

 ;;=SYNONYM SUB-FIELD^^.01^1

 ;;^DD(9.415007,0,"DT")

 ;;=2941020

 ;;^DD(9.415007,0,"IX","B",9.415007,.01)

;;=

 ;;^DD(9.415007,0,"NM","SYNONYM")

;;=

 ;;^DD(9.415007,0,"UP")

 ;;=9.4

 ;;^DD(9.415007,.01,0)

 ;;=SYNONYM^F^^0;1^K:$L(X)>30!($L(X)<2) X

 ;;^DD(9.415007,.01,1,0)

 ;;=^.1

 ;;^DD(9.415007,.01,1,1,0)

 ;;=9.415007^B

 ;;^DD(9.415007,.01,1,1,1)

 ;;=S ^DIC(9.4,DA(1),15007,"B",$E(X,1,30),DA)=""

 ;;^DD(9.415007,.01,1,1,2)

 ;;=K ^DIC(9.4,DA(1),15007,"B",$E(X,1,30),DA)

 ;;^DD(9.415007,.01,1,2,0)

 ;;=9.4^E

 ;;^DD(9.415007,.01,1,2,1)

 ;;=S ^DIC(9.4,"E",$E(X,1,30),DA(1),DA)=""

 ;;^DD(9.415007,.01,1,2,2)

 ;;=K ^DIC(9.4,"E",$E(X,1,30),DA(1),DA)

 ;;^DD(9.415007,.01,1,2,"%D",0)

 ;;=^^2^2^2941020^

 ;;^DD(9.415007,.01,1,2,"%D",1,0)

 ;;=This allow the lookup of a package other than it's official name.

 ;;^DD(9.415007,.01,1,2,"%D",2,0)

 ;;=It is'nt used by the Kernel VERSION function.

 ;;^DD(9.415007,.01,1,2,"DT")

 ;;=2941020

 ;;^DD(9.415007,.01,3)

 ;;=Answer must be 2-30 characters in length.

 ;;^DD(9.415007,.01,"DT")

 ;;=2941020

 ;;^DD(9.42,0)

 ;;=*ROUTINE SUB-FIELD^NL^.01^1

 ;;^DD(9.42,0,"IX","B",9.42,.01)

;;=

 ;;^DD(9.42,0,"NM","*ROUTINE")

;;=

 ;;^DD(9.42,0,"UP")

 ;;=9.4

 ;;^DD(9.42,.01,0)

 ;;=ROUTINE^MFX^^0;1^K:$L(X)>8!($L(X)<1)!'(X?.UN!(X?1"%".UN)) X

 ;;^DD(9.42,.01,1,0)

 ;;=^.1^^-1

 ;;^DD(9.42,.01,1,1,0)

 ;;=9.4^D

 ;;^DD(9.42,.01,1,1,1)

 ;;=S ^DIC(9.4,"D",X,DA(1))=""

 ;;^DD(9.42,.01,1,1,2)

 ;;=K ^DIC(9.4,"D",X,DA(1))

 ;;^DD(9.42,.01,1,2,0)

 ;;=9.42^B

 ;;^DD(9.42,.01,1,2,1)

 ;;=S ^DIC(9.4,DA(1),2,"B",X,DA)=""

 ;;^DD(9.42,.01,1,2,2)

 ;;=K ^DIC(9.4,DA(1),2,"B",X,DA)

 ;;^DD(9.42,.01,3)

 ;;=Please enter a routine name (1-8 characters).

 ;;^DD(9.42,.01,21,0)

 ;;=^^3^3^2920513^^^^

DIPKI004  ; ; 30-MAR-1999

 +1       ;;22.0;VA FileMan;;Mar 30, 1999

 +2       ;Per VHA Directive 10-93-142, this routine should not be modified.

 +3        IF 'DIFQ(9.4)

               QUIT

           FOR I=1:2

               SET X=$TEXT(Q+I)

               IF X=""

                   QUIT

               SET Y=$EXTRACT($TEXT(Q+I+1),4,999)

               SET X=$EXTRACT(X,4,999)

               IF $ASCII(Y)=126

                   SET I=I+1

                   SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,99)

               IF $ASCII(Y)=61

                   SET Y=$EXTRACT(Y,2,999)

               XECUTE NO

              IF '$TEST

                   SET @X=Y

Q          QUIT

 +1       ;;^DD(9.4,1946,21,2,0)

 +2       ;;=along with the Package.

 +3       ;;^DD(9.4,1946,"DT")

 +4       ;;=2940606

 +5       ;;^DD(9.4,15007,0)

 +6       ;;=SYNONYM^9.415007^^15007;0

 +7       ;;^DD(9.402,0)

 +8       ;;=AFFECTS RECORD MERGE SUB-FIELD^^4^3

 +9       ;;^DD(9.402,0,"DT")

 +10      ;;=2900906

 +11      ;;^DD(9.402,0,"IX","B",9.402,.01)

 +12      ;;=

 +13      ;;^DD(9.402,0,"NM","AFFECTS RECORD MERGE")

 +14      ;;=

 +15      ;;^DD(9.402,0,"UP")

 +16      ;;=9.4

 +17      ;;^DD(9.402,.01,0)

 +18      ;;=FILE AFFECTED^*P1'X^DIC(^0;1^S DIC("S")="I $D(^DD(15,.01,""V"",""B"",Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X

 +19      ;;^DD(9.402,.01,1,0)

 +20      ;;=^.1

 +21      ;;^DD(9.402,.01,1,1,0)

 +22      ;;=9.402^B

 +23      ;;^DD(9.402,.01,1,1,1)

 +24      ;;=S ^DIC(9.4,DA(1),20,"B",$E(X,1,30),DA)=""

 +25      ;;^DD(9.402,.01,1,1,2)

 +26      ;;=K ^DIC(9.4,DA(1),20,"B",$E(X,1,30),DA)

 +27      ;;^DD(9.402,.01,1,2,0)

 +28      ;;=9.4^AMRG

 +29      ;;^DD(9.402,.01,1,2,1)

 +30      ;;=S ^DIC(9.4,"AMRG",$E(X,1,30),DA(1),DA)=""

 +31      ;;^DD(9.402,.01,1,2,2)

 +32      ;;=K ^DIC(9.4,"AMRG",$E(X,1,30),DA(1),DA)

 +33      ;;^DD(9.402,.01,1,2,"%D",0)

 +34      ;;=^^2^2^2900906^

 +35      ;;^DD(9.402,.01,1,2,"%D",1,0)

 +36      ;;=This xref is used by the merge process to determine if any package

 +37      ;;^DD(9.402,.01,1,2,"%D",2,0)

 +38      ;;=file entry affects the file being merged.

 +39      ;;^DD(9.402,.01,1,2,"DT")

 +40      ;;=2900906

 +41      ;;^DD(9.402,.01,3)

 +42      ;;=Pointer to a file that has been added to FILE 15's variable pointer.

 +43      ;;^DD(9.402,.01,12)

 +44      ;;=MUST BE VARIABLE POINTER FILE IN FIELD .01 OF FILE 15

 +45      ;;^DD(9.402,.01,12.1)

 +46      ;;=S DIC("S")="I $D(^DD(15,.01,""V"",""B"",Y))"

 +47      ;;^DD(9.402,.01,21,0)

 +48      ;;=^^1^1^2940627^^

 +49      ;;^DD(9.402,.01,21,1,0)

 +50      ;;=A file that if merged will affect this package.

 +51      ;;^DD(9.402,.01,"DT")

 +52      ;;=2900910

 +53      ;;^DD(9.402,3,0)

 +54      ;;=NAME OF MERGE ROUTINE^F^^0;3^K:$L(X)>8!($L(X)<2)!'(X?1U1.7UN) X

 +55      ;;^DD(9.402,3,3)

 +56      ;;=Answer with a routine name (1U.1.7UN).

 +57      ;;^DD(9.402,3,21,0)

 +58      ;;=^^4^4^2930330^

 +59      ;;^DD(9.402,3,21,1,0)

 +60      ;;=This field holds the routine name to call when two records in

 +61      ;;^DD(9.402,3,21,2,0)

 +62      ;;=an affected file are to be merged. This allows the package to

 +63      ;;^DD(9.402,3,21,3,0)

 +64      ;;=do any repointing or other clean-up needed before the records

 +65      ;;^DD(9.402,3,21,4,0)

 +66      ;;=are merged.

 +67      ;;^DD(9.402,3,"DT")

 +68      ;;=2900816

 +69      ;;^DD(9.402,4,0)

 +70      ;;=RECORD HAS PACKAGE DATA^K^^1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM

 +71      ;;^DD(9.402,4,3)

 +72      ;;=This is Standard MUMPS code. To tell if this record has data in this package.

 +73      ;;^DD(9.402,4,9)

 +74      ;;=@

 +75      ;;^DD(9.402,4,"DT")

 +76      ;;=2900816

 +77      ;;^DD(9.404,0)

 +78      ;;=*VERIFICATION SUB-FIELD^NL^3^4

 +79      ;;^DD(9.404,0,"ID",1)

 +80      ;;=W:$D(^(0)) "   ",$P(^(0),U,2)

 +81      ;;^DD(9.404,0,"NM","*VERIFICATION")

 +82      ;;=

 +83      ;;^DD(9.404,0,"UP")

 +84      ;;=9.4

 +85      ;;^DD(9.404,.01,0)

 +86      ;;=VERIFICATION^DX^^0;1^S %DT="E" D ^%DT S (DINUM,X)=Y K:Y<1 DINUM,X

 +87      ;;^DD(9.404,.01,21,0)

 +88      ;;=^^1^1^2920513^^^

 +89      ;;^DD(9.404,.01,21,1,0)

 +90      ;;=Date of notification that this software has been verified.

 +91      ;;^DD(9.404,.01,"DT")

 +92      ;;=2840815

 +93      ;;^DD(9.404,1,0)

 +94      ;;=ISC^F^^0;2^K:$L(X)>20!($L(X)<2) X

 +95      ;;^DD(9.404,1,3)

 +96      ;;=The name of the ISC responsible for verification (3-20 characters).

 +97      ;;^DD(9.404,1,21,0)

 +98      ;;=^^1^1^2920513^^

 +99      ;;^DD(9.404,1,21,1,0)

 +100     ;;=The name of the ISC where this verification was done.

 +101     ;;^DD(9.404,1,"DT")

 +102     ;;=2840815

 +103     ;;^DD(9.404,2,0)

 +104     ;;=VERSION^NJ6,2^^0;3^K:+X'=X!(X>999)!(X<0)!(X?.E1"."3N.N) X

 +105     ;;^DD(9.404,2,3)

 +106     ;;=Please enter the version number of this verified Package (0.00-999.99).

 +107     ;;^DD(9.404,2,21,0)

 +108     ;;=^^1^1^2920513^^

 +109     ;;^DD(9.404,2,21,1,0)

 +110     ;;=The version number of this verified Package.

 +111     ;;^DD(9.404,2,"DT")

 +112     ;;=2840815

 +113     ;;^DD(9.404,3,0)

 +114     ;;=COMMENTS^9.414^^1;0

 +115     ;;^DD(9.404,3,21,0)

 +116     ;;=^^1^1^2920513^^

 +117     ;;^DD(9.404,3,21,1,0)

 +118     ;;=Comments regarding this verified version of the Package.

 +119     ;;^DD(9.409,0)

 +120     ;;=*DELTA SUB-FIELD^NL^.01^1

 +121     ;;^DD(9.409,0,"NM","*DELTA")

 +122     ;;=

 +123     ;;^DD(9.409,0,"UP")

 +124     ;;=9.4

 +125     ;;^DD(9.409,.01,0)

 +126     ;;=DELTA^MP4'X^DIC(4,^0;1^S:$D(X) DINUM=X

 +127     ;;^DD(9.409,.01,3)

 +128     ;;=Please enter the name of the Delta Test site.

 +129     ;;^DD(9.409,.01,21,0)

 +130     ;;=^^1^1^2851007^

 +131     ;;^DD(9.409,.01,21,1,0)

 +132     ;;=The name of a Delta Test site for this Package.

 +133     ;;^DD(9.409,.01,"DT")

 +134     ;;=2840815

 +135     ;;^DD(9.41,0)

 +136     ;;=DESCRIPTION SUB-FIELD^NL^.01^1

 +137     ;;^DD(9.41,0,"NM","DESCRIPTION")

 +138     ;;=

 +139     ;;^DD(9.41,0,"UP")

 +140     ;;=9.4

 +141     ;;^DD(9.41,.01,0)

 +142     ;;=DESCRIPTION^W^^0;1^Q

 +143     ;;^DD(9.41,.01,3)

 +144     ;;=Please enter a complete and detailed description of the Package.

 +145     ;;^DD(9.41,.01,21,0)

 +146     ;;=^^2^2^2920513^^^^

 +147     ;;^DD(9.41,.01,21,1,0)

 +148     ;;=This is a complete and detailed description of the Package's functions

 +149     ;;^DD(9.41,.01,21,2,0)

 +150     ;;=and capabilities.

 +151     ;;^DD(9.41,.01,"DT")

 +152     ;;=2851007

 +153     ;;^DD(9.414,0)

 +154     ;;=COMMENTS SUB-FIELD^NL^.01^1

 +155     ;;^DD(9.414,0,"NM","COMMENTS")

 +156     ;;=

 +157     ;;^DD(9.414,0,"UP")

 +158     ;;=9.404

 +159     ;;^DD(9.414,.01,0)

 +160     ;;=COMMENTS^W^^0;1^Q

 +161     ;;^DD(9.414,.01,3)

 +162     ;;=Comments relating to verification

 +163     ;;^DD(9.414,.01,21,0)

 +164     ;;=^^1^1^2920513^^^

 +165     ;;^DD(9.414,.01,21,1,0)

 +166     ;;=Comments regarding this verified version of the Package.

 +167     ;;^DD(9.414,.01,"DT")

 +168     ;;=2840815

 +169     ;;^DD(9.415007,0)

 +170     ;;=SYNONYM SUB-FIELD^^.01^1

 +171     ;;^DD(9.415007,0,"DT")

 +172     ;;=2941020

 +173     ;;^DD(9.415007,0,"IX","B",9.415007,.01)

 +174     ;;=

 +175     ;;^DD(9.415007,0,"NM","SYNONYM")

 +176     ;;=

 +177     ;;^DD(9.415007,0,"UP")

 +178     ;;=9.4

 +179     ;;^DD(9.415007,.01,0)

 +180     ;;=SYNONYM^F^^0;1^K:$L(X)>30!($L(X)<2) X

 +181     ;;^DD(9.415007,.01,1,0)

 +182     ;;=^.1

 +183     ;;^DD(9.415007,.01,1,1,0)

 +184     ;;=9.415007^B

 +185     ;;^DD(9.415007,.01,1,1,1)

 +186     ;;=S ^DIC(9.4,DA(1),15007,"B",$E(X,1,30),DA)=""

 +187     ;;^DD(9.415007,.01,1,1,2)

 +188     ;;=K ^DIC(9.4,DA(1),15007,"B",$E(X,1,30),DA)

 +189     ;;^DD(9.415007,.01,1,2,0)

 +190     ;;=9.4^E

 +191     ;;^DD(9.415007,.01,1,2,1)

 +192     ;;=S ^DIC(9.4,"E",$E(X,1,30),DA(1),DA)=""

 +193     ;;^DD(9.415007,.01,1,2,2)

 +194     ;;=K ^DIC(9.4,"E",$E(X,1,30),DA(1),DA)

 +195     ;;^DD(9.415007,.01,1,2,"%D",0)

 +196     ;;=^^2^2^2941020^

 +197     ;;^DD(9.415007,.01,1,2,"%D",1,0)

 +198     ;;=This allow the lookup of a package other than it's official name.

 +199     ;;^DD(9.415007,.01,1,2,"%D",2,0)

 +200     ;;=It is'nt used by the Kernel VERSION function.

 +201     ;;^DD(9.415007,.01,1,2,"DT")

 +202     ;;=2941020

 +203     ;;^DD(9.415007,.01,3)

 +204     ;;=Answer must be 2-30 characters in length.

 +205     ;;^DD(9.415007,.01,"DT")

 +206     ;;=2941020

 +207     ;;^DD(9.42,0)

 +208     ;;=*ROUTINE SUB-FIELD^NL^.01^1

 +209     ;;^DD(9.42,0,"IX","B",9.42,.01)

 +210     ;;=

 +211     ;;^DD(9.42,0,"NM","*ROUTINE")

 +212     ;;=

 +213     ;;^DD(9.42,0,"UP")

 +214     ;;=9.4

 +215     ;;^DD(9.42,.01,0)

 +216     ;;=ROUTINE^MFX^^0;1^K:$L(X)>8!($L(X)<1)!'(X?.UN!(X?1"%".UN)) X

 +217     ;;^DD(9.42,.01,1,0)

 +218     ;;=^.1^^-1

 +219     ;;^DD(9.42,.01,1,1,0)

 +220     ;;=9.4^D

 +221     ;;^DD(9.42,.01,1,1,1)

 +222     ;;=S ^DIC(9.4,"D",X,DA(1))=""

 +223     ;;^DD(9.42,.01,1,1,2)

 +224     ;;=K ^DIC(9.4,"D",X,DA(1))

 +225     ;;^DD(9.42,.01,1,2,0)

 +226     ;;=9.42^B

 +227     ;;^DD(9.42,.01,1,2,1)

 +228     ;;=S ^DIC(9.4,DA(1),2,"B",X,DA)=""

 +229     ;;^DD(9.42,.01,1,2,2)

 +230     ;;=K ^DIC(9.4,DA(1),2,"B",X,DA)

 +231     ;;^DD(9.42,.01,3)

 +232     ;;=Please enter a routine name (1-8 characters).

 +233     ;;^DD(9.42,.01,21,0)

 +234     ;;=^^3^3^2920513^^^^

DIPKI004.m