DIPKI007 ; ; 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.455,.02,21,6,0)
;;=available, then the variable would not be displayed along with other
;;^DD(9.455,.02,21,7,0)
;;=annotated key variables.
;;^DD(9.455,.02,21,8,0)
;;=
;;^DD(9.455,.02,"DT")
;;=2920928
;;^DD(9.455,1,0)
;;=DESCRIPTION^9.456^^1;0
;;^DD(9.455,1,21,0)
;;=^^2^2^2851008^^
;;^DD(9.455,1,21,1,0)
;;=This lists information about the MUMPS variable required by this
;;^DD(9.455,1,21,2,0)
;;=Package.
;;^DD(9.456,0)
;;=DESCRIPTION SUB-FIELD^NL^.01^1
;;^DD(9.456,0,"NM","DESCRIPTION")
;;=
;;^DD(9.456,0,"UP")
;;=9.455
;;^DD(9.456,.01,0)
;;=DESCRIPTION^W^^0;1^Q
;;^DD(9.456,.01,21,0)
;;=^^2^2^2851008^^
;;^DD(9.456,.01,21,1,0)
;;=This describes the MUMPS variable which this Package would like
;;^DD(9.456,.01,21,2,0)
;;=defined prior to entry into the routines.
;;^DD(9.456,.01,"DT")
;;=2850228
;;^DD(9.46,0)
;;=*PRINT TEMPLATE SUB-FIELD^NL^2^2
;;^DD(9.46,0,"NM","*PRINT TEMPLATE")
;;=
;;^DD(9.46,0,"UP")
;;=9.4
;;^DD(9.46,.01,0)
;;=PRINT TEMPLATE^MF^^0;1^K:$L(X)>50!($L(X)<2) X
;;^DD(9.46,.01,1,0)
;;=^.1^^0
;;^DD(9.46,.01,3)
;;=Please enter the name of a Print Template (2-50 characters).
;;^DD(9.46,.01,21,0)
;;=^^5^5^2921202^
;;^DD(9.46,.01,21,1,0)
;;=The name of a Print Template being sent with this Package.
;;^DD(9.46,.01,21,2,0)
;;=This multiple is used to send non-namespaced templates in an INIT.
;;^DD(9.46,.01,21,3,0)
;;=Namespaced templates are sent automatically and need not be listed
;;^DD(9.46,.01,21,4,0)
;;=separately. Selected Fields for Export and Export templates cannot be
;;^DD(9.46,.01,21,5,0)
;;=sent; entering their names here will have no effect.
;;^DD(9.46,.01,"DT")
;;=2821117
;;^DD(9.46,2,0)
;;=FILE^RP1'^DIC(^0;2^Q
;;^DD(9.46,2,21,0)
;;=^^1^1^2920513^^
;;^DD(9.46,2,21,1,0)
;;=The FileMan file for this Print Template.
;;^DD(9.46,2,"DT")
;;=2821126
;;^DD(9.47,0)
;;=*INPUT TEMPLATE SUB-FIELD^NL^2^2
;;^DD(9.47,0,"ID",2)
;;=W " FILE #"_$P(^(0),U,2)
;;^DD(9.47,0,"NM","*INPUT TEMPLATE")
;;=
;;^DD(9.47,0,"UP")
;;=9.4
;;^DD(9.47,.01,0)
;;=INPUT TEMPLATE^MF^^0;1^K:$L(X)>50!($L(X)<2) X
;;^DD(9.47,.01,1,0)
;;=^.1^^0
;;^DD(9.47,.01,3)
;;=Please enter the name of an Input Template (2-50 characters).
;;^DD(9.47,.01,21,0)
;;=^^4^4^2920513^^^
;;^DD(9.47,.01,21,1,0)
;;=The name of an Input Template being sent with this Package.
;;^DD(9.47,.01,21,2,0)
;;=This multiple is used to send non-namespaced templates in an INIT.
;;^DD(9.47,.01,21,3,0)
;;=Namespaced templates are sent automatically and need not be listed
;;^DD(9.47,.01,21,4,0)
;;=separately.
;;^DD(9.47,.01,"DT")
;;=2821117
;;^DD(9.47,2,0)
;;=FILE^RP1'^DIC(^0;2^Q
;;^DD(9.47,2,21,0)
;;=^^1^1^2920513^^
;;^DD(9.47,2,21,1,0)
;;=The name of the FileMan file for this Input Template.
;;^DD(9.47,2,"DT")
;;=2821126
;;^DD(9.48,0)
;;=*SORT TEMPLATE SUB-FIELD^NL^2^2
;;^DD(9.48,0,"NM","*SORT TEMPLATE")
;;=
;;^DD(9.48,0,"UP")
;;=9.4
;;^DD(9.48,.01,0)
;;=SORT TEMPLATE^MF^^0;1^K:$L(X)>50!($L(X)<2) X
;;^DD(9.48,.01,1,0)
;;=^.1^^0
;;^DD(9.48,.01,3)
;;=Please enter the name of a Sort Template (2-50 characters).
;;^DD(9.48,.01,21,0)
;;=^^4^4^2920513^^^
;;^DD(9.48,.01,21,1,0)
;;=The name of a Sort Template being sent with this Package.
;;^DD(9.48,.01,21,2,0)
;;=This multiple is used to send non-namespaced templates in an INIT.
;;^DD(9.48,.01,21,3,0)
;;=Namespaced templates are sent automatically and need not be listed
;;^DD(9.48,.01,21,4,0)
;;=separately.
;;^DD(9.48,.01,"DT")
;;=2821117
;;^DD(9.48,2,0)
;;=FILE^RP1'^DIC(^0;2^Q
;;^DD(9.48,2,21,0)
;;=^^1^1^2920513^^
;;^DD(9.48,2,21,1,0)
;;=The FileMan file for this Sort Template.
;;^DD(9.485,0)
;;=*SCREEN TEMPLATE (FORM) SUB-FIELD^^2^2
;;^DD(9.485,0,"DT")
;;=2910320
;;^DD(9.485,0,"NM","*SCREEN TEMPLATE (FORM)")
;;=
;;^DD(9.485,0,"UP")
;;=9.4
;;^DD(9.485,.01,0)
;;=SCREEN TEMPLATE (FORM)^MF^^0;1^K:$L(X)>50!($L(X)<2) X
;;^DD(9.485,.01,1,0)
;;=^.1^^0
;;^DD(9.485,.01,3)
;;=Please enter the name of a Screen Template (Form), (2-50 characters).
;;^DD(9.485,.01,21,0)
;;=^^2^2^2920513^^^^
;;^DD(9.485,.01,21,1,0)
;;=The name of a Screen Template (from the FORM file) associated with
;;^DD(9.485,.01,21,2,0)
;;=this Package.
;;^DD(9.485,.01,23,0)
;;=^^3^3^2910320^^^^
;;^DD(9.485,.01,23,1,0)
;;=This list is originally created by the user for building an INIT, and allows
;;^DD(9.485,.01,23,2,0)
;;=the user to send FORMS on an INIT that are outside the Package namespace.
;;^DD(9.485,.01,23,3,0)
;;=All BLOCKS associated with the FORMS are also sent automatically.
;;^DD(9.485,.01,"DT")
;;=2910320
;;^DD(9.485,2,0)
;;=FILE^RP1'^DIC(^0;2^Q
;;^DD(9.485,2,21,0)
;;=^^1^1^2920513^^
;;^DD(9.485,2,21,1,0)
;;=The name of the FileMan file for this Screen Template (FORM).
;;^DD(9.485,2,23,0)
;;=^^1^1^2910320^
;;^DD(9.485,2,23,1,0)
;;=This field must match the PRIMARY FILE field on the FORM file.
;;^DD(9.485,2,"DT")
;;=2910320
;;^DD(9.49,0)
;;=VERSION SUB-FIELD^NL^1105^10
;;^DD(9.49,0,"DT")
;;=2940607
;;^DD(9.49,0,"ID",1)
;;=W:$D(^("0")) " ",$E($P(^("0"),U,2),4,5)_"-"_$E($P(^("0"),U,2),6,7)_"-"_$E($P(^("0"),U,2),2,3)
;;^DD(9.49,0,"IX","B",9.49,.01)
;;=
;;^DD(9.49,0,"NM","VERSION")
;;=
;;^DD(9.49,0,"UP")
;;=9.4
;;^DD(9.49,.01,0)
;;=VERSION^FX^^0;1^K:'(X?1.3N.1".".2N.1A.2N)!(X>999)!(X'>0) X
;;^DD(9.49,.01,1,0)
;;=^.1
;;^DD(9.49,.01,1,1,0)
;;=9.49^B
;;^DD(9.49,.01,1,1,1)
;;=S ^DIC(9.4,DA(1),22,"B",$E(X,1,30),DA)=""
;;^DD(9.49,.01,1,1,2)
;;=K ^DIC(9.4,DA(1),22,"B",$E(X,1,30),DA)
;;^DD(9.49,.01,3)
;;=Please enter the Version Number of this release. This can be either the old method (1.0, 16.04, etc.) or the new (17T1, 6.0V2, etc.).
;;^DD(9.49,.01,21,0)
;;=^^2^2^2930415^^^^
;;^DD(9.49,.01,21,1,0)
;;=The version number of this Package. This number is updated automatically
;;^DD(9.49,.01,21,2,0)
;;=when an INIT is built for this package.
;;^DD(9.49,.01,"DT")
;;=2910322
;;^DD(9.49,1,0)
;;=DATE DISTRIBUTED^D^^0;2^S %DT="E" D ^%DT S X=Y K:Y<1 X
;;^DD(9.49,1,21,0)
;;=^^2^2^2911209^^^
;;^DD(9.49,1,21,1,0)
;;=The date this release was distributed. This field is updated automatically
;;^DD(9.49,1,21,2,0)
;;=when an INIT is built for this package.
;;^DD(9.49,1,"DT")
;;=2840227
;;^DD(9.49,2,0)
;;=DATE INSTALLED AT THIS SITE^D^^0;3^S %DT="ET" D ^%DT S X=Y K:Y<1 X
;;^DD(9.49,2,21,0)
;;=^^2^2^2911209^^^
;;^DD(9.49,2,21,1,0)
;;=The date this release was installed at this site. This field is updated
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDIPKI007 7011 printed Sep 23, 2025@20:29:01 Page 2
DIPKI007 ; ; 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.455,.02,21,6,0)
+2 ;;=available, then the variable would not be displayed along with other
+3 ;;^DD(9.455,.02,21,7,0)
+4 ;;=annotated key variables.
+5 ;;^DD(9.455,.02,21,8,0)
+6 ;;=
+7 ;;^DD(9.455,.02,"DT")
+8 ;;=2920928
+9 ;;^DD(9.455,1,0)
+10 ;;=DESCRIPTION^9.456^^1;0
+11 ;;^DD(9.455,1,21,0)
+12 ;;=^^2^2^2851008^^
+13 ;;^DD(9.455,1,21,1,0)
+14 ;;=This lists information about the MUMPS variable required by this
+15 ;;^DD(9.455,1,21,2,0)
+16 ;;=Package.
+17 ;;^DD(9.456,0)
+18 ;;=DESCRIPTION SUB-FIELD^NL^.01^1
+19 ;;^DD(9.456,0,"NM","DESCRIPTION")
+20 ;;=
+21 ;;^DD(9.456,0,"UP")
+22 ;;=9.455
+23 ;;^DD(9.456,.01,0)
+24 ;;=DESCRIPTION^W^^0;1^Q
+25 ;;^DD(9.456,.01,21,0)
+26 ;;=^^2^2^2851008^^
+27 ;;^DD(9.456,.01,21,1,0)
+28 ;;=This describes the MUMPS variable which this Package would like
+29 ;;^DD(9.456,.01,21,2,0)
+30 ;;=defined prior to entry into the routines.
+31 ;;^DD(9.456,.01,"DT")
+32 ;;=2850228
+33 ;;^DD(9.46,0)
+34 ;;=*PRINT TEMPLATE SUB-FIELD^NL^2^2
+35 ;;^DD(9.46,0,"NM","*PRINT TEMPLATE")
+36 ;;=
+37 ;;^DD(9.46,0,"UP")
+38 ;;=9.4
+39 ;;^DD(9.46,.01,0)
+40 ;;=PRINT TEMPLATE^MF^^0;1^K:$L(X)>50!($L(X)<2) X
+41 ;;^DD(9.46,.01,1,0)
+42 ;;=^.1^^0
+43 ;;^DD(9.46,.01,3)
+44 ;;=Please enter the name of a Print Template (2-50 characters).
+45 ;;^DD(9.46,.01,21,0)
+46 ;;=^^5^5^2921202^
+47 ;;^DD(9.46,.01,21,1,0)
+48 ;;=The name of a Print Template being sent with this Package.
+49 ;;^DD(9.46,.01,21,2,0)
+50 ;;=This multiple is used to send non-namespaced templates in an INIT.
+51 ;;^DD(9.46,.01,21,3,0)
+52 ;;=Namespaced templates are sent automatically and need not be listed
+53 ;;^DD(9.46,.01,21,4,0)
+54 ;;=separately. Selected Fields for Export and Export templates cannot be
+55 ;;^DD(9.46,.01,21,5,0)
+56 ;;=sent; entering their names here will have no effect.
+57 ;;^DD(9.46,.01,"DT")
+58 ;;=2821117
+59 ;;^DD(9.46,2,0)
+60 ;;=FILE^RP1'^DIC(^0;2^Q
+61 ;;^DD(9.46,2,21,0)
+62 ;;=^^1^1^2920513^^
+63 ;;^DD(9.46,2,21,1,0)
+64 ;;=The FileMan file for this Print Template.
+65 ;;^DD(9.46,2,"DT")
+66 ;;=2821126
+67 ;;^DD(9.47,0)
+68 ;;=*INPUT TEMPLATE SUB-FIELD^NL^2^2
+69 ;;^DD(9.47,0,"ID",2)
+70 ;;=W " FILE #"_$P(^(0),U,2)
+71 ;;^DD(9.47,0,"NM","*INPUT TEMPLATE")
+72 ;;=
+73 ;;^DD(9.47,0,"UP")
+74 ;;=9.4
+75 ;;^DD(9.47,.01,0)
+76 ;;=INPUT TEMPLATE^MF^^0;1^K:$L(X)>50!($L(X)<2) X
+77 ;;^DD(9.47,.01,1,0)
+78 ;;=^.1^^0
+79 ;;^DD(9.47,.01,3)
+80 ;;=Please enter the name of an Input Template (2-50 characters).
+81 ;;^DD(9.47,.01,21,0)
+82 ;;=^^4^4^2920513^^^
+83 ;;^DD(9.47,.01,21,1,0)
+84 ;;=The name of an Input Template being sent with this Package.
+85 ;;^DD(9.47,.01,21,2,0)
+86 ;;=This multiple is used to send non-namespaced templates in an INIT.
+87 ;;^DD(9.47,.01,21,3,0)
+88 ;;=Namespaced templates are sent automatically and need not be listed
+89 ;;^DD(9.47,.01,21,4,0)
+90 ;;=separately.
+91 ;;^DD(9.47,.01,"DT")
+92 ;;=2821117
+93 ;;^DD(9.47,2,0)
+94 ;;=FILE^RP1'^DIC(^0;2^Q
+95 ;;^DD(9.47,2,21,0)
+96 ;;=^^1^1^2920513^^
+97 ;;^DD(9.47,2,21,1,0)
+98 ;;=The name of the FileMan file for this Input Template.
+99 ;;^DD(9.47,2,"DT")
+100 ;;=2821126
+101 ;;^DD(9.48,0)
+102 ;;=*SORT TEMPLATE SUB-FIELD^NL^2^2
+103 ;;^DD(9.48,0,"NM","*SORT TEMPLATE")
+104 ;;=
+105 ;;^DD(9.48,0,"UP")
+106 ;;=9.4
+107 ;;^DD(9.48,.01,0)
+108 ;;=SORT TEMPLATE^MF^^0;1^K:$L(X)>50!($L(X)<2) X
+109 ;;^DD(9.48,.01,1,0)
+110 ;;=^.1^^0
+111 ;;^DD(9.48,.01,3)
+112 ;;=Please enter the name of a Sort Template (2-50 characters).
+113 ;;^DD(9.48,.01,21,0)
+114 ;;=^^4^4^2920513^^^
+115 ;;^DD(9.48,.01,21,1,0)
+116 ;;=The name of a Sort Template being sent with this Package.
+117 ;;^DD(9.48,.01,21,2,0)
+118 ;;=This multiple is used to send non-namespaced templates in an INIT.
+119 ;;^DD(9.48,.01,21,3,0)
+120 ;;=Namespaced templates are sent automatically and need not be listed
+121 ;;^DD(9.48,.01,21,4,0)
+122 ;;=separately.
+123 ;;^DD(9.48,.01,"DT")
+124 ;;=2821117
+125 ;;^DD(9.48,2,0)
+126 ;;=FILE^RP1'^DIC(^0;2^Q
+127 ;;^DD(9.48,2,21,0)
+128 ;;=^^1^1^2920513^^
+129 ;;^DD(9.48,2,21,1,0)
+130 ;;=The FileMan file for this Sort Template.
+131 ;;^DD(9.485,0)
+132 ;;=*SCREEN TEMPLATE (FORM) SUB-FIELD^^2^2
+133 ;;^DD(9.485,0,"DT")
+134 ;;=2910320
+135 ;;^DD(9.485,0,"NM","*SCREEN TEMPLATE (FORM)")
+136 ;;=
+137 ;;^DD(9.485,0,"UP")
+138 ;;=9.4
+139 ;;^DD(9.485,.01,0)
+140 ;;=SCREEN TEMPLATE (FORM)^MF^^0;1^K:$L(X)>50!($L(X)<2) X
+141 ;;^DD(9.485,.01,1,0)
+142 ;;=^.1^^0
+143 ;;^DD(9.485,.01,3)
+144 ;;=Please enter the name of a Screen Template (Form), (2-50 characters).
+145 ;;^DD(9.485,.01,21,0)
+146 ;;=^^2^2^2920513^^^^
+147 ;;^DD(9.485,.01,21,1,0)
+148 ;;=The name of a Screen Template (from the FORM file) associated with
+149 ;;^DD(9.485,.01,21,2,0)
+150 ;;=this Package.
+151 ;;^DD(9.485,.01,23,0)
+152 ;;=^^3^3^2910320^^^^
+153 ;;^DD(9.485,.01,23,1,0)
+154 ;;=This list is originally created by the user for building an INIT, and allows
+155 ;;^DD(9.485,.01,23,2,0)
+156 ;;=the user to send FORMS on an INIT that are outside the Package namespace.
+157 ;;^DD(9.485,.01,23,3,0)
+158 ;;=All BLOCKS associated with the FORMS are also sent automatically.
+159 ;;^DD(9.485,.01,"DT")
+160 ;;=2910320
+161 ;;^DD(9.485,2,0)
+162 ;;=FILE^RP1'^DIC(^0;2^Q
+163 ;;^DD(9.485,2,21,0)
+164 ;;=^^1^1^2920513^^
+165 ;;^DD(9.485,2,21,1,0)
+166 ;;=The name of the FileMan file for this Screen Template (FORM).
+167 ;;^DD(9.485,2,23,0)
+168 ;;=^^1^1^2910320^
+169 ;;^DD(9.485,2,23,1,0)
+170 ;;=This field must match the PRIMARY FILE field on the FORM file.
+171 ;;^DD(9.485,2,"DT")
+172 ;;=2910320
+173 ;;^DD(9.49,0)
+174 ;;=VERSION SUB-FIELD^NL^1105^10
+175 ;;^DD(9.49,0,"DT")
+176 ;;=2940607
+177 ;;^DD(9.49,0,"ID",1)
+178 ;;=W:$D(^("0")) " ",$E($P(^("0"),U,2),4,5)_"-"_$E($P(^("0"),U,2),6,7)_"-"_$E($P(^("0"),U,2),2,3)
+179 ;;^DD(9.49,0,"IX","B",9.49,.01)
+180 ;;=
+181 ;;^DD(9.49,0,"NM","VERSION")
+182 ;;=
+183 ;;^DD(9.49,0,"UP")
+184 ;;=9.4
+185 ;;^DD(9.49,.01,0)
+186 ;;=VERSION^FX^^0;1^K:'(X?1.3N.1".".2N.1A.2N)!(X>999)!(X'>0) X
+187 ;;^DD(9.49,.01,1,0)
+188 ;;=^.1
+189 ;;^DD(9.49,.01,1,1,0)
+190 ;;=9.49^B
+191 ;;^DD(9.49,.01,1,1,1)
+192 ;;=S ^DIC(9.4,DA(1),22,"B",$E(X,1,30),DA)=""
+193 ;;^DD(9.49,.01,1,1,2)
+194 ;;=K ^DIC(9.4,DA(1),22,"B",$E(X,1,30),DA)
+195 ;;^DD(9.49,.01,3)
+196 ;;=Please enter the Version Number of this release. This can be either the old method (1.0, 16.04, etc.) or the new (17T1, 6.0V2, etc.).
+197 ;;^DD(9.49,.01,21,0)
+198 ;;=^^2^2^2930415^^^^
+199 ;;^DD(9.49,.01,21,1,0)
+200 ;;=The version number of this Package. This number is updated automatically
+201 ;;^DD(9.49,.01,21,2,0)
+202 ;;=when an INIT is built for this package.
+203 ;;^DD(9.49,.01,"DT")
+204 ;;=2910322
+205 ;;^DD(9.49,1,0)
+206 ;;=DATE DISTRIBUTED^D^^0;2^S %DT="E" D ^%DT S X=Y K:Y<1 X
+207 ;;^DD(9.49,1,21,0)
+208 ;;=^^2^2^2911209^^^
+209 ;;^DD(9.49,1,21,1,0)
+210 ;;=The date this release was distributed. This field is updated automatically
+211 ;;^DD(9.49,1,21,2,0)
+212 ;;=when an INIT is built for this package.
+213 ;;^DD(9.49,1,"DT")
+214 ;;=2840227
+215 ;;^DD(9.49,2,0)
+216 ;;=DATE INSTALLED AT THIS SITE^D^^0;3^S %DT="ET" D ^%DT S X=Y K:Y<1 X
+217 ;;^DD(9.49,2,21,0)
+218 ;;=^^2^2^2911209^^^
+219 ;;^DD(9.49,2,21,1,0)
+220 ;;=The date this release was installed at this site. This field is updated
