DIPKI002 ; ; 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,9.1,"DT")
;;=2940603
;;^DD(9.4,9.5,0)
;;=*MENU^9.495^^M;0
;;^DD(9.4,9.5,21,0)
;;=^^1^1^2920513^^^
;;^DD(9.4,9.5,21,1,0)
;;=This is the name of a menu-type option in another namespace.
;;^DD(9.4,9.5,"DT")
;;=2940603
;;^DD(9.4,10,0)
;;=DEVELOPER (PERSON/SITE)^F^^DEV;1^K:$L(X)>50!($L(X)<2) X
;;^DD(9.4,10,3)
;;=Please enter the name of the principal Developer and Site (2-50 characters).
;;^DD(9.4,10,21,0)
;;=^^1^1^2920513^^
;;^DD(9.4,10,21,1,0)
;;=The name of the principal Developer and Site for this Package.
;;^DD(9.4,10.6,0)
;;=*LOWEST FILE NUMBER^NJ12,2^^11;1^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."3N.N) X
;;^DD(9.4,10.6,3)
;;=Type a Number between 0 and 999999999, 2 Decimal Digits
;;^DD(9.4,10.6,21,0)
;;=^^1^1^2920513^^^^
;;^DD(9.4,10.6,21,1,0)
;;=Inclusive lower bound of the range of file numbers allocated to this package.
;;^DD(9.4,10.6,"DT")
;;=2940603
;;^DD(9.4,11,0)
;;=*HIGHEST FILE NUMBER^NJ12,2^^11;2^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."3N.N) X
;;^DD(9.4,11,3)
;;=Type a Number between 0 and 999999999, 2 Decimal Digits
;;^DD(9.4,11,21,0)
;;=^^1^1^2920513^^^
;;^DD(9.4,11,21,1,0)
;;=Inclusive upper bound of the range of file numbers assigned to this package.
;;^DD(9.4,11,"DT")
;;=2940603
;;^DD(9.4,11.01,0)
;;=DEVELOPMENT ISC^F^^5;1^K:$L(X)>20!($L(X)<3) X
;;^DD(9.4,11.01,3)
;;=Please enter the name of the ISC (3-20 characters).
;;^DD(9.4,11.01,21,0)
;;=^^1^1^2920513^^^
;;^DD(9.4,11.01,21,1,0)
;;=The ISC responsible for the development and management of this Package.
;;^DD(9.4,11.01,"DT")
;;=2840815
;;^DD(9.4,11.1,0)
;;=*MAINTENANCE ISC^F^^7;1^K:$L(X)>20!($L(X)<3) X
;;^DD(9.4,11.1,3)
;;=Please enter the name of the ISC (3-20 characters).
;;^DD(9.4,11.1,21,0)
;;=^^1^1^2920513^^^
;;^DD(9.4,11.1,21,1,0)
;;=The ISC responsible for the support and maintenance of this Package.
;;^DD(9.4,11.1,"DT")
;;=2940603
;;^DD(9.4,11.3,0)
;;=CLASS^S^I:National;II:Inactive;III:Local;^7;3^Q
;;^DD(9.4,11.3,21,0)
;;=^^1^1^2920513^^
;;^DD(9.4,11.3,21,1,0)
;;=The ranking Class of this software Package.
;;^DD(9.4,11.3,"DT")
;;=2940325
;;^DD(9.4,11.4,0)
;;=*VERIFICATION^9.404ID^^8;0
;;^DD(9.4,11.4,21,0)
;;=^^1^1^2920513^^^
;;^DD(9.4,11.4,21,1,0)
;;=Information about the verification(s) of this Package.
;;^DD(9.4,11.4,"DT")
;;=2940603
;;^DD(9.4,11.5,0)
;;=*ALPHA^P4'^DIC(4,^9;1^Q
;;^DD(9.4,11.5,3)
;;=Please enter the name of the Alpha Test site.
;;^DD(9.4,11.5,21,0)
;;=^^1^1^2920513^^^
;;^DD(9.4,11.5,21,1,0)
;;=The name of this Package's Alpha Test site.
;;^DD(9.4,11.5,"DT")
;;=2940603
;;^DD(9.4,11.6,0)
;;=*BETA^P4'^DIC(4,^9;2^Q
;;^DD(9.4,11.6,3)
;;=Please enter the name of the Beta Test site.
;;^DD(9.4,11.6,21,0)
;;=^^1^1^2920513^^^
;;^DD(9.4,11.6,21,1,0)
;;=The name of this Package's Beta Test site.
;;^DD(9.4,11.6,"DT")
;;=2940603
;;^DD(9.4,11.7,0)
;;=*DELTA^9.409P^^10;0
;;^DD(9.4,11.7,21,0)
;;=^^1^1^2920706^^
;;^DD(9.4,11.7,21,1,0)
;;=The names of the Delta Test sites for this Package.
;;^DD(9.4,11.7,"DT")
;;=2940603
;;^DD(9.4,12,0)
;;=*PRIMARY HELP FRAME^P9.2'^DIC(9.2,^0;4^Q
;;^DD(9.4,12,3)
;;=
;;^DD(9.4,12,21,0)
;;=^^1^1^2920416^^^
;;^DD(9.4,12,21,1,0)
;;=This is the primary Help Frame for this Package.
;;^DD(9.4,12,"DT")
;;=2940603
;;^DD(9.4,13,0)
;;=CURRENT VERSION^F^^VERSION;1^K:$L(X)>8!($L(X)<1)!'(X?1N.ANP) X
;;^DD(9.4,13,3)
;;=Enter the version of this package currently running, (1-8 characters).
;;^DD(9.4,13,21,0)
;;=^^5^5^2920702^
;;^DD(9.4,13,21,1,0)
;;=This field holds the version number of the package currently running
;;^DD(9.4,13,21,2,0)
;;=at this site. When a package initialization has been run, this field
;;^DD(9.4,13,21,3,0)
;;=will be updated with the version number most recently installed.
;;^DD(9.4,13,21,4,0)
;;=This can be either using the old format (1.0, 16.04, etc.) or the new
;;^DD(9.4,13,21,5,0)
;;=format (18.0T4, 19.1V2, etc.)
;;^DD(9.4,13,"DT")
;;=2860221
;;^DD(9.4,20,0)
;;=AFFECTS RECORD MERGE^9.402P^^20;0
;;^DD(9.4,20,21,0)
;;=^^2^2^2940627^
;;^DD(9.4,20,21,1,0)
;;=This Multipule lists the files that will impact this package if a Record
;;^DD(9.4,20,21,2,0)
;;=Merge is done on any of the files in the list.
;;^DD(9.4,22,0)
;;=VERSION^9.49I^^22;0
;;^DD(9.4,22,21,0)
;;=^^1^1^2930415^^^^
;;^DD(9.4,22,21,1,0)
;;=The version numbers of this Package.
;;^DD(9.4,200.1,0)
;;=*USER TERMINATE TAG^F^^200;1^K:$L(X)>8!($L(X)<1)!'((X?1U.UN)!(X?1N.N)) X
;;^DD(9.4,200.1,3)
;;=Enter the entry TAG for the routine in field 200.2
;;^DD(9.4,200.1,21,0)
;;=^^3^3^2920306^^^
;;^DD(9.4,200.1,21,1,0)
;;=This field holds the entry point into the routine that will be called at
;;^DD(9.4,200.1,21,2,0)
;;=the time that a USER (File 200 entry with access/verify codes) is
;;^DD(9.4,200.1,21,3,0)
;;=terminated. See field 200.2
;;^DD(9.4,200.1,"DT")
;;=2940603
;;^DD(9.4,200.2,0)
;;=*USER TERMINATE ROUTINE^F^^200;2^K:$L(X)>8!($L(X)<2)!'(X?2U.UN) X
;;^DD(9.4,200.2,3)
;;=Enter a 2-8 character routine name.
;;^DD(9.4,200.2,21,0)
;;=^^7^7^2920306^^^
;;^DD(9.4,200.2,21,1,0)
;;=This field holds the name of a routine that will be called at the time
;;^DD(9.4,200.2,21,2,0)
;;=that a USER (File 200 entry with access/verify codes) is terminated.
;;^DD(9.4,200.2,21,3,0)
;;=ie. has their access/verify codes removed.
;;^DD(9.4,200.2,21,4,0)
;;=This is to allow each package to do their own clean-up.
;;^DD(9.4,200.2,21,5,0)
;;=
;;^DD(9.4,200.2,21,6,0)
;;=At the time the call is made DA will hold the IFN of the user being
;;^DD(9.4,200.2,21,7,0)
;;=terminated. This normally runs in the background without an IO device.
;;^DD(9.4,200.2,"DT")
;;=2940603
;;^DD(9.4,913,0)
;;=*ENVIRONMENT CHECK ROUTINE^F^^PRE;1^K:$L(X)>8!($L(X)<3) X
;;^DD(9.4,913,.1)
;;=DEVELOPERS ROUTINE RUN BEFORE 'INIT' QUESTIONS ASKED
;;^DD(9.4,913,3)
;;=Enter name of developer's environment check routine (3-8 characters) that runs before any user questions are asked. This routine should be used for environment check only and should not alter data.
;;^DD(9.4,913,21,0)
;;=^^4^4^2921202^
;;^DD(9.4,913,21,1,0)
;;=The name of the developer's routine which is run at the beginning of
;;^DD(9.4,913,21,2,0)
;;=the NAMESPACE_INIT routine. This should just check the environment
;;^DD(9.4,913,21,3,0)
;;=and should not alter any data, since the user has no way to exit out of
;;^DD(9.4,913,21,4,0)
;;=the INIT process until this program runs to completion.
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDIPKI002 6999 printed Sep 23, 2025@20:28:57 Page 2
DIPKI002 ; ; 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,9.1,"DT")
+2 ;;=2940603
+3 ;;^DD(9.4,9.5,0)
+4 ;;=*MENU^9.495^^M;0
+5 ;;^DD(9.4,9.5,21,0)
+6 ;;=^^1^1^2920513^^^
+7 ;;^DD(9.4,9.5,21,1,0)
+8 ;;=This is the name of a menu-type option in another namespace.
+9 ;;^DD(9.4,9.5,"DT")
+10 ;;=2940603
+11 ;;^DD(9.4,10,0)
+12 ;;=DEVELOPER (PERSON/SITE)^F^^DEV;1^K:$L(X)>50!($L(X)<2) X
+13 ;;^DD(9.4,10,3)
+14 ;;=Please enter the name of the principal Developer and Site (2-50 characters).
+15 ;;^DD(9.4,10,21,0)
+16 ;;=^^1^1^2920513^^
+17 ;;^DD(9.4,10,21,1,0)
+18 ;;=The name of the principal Developer and Site for this Package.
+19 ;;^DD(9.4,10.6,0)
+20 ;;=*LOWEST FILE NUMBER^NJ12,2^^11;1^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."3N.N) X
+21 ;;^DD(9.4,10.6,3)
+22 ;;=Type a Number between 0 and 999999999, 2 Decimal Digits
+23 ;;^DD(9.4,10.6,21,0)
+24 ;;=^^1^1^2920513^^^^
+25 ;;^DD(9.4,10.6,21,1,0)
+26 ;;=Inclusive lower bound of the range of file numbers allocated to this package.
+27 ;;^DD(9.4,10.6,"DT")
+28 ;;=2940603
+29 ;;^DD(9.4,11,0)
+30 ;;=*HIGHEST FILE NUMBER^NJ12,2^^11;2^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."3N.N) X
+31 ;;^DD(9.4,11,3)
+32 ;;=Type a Number between 0 and 999999999, 2 Decimal Digits
+33 ;;^DD(9.4,11,21,0)
+34 ;;=^^1^1^2920513^^^
+35 ;;^DD(9.4,11,21,1,0)
+36 ;;=Inclusive upper bound of the range of file numbers assigned to this package.
+37 ;;^DD(9.4,11,"DT")
+38 ;;=2940603
+39 ;;^DD(9.4,11.01,0)
+40 ;;=DEVELOPMENT ISC^F^^5;1^K:$L(X)>20!($L(X)<3) X
+41 ;;^DD(9.4,11.01,3)
+42 ;;=Please enter the name of the ISC (3-20 characters).
+43 ;;^DD(9.4,11.01,21,0)
+44 ;;=^^1^1^2920513^^^
+45 ;;^DD(9.4,11.01,21,1,0)
+46 ;;=The ISC responsible for the development and management of this Package.
+47 ;;^DD(9.4,11.01,"DT")
+48 ;;=2840815
+49 ;;^DD(9.4,11.1,0)
+50 ;;=*MAINTENANCE ISC^F^^7;1^K:$L(X)>20!($L(X)<3) X
+51 ;;^DD(9.4,11.1,3)
+52 ;;=Please enter the name of the ISC (3-20 characters).
+53 ;;^DD(9.4,11.1,21,0)
+54 ;;=^^1^1^2920513^^^
+55 ;;^DD(9.4,11.1,21,1,0)
+56 ;;=The ISC responsible for the support and maintenance of this Package.
+57 ;;^DD(9.4,11.1,"DT")
+58 ;;=2940603
+59 ;;^DD(9.4,11.3,0)
+60 ;;=CLASS^S^I:National;II:Inactive;III:Local;^7;3^Q
+61 ;;^DD(9.4,11.3,21,0)
+62 ;;=^^1^1^2920513^^
+63 ;;^DD(9.4,11.3,21,1,0)
+64 ;;=The ranking Class of this software Package.
+65 ;;^DD(9.4,11.3,"DT")
+66 ;;=2940325
+67 ;;^DD(9.4,11.4,0)
+68 ;;=*VERIFICATION^9.404ID^^8;0
+69 ;;^DD(9.4,11.4,21,0)
+70 ;;=^^1^1^2920513^^^
+71 ;;^DD(9.4,11.4,21,1,0)
+72 ;;=Information about the verification(s) of this Package.
+73 ;;^DD(9.4,11.4,"DT")
+74 ;;=2940603
+75 ;;^DD(9.4,11.5,0)
+76 ;;=*ALPHA^P4'^DIC(4,^9;1^Q
+77 ;;^DD(9.4,11.5,3)
+78 ;;=Please enter the name of the Alpha Test site.
+79 ;;^DD(9.4,11.5,21,0)
+80 ;;=^^1^1^2920513^^^
+81 ;;^DD(9.4,11.5,21,1,0)
+82 ;;=The name of this Package's Alpha Test site.
+83 ;;^DD(9.4,11.5,"DT")
+84 ;;=2940603
+85 ;;^DD(9.4,11.6,0)
+86 ;;=*BETA^P4'^DIC(4,^9;2^Q
+87 ;;^DD(9.4,11.6,3)
+88 ;;=Please enter the name of the Beta Test site.
+89 ;;^DD(9.4,11.6,21,0)
+90 ;;=^^1^1^2920513^^^
+91 ;;^DD(9.4,11.6,21,1,0)
+92 ;;=The name of this Package's Beta Test site.
+93 ;;^DD(9.4,11.6,"DT")
+94 ;;=2940603
+95 ;;^DD(9.4,11.7,0)
+96 ;;=*DELTA^9.409P^^10;0
+97 ;;^DD(9.4,11.7,21,0)
+98 ;;=^^1^1^2920706^^
+99 ;;^DD(9.4,11.7,21,1,0)
+100 ;;=The names of the Delta Test sites for this Package.
+101 ;;^DD(9.4,11.7,"DT")
+102 ;;=2940603
+103 ;;^DD(9.4,12,0)
+104 ;;=*PRIMARY HELP FRAME^P9.2'^DIC(9.2,^0;4^Q
+105 ;;^DD(9.4,12,3)
+106 ;;=
+107 ;;^DD(9.4,12,21,0)
+108 ;;=^^1^1^2920416^^^
+109 ;;^DD(9.4,12,21,1,0)
+110 ;;=This is the primary Help Frame for this Package.
+111 ;;^DD(9.4,12,"DT")
+112 ;;=2940603
+113 ;;^DD(9.4,13,0)
+114 ;;=CURRENT VERSION^F^^VERSION;1^K:$L(X)>8!($L(X)<1)!'(X?1N.ANP) X
+115 ;;^DD(9.4,13,3)
+116 ;;=Enter the version of this package currently running, (1-8 characters).
+117 ;;^DD(9.4,13,21,0)
+118 ;;=^^5^5^2920702^
+119 ;;^DD(9.4,13,21,1,0)
+120 ;;=This field holds the version number of the package currently running
+121 ;;^DD(9.4,13,21,2,0)
+122 ;;=at this site. When a package initialization has been run, this field
+123 ;;^DD(9.4,13,21,3,0)
+124 ;;=will be updated with the version number most recently installed.
+125 ;;^DD(9.4,13,21,4,0)
+126 ;;=This can be either using the old format (1.0, 16.04, etc.) or the new
+127 ;;^DD(9.4,13,21,5,0)
+128 ;;=format (18.0T4, 19.1V2, etc.)
+129 ;;^DD(9.4,13,"DT")
+130 ;;=2860221
+131 ;;^DD(9.4,20,0)
+132 ;;=AFFECTS RECORD MERGE^9.402P^^20;0
+133 ;;^DD(9.4,20,21,0)
+134 ;;=^^2^2^2940627^
+135 ;;^DD(9.4,20,21,1,0)
+136 ;;=This Multipule lists the files that will impact this package if a Record
+137 ;;^DD(9.4,20,21,2,0)
+138 ;;=Merge is done on any of the files in the list.
+139 ;;^DD(9.4,22,0)
+140 ;;=VERSION^9.49I^^22;0
+141 ;;^DD(9.4,22,21,0)
+142 ;;=^^1^1^2930415^^^^
+143 ;;^DD(9.4,22,21,1,0)
+144 ;;=The version numbers of this Package.
+145 ;;^DD(9.4,200.1,0)
+146 ;;=*USER TERMINATE TAG^F^^200;1^K:$L(X)>8!($L(X)<1)!'((X?1U.UN)!(X?1N.N)) X
+147 ;;^DD(9.4,200.1,3)
+148 ;;=Enter the entry TAG for the routine in field 200.2
+149 ;;^DD(9.4,200.1,21,0)
+150 ;;=^^3^3^2920306^^^
+151 ;;^DD(9.4,200.1,21,1,0)
+152 ;;=This field holds the entry point into the routine that will be called at
+153 ;;^DD(9.4,200.1,21,2,0)
+154 ;;=the time that a USER (File 200 entry with access/verify codes) is
+155 ;;^DD(9.4,200.1,21,3,0)
+156 ;;=terminated. See field 200.2
+157 ;;^DD(9.4,200.1,"DT")
+158 ;;=2940603
+159 ;;^DD(9.4,200.2,0)
+160 ;;=*USER TERMINATE ROUTINE^F^^200;2^K:$L(X)>8!($L(X)<2)!'(X?2U.UN) X
+161 ;;^DD(9.4,200.2,3)
+162 ;;=Enter a 2-8 character routine name.
+163 ;;^DD(9.4,200.2,21,0)
+164 ;;=^^7^7^2920306^^^
+165 ;;^DD(9.4,200.2,21,1,0)
+166 ;;=This field holds the name of a routine that will be called at the time
+167 ;;^DD(9.4,200.2,21,2,0)
+168 ;;=that a USER (File 200 entry with access/verify codes) is terminated.
+169 ;;^DD(9.4,200.2,21,3,0)
+170 ;;=ie. has their access/verify codes removed.
+171 ;;^DD(9.4,200.2,21,4,0)
+172 ;;=This is to allow each package to do their own clean-up.
+173 ;;^DD(9.4,200.2,21,5,0)
+174 ;;=
+175 ;;^DD(9.4,200.2,21,6,0)
+176 ;;=At the time the call is made DA will hold the IFN of the user being
+177 ;;^DD(9.4,200.2,21,7,0)
+178 ;;=terminated. This normally runs in the background without an IO device.
+179 ;;^DD(9.4,200.2,"DT")
+180 ;;=2940603
+181 ;;^DD(9.4,913,0)
+182 ;;=*ENVIRONMENT CHECK ROUTINE^F^^PRE;1^K:$L(X)>8!($L(X)<3) X
+183 ;;^DD(9.4,913,.1)
+184 ;;=DEVELOPERS ROUTINE RUN BEFORE 'INIT' QUESTIONS ASKED
+185 ;;^DD(9.4,913,3)
+186 ;;=Enter name of developer's environment check routine (3-8 characters) that runs before any user questions are asked. This routine should be used for environment check only and should not alter data.
+187 ;;^DD(9.4,913,21,0)
+188 ;;=^^4^4^2921202^
+189 ;;^DD(9.4,913,21,1,0)
+190 ;;=The name of the developer's routine which is run at the beginning of
+191 ;;^DD(9.4,913,21,2,0)
+192 ;;=the NAMESPACE_INIT routine. This should just check the environment
+193 ;;^DD(9.4,913,21,3,0)
+194 ;;=and should not alter any data, since the user has no way to exit out of
+195 ;;^DD(9.4,913,21,4,0)
+196 ;;=the INIT process until this program runs to completion.
