DIPKI004 ; ; 30-MAR-1999
;;22.0;VA FileMan;;Mar 30, 1999;Build 1
;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^^^^
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDIPKI004 7043 printed Sep 23, 2025@20:28:58 Page 2
DIPKI004 ; ; 30-MAR-1999
+1 ;;22.0;VA FileMan;;Mar 30, 1999;Build 1
+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^^^^
