DIPKI001 ; ; 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
;;^DIC(9.4,0,"GL")
;;=^DIC(9.4,
;;^DIC("B","PACKAGE",9.4)
;;=
;;^DIC(9.4,"%",0)
;;=^1.005^1^1
;;^DIC(9.4,"%",1,0)
;;=XU
;;^DIC(9.4,"%","B","XU",1)
;;=
;;^DIC(9.4,"%D",0)
;;=^^15^15^2940705^^^^
;;^DIC(9.4,"%D",1,0)
;;=This file identifies the elements of a package that will be transported
;;^DIC(9.4,"%D",2,0)
;;=by the initialization routines created by DIFROM. The prefix determines
;;^DIC(9.4,"%D",3,0)
;;=which namespaced entries will be retrieved from the Option, Bulletin,
;;^DIC(9.4,"%D",4,0)
;;=Help Frame, Function, and Security Key Files as well as the namespace
;;^DIC(9.4,"%D",5,0)
;;=that will be used to name the INIT routines built by running DIFROM.
;;^DIC(9.4,"%D",6,0)
;;=The Excluded Namespace field may be used to leave out some of these items.
;;^DIC(9.4,"%D",7,0)
;;=The File Multiple determines which files are sent with the package and
;;^DIC(9.4,"%D",8,0)
;;=whether data is included. Print, Input, Sort and Screen (FORM)
;;^DIC(9.4,"%D",9,0)
;;=templates are brought in by namespace, for the files listed in the File
;;^DIC(9.4,"%D",10,0)
;;=multiple. In addition, there are multiples for each type of template,
;;^DIC(9.4,"%D",11,0)
;;=that allow the user to specify individual templates outside the
;;^DIC(9.4,"%D",12,0)
;;=namespace to retrieve. Routines to be run before and after the
;;^DIC(9.4,"%D",13,0)
;;=INIT are specified in the Environment Check Routine, Pre-init after
;;^DIC(9.4,"%D",14,0)
;;=User Commit, and Post-Initialization Routine fields. The remaining
;;^DIC(9.4,"%D",15,0)
;;=fields are simply for documentation.
;;^DD(9.4,0)
;;=FIELD^NL^15007^41
;;^DD(9.4,0,"DDA")
;;=N
;;^DD(9.4,0,"DT")
;;=2941020
;;^DD(9.4,0,"ID",1)
;;=W:$D(^("0")) " ",$P(^("0"),U,2)
;;^DD(9.4,0,"IX","AMRG",9.402,.01)
;;=
;;^DD(9.4,0,"IX","AR",9.44,.01)
;;=
;;^DD(9.4,0,"IX","B",9.4,.01)
;;=
;;^DD(9.4,0,"IX","C",9.4,1)
;;=
;;^DD(9.4,0,"IX","D",9.42,.01)
;;=
;;^DD(9.4,0,"IX","E",9.415007,.01)
;;=
;;^DD(9.4,0,"NM","PACKAGE")
;;=
;;^DD(9.4,0,"PT",.84,1.2)
;;=
;;^DD(9.4,0,"PT",4.01,.01)
;;=
;;^DD(9.4,0,"PT",4.332,.01)
;;=
;;^DD(9.4,0,"PT",9.6,1)
;;=
;;^DD(9.4,0,"PT",9.7,1)
;;=
;;^DD(9.4,0,"PT",19,12)
;;=
;;^DD(9.4,0,"PT",101,12)
;;=
;;^DD(9.4,0,"PT",8989.332,.01)
;;=
;;^DD(9.4,0,"VRPK")
;;=KERNEL
;;^DD(9.4,.01,0)
;;=NAME^RF^^0;1^K:$L(X)>30!($L(X)<4)!'(X'?1P.E) X
;;^DD(9.4,.01,1,0)
;;=^.1
;;^DD(9.4,.01,1,1,0)
;;=9.4^B
;;^DD(9.4,.01,1,1,1)
;;=S ^DIC(9.4,"B",X,DA)=""
;;^DD(9.4,.01,1,1,2)
;;=K ^DIC(9.4,"B",X,DA)
;;^DD(9.4,.01,3)
;;=Please enter the name of this PACKAGE (4-30 characters).
;;^DD(9.4,.01,21,0)
;;=^^1^1^2940627^^^^
;;^DD(9.4,.01,21,1,0)
;;=The name of this Package.
;;^DD(9.4,1,0)
;;=PREFIX^RFX^^0;2^K:$L(X)>4!(X'?1U1.3NU) X I $D(X) S %=$O(^DIC(9.4,"C",X,0)) K:(%>0)&(%-DA) X
;;^DD(9.4,1,.1)
;;=NAMESPACE
;;^DD(9.4,1,1,0)
;;=^.1
;;^DD(9.4,1,1,1,0)
;;=9.4^C
;;^DD(9.4,1,1,1,1)
;;=S ^DIC(9.4,"C",X,DA)=""
;;^DD(9.4,1,1,1,2)
;;=K ^DIC(9.4,"C",X,DA)
;;^DD(9.4,1,3)
;;=Please enter the unique namespace prefix (2-4 characters, starting with an alpha).
;;^DD(9.4,1,21,0)
;;=^^4^4^2940627^^^^
;;^DD(9.4,1,21,1,0)
;;=This is the unique namespace prefix assigned to the Package, e.g. XM for
;;^DD(9.4,1,21,2,0)
;;=the MailMan routines and globals, DI for the FileMan routines, etc.
;;^DD(9.4,1,21,3,0)
;;=This field is appended to letters (like "INIT") to be used as the
;;^DD(9.4,1,21,4,0)
;;=names of INIT routines.
;;^DD(9.4,1,"DT")
;;=2890223
;;^DD(9.4,2,0)
;;=SHORT DESCRIPTION^RF^^0;3^K:$L(X)>60!($L(X)<2) X
;;^DD(9.4,2,3)
;;=Answer must be 2-60 characters in length.
;;^DD(9.4,2,21,0)
;;=1
;;^DD(9.4,2,21,1,0)
;;=This is a brief description of this Package's functions.
;;^DD(9.4,2,"DT")
;;=2890627
;;^DD(9.4,3,0)
;;=DESCRIPTION^9.41A^^1;0
;;^DD(9.4,3,21,0)
;;=^^2^2^2920513^^^
;;^DD(9.4,3,21,1,0)
;;=This is a complete and detailed description of the Package's functions
;;^DD(9.4,3,21,2,0)
;;=and capabilities.
;;^DD(9.4,4,0)
;;=*ROUTINE^9.42A^^2;0
;;^DD(9.4,4,21,0)
;;=^^3^3^2920513^^^^
;;^DD(9.4,4,21,1,0)
;;=These are the routines which make up this Package. This multiple
;;^DD(9.4,4,21,2,0)
;;=is used for documentation only, and is not used during the INIT
;;^DD(9.4,4,21,3,0)
;;=process.
;;^DD(9.4,4,"DT")
;;=2940603
;;^DD(9.4,5,0)
;;=*GLOBAL^9.43^^3;0
;;^DD(9.4,5,21,0)
;;=^^2^2^2920513^^^^
;;^DD(9.4,5,21,1,0)
;;=These are the globals which make up this Package. This multiple is used
;;^DD(9.4,5,21,2,0)
;;=for documentation purposes only.
;;^DD(9.4,5,"DT")
;;=2940603
;;^DD(9.4,6,0)
;;=*FILE^9.44PA^^4;0
;;^DD(9.4,6,21,0)
;;=^^3^3^2920513^^^^
;;^DD(9.4,6,21,1,0)
;;=Any FileMan files which are part of this Package are documented
;;^DD(9.4,6,21,2,0)
;;=here. This multiple controls what files (Data Dictionaries and
;;^DD(9.4,6,21,3,0)
;;=Data) are sent in an INIT built from this Package entry.
;;^DD(9.4,6,"DT")
;;=2940603
;;^DD(9.4,7,0)
;;=*PRINT TEMPLATE^9.46^^DIPT;0
;;^DD(9.4,7,21,0)
;;=^^4^4^2921202^^^^
;;^DD(9.4,7,21,1,0)
;;=The names of Print Templates being sent with this Package.
;;^DD(9.4,7,21,2,0)
;;=This multiple is used to send non-namespaced templates in an INIT.
;;^DD(9.4,7,21,3,0)
;;=Namespaced templates are sent automatically and need not be listed
;;^DD(9.4,7,21,4,0)
;;=separately.
;;^DD(9.4,7,"DT")
;;=2940603
;;^DD(9.4,8,0)
;;=*INPUT TEMPLATE^9.47^^DIE;0
;;^DD(9.4,8,21,0)
;;=^^4^4^2920513^^^
;;^DD(9.4,8,21,1,0)
;;=The names of the Input Templates being sent with this Package
;;^DD(9.4,8,21,2,0)
;;=This multiple is used to send non-namespaced templates in an INIT.
;;^DD(9.4,8,21,3,0)
;;=Namespaced templates are sent automatically and need not be listed
;;^DD(9.4,8,21,4,0)
;;=separately.
;;^DD(9.4,8,"DT")
;;=2940603
;;^DD(9.4,9,0)
;;=*SORT TEMPLATE^9.48^^DIBT;0
;;^DD(9.4,9,21,0)
;;=^^4^4^2920513^^^
;;^DD(9.4,9,21,1,0)
;;=The names of the Sort Templates being sent with this Package.
;;^DD(9.4,9,21,2,0)
;;=This multiple is used to send non-namespaced templates in an INIT.
;;^DD(9.4,9,21,3,0)
;;=Namespaced templates are sent automatically and need not be listed
;;^DD(9.4,9,21,4,0)
;;=separately.
;;^DD(9.4,9,"DT")
;;=2940603
;;^DD(9.4,9.1,0)
;;=*SCREEN TEMPLATE (FORM)^9.485^^DIST;0
;;^DD(9.4,9.1,21,0)
;;=^^2^2^2920513^^^
;;^DD(9.4,9.1,21,1,0)
;;=The names of Screen Templates (from the FORM file) associated with
;;^DD(9.4,9.1,21,2,0)
;;=this package.
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDIPKI001 7020 printed Sep 23, 2025@20:28:56 Page 2
DIPKI001 ; ; 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 ;;^DIC(9.4,0,"GL")
+2 ;;=^DIC(9.4,
+3 ;;^DIC("B","PACKAGE",9.4)
+4 ;;=
+5 ;;^DIC(9.4,"%",0)
+6 ;;=^1.005^1^1
+7 ;;^DIC(9.4,"%",1,0)
+8 ;;=XU
+9 ;;^DIC(9.4,"%","B","XU",1)
+10 ;;=
+11 ;;^DIC(9.4,"%D",0)
+12 ;;=^^15^15^2940705^^^^
+13 ;;^DIC(9.4,"%D",1,0)
+14 ;;=This file identifies the elements of a package that will be transported
+15 ;;^DIC(9.4,"%D",2,0)
+16 ;;=by the initialization routines created by DIFROM. The prefix determines
+17 ;;^DIC(9.4,"%D",3,0)
+18 ;;=which namespaced entries will be retrieved from the Option, Bulletin,
+19 ;;^DIC(9.4,"%D",4,0)
+20 ;;=Help Frame, Function, and Security Key Files as well as the namespace
+21 ;;^DIC(9.4,"%D",5,0)
+22 ;;=that will be used to name the INIT routines built by running DIFROM.
+23 ;;^DIC(9.4,"%D",6,0)
+24 ;;=The Excluded Namespace field may be used to leave out some of these items.
+25 ;;^DIC(9.4,"%D",7,0)
+26 ;;=The File Multiple determines which files are sent with the package and
+27 ;;^DIC(9.4,"%D",8,0)
+28 ;;=whether data is included. Print, Input, Sort and Screen (FORM)
+29 ;;^DIC(9.4,"%D",9,0)
+30 ;;=templates are brought in by namespace, for the files listed in the File
+31 ;;^DIC(9.4,"%D",10,0)
+32 ;;=multiple. In addition, there are multiples for each type of template,
+33 ;;^DIC(9.4,"%D",11,0)
+34 ;;=that allow the user to specify individual templates outside the
+35 ;;^DIC(9.4,"%D",12,0)
+36 ;;=namespace to retrieve. Routines to be run before and after the
+37 ;;^DIC(9.4,"%D",13,0)
+38 ;;=INIT are specified in the Environment Check Routine, Pre-init after
+39 ;;^DIC(9.4,"%D",14,0)
+40 ;;=User Commit, and Post-Initialization Routine fields. The remaining
+41 ;;^DIC(9.4,"%D",15,0)
+42 ;;=fields are simply for documentation.
+43 ;;^DD(9.4,0)
+44 ;;=FIELD^NL^15007^41
+45 ;;^DD(9.4,0,"DDA")
+46 ;;=N
+47 ;;^DD(9.4,0,"DT")
+48 ;;=2941020
+49 ;;^DD(9.4,0,"ID",1)
+50 ;;=W:$D(^("0")) " ",$P(^("0"),U,2)
+51 ;;^DD(9.4,0,"IX","AMRG",9.402,.01)
+52 ;;=
+53 ;;^DD(9.4,0,"IX","AR",9.44,.01)
+54 ;;=
+55 ;;^DD(9.4,0,"IX","B",9.4,.01)
+56 ;;=
+57 ;;^DD(9.4,0,"IX","C",9.4,1)
+58 ;;=
+59 ;;^DD(9.4,0,"IX","D",9.42,.01)
+60 ;;=
+61 ;;^DD(9.4,0,"IX","E",9.415007,.01)
+62 ;;=
+63 ;;^DD(9.4,0,"NM","PACKAGE")
+64 ;;=
+65 ;;^DD(9.4,0,"PT",.84,1.2)
+66 ;;=
+67 ;;^DD(9.4,0,"PT",4.01,.01)
+68 ;;=
+69 ;;^DD(9.4,0,"PT",4.332,.01)
+70 ;;=
+71 ;;^DD(9.4,0,"PT",9.6,1)
+72 ;;=
+73 ;;^DD(9.4,0,"PT",9.7,1)
+74 ;;=
+75 ;;^DD(9.4,0,"PT",19,12)
+76 ;;=
+77 ;;^DD(9.4,0,"PT",101,12)
+78 ;;=
+79 ;;^DD(9.4,0,"PT",8989.332,.01)
+80 ;;=
+81 ;;^DD(9.4,0,"VRPK")
+82 ;;=KERNEL
+83 ;;^DD(9.4,.01,0)
+84 ;;=NAME^RF^^0;1^K:$L(X)>30!($L(X)<4)!'(X'?1P.E) X
+85 ;;^DD(9.4,.01,1,0)
+86 ;;=^.1
+87 ;;^DD(9.4,.01,1,1,0)
+88 ;;=9.4^B
+89 ;;^DD(9.4,.01,1,1,1)
+90 ;;=S ^DIC(9.4,"B",X,DA)=""
+91 ;;^DD(9.4,.01,1,1,2)
+92 ;;=K ^DIC(9.4,"B",X,DA)
+93 ;;^DD(9.4,.01,3)
+94 ;;=Please enter the name of this PACKAGE (4-30 characters).
+95 ;;^DD(9.4,.01,21,0)
+96 ;;=^^1^1^2940627^^^^
+97 ;;^DD(9.4,.01,21,1,0)
+98 ;;=The name of this Package.
+99 ;;^DD(9.4,1,0)
+100 ;;=PREFIX^RFX^^0;2^K:$L(X)>4!(X'?1U1.3NU) X I $D(X) S %=$O(^DIC(9.4,"C",X,0)) K:(%>0)&(%-DA) X
+101 ;;^DD(9.4,1,.1)
+102 ;;=NAMESPACE
+103 ;;^DD(9.4,1,1,0)
+104 ;;=^.1
+105 ;;^DD(9.4,1,1,1,0)
+106 ;;=9.4^C
+107 ;;^DD(9.4,1,1,1,1)
+108 ;;=S ^DIC(9.4,"C",X,DA)=""
+109 ;;^DD(9.4,1,1,1,2)
+110 ;;=K ^DIC(9.4,"C",X,DA)
+111 ;;^DD(9.4,1,3)
+112 ;;=Please enter the unique namespace prefix (2-4 characters, starting with an alpha).
+113 ;;^DD(9.4,1,21,0)
+114 ;;=^^4^4^2940627^^^^
+115 ;;^DD(9.4,1,21,1,0)
+116 ;;=This is the unique namespace prefix assigned to the Package, e.g. XM for
+117 ;;^DD(9.4,1,21,2,0)
+118 ;;=the MailMan routines and globals, DI for the FileMan routines, etc.
+119 ;;^DD(9.4,1,21,3,0)
+120 ;;=This field is appended to letters (like "INIT") to be used as the
+121 ;;^DD(9.4,1,21,4,0)
+122 ;;=names of INIT routines.
+123 ;;^DD(9.4,1,"DT")
+124 ;;=2890223
+125 ;;^DD(9.4,2,0)
+126 ;;=SHORT DESCRIPTION^RF^^0;3^K:$L(X)>60!($L(X)<2) X
+127 ;;^DD(9.4,2,3)
+128 ;;=Answer must be 2-60 characters in length.
+129 ;;^DD(9.4,2,21,0)
+130 ;;=1
+131 ;;^DD(9.4,2,21,1,0)
+132 ;;=This is a brief description of this Package's functions.
+133 ;;^DD(9.4,2,"DT")
+134 ;;=2890627
+135 ;;^DD(9.4,3,0)
+136 ;;=DESCRIPTION^9.41A^^1;0
+137 ;;^DD(9.4,3,21,0)
+138 ;;=^^2^2^2920513^^^
+139 ;;^DD(9.4,3,21,1,0)
+140 ;;=This is a complete and detailed description of the Package's functions
+141 ;;^DD(9.4,3,21,2,0)
+142 ;;=and capabilities.
+143 ;;^DD(9.4,4,0)
+144 ;;=*ROUTINE^9.42A^^2;0
+145 ;;^DD(9.4,4,21,0)
+146 ;;=^^3^3^2920513^^^^
+147 ;;^DD(9.4,4,21,1,0)
+148 ;;=These are the routines which make up this Package. This multiple
+149 ;;^DD(9.4,4,21,2,0)
+150 ;;=is used for documentation only, and is not used during the INIT
+151 ;;^DD(9.4,4,21,3,0)
+152 ;;=process.
+153 ;;^DD(9.4,4,"DT")
+154 ;;=2940603
+155 ;;^DD(9.4,5,0)
+156 ;;=*GLOBAL^9.43^^3;0
+157 ;;^DD(9.4,5,21,0)
+158 ;;=^^2^2^2920513^^^^
+159 ;;^DD(9.4,5,21,1,0)
+160 ;;=These are the globals which make up this Package. This multiple is used
+161 ;;^DD(9.4,5,21,2,0)
+162 ;;=for documentation purposes only.
+163 ;;^DD(9.4,5,"DT")
+164 ;;=2940603
+165 ;;^DD(9.4,6,0)
+166 ;;=*FILE^9.44PA^^4;0
+167 ;;^DD(9.4,6,21,0)
+168 ;;=^^3^3^2920513^^^^
+169 ;;^DD(9.4,6,21,1,0)
+170 ;;=Any FileMan files which are part of this Package are documented
+171 ;;^DD(9.4,6,21,2,0)
+172 ;;=here. This multiple controls what files (Data Dictionaries and
+173 ;;^DD(9.4,6,21,3,0)
+174 ;;=Data) are sent in an INIT built from this Package entry.
+175 ;;^DD(9.4,6,"DT")
+176 ;;=2940603
+177 ;;^DD(9.4,7,0)
+178 ;;=*PRINT TEMPLATE^9.46^^DIPT;0
+179 ;;^DD(9.4,7,21,0)
+180 ;;=^^4^4^2921202^^^^
+181 ;;^DD(9.4,7,21,1,0)
+182 ;;=The names of Print Templates being sent with this Package.
+183 ;;^DD(9.4,7,21,2,0)
+184 ;;=This multiple is used to send non-namespaced templates in an INIT.
+185 ;;^DD(9.4,7,21,3,0)
+186 ;;=Namespaced templates are sent automatically and need not be listed
+187 ;;^DD(9.4,7,21,4,0)
+188 ;;=separately.
+189 ;;^DD(9.4,7,"DT")
+190 ;;=2940603
+191 ;;^DD(9.4,8,0)
+192 ;;=*INPUT TEMPLATE^9.47^^DIE;0
+193 ;;^DD(9.4,8,21,0)
+194 ;;=^^4^4^2920513^^^
+195 ;;^DD(9.4,8,21,1,0)
+196 ;;=The names of the Input Templates being sent with this Package
+197 ;;^DD(9.4,8,21,2,0)
+198 ;;=This multiple is used to send non-namespaced templates in an INIT.
+199 ;;^DD(9.4,8,21,3,0)
+200 ;;=Namespaced templates are sent automatically and need not be listed
+201 ;;^DD(9.4,8,21,4,0)
+202 ;;=separately.
+203 ;;^DD(9.4,8,"DT")
+204 ;;=2940603
+205 ;;^DD(9.4,9,0)
+206 ;;=*SORT TEMPLATE^9.48^^DIBT;0
+207 ;;^DD(9.4,9,21,0)
+208 ;;=^^4^4^2920513^^^
+209 ;;^DD(9.4,9,21,1,0)
+210 ;;=The names of the Sort Templates being sent with this Package.
+211 ;;^DD(9.4,9,21,2,0)
+212 ;;=This multiple is used to send non-namespaced templates in an INIT.
+213 ;;^DD(9.4,9,21,3,0)
+214 ;;=Namespaced templates are sent automatically and need not be listed
+215 ;;^DD(9.4,9,21,4,0)
+216 ;;=separately.
+217 ;;^DD(9.4,9,"DT")
+218 ;;=2940603
+219 ;;^DD(9.4,9.1,0)
+220 ;;=*SCREEN TEMPLATE (FORM)^9.485^^DIST;0
+221 ;;^DD(9.4,9.1,21,0)
+222 ;;=^^2^2^2920513^^^
+223 ;;^DD(9.4,9.1,21,1,0)
+224 ;;=The names of Screen Templates (from the FORM file) associated with
+225 ;;^DD(9.4,9.1,21,2,0)
+226 ;;=this package.
